File DRTMI.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 KD3T	M2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 6 R 7ON 7O[L3E^ 3EWN3R3A2 ?N3N	L3NGE3RV 3QGU3T?I+NCS+OCF3TWH2 ?F+RCM7FSC
(	X"=60*JCC* B * B * B 6 	B2 WM7AON2 [O6 WM3E3L+E7R3S& 7TKE3A	T+OCN7MSE3HSO".*MC*M+CB * B * B 3UGSG7E*JCC* B * B * B 2 GC+LCL7DSR+MCI*(3X3FZ,+C3T3X	L6,KX3IV,+P3S3I;E3D&,+E	R2MNJ* B * B * B 6 B 3AGR7MSE+ECR7FSC2 WR3Q	U7ROE2 ;A6 E7TKE3N3A6 SS3AWT3M;ET6."J7C
JCC* B * B 2 WD7SKC7ISP3I;O2 [O2 GP3R7A3EWTR7S*JCC* B * B * B * CX* B * 6 2 ?D3U3B7EB 3ROE3I	S+OCN7ROE7USL7ASN2 ?R+OCT+OCF7EWQ3A	TO7N*JCC* B * B * B * B * B * B 2 OF7T"(.)B=".*M+CB * B * B * B +FB * B * B-7DWO3BWL6 KP3E	C3S?I7NJ 7EWS3LGT+NCT3F;U3C	T+OCN3V
AU7E*JCC* B * B * B * B * B * B 6 SA2 ?R+OCTX6.*JCC* B * B * B 2 OF+TB * 6 2 GN+MCE+OCF3TWH6 E7TKE3N3A2 ?D3U3B7EB 3ROE3I	S+OCN3F;U3C	TO7N*JCC* B * B * B * B * B * B 6 WS7BKP7OKG+ACM3UWSD6.*JCC* B * B * B 2 3X+IB * 6 2 ?D3U3B7EB 3ROE3I	S+OCN7ICN+UCT3V3A+UC
3W	H+CCH3SWP3C[I7IOE2 TE*M+CB * B * B * B * B * B * B 3I	N3TGI3L2 7ESF2 ?B3USN2 [O2 T7EJ 7OSO* ;X2MNJ* B * B * B 6 " +RCI* B 2-R 3OKU+LCE3PWR7COI3I;O2 ;I7PSU2 GV3LWU2 W3IC6 CS3E	C3FWI7SR H7E*JCC* B * B * B * B * B * B 2 ;I3I	T+ACL3R
I+HCT7BWO+NCD+OCF3TWH2 ?R+OCTX6.*JCC* B * B * B 6 CE+SB * 6 2 	S3N3G7EB 3ROE3I	S+OCN7ICN+UCT3V3A+UCE3W	H+CCH3SWP3C[I7IOE2 TE*M+CB * B * B * B * B * B * B 7UCP+ECR7BWO+NCD+OCF3TWH6 KE7RKO2 [O2 WR3S3U7T" ".*M+CB * B * B * B 3I;E+DB * B-7MA7IWM3M: 3UKM+ECR+O
F3IWT7RSA3I;O6 SS7EOP6 CS3E	C3FWID6.*JCC* B * B * B 2 WI+RB * 6 2 WR3S3U3T;A3TV 3R?R7RB 3AGR7MSE+ECR3CSO+ECD+ACS3F3O7L
OS*M+CB * B * B * B * B * B * B 2 WI/RB=* B-+NCO7EKR+O3R2MNJ* B * B * B * B * B * B * B 7IKE*=B12-: 3ON 7O[N3E
R3EON3EF 3FWT3R& 3ESN6 SI3EGR3T?I7NN 7TCES*M+CB * B * B * B * B * B * B * B * B * B 3F3O7L
O+ECD+BCY3I;E7DN 3UOC7EOS3IWV6 SS7EOP2 [O2MNJ* B * B * B * B * B * B * B * B * B 2 J 3IWS3C	T+O3N2MNJ* B * B * B * B * B * B * B 7IKE*=B22-J 3A	S3CF 7SWS7MSP3I;O2 OF7T"(+L	I2*OF7T"(+R	I2 WLS7S*JCC* B * B * B * B * B * B * B * B * B 2 T+ACN+OCR7EWQ+ACL+TCO
ZKE3O& 3S: +OCT7SSA3I[S3ISE".*MC*M+CB * B * B 3R7E3A/RS*M+CB * B * B * B 3TWH6 KP3OWC7DKU3EF 7SWS7MOE2 T+ACT3F;U3C	T+OCN3V3A7UOE6 SA2 ;I3I	TA7L*JCC* B * B * B 2 ?B3USN7S" +LCI3ASN6 KX3I" 3AWV2 ?N7TR +HCE3S7A7EN 3I;G2.& 7FR 7HOI2 GB3SOI2MNJ* B * B * B 2 F 
SWS7MSP3I;O6 OI2 ?N7TN 3A	T3S	F+ECD+BCY7ICN+UCT3V3A7UOE2 3X3IF +NCD3X	R6,R H7E*JCC* B * B * B 6 KP3OWC7DKU3E& 3SJ 3YGP3SWS3DF +NCD7G[I+ECS3TWH6 KE7RKO2 WM3SGS+GCE7IKE*=:22MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN3SF +NCD3F;U3C	T+OCN3SKU3P?R3GGR+MCS7RGE7UKIE7D*JCC* 
 * B * B 2 T3EV 3XWT3RGN3LR 3OKU+LCE3PWR7COI3I;O6 WF7NSC3I;O6 WS7BKP7OKG+ACM7FSC*(	X2MNJ* B * B * B 2 6 7USS2 WB6 WF3R	N3SWH3DJ 7YR +HCE3UWSR6."J7C*JCC* B * B 2 WM3T?HD*M+CB * B * B * B 3S3O3U	T+OCN+OCF7EWQ3A	T+OCN7FSC*(	X*=B0+ICS3D;O3EJ 3Y6 3E;A3S> 3F6 3
3E7LKE"-7S*JCC* B * B * B 6 SI3EGR3T?I3N6 3ET+OCD+OCF3SOU7COE7S[I3EJ 3IWS3C	T7OON2 ;A3D& 3NWV3RWS2MNJ* B * B * B 6 B 3AGR3B3O+ICC7ISN7ECR3OGL3T?I+NB,3W	H+CCH3SGT7ROT6 SA2 T3E& 7NSI3I3A2 ?B3USNS*M+CB * B * B * B 3X	L2 ;A7D" +R;I2 ?C3NWV3RWG3NWC6 OI6 WQ7AKD
A	T3C& 7FR +HCE7DKE3IGV7T[I3E> F*M+CB * B * B * B 7FSC*(	X6 SA2 ?R+OCT3X& 3S: +OCT7EWQ+ACL+TCO7ZKE+OB.3OWN6 SI3EGR3T?I7NN 7TCE2MNJ* B * B * B 6 J 7EWQ3IWR7SR +WCO3EGV3LGU3T?I+NCS+OCF7FSC*(	X2.Z +OCR7TOE3T> 7NN 3A	T3SGF3C?TR7Y*JCC* B * B * B 2 OA7CKU7A	C2 
S3EZ 3O7R3UGL+E" .3R,2)> 3F6 3AT3EGM3TOI+ACL7DOE3C	R3P	T+O;N2MNJ* B * B * B 2 Z +OCR3R[E3EWR3NWC6,N +ECE+GB.+KB.3K	R3S	T7AON+E3N2 WZ+RCO+OCF3AKR7IKT7A	R2MNJ* B * B * B 2 Z 3UON3T?I+NB,7BSI6,Z +O;L* B3.(&1*6&36,B /PJ.*065.2Z0".*MC*M+CB * B *.:.*.:.*.:.*.:.
.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ*MBJ* B 6 N 7UKB7OSU3IWN6 KD3T	M*(3X3FZ,+C3T3X	L6,KX3IV,+P3S3I;E3D&,+E	R2MNJ2MNJ*MBJ* B 2 R 3OKU+LCE3PWR7COI3I;O* 3X3FZ,+C3T3X	L6,KX7I",7L",3RZ,3LZ,7RR,+O3L3T3O3FF,6,D2,7X2,7F2MNJ2
NJ* B 6 B 7RCE3AWR6 SI3EGR3T?IN*M* B * B 7IKE"=60*JB * B 2 3X2=3XI*M* B * B /X7R3X	R*MBJ* B 6 " 2=3X*MBJ* B 6 R /O7LX*M* B * B 3FZ=+CT3T3O")*M* B * B +IF/FF).,Z1",61*JB . F 2 3F"=7F*JB * B . 7XX7R*JB * B 2 ?T7L"=*MBJ* B 2 Z 2=OF7TR(+O	L*MBJ* B 2 & 3FZ(*)2
*126"2*M* B * B2/F7RF*M* B * B +IF3D	S+GN21R.20Z,+L.)3D	S+GN21R.20Z,+R&)*225.3J,"5*MC*M+CB * B 7BOA+ICC7AOS7UCM3T?I3NZ 3LZ*3R2 7EOS2 T+ACN20& 7SN 3A	T3S	F+E;D2MNJ* B 2 ^ 3EWN7RSA7ER 3OWL3R;A+CCE7FKO6 WF7NSC3I;O2 GV3LWUS6.*JB . N . 7I"0*M* B * B 3T3O/FF=*0
06*CES*MC*MC*M+CB * B 3SGT+RCT3IWT7RSA3I;O2 ?LO7P*JB . R . 7I/IF+2MNJ2MNJ* B 6 N 7TKA3TJ 3IWS3C	T+OCN3L?OP*M* B * B +DCO*1B3/KF=2,WIN7D*JB * B . 7X2.R5*0"*+X/L+X	R*MBJ* B 6 R /O7LX*M* B * B 3FZ=+CT3T3O")*M* B * B +IF/FV).,Z1",65*JB . V 2 [I6(OD3I;G*(:1+D2
+F.)3D	S+GN21R.20Z,+R&).7Z,",67"J7C*JCC* B 2 ;I7TKE3CGH3NWG2 3X2 ;A7D" 3R& 3N> 3RWD7RR 3O^ +ECT3TWH2 GS+MCE3S
I3N& 3NZ 2 ;A3DZ R*M* B * B63T3O2=3X*MBJ* B 6 " 7L"=R*M* B * B /X7R3T3O*MBJ* B 6 R /O7LF7L*JB * B 2 3F6=KF*MBJ* B 2 Z 7RR=O7L*JB . ^ 2 ?T3LZ=2-3F*MBJ* B 2 F *=+F3T3O*MBJ* B 2 F *=/AA*M* B * B +IF3AZ-+R"*+F7R+F	L*)28.9&,*MBJ* B 28& 3F&(2-WI+N	D*127*127"9*M
 B * B9/X7RX*M* B * B /F7RF*MC*M+CB * B 7TOE3T> 7NN 3A	T3SGF3C?T+RCY3AOC3UGR+CCY+ICN7BOI7ESC3I;O2 ?LO7P*JB * B 2 ?T3LV=P7S*JB * B . 7A3DKA7S"(R6)*JB * B 2 [I*(7A21R..0F).1F,.1F,"0*M* B *1B03T3O2=?T3LF**MBJ. F 21& 3FR(7AOB6(KX2-3X6)R-+O	L*122*122"163*JB . 
12 [I2(GD+BS+F7R+F	L2-?T+L	F*124*124"163*JB . N12 ?C3N	T3NWU2MNJ* B 2 V +NCD+OCF7BOI7ESC3I;O2 ?LO7P"J7C*JCC* B 2 ?N2 ?C3NWV3RWG3NWC2 [A7TKE2 WI+NCD3IWT7RSA3I;O6 SS7EOP2 ?F3L?L3WSE6 	B2 WIN7D*JCC* B 6 WS3CWC3S	S+VCE3SWT+PCS+OCF7BOI7ESC3I;O6 KO6 SS3ESA7I	L2
;I3CWR3A	S+NCG3F;U3C	TO7N*JCC* B 2 GV3LWU3SF 7TJ 3IG3TJ 3O;U+D;S6 KE7RKO2 WR7TKUN6.*JB * B 2 WI/RF=*MBJ. F 24& 3FR(7AOB6(KF2)R-7AOB2(3F.)F).6F,.6F,"5*M* B *1B57X"=L*M* B * B 3FZ=L*M* B *1B67RSE3U;R2MNJ2MNJ* B 2 N 7OCM3UGT3T?I3N> 3F& 7TKE3AWT7D" 2-GV3LWU6 
B2 ;I7VKE+SCE7PKA3A?B3LOI2 ;I7TKE3P3O3A	TO7N*JB . ^1. 7A+F7RF*M* B * B /D7X*(7X+X	L2*3F.*F(..CD*++F*(7A3T3O*)"/+A"*+F7R+F	L*)>)3T3O*MBJ* B 6 " 7M"=*MBJ* B 2 Z 3MZ=*MBJ* B 6 " 2=3X6-D*MBJ* B 6 R /O7LX*M* B * B 3FZ=+CT3T3O")*M* B * B +IF/FF).8F,.6F,"8*MC*M+
B * B 7TOE3T> 7NN 3A	T3SGF3C?T+RCY3AOC3UGR+CCY+ICN3IWT7RSA3I;O2 ?LO7P*JB . "12 ?T3LV=P7S*JB * B . 7A3DKA7S"(")*M* B * B +IF/AF-..CD.)B2.,B2.,&1*MBJ. F 69R /O7L3T3O"*7A*JB . B22 [I2(GD+BS+D	X2-?T/LJ).1J,.1J,"2*M* B *2B1+IF3DKA3SZ(6)R-3O[L.)Z1.,Z1.,J22MNJ2M
J* B 6 B 7RCE3AGR3T?I3N> 3F: 7ESX2 	B3SOE3T?I3N2 7OCO*MBJ. J 22& 3FR(3S
I/NF(..CD*,	F6+OD3I;G*(:1+D20+F	L.)R2.,N2.,R2*MBJ. J 63" 7R"=*MBJ* B 2 Z 3RZ=*MBJ* B 2 ^ 7OR /OR *MBJ. J 64" 7L"=*MBJ* B 2 Z 3LZ=*MBJ* B 6 " 7R"=M*M* B * B /F7RF7M*JB * B 2 ?G2 ?T" 64*JCC* B 2 ;E3D> 3F& 7TKE3A	T+OCN3L?OP*MC*MC*M+CB * B 7EKR+OCR7RSE3U;R2 ;
2 GC+SCE+OCF3W?R+NCG7ICN+UCT7DSAA*M* B *2B57IKE"=62*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"
"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