File G0TEST.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.30\A7EOTSYB B83F\OAQT/Y007GSE+SCY0XNN;F3FXNN;F3FXNN[F"+ OHE>$LC?=6(DJJ?WBH(N$3<XNJ?IBH<B3;>I4CO*(?
(KOBHTNI;<?F$BLNI+= OJ+5* O8Y(A,FN;F" $LC
838XNJ?IFH8LNI?=<JAG8<9%PEA ;;EAG==9PGC C?N70\A7RSI?EB 0A?I+HB B G03SKU+SC^EG:ZAAH<%<H8GI;=?F0BC?>"(0JK?;JHLB3:>I$CO*(>T,KOBH%NI;=?F KOBHD(,HU 2B^A\QE\FAD+,HA 1CNI$AXH[!C$L<"H(BJ*.(A$L8+FNA\NA+6 OJ*7"< OH*5$LG?9JH,B34>I$CO/H33PJOBH<-HBLNIK9 OJ?N3H8JK?3NHH
^I1 O04>IDCNL!K0 OK?/;H<KJ?]NHTN0A>IDCG;1;F8BF G [Q L2I!2$LCF $LC+9[?9APDJE0CAA11]2IAPIE )4OAA)5\ YAPPF+A7PEAA8
I%APAE):EEAA;
51APEE )>0PAA9?G07D[I* B EAE/"GAAO(HNE\H\ G O86<8IN3F>I4CNH!K< OJ>U	HTJJ>
NH\B3;>I4CO,(3: OK+:"
 OH:9$LC?=/HDJJ>	NH,B38>I4CO,(3: OK+:"1 O8/ A$LTC37>AXGN;F> XCTG35>ATEC;5<!PBO+HQ OH
C4\FXH["DE\P2.BIXCHO3\H\,G(JNKFC4\FXH["DE\Q32BIXC 7C8G<!DBN !P[U E\FA;0<GNKFC.\FB+-;?5APDZO.PEAC/>/AAPEK1AAC2<AMAPHD C4(EAC5>.YAPPF-
7HLAAG8> %APCG W:HQAA	;= 1APE S=AAA;?ABXH[DE\TR1>*A<PLJICRH7\CA\^A3=XNB[<<G,BXH[DE\TR1:*A<PLJICRH7\CA\^A39XNNN ?= GA\VA?8 CNL!39 OK;7?FXBF G [Q E\BA".$LABSL\HLHGDNLNI+5 OJ/4 O9"> (BA\^A3E\EO3K3DNB?2?HDKNKFC2\FXH["DE\P2-BIXCHC0\FB60[Q E\BA"-E\P2..IA 7TC0G:
<GH7\CTN0!:A<CPJK?-/\PABE0\"IBPHJ)34PAB15]2YBPH])88PEBA9^1)BPHBE;(ABA<\45BPPJ0A>DAB9?G03FE+LB EBI1^GQBPRJR%7PREAI3"]ABO*(&EHJOBHAFNK;>FE\CK=<$LG;;KFHA <ANH0N,3:XNN0A>I,GNF E OBH=$$BLNI38 OK+7"% OI)6$LC?8((<JO+H>/\KOBH!*$LTC35>APGN
F33XNB32>I,GOBHA,DNA\NA?3LGI;1?F$BLNI38 OJ+SI OI.6$LC?8,(,JO+H6;LJOBH!3$LC;0 !E\C?38(TJO+H7%<JOBHE8,HU 1F:A<ROBH948BLNI+8 OK/-?,<JABS.9 =BPHU304NABC2<BMBPPJ3/4HPABG5<9YBPAJ S8AABO9? )BPRH$	;HAABC<<25BPPJ.S>PRAB;?85BPSHBO,HSAC<^H$N$3>XNB3=>I0CO*(&MTJOBH);N
NI?;,GN+F1 OI<:$LG?9^H<B38>I0CO+H*2HJOBH>\BLNIK< OJ>,+H0JJ>2"HHN$3>XNJ>Z"H0B36>I0CO*(>:DJOBH>M(BL^I?98INKF5$LC?<2(\JJ?M"H8N$3>XNJ?Y&HXB34>I0CO*(7U$JOBHBWNI?>&H,B38>I0CO+H;1DJOBH>\\BLNIK< OJ?+;H,JJ?1&H4N$3>XNJ?Y*H(N* 
?QCPDN I5EAC96^ ]CPAN 98CACE9^R)CPLCM;$AACE<]5CPDM A?NEBO7EACH<)<H8CA\^A3=XNXH["BE\TS3<&A\SXH[!C$LA"RP[M LBI  OB*OBZDJLB)0XNL^I3;XNXH["BE\TS3<BANN ?:$GA\VA?9$CNL!3= OJJ<C8\FXH["DE\P2.RIHAS"9P[M LBI(\JXH[!C$L8KFHA <A.HPB37>IXCN !P[U E\NA?5PGNKF?3PCO((3	 OJ
X2 OJ61E\C?4:(JK?0.H0B3/:I8GN/F- OJ8,$LG;.?F<JACC,8R9CPANRG/LACC1<^MCPL\/4TPACC5=YCPAMK7ACC8=P%CPPN./:HPAC;;?O1CPLD/=PPACG><9=C<N0AGF3T3A> ACPTLCC2,TAD,> O">P[] E\RA1=XNK?>.H(TB3<>A,CO,(3: OJ.U9 OT3C>A,CO((2C OJ*C"^ OT3\>A,CO+(>2,CB?8/ HJCK;B,\FCXGG\KDTP,
5<TTAVN<:HXN$37XNB36>ITCO*(3\JOBH?	PBL^I33XNK?>:H B32>ILGNF E OBH?0DBL^I33XNK?>>H(N$37XNB36>ITCO*(;! JOBH?;BL^I33XNK?>>H0B3/>ITCO.(?.<JADA/] ADPPME1ADA2\NMDPARRA4<ADE5]YDPR =8,OEDA;^51DPOS0A=AD9?X9DPTRC$0HTEDP1^Y)DPTR3-9(TAD*"J OK=>$LG;=?F0KOBH??,BL^I3=XN
H  A OAHD:$LG;=?F0KOFHNNI;9?F BLNI+7 OJ*$"+ OAHO6$LG;=?F0KOFH<QTBL^I3=XNXH  A OAHX4$LG;=?F0KOFH<,LBA\NAK2 OK?13HPJK?0NHDATB3/>AHCO((3N OK+0( OA86<$INKF.$LC?76($JJ? NH\AB3->I4GN/F< OAH8,$LG;=KFHA <ARHAB++;?-DPOS4G,TADC-8Y9DPDQ ;/<OEDS0<CIDPPR5;3LOADC4<VUDP
XG6PADG7=!DPR G:\ADC;<L5DPARRG>DAD;?<EDPUTIHTHOLH>$LG;=?F0KOFH"PE\G;;CFDNG;:?F$BL^I?= IOFHBUDNA\NA?;,GN3F>I\CTN0!>A,CO((2, OJ*,"& OA"VP[] E\VA!6 OA2W>ITCTN0!>A,CO((2> OJ*>"8 OA"ZP[] E\VA!4 OAJ
3$LC?22(XJJ?Q*HAN$38XNB33>IHCO*(;QPJOFH>"DBF G [Q E\BA"3$LLA3 $LC27G$G38XNJ?(*HLAA\^A: OTA2$>A(CO.(	0TJPJW?U1 BAEE2]MEPGU A4\AE95
RYEPTH57NAEA9\E)EPPV+-;LPAEE=^R9EPPV5A?NEEU0"BAEOFH*)NA\NA>$LG;=?F4CO*(&N,JOFHF.,HU 1F>A0UNKF;$LG;:KFHA <A.H AN2 >I4CO*(* JOFH>9$BL^I: OAB [I E\VA9E\S"WP[M LFIFR,HA 1CBIN3F>I GNKF?7(CO*(7ADJOFHF:,HU 2B>A$UE\NAFW,HA 1C6IDNXH[!C$L<.H4AXH["BE\TU39BATG36>AXEC
6 !$LC?=;H8JB[5DG,HU 2D*A8PL2I93,UXH[!C$L(GX,HA 1CBIN+F??UEPBUX+68PAE?7?;!EPNWOC9PAEG:>R-EPUA[<4AAE;=?Q9EPPV3C?N70HA3ESAR V A<PVED[<\D9DPVLDC-PVEEY8<I%DPVPIA7$VECY><IEBPVDIC>$VEAY=<I1PVXIHHA <A>HPAN 2IXNXH AN3F>I8CNL!3= OK+<"T OCK<C;\FXH["D$LA1ARIHA 7CHG+
 OJ*&". ODHA9$LG;8KFHA <ABHXDL^I3=XNB
;3>XNNLA?7\GNF [I E\ZA!6E\V!MP[M E\BAF6,HA 1CNI AXH[!C$L<^H8DJ+P(A$L8GF,HU 2H^AXVA\BA<TGA\VA?5TCNH!3; OJK-C;\FXH["DE\P2.RIHAV!*P[M LBI4 JXH[!C$L<BH\DPJ[?)58PAFA6\D]FPAX8%8HAAFA9\U)FPDY U;AFE=\99FPAYAA?N30TA7XSIR Z !VDVEE[V*AMCPVZA-<(VEFX^GS1FPVWS5]LVEEYY[
IBPVKS5TLVEBX6OSQBPVKS4\LVEBXZCS)BPVKS4HLVEA[\7S)APVGS7NLVEA[KSMAPVGS5*LVEBY	[UABPV[U"TJJ08XA$L<FH$DB[?DG,HA 2DRIDALFI5BLVDHX7CS\CB?>&($JJ>&FH(DN2 >I4CG;=?F4CO* *"XJN+F"G OD:0 A$LC
=3=XNB[?DG,HA 2DRIDALFI5BLVB<47LVG<GRH0DN0A>I,CG;;?F<BF G [Q LFI 9$LDAYBOS\HVOS G$LG:2$VK8GGF,HA I<)FPAYO;$AAF<< 5FPAYA;>GAFC?EPNN"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"BBBZ

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