File DRTWI.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	W2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 6 R 7ON 7O[L3E^ 3EWN3R3A2 ?N3N	L3NGE3RV 3QGU3T?I+NCS+OCF3TWH2 ?F+RCM3XZ=
CTX6)*JCC* B * B * B 6 	B2 WM7AON2 [O2 WW7GSS3E;I*-CS3IWT7RSA3I;O2 WM3T?HD6."J7C*JCC* B * B 6 OU3AWG2MNJ* B * B * B 2 N 3A3L6 KD3T	W6 "(2,GV3LZ,+C3T7XSS6,CE3S&,3ESN2,WIR6)*JCC* B * B * B 2 GP3R7A3EWT3RZ +CCT7RGE7UKI+ECS+ACN7ESX3E;R+ACL3SGT3T7E7ESN".*MC*M+
B * B * B 7DOE3C	R3P	T+OCN+OCF7PKA3AWM7TKES*M+CB * B * B * B +XB * B * B-7DWO3BWL6 KP3E	C3S?I7NJ 7EWS3LGT+NCT3R?O3T> 3FV 3QGU3T?IN*M+CB * B * B * B * B * B * B 3XZ=+CT+X:)2MNJ* B * B * B 6 Z +ACL* B 2-R 3OKU+LCE3PWR7COI3I;O2 WR3S3U3T;A7TZ 7AWL3E> 7F" 2-OF
T"(")*M+CB * B * B * B * B * B * B +ACT3R?O7T" ".*M+CB * B * B * B 7FSC* B * B-3N7A3E> 7FR +HCE7ESX3E;R+ACL7DWO3BWL6 KP3E	C3S?I3NZ 3UON3T?IN*M+CB * B * B * B * B * B * B 3SKU3P?R3GGR7MV 3SSE".*M+CB * B * B * B 7XSS* B * B-7DWO3BWL6 KP3E	C3S?I3N& 7NWP7TZ 7
WL7E^ 3HOI7HN 3POE3I	F+ECS3TWH2MNJ* B * B * B * B * B * B 2 & 7NSI3I3A6 WG7EOS2 [O2 T7EJ 7OSO* ;X2MNJ* B * B * B 2 V +PCS* B 6-N 3I
N+LCE3PWR7COI3I;O2 ;I7PSU2 GV3LWU2 W3IC6 CS3E	C3FWI7SR H7E*JCC* B * B * B * B * B * B 6 CU7PKE2 ?B3USN2 [O2 T3EV 3R?R3R> 7FJ 7EWS+LCTX6.*JCC* B * B * B 2 WI+NCD* 6 2 GM3X7I+UCM3N7U7BKE2 [O6 SI3EGR3T?I7NN 7TCE7SN 3POE3I	F+E;D2MNJ* B * B * B 2 & +ECR* B 6-J
7EWS3LGT+NCT7EKR+OCR7PKA3AWM7TKE2 ?C3DSE6 OA2 ?F3L?LW7S*JCC* B * B * B * B * B * B 2 & /E7R*06 2 ?N6 KE7RKO",*M+CB * B * B * B * B * B * B 2 WI/RF=* B-+NCO3C;O7VKE3G;E+CCE7ASF+ECR3I;E3D& 7TKE3A	T+OCN3SWT+P3S2MNJ* B * B * B * B * B * B * B 7IKE*=B22-F 3TF 
NCY3IWT7RSA3I;O6 SS+ECP3TWH2 WD3N7O3IGN7TKO2 [O2MNJ* B * B * B * B * B * B * B * B * B 2 & 7TKE3A	T+OCN7FKO3M3U7A^ +ACS7EWQ+ACL+TCO7ZKEO6."J7C*JCC* B * B 2 WR7MKAK7S*JCC* B * B * B 2 T7EB 3ROO7EWD+RCE+ICS7BCY7AOS+ECD3ASN2 	G7VOE2 T3EV 3R?R3R6 7EOS3AWG2 WI
RJ=2MNJ* B * B * B 2 & 3FF 3TF +NCY3IWT7RSA3I;O6 SS+ECP3TWH2 WD3N7O3IGN7TKO2 [O6 SI3EGR3T?IN*M+CB * B * B * B 7FKO3M3U7A^ +ACS7EWQ+ACL+TCO7ZKE+OB.3TGH3T6 3E;A7SR 7HSA2 T3EWR6 OI6 SA2MNJ* B * B * B 2 2 7EOA3T> +NCE3P	O+NCT+ICN3TWH2 GR3NWG2 ;I2 W3IC6 SI3EGR
T?I3N6 3OWV7S^ 3IT2MNJ* B * B * B 2 R 3E	R7VSA3IWV2 [O2 OF7T"(2)V 3QGU7LR /OF ".*MC*M+CB * B * B 3SKU7RWO3T;I+ECS3ASN6 WF7NSC3I;O6 WS7BKP7OKG7AOM2 WR3Q	U3RSE2MNJ* B * B * B 6 R +HCE7ESX3E;R+ACL7DWO3BWL6 KP3E	C3S?I3NZ 3UON3T?I7NN 7UCB3R
O3R7A2 OF7T"(")*M+CB * B * B * B 7MOU3TJ 3EZ 3U;R3IS+ECD+BCY3TWH6 OU+E;R2MNJ2MNJ* B * B 2 6 3ETO7D*JCC* B * B * B 2 ?S7LSU3I;O2 [O6 GE7USA3I;O. 7X7FSC*(	X6 OI2 ?D+NCE+BCY3MGE+NCSO7F*JCC* B * B * B 2 WW7GSS3E;I*-CS3IWT7RSA3I;O2 WM3T?H+DB,3W	H+CCH3SGT7ROT6 
A2 T3E& 7NSI3I3A2MNJ* B * B * B 2 ^ 7UOE7S" +SCT+OCF7AJ 7OSO* ;X2 ;O3E& 7TKE3A	T+OCN3SWT7PJ 7EWQ3IWR3S> N7E*JCC* B * B * B 6 [E7AWL3A	T+OCN+OCF7FSC*(	X2.Z +OCR7TOE3T> 7NN 3A	T3SGF3C?T+RCY3AOC3UGR+CCY3SWE2MNJ* B * B * B 2 Z 3O7R3UGL+E" *2B)+OCF7MSA3H7E3A	T
C3A2 WD7SKC7ISP3I;O".*M+CB * B * B * B 7FKO2 WR7FKE3EON+EB,3SWE2MNJ* B * B * B * " *1B)+GB.+NB.3L;A+C3E6 WN7MKE3IGC3L6 3ET7OOD2 ?F3R" 3IG6 CS3ESE2 ?C7MWP7TKES6,*JCC* B * B * B * B 2 & 3L[I+F3E2 ?L3N?D+NB,.1Z9*0B,+P;P.1R3.-N1"86,*JCC* B * B * B . J(2)* 6.^
7EOG3T	E+NB,3A
L3O	R3T7H* 222 GC+C3M2 ?V/LN.2,& +S;S*2" .1Z9*02)2MNJ* B * B * B * B * B +P;P*7242MNJ* B * B * B * " *3B)3HN.6.R 3HOA7HKE2,F 3L?G7RSI+HCM*1252 GC+C3M2 ?V/LN.2,& +S;S*8" .1Z9*02)2MNJ* B * B * B * B * B +P;P.4V7",*M+CB * B * B * B *(&4* ;J+GB.7HKE3R?I+TB,3A
L3O	R3T7H. Z22,N 3A7C6,Z +O;L*3B,7IOS..F1. F(.9B6")6,*JCC* B * B * B * B 6 B /PZ.*0:32MNJ2MNJ* B * : *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".6."J7C*JB * B 6 WS3B?R3U	T+NCE7DSR+WI7XZ,+A3L7FSC6,OX3TV,+P3S3I;E3D&
+E	R2MNJ2MNJ*MBJ* B 2 R 3OKU+LCE3PWR7COI3I;O* 3X3V3A2,OF7T",+S3T3AJ,*,3D3T3O2MNJ2MNJ* B 6 B 7RCE3AWR6 SI3EGR3T?IN*M* B * B 7IKE"=60*JB * B 2 ?T7L"=S7T*JB * B . 7X7FSC2(?TL6)*JB * B . 7A7X"-S7T*JB * B . 7B"-7A*JB * B 2 ?T7L"=*MBJ* B 6 Z /A7L3XZ-+CT3T3O")*M
*MC*M+CB * B 3SGT+RCT3IWT7RSA3I;O2 ?LO7P*JB * B 2 ?D* B6/IF=2,WIN7D*JB * B 2 [I2(GV/LF)*,27"1*MC*M+CB * B 7EWQ3A	T+OCN+ICS7NSO2 GS7TOI3FWI3DJ 7Y" *MBJ* B 21J *=?B3V3A*-:1D60*JB * B 2 [I*(	B.2",",62"J7C*JCC* B 6 SI3EGR3T?I3N& 7SB 7OOS3I3BE*M* B * B23AF="/7
*JB * B . 7X3XF+*MBJ* B 2 J 2=GVL*M* B * B 3T3O"=7X*JB * B 2 GV7L"=2-OF7TR(+O	L2MNJ2MNJ* B 6 R 7ESS2 ;O2 GS7TOI3FOA7TKO3YF 7CWC3ROAY*M* B * B 3T3O6=CES*M* B * B 3DR=7AOB*(	X*MBJ* B 2 & 3FR(*-:1+D&0.4R,",63*JB . N 2 ?T7LR=+O+LD*M* B * B4+IF3DKA3SF(6)R-+O	L
5V,",66*JB . V 2 [I2(GD+BS3V3A.)F-..GD2*?T/L^)*,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 KE7RK
2 WR7TKU3N& 3NN 3AWS2 [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

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