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&K7XJ\JK0\JK1\JP^H^
9.0K4[*K:[+K3[,2AO*?H+M
*
+S*S+S,+H2I/5""R"0/S	6[-K-H]X]K-/XLXXYHYC?XZ/ MAIN  ??B%L$T1<9.7*CYXXYYYYYYYYYDX?NXEWXLEYXDDDDDDDDDDDDDDDDDX [AXBBX2IHT&HX2AJIDX  AXADX [AXCYX	2+PQIJBUBTBSDQDODMDKDIBHDFDDDBF.B+30\A7EOT?YB 0AWR+ACDB G03IO* B ABN?FWGPALDCY2RWG7T	SB 83FXNN;F3FXNN;F3FXNN;F3F
NN;F3FXNN;FF O(2N+ JL0AA)OBH,(HJJ0E-8XKJ=FH8J*8HI$N<FHPJ*>(I$M<ZHPXH["BE\TP3>.A,PXH[!C$LA 9P[M LBI0XNXH["BE\TP3>.A,PXH[!C$LA!P[M LBI0XNN:  !$LC?=: (JNOF?<,GN+F3XNNKF:$LC?<?($KNOF<0FN;F<A0GN+F??)POB]O; AAG<=5PA9C>PA;?G03SKU+SC^EG9AAAK;>?F4BLNI+<OJ:XGF,HU 2
^A,QE\BAF5,HA 1CRIHAXH[!C$L8?F(KNKF9$LC?<* <JNF [I E\FA!;E\P".P[M LFIEC,HA 1CBIN/F38XNB37>I0CO* 3FXNXH["BE\TQ1;*A\PXH[!C$LA!GP[M LBI0XNK;6?FTBLNI+<OK;4GF,HU 2B^A,QE\BAF;,HA 1CRIXAXH[!C$L8GF,HU 2B^A,QE\BA>	LGA\VA?3LCN0!>IHCO/H?1BF(G
?AAPEPQ2XAEAA3^MUAPOG;=70OAA=9
=-APDDQ<AAA==
>=A<N4AE+ICT^ EAPQFL%4DQEAE6^R!APQFS%:PQEAE>"UAAXH["DE\P2MRI AQ"IP[M LBI<<KXH[!C$L83FXNN;F3FXNNF E NF[U <=A Q)C*.B+30XA3AGT?LB 4AKW3IWTB G03IO* B ABD!R<DD:M3FXOAT%LL07FSA+ACL<8BFHG&S0FA\NAC= FL"TE\GPHBT\DJ:\3FXNN;F3FXNN;F3FXNN;F3FXNN;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,.B+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?HBL.B+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 $LABXL\HL G(FN[F2XNB>I?( KNKFC7\FB90[I E\BA6E\P2I^I
B 7CXGNK\HLHGDNB>K*(NFJKJJDNB>I+NFJLC7\FB+9??YPAK7CAC9?H)PIC;(AW<>T9POC>C?N30XA+ACD> B 4AE+ICT> !PQ&O=QEG%81EPQ3O
LQEGJ05!PQD5D,HU 3B^A<QE\BA"I$LDBE4L5\HQL5HGDNB;>8!ON:  \FA\NAK=N8G< 0AO*(2
XNN^ 3;XNN;F" E\C
:3:XNK;9GF,HU 1C"APXH 0AXNXH[LDQEAA9
P)APPFI!;PEAA<^K5APPFLA>TAAA?$BFD.B+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$PLJI94\PDH7C	\CF"K87TPC8G !,BO: " (O*(3ZXNNJ "I$FN+F26X
BZI2XNB" E NF[M PC$<-PA3< AO=< 9PEBT??8OBHC-.B+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$L0ZI(B 7C8GLA\H\0GXNA\NA7<<FC[;? (BF G [
 LBI $LDBA*?($BF G [I LBI $LABXL\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"A0PLJIQ ,QDHD7AI\CA\^AO>\HQMKHGDNA\NA+>OJ"1P7\QCHG=E\G>P[M
E\BA2LXNDHD7AG\CN8!(AOJ">P7TQC0G>I0GNF E NF[Q QADAAY<]$5APAG>!>0PAAA?HJJG.B+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$L0ZI(B 7C8G
DNN !7G8GFE\C[<?!,CFK"C:\FXH["B$L0ZI(BT0>A0CFO/?;FB[:DG,HA 2BBILJIA H7\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!<$LDBE*<,BF G [I LBI $LDAFXL8\HQL8 G
LG;:KFHA 8AGF,HE DD3\)APFE$1; AAA<\A5APDJ9> CEAA?NLBL.B+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<$FC[;?J(BF G [I LBI $LBA L\HL G0FH7
CNH!*LOJ]P[M E\BA39XNA\NA;<\FC[;?((BF G [I LBI $LDBA*?0 BF G [I LBI $LABX<<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[PDY?PFBHC].B+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["
$L0ZI(BT0>A0CFOF3;\FB[:DG,HA 2BBILJIA H7\CF"I7C8G !$BO* GZ,HU 1C>A$PTN3F>A0CFO$;;TFB[:DG,HA 2BBILJI9*4PB[8DG,HA 2BBILFIBXH7\CF:?F<JAC8?H%PCC(C:(A?>?>=<N4AE+ICT> 5PQIC<(QEG;0K1PQLB<0QEG3<NEPQNCP8QEGJNAAXH[!DE\P" E NF[U QI (Y.B+30DA3UGF?DB 4AWS7B;SB G07FSA+
CLAB0XNOWAQFP00FQ3UGFCDB 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 $LBA L\HL G0FH7\CNH!*LOJ]P[M E\BA39XNA\NA;<\FC[;?((BF G [I LBI $LDBA*?0 BF G [I LBI $LABX E\C+<??!PCH;
 CAC:<J9POC<C?N30TA7XSIR B K= QEG<<+-PQ,KO4QEF?<-QPQ/KS<QEGM/AAFJG", FB[?DG,HA 2BBILJIE*QB[>DG,HA 2BBILFINXLQDHD73\CA\^AO=\HQL) GE\C=H7<QG8GKFHA 8AGF,HE DD(\5APPFL1> AAA? J2E.B+300A7EKE> B 4AWS7B;SB G03E	X+TB AB0XNOGL!ED002N7EKEB B B[? G8BFJVC\ FL"OE\GPHB
\DJ:V3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNNKF/]\FB[^>88BF G [I LBI $LDBA*7
4BFKD3^TFB[>DG,HA 2BBILJI9 DPDH7C
\CF"I87DPC8G !$BO:(" FNKFJHA 8AGF,HE CC\<9PJ??8OBLG.B+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 $LDABXOG\HPOG G$LG;<GF,HU 1C>A8PNF E NF[Q P	<PEAC=?H9PIC?(B
B/.B+308A3E3W?EB 0A	E3NWKB G03E	X+TB AB83F8OAMW$E07N
E+LCE0XNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNNF [I LVI"TE\P;?KFHA 8AGF,HA CAC?HI6

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