File SUBRU1.RL (Fortran library or relocatable file)

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

GETSY C>FATAL C<FEHL  C:DD    C8INKIT C6EINKE C4AUSKE C2ERSET C0PUNKT C.AUFAD C,LEER  C*OUTLE C(NEWLE C&+Z%7=P-/8DA-[B\[C2B%=A:P-,I4X$H$%08 KB9XKA?\!\8!KC> +XL"A+KB\!P$+GL	-*EPL"9F8F8FA)I(/\EIA)<(-	X*H*I&X"H*I%X!H*I$X(L!/$&Y/S3<4<-T&D&E3;4;5D6A1%9"R*KA*PH
8!M%1U<H&8!%1U<-/< *)X%X&H-%0<(-"X)%7X$<P8X8JD(> *PL(?.RRR:A[7H)A+9F8DK78!HG<(*88!HGXG;X0M!84=X+888X+I XO.RLO>(+ : HOXOI
X&H$X	H	%^8!LO> +]P	P&+L*LO<(+!8!X&SA/AH&8A*LOH%X%P++BX%BUBTBSDQDODMDKDIBHDFDDDBF**+30\A7EOT?YB 0AWR+ACDB G03IO* B AB83F\OAQT	YX07GSE+SCY0XNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNOBH(2<JJ08XA$L<JH J*6\E LK*6! O(^B<$JN)  O(TCB$JMB)  O!$ [I E\BA>E\P"?P[M LFID9,
A 1CBINF [I E\BA>E\P"?P[M LFID:,HA 1CBIN;FJ DNLNI+=OJ;.?F0CG;;3FPJN;F?F(BLNI;< OK;9?F0CF:L?F<JA?:>]-PA8O<(AAG=<99PDC?NEG9EAAN0A>I8GN/F3=XNB3<>I8CO* 2\XNXH["BE\TQ1;.A$PXH[!C$LA <P[M LBI0XNK;:?F$BLNI+>OJ:3GF,HU 2B^A,QE\BAF2,HA 1CNI4AXH[!C$L8?F KNKF7$LC?>2 (
NF [I E\FA!;E\P"+P[M E\BAFM,HA 1CBIN/F36XNB35>I8CO. 34XNXH["BE\TQ1;.A<PXH[!CE\P"PP[M LBI0XNXH["BE\TQ1;*A,PTG33>ALEC;3<!HCO/H?1BPJG?U0EAA2^PMAPPFQ=5,OAA=7
<%APOG=A;PAA=<
>9APAD:A?N70LA7UOB?^B 4AE+ICT^ EAPQFM%4HQEAE6^S!APQFT%:TQEAE="VAAF G [Q E\BA"Q$LDAEBFJ,HA 1CBIK?P[M LBI0XNN;F3FXNN;FKFHA 8AGF,HA EEAG?-	*L**+30XA3AGT?LB 4AKW3IWTB G03IO* B ABD!R<DD:M3FXOAT%LL07FSA+ACL<8BFHG&S0FA\NAC= FL"TE\GPHBT\DJ:\3FXNN;F3FXNN;F3FXNN;F3
XNN;F3FXNN;FF O(AB<DJL")H HH   O(BCE$JM")H HH   O(CCNDJM")H HH   O(DCWTJL-5Z7JH   O(EC DJL!)H HH   O(FO) JL0AI)HH 0XNXH["BE\TP3<BAC
;?:$CG+8??1PA?>8OA;?G03SKU+SC^30LA3H	A?NB 4AE+ICT> )PQBC8LQEG/<K5PQA]W;8QEG9A
AAXH[!C$L P[M LBI  O(JJY\JAVAATCDF BE0BA!R(N8DH,	XI$M8CFDNLNI??<GNKFC>\FB=0[Q E\FA!<$L2"IDQ! X7QG8G?F8BFHGG=,HU 3D^A,QLBI"$LDFA! $LC:X7QG8G?F8BFHGG=,HU 3D^A$QLBI"$LDFA! $LC8X7QG8GGF,HU 1E"A0PNF E NF[Y QA]\!APAD9A9LAAE:\8-APDBA<DAAA=\=9APF7!?BOA&**+30XA3E3
> B 4AKW3IWTB G03IO* B 70LA7UOBS^B B0XNOGFAHC00ZP3E3HB B B[>$GBTF2Y>A4CFH$DCA\^A$HDDD(G2YXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNNF [I E\BA<E\POF/;4FC[:F>,HA 1CBIXH[!C$L<:H CJ+UP	$ACBFACTBDF BE0BA!R(N8DH,	HI$M8CFDNLNI?9$GNKFC8\FB70[Q E\BA<$L2"ID 7C G7G8G?F B
HG?7<JAC7<=!PB79AC<<A9POC>C?N30XA3AGT?LB 4AE+ICT> 5PQ4O;TQEG:86!PQ5O+\QEG&7AAXH[DE\Q1?"ILBINA\QLNIO>\HQ\70GXNB[=<G0BXH[DE\Q1;"ILBINA\QLNIO:\HQ\70GXNB39>I CO+H*/$JOVHG\,HU 1E^A\QO^HKPHA 8AGF,HE DF4AAA7
?!APFA19POAAE:\9-APDCM<4AAA=^79APAD8A?HBKC:**+30PA+DB > B 4AWS7B;S" A83FPOLA2PSD* B B HC>\FBZP"YE\C[=HTC2QBA GDRQ$G$JN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN2 >I0CF:I?F,BF G [I E\BA:$LDBA$?D$BF G [I LBI $LABRL\HL G(FN[F2XNB>I?( KNKFC7\FB90[I E\BA6E\P2I
I8B 7CXGNK\HLHGDNB>K*(NFJKJJDNB>I+NFJLC7\FB+9??YPAK7CAC9?H)PC;(AW<>N9POC>C?N30XA+ACD> B 4AE+ICT> !PQ!K=,QEG%8,EPQ.K
8QEGJ00!PQD0D,HU 3B^A<QE\BA"I$LDBE.L0\HQL0HGDNB;>8!ON:  \FA\NAK=N8G< 0AO*(2
XNN^ 3;XNN/F3:XNXH[!CE\P" E NF[Q Q+PD5:PEAA;^1APPFK!=0PAAA>\E=A 8BBC**+30$A3N	K?TB 4AWS7B;SB G03E	X+TB AB83F$OCJK%T03I/N+ICT<<BFHG&P FB[$HTC2QBA GDRQ$G JN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN2 >I8CF:IF$BO; " (FB[=<G0BXH[BE\TP3;"A$PLJI9.\PDH7C	\CF"K87
PC8G !,BO: " (O*(3ZXNNHA"I$FN+F26XNBZI2XNB" E NF[M PC$<-PA3< AO=< 9PEBN??8OBH<**+30TA3I/N?EB 4AWS7B;S" A83FTOBIN	ED03E;I+KCE<8BFHG&Q(FA\NAC= FL"RE\GPHBR\DJ:Z3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNNOF/<,FC[;><(BF G [I LBI $LBA$ E\C[<?I,CFKJC:\FXH["B$L0ZIPB
7C8GLA\H\0GXNA\NA7<<FC[;? (BF G [I LBI $LDBA$?($BF G [I LBI $LABRL\HLLG\H\0GXNA\NA?< GPJC?39 AC:<J9POC<C?N30XA3AGT?LB 4AE+ICT> !PQFS=PQEG.=E1PQAGS; QEGS-I=PQAIS1,QEG,1K=PQAKSM,QAAHH\FB[?DG,HA 2BBILJIQ$$QDHD7AG\CTN0A>A8GB[?DG,HU 2B"A0PLJIQZ,QDHD7AI\CA\^AO>
HQMKHGDNA\NA+>OJ"1P7\QCHG=E\G>P[M E\BA2LXNDHD7AG\CN8!(AOJ">P7TQC0G>I0GNF E NF[Q QADAAY<]^5APAG>!>0PAAA?<JJF**+30DA3U/S?EB 4AWS7B;S" A83FDOEIS	ED07AOU+KCE<8BFHG&Q(FA\NAC= FL"RE\GPHBR\DJ:Z3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNNOF/<,FC[;><(BF G [I LBI $LBA$
E\C[<?I,CFKJC:\FXH["B$L0ZIPB 7C8G!DNN !7G8GFE\C[<?!,CFK"C:\FXH["B$L0ZIPBT0>A0CFO/?;FB[:DG,HA 2BBILJIAZH7\CF*L??)PJ?>8OA;?G07FSA+ACL30TA7XSIR B O=LQEG<<4-PQ5O5XQEG%46UPQ6N?XQEG308=PQ8OM QAA< HTJDHD78\CTN0!>A<CO+FN,HU 1C^A8QNFL7PQC8G!DNO* >-4BF G [I E\FA!<$
DBE$<,BF G [I LBI $LDAFRL8\HQL8 G$LG;:KFHA 8AGF,HE DD3\)APFE^1; AAA<\A5APDJ9> CEAA?BLBL**+30TA3RWS?TB 4AWS7B;SB G07FSA+ACLAB0XNOSEVSPA00VQ3RWSCTB B[>$GDBTF2Z>A4CFH$HCA\^A$HHDD(G2ZXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F?F0CFN;/;0FB[:DG,HA 2BBILJIA$A\NA3<$
C[;?J(BF G [I LBI $LBAZL\HL G0FH7\CNH!*LOJ]P[M E\BA39XNA\NA;<\FC[;?((BF G [I LBI $LDBA$?0 BF G [I LBI $LABR<<JAC8?H%PCC(C:(A?>?<=<N4AE+ICT> 5PQ[G<8QEG;0
=PQ J?QEG44"MPQ"KMHQAA< HTJDHD7\\CDHD7"\GNFD78QC8G!DNO* NU\HQL\ G$LG;?KFHA 8AGF,HE DD[PDU?8FBHB9**+70A3U/N?TB 4AWS7B;SB G07FSA+ACL30XA+ACDR B BN?FSP8ELBCT6NWP7NSKB HC>\FBZN"WE\C[=HTC2OBA GDRO$G\JN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNC[<>8,CFJ9C:\FXH["
$L0ZIPBT0>A0CFOF3;\FB[:DG,HA 2BBILJIAZH7\CF"I7C8G !$BO* GZ,HU 1C>A$PTN3F>A0CFO$;;TFB[:DG,HA 2BBILJI9$4PB[8DG,HA 2BBILFIBRH7\CF:?F<JAC8?H%PCC(C:(A?>?>=<N4AE+ICT> 5PQIC<(QEG;0K1PQLB<0QEG3<NEPQNCP8QEGJNAAXH[!DE\P" E NF[U QI $C;**+30DA3UGF?DB 4AWS7B;SB G07FSA
ACLAB0XNOWAQFP00FQ3UGFCDB B[>$GDBTF2Z>A4CFH$HCA\^A$HHDD(G2ZXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F?F0CFN;/;0FB[:DG,HA 2BBILJIA$A\NA3<$FC[;?J(BF G [I LBI $LBAZL\HL G0FH7\CNH!*LOJ]P[M E\BA39XNA\NA;<\FC[;?((BF G [I LBI $LDBA$?0 BF G [I LBI $LABR E\C+<??!PCH
9 CAC:<J9POC<C?N30TA7XSIR B K= QEG<<+-PQ,KO4QEF?<-QPQ/KS<QEGM/AAFJG", FB[?DG,HA 2BBILJIE$QB[>DG,HA 2BBILFINRLQDHD73\CA\^AO=\HQL) GE\C=H7<QG8GKFHA 8AGF,HE DD(\5APPFL1> AAA?XJJE**+300A7EKE> B 4AWS7B;SB G03E	X+TB AB0XNOGL!ED002N7EKEB B B[? G8BFJVC\ FL"OE\GPH
O\DJ:V3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNNKF/]\FB[^>88BF G [I LBI $LDBA$7
4BFKD3^TFB[>DG,HA 2BBILJI9ZDPDH7C
\CF"I87DPC8G !$BO:(" FNKFJHA 8AGF,HE CC\<9PJ??8OBKC5**+30<A3U3T?EB 4AWS7B;SB G07AOU+KCE30TA7XSIR B B0XNOWOATTC00>P3U3TCEB N;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F?F<BF G [I E\BA>$LDBA$>04BF G [I LBI $LDABROG\HPOG G$LG;<GF,HU 1C>A8PNF E NF[Q P<8EAC=?H9PIC?(B
BW**+308A3E3W?EB 0A	E3NWKB G03E	X+TB AB83F8OAMW$E07N
E+LCE0XNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNNF [I LVI"NE\P;?KFHA 8AGF,HA CAC?HIF

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