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+ICF2(&(21V./QJ.6.KO..GI6.GE*.&32.;A+D".+I:2+E;Q22>.3R&.22V./QN.")6)*JBI2 [I2 &(21:.3E&.*2B)3C3A3LV 3RWS3TWZ/NN(*,&5"M&J7EOLE*M*IB 3C3A3LZ 3AGT/LF(*3&4"M&J3ESNI7F2J&I+F" 3S7Y6.GE*.:8+O;R3S7Y6.GE*.&6"M&J2 N 3A3L2 
E3NWK3LWL+RN3S7Y*,&4"M&J2 N 3A3L2 WG7T	SM*M*IB 3C3A3LV 3I/N3E3L3E;R*(29"16)*JBI2 GC+LCL3E;I3K3E7LKE/NF(.1F,")*M2I3ES7E*JBI2 GC+LCL7AOU3K3E7LKE/NF(")*M2I;E3D[I"M&J7GSO/OF "969"J&9+ICF6(	S3MV./Q&.6.KO6.	S3MV./QJ.22>.7RN.+Y;M+E;Q*5:6+O;R3S7Y6.GE..R62)BI3FV22
WRS7T*JBI2 GC+LCL3E;I3K3E7LKE7NN(+Y3M"46)*JBI2 GC+LCL7GSE3S7Y"M&J2 N 3A3L6 KE7SSE3Z;E.(B1*,&1"M&J2 N 3A3L2 	E3NWK3LWL+RN*121"16)2JVI3LWS"M&J2 N 3A3L6 WA3SWK3LWL+RN"16)2JVI3N	DF*M2I?G+TCO.1&9.MFJ20&I61B=3U/N/TV(2)BI3FV26 J 7ESS"2*M2IGC+LCL7AOU3K3E7LKE/NV("
*M.IKI6=WP7NSK*(&5"M&J/I633P;U+KT"46)2JNI3A3L6 WA3SWK3LWL+RN"46)2JJI2=&(21:./EJ.2.;A3D&.21:./EN.2)>.+R".+I:2+N;E22F.+N;D+I:2+N;E"36)2J&I+F" +BB)3C3A3LZ 3AGT/LF(*3&4"M&J+ICF.(OI6.GE*.&82IBI*"J*"M&J2 & +F" +I:1+N;E+I&2"M&J* B 2 GC+LCL7EOR7E+T+EN.3V,")*M*IB 
ESNI7F2JVI3LWS"M&J2 & +F" +I:3+E;Q*2&2*IK"/6"*JBI* B 3C3A3LV 3RWS3TWZ/NN(*,&5"M&J2 V 3LWS"M&J* B 2 [I2 &(23V./QV.26>.3R&.23V./QZ."4&)3	D+VB,3MSO"M&J* B * B +ICF.(GI2.WN*.:2+O;R+I:2+N;E*2B)3C3A3LZ 3AGT/LF(*3&4"M&J* B 2 ;E3D[I"M&J2 V 3N	DF*M2I;E3D[I"M&J3C3A
LV 3RWS3TWZ/N&(*,&1"M&J7GSO/OF "969.JF12I[I6 N(+Y;M+E;Q"1&)/GFE*M*IB 3I/N3I&=3N	K3T7U2(SI7ESN")*M*IB 3C3A3L^ 7EOTY7M*JBI2 [I2 &(3N	K6.GE*.&02 GC+LCL7FSA+AL.1R0")*M*IB 3B.=7IWT3M&(3N	K*,&26.GE".62*JBI2 [I2 J(")*M*IB 2 N 3A3L2 	E3NWK3LWL+RN7KSI+UM3I/N/IN,.)
,")*M*IB 2 N 3A3L6 WA3SWK3LWL+RN"16)*JBI* B 7GSO/OF "969*JBI2 ;E3D[I"M&J2 J 2=	K3T7U2(;I+K3I*2:)+E;Q"5*M*IB +ICF*(	B"M&J* B 2 GC+LCL3E;I3K3E7LKE3N.(7IWT3M&(3N	K*,&3*,&5"M&J* B 2 GC+LCL7EOR7E+T+EN*125"1&)3GV3RGI3BWL6 J 7ESS"M&J* B 2 ?G+TCO.1&9"M&J2 V 3N	DF
M*IB 3B.=7IWT3M&(3N	K*,&26.GE".67*JBI2 [I2 J(")*M*IB 2 N 3A3L2 	E3NWK3LWL+RN7KSI+UM3I/N/IN,.)V,")*M*IB 2 N 3A3L6 WA3SWK3LWL+RN"16)*JBI* B 3C3A3LV 3I/N3E3L3E;R*(20"6&)3WZT7A*JBI* B 3C3A3LV 3I/N3E3L3E;R2(;I+K3I"36)*JBI* B +ICF6(	S3MV./QF."1&)+""""*M*IB * B 
 GC+LCL7GSE3S7Y"M&J* B * B 3C3A3LV 3I/N3E3L3E;R.(J1*,&1"M&J* B * B 3C3A3LV 3I/N3E3L3E;R*(21"16)*JBI* B 2 N 3A3L6 WA3FSA3DWI3R;E*(21"66)*JBI* B 7EOLE*M*IB * B 2 GC+LCL3P	LS7T*JBI* B 3ESNI7F*JBI* B 7GSO/OF "969*JBI2 ;E3D[I"M&J2 N 3A3L2 GF3T3A.(B1"36)2JVI3N	
F*M2I[I6 N(+Y;M+E;Q*6&62I;O7T*JBI2 GC+LCL7GSE3S7Y"M&J2 N 3A3L6 KE7SSE3Z;E.(R1*,&1"M&J2 N 3A3L2 	E3NWK3LWL+RN*121"16)*JBI2 ?G+TCO.1&9"M&J3ESNI7F2J&I+F" 3S7Y6.GE..F12)BI*"J("M&J2 N 3A3L2 WG7T	SM*M*IB 3C3A3LV 3RWS3TWZ/NF(.3F,")*M*IB 3C3A3LV 3I/N3E3L3E;R*(21"
6)*JBI2 ?G+TCO.1&9"M&J3ESNI7F2J&I+F" 3S7Y2.WL*.:53ASN6.	S3M^./EJ.")*M*IB 3C3A7LN 3C;OS7T*JBI2 GC+LCL7AOU3K3E7LKE/NF(")*M*IB 3C3A3LF 3U/S3E3L3E;R*(&4"M&J2 ^ 3O?T. &1"9*M2I;E3D[I"M&J3C3A3LZ 3AGT/LZ(")*M.LJ12I[I6 N(+Y;M+E;Q"7&)/GF+EB 7ROE;TF "M&J2 N 3A3L2 WG
T	SM*M*IB 3C3A3LF 3UGF3D	D3EWR/NF(*,&6"M&J2 N 3A3L2 	E3NWK3LWL+RN3P;U+KT*52)"76)*JBI2 GC+LCL7AOU3K3E7LKE/NV(")*M*IB 3C3A3LV 3I/N3E3L3E;R*(21"16)*JBI2 ?G+TCO.1&9"M&J3ESNI7F2J&I+F" 3S7Y6.GE..B12)BI*"J)"M&J2 N 3A3L2 WG7T	SM*M2I3ES7E*JBI2 GC+LCL3FE/LR(")*M2I;
3D[I"M&J3C3A7LB 7LOIT*M2IGC+LCL7AOU3K3E7LKE/NF(")*M2I?G+TCO.1&9.MFJ23&I7FN(+Y;M+E;Q*1&0*IK")&"/GF+EB 7ROE;TJ "M&J2 N 3A3L2 WG7T	SM*M2I3ES7E*JBI2 GC+LCL3FE/LR(")*M2I;E3D[I"M&J3C3A3LF 3U/S3E3L3E;R*(&1"M&J7GSO/OF "969.JR1.I7B3P;U+KT*5:)+N;E21BI3FV16 J 7ESS" 
C2J&I+F" +BB)3C3A3LZ 3AGT/LF(*3&5"M&J3C3A3LF 3U/S3E3L3E;R*(&1"M&J7GSO/OF "969.JV1.IGI6=ST+AB+TZ3P;U+KT*5&)")*M2I?G+TO.1B5.,V1.0F,*520.1B5.,V1.1F,*5&2.,GI.MFJ"5&03C3A3LF 3U/S3E3L3E;R*(&16IO3T;A+D6.7TCY"M&J+ICF6(	S3MV./QF."8&)3C3A3LZ 3AGT/LF(*3&8*IK[6"2J&I+
" 3S7Y6.GE..F22)N 3A3L2 GF3T3A.(R1"0&)+:"""*M2I?G+TCO.1&9.MFJ"5&1+ICF6(	S3MV./QJ."1&)3C3A3LZ 3AGT/LF(*4&02IG3RGR7YZ-+AGR"M&J+ICF6(	S3MV./QF."8&)7."""*M*IB 3C3A3L^ 7EOTY7M*JBI2 GC+LCL7EOR7E+T+EN*126"16)*JBI2 GC+LCL3E;I3K3E7LKE/NF(*,&1"M&J7EOLE*M*IB 3C3A3LF
3U/S3E3L3E;R*(&1"M&J3ESNI7F2J^I3O?T. &1"9*M.1J52I[I6 N(+Y;M+E;Q*1&82 GC+LCL7FSA+AL.1"82)BI3ROE3OSR2-GVR6!2J&I+F" 3S7Y6.GE..F22)BI*"J."M&J2 N 3A3L2 WG7T	SM*M*IB +ICF6(	S3M:./EF.2)N 3A3L2 GF3T3A*(&2"M&J2 & .16 6 +T6(WP7NSK*(&5.)J+"M&J2 & .26 . GI*-.13TGT3B&
.1F-")*M*IB +DCO.1F16 +T3E
I/E7R+I21I62*JBI. 7B7KSI+UM3TGT7BR(3Z	E7GKE.)F,2)V.3Q&.3D;ET*M*IB +ICF*(	B2 ?G+TCO.1J1.MFJ"1&12 N 7OSN7IWNE*M*IB 3C3A3LZ 3AGT/LF(*5&2.MFJ"1&22 N 3A3L6 KE7SSE3Z;E2(	K3T7U6(ST+AB3TWZ3IWG+R2)*32)"5&)3GTU*M*IB 3C3A3L^ 7EOTY7M2JVI3LWS"M&J2 N 3A3L6 WA3SWK3LWL+R
"16)2JVI3N	DF*M2I?G+TCO.1&9.MFJ26&I7FN(+Y;M+E;Q*2&5*IK*.J."M&J6 R 3P;U/K7T3P;U+KT"5&)3GT3UBI7VKA2 WR+SCT"2*M*IB 3C3A3LF 3U/S3E3L3E;R*(&5"M&J2 J 6=CT3U/N3T:.7ER.3TKA6(+T6(WP7NSK*(&5.)N+")*M*IB +IF+BB)3C3A3LZ 3AGT/LF(*3&9"M&J2 N 3A3L2 WG7T	SM*M*IB 3C3A3LV 3
WS3TWZ/NF(.7F,")*M*IB 3C3A3LV 3I/N3E3L3E;R*(21"16)2JVI3LWS"M&J2 N 3A3L6 KE7SSE3Z;E.(^1*,&1"M&J3ESNI7F2J^I3O?T. &1"9*M"1&77TWP7NSK6=WP7NSK*(&56I[+ACR7ROE/TN "M&J3C3A3LF 3U/S3E3L3E;R*(&5"M&J7BR=3P;U+K;T+N;E3P;U+KT"56)2J&I+F" +BB)3C3A3LZ 3AGT/LF(*3&9"M&J+ICF
(	S3MV./Q^.2)BI*"J,"M&J6 N /Y7M"1&87."""*M*IB 3C3A3LV 3RWS3TWZ/NF(.5F,")*M*IB 3C3A3LV 3RWS3TWZ7NR(3TKA6(+T6(WP7NSK*(&5.)J+.)J,2)BI7TWA"M&J2 ^ 3O?T. &1"9*M2I;E3D[I"M&J+ICF6(	S3MV./QF."9&)76"""*M*IB 3C3A3L^ 7EOTY7M*JBI2 GC+LCL7EOR7E+T+EN*125"16)*JBI2 GC+LCL
EOR7E+T+EN3TGT7BR(7ZB(3U/N/TV(*).)*22)"5&)3GTU*M*IB 7GSO/OF "9692JVI3N	DF*M2IGC+LCL7FSA+AL*1&2.MFJ"9&93C;O3T;IU7E2JVI7N
D3H3IE*M2IGC+LCL7AOU3K3E7LKE/NF(")*M2IWR7TKUN*M2I;ED*MBLBZ

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