File AUSDRU.FT (FORTRAN source file)

Directory of image this file is from
This file as a plain text file
6IWS3B?R3U	T+NCE7AOU7DWRC7K2JNI3O7M+OCN7NKE3R&,7EKR3S2,3CN,3CR,+I3N3F;I"M&J3C7O3M;O6 	S3M&,3D;E3T&,3N7U2,;R+U3M3SWL+N3G+C3H7SKT3I
N"M&J3C7O3M;O6 SS3A/C2,?B3T?T7MR,+O3P7KSI+U3M3KWZ3IWG3R:,3IWD3K:,3Z	E7GKE"M&J3C7O3M;O2 OI60J,+C20/SCC.,CP.,CI.,CT6,CG3U/NT*M2I?C3M?M3N& 3CWZ3IWG7RJ,3CWZ3IWG7RB,3Z	E7GKE6,+I3E
I+E3R3TWZ3IWG7RN,3CWZ3IWGR*M2I?C3M?M3N& 3CGT7BJ,3CGT7BN,3CGT7BN,+C3Z3PGT7BB,3Z&,3TKA6,+I6,ST+A3BT7Z2J&I3NWT7GKE6 WP7NSK6,CG3U/N3T:,3P;U+K3T3I/N7IWT3M&,3N	K2,;I/KCI2,;I/KGI"M&J7ISN3EWG3R: 7EKR2,WI7ROR.(F6*,&32,OL2,OC"M&J7ISN3EWG7RN +Y3M3IWD+N3T7IWN7MN,3L;E
GN,7HN,3T	R+NG*8&0"M&J7ISN3EWG7RN 3TOA/KJ(*0&02,?B3T?T/MF(*02)7TCO.(B12).,7IWT/MJ(*020"46)2J&I3NWT7GKE2 	N3D/E.(B1.0J,2):,3Z	E7GKE2,OI60J,+C20/SCC.,CP.,CI.,CT"M&J7ISN3EWG3R& 3CWZ3IWG7RJ,3CWZ3IWG7RB,3Z	E7GKE6,+I3E
I+E3R3TWZ3IWG7RN,3CWZ3IWGR*M2I;I3T
E+ECR7ISC+AB.2B06)N,3CGT/BJ(*0&02,OS/ZV(*02)3PGT/BF(*0&06,+P.(B5")*M2I;I3T
E+ECR3IGT/BF(*0&06,+I.(B56)R,3TKA.(B4*02)+TZ*5&0"M&J3RGE7LJ 3N7U2,OR3TKA.(B5")*M2I?L3GOI+ACL3LWE3RR,3DJ,"M&J7ISN3EWG7RR 3P;UK7T2J&I6=WP7NSK*(&1"M&J3C3A3LV 3RWS3TWZ/NB(*,&1"M&J3C3A3LV 3I/N3E3L3E;R*(3I"16)6J^I3H3I3E^(3P;U+K;T+N;E"06)*JBI2 ?G+TCO*(21.2N,*,24
5Z,*,27.8&,.,B1.,F1.,J1.,N1.,R1.,V1.,Z1.,^12)^,3P;UK7T"J&13C3A3LV 3RWS3TWZ/NJ(*,&12I["57E2JNI3A3L2 	E3NWK3LWL+RN.4F,")*M2IGC+LCL3E;I3K3E7LKE/NZ(*,&1"M&J7GSO/OF "969"J&2+ICF6(	S3MV./QZ.28>.7RN.+Y;M+E;Q*5&1*IK+OKR2,F"+NKD* B 2 Z *5CE7ROET*M*IB 3C3A3L^ 7EOTY
M*JBI2 GC+LCL3E;I3K3E7LKE7NN(+Y3M"46)*JBI2 GC+LCL7EOR7E+T+EN.3F,")*M*IB 3C3A3LV 3I/N3E3L3E;R*(24"16)*JBI2 GC+LCL3E;I3K3E7LKE/NZ(*,&1"M&J7EOLE*M*IB 3C3A3LF 3U/S3E3L3E;R*(&1"M&J3ESNI7F2J^I3O?T. &1"9*M23&I61B=3U/N/TV(2)BI3FV56 J 7ESS" 622JNI3A3L6 WA3SWK3LWL+
N"56)2J&I62B=3U/N/TV(")*M.IOI6=WP7NSK*(&4"M&J3C3A3LF 3U/S3E3L3E;R*(&4"M&J+ICF.(GI2.WN*.:1+O;R+I:2+N;E*1B)3C3A3LZ 3AGT/LF(*3&5"M&J+ICF6(	S3MV./QZ.28>.7RN.+Y;M+E;Q*5&1*IK+OKR2,F"+NKD"M&J2 N 3A3L2 WG7T	SM*M*IB 3C3A3LV 3I/N3E3L3E;R6(	S/MR,")*M*IB 3C3A3LV 3I/N
E3L3E;R*(24"16)*JBI2 GC+LCL3E;I3K3E7LKE/NZ(*,&1"M&J7EOLE*M*IB 3C3A3LF 3U/S3E3L3E;R*(&1"M&J3ESNI7F2J^I3O?T. &1"9*M24&I+F" 3S7Y2.WG..J12.;A7DN.+Y;M+L;E*1&72I[*4CE6 J 7ESS"M&J2 N 3A3L2 	E3NWK3LWL+RN3S7Y*,&4"M&J2 N 3A3L2 WG7T	SM*M*IB 3C3A3LV 3RWS3TWZ/NV(*,&1"
&J2 N 3A3L2 	E3NWK3LWL+RN.6F,")*M2I3ES7E*JBI2 GC+LCL7AOU3K3E7LKE/NF(")*M2I;E3D[I"M&J7GSO/OF "969"J&5/I613P;U+KT"5&)/SF7EJ 7ESS"2*M2IGC+LCL7AOU3K3E7LKE/NV(")*M.IKI6=WP7NSK*(&5"M&J/I633P;U+KT"46)2JNI3A3L6 WA3SWK3LWL+RN"46)2J&I+F" +I:1+E;Q+I&2"M&J2 N 3A3L6 K
7SSE3Z;E*(21"56)2JVI3LWS"M&J2 N 3A3L2 GF3T3A.(J1"96)2JVI3N	DF*M2I[I6 N(+Y;M+G;E*1:23ASN6.	S3M2./EF."76)*JBI2 GC+LCL3E;I3K3E7LKE7NN(+Y3M"46)*JBI2 GC+LCL7GSE3S7Y"M&J2 N 3A3L2 	E3NWK3LWL+RN.6F,")*M2I3ES7E*JBI2 GC+LCL7AOU3K3E7LKE/NF(")*M2I;E3D[I"M&J7GSO/OF "9
9"J&6+ICF6(	S3MV./Q".6.KO6.	S3MV./QZ.2)BI*"J+*,6"*"B 2 Z "37E*JBI2 GC+LCL3E;I3K3E7LKE7NN(+Y3M"46)*JBI2 GC+LCL7GSE3S7Y"M&J3ESNI7F2JNI3A3L6 KE7SSE3Z;E*(27"16)2JNI3A3L2 	E3NWK3LWL+RN.9F,")*M2IGC+LCL3E;I3K3E7LKE/NF(.1F,")*M2I?G+TCO.1&9.M^J2I[I2(:.+O;T3LWE/RR(
)6)*JBI2 [I6(WP7NSK*(&46.GE*.:8+O;R3P;U+KT*4:)+E;Q"66)*JBI* B +IF3P;U+KT*5:)+N;E22F.+N;D3P;U+KT*5:)+N;E"36)"J&I3C3A3LZ 3AGT/LF(*0&5"M&J* B 2 ;E3D[I"M&J* B 2 GC+LCL7AOU3K3E7LKE/NR(")*M*IB 3ESNI7F2JVI3N	DF*M2I[I6 N(+Y;M+E;Q28>.7RN.+Y;M+E;Q"6&)/OF7EJ 7ESS"M&
2 N 3A3L2 	E3NWK3LWL+RN3S7Y*,&4"M&J2 N 3A3L2 WG7T	SM*M*IB 3C3A3LV 3RWS3TWZ/N"(*,&1"M&J2 N 3A3L2 	E3NWK3LWL+RN.9F,")*M*IB 3C3A3LV 3I/N3E3L3E;R.(F1*,&1"M&J7EOLE*M*IB 3C3A3LF 3U/S3E3L3E;R*(&1"M&J3ESNI7F2J^I3O?T. &1"9*M28&I61B=3U/N/TV(2)BI3FV36 J 7ESS"2*M2IGC
LCL7AOU3K3E7LKE/NV(")*M.IKI6=WP7NSK*(&5"M&J/I633P;U+KT"46)2JNI3A3L6 WA3SWK3LWL+RN"46)2J&I+F" .(GI6.GE*.:2+O;R+I:1+E;Q*3:)3ASN2.&(22V./QJ.6.KO..KI6.GE*.&3")*M*IB +ICF.(GI2.WN..KI2)N 3A3L6 KE7SSE3Z;E*(23"56)2JVI3LWS"M&J2 N 3A3L2 GF3T3A.(N1"46)2JVI3N	DF*M2I[
6 N(+Y;M+E;Q28>.7RN.+Y;M+E;Q"66)*JBI2 GC+LCL3E;I3K3E7LKE7NN(+Y3M"46)*JBI2 GC+LCL7GSE3S7Y"M&J2 N 3A3L2 	E3NWK3LWL+RN.9F,")*M*IB 3C3A3LV 3I/N3E3L3E;R.(F1*,&1"M&J7EOLE*M*IB 3C3A3LF 3U/S3E3L3E;R*(&1"M&J3ESNI7F2J^I3O?T. &1"9*M29&I+F" 3S7Y6.GE*.:9+O;R3S7Y6.GE..
26.KO6.	S3MV./QV.26>.7RN.+Y;M+E;Q*6&42I[*2CE7ROET*M*IB 3C3A3LV 3I/N3E3L3E;R6(	S/MR,")*M*IB 3C3A3L^ 7EOTY7M*JBI2 GC+LCL7EOR7E+T+EN*120"16)*JBI2 GC+LCL3E;I3K3E7LKE/NF(.1F,")*M2I3ES7E*JBI2 GC+LCL7AOU3K3E7LKE/NF(")*M2I;E3D[I"M&J7GSO/OF "969.JB1.IGI6=WP7NSK*(&
2I[*2CE2 WR/SKT"M&J3C3A3LF 3U/S3E3L3E;R*(&5"M&J/I623P;U+KT"56)2J&I63B=3U/N/TR(")*M2IGC+LCL7AOU3K3E7LKE/NR(")*M.I7B.(GI2.WN*.:23ASN..GI2.WN*.&36.KO2.&(22:./EJ.2.;A3D&.22:./EN.")*M2I[I2 J(2)N 3A3L2 GF3T3A.(N1"46)2J&I+F" +I:3+E;Q"8&)*IK"*6"*JBI2 [I2 &(21:.3E
."26)*JBI* B 3C3A3LV 3RWS3TWZ/NN(*,&5"M&J2 V 3N	DF*M2I3ES7E*JBI2 [I2 &(23V./QJ."2&)+>"""*M*IB 2 N 3A3L6 KE7SSE3Z;E*(23"56)*JBI2 3ES7E*JBI* B +ICF.(OI6.GE..Z56.KO..OI6.GE..R62)BI7D[I2,6 O7D*JBI* B 2 & +F" +I:1+N;E22>.3R&.22:./EJ.2)N 3A3L2 GF3T3A.(N1"46)*JB
* B 3ESNI7F*JBI2 ;E3D[I"M&J3ESNI7F2JNI3A3L6 KE7SSE3Z;E*(29"16)2J^I3O?T. &1"9*M"1&1+ICF6(	S3MV./QF.2)BI3FV1"M&J2 & 3N	K2=;I7KSI+UM3IWD+N	T"M&J2 N 3A3L2 WG7T	SM*M*IB +ICF2(;I+K;I+E;Q*0B)3C3A3LZ 3AGT/LF(*0&4"M&J2 J 2=	K3T7U2(;I+K3I*2:)+E;Q"2*M*IB +ICF*(	B"M&
* B 2 GC+LCL3E;I3K3E7LKE3N.(7IWT3M&(3N	K*,&3*,&5"M&J* B 2 GC+LCL7AOU3K3E7LKE/NF(")*M*IB 2 ^ 3O?T. &1"9*M*IB 3ESNI7F*JBI. 7B7KSI+UM3I/N/IJ,2)V./QV."M&J2 & +F" B6)*JBI* B 3C3A3LV 3I/N3E3L3E;R2(	K3T7U2(;I+K3I*32)"56)*JBI* B 3C3A3LV 3RWS3TWZ/NF(.5F,2)BI7VKA3I
A+LCE2 WRS7T*JBI* B 7GSO/OF "969*JBI2 ;E3D[I"M&J2 J 2=	K3T7U2(;I+K3I*2:)+E;Q"7*M*IB +ICF*(	B"M&J* B 2 GC+LCL3E;I3K3E7LKE3N.(7IWT3M&(3N	K*,&3*,&5"M&J* B 2 GC+LCL7AOU3K3E7LKE/NF(")*M*IB 2 N 3A3L2 	E3NWK3LWL+RN.0Z,2)BI7ZSEA*M*IB 2 N 3A3L2 	E3NWK3LWL+RN3I/N/I
,")*M*IB 2 & +F" 3S7Y6.GE..F12)BI*"J("M&J* B * B 3C3A3L^ 7EOTY7M*JBI* B 2 N 3A3L2 	E3NWK3LWL+RN*122"16)*JBI* B 2 N 3A3L2 	E3NWK3LWL+RN.1F,")*M*IB 2 V 3LWS"M&J* B * B 3C3A7LB 7LOIT*M*IB 2 V 3N	DF*M*IB 2 ^ 3O?T. &1"9*M*IB 3ESNI7F*JBI2 GC+LCL7FSA+AL.1N0")*M2
;E3D[I"M&J+ICF6(	S3MV./QZ."6&)3?NT*M*IB 3C3A3L^ 7EOTY7M*JBI2 GC+LCL7EOR7E+T+EN*124"16)*JBI2 GC+LCL3E;I3K3E7LKE/NF(.1F,")*M*IB 7GSO/OF "9692JVI3N	DF*M2I[I6 N(+Y;M+E;Q*1&1*IK"(6"*JBI2 GC+LCL7GSE3S7Y"M&J2 N 3A3L6 KE7SSE3Z;E.(N1*,&1"M&J2 N 3A3L2 	E3NWK3LWL+RN
1F,")*M*IB 7GSO/OF "9692JVI3N	DF*M2I[I6 N(+Y;M+L;E25F.+N;D3S7Y2.WG*.&2"M&J2 N 3A3L2 OS7OONT*M*IB 3C3A3LF 3U/S3E3L3E;R*(&1"M&J2 N 3A3L6 WA3SWK3LWL+RN"46)*JBI2 ?G+TCO.1&9"M&J3ESNI7F2JNI3A3L2 GF3T3A*(&6"M2J"1&23C3A3LF 3UGF3D	D3EWR/NF(*,&62IBI3FV12 WR+SCT!*M2
GC+LCL3E;I3K3E7LKE7NB(3U/N/TV(.)^,")*M2IGC+LCL7AOU3K3E7LKE/NV(")*M2I[I6 N(+Y;M+E;Q"7&)+2"""*M*IB 3C3A3L^ 7EOTY7M*JBI2 GC+LCL3E;I3K3E7LKE/NF(*,&1"M&J2 ^ 3O?T. &1"9*M2I;E3D[I"M&J+ICF6(	S3MV./QF."0&)+&"""*M*IB 3C3A3L^ 7EOTY7M2JVI3LWS"M&J2 N 3A3L2 WF+HL"46)2J
I3N	DF*M2IGC+LCL3P	LS7T2JNI3A3L6 WA3SWK3LWL+RN"16)2J^I3O?T. &1"9*M"1&3+IF3S7Y6.GE..B12)BI*"J)2I[*1CE2 WR+SCT"*M*IB 3C3A3L^ 7EOTY7M2JVI3LWS"M&J2 N 3A3L2 WF+HL"46)2JVI3N	DF*M2IGC+LCL7AOU3K3E7LKE/NF(")*M2I?G+TCO.1&9.MFJ24JI6=WP7NSK*(&52.WN".&1/GF+EB 7ROE3TN 
M&J+ICF*(	B2 GC+LCL7FSA+AL.1V3")*M2IGC+LCL7AOU3K3E7LKE/NF(")*M2I?G+TCO.1&9.MFJ25&I61R=3TKA6(+T6(WP7NSK*(&5")6)2J^I3O?T.(V1.0F,*520.1B5.,V1.0F,*521.1J52)&,"1*M.1B52IGC+LCL7AOU3K3E7LKE/NF(2)BI3SGT+N;D6-	TP*M2I[I6 N(+Y;M+E;Q*1&82IGC+LCL7FSA+AL.1"32)BI*"K["M&
+ICF6(	S3MV./QJ.*1B)3C3A3LZ 3AGT/LF(*4&0*IK".6"2J^I3O?T. &1"9*M.1F52I[I6 N(+Y;M+E;Q*2&12IGC+LCL7FSA+AL.1B42)BI7AKR+A7Y7VKA"!*M2I[I6 N(+Y;M+E;Q*1&8*IK[6"*JBI2 GC+LCL7GSE3S7Y"M&J2 N 3A3L6 KE7SSE3Z;E.(Z1*,&1"M&J2 N 3A3L2 	E3NWK3LWL+RN.1F,")*M2I3ES7E*JBI2 GC+
CL7AOU3K3E7LKE/NF(")*M2I;E3D[I"M&J7GSO/OF "969.JV122&I+F" 3S7Y6.GE.."12)N 3A3L2 GF3T3A.("1"8&)3WR7CKO7DZ-+AGR"M&J+ICF6(	S3MV./QJ."1&)+:"""*M*IB 3C3A3L^ 7EOTY7M*JBI2 [I6 N(+Y;M+N;E*1B)3C3A3LZ 3AGT/LJ(")*M*IB +IB16=R 7ZB(3U/N/TV(*).)"2*M*IB +IB22=& .1F-6+ST
AB+I61"16)*JBI2 ?D. F161R 3Z	E7GKE.=GI.,KI"M&J2 J 2=	K3T7U6(ST+AB3TWZ3IWG+R2)*1:)+E;Q3IWDN7T*JBI2 [I2 J(2)^ 3O?T. F1"2*M.1F1*IB 3C;O3T;IU7E*JBI2 GC+LCL7FSA+AL.1J5")*M.1J1*IB 3C3A3LV 3RWS3TWZ3N.(7IWT7MR(3TKA6(+T3E
I+E	R*,&3*,&56ISA7U*JBI2 GC+LCL7GSE3S7Y"M&J7EOLE*M*IB 3C3A3LF 3U/S3E3L3E;R*(&1"M&J3ESNI7F2J^I3O?T. &1"9*M"1&6+IF3S7Y6.GE..V22)BI*":.""*M*IB 7TWP7NSK6=WP7NSK*(&56ISA	U3GV7RJ 7ESS" 62*JBI2 GC+LCL7AOU3K3E7LKE/NV(")*M*IB 7BR=3P;U+K;T+N;E3TGT7BR(7ZB(3U/N/TV(*)
)"36)*JBI2 [I*(	B2 GC+LCL7FSA+AL.1&3")*M*IB 3C3A3L^ 7EOTY7M*JBI2 GC+LCL7EOR7E+T+EN*127"16)*JBI2 GC+LCL3E;I3K3E7LKE/NF(*,&1"M&J7EOLE*M*IB 3C3A3LV 3RWS3TWZ/NF(.7F,")*M2I;E3D[I"M&J7GSO/OF "969.J^16ICT3U/N7TB=3U/N/TV(2)BI7VKA2 WR+SCT"3*M2IGC+LCL7AOU3K3E7LKE/N
(")*M.I7B7TWP7NSK2.WN6.ST+AB+TZ3P;U+KT*5&)*+&3"M&J+ICF*(	B2 GC+LCL7FSA+AL.1&3")*M2I[I6 N(+Y;M+E;Q"7&)+2"""*M*IB 3S7Y.="1*IK[6"*JBI2 GC+LCL7EOR7E+T+EN*125"16)*JBI2 GC+LCL7EOR7E+T+EN3TGT7BR(7ZB(3U/N/TV(*).)*22)"5&)3GTU*M*IB 7GSO/OF "9692JVI3N	DF*M2I[I6 N(+Y
M+E;Q*1&9*IK]6"*JBI2 GC+LCL7GSE3S7Y"M&J2 N 3A3L6 KE7SSE3Z;E.(V1*,&1"M&J2 N 3A3L6 KE7SSE3Z;E6(ST+AB+TZ3P;U+KT*5&)*+&2*,&56ISA7U*JBI2 ?G+TCO.1&9"M&J3ESNI7F2JNI3A3L2 GF3T3A.(J1")*M.1&92I?C3N	T3NWU"M&J3ESN3W	HL7E2JNI3A3L6 WA3SWK3LWL+RN"16)6JJI7EWTR7N2JVIN7D&J
L

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