File DTLAP.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 SD7LCA2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 2 F 2 WS3RWI3SV 3XGP3N	S+OCN+ICN3L
A7UKE+RCE3P3O3Y?N3MGI+LCS7WSI3H& 3NWD3P;E3D;ET*M+CB * B * B * B 7VKA3IKA+LCE3X& 7SR 3R;A3S?F3RWM7DR 3OF 2 ?P3L;Y3O	M+ACL7WSI3H& 3NWD3P;E3D;ET*M+CB * B * B * B 7VKA3IKA+LCE+ZB,3WWH+RCE3XF=**/ZB*MC*M+CB * B * B 3UGSG7E*JCC* B * B * B 2 GC+LCL3D3T+AP3AJ,2,?P
L:,*,3C7WKOK6)"J7C*JCC* B * B 2 WD7SKC7ISP3I;O2 [O2 GP3R7A3EWTR7S*JCC* B * B * B * CA* B * B-3FOA7TKO2 [O2 	L3NGE7RR 3E7R2 ;I2 	G3V;E2 	L3NGE7RR 3R;A3S?F3RGM3T?IN*M+CB * B * B * B * B * B 2 R 3OKU+LCE3PWR7COI3I;O2 GV3RGI3BWL2MNJ* B * B * B 2 J * B * 6 2 ?
7NSS7ASN2 WT+RCM+ICN7G[I+ECN3L;I7EKA6 KT7AON7FKO7MSA3I;O2MNJ* B * B * B * B * B * B 2 ?D3U3B7EB 3ROE3I	S+OCN7VKA3IKAL7E*JCC* B * B * B 2 ?P+LB * B-3CWO3F	F3CWI+NCT3VOE7TKO2 [O2 ?P3L;Y3O	M+ACL2(WR3S3U3T;A7TZ 7AWLE6)*JCC* B * B * B * B * B * B 3CWO3F	F3CWI7
OT6 KA3E> 3RWD3RSE6 KF+OCM7L
O2 ?T2 	HG7H*JCC* B * B * B * B * B * B 7DWO3BWL6 KP3E	C3S?I7NZ 7ESCO7R*JCC* B * B * B * CN* B * B-3D7I7EON3I;O2 [O2 ?C3E[F3I	C7ESN2 WV3C?T+RCS3P3O2 ;A3DN 2MNJ* B * B * B 2 N * B * 6 2 	G3V;E2 ?C3E[F3I	C7ESN2 WV3C?T3R> 3FV 3XGP3N	SO7N*JCC* B * B * B * B *
B * B 3CWO3F	F3CWI7NOT6 KA3E> 3RWD3RSE6 KF+OCM7L
O2 ?T2 	HG7H*JCC* B * B * B * B * B * B 3P3O2 ;A3DN 2 GM3YJ 3E& 3D;E3TOI3A3L3Y2 3OGC3TSE2MNJ* B * B * B * B * B * B 2 ?D3U3B7EB 3ROE3I	S+OCN3VOE7TKO2MNJ* B * B * B 6 ^ 3O/R* 6 2 ?W3R	K+NCG3S?T3R
A3E> 3FR 3IWM3N	S+OCN22:*2MNJ* B * B * B * B * B * B 2 ?D3U3B7EB 3ROE3I	S+OCN7AKRA7Y"J7C*JCC* B * B 2 WR7MKAK7S*JCC* B * B * B 2 ?C3E[F3I	C7ESN2 WV3C?T3RN 2 WR3M	A+NCS3UON3H;A3GSE2 [I2 ?N3TN 3O;I3CSI3I
N2MNJ* B * B * B 6 ^ 3IT2 ?C3E[F3I	C7ESN2 WV3C?T7RB +O;L2MNJ* B * B * B 2 > 7PKE3A	T+OCN+ICS7BCY7AOS+ECD+ICN7COA3E: 2 WL+SCS3TGH/NF ".*M+CB * B * B * B 3TWH2 	L3NGE7RR 3R;A3S?F3RGM3T?I7N" *=+A3ZJ+6 KO. 7Z*(>1+A")3XJ-6)R 3R;A3S?F7ROM2MNJ* B * B * B 6 R +HC
3R;A+GCE*(20+CB)+ICN7XR 7OR +HCE3R;A+GCE2(3Z6,KZ2)& 7N* 6,^ 7HKEE*M+CB * B * B * B /Z7L*-?B3AF +NCD/Z7R*(7C+B>)A6.*JCC* B * B * B 2 ?F3R^ 3IWV7N* +LB,+ZCR3ASN* CC+WCE7H[A3EF *=?C6(KZ2-3Z2)F N7D*JCC* B * B * B . 7B*-+C+Z?L6(KZ2-3Z")*MC*M+CB * B * B 3SKU7RW
3T;I+ECS3ASN6 WF7NSC3I;O6 WS7BKP7OKG7AOM2 WR3Q	U3RSE2MNJ* B * B * B 2 : 3OWN2MNJ2MNJ* B * B 2 6 3ETO7D*JCC* B * B * B 2 T7ER 3R;A3S?F3RGM3T?I3N& 3SJ 3AWS3D> 7NR +HCE3ROE7UKR3EON3EV 3QGU3T?IN*M+CB * B * B * B 7FKO2 GL3GWU3RWR2 ?P3L;Y3O	M7AOL* L7N",")*M+CB 
 B * B * B 3L:(*+21/X6)222**(3N+X6)3L:(*-21+X6).(F(*+	X**L7N",2)2-*(7N61",*)>)*(/N*12)2MNJ* B * B * B 6 ^ 7HKE7ER +HCE7FKI+SCT7TKE3M& 3NJ 3ROA7KSE3S& 7SR +HCE3ISN+E3X2MNJ* B * B * B 6 R +HCE3SOE3OSN6 OI2 T3EF 7RWG3M;ET6.*JCC* B * B * B 6 SS7ASR3I
N2 GV3LWU3SF +RCE/LB(*,	X*=21* L61",.)F=*-;X2MNJ* B * B * B 6 R +HCE3TGR3N[S3O7R3A	T+OCN+ICS7ICM3LOI3I3T3YR 3E	F3NSE6 	B2 WM7AON2 [O2MNJ* B * B * B 6 " *=+A3ZJ+2 ?T7GSE7HKE2 	WT7H*JCC* B * B * B 6 WS7MB(+OL+I*)+Z***(7I*12)6 WS3MWM3D> 7VKE* CI3F?R/MF 2 ?T*
	N2MNJ* B * B * B . 6 3S7U*(C+I*)3L&(*-21+X2)6 WS3MWM3D> 7VKE* CI3F?R/MF 2 ?T* 	N".*MC*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ*MBJ* B 6 N 7UKB7OSU3IWN6 SD7LCA*(3A7BB,+O3L3NN,2,?W+R	K2MNJ*MBJ* B
2 R 3IWM3N	S+OCN3P3O*(&1*,C*12)7WKO/KF(")*M* B * B 7DWO3BWL6 KP3E	C3S?I3NF *,3B3P3O*,3C7WKO3K",*,3P7QF,61F,22Z,I*MC*M+CB * B * B 7TOE3T> 3FR 3IWM3N	SO7N*JB * B 2 [I*(7N.1J)*,21"3*MC*M+CB * B * B 3D7I7EON3I;O2 WL+SCS3TGH/NJ *MBJ* B 61B +OL.16)/CF(")*M* B *
B27RSE3U;R2MNJ*MBJ* B 63B +OL.16)/CF(2)N+*(&2*-+B/CJ(")*M* B * B 3P3O*(&22=N-*(&2"*7A*JB * B 2 [I*(7N.2J)*,22"4*MC*M+CB * B * B 3I	N3TGI7L+I3A	TO7N*JB . R 2 ?W+RK.16)21R."0*M* B * B 7WKO/KJ(.)F=..CD"-7B*JB * B 2 ?W+RK.36)20R."0*M* B * B 7WKO/KR(*)6=A*M* B
* B /F7I21R."0*MC*M+CB * B * B 3C3A3C3U3AWT2 ?C3E[F3I	C7ESN2 WV3C?T3R> 3F: 7ESX2 GL3GWU3RWR2 ?P3L;Y3O	MA7L*JCC* B * B 2 ;A3DF +DCD3M3U7TCI+LCE+OCF3T	H7SZ 7ESC+OCR+TCO3P3O3Y?N3MGI7LB O7L*JB * B 2 ?D* B6/JN=",7N*JB * B 2 	F2=	F*+:1D60*JB * B . 7Q21R.20Z/I*M
 B * B /Q61/QF-..CD*MBJ* B 6 F .2F=..CD.-GQ*-+BQ*M* B * B 7QF="*7A*JB * B . 7P20R."0*MC*M* B * B +DCO25. *=22J*M* B * B +H6=7PF*2+?W+RK22.**-&2.*KQ2+?W+RK22.**-&3.*GQ*MBJ* B 6 B 2=?W+RK22.**-&2*MBJ* B 6 ^ 3O/R*(*2/KJ-2)"=*MBJ* B 6 ^ 3O/R*(*2/KN-6)B=*MBJ* 
 65B +OL/KF-6)B=+OL/KF-2)"+**CJ6)*JB * B 2 ?W+RK22***-&1*=:0D60*JB * B 2 ?W+RK22***)6=7QB**MBJ* B 66B +OL/J6)3C*(6)^*3O/R*(*2J6)*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

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