File LIB8.RL (Fortran library or relocatable file)

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

READ  C>WRITE C>IOH   C>FSB   C<FAD   C<ABS   C<ISTO  C<STO   C<FIX   C<IFIX  C<FMP   C<FDV   C<FLOAT C<FLOT  C<IFAD  C<CHS   C<MPY   C:DIV   C:IREM  C:IABS  C:IRDSW C:CLEAR C:SUBSC C:GENIO C8OPEN  C8ERROR C8EXIT  C8CKIO  C8ALOG  C6EXP   C6IFPOW C6FFPOW C
FIPOW C4IIPOW C4SQRT  C2TAN   C0COS   C0SIN   C0ATAN  C.WTAPE C,RTAPE C,IOPEN C*OOPEN C*OCLOS C*CHAIN C*!2*=)J7Z7R(.(PPK0Z02IO(> +]O3> +%K6	7+&	7+&	7+&	8?HK9K:G;> +MO;K<<(+]K="(+&	2HNB&!D>A<HR>2C.>7"::B[BZDXDVBUBTFQFNDLJGR^> 70HA3ESA> B 4AKW3IWTB G03IO* B
30TA3R?RSRB BA\VA?0DD>L(HDDNJ*! ONKX/>HFBJL/=LFXH[!DE\P*2B-PBNCR5"5E\KB(40J+3ESAB B BZ+*40BF*5B7L64KW3IWTB 8.AHFFZ).LPBF"$2FHZGNNN PG(NN8J(HDFTB2">A0GHZ+]LHF;V.ALFGK;?U(GXH B,LBD:35HXBF8G\CO(XC$(NN8J<J$A\.ACWHP%PO9<AW=<19PABMS<DQEGUAOAAF$S??8IQ<+KQQDOGR5&
OQ<]SWHQDOGX4-$OQ<C DQDD TE\G	=K<NFN
?=,B?:>($IJB<$II+8>$IIK?K7 OJJ?6TIJ&$4DJD;A: ,BTF3+>ALCGSA?A0IN\!7AXNB?+HJC[33)DCF+*BIW97A8JNK$3ADFD++>HIB
);3(BNX!(SNA\NA+3 OJS\ADNGSA+ANG;A8 ,FJ:-2 DBTF3%:ATCG+3BI[<%JEAA3^3YAPD	57$OAA=:
8-APOG/)=$PEAA?CWG07D[I* B 30$A3R7ER F ><IIO>?=<GG;=& ,FB+<>	,BIO:;? ONK$?9(IC??IHDNXH[!EE\PJ*?8(IXH[FH?8(IJ:><II[>>[4CO9" E\C;7\!4BHOSS=OJ;O<!XIB	5?:4CO)(KHNFJ\I=NG+>>> BIS:B\ OTJ3D>A8ETJ2<>A4CN<! HNB=== XID*[" $JNJ?8(IJB1 E\C?4=LKF>\>H(IBS26\(JNN+4 OKKS
9(IPKGSK2AAC5<.]APQE%O8AAC9<--APDE?<,O30LA3LGE?RB 0A7F+PB B G03S?T* B 30XA7LSO> B 0AGF+DB B G07ISS+OB AB % OC;?0 8FFK[] NX KLNA\^A>ND?N,H\JI	=K<RDOKR82OR<MCU4RDOKS<K,OR6 <PFMP[! E\BAG/,HU 1I:A0PBM[) XH[!KE\PS,K4JD/L2
,FJ:M2 4FD+L^<4BOHHKKNI3;>I(CO((HE\EK>9$LGS:7M4JKC8HNA\VA7>0JF+KGY,HU 1H:A<PD+K7U4JI;P[1 A\BA=>\KEBE7^ %BPHHE:EBE?A%G03G;E+ICOEAK:^OUAPRFO%2$REAI8>
-PRJ2-= RAB&?E\C?>"( JB="OJH:8"JI	?<<HJBK<,BOIH?:$BA\NAG8,HA ,MBOHJ
)? OI/7BYA\NA+>OJ:-.HBO* .* HJZ$"2E\KJ
6<HB5&O<KP>24BT34.A K8.HBO* 64(NA\NAG8,HA M?3HBO((>3DBNIG:OJ*9>4EBPOJ-?2LOABC3=?QBPH?35(OAB?6?M!BPPJ!+9ABC:=-BPOK 7<\PABC=< 9B<PB20A[I+ACD> 9APSHQ><SEAO4=O5APSMPI/?G>,HU 1N^A8F[OP$LC?=0(4JO)>R0BD
O=NLNI?=,BO+F^,HU 1H:A<PD+P6RDHXH[!IE\PK,:$LTG3=>A$CB?86(BNH!Q=ON$ G7,HU 1K:A0PH3Q>I4CN<D3H$JC;==H4GC;6<HXGC;5<HTGCC=?44CB
3/=TJLNI?=HTG3="AKLNI?=,BOH% OK;Q?$\INJ 7PFPJORA2\ACA3\HQCPOO<E5HACA6\Q!CPOO:)9$PACQ:\D-CPKO4A<HACA=\P9CPRH7SEAO?>)PSJ)<(SEAM>>*YAPSOEBXH[(G$DJRHJLHA HC)? BLJNX2K?I+HB B <& ,JNZ "),BF:S 0CFQ>"L0CTF1?"AKD:LOX\HSFKPGXNNXT:( NA8G !0DJBPX3DPBB;?=8BO(X*>(DTN2*
(CD>*,(<JB?D.(8JD**23PFA\NA**(FB/DB*80!PFH3*>I4CFLUG<PFCC;G:LFB\S;;(HH3*>I4CB\UC=PNCK<<T0GNLDG;LBGO;S; NNJ?:$BIS83D JKCE $LC;==D4GC;<<D0GC;;<D,GA\.A?*!CPRNOO9ACC:<O-CPLPG<DACC=<R9CPLJ3?XO30XA+DCVR F A9TEBS?\W1APTL]I?LTECQ7]Z-BPTEZ[3TTADDLBTF1=>A<CO,(>8IP>
(ROC7< OR>K+:HQDOG;>A<OT-$HPT0>A4EK^W?KHHS OTN2A&A4K ^W<BO&(?<,COR *LKIK:I=DNFY.8JHOODG OJ:9J(NNJ?9 ID+Y*20JI[73Z<HB?Z0X$JN8AFXNN<FH\CB
64G$DJ*>B,BY>
W4BB;Y]H<BF8G0<K4$FJ!P[= E\BA7/$DTJ3]6A(KTN2>ATCNX ;Y4JB	478$DJ	+:LJADA4\*UDPQQ%96OEDI7^8!DPRROM9<EDM:^-DPPR2%<$REDE=\
9DPSR*)?$PEBQ8BE1DPTB&/?4TEAQ4WADB9=  E\G;?, 4FTN0 >A8GTF0S>A<EO(H>[4IDIS<:YOT>JU(TDOSSBGP"MW(JBPS>=,KA\VAK>DNH7A>\GN&?:$IJJF<TFB[8>=8GH7A>\CO)J5DNA\VAG>,HU 1E*A(PF S[Y PC* E\G8UD TBFPUF=LBO( ^54BA\^A
74BNH >=XBIS5 UE\C<U)HPJB	433<JXDTLBNIFSPNBXT SE\PKSW3<RADC4<0UDPQSSC6PEDG7=%!DPOS<K9LTEDO:>-DPRQO+<(SEDK=>89DPSQOS?8RBJAB^> 30XA+ACD> B 4AOF+BB B G07FCM* B 30XA+DCV> B 4ASS+OB B G03F?L+TB 30XA3LGO?TB 0A	F+XB B G03I	F+XB 30$A3FSA> B 4AOI+TCOB G07AOB* B 30
A+HCSR B BL6EOF+BB B H"E8FBZF6O NDJBP"N803FSA* B  TFBZNBSNCROBO\FNN "O<DFHH"ME\G3?>I8CO*(WHIJKU XTBFHXHW OJ:;D!$BO)";TFB8SEHLFB8TDHPFB8UDHTFD*E2/LJNX FE$BF(WADID*EGXBO+;HXNIJD0X OI&DFBO+;RXNI:DGXXFA\^A=LIJK%8G<FH?.  TB3->I8GH3.>I0GH3.>I,GNZ -TFNKV:N,FN,>O
O8 CLKC.32KA+SB B H28FB[3:O NF+->P-PRG<DAC> PIPQNTQEG=!EMPQEFBXGBCNC HF\LFB<W  DFHYDV FCXHT CF0U>I<CHZ\0PTFLNIG>DFC[= RKX*)$BN8H<J0F8W+X$FHV>),KB\B8REDHFB8QDDDFB8PDDFKB*PNBHRDUHFNJDDQPBF8QFDBBXS,PTKH<P(BO+H3NLID(W3GTBO*(GXHDJSX4Q JDXP3E\JB<W=(DJF8WG&BO+ +
HN* GX\BN9DPF OKKDDPXBL^IG?DBGK><R4GK;FFHFF(Q
*)APOG8A;\AAA<
?5APDRE>DAAA?PG07EKR+OCRMAF6OI+TCOB H"PFNL"ADDFNNBA\FBZ"XDBF:Y\CDXG*NCXG HBF*7& 13S?T* B $ BF:\$$CDZY*7NCZY H$LC?"6$LGO?/>XHL^I?>4CH26>I4GD:Y	V BF:4$$K8 GK&6JIF01Z<+ICXB B LNI??0IF0P>I8CFHQ<W,BO)?+(BF$TG9PDJKKVPNB<QHXDNF0V>I<GG
>G=XBXH 4H,13I	F+XB 4,BFK;\PFXH[!J$LH/[0FNKV/\4FJ">P[9 E\FA:: NPJGS?:4OAA?;=41APQD\G=HAAC><Q=APHPLTQQDQIF;LRHH0H7F+PB B H"GXGBZHBNNCRIBI\FNN "I$DF$H&C4JBHVDXXFBHW<Y<BFHWDP FBXQDYHBFXZ<P8BF&NFA BNXHDX$BNXHDY(BNXHDZ OIR*N JI"D M ITINZ,27F[D* B  TBGJF2;DFNL.
0DF8G. 0CDZ< HLIJK2DV BFHVHYDNBHWG=\FFHZ3<DFNCXDSBO+H\HIIJZPNFHZYPNFHYXPNF$X3;DDJKVDXFBXYDQ(BF$RJDHA  DP[9 E\JA89 NL^I?:JABA:\P-BPQH*9<LOABA=]?9BPOK%]?<OEBHB"QPRJ0A8REAK9SNMAPRCN2A8REBHF?(=PRG(9D$RABB<<BF:Q	&HFA\NAJQNO8X%ADGNJ0&QDFD*R"EK$L23F?L+ACT$LBF:W$
CDZT&"PCDZT$GLBFJ%*TXFNL(G\J02Z%7LSOB B N=MHDNFXQDPHFNXH<V8BTF0W>A4GI< Y 02&63FSAB B BZ6B:NCR727HFNN .7\DF8H CF8GB  CFHH"6E\GK;>7(GKC9DBNYHDPDBNXHDQHBNXH RPNA\^A3=8KKGV6L827COH* B  $LC?8< \BL^IK8HA M NA\NA7(8FDO(7(<FXH[!NE\R;\;(PJAB7<!BPHP	9,PEBC:>O-BPPJN
<XQEBG==E9BPJOG?TBFA%^> 30$A3R7E> B 0AGI+BCSB G07D[I* B 304A+PCY> B 4AKI7D
SB G03CWL+ACR70LA7UOBSCB B X07M	P* B  DFBZFBKNCRG&GHFCRG*G$FNL&)\HXH DFJ)?LFNYD"DBNYDFA OBJ)"LDJ.[BWITI*Z$07D[I* B POJR/JBDNFZA*C$BF:3((CDZ**:(CDZ*BFNC>F((XKO)BHDN8!!DLDO)SB NFJDJDDNFJFJCNFJC"CTFFJ"AXBD>C8HLJN=PQHNFJABPNFJRAPNO(PRPBJ;S"HBN8H"HFB>HXDNXH 8C
03IWR+MB  NDS..TDB>A!HPBO8H!HTDJ7 E A??C4G07EKR+OCREF&XAA01$7AOBB B BZBDNCRA"A,FCRA&ADFNLRQ ON ! I 01$Q7RODCWB ORD&RHDXH DE,HU 1H*A\PN( M 01L
3LGECRB F2Q>I<GG
>	=DBXH FDNAH13SKU+SCC,FB>0IHNG:1/$LBFHH.28FNL<H0O*(CH CFO[(H(FNX B/ CFO
(H$FCXHB+ CFJ,:2LFCXHB- BNXA*3<DJ;
B NC>*< LINL>),BF:.(,BGR-.-BOKHR.PNBJ.*,4GNKV>2DFN,&3\PAA=;
?1APEE=HAAA>\Q=A HPA=^> 30<A3P;E> B 0AWG3N?IB G03E	X+TB 30TA3R?R?RB 0A/C+ICO" AHOUOHA00^C3E	NCOB FHGGXNN8F DBZU"R(BLH\+D OL8YD,HA ,CBVPB&DPB-210PL(QBF\BL8VJHA 0B YXJN+Z2FLDJJ=KBXLL(Y"5(LH\+DOL0ZL$LJZFCC8LJB+C^OA= 4AB 0(BO*(3V(DJK]+F,JL(YGX(LM*:.F$MJK%KJDN
KK3J,BNIHG$LIKE+H,JM*Y	S(MNIHIE\I[E3K(BN8!1H\BF2R2I,BO(XC:XNN8FF OC^R*RNB[J;JTJ30LA3LGESRB B]DQEFY$L!PQ*N^4QEFV)TUPQAVV$XQEF)VIPQAVV!XQEF %V=PQAVWI(QAA?DLC>W6(XJTL2B&A IJCVJHA 0B&A$CO*(VHLBG"E\I*ZV(JERVFDLAF)4[CO+ECNB HK?XLM26DZXLL L[Y L^A&W$GXH ,ADMKK>,G
DJJ6S=DNN<A,P JNID/?XMB?<J(NF*<>J<OB2I\\FLHZ<G,BO" CM\BB?:2 ,JN&CM\BJBJ\BL(!KOXLN.3M4HJ"JP[Q E\BAFADDVS$U\EFXYBC\HGQB<OPLM56
8(NOEL%?<GC)*[,8KK30Q2PBZI+<DAH&(%\IJ8)CN GPBG>]:LOAA=;]61APME6Q=8MEAA>^F=APBJ;E\QEAF>A<OO?$EHDCRHAECOC \01VK3R?RCRB OJ&KFNL&L FD:L"00CFPHBLNFO!HPNOPXS! NFNA HHFCXHBP CFJX:HFA\NAC"(NN8J4JHC";PHDJJ(BP(NN J?J<BFK"BXXNNXD&X BHSJ/" JB[><G4IN	&;=DBO*(K]HA DPNJ
6THKCJ<0O((>2,BOIH?:$BXH[4BK01W[7XSIB B XH[ ELLLKFM3!/C+ICOB 08!LJXH EFO"G" OJ;/J(NNJ2E\KC	<?%APF S:AA?;? 1APD?S=4QAAC>>M=A O[<C6^> 30$A3F?P?WB 0A[F7P
OB G07ECX* B 30DA3L
O> B 4ASS+OB B G03FSA* B 30XA+MCP> B 0A[I+ACDB G03FKS* B 30XA7LSOR B B8 !FXH[!EE\POI"ADDF"NP[Y E\BAFY,HU 1G2A$PD*"VDKBJN>(JCP4E"DCCU%UUTECVUUUTECCDCC,DLK	NB<XBC	$O(,LKG.^^HCW5GVLLK/7YALGCS=
08LK??C7DLD<GK?DNDPL4 XJC-29EL7GD03A?L+GB 4DBFKY7R(FXH[!H$LP7RHDLNI[= OKC<?;(BFOY?=$B
8G=,HU 1I*A PB7*A,PXH[!EE\PKLGY,HA (J??]PHC8 DAC9<G)PKC8?; GAC=<P9PCC?N30TA3R?R?RB 0A	F+XB B G07FCI+OCWEG<JAAXH[!GE\PFP[Y E\BAKLHA  DP[- E\BAWO ILDD 4PE+PB B H&P(FBZQ&[DDD"QP[! LBI8 NLFI?>4BOOS<NB?;6X JC?>< (BG>P[U E\BAGL,HU 1F2A0PXH[PLON\A?9$CN ![) XH[!F
\PKL?8\IP"YP[Y E\BAF(,HU 1E2A0PXH[!FE\PCP[5 E\BAGQ,HU 1G2A0PXH DC,HU 1KBA8QLNI3>ON](?>0GG6 M 01%%3F?PCWB XH[8JTBFK0?&DFJ	2FL\D01Y03F?PCWB DHD7A0\CPJG?E6HEAA7^A!APDE59DPAAA:\ -APGEGE<DAA-=
C9APDPA?N30LA3LGESRF *FA\VAO?\HQM0(GDFA\VAO?\HQN (G OJ2,>I8CO)H*2OJ"V I XH[!EE\PIP[Q E\BAGI,HA 1GBIXH[!EE\PIP[M E\BAKIHA  B[9 B3=>I8GJJ*<$LG>P[- E\FA%.XJAA<<5APDDLG>EAG?U1>E^> 30$A3I?P?WB 0A	F7P
OB G03S?T* B 30XA+DCV> B 4ACM+YB B G07FCM* B 30XA+ACDR B "07FCI+OCW BFJS&APFXH[!CE\P*KBWL2S	I7P
OB XBKDNFJR&S(FNL*TDFDNT&TDFD:T$DCN=MHDNFJQ*K OB>R> (JB>R, HJB3?>I8GF>N0PHJB>R> (JXH[!DE\P"KP[M E\BARKNJJ/JQ OJ;9%HDFO(PQ8BO((G^,HU 1E"A,PFJN*Q OJK9*R OJKFK,HU 1E"A,PF*KGB,HU 1F"A,PJPP[M E\BAFN,HU 1G"A,PXH[!FE\P"KP[M E\BAFK,HU 1G"A8PF*NB8BXH <A9PPC?0DBDA5
> 70LA7QSR> B 0AGF+DB B G03S?T* B 30TA3R?R?RB 0ASF+VB " A0	QPD40NI7QSRB B DH7BI\CFRWNJ\HPNI$G FD"JP[I LBID,HU 1C"ALPXH[!BE\P2C>I<CO)F,,HU 1D"A\PN3(>I<AO( J0HA 8A=H8BL^I??4CN\H?=0CN\H?<<C?;>((BC
???$BF"FP[M E\BAF,HU 1B"ALPXH[!EE\P"P[I E\BA"$LCK??8<GD*FKBHQ A?8 OA?9?=)PBC;PAC<<R5PQC>PBAC?0P*N^> 70LA+ICN> B 0A?C+SB B G03T;A* B 30XA+ACD> B 4AOF+BB B G07COH* B 70LA+TCO> B 0ASF+VB " A,(>XFEMU50LJ-8B&XHLVSTPDD,5W5TEEQULP N\DNST F\DNOT?TXMCL CE,OEO!	^8D
OPS&<MFLSS40DL"W=TECQOLL21GT+NB B XN\HPN10GFD"2,7DPCXG/AHDXH[!D$L0>I8CO+HGL,HU 1E&A$PD*GB,HU 1D&A$PNJ "FLNI3> OJKLB(NO+G!,HA  FP[Q E\BA>Y4BDHC7*\NB:$J OJ4P[] E\BA>A0BL^IG>,HU 1H"ADPXH C8<!XFPJC?C<0DAC=<G9PPC?N30XA+MCPR F D,HU 1G"ADPXH[!DE\P"AP[% E\BAFA,HU
1GNAQDH2C7\CE[?FX,HU 1D"APPA\VA+>$JXH[!IE\PNAC=(NO*PF&,HA  F<2\PK GP[% E\FA$0 BB+<BTLL17COO* B ,LBFJ;.40FN*AN=,13S;I* B  E\G=L7,QCXG/K0DDHD7;\CFSLF<,HA 1DBILNI3; OJWP[U E\BA>V4EJMP[Q E\BA*VNC
==$LC?;7H\JA\NAC=(NO+G-,HA  FP[Q E\BA>V(BDIC?JDHQ DAA:XAAA;\P1APDC!=PEAA>
6=A P	7BV^> 30DA3T;A> B 0A[I+ACDB G03FSA* B 30LA+HCS> B 4ASS+OB B G07F[D* B 30XA+MCPR B "03AGT+NB  BFJJ"A,FDRAFA,HA 1BBIN1>I8CO((SZ OB
=C> NFO1?>0BO+H6\0HNZ "K$LCK>3; OJ"/P[M A\BA<8BH\[Q XH[!CE\86 0FXH[!EE\PK2:(FBZ-.>8DDR>F>,HU 1CBAH++(DJ"8G+,HU 1C>AHPD+\GN,HU 1CBAD*KGV,HA  DP[M A\BA<DBLNI?>8GXH AB[9FJ,HU 1E>AHPB2J>I8GXH[!FE\P/2C\XH[!GE\P/2C+PJC?C90DA?:?<-PLD?<PKA=<9PPC?NEGM4UPQCB>XQEF-(
UPQDFPDCPEBN8DD:GCU8DN;Y::8CA$2=2PKH^Q<CXCF5!>:4KEQU	
BM^> 70HA7TCA?EB 4ASW3AWPB G07EKR+OCRAB80OOC-L\HPN! G<FDN"&" FD:"$ CA\.AFF,HU 1C&A<P40^W7TCACEB BZW&! BF:"(ALJEPA(ED03RGT+PCE FH:FAJ(NBZ"XHO)J/DNF*A"3DFBK?"FH:F !HFH:F&  BFJF"OLFBB?>4BM76<PBL^ABEXNN8D>P0BOHP??PMM+;SK OJ7DC1XNN<F>X,BLNAJDNB:A( OJ?H0X$JB^B"
XBGJE>C0MNARXNNHF?:PMM+9?)DMK<?9PMM?:	HLJXH <A%PBW: AC;<C1PBC= A?><= ATBW^> 30$A3OWP?NB 0A?O3P;EB G03O3C+OCS30LA3H	A?NB 4AKE7RKOB G03G;E+ICOAJUOHA00&B3OWPCNB BW67PCO((BQ GHKLXHLA\&AKVHA  AP[U E\BA&T07OCO+ECN$(HB+YBLBZU&BXBFJC/W\HC?U$(DJG H	L(K00>	3C?LCSB 
JZ"	HFBZ(6C,BFJZG\,HA PF.ZJB+ZBLFHH.B,FL2CXFDNC.C,FD"C3ETHKB7NCR;";DLG,HCEN" 27THB
S0H0KAAL<4AE!]*\AAG!7/,03CGH+ICNNM?6Z,BFJB\LFHWL?TLBFKS?FXH[!AE\P32BAB3>>APGG+53	LDDGVY9<AAC><F= 7HBZ

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