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<GENIO C:OPEN  C:ERROR C:EXIT  C:CKIO  C:ALOG  C8EXP   C8IFPOW C8FFPOW C8MPY   C6DIV   C6IREM  C6IABS  C6IRDSW C6CLEAR C6SUBSC C
TAN   C4COS   C4SIN   C4ATAN  C2SQRT  C0FIPOW C.IIPOW C.IOPEN C,OOPEN C,OCLOS C,CHAIN C,WTAPE C*RTAPE C*J-CXA3J-CW/1A3J-CV/3A3J-CU//A3J-CM/
A3J*K$13A3J)I"0=A3J	TL1;A3J	QS10A3J	PE1/A3J	H/1GA3J&IP.ZA3J&H./$A3J$B[BZBYBXDVDTDRFOFLJGR^> 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 P
(NN8J(HDFTB2">A0GHZ+]LHF;V.ALFGK;?U(GXH B,LBD:35HXBF8G\CO(XC$(NN8J<J$A\.ACWHP%PO9<AW=<19PABMS<DQEGUAOAAF$S??8IQ<+KQQDOGR5&POQ<]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:3? 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 (FFG[] NX KHNA\^A>ND?J,H\JI	=K<RDOKR82OR<MCU4RDOKS<K,OR6 <PFIP[! E\BAG/,HU 1I:A0PBI[) XH[!KE\PS,G4JD/H2
\FJ:M2 $FD+H^<4BOHHKGNIW;7> NLNI?:(GD+I?Y$K8  E\E+>3X\FJUP[! E\BA3/\DJ+Q?Y,IXH[!LE\->
8!BPQJ E: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*)?$PEBQ9BE1DPTB&/?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:>-DPRQK+<(SEDK=>89DPSQOS?(RBFA;^> 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&8G8FHK-:E0L^I;>4HL^I;<4HL^I+;NF;,V8BF[*BENK>OC?N
8H4K00G1+BCSB B B[1>NHBF:O;(0FPJBPG;HAC<<Q9PPBBQEF<55PQAERCXQAA\BF:C CHZ\DS\BOP F$FBXVX CFLTDHTFLNI	?0HFXPE$LC[><Q4CF,RBFJ)B) NNJG<\FNCXF)XFBB)	;0KDHBNYDDRDBNXDDQBNXD(P(K8EHBBXU RPNBHQDTDFNJDDPLBF,PB5BHP3: OJ	NGC\DJKG+E OJSX4R JD(QGXDF+EGG\BO)(G1\FNK&8POJ
*NJKXPWPNN<F1HPKBHP V$LGK?<Q8GB\R3=XKNZDRDFPJG*=: OAAA;\G1APG?E=HAAA>\Q=A<P4AE+ICTB G07EKR+OCRMAF6OI+TCOB H"PFNL"ADDFNNBA\FBZ"UDBF:V\CDXG*<NC(G&
T13S?T* B $TBF:Y$XCDZV*<NCZV H$LC?";$LGO?/>,HL^I?>4CH2;>I4GD:V	VTBF29<\0B?;F($LJ"9[9 N,BVN\,H,KIZI0 D17FI* B  $LC	?G:FLNIG>DFBHWS9OJK0G;PFIS84TJB8VDDDBO8XD!XFL^I??8GGK=HVHM DH3 [I+ICXB H;  FB[!G),HA 1JBIB[ 7AXNB[!3BLJXH[!OE\Q:?7( JAA?9=4)APQD\?;4OAAC<=?5A
DRG>DAAC?PABQ5DQDAFXR02XF+MCPB B TB2E>A<GBZFBMNCRGBG\FNN "G\DF$H&C0JBHVDXXFBHW<Y8BFHWDP FBXQDYHBFXZ<P4BF&8FA BNXHDX$BNXHDY(BNXHDZ OIR*8\JI"D M $$I(E02X;+DCVB B BZ;B?NCR<B<\FNN .<0DF$H>CJBHVDXXFB8YD!\BB[<DW(FB[;68 NHS0P OJ	Z"BIB8ZDD(FB8YDD$FB8XDD FIS:68PJB
XDP$BFHQDZHFI9 Q XH[!OE\R89($LG+8
.!BPHPQ9XQEBE:\*-BPOK]<<AB==
%9BPOI? BREJDBEBPRGN388REAICNEPRKN9? REK?S(QAPRK)BB[?:QXNTF2R&ADCN< PXDNG:Q&0DBFRQ"RTJKB02ZS3LGOCTB BZSBWNCRT*THFCRTBT\FBZS&%PBF:&\CLJJ	2%3F+OCTB 8Q ONX1DQFF8RDHXFB[> WE\G	=K<HM HF26[I+ACDB H.6(FNL.7\DF;B. \CDZ7HNCXH(GNCXH,HXBA\^A/;\BG/:C9B8PEHFB8QDHDFB8R
HHFTN2D>A4GK/NV0A02O^+HCSB B LNIK8OB37>I GXH MTN2:A CFS^;( CF
P[= E\JA;\ NPJK$C7HABC8<P%BPPJ[:<PEBC;>N1BPQIFS=TQABC>>O=B HUC]^> 30<A3P;E> B 0AWG3N?IB G03E	X+TB 30TA3R?R?RB 0A/C+ICO" AHOUOHA00^C3E	NCOB FHGGXNN8F DBZU"R(BLH\*5 OL8YD,HA ,CBVPB&DPB-.1XPL(QBF\BL8VJHA 0B YXJN+ZBF$LJ2F(N,JOI=+- OJR=;-JB+).+(MJ6F29TJB;-8 8F
6F.Y<JM:Z9H0BA\&A;(8FB;-P! NB[*"R$LB?.4X(JN8FFXNOLH&RHGNJ ;-4FJKE;-8BNIH*$LIK(++,JRMB <0A3C7EKA& 5PQABY0QEFX$*9PQ=VVPQEF%)VQPQAVVXQEF")VEPQAVV XQEF
9V1PQEZ<<LNA*W OJ3V"BE\I*XVXH  BDLC>Y6(XJLJB GA\&A6ZXJJBJ!RXAEQF),13OWP+NB <<BL4&F6(LL0VDL,HA 0F&A\GG"Y E M.1C>\BD*<>64BN9ADAOJ:8=D<BMJ6+< ONX "<(JOK?FI0LF0GZ\BB?;2 4HBHG+:OJ;K3&4HB(GBJB0G0!<JL8&24KH+MFJ,HU 1D"ADPPQFSTEEZW YLFH\GAB<DL74=6 MN=:]L<AGN
U*XGK-.
0HLID>I0FA"!JTII*	0)8NGHH
>)APOE3];XOAA5<]65APMEN!>XPAAA?:J!PQG	"DQO??C?THDNRCRDHEL 8OLDG6KKE7RKOB <",BF:P 0CFRX.LNCZL H0DNXC! CN<D8XDDNYHBA CFNB$HFCXH"XBTF3":AHCN8JJ(NHOP7"HD+"&(BN8J0J(HB[?	" BN8F$D FB"X;JHDJJ8C>\FI;=?&4IB?!6(4JXH DND&JPBH/PCJ?<,(HJB?;=H(BB9[I LKGP7[E+ICTB  [U L.
:MD13C	K+OB HDLJ U X;"HCO(XC/(NN8J<JHA\.AO	<AAC9> )APE;;OAAC<<?5APQEM>4AA??W<"^> 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$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/JBDNFJA.)HFNL**(DFN9**(DF:F XCO,(R&OJSAJBDNNQDRCOJ;A!HPFB:D !XFB:C  LFBZC"EFBJA"FLDO(HW"NO9H!DFB: DFB:AEDOJKQ6DHJNJBB NNZ"BBO8XH!HM C7,
I+ECMB 8:4DDS-"EDBOIHBD ONQH>EXJXH <A=<OC44AKE7RKO* YPQDX13IKA+SB  BF:D DCDZA"KDCDZABQNC>QIHDNXH DBD13ISR+SCW PODRRJRHA  EP[! E\BA:	 NXH DC<13CWL+ACR$DFL^I??8GGK=JQHA FLPFA42WS3BOSB X.0BO9H, DGNK$B3 FBZ2B>NCH+< OJOH4H,FCXHJ*NFN/4H<FCXHB) CFN+(H0FBZ2C CFJ-
DNFR36/<JN: ((CO$ C3NCJ)+;8FNH*+4GDJ-20 OB:.)D8BB^,6-XNBZ2C1NDKB3^W-APOG?Q<AAA=\R9APDQE?BAC)^> 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!	^8DEOPS&
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 1GNA
DH2C7\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^> 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^> 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
> 30$A3OWP?NB 0A?O3P;EB G03O3C+OCS30LA3H	A?NB 4AKE7RKOB G03G;E+ICOAJUOHA00&B3OWPCNB FJZ/
8HC?\$(HJG H;SBTL2B6A8IXH DA,HU 1E"APEOD
U$AAA/$,07OCO+ECN(HB+!BMFJZ"[HFBZ\6C<BHN>K] OJ^R4HLHLKB 2.OO7LOOB  * 8BFJB"/LFB[: PBXH[(FDJJ7"4JX HHBFCB LCFSM"CLCFSB2C0HH/LB>NL3BHDL^A0H0K8. 8HHKL6Z,BG,HCSDA<X=DAAE*97DALAC/3C3A;I^ <NCJZHFB[$6CLHEK\?FB"WP[E E\BA"VDLH>DLG^X:Y8JAC><F= ;HA3^> 70HA7TCA?EB 4A
W3AWPB 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"DXBGJE>C0MNARXNNHF?:
MM+9?)DMK<?9PMM?:	HLJXH <A%PBW: AC;<C1PBC= A?><= ATBW

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