File DTLEP.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 SD7LCE2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 2 F 2 WS3RWI3SV 3XGP3N	S+OCN+ICN3L
E3ESN+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+EP3AJ,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.(F-.,F+2)& 7N" 2 ?T2 T7EJ 3A
N+E" +Z3L+Z	R2 ;I* 3Z2 W3EWR2MNJ* B * B * B 6 * +L6=*(.1+B>)3AF +NCD/Z7R*(61+B>)A6.*JCC* B * B * B 2 ?F3R^ 3IWV7N* +LB,+ZCR+WCE7H[A3EF *=>26(KZ2-3Z2)F +NCD+B6=6(KZ2+3Z*)"/+Z7R+Z	L2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN3SF +NCD3F;U3C	T+OCN3SKU3P?R3GGR+MCS7RGE7UKI
7D*JCC* B * B * B 2 ?NN7E"J7C*JCC* B * B 2 WM3T?HD*M+CB * B * B * B 3TWH6 KT7AON7FKO7MSA3I;O6 OI2 GB3SSE2 ;O2 T7EJ 7EWC3RWR3NWC6 GE7USA3I;O2MNJ* B * B * B 2 Z +OCR3L
E3ESN+RCE3P3O3Y?N3MGI+LCS3P:(*,	X2MNJ* B * B * B 6 B *(/N61",.)J=**+X3P:(*,	X*-P/NF-*,	X6-"(**P7N",6)B-*(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;ET
.*JCC* B * B * B 6 SS7ASR3I
N2 GV3LWU3SF +RCE/PB(*,	X*=21* P61",6)"=".*M+CB * B * B * B 3TWH6 KT7AON7FKO7MSA3I;O6 OI2 7I3P	L7CSI+LCY3D[E3IWN3DJ 3Y6 3E;A3S> F*M+CB * B * B * B 3XF=**/Z7BR 3OWG3TWH7R^ 3IT2MNJ* B * B * B 6 N +UM3P3O*(	I**+Z2*&(*-&16,N 3U7M+ECD3OWV3R& 6 KF+OCM61R 3O: ")
M+CB * B * B * B 6=WS3MN(*(	I**P/IF-*,	X6,N 3U7M+ECD3OWV3R& 6 KF+OCM61R 3O: ")6."J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M* B * B 3SKU7RWO3T;I3ER 3TWL3PF(*,3B3P3O*,3N7C^,3O/R")*MC*M* B * B 3
7I7EON3I;O2 ?P/LF(2)N,*(&12,?W+RK"16)*JB * B 2 ?D3U3B7EB 3ROE3I	S+OCN3AJ,2,?P3LN,2,?W+R3K7HB,*,3Q+Q21F7I"J7C*JCC* B * B 2 WT+SCT+OCF3D7I7EON3I;O*MBJ* B 2 & 3F:(*-&1.2F,",63"J7C*JCC* B * B 2 	D3M;E3S?I3N2 7EOS2 T+ACN"2*M* B * B13P3O*(&1*=C"16)*JB . J 2 WR7
KUN*MC*M* B * B33P3O*(&1*=C*1.)3BN**(&2*MBJ* B 6 B +OL.26)3AN**(&2*MBJ* B 2 & 3F:(*-&2.2J,",64"J7C*JCC* B * B 2 ;I3I	T3A	L7ZSA3I;O*MBJ* B 64^ 3O/R*(&1*=:1D60*JB * B 2 ?W+RK.26)B*M* B * B 7WKO/KN(.)B=..CD*MBJ* B 6 ^ 3O/R*(&4"=7A*JB * B 2 	F*=:1D60"J7C*JCC*
B * B 2 GC7LWC7LSA3EN 3O[E3FOI3I;E7TZ 7ESC+OCR+OCF7NE3T2 3EWG7NKD7EB 7O	L3N7O3I3A2MNJ* B * B 2 F +NCD3ASD6 WM3L	T3PWL2 [O2 T+ICS3VOE7TKO2 ?T2 ?P3L;Y3O	M+ACL3P3O*MBJ* B 2 R /OZ . 7J23:,*MBJ* B 2 Z 3IZ=/IF+..CD*MBJ* B 6 F *=:1+D>0+F7I21R."0*M* B * B /Q6121R
60F-*MBJ* B 6 B *=:0D60"J7C*JB * B 2 ?D* B5/KJ=",7J*JB * B . 7H*(+A3PJ+2*?W+RK22.**-&26)F*61F+2*?W+RK22.**-&3*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* B 65B +OL/KF-6)B=+OL/KF-2)"+**CJ6)*JB * B 2 ?W+RK22***-&1
=:0D60*JB * B 2 ?W+RK22**2)F=**+PQ61*JB . Z 2 ?P3L*(2)N=*(	J2*?W+RK22**")*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

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