File CDTR.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 SCT7R"J7C*JCC* B * B 6 WP3R?PS7E*JCC* B * B * B 2 ?C7MWP7TOE* P+XB)6=B 3RKO3A	B7LSI7YR 7HSA2 T7EJ 3ASN+OCM7VKA3IKA+LCEU6,*
CC* B * B * B 2 	D7SKT7IWB3TSE2 OA7CKO3D;I7GR 7OR +HCE3C	H6-GS7UKA3ER 7ISS3RKI3U	T+OCN7WSI3H^ 2MNJ* B * B * B 2 R 7EKG7EOE2 [O6 KF3ESE+O3M6 OI2 WL+SCS3TGH3N> 3RV 3QGU7LR 7O" *.B 3F^(*,	X6,R H7E*JCC* B * B * B 6 KO3D;I3AWT2 [O2 T3EN +H7I7SWQ3AWR2 WD3N	S+TC
+ACT+XB,+ICS7AOL3ON 7OCM3UWTD6."J7C*JCC* B * B 6 OU3AWG2MNJ* B * B * B 2 N 3A3L2 SC+TR3X^,*,3P3D&,+E	R2MNJ2MNJ* B * B 2 R 3EOS7RCI3T?I3N> 7FB 3AGR7MSE7EOR2MNJ* B * B * B 6 " * B 2-& 7NWP7TN 3C3A+ACR7FKO2 W3IC* P+XB)+ICS3C7O7PSU+E;D2MNJ* B * B * B 2 ^ * B 
-: 3UKM+ECR+OCF3D
E3RWE3S> 3FZ 3RWE3D7O2 [O2 T3EN +H7I7SWQ3AWR2MNJ* B * B * B * B * B 2 R 7ISS3RKI3U	T+O;N2 ^ 6 OI* CA3C;O3T;I7UWO7SB 3AGR7MSE+E;R2MNJ* B * B * B 6 B * B 2-> 7UCT+UCT3P?R3BKA3I	L+T;Y2MNJ* B * B * B 2 R * B 2-> 7UCT+UCT3D;E7SSIY6.*JCC* B * B * B 2 WI+R6 2 WR
S3U3T;A3TV 3R?R3RN 3OWD2 W3EWR2MNJ* B * B * B * B * B 7IKE.=B * 6-2-: 3OV 3R?RR*M+CB * B * B * B * B 2 WI+R6=*16 *-B-+ACN7ICN+UCT7PKA3AWM7TKE6 OI2 ;I3V3A+I;D6 " 6 OI2 WLS7S*JCC* B * B * B * B * B * B * B * B 2 T+ACN.0B.2,> 3R^ 6 OI2 WL+SCS3TGH/NB *.B5+OCR
GWR3AWTR*M+CB * B * B * B * B * B * B * B * B 3TGH/NJ .*B1**"**+&5*.B 3PF +NCD3DF +RCE7SSE2 ?T. F-2.V7*3:8* B * B . B 2MNJ* B * B * B * B * B 7IKE.=F+* 6-2-& 3NGV3LSI6 WO7TWP+TB.* CP+ICS7LOE7SR 3H;A2 WZ+RCOO7R*JCC* B * B * B * B * B * B * B * B 6 KG7ESA+E
R3TGH3N> +N3E6 KO2 WS3RWI3SZ +OCR+TB12(WSE*M+CB * B * B * B * B * B * B * B * B 7MSA3H7E3A	T3C3A2 WD7SKC7ISP3I;O2)" +ACS3F	A3LSE2 ?T2MNJ* B * B * B * B * B * B * B * B 2 N 7O[N3E
R+EB.* CP+ICS7SSE2 ?T* :1.7OE*8B.* B * B * B * B * B * B * B " 60"J7C*JCC* B * B 2 WR7MKAK7S*JCC* B * B * B 2 WS3E6 3AT3EGM3TOI+ACL7DOE3C	R3P	T+O;N2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN3SF +NCD3F;U3C	T+OCN3SKU3P?R3GGR+MCS7RGE7UKIE7D*JCC* B * B * B 2 3D3G7A2MNJ*
B * B * B 2 : 7DKT2MNJ2MNJ* B * B 2 6 3ETO7D*JCC* B * B * B 2 WR7FKE2 ?T* ;R+EB.7BKA3GGM+NCN3ASN* ;S+PB.3G?H+S3H6 SS3A	T3S	T3C3A2MNJ* B * B * B 2 R 7ISS3RKI3U	T+OCN3P?R3GGR+MCS7FKO* CA3C7O7PSU+ECR3L;A3GGU+G3E2MNJ* B * B * B 2 & +BCM7ROE7EKA+CCH7RCE7OSR2 O
.-B1*924. &1*6:32MNJ2MNJ* B * : *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".6."J7C*JB * B 6 WS3B?R3U	T+NCE7CSD7R"(*,3G3PR,2,WIR6)*JB * B 2 ?D3U3B7EB 3ROE3I	S+OCN+X3X7DL7X",22R,/LKX2,
G.,KG2,3D+T233TWH+T3A7TCH"16,*JB * B 213G+G22+D3D/TF12,WS3RN,7C",3IZ,+A3C3T?L7GR,3E7R6,SG3HF,22F,*,3B3CR,+T22/DOT2,TP7I"J7C*JCC* B * B 2 WT+SCT7FKO2 GV3LSI2 ;I7PSU2 GDT7A"J7C*JB * B 2 [I*(7G.(V.*-:1/EV-*)B).5B9.,B1.,B1*MBJ. F 20& 3F^(*-:2/EV+.)J .0J,.0V,"
60*JB . B22 [I*(	X. &5.0N,.0N,"0*MC*M+CB * B * B 7TOE3TZ +OCR3X: 7EKA* :0"0*MC*M* B *3B0+IF/XF-*.7E*8B)*420*420"860*JB . B4. 7P.0B.*MBJ* B 2 & 3F^(*-:2.)V .0Z,.0^,"0*M* B *5B0/DF=2.V7*3B8* B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B 
 B * B * B * B . B *MBJ* B 2 ^ 7OR /OZ "160*JB . B6. 7D.0V.*MBJ* B 2 ^ 7OR /OZ "160*JB . B7. 7D.0B.*MBJ* B 2 ^ 7OR /OZ "160"J7C*JCC* B * B 2 WT+SCT7FKO* CX3GWR3AWT7RR 3H;A* :1/EZ+2MNJ*MBJ. " 20& 7F"(*-:1/EZ+.)F *020.1B0.,B9*MBJ. & 20R *=:0"0*M* B * B /PF=
.60*JB * B 2 ?G2 ?T. F6"0*MC*M+CB * B * B 7SSE6 KP7OKG+ACM7PKA3AWM7TKES*MC*M. F *0B0/X7X3D3B7E"(")*M* B * B 7DL3XR=3L
O6(X")*M* B * B /X62+X?X22R."0*M* B * B 7DL22R=3L
O.(KX")*M* B * B /G7G3D3B3E^(")*M* B * B /G62+G?G22R."0*MC*M+CB * B * B 3C7O7PSU3E> 3R	D7NSAE*MC*M* B * B 3C3A3LR 3LGG3M^(22^,/LKG2,?IK6)*JB * B 2 SD2=^(.2F-..CD2)R*7LX.-KX.-KG.*Z..9F3.4F7.8V0.5&9.4N52 ^-/LKG*MBJ* B 2 & 3FR(/DF-.."6/DJ0.)F *120.1B1.,J1"0*
. F *1B0+IF+D/D.1Z..8CD*2B).1B3.,N1.0F,"460*JB .1B2. 7D.1^./E"3* B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B "0*M* B * B +GCO+TCO.1B5*MBJ. N120R *=:0"0*M* B * B +GCO+TCO.1B5*MBJ. R120R 3DR=7ECX2(SD")*M* B * B 7DN=
N3G2(SD")*MC*M+CB * B * B 7TOE3TZ +OCR3G^ 3RGE7TKE2 T+ACN.1B0.0B.2MNJ* B * B 6 R 7ESS2 ?F7R" 6 KG7ESA+ECR3TGH/NJ .0B0".60"J7C*JB .1B52 [I*(7G.1B0*0&.. Z1.0F,*620.1B8*MBJ. Z120& 7F"(.-B2*0:0.)F *920.1B9.,^1"0*M. F *7B0/PF=".60*JB * B 2 ?G2 ?T. F6"0*M. F *8
03AR=3L
O6(X2/
G.)N/..CD*MBJ* B 2 F 2=WD+XPA6)*JB * B . 7B22R.*0"/29R.20^*G6)*JB * B . 7C*(7A21R.20J+2)R/7SKQ3TJ(")*M* B * B /S7C3S
N3LN(")*M* B * B 3C3A3L: 7DKT2(OS*,3P3D7U+M	Y*MBJ* B 2 ^ 7OR /OR "960"J7C*JCC* B * B 2 ?C7MWP+TCE3TWHT7A"J7C*JB .1B9. 7K2 SI7ISN.(KG")*M* B * B 3TWH/T7A+G623D3F7OSA*(	K*MBJ* B 2 & 7FR(7HSE/AF-*.7D*8B).2B0.,B2.0J,"160*JB .2B02 T3EGT*=:0D60*JB .2B12 T/P613T
H+T/A21R."0*MC*M+CB * B * B 3S3E7ESC2 WM3T?H3D> 3FN 7OCM3U	T+NCGT61"J7C*JB * B 2 [I2(T3EGT.)J *320.2B3.,J2"0*M. J *2B0+IF+X7X*1:0+D&0. Z2.0J,*620.3B22MNJ2MNJ* B * B 2 N 7OCM3UWT. GT2 ?F7RR 7HSE3AV 3QGU+LCS.0B.2MNJ*MBJ. N220& 7F"(.2F-.."6/DJ0.)J *520.2B4.,
2"0*M. J *4B0/T61.1B.*MBJ* B 2 ^ 7OR /OR "060*JB .2B5. GT.1F=..CD2-WD+XP.-KX")*M* B * B /T613S
N7LR(*1&1*MBJ* B 2 ^ 7OR /OR "060"J7C*JCC* B * B 2 ?C7MWP+TCE+TB17FKO2 T3EGT6 KG7ESA+ECR3TGH/NB *.B03ASN2MNJ* B * B 6 " 2 WL+SCS3TGH3N> 3RV 3QGU7LR /OF .0B.2MNJ*MBJ. Z260N /E7R+X*2*(:1+D>07TCH*16 +X>22(T+P.121R.*0&)*MBJ* B 2 * .=F+*MBJ* B 2 N 3CR=3F?L+ATJ
)*JB * B 2 ?D. ^220& /T61.3N,"0*M* B * B /X7I3D3F7OSA6(SI"16)*JB * B 2 GC+LCL3D
L+AM+X3I3FOA2,?IK6)*JB * B 2 3T/O7G2 	X2*3D+X623FOA2-3D+OG+X/I3TWH+T	A*MBJ* B 6 R 3E7R2=WD+XP3T?LG6)*JB * B 2 WT/R7M3D	S+GN7TKE3MN,C6)*JB * B 2 WS7RN=+E/R7TKEM*M* B * B /C7C2-OC*MBJ* B 2 & 3FR(7AOB2(WT+R	M*-:1/D&-.)J *820.2B7.,^2"0*M. J *7B03C;O3T;IU7E*JB
* B 2 ?G2 ?T. B6"0*M. J *8B0+IF7SKE.)Z *020.6B0.,&2"0*M. J *9B03C3A3LR 3LGG7MR(/HGP6,SG3H&,+O	K*MBJ* B 6 R 3L
O2=T3EGT2*3D+X.23D?L7GN(+E	R6-SGH*M* B * B +IF3T?L/GF+.."6/DJ0.)N *020.3B0.,F3"0*M. N *0B0/T61.0B.*MBJ* B 2 ^ 7OR /OR "060*JB .3B1. GT21R=7ECX2(3T+O	G*MBJ* B 6 R 61N=3N3G.(GT"16)*JB * B 2 ?G2 ?T. B4"0*MC*M+CB * B * B 3C7O7PSU7ER 21Z +OCR3TWH+TCA3GWR3AWT7R
 3H;A* :020F N7D*JCC* B * B * CX3GWR3AWT7RR 3H;A. B1*.B03ASN2 WL+SCS3TGH/NJ .0B0".60"J7C*JB .3B2. KA*=:0D60*JB * B 2 ?D. R320& *=21"265*JB * B 2 	X2=[D3LGO3T&(")*M* B * B 3C3A3LR 3LGG7MR(/HGP6,SG3H&,+O	K*MBJ* B 6 R .161.-F(23R.60"*+X>)+XCI2+T+P*13D?L/GF(2
R.60"*7X"/+IB)6-SG3HR-3L
O2(	X")*M* B * B +IF/TF1*+:126R8*0&2. R3.0N,*420.3B3*MBJ. N360R .1617DE7PR(*1&1*MBJ* B 2 F 22F=62R+"161*JB .3B42 ?C3N	T3NWU*MBJ* B 2 F *=:1.0J1.8B2*5.13TWH+T?A.1Z5..CD6-X./F322R."0*M* B * B 3BR=7AOB*(	A*MBJ* B 2 N *=6 +X.27TCH21R*/LKX2+3D+OG+B6)3GT*-:3.9F
.2N4.7"1.5F8.4^2*MBJ* B 2 & 3FN(*+:126R8*0&2. ^3.0N,*720.3B5*MBJ. V320& +F" +AB).3B6.,^3.0N,"860*JB .3B6. 7C2-WD+XPC6)*JB * B 2 ?G2 ?T. &3"0*M. N *7B0/CB=..CD*MBJ* B 2 ^ 7OR /ON "960*JB .3B8. 7C7DE3PN(")*M. N *9B03CF=22N+*MBJ* B 6 R .16121R.20N-*MBJ* B 6 
 61N=3N3G.(GT"16)"J7C*JCC* B * B 2 WS3LOE7TB 7RCO+ECR7ECX7ROE3S?I3NZ +OCRP*MC*M. R *0B0+IF/GJ-*.B).4B2.,F4.0R,"160*JB .4B12 [I*(7G*4&.. V4.0R,*620.4B62MNJ2MNJ* B * B 2 N 7OCM3UWT* CP7FKO* CG3GWR3AWT7RR 3H;A2 WZ+RCO3ASN2 WL+SCS3TGH/NJ ".60"J7C*JB .4B22 GC+
CL3D
L+AM7TCH21^,+T3H3I/O")*M* B * B /DKT2=T3EGT2*3D+X7X+X627TCH*1:*.6N9.1^4.1B8.5&5.9V4*36 3GT*MBJ* B 2 & 3FR(+T.2.1Z..8CD*2B).4B3.,N4.0R,"460*JB .4B3. 7PT61*JB * B 2 ?G2 ?T. &4"0*M. R *4B0/DKT2=WD+XP/DKT")*M* B * B /T623S
N3LR(+T&2*MBJ* B 6 B .=GT.+KT.+KT*MBJ* B 2 ^ 7OR /OR "960"J7C*JCC* B * B 2 ?C7MWP+TCE3PZ +OCR3G^ 3RGE7TKE2 T+ACN+OCR7EWQ+ACL+TCO.2B.2MNJ* B * B 2 F +NCD7LOE7SR 3H;A* :4"0*MC*M. R *5B07PR="1*M* B * B +GCO+TCO.4B92MNJ2MNJ* B * B 2 N 7OCM3UWT* CP7FKO* CG3GWR
AWT7RR 3H;A6 KO6 GE3U3A2 ?T* :4"0*M+CB * B * B 3ASN2 WL+SCS3TGH3N> 3RV 3QGU7LR /OF .0B0".60"J7C*JB .4B66 SD.3B=..CD*MBJ* B 2 R /OR *8B0/I6322.,*MBJ* B 6 R 3H	P2=[D3LGO3T&(*3.)3TWHT7A*JB * B 2 GC+LCL3D
L+AM7TCH3I^,+T3H3I/O")*M* B * B 7DSL63R=3H	P2*3D+X627DL7X"-22^-T7H*JB * B 2 [I2(3D+T.3.1Z..8CD*2B).4B8.,"4.0R,"760*JB .4B76 SD23R=+T.37DE3PR(/LOT")*M. R *8B03C;O3T;IU7E*JB * B . OT2=;S+GL/DOT")*M* B * B 7PR=61R-63R-"3*MC*M+CB * B * B 7SSE6 KE7RKO2 ;I3DOI3
?TR*MC*M. R *9B0+IF+PB).5B0.,J5.0V,"260*JB .5B02 [I2(KA7SB(.)F-*.7E*7B).5B1.,F5.0Z,"060*JB .5B1. 7P.0B.*MBJ* B 2 ^ 7OR /OZ "160*JB .5B22 [I*(:1*-	P. N5.0V,*520.5B5*MBJ. N520& 3FF(+BS*16.+P6)21V.*-&7. R5.0V,*420.6B0*MBJ. R560B *=:1"0*M* B * B +GCO+TCO.6B1*
BJ. V520& 7FB(*-:1/E"-.)V *620.5B6.,^5"0*M. V *6B0/PB=".60*JB * B 2 ?G2 ?T. F6"0*M. V *7B0+IF*(:160B-.)F-*.7E*8B).5B8.,"5.0Z,"160*JB .5B8. 7P.1B.*MBJ* B 2 ^ 7OR /OZ "160*JB .5B92 WI+R6="1*M* B * B +D6=.1^./E"3* B * B * B * B * B * B * B * B * B * B * B * 
 * B * B * B * B * B * B * B * B * B . B *MBJ* B 6 B .=F-2.V7*3B8* B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B " 60*JB * B 2 ?G2 ?T. J6"0*M. Z *0B07IKE.=F+*MBJ* B 6 B .=F 2.V7*3B8* B * B * B * B * B * B * B * B * B * 
 * B * B * B * B * B * B * B * B * B * B * B " 60*JB * B 2 ?G2 ?T. J6"0*M. Z *1B07IKE"=60*JB .6B22 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"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