File APLL.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 7UKB7OSU3IWN6 CAL7L"J7C*JCC* B * B 6 WP3R?PS7E*JCC* B * B * B 2 WS7TV 3P: 3O7R+ACL7EWQ3A	T7OON2 ?F3RF 2 	L3NGE3R2 7EOA7TN 3QGU7ROE2 	FT*
+CB * B * B * B +TCO3A^ 3IWV3NR 3IOS7RSE3EZ 3UON3T?IN*MC*M+CB * B * B 3UGSG7E*JCC* B * B * B 2 GC+LCL3A3P3LZ(7FSC*,3N+I3P7P^,3O/R2,GD+T3I7IKE")*M+CB * B * B * B 3SKU7RWO3T;I3EZ 7FSC2 WR3Q	U7ROE2 ;A6 E7TKE3N3A6 SS3AWT3M;ET*MC*M+CB * B * B 7DOE3C	R3P	T+OCN+
CF7PKA3AWM7TKES*M+CB * B * B * B 3FOF+TB 6-V 7SKE2 ?C3DSE6 WS3B?R3U	T+NCE3W	H+CCH7MOU3TJ 3ER 3E3C3AWRD*M+CB * B * B * B * B * B 2 V 3XWT3RGN3L& 7NR +HCE3M	A7NB 3R
O3R7A2.& 3T& 3SN 3A3LE7D*JCC* B * B * B * B * B * B 3C3A3LZ 7FSC*(3I3N&,7PB,2,GD+T3I7WSG2,WI+RB)3ASN2 WR7TKUN7S*JCC* B * B * B * B * B * B 3TWH2 GV3LWU3S> 7FR +HCE3F;U3D7A7ESN+ACL3F;U3C	T7OON2 ?FR*M+CB * B * B * B * B * B 6 R +HCE7IR-3HF 7RWG3M;E3T& 7NB *
&16 CU2 ?T* P+I	P2MNJ* B * B * B * B * B * B 2 ?F3L?L3WSE6 	B2 T3E& 2-T6 WF7NSC3I;O2 GV3LWU2 ;I* P+I/P"16)*JCC* B * B * B * B * B * B 3N& 7SR +HCE3N7U7BKE2 [O2 3A7LB 3O;IT7S*JCC* B * B * B * B * B * B 7DSA3I& 3SF 6 WD7M	M2 GP3R7A3EWT7R^ 3HOI3H& 7SV 3SSE6 
A6 KA7R	A2MNJ* B * B * B * B * B * B 2 GN+M;E2 T3E^ 3IWV3NR 3AGT2 WS3T6 +ACY+BCE3A3L3OGC3TSE2 ;I2 GDT7I*JCC* B * B * B * B * B * B 7WSG6 OI2 T7E^ 3E
I+HCT3FOA7TKO2 ?F7RR +HCE7IR-7HB 3O;IT*M+CB * B * B * B * B * B 2 & +ECR+ICS3UWS3DF 7SJ 7EWS3LGT+NCT7EKR+OCR7PKA3AWM7TKE2 ;I2 [FC7T*JCC* B * B * B * CN* B * B-3N7U7BKE2 [O2 	G3V;E2 ?P7ISNS*M+CB * B * B * B +ICP* B 2-: 3UKM+ECR+OCF3F;U3D7A7ESN+ACL3F;U3C	T7
ON6 OU+ECD7FKO2 WL7ASS2MNJ* B * B * B * B * B * B 6 GS7UKA+ECS7FSI2MNJ* B * B * B * B * B * B 6 CI2 S3O3U3D: +OCT3EOX3ESE" 7N*JCC* B * B * B * CP* B * B-7WKO3K;I7GN 7TKO3AWG2 [O2 	D3M;E3S?I3N& /PF+6,^ 3HOIH*M+CB * B * B * B * B * B 2 & 7SV 3SSE6 OA2 ;I7TK
3FOA3EJ 7E
T3E;E6 CA+LCL3ASN2 T7EV 7SKE2MNJ* B * B * B * B * B * B 2 ?C3DSE6 WS3B?R3U	T+NCE3FOFT*M+CB * B * B * B 7WKO+KB 6-^ 3O/R3I
N6 SS3OGR+GCE+OCF3D7I7EON3I;O2 &(/PF+*)"*+I/P*2>)"26.*JCC* B * B * B * B * B * B +OCN7RSE3U;R2 ?W+RCK3C;O3T	A+NCS3TWH6 	S3MWM3T	R3CN 3O[E3FOI3I;ET*M+CB * B * B * B * B * B 2 6 7AKT+ICX+OCF3TWH2 ?N3RGM3LV 3QGU3T?I+NCS+ICN3C7O3PWR3SWS3DZ 3O7R",*M+CB * B * B
* B * B * B 2 & *.;E6 CU7PKE6 KT3I
N3UGL7RB 7ASR2 ;O+LCY3S?T3RSE2 ?C3L7U3N	W+S;E2MNJ* B * B * B * B * B * B 2 T3EZ 3O3L3O	W+NCG+ICP7POO3I	T7OON2 ?C3NGT+ICN3TWH2 	R7GSH2MNJ* B * B * B * B * B * B 2 GH+NCD3SSI3EF +NCD7WKO+K"(+I/P*1*)6(CI*+&2*/&22 ?C3NGT7ION2MNJ* B * B * B * B * B * B 2 T7E^ 
E
I3HWT7DN 3QGU+RCE3S7U2 [O2 T3EZ 3UON3T?I7NZ 7AWLE7S*JCC* B * B * B 2 GD+TCI* B-3D7U+MCY7ESN+RCY+TCO3C7O3M;U3IGC+TCE+ACN7AKR+ACY3N7A3EJ 7E
T3E;E2MNJ* B * B * B * B * B * B 2 GM+ICN3L;I3EF +NCD3SKU7RWO3T;I3EZ 7FSC".*M+CB * B * B * B 7IKE* B 6-J 7EWS3L	T+NCG7EKR+OCR7PKA3AWM7TKE2MNJ* B * B * B * B * B * B 2 WI/R6 *-B13MGE+NCS7FKO3M3A6 KE7RKO3S& 7NN 3POE3I	F+ECD3D7I7EON3I;OS*M+CB * B * B * B * B
* B 2 & +ECR.=B 2 WM7AON2 ?N6 KE7RKOS*M+CB * B * B * B * B * B 2 & +ECR.=F 2 WM7AON6 KE7RKO2 ;I6 E7TKE3N3A6 WS3B?R3U	T+NCE3FOFT*MC*M+CB * B * B 3R7E3A/RS*M+CB * B * B * B +TCO3A3L+OCW7FKO2 GE+SCY3C7O3M;U3IGC3T?I3N> 3F& 3NWT7GKE2 GV3LWUS*M+CB * B * B * B 7
SE3WWE3N6 3A;I3L;I3EF +NCD7ESX3E;R+ACL3SKU7RWO3T;I3EZ 7FSC6,R +HCE7EKRO7R*JCC* B * B * B 2 GP3R7A3EWT3R& +ECR+ICS3TWR3AWT3DF 3SF 2 WV3C?T3R> 3FR 3IWM3N	S+OCN61^ 3ITI7N*JCC* B * B * B 6 WS3B?R3U	T+NCE3A3P+LB.3ASD3I	T3OGN3LN 7OCM3OWN7NOT2 [O2 WI3R6 +ACYB7E*
CC* B * B * B 2 ;I3T?R3DOU+ECD+BCY3TWH6 OU+ECR7FKO2 ?C7MWM3NOI3A	T+OCN3BOA3KF +NCD7FKO+T;H2MNJ* B * B * B 2 & 7NR 7HOI2 GC+S3E2 ?H7W[E+E3R2 T7EV 7SKE6 WM+SCT3SWP3C[I3Y& +ECR+ACSA*M+CB * B * B * B 3VOE7TKO2 ;I2 	H3S6 3A;I3L;IE6.*JCC* B * B * B 6 E7EWC3T?I3
> 7FN 7UKB7OSU3IWN6 CA+LCL+ICS7AB 7RCE3AGR7TKO7YN 7TCE2 ?FR*M+CB * B * B * B 3C3A3C3U3A	T+OCN+OCF3TWH2 	L3NGE3R2 7EOA7TN 3QGU7ROE2 	FT6.*JCC* B * B * B 2 ?N3RGM7L	L6 SI6 OI2 ?F3L?L3WSE6 	B6 E7EWC3T?I3N> 7FN 7UKB7OSU3IWN6 CAF7S"J7C*JCC* B * B 3SKU7RWO3T;I+
CS3ASN6 WF7NSC3I;O6 WS7BKP7OKG7AOM2 WR3Q	U3RSE2MNJ* B * B * B 6 R +HCE7ESX3E;R+ACL3SKU7RWO3T;I3EZ 7FSC6 WM+SCT+BCE7FKU7NOI3HSE6 	B2 T7EV 7SKE2MNJ2MNJ* B * B 2 6 3ETO7D*JCC* B * B * B 2 GH3N3D3I
N2 [O2 T3E^ 3IWV3NR 3AGT2 WS+T" 3A
R3UWM7NOT6,WF7NSC3I;O2 GV3LWUS*M+CB * B * B * B 3ASN2 WW3IG+T	S6 OI2 ?C3M3P3EWT+LCY3L[E7TR 7OR +HCE3UWSR*M+CB * B * B * B 7EOS7ESN3I3A+LCY+HCE7HOA2 T3RWE2 C3OOIE7S*JCC* B * B * B . F(6)R +HCE7IR-7HZ 7AWL+ECS+OCF3A
R3UWM+N3T6 WF7NSC3I;O2 GV3LWU2 ;A7D^ 3E
IH7T*JCC* B * B * B * B 2 F +RCE3C3A3C3U3AWT7D^ 3IT+ICN3SKU7RWO3T;I3EZ 7FSC2 ?F3R^ 3IWV3N& ".*M+CB * B * B * B *(&22 T3E& 2-T2 GV3LWU3S> 3FF 7RWG3M;E+TB,3F;U3C	T+OCN3V3A+UCE3ASN2 WW3IGT*M+CB * B * B * B * B 6 KA3ER 3EWT3R	M3NSE6 	B2 GT3BWL2 ?L+OCK+U;P2 T7
N 7TKO3AWG2 ?L7CSA3I;OS*M+CB * B * B * B * B 2 WR3Q	U3RSE6 KA3EF 3L?L7CSA+ECD7WSI3H;I2 T3ER 3U7M3YF 3RGR3YR 3A	T2MNJ* B * B * B * B * B 2(?P3S	S7B	L2 ;I* CP3T?O2,& 3NV 3XWC+SCS+OCF3TWH6 CS3E	C3FWI3D& +P. " 61*JCC* B * B * B * B 2 2 3OGC3T?I+N	S".*M+CB * B
* B * B * B 2 ;A3OT+ECR7POO3SKI3I	L+TCY7WWO+LCD+BCE+TCO3UWS2 ?C3M?M3NF 3S& 3NWT3RGFC7E*JCC* B * B * B * B 2 J 7E
T3E;E2 GM+ICN3L;I3EF +NCD3SKU7RWO3T;I3EZ 7FSC2 ;A7DR 3OF 3L?L7CSAE*M+CB * B * B * B * B 6 SS3OGR+GCE7FKO2 T3ER 3AGT2 WS3T& 3NN 3O7M+O;N2MNJ* B * B * B * " *3B)3TWH* 7I+TCH3V3A7UOE2 [O6 KA3G7U7ESN2,Z 3UON3T?I7NZ 7AWL3EF +NCD3W	E7GSH2MNJ* B * B * B * B * B 
AWR2 WR+ACD+ICN3F?R3MF 3NV 3XWT3RGN3LR 3E	V+C;E2 T+ICS7M	A2 WB2 GE3S3IY*M+CB * B * B * B * B 2 OA3C7O3P	L3SWH7DN 3ION3E& 6 OI6 OU+ECD7SKT7ISC+LCY3ION3RGE3S;I3GZ 3R7O2MNJ* B * B * B * B * B 3OWN6 CU2 ?T* CN7WSI3H;I6 CAL7L"J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:
*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M* B * B 3SKU7RWO3T;I3EF 3P3L2([F+C3T3N&,7PB,2,?W+R3K7DSA3I&,+E	R2MNJ2MNJ2MNJ* B * B 2 R 3IWM3N	S3OWN3DR 3U7M7YZ 3A	R3A3BE7S*JB * B 2 	D3M;E3S?I7NB *(&12,?W+RK*12)7DSA/IF(2)&,+ER"16)"J7
*JCC* B * B 2 C3E/C2 ?F3RZ 3O7R+ACL7EKR7OOR2 ;I6 CS3E	C3FWI3DR 3IWM3N	S7OON*MBJ* B 2 & 3F:(.)B1.,B1",61*JB . F 2 [I6(CI.)B1.,B1",62*JB . J 2 [I*(7N+I	P*120.3N,2MNJ2MNJ* B * B 6 N +ECT7WKO3K;I7GN 7TKO3AWG2 ;A7DJ 3IG3T" 3ASN2 	S+DCE+TCO7ZKEO*M* B * B37ICP21
=/PF+*MBJ* B 2 6 6=CI+P*16(CI*+&2"/62*JB * B 2 WI/RF(.)B=*MBJ* B 2 R /OR . 7I216,*MBJ* B 64^ 3O/R*(	I*=:02MNJ2MNJ* B * B 6 N 7TKA3T^ 3RGE3T2 7OCO6 [O+ECR3A3L2 	G3V;E2 ?P7ISNS*M* B * B +DCO28& *=21N*M* B * B 3C3A3LZ 7FSC*(3I3N&,7PB,2,GD+T3I7WSG2,WIR6)*JB *
B 2 [I2(WI/RF(.)&)*,25"9*M* B * B5/JB=*MBJ* B 2 R /O^ . 7K21&,/PGP*MBJ* B 2 F /U7X3P.(6)^*G7T*JB * B 2 ?D* B6/LF=",7K*JB * B . 7J/JF+*MBJ* B 66^ 3O/R*(	J2=?W+RK+J.)3P2(2)F*U7X*JB . ^ 2 ?C3N	T3NWU*MBJ* B 28N 7OSN7IWNE*MC*M+CB * B * B 7NKO3M3A2 WR7TKUN*M* B
* B97RSE3U;R2MNJ2MNJ* B * B 2 V 3R?R7RJ 7EWT+RCN+ICN7COA3E> 3FZ 3O7R+ACL7EKR7OOR*MBJ. F 20& +ER.16)"-61*JB * B 2 WR7TKUN*M* B * B 3ESN&M*J"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"
"B"B"B"B"B"B"B"B"B"B"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