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 BAQR"O4DDDSRTLDDSBTDSYC006Y3A;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 HH   O(
O" 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=\FXH["EE
Q13ZI(BHO2\H\0GXNB[=DG,HU 2E^ADQLJIA*B07G8G?F4BF(G
?AAPF A1\AAA2^QMAPDF!4HAAA5\EYAPE3A7PAAA8]$%APDCU:AAA;\B1APDAA=(AAA>^=A<N0AWN3WWLB 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*XNN0A>I
GNF[Y NF[]!E\FA6E\TQ36>AXQE\FA36XNXHD[ GE\TQ35>AXQE\FA5E\Q;5?F<JAAC5<BYAPDA	7PEEAC8>F%APF>/:PAAC;<I1APDJ+=(AAC><H=APNHD,HU!0G^A8RE\JA!=E\TR1<^A,RNF[]!E\JA!:E\TR1=^A0RE\JA1<XNXHD[ GE\TR19^A8RE\JA!<E\R9;GF,HU!0G^A RE\JA!>E\TR1=^A,RNF[]!E\JA!7E\TR1>^A8RE\JA1
XNXHD[ GE\TR16^A8RE\JA!:E\R9;GF,HU!0G^ATRE\JA!7E\TR1=^A8RNF[]!E\JA!4E\TR17^A8RE\JA1>XNXHD[ GE\TR13^A\RE\JA!:E\R9=GF,HU!0G^AHRE\JA!7E\TR1>^A8RN+F
?IBPHLA3,ABA4\JUBPHIA6 ABA7\G!BPHFA9TABA:\D-BPHA<DABA=\B9BPHCA?NAB"[]!E\JA>E\TR3=>A0RE\JA3;XNXHD[ GE\TR3:>A4RE\JA<E\R;;GF,HU!0G>A$RE\JA=E\TR38>A RNF[]!E\JA7E\TR3=>A RE\JA38XNXHD[ GE\TR36>A4RE\JA<E\R;5GF,HU!0G>APRE\JA=E\TR35>ALRNF[]!E\JA2E\TR3=>ATRE\JA38XN
HD[ GE\TR31>A4RE\JA8E\R;8GF,HU!0G>ARE\JA=E\TR38>A RN+F??ABPHUG1PABC2<SMBPHDG4HABC5<BYBPHQG7ABC8<C%BPHOC:8ABC;<1BPHAC=\ABC><M=BPNLD,HU!0G^A8SE\NA!=E\TS1<^A,SNF[]!E\NA!:E\TS19^A SE\NA17XNN^ G6,HU!0G^ATSE\NA!9E\TS18"A,PN;F> XGXHD[ GE\TS14^A$SE\NA!8E\P:K+FNG6
]!E\NA!3E\TS19^A SE\BA2KXNN^ G6,HU!0G^AHSE\NA!9E\TS18"A,PNF[]!E\NA!1E\TS1=^ASE\NA18XNXHD[ GE\TS1/^A4SE\NA!0E\S98GF,HU!0GZA8SE\NA!9E\TS1<^A,SN+F[?9CPL^E/4ACA0\EECPL\E2,ACA3\ZQCPLYE5 ECA6^K]CPLAA8ACA9\F)CPLWA;LACA<\B5CPLGE>XAC9? ACXHD[ GE\TS3>>A4SE\NA<E\S;<
FDNL^I3;XNN\A3:XNN\A39XNB[8DG,HU 2E>A\SL"IBQN A7G8G?F BF G [U E\NA7$LKA?DNH7\GNKFC8\FXH["EE\S36^I<KHO6\H\0GXNB[8DG,HU 2E>ATSL.IA?B57G8G?F BF G [U E\NA4$LKA?<PBH7\GNKFC8\FXH["EE\S33^I<KHO3\H\0GXNB[8<G<JACC3<EQCPLDC5LACC6<B]CPLAO8HAC[9= )CPFM
W;8FACC<<5CPLFG><AC;?ADXH["EE\T1>^I<KHO=\H\0GXNB3>>I0GNKFC;\FXH["EE\T1::I<I8LA\H\0GXNB[;DG,HU 2E^A$TL&IC/B97G8G?F,BF G [U E\RA!8$LIC/< BH7\GNKFC;\FXH["EE\T17:I<IHO7\H\0GXNB[;DG,HU 2E^AXTL&IC/B67G8G?F,BF G [U E\RA!>$LIC/< BH7\GNKFC;\FXH["EE\T15:I<IHO9\H\0G
NB[;<G<JADA5\GYDPPEA7PADA8\C%DPPBA:DADE;^P1DPFQA=$ADA>\F=D<N0AWG7T	SB G03FE+LB 30PA+DB R R F,HU 2E>A8TL&IC/N A7G8GCFDNL^I3=XNXH[0HXNB3<>I,CO*(2
XNXH[!IE\T;:?F$KNF[! N;F" $LC?;*(<JNFP[% E\RA38XNJ:3GF,HA 8H3FXNB37>I,CO*(3XNXH[!IE\T;63FPJNF[! N;FFE\G;5?F(BG;4+FNLNI+; OJ;WGF,HU 1I>A TN/F33XNN2 >I,CO. 32XNXH[!J$LA]A31XNC;1(  OK;0?F<JEDC1>EQDPPRG5XPADC6<I]DPOS5C8HADC:<C-DPAQ/<$OAD[==]9DPPHC?N30$A3N	K?T
 0AGF3T3A> ADPUTPD,HA!0GRIDAE\VA!>E\TP2F"A\PN;F<A4CG;=7FXJNFP[- LFI=A0GB[;<G(BXH[EE\TU19"A,PLJIA4H7\CN8!HADNO:(" E\G;8?F CN< .(TJXH[!LE\U97F$LC;6 !E\C?5+NGK<4$LC?6+ NNX  GE\C;< \N< 6(JXH[!LE\U93F$LTC36>ATGN;FGF,HA 8H?FHBLNI+1OJ;-GF,HA 8H+FNLNI+1 OJ,P[1 E\
A19XNN/F?0<JEEQ0
XEEPAU=2$OAEA3]%QEPOW=!5XPAEE6]A]EPU	!8TPAEA9\B)EPWHI;CEEA<^K5EPPVGA>DAE9?G03E;I+KCE30DA3U/S?EB 0A;A3W	E> IDPUR+3LUEDW9"$AENKF>$LC?="(4JNFP[% E\VA3<XNJ:QGF,HA 8H3FXNB3;>I4CO*(2^XNXH[!IE\U;:+FHJNF[! N;F3FXNNF [5 E\VA9E\U;8GF,HU 2M>A UE\VA38XNXH["ME\TU37>A 
N3F>IXCO.(35XNC?67(LJCK6;4OJOS364BTF0GBA\CF,G0G4UDUWVCNOBHA%NNFP[9 E\VA38XNXH[0OXNK?3ZHXN8?FHBLNI+=OK;1GF,HA 8H+FNPJW?32$OAE?4?;YEPFU$C7HAEC8<A%EPTC:8AE?;?)1EPTDS=AAE?>?6=E<N0A?C7NSSB G03P;U+KCTAF ) OC?>> 4KNFP[) LFI=A0GNOF+< OJ"SP[1 E\ZA1;XNXHD[ G$LTA1A^
(VE\ZA!:E\V9:GF,HA 8H?F$BLNI+>OJ:,GF,HA 8H3FLJNKF8$LC?>. 0JNFP[% E\ZA17XNXH[0HXNJ;BGF,HU 1L^A\VN;F3FXNXH[0PXNN2 >IXCG;6?FTBFHGG4,HU 3E^ALVLVI"T$LBA4D,HU 1Q^AHVG1T[E E\ZA90<GC
.;-0CG++[?=FPPZLA0PEFA1^KIFPXEA3DAFA4
HUFPCX %6PEAFA7\P!FPO[(=9OAFA:\-FPY%!<TPAFE>]=FPNX!-HVEFY+^C5FPVV1/1HVAF"[]!LBI E\TV3>"A,PE\BA2LXNXH[!NE\V;=GF,HU 1N>A0VNKF;$LC?:& <JNF[! N+F2/XNB39>I(CO* 2.XNXH[0HXNXH[!IE\V;83FXNN/F37XNNKF6$LC?:> TKNF[! N;F" $LC?:> PKNFP[) LFI=ALGNOF+3 OJOP[1 E\ZA32XNXH
0HXNB31>I(CO* 3]XNXH[0HXNK;0;F<BLNI+:OK;.GF,HU 1I:A4VNF[! N+F;?5FPXP;/ OAF?1?0IFPY%3TPAF?6>4]FPU[.C88AF?9?9)FPAY;;$OAFC<<D5FPXEC>HAF;?G07TCY+ECN30DA3UGFSDZ C.DWEF
0<HQFPWX6O5\WAG(2GXNXH[!LE\W9>3FXNN3F>I4CA\^A3<XNXHD[ G$LTA1A^A,WE\^A!;E\W9;GF,HA 8R?F(BFHGG9,HU 3E^A WE\BA"B$LBA4<\BH7\GNKF6$LC?5. PJXH[0HXNK;43FXNB33>ITCO. 32XNXH[0HXNXH["ME\TW1;^ADWN;F" $LC?5> KNFP[) LFI9A<GNOF+/ OJ[P[1 E\^A1.XNXHD[ G$LTA1AZA4WE\^A!;E\
9;?F<JAGA-XE9GP]%!/TPAGA1\FMGPO^2-40VAGE5]YGPO
)A7LAGA8\B%GP
HI:CAGA;\1GPP^B%=PEAGA>\P=G<N4AKE7SSE" AGXH["SE\TW3>>A4WNF[! NKF<$LC?;& 8JNF[! N;F" $LC?;&(0JXH[!LE\W;:?F$KNKF8$LC?;* $JNF[! N+F3XNB37>I,CO* 29XNXH[!IE\W;6GF,HA 8H/F<JNFP[1 E\^A36XNN;FF$LTC35>APGNFD[I N;F> PCGK3C2\FB10[U E\^A0E\P2K^IPB 7TC0G:A<GNFT[E E\^A
=8GNF$[Q E\^A-E\W;=?F<JAGC-89GPP^J/$PAGC0<CEGP
HK2CEGC3>KQGPP^H	5PEAGC6<E]GPO
0;8 OAGC:<B-GPA]?<$OAGC=<F9GP\AC?NEG9\*AGPX\,M2HXEEP44EEPX!&HTHO\H>E\EO>K>DNC?=+HDJN;F> 0CG?<ZH<B[;<G(BXH[EE\TX19"A PLJIA4C87G(G2CXNB37>IXCO* F),HA 8H3FXNK;5GF,HU 1N^APXN?FZH\B33>IXCO:(" E\GK21$LC?6*(NNX  GE\C;2 \N\ 30XNC?02(4JJ;&;F<BLNI+6OJ;\GF,HU 2TZA8X
\"A1.XNJ;"GF,HU 1LZA4XN;F;F0KOBH=(LBLNI?6<JAHA-XQ9HP A1/,OEHA0^EEHPO":!2,PAH=3
BQHP FQ5 WAHE6]]HPO)!8$PAHA9\C)HPHI;CEHA<^H5HPP"J!>XPAH9?G07PKA+ACMAH>> 8KNF[! N;F" $LC?="(<JXH[!LE\X;<GF,HA 1JRIDAG;;?F,CO*(F],HU 1L>A(XN3F>I$CA\^A38XNXHD[ G$LTA1A>A\XE\"A6E\X;6GF,HA 8HGF,HA 8U?FTBLNI+= OJ"=P[1 E\"A34XNXH[0HXNN2 >I4CO*(GJ,HU 1L>A0XNFP[- 
FI=ALGNOF+3OJXP[1 E\"A32XNB[1<GBXH[EE\TX3<"ADPLJIA4H7\CNH!K/DNO: > <JAHC/<CAHPHK1CAHC2=(MHPP"AC4TAH?5?(YHP C7\EHC8>B%HPE"T[:TEHC;>E1HP BS=AAH;?<9HPY%IHTHO\H3>XNA\NA+> OJ"LP[1 E\&A1=XNB[<<G,BXH[EE\TY1:"AHPLJIA4B[<<G,BXH[EE\TY1:"ADPLJIA4H7\CH7\GNF[! NKF9$LC
8. $JNF[! N+F3GXNXH[!IE\Y97?FXBLNI+8OJF[! N;F?FTKNF[! N;F" $LC?86(XJXH[!LE\Y94GF,HA 1JRIDAG;>?F8CO*(G$,HU 1L^ALYN+F
?MIP%%A4HAI=6
9]IP$NQ8AAI=9
))IP$C1; AIM<\ 5IP%	!>TPAI9?G03O3C+OCS70\A7RSI?EB 0A?I+HB ^ UIPYV"/R\YEH%,?PMEPYWP75LYAI"[]!LFI!AE\TY3>>A4YE\&A3=XNXH[0HXNXH[0UXNB3<>I,CO* 2[XNXH[0HXNJ:!GF,HU 1I>A(YN;F3FXNXH[0FXNXH["TE\TY39>A YNF [5 E\&A7E\Y;87FJOBH=)0BLNI+;OJ;AGF,HA 8H3F\JNFP[% E\&A3:XN
F$[Q E\&A6E\Y?82H\N8?FTKNKF4$LC?;6(4JXH[!IE\Y;3GF,HA 8VF$LC?2> DKNF$[] E\&A8E\P+%??IIP&G3XAI?4?+UIPU&:C6LAIC7<B!IP$AC9TAIC:<N-IPA%;<$OAIC=<9IP$FC?N30LA3H	A?NB 4AE+ICT> EIPZ$F)<ZEI(X8OYHPZ OC$<ZEH(^DO-HPZ\OCY<ZEG+WHO)GPZ\O	<ZEF).XO1FPZXPAW<ZEE(HOEEPZPOBI<Z
D*FXO=DPZPOA,<ZED)!TO9DPZPOAS<ZED)PPOUDPZPOAB<ZED(7LOQDPZPO)<ZED(&DO-DPZPOX<ZED(IOYDPZLOC&<ZEC+4O!CPZLOCU<ZEC+J0O]CPZLOB<<ZEC*9(O9CPZLOB+<ZEC* $O5CPZDOCI<ZEA*;(OUAPZDOB"<ZEA*W$OQAPZDOBI<ZEA*FXO!APZDOA%<ZEA)ZTO]APZDOAL<ZEA)ILO9APZDO;<ZEA(0HO5APZDO"<ZEA(
DOQAPZDOR<ZEI(&HQQIPZDQGFDZEA+DQAJXH[!X$L8F0JNFT[% E\BA2MXNNFD[)  T 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