File GETSYM.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 BN?FWGPALDCY2;WG7T	SB 83FXNN;F3FXNN;F3FXNF>+BHTB3>>I4CO*(7PXJOBHJNI;<3F JOBH<O,BLNI+= OJ/^: O8T<0INKF9$LC?=>(PJJ?)FH$NXA2+XNN2 >I CG;83F JOBH ^$LC[=>,<JAG8<9%PEA ;;EAG==9PGC C?N70\A7RSI?EB 0A?I+HB B
G03SKU+SC^EG:XAAI;>?F4BA\NA+< OJ.J; OH:$LC?9&(HJK?;JHTN$3>XNK?8JH XH["BE\TQ17JA$QXH[!C$LA 9P[M LBI  OB*JB.$JM$,; $I8+FNA\NA+6 OJ*7"< OH*5$LG?9JH,B34>I$CO/H33PJOBH<-HBLNIK9 OJ?N3H8JK?3NHHL^I1 O04>IDCNL!K0 OK?/;H<KJ?]NHTN0A>IDCG;1;F8BF G [Q L2I!2$LCF $LC+9[
9APDJE0CAA11]2IAPIE )4OAA)5\ YAPPF+A7PEAA8
H%APAE):EEAA;
41APPF,Y=EAA9?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?-/XPABE0\"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?NEBO7GACH<)<H8CA\^A3=XNXH["BE\TS3<&A\SXH[!C$LA"RP[M LBI  OB*OB\$JM&,; $I8F$LG;;GF,HU 2B>A0SA\BA(NC
:9E\EO9K9DNC?=/H8JB[8DG,HU 2D*A8PLFI-B,SXH[!C$L(F),HA 1CBINF E OBH>4\BLNIK6DNXH[!EE\S
534XNBO3K4 OJ?)7H(JK?2.HXTB31>APCO*(?"KOBH:<<BL^I3.XNK?-.H B+,;?1CPLR	.HAACC/<SECPL^G30ECC4>5UCPMS6AACC7< !CPMP+98PECC:>2-CPNOOC<PECC=>49CPAL9C?N30XA3AGTSLN C0\TECS2OADH<)<H8GN/F= O">P[] E\RA1<XNK?=.H(TB3;>A(CO,(39 OJ.Y8 OT3C>A(CO((2G OJ*G"" OT3\>A(CO+(>6
CB?7/ XJCK:B0\FCXGG\KDTP0T9LTTAZN<:HXN$36XNB35>IPCO*(3D,JOBH?	LBL^I3>XNK?=:H B32>I8GNF E OBH?0DBL^I3>XNK?=>H(N$36XNB35>IPCO*(;%0JOBH?;BL^I3>XNK?=>H0B+/[?=DPQ A04ADA1\PIDPPNA3<ADE4]UDPR =7,OEDA:^5-DPOS0A<ADE>^R=DPNP$4\TEDP5^^%DPTR8-8<TAD") OC?>"( JJ>O>H4B3
>I0GN/F; OK?:$LG;<KFHA <ABHPAB39>I0GN/F; OA8N< INKF7$LC?>*($JJ>0BH<AB36>I0GN/F; OAHQ5$LG;<KFHA <AFH AB34>I0GN/F; OAH,3E\C?2<(DKO+H?IKOFH81<BA\NAK2 OJ?S?HKK?.NHXAN$38XNB3->I8CO*(;^TJOFH870BL^I3<XNK?;NH AB3+>I0GN+F;?-DPPUG,$ADS-9 =DPOS/C0\TEDC2>5MDPOSG4XADC
<XYDPPT+7ADC9<W)DPPL	<HAADC=<Q9DPAQC?NEDW.<DEDPUTMHHA <ARHATB3>>A4CL^I3<XNK?;&HAA\^A3:XNN\A39XNB38>I0GI?7&HTATN0A>A(CG;:F$LC;6 !E\C?:,(JO+H*0(JOFHFV,HU 1G^ATUOFH"W$LC;4 !E\C?:0(HJO+H/B0JOFHFZ,HU 1G^ALUOFH>
HBLNI+1 OJ+JU OA: <\INKF2$LC?16(TJJ?(*HHAB[0DG,HU 2D.ALPL2IA3LNIO1\H\<G\IN+F, OTA2>A$GOFH"$E\C+9
?AEPBUXQ1AAE]2] MEPTG54HNAEA5\HYEPNWPA8TEEA9^+)EPPV3%<HAEEA=^59EPOW4A?NAE>"(TJK?>*H$ATN2 >A4CL^I3<XNC?<&(DJJ>^*H8AXH[!FE\U;;?F(BL^I39XNXH  A OA:8" $LC?<*(XJJ>+.H$AB38>I$GOFHGB,HU 2B>A UE\NAFW,HA 1C&IHAXH[!C$L8F$LG;7?FXBC?92(PJJ?T.H(AXH["BE\TU38&A\SXH[!C$L
QP[M LBI  OA"= [I E\VA8E\\5E\EO5K5DNLNI3< OKK4C3\FXH["DE\P2.^ILLU.P[M LBI4,JPJW?W3 BEEC5>.YEPOW;37<NAEC8<D%EPAVRS:DAEG;=-1EPNWQ/=LPEEW><Y=E<N0AWR+ACD> QEPVTA;$VED[;\I5DPVLIC-$VEEY7<N!DPVPNA68VECY><NEBPVDNC>8VEAY><N1PVXND,HA 1CBINF E OFHC4NH:NKFHA A0XNLNIK
DNC?=?H0KJ>Y>H0CB[;DG,HA 2DRIDALFIABH7\CB?:*(,JJ>3BHDDB39>I GNF E ORH F$LG;=?F,BG;>CFDNC
737XNXH["BE\TV16RA8VXH[!C$LA 8P[M LBI  OD)>KV\JK!10	$KM$,; $I8GF,HU 2H^AXVA\BA<TGA\VA?5TCNH!3; OKK4C;\FXH["DE\P2.RIHAV!0P[M LBI48JPJ[?)58PAFA6\D]FPAX8%8HAAFA9\U)FPDY U;AFE=\99FPAYAA?N30TA7XSIR Z !4VEFY\6G%EPVNG"%\VEFY<KMFPV[Y4!$VEEY!WY5EPVKY5"$VEBYTOYYBPV
Y44$VEBX\GY)BPVKY4J$VEBXH7Y1APVGY7Z$VEA[N3Y-APVGY6C$VEAY*[Y]BPVK[5 ,VAF"P[M LBI  OD(GNK JL0AA)ORH<Y<BF G [Q LFI!A$LDAYBOY\HVOY<G8BO*(*
0JORH(ZNLNI?=4GNOF+=OJ*(2,XNJ>M.HDN0A>I4CG;=?F<BF G [Q LFI!A$LDAYB?Y0BDHX7CY\GORHALDNLNI?;,GNKFC?\FXH["D$LA09RIHAVY47$VC0G>I(GDHX2N\KNF[% PXS:AAFG;<91FPHX S=DAAF
>? =F YP!!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