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\VA38XNLNI+6 OK;5?FXC
+(?LXCB?43 0JCK6CF\FA\NAG\FDKTG3F<UUC\8  O9%0XNXH[!NE\U;8GF,HA 8O?FLKOBHA&NNKF2$LC?=> DKNF[! N;F" $LC?=> KN+F??IEPOWI?4,OAE[6=$]EPTBC8DAEC9<)EPTN;;$OAEC<<D5EPAU?>XOAE;?G03C;O+SCT70A3U/NSTZ D,HA 1JRIDAG;>?F8CO*(FM,HU 1L^A4VNF[]!LFI!AE\TV1<^A0VE\ZA1<XNXH[0H
NB3;>I(CO* 2&XNXH[0HXNJ:=?F$BLNI+:OJ:6GF,HU 1I^A VNF[! N+F2<XNXH[!LE\V983FXNNFD[A N;F" $LC
737XNB[6<GTBXH[EE\V14&IPELJIA4XH[!QE\V]3G2,HU 1Q^ADVGO0;/8GC
-?,<JEFA0^LEFPXD!2,PAFA3\EQFPXA15 AFM6\ ]FPEZTE8AF=9
()FPAY=;OAFA<\5FPY%!>TPAF9?X9FPVZB!,LVEE[0>1EEPVZ2F,HA!0GBIE\ZA>E\TP2K"A0PNFP[9 E\ZA3=XNXH[!NE\V;<?F,BLNI+:OJ:
GF,HA 8H+F<JNKF9$LC?:* 8JNF[! NFP[% E\ZA38XNN;F?F\KN;F?FXBLNI+:OK;5GF,HA 8H+FNLNI+:OK;4GF,HA 1JRIDAG;3?FLCO*(GO,HU 1L>AHVNF[]!LFI!AE\TV31>ADVE\ZA31XNXH[0HXNB30>I(CO* 3(XNXH[0HXNK;/;F8BLNI?:<JAF?.?(AFPO[0C1AFC2=%MFPPZE/6POEFW7?	!FPXN?9$OAFG:=-FPO[)C<PAFC=<
9FPXBC?N70PA3YWP?NB 4AWA3FSA: =FPWXSO4\WEF
58AGO* 2LXNXH[!IE\W9>GF,HA 8H	FHJNFP[1 E\^A1>XNN;F+FNLNI=E\G;<GF,HA 8R?F,BFHGG:,HU 3E^A$WE\BA"B$LBA4< BH7\GNKF7$LC?6. TJXH[0HXNK;53FXNB34>IXCO. 33XNXH[0HXNXH["ME\TW12^ADWN;F" $LC?6> KNFP[) LFI9A<GNOF+/ OJ\P[1 E\^A1.XNXHD[ G$LTA1AZA4WE\^A!2E\W92?F<JAGA-XE9
P]%!/TPAGA1\FIGP\-4HOEGY5^<YGPA]97$OAGA8\C%GP\B1: AGM;\ 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> PC
K3C2\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\,M3HXEEI04)EPX!&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"/K\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&3C6LAIC7<B!IP$AC9TAIC:<N-IPA%;<$OAIC=<9IP$FC?N30LA3H	A?NB 4AE+ICT> EIPZ$MD)XZEI(X8VYHPZ VG$XZEH(^DV-HPZ\VGYXZEG+WHV-GPZ\VD(XZEF)/XV5FPZXWEQXZEE(HVEEPZPVFI
ZED*FXV=DPZPVE,XZED)!TV9DPZPVESXZED)PPVUDPZPVEBXZED(7LVQDPZPVD)XZED(&DV-DPZPVDXXZED(IVYDPZLVG&XZEC+4V!CPZLVGUXZEC+J0V]CPZLVF<XZEC*9(V9CPZLVF+XZEC* $V5CPZDVGIXZEA*;(VUAPZDVF"XZEA*W$VQAPZDVFIXZEA*FXV!APZDVE%XZEA)ZTV]APZDVELXZEA)ILV9APZDVD;XZEA(0HV5APZDVD"XZ
A(
DVQAPZDVDRXZEI(&HXQIPZDXGF ZEA+DXAJXH[!X$L8+FNG?P[1 E\BA2KXNJ:SGF,HU 1Y"A4PN;FGF,HA Z\=J P"K"8B"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