File LIBPIP.RL (Fortran library or relocatable file)

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

"B"B"B"B"B^> 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%
O9<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:;? 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?8R"JAB"B"B"B"B"B> A?0AGF+DB B G03FKS* B 30XA+MCP> B 0ASF+VB B G03S?T* B 30XA7LSO> B 0A3F7OSAB G07FI* B 30$A7FI> B 0A[I+ACDB G07ISS+OB 30DA+
CS> B 0AC+SB " A T03FKS* B  TBFJN"F<FN+X"P8P00ZN+ACDB B FJE&NLFNL"O<DF8G" <CDZO H4BA\^A?$LC?>6(\JI*BGU BBZEDX\BO((J;DNB<Y-,JFJEPS NFHST NFHTU NFPU*E<JJ;C  TFBXY0WDJIRA2EJB<V3 JN	&FD BO	H"DIB<P7HJN	&6D NTF0V>A4GI*CC%\BF/K.OBBE-$LG>.$LG<.$LG;;: 4FF:EV8BF;+ 
KOC?NC,H?.H07AOB* B <HBFJN3<FN[(	-JAC;<R1PQG>EFB APQ5S=TQEFCAFAAH GLFNL$H0HFHSHWODZDYXBFLXDHPFCXH U$LC?F\FF3E>I8CFLQG=HFKB($FB:)H(N[<4W NZ)(V$B/;B\HPRPNFHRQPNFHQPPNF,PB*NIDRTBF8RFDDBBXT QPNBHPDSFKB5DBB?:3H8JISC0W\JB?E6( JD(RGXDDJSX0PTFJKGXW OJ[18WXNB<P; L
H:*6  JB8WADXNO-HGDBB0V>I<GB\QG>HBG/=FNFXR8Q(JAA=:
8-APDG=<<AAA=\R9APDQE?30TA3R?RSRF "17ISS+OB  BF:D DCDZA"NDCFHG& FBZABYNCPG GFNN G FBZ*7LJ41NX+TCOB B BZXB\NCRY.Y\FNN BY FLNI/?XHL^I??8CH26>I8GC="6$LGS=6YXNBZXB4NKBYNG,H"6$ILFD 2<	F+XB B 0>I<CI[< P$LC[>DQ\BB?;9,JB[:<T$ID(TGKXBNHDDQ ONX! V$LG
??>4GB V ! 01	[7FIB B B[[70BF$P[) LBI4,BF:<7V0BF*=F>,HU 1N.A(QN+(?S)APOG=
;POEAG<<\5APDRG>DAAC?PABQ5DQDMF,RDHH 27FCM* B  \BGJF"H8FNL"I$DF8G" $CDZI HLIJJ]DV BFHVDW$BB[?DWBFHXDQ$FBXRDZFB[>"NDIB8XDH FB8YDH$FB8ZDH(FO$X"8DJ&(JDHA $C$I(E02X;+DCVB B B^E.F,BF;A,0CDZ<(GNCR<B< FI*CG2XBBXXDV$BNH!<W4BFXW<Z0BF;AGXLB<P7H0JI&BF(BNXDDZ$BNXDDY 
NXD<X,ID+AGV BFHPDYDFBXZ RPIXH DD,HU 1NNA$RN3(>I(GPJK0E:EBE;\*1BPOK]=<AB=>
%=BPOI? BREJDBEBPRGN398REAICNEPRKN8F 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[9 E\JA;\ NPJK$C7HABC8<P%BPPJ[:<PEBC;>N1BPQIFS=TQABC>>O=B XU!%B"B"B"B"B*BA?G03IWR+MB 30$A7AOB> B 0A	D+VB B G07M	P* B 30$A7ROD?WB 0A3C7EKAB G03SKU+SCCABL6FCM+YB B X"AXBF:K \CDZG"R\CDZGB)NC")JWHA D($FB[?RCPNFJRAPNF>A(X$BBR&C,JKBW$ILEBZ2)	D+VB B <)<JD:B !DF
JC.)LFNL**(DFN:**(DF:F XCO,(R&OJSBJBDNNQDRCOJ;B!HPFB:D !XFB:C  LFBZC"EFBJA"FLDO(HWNO9H!DFB: DFB:AEDOJKR6DLJNJBB NNZ"BBO8XH!HM C7-KI+ECMB 8:8DDS."EDBOIHBD ONQH>E\JXH <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-HDNFR36/<JN: ((CO$ C3NCJ)+;8FNH*+4GDJ-20 OB:.)D8BB^,6-XNBZ2C1NDKB3^W-APOG?Q<AAA=\R9APDQE?"BA="B"B"B"B"B> A?4ACO+ECNB G03G;E+IC
30TA7XSI> B 4AKE7RKOB G03C	K+OB ABPO<BLAAR2CWG3N?IB XG\BN8FFPNJ&UHFB2J0\PBO2(YNXH[$CXKDB&D.-DPPCL0 QXJB0G VNXH DB$LJ:FZXJD+C2=HBL0&,YTJ2J0\PBO2 Z0LL(I2FLFL(N6+8<A=BM)B?J6(XJD+J3]XBJ2+4Y JL4Z":XJM*93%(BNX!3K(BB;K1H\BL&I3E BJ6+6YLJM:Z1H$BA\&A3E,FB;JP! NB[G"
$LB?K<X(JN8FFXNOLH&RHGNJ 3J(F<JC%0A3C7EKA& 5PQABY0QEFX$*9PQ=VVPQEF%)VQPQAVVXQEF")VEPQAVV XQEF
1V%PQEZ<<LNA*W OJ3V"BE\I*XVXH  BDLC>Y6(XJLJB GA\&A6ZXJJBJ!RXAEQF),13OWP+NB  NL4&F6(LL0VDL,HA 0F&A\GG"Y E M.1C?\BD*<>68BN9ADAOJ:8=D4BMJ6+< ONX "<(JOK?FI0LF0GZ\BB?;2 4HBHG+:OJ;K3&4HB(GBJB0G0!<JL8&24KH+MFJ,HU 1D"ADPPQFSTEEZW YLFH\GAB<DL74=6 MN=:]L<AGN
9*0JK-.
0HLID>I0FA"!JTII*	0)8NGHH
>)APOE3];XOAA5<]65APFJQ>8MEAA?2FUPQG	"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.C
MD13C	K+OB HDLJ U X;"HCO(XC/(NN8J<JHA\.AO	<AAC9> )APE;;OAAC<<?5APQEM>4AA??<NF"B"B"B"B"B^> 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"B"B"B"B"B^> 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?0D"DA5
B"B"B"B"B> A?4AGS+RCTB G03FSA* B 70LA+TCO> B 4AKE7RKOB G07F[D* B AB4DLLDBT6IGS+RCTB   7$PCXG"W(DDH7BI\CFRXFJ,HA 1BBIXH[!CE\P"CP[I E\BA"C$LC??)0JXH[!DE\P:G($LA??, JXH PA NB3>>I<GC;=<H4GC;<<H0GCC?+; OBO:??<GB[9FF,HU 1C"APXH[!BE\P"CP[U E\BAF,HU 1B"APLNI?? BG
?2FHJXH <A!POC8?94OAC:<B-PDG<HAC=<Q9PBDG?"NCJ"B"B"B"B"B> A?0A	S+NB B G07COO* B 70PA+ACN> B 0AGF+DB B G03FKS* B 30LA+HCS> B 4ASS+OB B G07F[D* B ABL8KFV&]TCL)\)8XKHF4VPCDQD<5TKEUUAU0D8DD:GCTXDD:G7TPCMO60 TCOTK7!8CDV^;PXCMYO<SPCDAL<"4CEMUAO0D,D03T;A* B  FDH7
1\CFSN2\HPN10GDFD"2P[Q LBI $LC?>3H0JXH[!EE\PRY2HJXH[!DE\P:Y" BF2>I8CO+HLBN<J;DJXH[DF,HU 1D&A$PB=	70PNJ B(NO*XG4,HU 1G"ADPB3<>I8GXH[!HE\P"A M HDNF+6??1PDLC=\AC><P=<N0A7F+PB B AAXH[!GE\P"AP[Q E\BAFA,HU 1I"ADPXH[!GE\Q 0<2\PCTG	? FXH[!DE\TP2D>A8EJ")P[% E\BA>A
CN<J*PXJXH[LFHHP/7DG,HU 1INAQBJX	<PJ01L3+OCSB B BZ3.;PBF:<.A4J41L;+ICNB B A\^AO=\HQL;0G,FD"<L7,QCXG/L0DXH[!D$L0>I,CO+HGW,HU 1E&AXPE+=GM,HU 1D&AXPNN ?=4GLNI3; OTJ3W>A4CN<J;4JXH[DF,HU 1D&AXPB	:?PPXH \A)APDFE;AAA<\C5APPF=>XPEAA?	7ZI"B"B"B"B"B^> 30DA3T;A> B 0
[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"B"B"B"B"B^> 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"DXBGJE>C0MNARXNNHF?:PMM+9?)DMK<?9PMM?:	HLJXH <A%PBW: AC;<C1PBC= A?><= AT"WB"B"B"B"B*BA?G07ICO+ECN30<A3OWP?NB 0AOO7LOOB G03CGH+ICN30TA3R?R?RB 0AWG3N?I" ABEO!RH07ICO+ECN4\BHN7KT OJ^Q0H0HB3X"BE\IV E XH[!EE\LPB2U?O3P;EB  6Z$BJBL$TBFJB"VLFBW67TCO((BQ 
H/L*Z\03O3C+OCS$(HBZ	*B BFJC	[(FB\[Y D*Z60(BJBL FBZBB;CZCFLDCZC";LDHE/E\K8,,CD2;BA GKCE(NH"77ELBG,HCLDA<X=DAAE*97DALAC/3[C3A;I^ <NCJZ[HFB[\2C0HEKT73LFB[?F,HU 1A>AHPLBA<8BL^A?4TGJS	7CXDAE9=/9PF3? "MBZ"B"B"B"B"BBZ

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