File P1TEST.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"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B.B+304A3A;I> B 4ACO+ECNB G07ICO+ECN30<A3OWPSNB BAQR"O4DDH]SHADDSRTLDDSBTDSYC006Y3A;IB : D,HA 8B3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;FF O(AB5DJL")H HH   O(BB>$JM")H HH   O(CCGDJM")H HH   O(DCPTJL-5Z7JH   O(ECYDJL!)H H
   O(FO" JL0AI)HH   O(GK1\JDHYSALM HTCHDFAHTCD*	1XNXH["CE\TP2V&ALPN+F??=<N4AWS7B;SB AAXH["DE\TP2V&APN3F>I8GNKFC=\FXH["EE\Q1<ZI(B 7G8G?F4BF G [U E\FA!;$LBA*<(BH7\GNKFC=\FXH["EE\Q19ZI(BHO8\H\0GXNB[=DG,HU 2E^A\QLJIA*B67G8G?F4BF G [U E\FA!5$LBA*<PBH7\GNKFC=\F
H["EE\Q13ZI(BHO2\H\0GXNB[=DG,HU 2E^ADQLJIA*B07G8G?F4BF(G
?AAPF A1\AAA2^QMAPDF!4HAAA5\EYAPE3A7PAAA8]$%APDCU:AAA;\B1APDAA=(AAA>^=A<N0A	E3NWKB G07ESN+ECRAA" [U E\FA>$LBA*<4BH7\GNKFC<\FXH["EE\Q3;ZI(BHO:\H\0GXNB[<DG,HU 2E>A0QLJIA*B97G8GFE\TG38>A EC;8<!0BO+HL OBH+C<\FXH["EE\P2FZIBHC<\FXH["EE\P2FZI(B 7C G7G(G2*XNXH["F
\TQ37>AXQN;F A$LG;5GF,HU!0G>A\QE\FA7E\TQ37>A\QNF[]!E\FA6E\TQ37>AXQE\FA36XNPJG?	5PEAAC6<B]APDA8XPAAC9>>)APF4C;$AAC<<J5APF*C> AA;?ABXHD[ GE\TR1>^A4RE\JA!<E\R9;GF,HU!0G^A(RE\JA!=E\TR1<^A0RNF[]!E\JA!9E\TR1>^A0RE\JA1;XNXHD[ GE\TR18^A8RE\JA!=E\R9;GF,HU!0G^A\RE\
A!>E\TR1>^A,RNF[]!E\JA!6E\TR1>^A(RE\JA1;XNXHD[ GE\TR15^A\RE\JA!=E\R9>GF,HU!0G^APRE\JA!7E\TR1>^A8RNF[]!E\JA!3E\TR17^A(RE\JA1=XNXHD[ GE\TR12^A\RE\JA!>E\R9>?F<JABA2\LMBPHKA4(ABA5\IYBPHHA7\ABA8\F%BPHEA:PABA;\1BPHAA=HABA>\C=BPNHF,HU!0G>A8RE\JA=E\TR3<>A,RNF[]!E
JA:E\TR3=>A0RE\JA3;XNXHD[ GE\TR39>A4RE\JA8E\R;8GF,HU!0G>A\RE\JA=E\TR38>A RNF[]!E\JA6E\TR3=>A0RE\JA35XNXHD[ GE\TR34>A4RE\JA5E\R;3GF,HU!0G>AHRE\JA=E\TR35>A RNF[]!E\JA1E\TR3=>A RE\JA38XNXHD[ GE\TR30>A4RE\JA8E\R;8?F<JABC0<UEBPHTG2LABC3<DQBPHRC5HABC6<Q]BPHPC8L
BC9<O)BPHNC;ABC<<A5BPHGC>4AB;?ACXHD[ GE\TS1>^A4SE\NA!<E\S9;GF,HU!0G^A(SE\NA!9E\TS18^A\SN;F> XGXHD[ GE\TS15^A$SE\NA!8E\P:H+FNG6[]!E\NA!4E\TS19^A SE\BA2HXNN^ G6,HU!0G^ALSE\NA!9E\TS18"A PN;F> XGXHD[ GE\TS12^A$SE\NA!8E\P:HGF,HU!0G^ADSE\NA!=E\TS10^A SNF[]!E\NA
/E\TS1=^ASE\NA18XNXHD[ GE\TS1.^A$SE\NA!<E\S9;?F<JACA.X^=CPL]A0TACA1\\ICPL[E3(ACA4\YUCPLX!6 PACA7\A!CPLA9XACA:\W-CPLCA<HACA=\G9CPLVA?NAC"[]!E\NA>E\TS3=>A0SE\NA3<XNN0A>I,GN;F<A(GN;F<A$GN;F<A GNKFC7\FXH["EE\S36&IDH8LA\H\0GXNB[7DG,HU 2E>AXSL&I	N A7G8G?F\BF G 
U E\NA5$LI	<TBH7\GNKFC4\FXH["EE\S362ILH 7G8G?F\BF G [U E\NA6$LIB=DNH7\GNKFC7\FXH["EE\S36^I<K8LA\H\0GXNB[7<G<JACC4=$UCPLBC6DACC7<2!CPFM"[9FAC[:=
-CPFM^C<ACC=<F9CPL
C?NAD  [U E\RA!>$LKA?<8BH7\GNKFC=\FXH["EE\T1<^I<KHO<\H\0GXNB[=DG,HU 2E^A,TL.IA?B;7G8G?F4BF G [U E\RA!:$LKA?<(BH7\GNKFC=\FXH["EE\T19^I<KHO8\H\0GXNB39>I\GNKFC6\FXH["EE\T15:I<I8LA\H\0GXNB[6DG,HU 2E^A8TL&IC/B>7G8G?FXBF G [U E\RA!<$LIC/<0BH7\GNKFC6\FPJS?A5DADE
^P]DPFQA8$ADA9\F)DPPEA;PADA<\C5DPP2A>HAD9?G07GSE+SCY30XA3E3HR R F,HU 2E>A8TL&IC/B>7G8G?F4BF G [U E\RA<$LIC/<0BH7\GNKFC=\FXH["EE\T3;:I<IHO:\H\0GXNB[=DG,HU 2E>A$TL&IC/B87G8G?F4BF G [U E\RA7$LIC/DNH7\GNKF8$LG;6CFDNG;5?FPBF G [U E\RA3$LIB=DNH7\GNF[! NKF2$LC?1
( JNFP[% E\RA3:XNK;0GF,HA 8H+FNLNI?1<JADG1=IDPOR9C3DADC4<2UDPFQ][6DFADC7<H!DPPBC9\ADC:<C-DPPFC<TADG=>P9DPPDC?N30PA+DB > B 0A;I7KSIB AEO*(2IXNXH[!IE\U9>F4JNF[! N;F?F4BLNI+< OJ:ZGF,HU 1I^A,UN+F2^XNXH[0HXNTN3F>A(GNKF?9 GN;F" $LC?<.(DJNFP[% E\VA1>XNK;7+FNLNI+
OK;6GF,HA 1JRIDAG;5?FTCN< 6(LJNF[]!LFI!AE\TU14"AXPE\BA2GXNNLA?8 GN/F33XNXH[!K$LA]A?2DBFHGG0,HU 3E^A8UE\BA"H$LBA4L\HLHGDNN8A(! OTN2 >ATGPJW?10 AEM1\ IEPPVHA4DEEA5^E!EPPVGA9LEEA:^F-EPTIQ<AAE==
59EPTBA?N30XA3AGTSLV )3,UEEU6
D]EPUS	;0 UAE:FE\C;>(  OJ"JP[1 E\VA3=XNLNIK<DNA\NA3;ON^ ?:$BLNI;<ON:  \FA\NAK:N8G(  OJ"%P[1 E\VA38XNLNI<E\G;;3FXNXH[0HXNB37>IXCO* 3BXNXH[0HXNN2 >IXCO*(GA,HU 1L>ATUN;F?FPKNKF3$LC?66(DJNFP[% E\VA32XNJ;UGF,HA 8H3FXNB31>IXCO*(3"XNXH[!IE\U;0;FXJNF[! N;F3FXNN+F
?AEPTN;1$OAEC2<DMEPOW6O4HUAEC5<BYEPAU?7$OAEC8=%%EPOW=: PEEC;>F1EPAUA[=\EEC>>E=E<N4AWA3SWKB AFXH["FE\TV1>^A4VNF [Y E\ZA!=E\V9=GF,HU 2F^A0VE\ZA1=XNLNI+; OK;:?F,CO+(>.,CB?9+ 8JCK;B(\FA\NAG\FDKXGL(DVVA8  O9%0XNXH[!ME\V9=GF,HU 1L^A VN/F7 O9&0XNB36>ITCO. 34XNXH
0HXNN2 >ITCO. 33XNXH[!J$LA]A32XNC?26(8JXH[!LE\V91GF,HA 8H?FBLNI+5OJ;,GF,HA 8H;F<KN+F
?AFPO[0Y1TEFA2^EUFPAY16$OAFM8
(%FPO[;Y;PFAFA<\B5FPXAA>AF9?G03C;O+SCT70A3U/NSTZ %/XVAFJ>$LC?=" <JNFP[% E\ZA3<XNXH[0HXNJ:UGF,HU 1L>A0VN;F3FXNB3;>I4CO;H" E\GK:9$LC?=+ NNX  GE\C;: \N\ ?: BLNI+=OTN2 >A(AGK:7$LC?=* NA\FA?:XGNOF+6 OJCP[1 E\ZA35XNXHD[ G$LTA1A>APVE\ZA4E\V;4GF,HA 8HGF,HA 8N+FNL
I?3LGNKFC2\FB10[U E\ZA0$LE2T^IPB P[= E\ZA?/(GPJ[?C/TAFC0<AEFP[HK2CAFW3>TQFPX/5\EFC6>E]FPO[8?8(OAF?9?;)FPPZH?;8OAFC<<P5FPAY;> OAF;?\MFPWX:M4,WAG P[= E\^A=>4GC[<>K,CF"L[]!LBI E\TW1:"A PE\BA2IXNXH[!ME\W99GF,HU 1M^A8WNKF8$LC?7*  JNF[! N+F28XNB36>I\CO* 27XNXH[
HXNXH[!IE\W953FXNN/F34XNNKF3$LC?7> HKNF[! N;F" $LC?7> DKNFP[) LFI=AGNOF+0 OJXP[1 E\^A1/XNXH[0HXNB3.>I\CO* 3&XNXH[0HXNK;-;F0BLNI?7<JAG=,[(9GPO
0Y/TEGA0^EMGPO^4Q4,VAGA5\NYGPO
9Q7AAG=8
)%GP\EA:HEGA=^I9GP\DA?N70PA3YWP?NB 4AST7ESSZ 5GPW^S11PWEG]2EAGO* 2LXNXH[!IE\W;>GF,HA 8H	FHJNFP[1 E\^A3>XNN;FF$LTC3=>A0GNF[]!LFI!AE\TW3;>A,WE\^A3;XNXH[0PXNB[:<G$BXH[EE\TW38"AHPLJIA4B77G8G?FXBLNI+5OJ"?[! NFD[E N/F34XNNKF3$LC?5> HKNF[! N;F" $LC?5> DKNFP[) LF
=AGNOF+0 OJ"P[1 E\^A3/XNPJ
?[/TEGC0>EMGPO^2S4TWAGG5=YGPO
)C7LAGC8<B%GP
HK:CAGC;<1GPP^B	=PEAGC><P=G<N4ASK7ESSB G07EOR+ECTEG1=BIGPXYCP+TXAH []!LFI!AE\TX1>^A4XE\"A1=XNXH[0HXNB3<>I,CO* 2XXNXH[0HXNJ:/?F(BLNI+;OJ:(GF,HU 1I^A8XNF[! N+F2.XNXH[!LE\X9>3FXNNFD[A NFD[E NFD[I NKF9$LC?;2 JXH[0HXNK;8F OI	7$LC?;*(NA\^A?6TBLNI+; ON:  \FA\NAK
N8G< PGNOF+4 OJ/^33XNB32>I,CO* 3-XNXH["SE\TX11^ADXN/F30XNPJ?A1DAH=2
KQHPP"E-5(OEHA6^H]HPOB18<WAH=9
))HPO0Q;AAH=<
(5HP A>TAH9?G07PKA+ACMEH!0^EMHPXZI ,$XAH"P[1 E\"A3>XNN/F= OI(<$LC?;> (KNF[! N;F" $LC?;&(,JXH[!LE\X;9GF,HA 1JRIDAG;8?F CO*(F),HU 1L>A\XN3F>IXCA\^A35XNXHD[ G$LTA1A>APXE\"A3E\X;3GF,HA 8HGF,HA 8T?FHBLNI+; OJIP[1 E\"A31XNXH[0HXNN2 >I,CO*(GV,HU 1L>A$XNFP[- LFI=
GNOF+0OJ$P[1 E\"A3/XNB[.8G4BPJ?3- AHO.8 =HP!(0DPAHC1<EIHPO(C3AHC4<GUHPP"B	6PEAHC7=%!HPP"EC9HAHG;=1HPOBG>DAH;?<)HPY%XD,HU 3E^A8YE\BA"A$LBA4L\HLHGDNB;=(!OTN2 >A0GNOF+< OJ"[P[1 E\&A1;XNB[:<G$BXH[EE\TY1="AHPLJIA4B[:<G$BXH[EE\TY1="ADPLJIA4H7\CH7\GNF[! NKF8$LC?
2  JNF[! N+F3VXNXH[!IE\Y96?FTBLNI+7OJU[! N;F?FPKNF[! N;F" $LC?7:(TJXH[!LE\Y9>GF,HA 1JRIDAG;<?F0CO.(?3<JAI=5
9YIP$NQ7AAI=8
)%IP	HI:CAIA;]	1IPP&EA=LAIA>\B=I<N0AWN3WWLB G03O3C+OCS70\A7RSISE& !3PYEI%4J	5FPY"<7=TYEF%7
U)FPY	XF,HU 1L>A8YNF[]!LFI!AE\TY3=>A0YE\&A3<XNXH[0HXNXH[0TXNB3;>I(CO* 2 XNXH[0HXNJ:&GF,HU 1I>A$YN;F3FXNXH[0UXNXH["SE\TY38>A\YNF [Y E\&A7E\Y;77FTJOBH=),BLNI+:OJ;FGF,HA 8H3F0JNFP[% E\&A39XNNF$[M E\&A6E\Y?72H\N8?FTKNKF4$LC?::(HJXH[!IE\Y;3GF,HA 8VF$LC?2> DKN+
??IIP&G3XAI?4?+UIPV$UC6LAIC7<A!IP$EC98AIG:=-IPO	)C<AIC=<F9IP%%C?N30$A+OCH> B 0AC3A;IB G03E	X+TB EI+1LQ!IPZ$ZD	(ZEI(JZ!IPZ\ZF5(ZEG*2\Z1GPZ\ZE;,ZEF+%XZYEPZTZE$(ZED+V4ZMDPZPZGA(ZED*>,ZMDPZPZF0(ZED*%(ZIDPZPZFW(ZED*T Z%DPZPZFF(ZED)/XZ1DPZPZE!(ZED)^TZMDPZPZEP(Z
D)ALZ9DPZPZD3(ZED(0HZUDPZPZD"(ZED(WDZQDPZPZDI(ZED(F8Z!CPZLZG%(ZEC+Z4Z]CPZLZGL(ZEC+J,Z=CPZLZF<(ZEC*1(Z9CPZLZF(ZEC* 0Z%APZDZF;(ZEA*%(ZIAPZDZFW(ZEA*T Z%APZDZFF(ZEA)(XZUAPZDZEZ(ZEA)WPZ1APZDZEI(ZEA(>LZ-APZDZD0(ZEA(-HZIAPZDZD
(ZEA(TDZIAPZ$ZD50ZEI(30\YAPZD\GD0ZAJ $[] E\*A!?E\P%T[! LBI0XNXH[!YE\P:M	F\JNFT[% E\BA2JXNNFD[) P(A?D"BBF"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"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