File ALI.FT (FORTRAN source file)

Directory of image this file is from
This file as a plain text file

C*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN2 3AI*MC*M+CB * B * B 7PKU7POOE*M+CB * B * B * B +TCO7ISN7ECR3OGL+TCE3F;U3C	T+OCN3V3A+UCE3YZ +OCR3A^ 3IWV3NF 7RWG3M;E7TZ 7AW
E*M+CB * B * B * B 7XV 3S;I3GF 2 	G3V;E2 GT3BWL2 F(+R3G3V3A2)> 3FF 7RWG3M;E3TF +NCD3F;U3C	TO7N*JCC* B * B * B 2 GV3LWUS6."J7C*JCC* B * B 6 OU3AWG2MNJ* B * B * B 2 N 3A3L2 3A+I" 3XF,+R3G3V3A*,3Y3N	D3MV,+P3S7IKE")*MC*M+CB * B * B 7DOE3C	R3P	T+OCN+OCF7PKA3AW
7TKES*M+CB * B * B * B +XB * B * B-3TWH6 KA3G7U7ESN2 GV3LWU6 CS3E	C3FWI3DJ 3Y& 7NWPT6.*JCC* B * B * B 6 KA+GB * 6 2 T3E& 7NWP7TZ 7ESC+OCR2(	D3M;E3S?I3N: 3D7I2)> 3FF 7RWG3M;ET*M+CB * B * B * B * B * B * B 3V3A7UOE2 [O2 T7ER 3A3B+E" 7NSO2 WD7SKT3OWY+D:)2MNJ
 B * B * B 6 Z +ACL* B 6-R +HCE7ICN+UCT3VOE7TKO2 R(3IWM3N	S+OCN3N	D+MB)+OCF3F;U3C	TO7N*JCC* B * B * B * B * B * B 2 GV3LWU3S> 7FR +HCE3TKA+LCE2(WD7SKT3OWY+D:)2MNJ* B * B * B 6 & * B * B 6-R +HCE7ROE7USL3I
N2 ;I7TKE3P3O3AWT3DZ 3UON3T?I7NZ 7AWLE6.*JCC* B * B * B 2 SN+ICM* 6 2 ;A2 ;I7PSU2 GV3LWU2 W3IC6 CS3E	C3FWI7SR +HCE3N7U7BKE2 [O2MNJ* B * B * B * B * B * B 6 B 3O;I+TCS+ICN3TKA+LCE6(KA7GZ,+A	L".*M+CB * B * B * B 7EOP* B * B-+ACN7ICN+UCT3C;O3SGT+NCT3W	H+CCH+
CS3UWS3DF 7SV 3PWP3RJ 3O;UD*M+CB * B * B * B * B * B * B 7FKO2 T3EF 3B?S7LSU3EV 3R?RR6.*JCC* B * B * B 2 WI+RB * 6 * CA7ROE7USL3I
N6 KE7RKO2 GP3R7A3EWTR6."J7C*JCC* B * B 2 WR7MKAK7S*JCC* B * B * B . F(6)R 3A3B+E" 3A
R2,GV+LB)3S?H3USL2 WR3PWR3S;E3TF 2 	S3N3G7EZ-7AWLE7D*JCC* B * B * B * B 2 Z 3UON3T?I3NF +NCD3S?H3USL2 WB6 SS3OWR3D& 7NN 3UC* CA7W	A6,R 7HSA2 TE*M+CB * B * B * B * B 2 	D3SGT3NWC3SF +BS3A
R*(	I*-	X2 ;I3CWR3AWS2 	W+TCH3ION3RGE3S;IG*M+CB * B * B * B * B 6 WS3BOS7RCI3T& 6.R 3O^ 3EWN7RSA7ER 7HOI6 KO7DKE2 ;I2 GT3BWL2 F(+R3G3V3A")6,*JCC* B * B * B * B 6 N 7UKB7OSU3IWN3SF 3T
S2,F 3T7S6 KO6 SA+SCE7CWO+LCD+BCE3UWS3D& 3NF 2MNJ* B * B * B * B * B 3PWR3V?I+UCS3SGT+G;E2MNJ* B * B * B * " *2B)+NCO7ASC3I;O2 WB3SSI+ECS7EKR+OCR7MOE3S
A3E& 3NN 3AWS2 SN+ICM7LOES*M+CB * B * B * B * B 2 T+ACN"16.*JCC* B * B * B . N(2)& 3NWT3R?P7LSA3I;O6 OI2 WT3R	M7NSA+ECD7ESI7HKE2 [I2 T3ER 3I[F3EWR3NWC2MNJ* B * B * B * B * B 7BSE3WWE7NR +WCO3SOU7COE7S[I3E& 3NWT3R?P7LSA+ECD3V3A7UOE6 OI2MNJ* B * B * B * B *
B 7AOB7OWL3T3E3Y2 7EOS2 T+ACN3T3O3EGR3NWC6 CE+SB,+OCR+ICF3TWH2 KA3S3O3UWT2MNJ* B * B * B * B * B 3V3A+UCE+OCF3T	H3SR 3I[F3EWR3NWC6 SS7OOP2 	D3M;I3IS3I
N2,> 3RF 3FWTR*M+CB * B * B * B * B 2 :(3D7I*-&16 SS7EOP2.Z 7USR7HKE6 SI6 OI2 WT3R	M7NSA+ECD+ICF3TWH2MNJ* B * B * B * B * B 3P?R3CSE3UWR2 	D3S?C7VKE7SR +WCO3A
R3UWM+NCT3V3A7UOE2 ;I2 WV3C?T3RF R7G*JCC* B * B * B * B 6 ^ 3HOI3HF +RCE3IWD3N	T3C3A2.R 3EWP3NWD+NCT+OCN3TWH+SCE7FWO3RN 3AWSS6,*JCC* B * B * B * B 2 V 3R?R7RB 3AGR7MSE+ECR7IKE6 OI2 ?C3DSE2 ;I2 T3EZ 3O3L3O	W+NCG7FKOM*M+CB * B * B * B * B 2 & /E7R*06 6 SI2 
W7SB 7OOS3I3B7ER 7OJ 3EOA7HR +HCE7RGE7UKIE7D*JCC* B * B * B * B * B * B * B 2 F 7CWC3ROA+Y" +NCO7EKR+O	R".*M+CB * B * B * B * B 2 & /E7R*16 6 SI2 GW3S& 3M?P3S	S3BWL2 ?T2 WR3AC2 T7EJ 7EWQ3IWRD*M+CB * B * B * B * B * B * B * B 2 OA7CKU7A	C2 WB7CWA+SCE+OCF7R
O3N	D+NCG7EKR7OOR".*M+CB * B * B * B * B 2 & /E7R*26 6 SI2 GW3S& 3M?P3S	S3BWL2 ?T2 C3E/C2 OA7CKU7A	C2 WB7CWAS7E*JCC* B * B * B * B * B * B * B 2 : 3D7I6 OI2 WL+SCS3TGH/NN 2,> 7RR +HCE7RGE7UKI+ECD3AOC3UGRC7Y*JCC* B * B * B * B * B * B * B 2 N 3O3U3D: +OCT+
CE3RGE3CWH3DJ 3Y6 3E;A3S> 7FR +HCE7G[IE7N*JCC* B * B * B * B * B * B * B 6 R 3A3B+EB.3N	D7MN 7HWO+LCD+BCE3ION3RGE3SSE".*M+CB * B * B * B * B 2 & /E7R*36 2 T7EB 3ROO7EWD+RCE7DOI7C[O3EWR7DR +WCO3A
R3UWM+NCT3V3A7UOE2MNJ* B * B * B * B * B * B * B * B +ICN3VOE7TKO6 KA7G^ 3HOI3HF +RCE3IWD3N	T3C3A".*MC*M+CB * B * B 3SKU7RWO3T;I+ECS3ASN6 WF7NSC3I;O6 WS7BKP7OKG7AOM2 WR3Q	U3RSE2MNJ* B * B * B 2 : 3OWN2MNJ2MNJ* B * B 2 6 3ETO7D*JCC* B * B * B 2 ;I7TKE3P3O3
	T+OCN+ICS3D;O3EJ 3Y6 3E;A3S> 3FF 3I/T7EON2 OS3H7E3E> F*M+CB * B * B * B 3L
A3R;A+GCE7ISN7ECR3OGL3T?I+NB.+OCN7RSE3U;R* CY3C;O3T	A+NCS+ACN7ISN7ECR3OGL3TSE2MNJ* B * B * B 2 Z 3UON3T?I7NZ 7AWL3EF 7TB 3O;I7T" 6,^ 3HOI3H& 3S& 7NR +HCE3S;E+SCE+OCF3R7E3A/R2MNJ* B * B * B * " *3B)7OSP3IGM7L^ 3IT2 WR3SWP+CCT+TCO7G[I+ECN3TKA+L;E2 ?F7RJ 3EW
3R;E+C3E2 WSE*M+CB * B * B * B 3FJ.2.	H3LWD3BGR+N3D2 ;I3T?R3DOU3T?I7NR 3O: 3UWM3ROI+ACL3AGN7LOY+I3S2MNJ* B * B * B 2 6 7CKG+A7W3H3I+LB,7N
E2 ?Y+R?K7TKO7OSN3O2/3OSN+O3N. &1*5266 CP..&4.-B5".*MC*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ*MBJ* B 6 N 7UKB7OSU3IWN2 3A7I"(6,KA7GZ,+A3L3Y:,3D7I6,CE3S&,+E	R2MNJ2MNJ*MBJ* B 2 R 3IWM3N	S+OCN3A
R*(&12,GV/LF(")*M* B * B 7IKE"=62*JB * B 2 WD/LKT*=:0*MBJ* B 2 & 3F:(3D7I*-&1.9^,",61"J7C*JCC* B 6 SS7ASR2 [O2 	A3TWK3N2-7OCO*MBJ* B 21R /OZ . 7J22:,3D7I*MBJ* B 2 R 7ESL21R=7ESL"2*M* B * B 3I;E3D*="-61*JB * B 2 ?D* B2/IF=2,WIN7D*JB * B . 7H3A
R*(	I6-KA3G*(")*M* B * B +IF/HJ).,N1",62*JB . J 2 GV3L*(*)"=3V3A*(	I6*"(6-KA3G*(*)6)3V3A*(	J6*"(6-KA3G&(*)&)"/7H*JB * B 2 WD/LKT2=KA7SZ(+AL+J6)3V3A2(WI+N	D")*M* B * B +IF/JJ-*)26.6N,*MBJ* B 23& 3FR(7ESL22V-+P	S*120*120"4*M* B * B4+IF/JV-*)26.5V,*MBJ* B 25
 3FR(7ESL22R-7ESL.1Z).,F1.,F1*MBJ* B 26N 7OSN7IWNE*M+CB * B 3ESN2 [O2 	A3TWK3N2-7OCO2MNJ*MBJ* B 27* 2=SNI7M*JB . " . 7Y3V3A*(	J*MBJ* B 69J 7EWTR7N"J7C*JCC* B 2 T3EWR6 OI6 WS3F	F3CWI+NCT3AOC3UGR+CCY7WSI3H;I2 SN+I7M21& 7TKE3A	T+OCN3SWTP7S*JB . B12 WI/RB=*MB
* B 2 ^ 3O?T" 68"J7C*JCC* B 2 WT+SCT3V3A+UCE3D3E+TB23SGT7ROT6 OO3C3I7LSA3I
N*MBJ. F 21& /E7R"1*M* B *1B23J&=3ESN*MBJ* B 2 ^ 3O?T" 68"J7C*JCC* B 2 T3EWR6 KA7ER +WCO3IWD3N	T3C3A6 KA3G7U7ESN2 GV3LWU3S& 7NZ 7ESC+OCR3A
R*MBJ. F 23& /E7R"3*M* B * B 7GSO/OF "2*M* B * B 3ESN&M*J"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B

Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search