File DAPLL.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 GD3P3L2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 6 N +ECT+UCP7NKO3M3A6 GE7USA3I;O3SZ +OCR3A2 3IWN+ACR3LGE+SCT7SWQ3AWR3SZ I7T*
CC* B * B * B 2 ?T* CA7G[I+ECN7DOI3CWR+TCE3F;U3C	TO7N"J7C*JCC* B * B 6 OU3AWG2MNJ* B * B * B 2 N 3A3L2 GD3P3L2([F+C3T3N&,7PB,2,?W+R3K7DSA3I&,+E	R2MNJ* B * B * B 6 N 7UKB7OSU3IWN2 [F+CCT7RGE7UKI+ECS+ACN7ESX3E;R+ACL3SGT3T7E7ESN2MNJ2MNJ* B * B 2 R 3EOS7RCI3T
I3N> 7FB 3AGR7MSE7EOR2MNJ* B * B * B 2 Z 7FSC* 6 6 OU+ECR3CSO+ECD3SKU7RWO3T;I7E^ 3HOI3H6 7USS2 WB2 WD3CGL3RSE2MNJ* B * B * B * B * B * B 6 E7TKE3N3A2 ;I2 T3E6 3A;I6 KP7OKG+A;M6 SI6 OI2 GC3LWLD*M+CB * B * B * B * B * B 2 N 3A3L2 [F+CT3I:,6,CI*,3P7DSA7I^,+G
T7IKE2)F +NCD7RSE3U;RS*M+CB * B * B * B * B * B 6 R +HCE3V3A7UOE2 [O2 T3EZ 3USN3AWM3NGT3LZ 3UON3T?I+NCS7FKO2MNJ* B * B * B * B * B * B 2 T3E& 2-T6 KA3G7U7ESN2 ;I* P*1B)+UCP+TCO3P&(P6)*JCC* B * B * B * B * B * B 3F3O7L
O+ECD+BCY3TWH* 7I+TCH3F;U3C	T+OCN3V3A+UCE+ICN3P&(/PF+")*M+CB * B * B * B * B * B 2 : 6 OI2 T3E: 3UKM+ECR+OCF3A3L2 ?P7ISNS*M+CB * B * B * B * B * B 6 B 2,GD+T3I7WSG6 WM+SCT+BCE+OCF7DWO3BWL6 KP3E	C3S?IN6.*JCC* B * B * B * B * B * B 7DSA3I& 3SF 6 WD7M	M2 GP3
7A3EWT7R^ 3HOI3H& 7SV 3SSE6 OA6 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 * B * B 6 B 6 WM+SCT+BCE+OCF7DWO3BWL6 KP3E	C3S?IN6.*JCC* B * B * B 2 ?W+RCK* B-7WKO3K;I7GN 7TKO3AWG2 [O2 	D3M;E3S?I+N" +I/P*1*)6(CI*+&2*/:22MNJ* B * B *
B * B * B * B 2 ;O2 WR7TKU7N^ 3O/R2 ?C3NGT7ION2 T7EN 3Y7M7EKT+ICC3CWO3F	F3CWIN7T*JCC* B * B * B * B * B * B 7MSA7RI2 [O2 T3E: 3O7R+ACL7EWQ3A	T7OON2 ;I2 ?C7MKP7EOS+ECD7FKOM6,*JCC* B * B * B * B * B * B 3IV.6.V 3PWP7RR 3R;I3G3U+ACR7PKA3T> 7N	L6 SS3OWR3DN 7O
L7M
N3IWS".*M+CB * B * B * B * B * B 6 R +HCE3F3O7L
O3I
N6 CI2 ?P7SSI3I;O3SN 7OSN3A;I2 T7EJ 3IGT*M+CB * B * B * B * B * B 2 " 3ASN2 	S+DCE3ASN2 ?W+RK6(CI*+&12*&(/PJ+.)J/2)N 7OSN3A;IS*M+CB * B * B * B * B * B 6 R +HCE3W	E7GSH+ECD7SWQ3AWR6 WS3M> 7FR +HCE3F;U3C	T+OCN3V3A7UOE2MNJ* B * B * B * B * B * B 2 ?W+RCK7MO
3TJ 3E> 3FR 3OKU+LCE3PWR7COI3I;O".*M+CB * B * B * B 7DSA+IB 2-R 3U7M3YV 7NKT7YR 3ON 3O7M3U	N7CSA3EF 3NF 3RGR3Y: 3AWM2 WB3TWWE7N*JCC* B * B * B * B * B * B 3M	A3N2 3IWN2 ;A7DN 7UKB7OSU3IWN2 [F+C;T2MNJ* B * B * B * B * B * B 2 GD+TCI7MOU3TJ 3E> 3FR 3OKU+LCE
PWR7COI3I;O".*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 * 
 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 7BSE3WWE3N6 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+NCE7DCA+L;L2 SA7DSI3I;O+ACL3C7O3P;O7ESN3S> 3F& +ECR7M	A2 WB2MNJ* B * B * B 2 & 7NKT7OWD3CSE6 	B2 T7EV 7SKE2 ?F3RN 3O7M3U	
7CSA3I;O2 GB+CCK3ASN2 ?F3RT".*M+CB * B * B * B +ICN3T	H3SN 3AWS2," 3OWW7VKE6,R +HCE3UWS3R6 7USS6 CS3E	C+FCY7IKE6 OA" 7A*JCC* B * B * B 2 WV3C?T3R& 3N" +ICS3M	A3N	L+N;E2MNJ* B * B * B 2 V 3XOE3U	T+OCN+OCF3SKU7RWO3T;I3ER 3A3P3L& 3SF 6 KP3EGP7RSA7O	R6 SS+ECP
FKO2MNJ* B * B * B 2 N 3AOL3UGL3T?I3N> 7FR +HCE3L;I7EKA2 WL7ASS6 GS7UKA+ECS7FSI".*M+CB * B * B * B 7NKO3M3A+LCY+ICT+ICS3F3O7L
O+ECD+BCY3EWX7CSU3I;O2 [O6 WS3B?R3U	T+NCE7DCAF7S"J7C*JCC* B * B 3SKU7RWO3T;I+ECS3ASN6 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 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;I3ER 3A3P3LZ(7FSC*,3N+I3P7P^,3O/R2,GD+T3I7IKE")*MC*MC*M+CB * B * B 3D7I7EON3I;O+ECD3D7U+MCY7VKA3IKA7LOE*MBJ* B 2 R 3IWM3N	S+OCN/PF(6)^,3O/R*(&12,GD+TI*12)7IKE*(&1*MB
* B 2 R 3OKU+LCE3PWR7COI3I;O* 3P7WKO3KR,3A	T2,
W3TF,U7X"J7C*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* 
 * 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*=:0D60"J7C*JCC* B * B 6 SS7ASR6 KG7ESA2 ?L+OCP3OWV3RF +LCL7G[I+ECN3P	O7NOT*MBJ* B 2 R /O" . 7I21:,*MBJ* B 2 N 3A3L2 [F+CT3I:,6,CI*,3P7DSA7I^,
G3T7IKE")*M* B * B +IF7IKE*(&1*)29.5&,*MBJ* B 25* "=60*JB * B 2 ?D* B7/KF=6,CIP61*JB * B 6 WA7XB=*(	K2*
WT*M* B * B +DCO262 *=21K*M* B * B 3J*="+61*JB . Z 2 ?W+RK/J6)7WKO3K*(6)B+*(	L6*WAX*M* B * B73C;O3T;IU7E*JB . " 2 ?C3N	T3NWU2MNJ2MNJ* B * B 2 : 3O7R+ACL7RSE3U;R*MBJ* B 69J 7EWTR7N"J7C*JCC* B * B 6 KE7RKO2 WR7TKU3N& 3NN 3AWS2 [O2 ?F3RGM3LV 3R?RR7S*JB . B12
WI/RF(*)6="1*M* B * B 7RSE3U;R*MBJ* B 2 V N7D"JBZ"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"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