File DRTNI.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	N2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 6 R 7ON 7O[L3E^ 3EWN3R3A2 ?N3N	L3NGE3RV 3QGU3T?I+NCS+OCF3TWH2 ?F+RCM7F"(
)B=2MNJ* B * B * B 2 J 3Y6 3E;A3S> 3F: 7ESW+O7N3S& 7TKE3A	T+OCN7MSE3HSO".*MC*M+CB * B * B 3UGSG7E*JCC* B * B * B 2 GC+LCL7DSR+NCI*(3X3FR,3E[R2,OF7T",+S3T7EOP2,WI+N3D7IKE")*M+CB * B * B * B 7PKA3AWM7TKE2 OF7TJ 7EWQ3IWR3SF 3NV 3XWT3RGN7LN 7TSA3EWM+N;T2MNJ2M
J* B * B 2 R 3EOS7RCI3T?I3N> 7FB 3AGR7MSE7EOR2MNJ* B * B * B 6 " * B * B 2-R 3OKU+LCE3PWR7COI3I;O2 WR3S3U3T;A7TJ 7OSO2 [O6 GE7USA3I;O* F/X6)"06.*JCC* B * B * B * CF* B * 6 2 ?D3U3B7EB 3ROE3I	S+OCN7ROE7USL7ASN6 WF7NSC3I;O2 GV3LWU6 SA2MNJ* B * B * B * B * B
* B 6 J 7OSO* ;X2MNJ* B * B * B 2 R 3E[R* B 2-R 3OKU+LCE3PWR7COI3I;O2 WR3S3U3T;A7TZ 7AWL3E> 3FR 3E	R7VSA3IWV2MNJ* B * B * B * B * B * B 2 F 7TJ 7OSO* ;X2MNJ* B * B * B 2 Z +CCT* B 2-: 3AWM2 [O2 T3EV 3XWT3RGN7LN 7UKB7OSU3IWN6 OU+E;D6 SI2 ?C7MWP7TOE2MNJ* B 
 B * B * B * B * B 6 R 3O^ 3IWV3NF 7RWG3M;E7T" 6 WF7NSC3I;O2 GV3LWU* CF3ASN2 WD7R[I3A	TV7E*JCC* B * B * B * B * B * B 2 WD+R;F6 SI7SB 3AGR7MSE+ECR7LOI3T6 7USS2 WB* 3X3FR,3E[R6,^ 7HKEE*M+CB * B * B * B * B * B * B 3A3L2 GP3R7A3EWT+RCS3AWR2 ?D3U3B7EB 3ROE3I
S+O;N2MNJ* B * B * B 6 " +SCT* B 2-R 3OKU+LCE3PWR7COI3I;O2 ;I7PSU2 GV3LWU2 W3IC6 CS3E	C3FWI7SR H7E*JCC* B * B * B * B * B * B 2 ;I3I	T+ACL3GWU+SCS+OCF3TWH2 ?R+OCTX6.*JCC* B * B * B 6 CE+SB * 6 2 	S3N3G7EB 3ROE3I	S+OCN7ICN+UCT3V3A+UCE3W	H+CCH3SWP3C[I7IOE2 
E*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+OCF3IWT7RSA3I;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 7TCES6,*JCC* B * B * B * B * B * B 2 & /E7R*26 6 SA2 ;A3Y& 7TKE3A	T+OCN3SWT3PR 3E	R7VSA3IWV2 WD+RCF7WOA2MNJ* B * B * B * B * B * B * B * B * B 2 V 3QGU7LR 7O* 3E?R".*MC*M+CB * B * B 3R7E3A/RS*M+CB * B * B * B 3TWH6 KP3
WC7DKU3E& 3SJ 3YGP3SWS3DF +NCD7G[I+ECS3TWH6 KE7RKO2 WM3SGS+GCE7IKE"=62*JCC* B * B * B 2 [I6 SA2 ;A3Y& 7TKE3A	T+OCN3SWT3PR 3E	R7VSA3IWV2 [O* F+XB)+ICS7EWQ+ACL+TCO"06.*JCC* B * B * B 2 ?P3S	S7B	L2 T7EB 3ROO7EWD+RCE7WWO+LCD+BCE3SOU7COE7SWF3L& 3F& 3T& 7SN 7TK
3TSE2MNJ* B * B * B 2 > 3NWC2 ?M+RCE7WSI3HF 7NSO7HKE2 ;I3I	T+ACL3GWU+SCS7XSS".*MC*M+CB * B * B 3SKU7RWO3T;I+ECS3ASN6 WF7NSC3I;O6 WS7BKP7OKG7AOM2 WR3Q	U3RSE2MNJ* B * B * B 6 R +HCE7ESX3E;R+ACL3SKU7RWO3T;I3EZ +CT3XZ,2,WD+R	F6 WM+SCT+BCE7FKU7NOI3HSE2MNJ* B *
B * B 2 J 7YR +HCE3UWSR6."J7C*JCC* B * B 2 WM3T?HD*M+CB * B * B * B 3S3O3U	T+OCN+OCF7EWQ3A	T+OCN7F"(.)B=6 OI2 ?D+NCE+BCY3MGE+NCS+OCF7N
E3T;O"-7S*JCC* B * B * B 6 SI3EGR3T?I3N6 3ET+O3D2 W3IC6 SS7ASR3SF 7TR +HCE3I	N3TGI3L^ 7UOE7S" +SCTO7F*JCC* B * B * B * CA3R?O7T" 2.N 7O[N3E
R3EON3E& 7SF 3USA7RSA+ICC+ICF3TWH2 WD7R[I3A	T+VCEO7F*JCC* B * B * B * F+XB)+ACT3R?O7T" 6 OI2 ?N3TV 3QGU7LR 7O* 3E?R2.> +NCE3IWT7RSA3I;O6 SSE7P*JCC* B * B * B 2 WR3Q	U7ROE2 ;O3EV 3V3A7USA3I;O2 [O* F+XB)3ASN2 ;O3EV 3V3A7USA3I;O2 [O2 TE*M+CB * B * B * B 7DKE
IGV7T[I3E> 3FZ *(	X2.Z +OCR7TOE3T> 7NN 3A	T3SGF3C?T+RCY3AOC3UGR+CCY3SWE2MNJ* B * B * B 2 Z 3O7R3UGL+E" *2B)+OCF7MSA3H7E3A	T3C3A2 WD7SKC7ISP3I;O".*M+CB * B * B * B 7FKO2 WR7FKE3EON+EB,3SWE* ;R6 WZ7RWM3E3H6,B 3R/A7TOI3CWH2 GM3TWH7MSA+ICK3FWUR*M+CB * B * B *
B 3I
N3E	N7EKU7EV +NCD7P	H3S/I+E3R6 CS3R;I7GKE2,J 3E3R+I?N3GWO3T	T3NWGN6/*JCC* B * B * B 2 WH3IWD3LWB+R3G. &1*6236 CP..J1.-^1".*MC*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ*MBJ* B 6 N 7UKB7OSU3IWN6 KD
T	N*(3X3FR,3E[R2,OF7T",+S3T7EOP2,WI+N3D7IKE")*MC*MC*M* B * B 7DWO3BWL6 KP3E	C3S?I7N" *,3F7DKE7F",+S3T3T3O2,?T+L3F+D3XA*MC*M+CB * B 3PWR7PKA3E& 7TKE3A	TO7N*JB * B 2 WI/RB=*MBJ* B 6 " 6=OXT*M* B * B 3T3O"=7X*JB * B 2 GC+LCL7FSC2(?T3LZ,2,WD+R	F*MBJ* B 6 R 3O
L.=B1*0*.7EOP2MNJ2MNJ2MNJ* B 6 N 7TKA3T& 7TKE3A	T+OCN3L?OP*M* B * B +DCO26& *=213I;ED*M* B * B +IF/FF)*,27"1*MC*M+CB * B 7EWQ3A	T+OCN+ICS7NSO2 GS7TOI3FWI3DJ 7Y" *MBJ* B 21& 3FR(3E[R*)22.8J,2MNJ2MNJ* B 2 & 7TKE3A	T+OCN+ICS7POO3SKIL7E*JB . J 6 D*=?F7DKEF*M*
B * B 7X"=6-D*MBJ* B 6 R /O7LX*M* B * B 3C3A3LZ +CT3T3O*,3F7DKEF6)"J7C*JCC* B 2 WT+SCT+OCN7SSA3I[S7ASC7O	R2 OA7CKU7A	C*MBJ* B 6 R /O7L7EOP*MBJ* B 2 F 2=GD+BSX6)*JB * B 2 [I*(7A21R..0R)*,24"3*M* B * B33T3O2=?T3LF**MBJ* B 24& 3FR(7AOB6(D6)R-+O	L.5V,",66*JB 
 V 2 [I2(GD+BS+F6)3T3O/F^)*,27"6*M* B * B63C;O3T;IU7E*JCC* B 2 ;E3D> 3F& 7TKE3A	T+OCN3L?OP*MC*MC*M+CB * B +NCO3C;O7VKE3G;E+CCE7ASF+ECR3I;E3D& 7TKE3A	T+OCN3SWT+P;S6 KE7RKO2 WR7TKUN6.*JB * B 2 WI/RF=*MBJ* B 67J 7EWTR7N"J7C*JCC* B 6 KE7RKO2 WR7TKU3N& 3NN 3AW
2 [O2 WZ+RCO7D[I3I?SR*M* B * B87IKE"=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

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