File P0TEST.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"B6J.304A3A;I> B 4ACO+ECNB G03SKU+SC^ABP3YDL3HGM+ICNB NXH[0BXNN;F3FXNN;F3FXNN;F3FDFNKFC>\FXH["CE\P3=:IDJ8N \H\0GXNB[>DG,HU 2C>A4PL.IB)N" 7G8GF$LG;<?F,GNKF?:<JAC:=H-PB
<DLAC=<A9PCHC?NAA ) OG;>?F4BL^I3<XNB
;3:XNB
938XNB
736XNB
534XNB
332XNB[1DG,HU 2C^AQLFI:B/7G8G?FDBF G [M E\FA!1$LA:88BH7\GNKFC7\FXH["CE\Q10NI0AHO-\H\0GXNB[7DG,HU 2C^ADQLFI<B,7G8G?F\BF G [M E\FA!+$LA<L\H\0GXNB[7DG,HU 2C^A\QLFI<B*7G(G[?)APADAA+LAAQ,ZD5APEGO1.DAAQ/
YAAPDAA1HAAM2\PMAPDJ148NAA]5
>YAPNGMA7PAA98
L%APOF]1:,NAAA;]1APNGRU= BAA9>
P=A<N0A?I3P;EB G03RGE+DB 30$A+OCHR F 2XNJVGOPDDAXH["DE\TP3E"AHQN
F>E\EO>K>DNB?=?H0KNF [U E\FA;E\Q^=:E\EO:K:DNB?9/HXJB[8<G4BXH[CE\TP2=.A0PLFI.0LQXH[!F$L(F^,HA 1FBIOBH0FDJJ01XA$L8F$LC
76 OH-C8\FB=0[M L2I!2E\P2<.IA 7CHG+5 OJ+\$ O8." $LC
636XNJ?GJH<B[=DG,HU 2C.A0PLFIBSLNIO6\H\<G<JAA
5? YAPLE2G7CAAG8<"%APDJ/:4PAAC;<D5APD]/>0PAA;?<1APRHD  O8E<8KNF [U E\JA!=E\R]O<E\EO<K<DNB?;+HPJB[:<G,BXH[CE\TR19.A0PLJIKRDRXH[!F$L(FL,HA 1FBINF [U E\JA!=E\R]O<E\EO<K<DNB?;3H JB[:<G,BXH[CE\TR18.A0PLJISRTRXH[!F$L(F0,HA 1FBIOBH4KLJJ42*I$L8FE\TG3<>A0EC;<<!\BO
H36XNXH["EE\TR1=BATG35>ATEC;5<!PBO/H?3PBF(G
?QBPHJ-54PABA7\
!BPHBA9DABA:\4-BPHZ-<0PABA=\D9BPQJOA?N308A3A3MSIJ !30REBI^SYBPRJ^F,HU 2C.A4PLNI F$RXH[!F$L,G>,HA 1FBIOBH$U\JJ01XA$L8GF,HA <GFHPN,= O J [U E\JA<E\R
C;E\EO;K;DNB?:/H0JB[:DG,HU 2C.A0PE\BA.($RXH[!F$L(F	,HA 1FBIOBH1.$JJ(	N	HKL0AA)TN3F>A,GA\VA?;,CNH!39 OJ;/?F$BF G [M E\BA"<$LA:L\H\ G OI/C8\FXH["CE\P2<NI0A 7G(G3LXNB[8<G<JABC8<D%BPHBG:PEBC;><1BPHAW=XREBK>=%=B<N0A	D+VB B ACXH["CE\S1>NI0A 7G8GFE\TG3=>A4EC;=<!
BO/H3;XNB[<DG,HU 2C.A0PE\BAB(B[<DG,HU 2C.A0PE\BAB(H7\CXH[!HE\S!:7G8G?F0BF G [M E\BA"<E\PB(L\HL GE\G;9?F$CO+3.XNB[<DG,HU 2C.A0PE\BAB(B[<DG,HU 2C.A0PE\BAB(H7\CB87G8G?F0BF G [M E\BA"<E\PB(L\HL GE\G;93FXNTB37>A$CO. ?60BPJO?97OACA8\?%CPPN>Q:ACA<\T5CPPN<A>LAC9?
03W	R+TCEECM6^K-CPSN
B\FXH["CE\TP2<*A P 7G8G?F8BA\NA+=OJNS?<,GNKF:E\C?=& ,JC
<9 O;^< KNKF7E\C?;+ NGK6?5$CO; J NFLGK6N8G(  OJ;MGF,HU 2I>APSE\NAG,HA 1FBIOBH0^(JJH	ALTCAOADELHFUNHA\FJ9?FLKN;FFE\C?;> HKNKFC1\FXH["CE\S34NI(AHO0\H\0GXNB[1DG,HU 2C>ADSLFI:B/7G(G;?=CPDO70$DACC1<BMCPRN C4DAC?5?.YCPPOC?7,OECO8<M%CPPO7:HOECC;>?1CPPN</=8PAC?>?
=C<N4ACM+YB > ICPTPB0XNJ;X?F8BF G [M E\BA"?E\PB(L\H\0GXNTN0A>A4GN;F<A0GTN3F>A,CNL!3=OJ;W?F(BF G [M E\BA"=$LA:<8BF G [M E\BA"<E\PB(L\HLDG,HU 1J^A$TG;8<A4CGK7C>\FXH["CE\TP3D*A P 7TC0G>A CH7\GN;F AE\C
<3<XNBO:?=4GN+F2WXNTN3F>AXCO* 30XNB
>36XNB[5DG,HU 2C^ATTLFI<B47G8G?FLKNKF?><JADQ4\SUDPPD16PEDA7
D!DPPSCQ9ADA:\B-DPPR?-<4PEDA=^<9DPPTA?NEDQ3">ADF G [M E\BAE\PB(L\H\0GXNB[>DG,HU 2C>A8TLFI<NLA?=0GB[;DG,HU 2C2ALPE\BAB(H7\CXH[!JE\T
:?<$BC
=?8,BF G [M E\BADE\PB(L\HL GE\C<7G8G3FXNTN0A>A\CG;6CFDNG;5?FPBA\NA35 ON^ ?<4CNL!36 ONF +< OK;3?F8BF G [M E\BA"=$LA<<,BF G [M E\BA"<E\PB(L\HLDG,HU 1J>A(TG;<<AXCPJS??40OEDC5>=YDPPR</7<PEDC8?D%DPPBS:ADC;<T1DPPSC3=PADC><D=DPNPG3<UAE % OGK>C=\FXH["CE\TP3D*A P 
TC0G>A0CH7\GN;F AE\C
;3;XNBO:?9$GN/F38XNXH["IE\TU17JA4UXH[!FE\P><JH\J+E4/IASKACKQ K HRE"GTCEUSDAPAHT LVPLL82H1HH$ 
,BJ9GF,HU 2I^A\UA\BA<$GA\VA?9$CNH!3: OJK"C:\FXH["CE\P2<NI(AU!
P[Y LBI04JA\^A9E\EO9K9DNB?6?HTKB[6<G<JAEA6\D]EPTA18\TEEA9^<)EPTB-;4PEEA<
C5EPTT1>PPAE9?G07DSA+UCM30<A3OWPSNV !50UEEUK"SAEXH["CE\P2<NI0AU"IP[Y LBI<8KXH[!FE\P><JH J*!\2HK8	N	LK-2(	\KK0A^,LFH,Q0JNF[- NF [Q LFI :$LA8<?F4BF G [M E\VA<E\PB(<,BH7\GNKFC=\FXH["CE\TU3:*A PHO9\H\0GXNB[=DG,HU 2C>A UE\BAB(H7\GNKFC=\FXH["CE\TU37*A PHO6\H\0G
NXH["L$LTA0:*A PN3F>ITGNKFC4\FPJW?W4AEG5<8YEPATAC7PAEC8<C%EPAVTC:HAES;<S1EPTAG=PEEW>=$=E<N0AWG7T	SB G03O3C+OCSAF  [M E\ZA!>$LAAB<4BH7\GNKF>$LG;<?F8BG;;?F4BG?:^H LNI9E\G;8CFDNL^I37XNXH[0MXNN2 >I$CO*(.+8JOBHE:,HU 2I^AXVE\ZAEY,HA 1F&IHAXH[!F$L8GF,HA <G^H,LNI
7 OJ+UE OT [% E\ZA!6E\V!YP[Y LFIFR,HA 1FBIOBHCHNOBH7S8JJ4I8,IIC)0XNB35>I$CO*(		\JOBH>BPBA\NA+8 OJ+/"W O"G[9 N+F
?QFPO[D95,OAFA6\D]FPN[O18HPAFE9^R)FPAYQ;DAAFE<\95FPHX U>AF9?G03CGH+ICN30TA7XSIR Z ,I4VEFXF:=AEPVV=/]4VEE[R6=AEPVV=/E4VEE[B.=]EPVV=.44VEEXR6=9DPVR=.;4VEDZT"=%DPVR=.G4VEDY,Z=%DPVR=-J4VEDX&B=5DPVR=,K4VEC[,:=%CPVN=/^4VEC[["=%CPVN=.G4VECY)Z=]CPVN=-\4VECYMN=1CP
N=,:4VECX/F=5CPVN=,H4VECXF:=1BPVJ=/*4VEB[^6=1BPVF=/04VEA[,6=QAPVF=/R4VEAY	Z=QAPVF=-Y4VEAYWR=1APVF=-I4VEAX>N=-APVF=,04VEAX-J=IAPVF=,
4VE[/:=1PVB=/!4VE[^:=%DPVR?/	<VEDZ"*?ADPVR?,1<VEDX/V?!CPVN?-V<VECX(J?YCPVV?0MDVEEXK/AYDPVSA24DVEDYESAMDPV[AJ$HOLHK? OJ>JH(JJ>0:H CXH["IE\TV3>&A\VXH[!F$L<BHDJ*	 DESI LCOHBEXHAMH(E\DJ9+F(JDH]SDADCVD,HU 1O*ATVORH.0XJAQR"O4DDCVD,HU 1O.ADVNFD[A AFC><A=F ^" B"B
B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B&*

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