File PHASE1.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 BTHADROBM DESE2LDA2TELDABT4$DDC$ 03M	A+NB N [I N;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN?FBHDJ*4(A$LH  H H<BHHJ*=(I$MH  H H<BHLJ+F(A$MH  H H<BHPJ+O\ETLK*7I H<BHTJ+XXA$LH  
 H<BHXJ+!8DLL!)H H<BH\J+0	 DESY LCOHBEXHAMH(E\DJ9GF,HU 2C&ATPE\BA2RXNPJC?C?N70LA7UOBS^F D,HU 2D&ATPE\BA2OXNL^I3>XNB[=DG,HU 2E^A0QLJIA*H7\GNKFC=\FXH["EE\Q1;ZI(BHO:\H\0GXNB[=DG,HU 2E^A$QLJIA*B87G8G?F4BF G [U E\FA!7$LBA*<XBH7\GNKFC=\FXH["EE\Q15ZI(BHO4\H\0GXN
[=DG,HU 2E^ALQLJIA*B27G8G?F4BF G [U E\FA!1$LBA*<BH7\GNKFC=\FPJG?)0AAA1\GIAPFQA3XAAA4^BUAPDE]6LAAA7\D!APE$A9LAAA:]P-APDBA<DAAA=\J9APFA?NAA" [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\P
FZIBHC<\FXH["EE\P2FZI(B 7C G7G(G2*XNB37>IXGNKFC5\FB40[U E\FA3E\Q33^IPBHO2\H\0GXNN0A>IDGN;F<AGN;F8A<GN;F<A<JAA[/= AAPFE
W18FAAC2=MAPDA34 AAO5< YAPEFTC7HEAC8>F%APF>/:PAAC;<I1APDJ+=(AAC><H=APNHH$HO\H3>XNB[=DG,HU 2E^A0RL"IBQN A7G8G?F4BF G [U E\JA!<$LI	DNH7\GNKFC=\FXH["EE\R1;JI\IHO;\H\0GXNB[:DG,HU 2E^A0RL"ICCH7\GNKFC=\FXH["EE\R1<.I4I8LA\H\0GXNB[=DG,HU 2E^A0RL.IA?N A7G8G?F4BF G
[U E\JA!;$LKA?<,BH7\GNKFC=\FXH["EE\R19^I<KHO9\H\0GXNB[=<G<JABA9\C)BPI$A;HABA<\A5BPH2Y>HFAB9?G07GSE+SCY30XA3E3H> B 0ASD* B " ABXH["EE\R3>^I<KHO>\H\0GXNB3=>I0GNKF?;(GN;F<A$GNKFC8\FXH["EE\R37.I4I8LA\H\0GXNXH[0FXNB36>ITCO*(23XNXH[!GE\R;4?FLKNF[Y N;F" $LC?52(L
NFP[] E\JA3;XNJ;GGF,HA 8F3FXNB32>ITCO*(3TXNXH[!GE\R;17F JNF[Y N;F+FNLNI+5 OJ;%GF,HU 1G>A,RN/F30XNN2 >ITCO. 3/XNPJK?C1$AB?2?5QBPHCS5AAB?6>9]BPHAO8HAB[9=])BPFI!C;HAB[<=5BPHEC>PAB;?G03I/N+ICTAC P[! E\BA>G8GNOFK>NO*(3SXNB[=<G0BXH[EE\S1;&IPELJIA4C:7G8G?F4BFHGG
,HU 3E^A$SLVI"T$LBA4DNH7\GNKFC=\FB<0[U E\NA!8$LE2T^IPB 7G8G?F4BFHGG<,HU 3E^A\SLVI"T$LBA4L\H\0GXNN0A>IXCG;6?FTKNFP[% E\BA>GPGB[=<G0BXH[EE\TS19"A PLJIA4H7\CN8!HADNO:(" E\G;>?F8CN( 
?QCPPNH%6PEACA7\D!CPLCA9HECA:^G-CPLA1< ACM=\ 9CPPNEA?N30XA3AGT?LB 0A	E3NWK^ UCPSJI+/HSEBO0?EMBPSOF* OJ:HGF,HU 1J>A8SN;F3FXNXH[0FXNB3=>I0CO* 2 XNXH[0FXNN2 >I0CO*(F
,HU 1J>A,SN;F?F(KNKF9$LC?<*(<JNFP[] E\NA38XNJ:3GF,HA 8F3FXNB37>I0CO*(3XNXH[!GE\S;63FPJNF[Y N;F3FXNNF [- E\NA5E\S;4GF,HU 2K>APSE\NA34XNXH["KE\TS3;>APSN3F>ILCO.(32XNC?3?(DKCK3;0OKO13E\C[/G\CF(G??ACPOO;[3PFACC4<AUCPLC68AC?7?)!CPLD?9XOECK:?&-CPLBS<AAC?=?99CPM
C?N30DA3U/S?EB 0AKS3LOO: =CPTLCC1$TAD % ODKPGC0TTY8  O9%0XNXH[!LE\T9>GF,HA 8M?F4KOBHA&NNKF<$LC?;> (KNF[Y N;F" $LC?;> $KNFP[! E\BA>G GNOF+8 OJ"7P[) E\RA17XNXH[0FXNB36>I,CO* 3EXNXH[0FXNJ;\?FTBLNI+;OJ;UGF,HU 1G^APTNF[Y N+F3[XNXH[!JE\T943FXNNKF3$LC?;+HNA\^A?2
BLNI;;ON:  \FA\NAK2N8G< <JAD=1
;IDPPRH=38OADA4\PUDPOS(=6OADA7]%!DPPREQ;AAD=<
I9DPPAA?N30LA7OON?TB 4AWP7NSK" ADH<%<H8GB3=>I0CO: " E\A
>?>,BLNI+<OTN2 >A8AO*(FX,HU 1J>A(TNKFC9\FB80[U E\RA7$LE2T^IPBLO6\H\0GXNB[9<G BXH[EE\T35&IPELJIA4N" 7G8GGF,HA 8N?F$BFHGG8,HU 3E>ATTLVI"T$LBA4<TBH7\GNKFC9\FB80[U E\RA4$LE2T^IPB P[= E\RAO3\H\0GXNB[9<G BXH[EE\T32&IPELJIA4PJS?C2PADC3<EQDPPCC5HEDC6>G]DPPA38 ADO
< )DPR7?; OADG<=5DPOS:> PAD;?\%DPUP5M:XUAE P[= E\VAM>\H\0GXNN0A>I4CG;=?F0BC?=	HTJXH[!JE\U9;GF,HA 8F?F(BLNI+9OJ:GF,HA 8F/FLJNKF8$LC?9. HJNF[Y NFP[] E\VA17XNN;F?FXKN;F?FTBLNI+9OK;4GF,HA 8F+FNLNI+9OK;3GF,HU 1H"A\PG;2?FHCO*(GS,HU 1J^ADUNF[Y NKF0$LC?9: DJNF[Y 
/F3/XNB3.>I$CO. 3-XNPJW?9. OAE=0
0EEPU%!2TPAE=5^4YEPTT$A78AE=8
9%EPAU9:$OAEI;\H1EPOT8%=PEAEA>\D=E<N4A	T3P;EZ 5EPUVI%/UEEU3
VQEPUWWF,HU 1G>A8UNF[Y N+F2OXNXH[!JE\U;>3FXNNKFC=\FB<0[U E\VA;$LE2T^IPBLO:\H\0GXNB[=<G0BXH[EE\U39&IPELJIA4N" 7G8GCFDNLNI?8 GNKF?7 CO+HG,HU 1J>AXUNFD[A NKFC=\FB<0[U E\VA9E\P2B^IPBHO5\H\0GXNK;43FXNB33>IHCO. 31XNXH[0FXNN2 >IHCO. 30XNXH[!HE\P^G3/XNC+/;?=EPPVE
2AAE?3>2QEPUUC5LAEK6<H]EPOT8	8PEAEC9<B)EPPVGC;DAEC<?H5EPCT G>AE;?<AEPVU [1DVEDXFAAFO*(FF,HU 1J^A8VNKFC=\FB<0[U E\ZA!;$LE2T^IPBLO:\H\0GXNB[=<G0BXH[EE\V19&IPELJIA4B87G8GCFDNLNI?7\GNKF?6\CO* F6,HU 1J^ATVNF[Y NKF4$LC?32 PJNF[Y N+F3[XNB32>ILCO* 3TXNXH[!GE\V98G
,HA 8F7F(JNFP[) E\ZA18XNN;FGF,HA 8P?FDKN?FZH\B30>ILCO:(" E\GK/.$LC+3[?9FPOZ:!/ PAF=0
BEFPU[!=2OAFE3]QFPO[(A5 BAF=6\8]FPEZTA8TAFA9\B)FPPZGA;DAFA<
H5FPCX Y>TAF9?G07EOR+ECTEDXG"%AFO:(J NTF0G>A8CN HGNO*(*LTJNKF=$LC?<& ,JNF$[E E\ZA;E\V;;+FDJNFP[) E\ZA3:XNN/F9 OI(8$LC?<> \KNF[Y N;F" $LC?<.(\JXH[!JE\V;6GF,HU 1H"A\PG;5?FTCO*(GE,HU 1J>APVNKFC3\FB20[U E\ZA;$LE2T^IPBLO1\H\0GXNB[3<GHBXH[EE\V36&IPELJIA4B07G8GF
LTC3/:A8GN+F;?9FPPZC	/PEAFC0<HEFPPZG32 AFO3< QFPY%5TPAFC6<B!FPO[BG:DAFC;<A1FPAY3=,OEFC>>H=F<N0AGP3R7AB AGN0A>I8CG;>?F4BFHGG<,HU 3E^A,WLVI"T$LBA4<(CH7\GNKFC=\FB<0[U E\^A!9$LE2T^IPBHO8\H\0GXNN0A>I8CG;>?F\BC?>/HPJXH[!JE\W96GF,HA 8FGF,HA 8R?FTBLNI+4 OJDP[) E\
A13XNXH[0FXNN2 >IPCO*(GQ,HU 1J^A$WNFP[% E\BA>GHGNOF+2OJ
P[) E\^A11XNB[=<G0BXH[EE\TW19"ADPLJIA4H7\CN(!
?EGP](!2DPAGA3\EQGPA]95 OAGI6\H]GPO\8A8\AGA9\B)GPP^GA;DAGA<
H5GPC\ %>PEAG9?<]FPW
>8BO*(FG,HU 1J>A4WNKFC<\FB;0[U E\^A>E\P2C^IPBHC<\FB;0[U E\^A>E\P2A^IPB 7C G7G8G?F0BFHGG;,HU 3E>A(WE\BA"C$LBA4<0BFHGG;,HU 3E>A(WE\BA"A$LBA4L\HLLG\H\0GXNXH[0FXNB39>I CO* 3SXNXH[0FXNJ;!GF,HU 1G>A\WNKF6$LC?8: JXH[0FXNN/F35XNXH[0FXNN2 >I CO*(G0,HU 1J>APWN+F??Q
P\B?6$OAGC7<N!GPA];9$OAGC:<D-GP
HK<CAGC==	9GP\CC?N308A3E3WSE^ W5TXED HA*AHXH[!H$LA]A3>XNC?>"(4JXH[!JE\X9=?F0BFHGG;,HU 3E^A(XLVI"T$LBA4<$CH7\GNKFC<\FB;0[U E\"A!8$LE2T^IPBHO7\H\0GXNN0A>IXCG;6?FTBC?6. 4JXH[!JE\X94GF,HA 8FGF,HA 8R?FLBLNI+2OJ;NGF,HA 8F7FPJNFP[] E\"A11XNN;FGF,HA 8SGF,HU 2Q^AX
\"A1:XNXH["KE\TX1:^A(XN/F/ OI)3$LC+2
?AHP EA18AHE2]MHPO)A4 BAH=5\8YHPE"TA7XAHA8\B%HPP"GA:DAHA;
H1HPC  Y=TEHA>^E=H<N4AKW3IWTB G03IO* B 30LA3H	A?NB 0AOO7LOOB G03E	X+TB EH!/>X%FPXRX%= XEC2J[5HPXK0*,XEH \GK%HPX
K3C,XEG"2+KQGPX
K2S,XEG!-[K-GPX
K0$,XEG !GKMGPX
K0P,XEF%;KIFPX[K3T,XEFQKKYFPX[K0,XEF UGKIFPXWK3R,XEEO/KAEPXWK2-,XEE"
	K1EPXWK0E,XED.;KADPXSK3Z,XEDL3K%DPXSK28,XED"5+K]DPXSK2$,XEC!&[KQCPXOK1J,XEC!HOK)CPXOK08,XEC *KK]CPXOK0Y,XEC V+KEBPXKK2^,XEB"IKYBPXKK10,XEB!-[KIBPXKK1
,XEB!TWKEBPXKK1F,XEB!COK!BPXKK06,XEB +KK!BPXKK0],XEB ZCK=BPXKK0L,XEA
7K1APXGK3I,XEA";+KUAPXGK2",XEA"W	KQAPXGK2I,XEA"F[K!APXGK1%,XEA!ZWK]APXGK1L,XEA!IOK9APXGK0;,XEA 0KK5APXGK0",XEA 
GKQAPXGK0R,XEG/M9GPX
M2!4XEG"
3MYAPXGM3D4XAH>" \JNF[Y N+F2MXNXH[!GE\X;?3FXNXH["QE\TX3>>A4XN/F< O;G0XNK;;?F(BLNI+9 OJ"%P[] E\"A38XNLNI+7OJ:<GF,HU 2T>A4XE\BAG$,HA 1UBINFT[Y E\BA2LXNJ;BGF,HU 1V"A$PN;FGF,HA 8WGF,HA 8XGF,HA X<]HP"G8XAHG9=)HPO+7;0SEH[<=5HP AC>LAHC?LNZI"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