File SUBRU0.RL (Fortran library or relocatable file)

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

IOPEN C>OOPEN C>OCLOS C>CHAIN C>GETSY C<NAMLI C:FEHL  C8FATAL C6DATUM C4;F;F;F;F;F;F;F;F;F;F;F;F;F;F [BV2I9<2I9IO;[O:[A [AW2Q5< [AW2I>HJ+W(	FATALER FEHLER NR. 	,I5);F8A2IO9
9;FK8XGK7 [CD2I9<2IB2IBA:. 7:,LG 7:.\G;FK8XGK7+?FH:L=B7B:-:,A:+?>8 [CD2I;?2IB2IBA:.2IO> 7:.\G;FK=XGK< [CD2I;;2IB2IBA:.2IO: 7:.\G;F [AX2I8L;F  K;F [Y:+2Q5<2IC;;82I;7;F [BL2I;62I;7;F [BL2I;52I;7;F+I;F [AM2I;7;F;F/4>HH [AP2I;3
2;F [AM2I;3;F [AP2I;3
1;F [AP2I;=
0;F [AM2I;=;FK/O2>(: 
:+??>0M0L0KEBSDQDOHLZAB^> 30$A3OWP?NB 0A?O3P;EB G03O3C+OCS30LA3H	A?NB 4AKE7RKOB G03G;E+ICOAJUOHA00&B3OWPCNB B]6=(CO((BQ GHKR^HLA\&AK\HA  AP[U E\BA&T07OCO+ECN$(HB+
BLBZU&BXBFJC/]4HC?[$(DJG H	R(K00>	3C?LCSB HJZ"	HFBZ("CDLB;!<!<CC?>.(,JFJZG",HA PF.ZXJB+ BLFHH2BDFL2C0FDNC2CDFD"C3K,HKB=NCSAADLG,HCKN" 2=,HH;K4HKAAL<4AE!]*\AAG!;/D03CGH+ICNNM?:ZDBFJB"LFHWR?Z$BFKY=FXH[!AE\P38BAB3<>A(GG+;3-LDDGVY9<AAC<<F5PCH?>LAAC?]TNF6J.30\
7EOTSYB BN?FWGPALDCY2;WG7T	SB 83FXNN;F3FXNN;F3FXNF>+BHTB3>>I4CO*(7PXJOBHJNI;<3F JOBH<O,BLNI+= OJ/^: O8T<0INKF9$LC?=>(PJJ?)FH$NXA2+XNN2 >I CG;83F JOBH ^$LC[=>,<JAG8<9%PEA ;;EAG==9PGC C?N70\A7RSI?EB 0A?I+HB B G03SKU+SC^EG:XAAI;>?F4BA\NA+< OJ.J; OH:$LC?9&(HJ
?;JHTN$3>XNK?8JH XH["BE\TQ17JA$QXH[!C$LA 9P[M LBI  OB*JB.$JM$,; $I8+FNA\NA+6 OJ*7"< OH*5$LG?9JH,B34>I$CO/H33PJOBH<-HBLNIK9 OJ?N3H8JK?3NHHL^I1 O04>IDCNL!K0 OK?/;H<KJ?]NHTN0A>IDCG;1;F8BF G [Q L2I!2$LCF $LC+9[?9APDJE0CAA11]2IAPIE )4OAA)5\ YAPPF+A7PEAA8
H%APAE):EEAA;
41APPF,Y=EAA9?G07D[I* B EAE/"GAAO(HNE\H\ G O86<8IN3F>I4CNH!K< OJ>U	HTJJ>
NH\B3;>I4CO,(3: OK+:"
 OH:9$LC?=/HDJJ>	NH,B38>I4CO,(3: OK+:"1 O8/ A$LTC37>AXGN;F> XCTG35>ATEC;5<!PBO+HQ OH
C4\FXH["DE\P2.BIXCHO3\H\,G(JNKFC4\FXH["DE\Q32BIXC 7C8G<!DBN !P[U E\FA;0<GNKFC.\FB+-;?5APDZO.PEAC/>/AAPEK1AAC2<AMAPHD C4(EAC5>.YAPPF-
7HLAAG8> %APCG W:HQAA	;= 1APE S=AAA;?ABXH[DE\TR1>*A<PLJICRH7\CA\^A3=XNB[<<G,BXH[DE\TR1:*A<PLJICRH7\CA\^A39XNNN ?= GA\VA?8 CNL!39 OK;7?FXBF G [Q E\BA".$LABSL\HLHGDNLNI+5 OJ/4 O9"> (BA\^A3E\EO3K3DNB?2?HDKNKFC2\FXH["DE\P2-BIXCHC0\FB60[Q E\BA"-E\P2..IA 7TC0G:
<GH7\CTN0!:A<CPJK?-/XPABE0\"IBPHJ)34PAB15]2YBPH])88PEBA9^1)BPHBE;(ABA<\45BPPJ0A>DAB9?G03FE+LB EBI1^GQBPRJR%7PREAI3"]ABO*(&EHJOBHAFNK;>FE\CK=<$LG;;KFHA <ANH0N,3:XNN0A>I,GNF E OBH=$$BLNI38 OK+7"% OI)6$LC?8((<JO+H>/\KOBH!*$LTC35>APGN
F33XNB32>I,GOBHA,DNA\NA?3LGI;1?F$BLNI38 OJ+SI OI.6$LC?8,(,JO+H6;LJOBH!3$LC;0 !E\C?38(TJO+H7%<JOBHE8,HU 1F:A<ROBH948BLNI+8 OK/-?,<JABS.9 =BPHU304NABC2<BMBPPJ3/4HPABG5<9YBPAJ S8AABO9? )BPRH$	;HAABC<<25BPPJ.S>PRAB;?85BPSHBO,HSAC<^H$N$3>XNB3=>I0CO*(&MTJOBH);N
NI?;,GN+F1 OI<:$LG?9^H<B38>I0CO+H*2HJOBH>\BLNIK< OJ>,+H0JJ>2"HHN$3>XNJ>Z"H0B36>I0CO*(>:DJOBH>M(BL^I?98INKF5$LC?<2(\JJ?M"H8N$3>XNJ?Y&HXB34>I0CO*(7U$JOBHBWNI?>&H,B38>I0CO+H;1DJOBH>\\BLNIK< OJ?+;H,JJ?1&H4N$3>XNJ?Y*H(N* 
?QCPDN I5EAC96^ ]CPAN 98CACE9^R)CPLCM;$AACE<]5CPDM A?NEBO7GACH<)<H8CA\^A3=XNXH["BE\TS3<&A\SXH[!C$LA"RP[M LBI  OB*OB\$JM&,; $I8F$LG;;GF,HU 2B>A0SA\BA(NC
:9E\EO9K9DNC?=/H8JB[8DG,HU 2D*A8PLFI-B,SXH[!C$L(F),HA 1CBINF E OBH>4\BLNIK6DNXH[!EE\S
534XNBO3K4 OJ?)7H(JK?2.HXTB31>APCO*(?"KOBH:<<BL^I3.XNK?-.H B+,;?1CPLR	.HAACC/<SECPL^G30ECC4>5UCPMS6AACC7< !CPMP+98PECC:>2-CPNOOC<PECC=>49CPAL9C?N30XA3AGTSLN C0\TECS2OADH<)<H8GN/F= O">P[] E\RA1<XNK?=.H(TB3;>A(CO,(39 OJ.Y8 OT3C>A(CO((2G OJ*G"" OT3\>A(CO+(>6
CB?7/ XJCK:B0\FCXGG\KDTP0T9LTTAZN<:HXN$36XNB35>IPCO*(3D,JOBH?	LBL^I3>XNK?=:H B32>I8GNF E OBH?0DBL^I3>XNK?=>H(N$36XNB35>IPCO*(;%0JOBH?;BL^I3>XNK?=>H0B+/[?=DPQ A04ADA1\PIDPPNA3<ADE4]UDPR =7,OEDA:^5-DPOS0A<ADE>^R=DPNP$4\TEDP5^^%DPTR8-8<TAD") OC?>"( JJ>O>H4B3
>I0GN/F; OK?:$LG;<KFHA <ABHPAB39>I0GN/F; OA8N< INKF7$LC?>*($JJ>0BH<AB36>I0GN/F; OAHQ5$LG;<KFHA <AFH AB34>I0GN/F; OAH,3E\C?2<(DKO+H?IKOFH81<BA\NAK2 OJ?S?HKK?.NHXAN$38XNB3->I8CO*(;^TJOFH870BL^I3<XNK?;NH AB3+>I0GN+F;?-DPPUG,$ADS-9 =DPOS/C0\TEDC2>5MDPOSG4XADC
<XYDPPT+7ADC9<W)DPPL	<HAADC=<Q9DPAQC?NEDW.<DEDPUTMHHA <ARHATB3>>A4CL^I3<XNK?;&HAA\^A3:XNN\A39XNB38>I0GI?7&HTATN0A>A(CG;:F$LC;6 !E\C?:,(JO+H*0(JOFHFV,HU 1G^ATUOFH"W$LC;4 !E\C?:0(HJO+H/B0JOFHFZ,HU 1G^ALUOFH>
HBLNI+1 OJ+JU OA: <\INKF2$LC?16(TJJ?(*HHAB[0DG,HU 2D.ALPL2IA3LNIO1\H\<G\IN+F, OTA2>A$GOFH"$E\C+9
?AEPBUXQ1AAE]2] MEPTG54HNAEA5\HYEPNWPA8TEEA9^+)EPPV3%<HAEEA=^59EPOW4A?NAE>"(TJK?>*H$ATN2 >A4CL^I3<XNC?<&(DJJ>^*H8AXH[!FE\U;;?F(BL^I39XNXH  A OA:8" $LC?<*(XJJ>+.H$AB38>I$GOFHGB,HU 2B>A UE\NAFW,HA 1C&IHAXH[!C$L8F$LG;7?FXBC?92(PJJ?T.H(AXH["BE\TU38&A\SXH[!C$L
QP[M LBI  OA"= [I E\VA8E\\5E\EO5K5DNLNI3< OKK4C3\FXH["DE\P2.^ILLU.P[M LBI4,JPJW?W3 BEEC5>.YEPOW;37<NAEC8<D%EPAVRS:DAEG;=-1EPNWQ/=LPEEW><Y=E<N0AWR+ACD> QEPVTA;$VED[;\I5DPVLIC-$VEEY7<N!DPVPNA68VECY><NEBPVDNC>8VEAY><N1PVXND,HA 1CBINF E OFHC4NH:NKFHA A0XNLNIK
DNC?=?H0KJ>Y>H0CB[;DG,HA 2DRIDALFIABH7\CB?:*(,JJ>3BHDDB39>I GNF E ORH F$LG;=?F,BG;>CFDNC
737XNXH["BE\TV16RA8VXH[!C$LA 8P[M LBI  OD)>KV\JK!10	$KM$,; $I8GF,HU 2H^AXVA\BA<TGA\VA?5TCNH!3; OKK4C;\FXH["DE\P2.RIHAV!0P[M LBI48JPJ[?)58PAFA6\D]FPAX8%8HAAFA9\U)FPDY U;AFE=\99FPAYAA?N30TA7XSIR Z !4VEFY\6G%EPVNG"%\VEFY<KMFPV[Y4!$VEEY!WY5EPVKY5"$VEBYTOYYBPV
Y44$VEBX\GY)BPVKY4J$VEBXH7Y1APVGY7Z$VEA[N3Y-APVGY6C$VEAY*[Y]BPVK[5 ,VAF"P[M LBI  OD(GNK JL0AA)ORH<Y<BF G [Q LFI!A$LDAYBOY\HVOY<G8BO*(*
0JORH(ZNLNI?=4GNOF+=OJ*(2,XNJ>M.HDN0A>I4CG;=?F<BF G [Q LFI!A$LDAYB?Y0BDHX7CY\GORHALDNLNI?;,GNKFC?\FXH["D$LA09RIHAVY47$VC0G>I(GDHX2N\KNF[% PXS:AAFG;<91FPHX S=DAAF
>? =F YPA!6J.308A3A3M?IB 4AWS7B;S" A83F8OMM,IH03N7A+LCI0XNN;F3FXNN;F3FXNN;F A$LC
>3>XNNXA2+XNFR,*,0BNH!3= OJ?)6H0EB[<<G,BXH[BE\P2,^IDLLNIQB[=DG,HU 2B*A0PLNIFH7\CH7\GJ;ECFDNL^I: OE;&(A,BO.(?9XJOVH+00FPJC?	:HAAC;?H1PGCPC=(A3>=1=PNDHTHOTHK>THOLHK>DNB?=/HPJNKFC<\FB;0[I E\BA",E\P2+FIDCHC=\FXH["BE\P2,BIXC 7TC0G>A(GH7\CTN0!>A(CO((22 OK+9"8 O
;: JN/F8 OFHDC;\FXH["BE\P2+*I$K 7C8G(A OJ+\J OFHGC;\FXH["BE\P2+*I$K 7TC0G>A\GN/F6 OFHIC;\FXH["BE\P2+*I$K0>ITCH7\GN3F>ITCG;4+FNA\^A37XNPJG?%4HAAA15]1]APPF+):4PAAA;
H1APGGPA=(EAA>^,=APND!9LQEAE6^?!APQC^798QAA*"? OFHXC>\FXH["BE\P2+:IDJ 7C8G(A OJ*	"U OFH[C>\FXH["BE\P2+:IDJ 7TC0G>A4GN+F"? OFH]C>\FXH["BE\P2+:IDJ0>I0CH7\GN3F>I0CG;;+FNA\^A= OFH6C>\FXH["B$LL11*I$K8N \H\0GXNB[>DG,HA 2B^IDLL*IC!N" 7G8G?F(KOZHADNA\NA+= OK+9& O
9E" $LC?<>($KJ?.RHXFA\NA=$LG;;+FNC
<?<<JEAC:?/-APAFR
<DLEAC=>+9APGHC?N30TA7XSIR F C9HREAKX4IUAPRDICJ$REAKG,IMAPRDIB/$REAJ
$I5APRDIBM$REAJKXI!APRDIA$$REAITTIIAPRDIAB$REAIHIEAPRDIV$REK&4I!PRDI&,REAH
8KMPRKC!,RAB<VHPFN8KFHA 8AGF,HA CT6J6J.30XA3E3H> B 4AKW3IWTB G03IO* B 70LA7UOBS^B BN?FSF ALC2/WF+HCLB HC>\FBZ/"8E\C[=HTC20BA GDR0,G JN;F3FXNN;F3FXNN;FGF,HU 2B>A0PE\BA?\,CFOS7:PFXH[!C$L P[M LBI  OC+(K+\JAMIRFLBPE" TABDLAR8HD".	$KM)0XNN0A>I$CG;9?F BFHG?7<JA
7<=!PB79AC<<A9POC>C?N30XA3AGT?LB 4AE+ICT> 5PQAGS; QEG:AIAAXH[DE\Q1?"ILBIRA(QDHD7AH\CDHD7AJ\GNKFC>\FB=0[Q E\FA!<$L2"IDQ1J>I,CDHD7AJ\GNKFC>\FB=0[Q E\FA!:$L2"IDQ1J>I$CDHD7AJ\GNKF8$LC?73HHJJ><6H0EXH[!EE\Q=66HGXH 0AXNXH[PF\QPD=6<AAA7^A!APOGDM9$AAAA:\C-APAD8A<H
AA=\=9APF7A?DBCB6J.30<A3P;E> B 0AGF3T3AB G03W	R+TCE30$A+OCH> B 4AWS3BOS" AD!R<DD"M[E 00Z-3AGTCLB DH7B-\CA\^A+>8DDH7B-\CA\^A+=8DXH["CE\TP3<2A8PC[>?G4CFHP[Q LBID,HA 1DBIJ+\ 	DAELA(EDAJETLHAHPNJ.\HK4IA)N0A>I,CGK;G:,HU 3E>A0PLBI"$LBAL\H\<G(BXH[EE\P39"ILBIBAPJ
?C9HAC:<=-PBC<DA;?G03CGH+ICN30TA7XSIR B G>4QEG=<^YPQ
G+<QEG)
AAH<)<H<CDHD7
\GB>0[U E\FA!=$L2"IDQ0
>I0CDHD7
\GXH[!FE\P"( I XH[GAAE<\95APDCM>4AAE?\8NF^> 30<A3P;E> B 0AGD3T7UB G03W	R+TCE30$A+OCH> B 4AE+ICT" AXH[ AT07DSA+UCML\HPO\HG OJ[7^8BK?>HFB;^H(N[=68BN9DFXN[<FA,HU 2C>A,PE\BAF3,HU 1D"APXH[!DE\P"AP[Q E\BAFB,HA 1DBIJ*>(I0LI	.
,HBK,	Z1\NK0IR/JXH BNXH["CE\TP3;2A0PXH[!D$L(KZ<JIKBATTEHDQT4EHHE1NTANE:	$K [U L>IB6XH[EPC;DAC<<O5P
S>8AC?,G.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