File SUBRU2.RL (Fortran library or relocatable file)

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

TYPEN C>PARAM C<SCONS C:CONST C8EST  CT&T)ET!CT6 CT= AT2 8!LJ> **S+*!RR.R;&K-[-S.*Z.RH^9DH^8!K7XJK/\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*CX [AXCDHX2AJBX2IHUX2IHUJHUOURDUODBB7PGB=X [AXCDHX2AJCX2IHUX2IHUJHUOUVDUODX [AXEDX [AXFDX [AXGDX [AXHDX [AXIDX [AXAJHX2AHU8DX  AXADX [AXKIT)YXYXPT!PT6FIBTRLHIV.B+70PA3YWP?NB 0A	E3NWKB G07AOU
KCE30$A3N	K?TB 0AGF3T3A" A87FPOFEP%ND07TCY+ECN0XNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F+FNLNI>PFNF [I E\BA=E\P;=GF,HU 2B>A0PE\BA3=XNLNI+; OK;:?F,CO+(?R,CB?97 HJCK;CK\FA\NAG\FDKG7KTPPC
NOBHA%NNFP[M E\BA3=XNK?8ZHXN8+FNLNI+7OK;6GF,HA 1DRIDAF:CFLBO. ?5<JAG7=%POC:[;PFAC<<B5PA	>PEA;?G03SKU+SC^30\A7EOT?YB 4AKE7SSE> UPQDS6DQAA P[U E\FA1>XNB[=<G0BXH[FE\TQ1;"ALPLJIA4H7\CNH!K:DNO: " E\G;9?F$CO*(F,HU 1E^A QNKFC=\FB<0[Y E\FA!:E\P2C^IPBQ 2 [I LBI E\
97GF,HU 1C^AXQNF[] N/F35XNNKF4$LC?3: HJNF [! E\FA!2E\Q96GF,HU 2B^A\QE\FA16XNXH["BE\TQ11^AHQNF[] N/F35XNNKF0$LC?3:(0JXH[!EE\Q92?F<JAA=0
LEAPDA2XAAE3]QAPOF8A6DAAA7\E!APE	!9\PAAA:\C-APDB1< AAM=\ 9APE(A?N30LA7OON?TB 4AWP7NSK2 9PQFHF,HU 2H>A8QE\FA= O9	0XNXH[0GXNB3<>I,CO*(FV,HU 1E>A(QOBHDA,HA 8G?F$BF G [Y LZI!$LKA?L\HL<G BNH!K7DNO; " E\G;6?FXCO*(F7,HU 1E>ATQN;F A$LC;4<!$BN<!+ NA\^A36XNC?62((JX
[!EE\Q;3GF,HA 8IGF,HU 1J>A QG;2?FDBC?2* NGK0?/HCO: > AO*(G$,HU 1E:A8QNKF/E\C?2: 4KPJG?
.DAA?/?<AAPPFK?18OEAC2>HMAPBDK[4LFAAK5<JYAPPFG37 AAC8<E%APD2C:,AAG;=1APOG.C=DAAC><C=APNDC-PRAB P[U E\JA1>XNB[=DG,HA 2FZILFL.IA?H7\CL^I3<XNB[;DG,HA 2FZI$FL&IC/B:7G8G?F$BLNI<E\GK8C;\FXH["FE\P2K:I<IHO7\H\0GXNB36>I0CA\^A?8,BF G [Y E\BA"K$LIC/D,HU 1J^AXRGK8C5\
XH["FE\P2KZI,F 7C G7G8GGF,HU 1C^AXRNKF4$LC?3: \JNF[] N+F3-XNXH[!EE\R923FXNXH[0IXNPJK?M20ABE3]QBPOK	15 ABA6\D]BPHB!8,PABA9\C)BPHE%;AABY<])5BPH2!>8AAB9? ABXH[!JE\R;><!4CN<!* NG;<?F0CO*(FR,HU 1E>A,RN;F A$LTC3:>A$GB[8DG,HU 2F"A,PL&IC/XH[!JE\R
7?9XBF G [Y E\BA"K$LFA+L\HLGDNA\^A?9\BLNI:E\GK5C8\FXH["FE\P2L:I<I 7C8G !E\C97G8GGF,HU 1C>A\RNFP[M E\JA3>XNXH["H$LTF1>A8RNKF4$LTC3:>A$GXH["BE\TP2K>ALRNF [! E\JA7E\R;2?F<JABC2<AMBPHCC4HEBC5>LYBPKHC7PABG8>P%BPPJK[:$FABC;=+1BPPJG= PABC><E=BPNSOSEOPA*ACXH["BE\
S1>^A4SN;F A$LC
<3<XNB[;DG,HA 2FZILFL.IA?B3:>I$CH7\GNKF8$LC?7* HJK;6?FTBLNI+7 OJ",P[U E\NA14XNXH[0GXNB33>I\CO*(F9,HU 1E^AHSNF[] N/F1 O9(0XNXH[!JE\S]0;/8BF G [Y E\BA"K$LIC/D,HU 1J^A(SH7\GNFP[M E\NA10XNXH[!CE\S9:GF,HU 1C^A4SN/F1 O9)0XNPJO?%.AECA/^KACPLCA2 AC=3^=QCPLL954OEC
6^X]CPAM=8$OACY9]))CPLEM;HACY<]5CPLAA>HAC9?G0+DCD* B 30DA3UGFSDN F,HU 2B>A8SE\NA3=XNN2 >I0CO*(FP,HU 1E>A,SN;F" $LC?<> (KNFP[- LFI=A$GNOF+9 OJ"$P[U E\NA38XNB[7<GXBXH[FE\S35&IPELJIA4LNIO4\H\0GXNB[7<GXBXH[FE\S3;&IPELJIA4B37G8GGF,HA 2B&IPEE\NA32XNXH["LE\TS35>
4SN;F A$LC
131XNBO031 OJP[U E\NA3/XNXH[0GXNB3.>I0CO. ?-<JAC?.;9=CPBLHO0 OACW1>TICPLCC3PACG4=AUCPLA36 ACO7< !CPM%9\PACC;<B1CPAMC=XACC><=C<N4ACN3U/N: 5CPTLOG:0TESQ*ADNF[] N;F" $LC?>"(4JXH[!EE\T9=	F(JNKF<$LC?>&($JXH[!EE\T9;3FXNK;:GF,HA 8GGF,HU 2H^A4TE\RA19XNK?8ZH(N8GF,
U 1J^A\TG;6GF,HU 1J^A,TG;5GF,HU 1C^A\TNF [1 E\BA"IE\T97GF,HU 1C^A,TTN3F>AXCO/(34XNXH["ME\TP2I^ALTG;2+FNC
636XNB[1<GBXH[FE\TT13"ALPLJIA4C57G8G?FDBFHG?0<JADA0
HEDPCP !2LPADA3\CUDPPRJ!6$PADA7\F%DPPA%:DSADA;\E1DPOS(A=HADE>]=D<N0AWF+HCL^ QDPTRNF,HU 3F>A8TE\BA"C$LBA4L\H\0GXNK;=?F0BLNI+;OJ:!GF,HA 8GGF,HU 2B>A(TE\RA39XNK;83FXNB37>I,CO*(26XNXH[!NE\T;6GF,HU 2B>A(TE\RA39XNK;83FXNXH[0GXNXH["B$LTF1>A(TNFP[) E\RA?5PGNFP[M 
\RA35XNB[3DG,HA 2FZILFL.IA?H7\CA\NA?4HBNH!K1DNO;> GNOF+0 OJ)P[U E\RA3/XNB[3<G<JADK/<NADPPRG31 ADC2<BMDPP24$PADC5<FYDPPN37POADC9<A)DPPES;AAD?<?)5DPTQIC>PAD;?AEXH["F$LF1^I<K 7C0G>I8GN;F<A4CG;=?F0BC?=	H$JXH[!EE\U9;?F(BF G [Y LZI!$LKA?<$CLNI?> BH7\GNKFC7\FXH[
F$LF1):I<IHO6\H\0GXNN0A>I8CA\^A?5\BF G [Y E\BA"K$LIC/<$CH7\GNKF8$LC
>3>XNA\NA;9 OK;4?F\BF G [Y LZI!)$LIC/D,HU 1J^ALUH7\GNFP[M E\VA13XNNN ?9$GN;F<A<JAEA3\CUEPPVKA6XAEE7^P!EPTB!9$PAEA:\2-EPBTH1<8OAEY=]9EPFU)A?N30TA7XSIR V !4\UEDW8^N!DPUNN!18UEAU5>N)PUBQ	8LUEEU$V39EPUV3-ILUEEUFN3YEPUV3,3LUEET(J3IEPUV3,HLUEETF63YDPUR3/TLUEDVJ
3!DPUR3-(LUEDU%23UCPUN3/BLUECV4.3ACPUN3-ULUECUOF3%CPUN3,TLUEBWJ*3ABPUJ3-ULUEBUBN3IBPUJ3,/LUEBT
F31BPUJ3,OLUEBTM*3UAPUF3.LUEATRF3AAPUJ3.0TUEBV.V5IBPUJ5-PTUEBWD27IBPUV7J$HOLH?$LG;??F8KNFP[M E\VA= O;G0XNK?<:H\CN8?F,BFHGG:,HU 3F>A$UE\BA"D$LDBU4F3,HU 1J>A UDHT7B3\GNFP[M E\VA38XNXH 0AXNXH[O<!EPTEC9LAEC:?H-EPCT /< PAEC=<A9EPUUQ[?$FBMC
.B+70A3AGR?MB 4AWS7B;SB G07GSE+SCY30XA3AGT?LB 0A;E7TKE" A87FOAR%MD07PKA+ACM0XNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNNKF>$LC?=2(JN;F> 0CFJLC;\FB:0[I E\BA9E\P2L^IPB 7G8GKFHA 8A3FXNXH[0CXNN2 >I0CF>FBHDB38>I4CO* GQ,HA 8C+FNLNI+= OJ[P[Q E\BA37XNLNI<TFN;F" $LC?=> 
KNF[U!LFI!AE\TP35>APPE\BA34XNXH[<C<JAC4<UPEC7HA?8>2%PD3: AO;< 1PEBTS=AA?>?5=<N0A;I7KSI> YPQDV0XNB3>>I4CO* 2TXNXH[0CXNN2 >I4CO*(FS,HU 1D^A0QN;F?F,KNKF:$LC?=*(JXH[!DE\Q99GF,HA 8C+FNLNI+= OJ"-P[Q E\FA1<XNXH[!F$LA]A38XNXH[0CXNC?8. 8JXH[!DE\Q97?FXBFHGG5,HU 3B^
0QE\BA"G$LBA4L\HLHGDNB;4(!OTN2 >ALGNOF+3 OJ]P[Q E\FA12XNN2 >IDCG;1+FNA\NA;0<GA\VA;/<CN0!>IDCPJG?!/,PEAA0^EEAPEFTY2\EAA3^JQAPDC15 AAM6\ ]APE(!8\PAAA9\E)APOG(9;PAAA<\B5APAE=>$OAA9? AAO+H3BXNB[><G4BXH[BE\TQ3<"A,PLJIA4B[><G4BXH[BE\TQ3<"A\PLJIA4H7\CH7\GOJH<+8B
HGG=,HU 3B>A,QE\BA"K$LBA4<8BFHGG=,HU 3B>A,QE\BA"G$LBA4L\HLLG\H\<G(KN;F A$LC
939XNBO8+7OJ;RGF,HA 8C?FXKN;F?FTBLNI+7 OJ\P[Q E\FA3;XNB[><G4BXH[BE\TQ3;"AXPLJIA4C;4 !$LC;9!DNN !7G(G??QAPPFF?5XOEAC6?J]APAE;8$OAAW9>T)APQE	C;PAAC<<C5APGHK>CAA;?G03E	X+TB EAK18I!APRDIB?$REAJ.$I=APRDIBN$REAILPI)APRIB:$REJ8,I1APRDKB:,REAJ\$K)APRHK0XNXH[0CXNX
 0AXNXH[GBOCY.B+70LA3C;O?SB 0AWG7T	SB G03E;I+KCE30XA3AGT?LB 0A;I7KSI" A0XNOCS	OLC40NR3C;OCSB N;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F?F8BLNI+=OJ:?GF,HA 8BGF,HU 2C>A0PE\BA3;XNXH["CE\TP3<>A(PNF E N;F?F$BLNI;= OJIP[Q E\BA38XNLNI7,FNOF;= OJO"?=$BO+ ?"4CB[\ GE\C
GG\KDPC\C%N<ZHTXH[!E$LAYA2EXNB>E> HJXH[!DE\P;6?FTBPJC?K5CAC6=(]PFA]/8XA?9?;)PDC;TAC<<5PAA/><OA;?G03SKU+SC^EG^ALAAFHGG>,HU 3F^A4QE\BA"E$LBA4L\HLHGDNB;=(! OTN2 >A0GNOFK<NO*(F^,HU 1D^A,QNKFC:\FB>0[Y E\FA!9E\P2E^IPBQ - [M LBI E\Q98?F(BFHGG>,HU 3F^A\QE\BA"E$LD
E4E,HA 2CBIE\FA17XNXH[0BXNXH  A O9&" E\C
66 OT10>AXCO: > 0GNOF+< OK;5?F8BFHGG4,HU 3F^ALQE\BA"K$LEBUL\HLHGDNB;=(!ON* 
?MAPDAY4PEAA6^K]APDDA8TAAA9\C)APCD Y;\EAA<^J5APDB1> AA9?\UAPQF5JTHO\H?>4BFHGG<,HU 3F>A,QE\BA"K$LDEFU>S4BF G [Y LBI $LFA+L\HLHGDNLNIK:DNO: J NTF0G>A8CN HGNG;9?F$CO*(24XNNN ?8 GN/F37XNN;FFE\C?8> XKN3F>ITCA\^A38XNB[=<G0BXH[FE\Q34VI4FLVIBUB;7G8G?F4BFHGG<,HU 3
>A,QLZI!]$LEBU $LC37G8G?F4BF G [Y LZI!^$LFA+ $LC:7G8G?F<JAA[3=^QAPDAW54FEAG7=R!APPFK9(PAAG:=B-APDB[<PAAC=?H9APPFMC?N30XA+ACD> B 4AOI+TCO> YAPR\K
RAB8 A$LC
>3>XNNLA?=4GNKF?<8CO+(FQ,HU 1D^A,RNKF:$LC?=	(,JXH[!DE\R993FXNK?8ZH\B[7HGNXH["F$LF1
NILG P[] LFIEC,HU 1HBAN;F A$LC
636XNBO5;6 OJP[Q E\JA14XNB[3<GHBXH[FE\R11VI4FLVIBUB07G8G?FLBFHGG2,HU 3FZA<RLZI!]$LEBU(NLNIO6\H\0GXNN0A>I4CG;=?F(BC+=[?=BPHBA0LABA1\AIBPI$13 ABI4\MUBPOKNU6<FABA7\2%BPBHI%:0OABI;\L1BPOH8U=4FABY>]^=BPN (RAB>(XJXH[!DE\R;>?F4KOBH=(0BF G [Y LZI! $LHBQL\HL G$LG;
?F(BF G [Y LZI!*$LGCI $LC97G8G?F(BFHGG8,HU 3F>A\RLZI!]$LEBU<XBH7\GNKFC:\FB80[Y E\JA5$LF1]&ITE0>IPCH7\GN;F A$LC
333XNBO2;3 OJXP[Q E\JA3>XNN0A>IPCG;4?FDBC?4;(XJXH[!DE\R;0?F0BF(G??ABPBHO318OAB?2>\MBPFI][4FABC5<BYBPHDC7DABC8=$%BPAIG3: AB[;=*1BPH2C>$BAB;?8EPSL[D,HA 2FZIFL"IBQN0A>I8CH7\GNKF=$LC?>	(\JXH[!DE\S9<?F,KOBH=)(BLNI;9 OJ"$P[Q E\NA18XNB37>IXCO+(F.,HU 1D^ATSNKFC4\
XH["F$LF1 &IDH 7C0G>ILCNH!K2DNO; " E\G;1?FDCO*(GL,HU 1D^A0SNKFC4\FXH["F$LF1 &IDH 7C0G>I8GN;F<AXCG;6?FPBF G [Y LZI! $LHBQ $LCO3O>\H\0GXNPJO?!1(PACA2
HMCPAMFM4HACI5\OYCPFM 17<OACI8\I%CPFM]%:0OACI<\N5CPOL9Y>(FAC9? ACN2 >I8CG;>FE\TG3=>A4EC;= !$LC?</HJOJH +E\C3=>I8CA\^A?;(BF G [Y E\BA"M$LGCI<$BF G [Y E\BA"L$LAAHL\HLLG\H\ G\JNKFC:\FB80[Y E\NA7$LF1]&ITE0>IXCH7\GNKFC:\FB80[Y E\NA5$LF1]&ITE8" $LC47G8GCFDNLNI?
LGNKFC2\FXH["F$LF1^I<K 7C0G>IDGNKF?0XCO/(?/<JAC?0?OECPFM)O2HAC[3=]QCPFM C5HAC[6=]CPLA[8PACC9=P)CPOH;4PACG<=F5CPPNL[>(FAC;?8=CPTPDD,HU 1D^A8TNKF=$LC;<<!,BN<!+ NA\^A3:XNC?:&(\JXH[!DE\T99CFDNLNI?8 GNKFC7\FXH["F$LF1^I<KH=$LC<7G8G?FXBF G [Y LZI!)$LIC/<4BH7\GN;
 A$LTC3<>ATGB[6DG,HU 2F"A4PL&IC/LNIO4\H\0GXNB33>I0CA\^A?5XBF G [Y E\BA"M$LIC/<HBH7\GNKF1$LTC3<>ATGB[6<G<JADA1\CIDPPDA3HADE4]FUDPPRM%6AADA7\2!DPFQA9(BEDA:^J-DPSHY<$FADA=\E9DPBPKA?N30TA7XSIR N );TEBS=^ !BPTR 1
8TEDQ\SN1DPTSN1H8TEDP8ONUDPTSN0*8TEDP%;NUCPTON38TECSS3N9CPTON38TECR<+N5CPTON2
8TECQ-[N!CPTON1W8TECQUON%CPTON078TECPKCNYCPTKN3H8TEBSD/NYBPTKN238TEBR%+NEBPTKN2T8TEBRR[NIBPTKN1]8TEBQOSN1BPTKN018TEBP);N=APTGN3+8TEAS 7N1APTGN3N8TEASK[N%APTGN1	8TEAPLCN)APTON6*TECR(	P%APTGR6WHTAD" [Y E\BA"M$LDIS/?N<BDHP7CN\GNKF>$LTC3=>A0GB[;DG,HU 2F"A4PL&
3/8TN A078TG<G2H\B[:<G$BXH[FE\TT38"A,PLVI*U8TXH["C$LT0>A\TNKFC:\FB90[Y E\RA?E\P2K&ITETA [M LBI E\T;>GF,HA 8BKFHA 8AGF,HA IPPC7TADC8<A%DPQ$3: ADG;>P1DPPRM[=$FADC><D=D TBE.B+30LA7OON?TB 0AWG7T	SB G03FSA* B 30LA+HCS> B 4ASS+OB B G07FSA+ACL70LA3C;O?SB 4AE+ICT
 A83FLOCSN	TD03C;O+SCT0XNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNNKF?$LC?>2 <JNF[I NFP[M LFIEC,HA  DP[U LFI1CXNLNIK=DNG;=?F0BC?>* NFJL?;8CO: " 0O*(GM,HU 1F>A(PN+F3,XNB39>I8CO* 3+XNXH[0BXNB3<>I8CO: " 0FBO;+>ONB *L OJ*P[Y E\BA3:XNN;FGF,HA 8GKFHA 8AGF,HA HA?9?8)P
)?;4OA?<?>5PAABS>AA???:>G

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