File AUSDRU.RL (Fortran library or relocatable file)

Directory of image this file is from
This file as a plain text file

"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B.B+30DA3USS?RB 4AWP7NSKB G07EOR+ECT30TA3I/NSEB BN?FWALELAR6TWA7SKDB 83FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNNFP[I E\BA>(FNF [M E\BA=E\P;>GF,HU 2D"A(PE\BA3>XNLNI+< OK;;?F0CO+(?!0CB?:; DJCK<CO\FA\NAG\FDKG;OPP8  O A 
M E\BA9E\P;>GF,HU 2D>A PE\BA3>XNPJC?C8PAC9<B)POC/[<PFAC=<9PAC?N30\A7EOT?YB 4AWA3SWK6 EPQJSR(QAA  [Q E\FA!>E\Q9=?F0KOBH<B,BLNI+: OTN2 >A$GB38>I(CO:(J NTF0G>A$CN HGNO*(3XNXH[0EXNXH["D$LTA1^A\QNF [M E\FA!6E\Q9=GF,HU 2D^A\QE\FA1=XNXH["DE\TQ1>^A4QN+F3FXNXH[!FE
Q9=3FXNK?<BHLXH[!BE\Q]534XNXH[!FE\Q95GF,HU 1B^ATQG;3GF,HU 1B^A\QG;2GF,HU 1F^A\QN;F> PCO: > $GNN +3ON:  \FPJG?!24PEAA3^LQAPPFKA5TAAA6\C]APDD184OEAA9^N)APAE-;0OAAA=\A9APDFA?N30XA3AGTSLB 3SXQAA"% OC;> \N< "(0JXH[!GE\Q;=?F0BLNI+; OTN2 >A8GB3:>I,CO:(J NTF0G>A8
N HGNO*(2<XNXH[0EXNXH["D$LTA1>A$QNF [Q E\FA9E\Q;8GF,HU 2D>A\QE\FA38XNJ;BGF,HU 1F>A QN;F?FXKOBH<DTBLNI3;OTN2 >A8GB34>I,CO;(" E\A?>>(JNF [Q LFI!E\Q;9GF,HA 8EGF,HU 2C>ALQE\FA38XNXH["DE\TQ37>A QN/F32XNPJG?C3TAA?4?/UAPOG4C7XAAC8<A%APDD3:4OAAG;=1APOF<=\EAC>>N=A
NDC2TREKT4IUPRI	D,HU 1F^A8RN;F?F4KOBHDE,HU 1B^A0RG;;GF,HU 1F^A0RNFP[I E\JA=<(GNFP[I E\JA=9 GNFP[Y E\JA19XNC;:<!,CO* 23XNXH["CE\TR1>^A0RN+F29XNXH[!GE\R973FXNB36>ITCO;" E\GK43$LC?5+(NA\FA+4 OJ;]GF,HA 2DRIAE\JA19XNXH[0EXNXH["DE\TR12^A8RN+F3XNXH[!FE\R9>3FXNK?
BHXB31>ITCO:(" E\GK4?0<JAB=0
:EBPOK8A2XAB=3
/QBPPJNQ5AAB=6
4]BPJA!84PABA9\D)BPPJL!;,PABA<\E9BPHAA?N300A7EKER B /VHRAB") OC?>*(NNX  GE\C;= \N< &($JNF [Q LFI!E\R;<GF,HA 8E3FXNXH["CE\TR3;>A(RNF [Q E\JA9E\R;:GF,HU 2D>A RE\JA3:XNK?7BH\XH[!HE\R;<(  OK;6GF,HU 1B>A0RNH!K5DNO:(> 4GXH[!BE\R;<<!PBN<!*(NNX <G4CN HGNO.(33XNXH
!BE\R;2<!DBN<!* NG=P[I E\JAK2DNB;0(!ONF += OK;/?F<JABC0<CEBPHBC2TABC4<FUBPHHC8,ABC9<I)BPHAC;\ABC<<D5BPPJNS>AAB;?8=BPSHEC3,SEBO64L]PSMMD,HU 1G^A8SN;FGF,HU 1F^A4SN;F3FXNB3<>I,CO:(" E\GK:9$LC?;*(NNX  GE\C;: \N< 2(LJNF [Q LFI!E\S9=GF,HA 8EGF,HU 2C^A SE\NA17XN
H["DE\TS16^A\SNF [Q E\NA!5E\S973F$JNFP[Y E\NA17XNN/F4 O HP[I E\NA=3HGNFP[Y E\NA13XNXH[!BE\S]331XNBO0+2 ON^ ;:<BC?2*(NNX <G(CN HGNG+:[?=CPOO==08OECA1^LICPPNKA3TACA5\KYCPLIA7DACA8\H%CPOO:!:8PACE;]1CPOO8A=PACA>])=CPN;XDSACJ>E\C?=*(NGK<?;4CO:(J NFLGK<N8G< (AO
(2!XNC;=<!$CO*(F
,HU 2C>A SE\NA37XNJ:	GF,HU 1G>AXSN;F?FTBLNI+4 OTN2 >A(GB33>IPCO:(J NTF0G>A(CN HGNO*(3WXNXH["D$LTA1>AHSNF[U NF [Q E\NA1E\S;0GF,HU 2D:A<SE\NA30XNJ;]GF,HU 1F>ASN;F;F8KOBH8I4BLNI+4 OTN2 >A(GB3,>IPCPJO?;,(OAC?-;7=CPLKC0DACC1<IICPLD?3(OACG4=UCPOO86XACC7<E!CPLC9
PECC:>N-CPOO=<<PECC=>L9CPOO>C?NESYAIADO:(J NTF0G>A8CN HGNGK>=$LC?<*(NNX  GE\C;> \N\ ?>,BLNI+< ON:  \FA\NAK>N8G(  OJ:?GF,HA 2DRIAE\RA1:XNXH[0EXNXH["CE\TT19^A TNF [Q E\RA!7E\T983FTJNFP[Y E\RA18XNN/F6 O JP[I E\RA=5PGNFP[Y E\RA15XNXH[!BE\T]533XNXH[!BE\T]:32XN
H[!FE\T9:?FDBC?4* NGK>?0PCO: > 8APJS?=04OAD=1
>IDPPRM!30PEDA4^KUDPPEA7,ADA8\A%DPPJA:PAD=;
1DPAQ1= OEDA>^N=DPNPJTHO\H?>4BA\NA+<ON^ ?;(BC?<* NA;; \FC;> \N\ 39XNC?9&(4JXH[!GE\T;8?F\BA\NA+6OJ:3?F0CNL!+5 OJ:1GF,HU 2C>APTE\RA33XNN/F32XNTB31>AXCO* 3BXNXH["CE\TT34>ALTN/F30XNTB3/>AXCO:(> 8GBO.+6 ON:  \FC;> \N< :(4KNKF?=TCO: > 8GBO=+<ON:  \FC;> \N< :(0K
JS?3.OAD?/?HEDPOS*C3TADC4<CUDPPRK64PAD?7?8!DPRF9 PAD?:?=-DPPRO<0PAD?=?>9DPPRNC?N30$A3N	K?TB 4AWS7B;S: 1DPUPDC-TUEDW0<FIDPUGGZHUAE P[] E\VA1>XNN;F3FXNXH["CE\TU1=^A0UN/F; O8K" $LC?:> $KNFP[% LFI=A GNF[U NOF+8OJ"(P[] E\VA17XNB[6<GTBXH[JE\TU14"APPLJIA4H7\CNH!
4DNO:(" E\G;3?FLCO*(3^XNB[6<GTBXH[JE\TU12"APPLJIU4HUXH["D$LT0^ADUNFP[Y E\VA1<XNK;;3FXNB[6<GTBXH[JE\TU14"APPLJIA4H7\CNH!?1<JAEA1\EIEPTC!3 PAEA4\BUEPWHI6CAEA7](!EPPVDQ:AAEA<\A5EPTI!>XAE9? AEN<!*(NA\^A3>XNC?>*(XJNKFC=\FB<0[) E\VA;E\P2D^IPBU"X [Q LBI E\U;:GF,
U 2C>A$UE\VA38XNK;73FXNB[=<G0BXH[JE\TU36"APPLJIA4H7\CNH!K5DNO:(" E\G;>?F8CO.(34XNB[=<G0BXH[JE\TU3;"APPLJI54UXH["D$LT0>A(UNFP[Y E\VA38XNXH["DE\TU33>AHUNF [Q E\BA"DE\U;;?FDBLNI+0OK;/?F<JAEG0=EEPOW5C2XAEC3<UEPTGC6HAEC8<A%EPTOC:TAEC;<C1EPWHK=CEEC>>H=E<N4AWA3F
AB G03P	L+SCT70LA3C;OSSV G/$VEE[4\ %EPVX&D,HA 8EGF,HU 2D^A8VE\ZA1=XNXH["DE\TV1=^A4VNF [- E\ZA!=E\V9<	F4JNF[1 N;F?F,KN;FGF,HU 1G^A(VN;F?F$BLNI+8OJ;GF,HA 8EGF,HU 2C^A\VE\ZA1=XNXH["DE\TV16^A4VN/F3;XNNKF5$LC?86 (JNF[U NF [M E\ZA!4E\V9=GF,HU 2D^A4VE\ZA1=XNK;;3
XNB33>I CO;(" E\GK21$LC?8+NA\FA+2 OK;0GF,HA 8M?F<JAF=1
>IFPPZN=3,OAFA4\MUFPO[5A6,AFA7\N!FPAY-98OAFA:]	1FPXFA=DAFA>\L=F<N0AWF+HCL^ AFPVBL	[LVE[\ZAFXH[!FE\V;>GF,HU 1F>A4VN/F3<XNNFP[] E\ZA; OHL:$LC?9. 4JNF[U NF [- E\ZA>E\V;;GF,HU 1B>A VG7 [Q E\BA"NE\V;6GF,HU 1F>A VNF [Q E\ZA>E\V;>?F0KN;F?FTBLNI+9OJ;HGF,HA 8E3F8J
FP[9 E\ZA3=XNNF[1 NFP[Y E\ZA3>XNK?<BH4B35>I$CO* 3$XNXH[0EXNJ;*GF,HU 1N>A4VN;FGF,HU 1F>A8VN/F< O(N??UFPO[6C6\EFC7>N!FPXES9AAF?:?9-FPXFC=PAFC><A=FPNC]WE
^[AGXH[!BE\W9>!DNN<!* NG;=?F4CO*(FR,HU 1G^A0WNFP[Y E\^A1;XNK?:BH<XH[!BE\W]>?9 BF G [) E\BA"N$LDK]?<-\BF G [) LBI $LIC/L\HL GE\G;6?FXCO+(?LXCB?53 0JCK6CE\FCXGG\KDW]EQO<WDW]OYO,W8  O"VP[Y E\^A1;XNB34>ILCO* G],HU 1G^AHWNKF1$LC?3: \JXH[!GE\W90?F(KOBH>WDBLNI?3
JAGA0^LEGPO
+!2(AGE3]QGPO
.=5(OEGA6^K]GPA^PM8HEGA9^N-GP\A!<\EGA=^H9GP\EA?NEG]K")AGO* FF,HU 1G>A8WNKF=$LC?<& <JNF[U NF [M E\^A;E\W;:GF,HU 2D>A(WE\^A3:XNJ:%GF,HU 1F>A(WN;F?F$KOBH>X4BLNI+<OJ"2P[] E\^A38XNB37>I0CO. 36XNXH[0EXNN2 >I0CO*(GE,HU 1G>ATWNFP[I E\^A?4LGB[2DG,HU 2J"A8PL.IA?H7\
TB35>ADGN;F> DCG;3> DCGK0C/\FXH["JE\P2O:I<I 7C(G;?=GPA^P0<PEGC1>KIGP\238PAGC4<EUGP\B;7,OAGC8><)GP\AG;AGG<=5GPO
.>0AG;?<YGPXA[
4XAH % OTC3>>A4GN;F> 0CL^I;$LEO;K;DNA\NA3= OJ:<?F(BF G [) LZI!)$LDI/<$BFHGG8,HU 3J^A\XLBI $LBA4L\HLHGDNLNIK6DNO:(" E\G;5?FTCO*(28LJOBHA/NJ:JGF,HU 1G^APXOBH=0(BF G [) LZI!)$LDI/=S$BFHGG8,HU 3J^ALXLBI $LDB!4EZ,HA 2CBIE\"A12XNXH[0EXNJ;)GF,HU 1F^A\XN;F?FDKOBH
PBPJ?90\OAHA2\EMHP C%4 EHA5^HYHPA!AA7DAHA8
H%HPC  %:AAHY;])1HPP"K!=0PEHA>^N=HPN7 8XAH") OC?>6 HJNFP[I E\"A?=0GNFP[Y E\"A3=XNXH[!BE\X
=?;(BF G [) E\BA"N$LKA?L\HL<G$BA\^A?; BF G [) E\BA"N$LIC/L\HLHGDNA\NA+<ON^ 37XNC?7.(<JXH[!GE\X;6GF,HA 8EGF,HU 2C>ATXE\"A34XNXH["DE\TX34>APXN+F3ZXNXH["CE\TX35>APXN;F?FLKOBHDQ,HU 1B>A4XG;<GF,HU 1F>A4XNFP[I E\"AK=DNC?<* NG+7??QHP AG5DAHC6>K]HPP"H	8AAHC9<C)HP
2;8PEHC<>I5HP ES>AAH;?AITN3F>A8CO*(FI,HU 1G^A4YNKF<$LC?;2 JNKF?:,GNF [M E\&A!9E\Y98GF,HU 1B^A\YGK6C5\FXH["JE\P2N^I<K 7CHG4E\GK6C3\FXH["JE\P2N:I<IY 9 [M LBI E\Y94?FHKN;F?FDBLNI+;OK;0GF,HA 8EGF,HU 2C^A$YE\&A18XNXH[!BE\Y]7?6TBF G [) E\BA"N$LKA?L\HL<GPBA\^A?6
BF G [) E\BA"N$LIC/<<JAI=1
-MIPA&PA4HAIA5\2YIPP&NA7TAIA8\A%IP$OE:HAIE;]1IPO	9!=,EIA>^H=I<N4AE+ICTZ 5IPY&B!0$YEI%2>PMHPY"P%1YEG	9^P)GPYZP	<YEF%;>P]EPYVP%;YED%6:P9CPYNP%4YEB	7^P5BPYFP	6YEA%<>P-PY&S% 8YEI%^J^%IPY&^$	8YEH& &^9HPY^^	+8YEG	)6^UGPY^^	S8YEE&4.^IEPYV^%,8YEE%*N^YEPYV^$48YEH&
* 5HPY" ()YEH$	N MGPY^ (1YAI" [M LBI E\Y;?	FJN;FGF,HU 1G>A8YOBHCGNN/F3=XNXH[!FE\Y;<KFHA 8AGF,HA O<1IP$A/=0PAIC><L=I \E]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