File SUBRUT.RL (Fortran library or relocatable file)

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

CTEST C>KTEST C<TTEST C:FATAL C8NTEST C6STEST C4AVST\ UN AUQ AU^ U! AUG 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*CPGX [AXBDHX2AHUKX2IHV HV%X [AXACY2IXVZBX [AXACX2IX$X(V(Y(1X00X(8X0AX1/X))XB$XA%V+Y(	XICXTAXB-X X=	X,IX6)XB$XA&V.Y(	XRCXTAXB-X X=	X,IX6)XB$XA	V1Y(	XSCXTAXB-X FKDIDGDEDCF.B+30LA7TOE?TB 4AKW3I
TB G03IO* B 70LA7UOBS^B B83FLOEPE	TT03CWT+SCT0XNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F" $LC[>2LXNNN =4FN;F> 0CF:NGF,HU 2B>A,PA\BAD,HU 1C"A0PXH[!C$L8GF,HU 2B>A,PE\BA&<FDJOJODNB>L7H<JB[:DG,HU 2D"A<PLZI5+0PXH[!C$L(GK,HA 1CBIOBH8T4JJ01L0HJL4IX/$J8GF,HU 2B>A,P
\BAD,HU 1C"A4PPJC?3: AC;<A1PFA W=<FA[>=^=PNDD,HA 1CBINF [I E\FA!>E\Q\)=E\EO=K=DNC?<+HHJB[;HGNXH["DE\P2ONILGQ 
P[M LBI 0JXH[!C$L<FH8J*3L1LJ(4\E LK.6H2$FK+)1XNXH["BE\TQ1>BATG3=>A4EC;=<!(CO+H?P,BF G [Q E\BA"O$LDHFQEM,HA 1CBIJ";P[M LBI0XNB[;DG,HA 2DZIFL"IBQH7\CN8!HADNA\^A39XNXH["BE\TQ1>BATG3=>A4EC;=<!$CO/H?8\BPJG?17 EAA9^P)APPFNM;HEAA<^M5APPFOA>DAA9?G03E	X+TB EAE8ZM1
PQBT&:8QEG3N*%APQF61
<QEAE]OAAF G [Q E\BA"O$LDGGIFJ,HA 1CBIK?P[M LBI  O((N[DJL(08DLL)/A)OBH)%\JJH	ACDE"-[ \OK4IB)OBH-&LJJP	BCDE"-[ \OK4IB)OBH1	$JJP	CCDE"-[ \OK4I6/LI;ZN	DKL(0P1$MM4/XX$J8KFHA 8AGF,HA EEAG?-.BF.B+30,A7TOE?TB 4AKW3IWTB G03IO* B AB83F,OEPE	TL03KWT+SCT0XNN;F3FXNN;
3FXNN;F3FXNN;F3FXNN;F3FXNN;F" $LC[>2LXNXH["BE\TP3=.A0PXH[!CE\P"LP[M LBI  O(JO]DJLHHGITEC!-[ OK8I4/ LKH5 IPCA-XH30FMIHQD8AE4,NXHKBXK&, MKH2XX0LM.XD2 BLB)0XNNJ <4FDJMJMDNB>L?H,KNF [I E\BA=E\ P[M E\BA"M8FDJNJNDNB+:??)PDK<AC=<A9PEBTC?N70LA7UOB?^B 4AE+ICT: 5PQ
K;DQAA<	HLJB[?<G8BXH[DE\TP2N"A4PLJIE4QXH[!C$L,G=,HA 1CBIOBH$T4JJH5Q8JOJH+NK;<KFHA 8AGF,HA EEAA<
!5APPG31> AAM?, :A.B+70PA7TOE?TB 4AKW3IWTB G03IO* B 70LA7UOBS^B B87FPOEPE	TH03TWT+SCT0XNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F" $LC[>2LXNXH["BE\TP3=6APXH[!CE\PZL"M4DB:M !0BO+H?I0BF G [Q E\BA"M$LDKA?GF,HA 1CBIJ"5P[M LBI  O(JODJLTHYTDC"-[ OK4IB/ ME ZL=TKJ02
I<MM(XA)NKFC<\FXH["D$LF1^I<K 7C8G!DNNX!2LXNPJC?O<HAC=<A9PFAC?N30TA7XSIR B O.PQEG,4AAXH["BE\TQ1?JALQTG3>>A8EC;><!4CO+H>\0BF G [Q E\BA"M$LDIG/DY,HA 1CBIJ"GP[M LBI  O(TN.TJBTT,A(K01H0<JLJ0Y4$J8KFHA 8AGF,HA EAAE<^P5APPFL!>4PAAA?<A6A.B+30XA3AGT?LB 4AKW3IWTB G0
IO* B 70LA7UOBS^B BTHADRO2MXNOCFQT000ZS3AGTCLB B[>$GLBTF2\>A4CFH$PCA\^A$HPDD(G2\XNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNNF [I E\BA<E\POI3;FC[:GA,HA 1CBIXH[!C$L<BH(J+W 	DAELA(EDAJETLHAHPNJ.\HK4IA)N;F A$LC
939XNB[8<G\BXH[DE\P3<"ILBIBAH7\CH7\GNKFC8\FB+7??]P=/8\AC9>1PA?>8OA;?G03SWT+SCT30LA7TOE?TB 4ASN7ESSB G03TWT+SCT30,A7TOE?TB 0AC3A;IB G03E	X+TB EG=<:-PQ;O:0QEG*8;5PQ=O(4QAA 0[Q E\FA!?$L2"IDQ0=>I8CDHD7=\GNKFC=\FB<0[Q E\FA!;$L2"IDQ0=>I(CDHD7=\GNF[U NF[Y NF[] N
[! NF[% NFP[) E\BA2LXNXH 0AXNXH[LK(QPDM:$AAAA;\C1APD=-=\AAE>\8=A PBC=.B+308A7TOE?TB 4AKW3IWTB G03IO* B 70LA7UOBS^B B0XNOWN4EPD00:S7TOECTB N;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F+FNLNI>0FNKF*LOJ"0 E NF [I E\BA=E\PBP[M E\BAFL,HA 1CBIOBH4J$JJL	BITAB-[ OIK,=6L
F4,QH8BAXE$, MKH2XX0LM.XD2 BLB)0XNFRM"M4BNH!2L OK;<GF,HU 2B>A4PA\BAD,HU 1C"A4PFRN"N8BNH!3; OKK:C9\FB+8??!PA$39 AC;<B5PAW>4FA;?G03E	X+TB EG:8N]PQUG<0QAA 0[Q E\BA"NE\P2M&ITEQ KP[M LBI<<KXH[!C$L<FHPJ*X\3 BJ=JH,BN,3>XNXH 0AXNXH[EPD5>,PEAA?3-&B.B+70LA7TOE?TB 4
KW3IWTB G03SKU+SC^30$A+OCHR B B87FLOEPE	TT03SWT+SCT0XNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNNF [I E\BA>E\P[
"L0DB:L<!4BO+H?C4BF G [M E\BA"L$LDBA G,HA 1DBIJZ/"L0DB:L<!4BO+H?X4BF G [M E\BA"L$LDBA*GU,HA 1DBIJDP[Q LBI  O(JK0\JVO0T4CH :\	LB-4C	<ED  L (HH0	]0PBJ9F0FDJLJLDNB?=?H0KNKFC=\FPJC?C=(AC><A=PNDD,HU 2C"A0PLJIA B[>DG,HU 2C"A0PLJIA*H7\CA\^AO=\HLHGDNA\NA+= ON^ 3<
NC?<*(LJK;;?F8BF G [M E\BA"L$LBA L\HLGDNA\^A3:XNB[>DG,HU 2C"A0PLJIA*H7\CA\^A39XNXH["BE\TQ18BAXH[!DE\P:L> (CTG37>A\EC;7<!$CO+H?%XBF G [M E\BA"O$LDAFXE",HA 1DBIJPP[Q LBI  O,T?5<JAAA6
H]APPFOA8DEAA9^N)APPFM!<,PEAA=^P9APDJA?N30TA7XSIR F !HQEAE5^M-APQBO	<DQEAD>NW1APQFW$.\QEAD,FWEAPQFW$F\QEADVBY=APQFYB$JL6,(HNH, L1LJ41YI0MK[6P)JOJH+NK;?KFHA 8AGF,HA E<=A P
2A:

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