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]331XNXH[!BE\S]=30XNXH[!FE\S9=;F<BC?2*(NG+:[?=CPOO>!04PECA1^LICPPNKA3TACA5\KYCPLIA7DACA8\H%CPOO:!:8PACE;]1CPOO8A=PACA>])=CPNL>8BA\NA+= ON:  \FC;< \N\ ?<,BC?:*(NGK9?
(CO:(J NFLGK9N8G< 0AO*(2,XNC;:<!4CO*(F*,HU 2C>A SE\NA37XNJ:2GF,HU 1G>AXSN;F?FTBLNI+4 OTN2 >A0GB33>IPCO:(J NTF0G>A0CN HGNO*(3"XNXH["D$LTA1>AHSNF[U NF [Q E\NA1E\S;0GF,HU 2D:A<SE\NA30XNJ;(GF,HU 1F>ASN;F;F8KOBH<I<JACC/<KACPLAC1$ACC2<DMCPOO:S4AAC?5?8YCPNFC7TAC
8<C%CPPNO:0PAC?;?>1CPPNN=,PAC?>?==CPNCXTESYASADB3>>I4CO:(" E\GK<;$LC?=*(NNX  GE\C;< \N\ ?<(BLNI+= ON:  \FA\NAK<N8G< 0GB39>I4CO:(J NTF0G>A0CN HGNO*(3IXNXH["D$LTA1^A TNF[U NF [M E\RA!7E\T96GF,HU 2D^ATTE\RA16XNJ;OGF,HU 1F^AXTN;F?FPKOBHDJ,HU 1B^ALTG;2GF,HU 1F
ALTNFP[I E\RA=3DGNFP[I E\RA=8GNFP[Y E\RA18XNPJS?!04PEDA1^LIDPPRKA3TADA5\KYDPPAA7(ADA8\D%DPOS1: OAD=;
*1DPPRNQ=AAD=>
7=DPNP>8BA\NA+=ON^ ?<,BC?=* NA
<?<8BC?:* NGK9?;(CO: > $ANX <G0CN HGNG;8?F CO*(F%,HU 1G>A\TNKF6E\C?5. ,JNOFK:DNC?=.($JNF [M E\RA4E\T;33FXNK;2?FDBA\NA+5OJ;JGF,HU 2C>APTE\RA33XNK;0;F<BA\NA+5 ON^ ;<8BC?5*(NNX <G0CN HGNO.(3-XNBO>+=ON^ ?<8BC?:* NNX <G0CN <G<JAD?.;=DPOSH;1(OADC3<EQDPPC54PAD?6
8]DPRF8 PEDC9>O)DPPRL?;4OEDC<>N5DPPRK?>8OAD;?G03I/N+ICT70LA7UOBS^R C- UEDW0<IIDPUJGZTUAE8(  OJ"GP[] 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!K4DNO:(" E\G;3?FLCO*(3!XNB[6<GTBXH
JE\TU12"APPLJIU4TUXH["D$LT0^ADUNFP[Y E\VA1<XNK;;3FXNB[6<GTBXH[JE\TU14"APPLJIA4PJW?A1TAEA2\CMEPPVHA4HAEA5
HYEPCT Y7 EEA8^D)EPAUA<DAEA=\I9EPVFA?NAE> HTJH7\CNH!K>DNO:(" E\G;=?F4CO*(2-XNB[<<G,BXH[JE\TU3:"APPLJI%4<UXH["D$LT0>A8UNF [M E\VA9E\U;8?F\KN;F?F0BFHGG;,HU 3J>AXUE\BA"D$LBA4L\HLHGDNB;5(! OTN2 >A4GNOF+= OK;4?F0BFHGG;,HU 3J>A(UE\BA"D$LDBU4GW,HA 2DBIE\VA3>XNXH
!FE\U;8GF,HU 2D>ALUE\VA32XNXH["DE\TP2D>A(UNKF?1<JAE?1?5IEPTFC3AEC5<GYEPTBC8DAEC9<O)EPTC3; AEO<< 5EPPVHC>TAE;?G03P	L+SCT70LA3C;OSSV G4<VEEY9%AFH<)<H8CO* 2XXNXH[0EXNXH["DE\TV1=^A0VNF [Q E\ZA!<E\V9<	F0JNF[- N;F?F,KN;FGF,HU 1G^A(VN;F?F$BLNI+>OJ:?GF,HA 8EGF,HU
2C^A VE\ZA1<XNXH["DE\TV17^A0VN/F3;XNNKF6$LC?>6 $JNF[U NF [M E\ZA!5E\V9<GF,HU 2D^A0VE\ZA1<XNK;;3FXNB34>I8CO;(" E\GK32$LC?>+NA\FA+3 OK;1GF,HA 8L?F<JAF=2
>MFPPZN=4,OAFA5\MYFPO[5A7,AFA8\N%FPOZ>Y:\AFA<\A5FPXLQ>AAF9?G03A[U+ACD30XA3E3HR Z !10VE[[6S1PV[ZF,HU 1F>A8VNFP[Y E\ZA3=XNK;<3FXNXH[!GE\V?;BH0XH["ME\TV3>>A,VNFP[I E\ZA?:$GXH["DE\TP2N>A VNFP[Y E\ZA3:XNB37>IXCO* 2=XNXH[0EXNXH["DE\TV3>>A8VN/F3<XNNKF5$LC?62  JN
[U N+F3NXNXH[!NE\V;=3FXNXH[0KXNXH[!FE\V;>?F0KOBH<MTBLNI+6OJ;$GF,HA 8E;F(JNFP[9 E\ZA3=XNNFP[Y E\ZA3>XNK?<BH8PJ[??5XOAFG6=]FPO[9C8\EFC9>N)FPXEC;XAFC=<D9FPXAC?NE
]49PW\[D,HU 1B^A8WN8!HADNO: > 4GNOF+= OJ"RP[] E\^A1<XNXH[!FE\W9;?F(KOBHDO,HU 1B^A8WGK9C8\FXH["JE\P2N^I<KWH-C7\FXH["J$L0:I<I 7TC0G>AXGNOF;6 OJOL?6TBO+ ?LXCB[EG\CF,GPGTWDW]OQO<WDW]OA+N<&HXXH[!FE\W9;?FPBLNI+3OJ]P[] E\^A12XNB31>ILCO* G	,HU 1G^AWN/F: OJW1$LC+3
?AGP^L91,OAGA2^JMGPA]948OAG=5
:YGPP^K%7AAGA8\2%GPP^NA;DAGA<^G5GPP^HA>TAG9?P-GPW^)*OJ"FP[] E\^A3>XNB3=>I0CO* 2
XNXH[0EXNXH["CE\TW3;>A(WNF [Q E\^A:E\W;:+FTJNFP[Y E\^A3:XNN/F9 OJX=$LC?<. HJXH[!GE\W;8?F\BLNI+<OK;6GF,HA 8E+FNLNI+< OJEP[] E\^A35XNXH[!BE\W
4?3HBF G [) E\BA"N$LKA?L\HL<GTBA\^A31XNNN ?1LGNN ?1GB[/DG,HU 2J"A<PL&IC/H7\CPJ
?	/AEGC0>OEGPP^KO2HEGC3>NQGP\EC5HAG?7?+!GP^<C:DAGC;<P1GPA];=8OAGC>>L=GPN\[6LXE
A-AHH<%<H8CA\^A3=XNNN <$LG3;>I,EC;; !E\C?=/H0JNKFC:\FXH["J$LF1):I<IXHC9\FB80[) E\"A!7$L0^IPB 7C8G !$LC;6(! OTN2 >ATGNOF+5 OJ*8C O9/ (JNFP[] E\"A!4 OI0C:\FXH["J$LF1):I<IXISC9\FB80[) E\"A!3$L0^IPBX!Z [M LBI E\X92GF,HA 8E;F$JNFP[Y E\"A17XNN/F1 OHP?0<JAH=0
	IHP EA3LAHA4^XUHPP"HQ6DAAHA7\A!HPHI9CAHE:^P-HPF!)!<,PEHA=^L9HPP"NA?NE ^AHH<)<H8CO* 3RXNXH[!BE\X
=3<XNXH[!FE\X;=GF,HU 1B>A4XGK;C:\FXH["JE\P2N^I<K 7CHG9E\GK;C8\FXH["JE\P2N:I<I 7C8G !E\C?<* NG;7?F\CO*(F?,HU 1G>AXXNF[U NF [M E\"A5E\X;4GF,HU 2D>APXE\"A34XNJ;ZGF,HU 2C>ATXE\"A34XNN/F3 O QP[I E\"A?=0GNFP[Y E\"A3=XNXH[!BE\X
=?;(BF(G??QHP AG5DAHC6>K]HPP"H	8AAHC9<C)HP 2;8PEHC<>I5HP ES>AAH;?AIXH["JE\P2N^I<K 7CHG>E\GK=C<\FXH["JE\P2N:I<I 7C8G !E\C?;* NG;:?F(CO*(F	,HU 1G^A$YNKF8$LC?76 8JNKF?6\GNF [M E\&A!5E\Y94GF,HU 1B^ALYGK=C2\FXH["JE\P2N^I<K 7CHG1E\GK=C<\FXH["JE\P2N:I<IY!W [M LB
 E\Y93?FKN;F;F<BLNI+7OK;.GF,HA 8E?F<JAI=/
-EIP$BM2HAIA3\EQIP$AA5<AIA6\R]IPA%=8$OAIA9^K)IPP&H!;$PAIE<^P5IPP&NA>LAI9?G03E	X+TB EI%.^-AIPY"4/3PYEH%1>4%GPY^4-:PYEF	<^4-FPYV4/7PYEE%;^4QDPYN4/.PYEC%4>4]BPYJ4-=PYEA	6^41APYB4/;\YEI%GSBUIPY	B0HHYEI$F+BAHPYB2^HYEG	+;B%GPY
B3UHYEG	S/B-EPYWB29HYEE&C[B5EPYWB09HYEE$7GB]IPY	D0UPYEH&/+D5HPYD0)PYEH$	ODMGPY
D01PYAI" [M E\&A?E\Y;>GF,HU 1B>A4YGK<C;\FXH["JE\P2N^I<KYB07HYCHG:E\GK<C9\FXH["JE\P2N:I<IY"& [M LBI E\Y;=/FPJN;FGF,HU 1G>A YOBHCGNN/F37XNXH[!FE\Y;>KFHA 8AGF,HA O<]IPP&<C80AIG9>P)IP$BO;HEIC<>N5IP$EC>DAIC?4O.B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"BBBZ

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