File PHASE0.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.304A3A;I> B 4ACO+ECNB G03SKU+SC^AB4$DDC0$03M	A+NB N [I N;F3FXNN;F3FXNN;F3FXNN[F3BXNB[>DG,HU 2C>A4PL*IC!N" 7G8G?F8BF G [M E\BA=$LKB)(NH7\GN3F>I0GN
F3;XNPJC?;A3<=15PA3> A;?G07ICO+ECN70HA3ESA> B 0A?I+HB B AAB3>>I4GNKF?<,GNKF?:$GNKF?8\GNKF?6TGNKF?4LGNKF?2DGN+F2\<EDBDDA  [Q E\BAFE\Q8W?FGA\VA?0CNH!3/ OK;.GF,HU 2E^AXQE\FA9R4GA\VA;-4CNH!32 OJKKC,\FB/0[M E\BA"=E\P2<.IAQ!HP[Y LBI,LJXH[!F$L<BHXJ+V1DLLA)0XNLNI
1,GOBH8-0BFHGG/,HA 3C^IHLE\BA"<$LAB0<<JAA1+Y21APAD"--4PAAA/\]AAPPF<E1CAAA2\JMAPNGN=48GAA95
MYAPDD170NAA=8^]%APNGKY:LAA9;
R1APBEX5=NAAA>]H=APND).TQAA> HTJH7\CB?>"(,JJ>SJH8N2 >I4CG;=?F0KOBH</,BF G [M E\BA"<$LABS $LC=7G<GBHTN,3:XNXH["EE\TQ39BATG38>A EC;8<!\BO+H?EXBFHGG7,HU 3C>ATQE\BA"<$LDBGRGB,HA 1FBIJ"-P[Y LBI0XNXH["EE\TQ39BATG38>A EC;8<!\BO+H?)XBFHGG7,HU 3C>APQE\BA"<$LDBGRG&
HA 1FBIJQP[Y LBI  O,K?3<JAAC4<BUAPDAO6PAAC7<Z!APPF<C9PEAG:<$-APD]W<0QAA3==29APGG C?N308A3A3MSIF COREAJ+<MAPRHDLHJM2IB)TN3F>A8GA\VA?>8CNH!3= OJ:=GF,HU 2E^A0RE\JA<2,GA\VA?;,CNH!3: OJJ+C:\FXH["CE\P2=BIXCR (P[Y LBI$XJXH[!F$L<FHTJ*61DLLA)0XNXH[ G O8T \JOBHDJ,H
 2E^A$RE\JA="8GA\VA?>8CNH!38 OJK[C8\FXH["CE\TP2<*A PR!XP[Y LBI0XJXH[!F$L<ZH8J+((	\JK02XA$L8FE\G;7?FXGN
F>E\EO>K>DNB+5
?UBPHB16PEBA7^?!BPHTA9DABA:\J-BPPJ=A<PABA=\
9BPPJ<A?N30PA+ICVR J 2 OJ:^?F8BF G [M E\BA"<$LA:L\H\ G OI/C=\FXH["CE\P2<NI0A 7G,G3<XNB[=DG,HU 2C>A,RLFI<H7\GTN3F>A(GA\VA?:(CNH!39 OK;8?F$BF G [M E\BA"<E\PB(<$BF G [M E\BA"<E\PB(L\HLDG,HU 1H>A\RH7\GNKFC9\FXH["CE\TP2<*A P 7TC0G>AXGNOF36OK;5?F$BF G [M E\BA"<
\PB(<$BF(G??YBPPJ>S7ABC9<T)BPPJ<C;LEBK<=/5BPHDC>HAB;?G03W	R+TCEEBO5<^!BPSMDD,HU 2C.A0PE\BAB(H7\CB>7G8G?F4BF G [M E\BA"<E\PB(L\HL GE\G;<3FXNTB3;>A0CO* >04BF G [M E\BA"<E\PB(L\H\0GXNTB3:>A0CO* >8$CG;8?F\BA\NA+<OJO?9XGOBHC^NK;5?FPBA\NA;8ON^ ?3HBC?6+ NNX <GLC
 HGNGO3K6DNC?8+ NNX <GLCN HGNO.(1 O!3 [% E\NA!0E\(
?ACPLA928OECA3
DQCPOO;)58RECA6
]CPOOR-8<PECA9^<)CPOOF9;OECA<^>5CPLTM><AC9?G07M	P* B ECM*^GECPSNTF,HA 1FBIOBH$^DJJH	ALTCAOADELHFUNHA\FJ9?F8KN;FFE\C?=. \JNKFC<\FXH["CE\S3;NI(AHO:\H\0GXNB[<DG,HU 2C>A0SLFI:B97G8G?F KNKFC7\FXH["CE\TP2?*A P 7G8GCFDNA\^A36XNN\A35XNA\NAK=DNC?6?PKNKFC<\FXH["CE\
2=NI(AHC7\FXH["CE\TP2<*A P 7C GP[) E\NA?3HGNLA?6DGPJO?31TPECC2?DMCPM/54PECC6><]CPLT39BACG:<S-CPLAC<HECC=>?9CPRL?C?NECS4<\!CPTP]<8BF G [M E\BAEE\PB(L\HL GE\C=7G8GCFDNA\NA?<0GNKF?;(CG;:?F$KN;FFE\C?8. TJNKF?> GNKFC7\FXH["CE\T17NI0AHO6\H\0GXNK;5?F8BF G [M E\B
E\PB(L\H\0GXNB[7DG,HU 2C^A\TLFI<NLA?84GB[>DG,HU 2C2APPE\BAB(H7\CXH[!JE\T]4?=,BC
8?38BF G [M E\BAEE\PB(L\HL GE\C+=
?MDPPSEQ4ADQ6\S]DPPD18PEDM9
L)DPPR<A;HEDA<^=5DPPSDE>PAD9?\UDPTRFB OJ"E7G8G3FXNTN0A>A8CG;=CFDNG;<?F,BA\NA3< ON^ ?:$CNL!3= ONF +: OJ;W?F BF G [M E\BA"=$LA<<\BF G [M E\BA"<E\PB(L\HLDG,HU 1J>AXTG;:<A4CGK5C7\FXH["CE\TP3E*A P 7TC0G>A(CH7\GN;F AE\C
<3<XNBO4?=4GN+F2OXNXH["IE\TT33BAXH[!FE\P><JH\K+2??MDPPAC4HEDC5?EYDPQG7PADC8<D%DPPS3:PPAD?;?<1DPPR=/=0PEDC>>?=D<N0AGD3T7UB G07OCO+ECNEDW]<IDPUTXH<JICP1SDC, 9 DH "E\DCVEASDEA TD XEN01L2XLH  8 0IB)01XNXH["IE\TU1>VALUTG3=>A4EC;=<!0BO+H>50BF G [M E\BA"<$LDAT:D
,HA 1FBITJ2 >A4GA\VA?=4CNH!3; OJKLC;\FXH["CE\P2<NI0AU!IP[Y LBI,\JXH[!FE\P><JH J+!\2HK8	N	LK-2(	\KK0A^,LFH,Q0JNF[- NF [Q LFI :$LA8<?FHJDDSBTAAD,HU 2L2AXPE\VA1-XNPJW?A;PAEA<\B5EPPV<A>DAE9?G07GSE+SCYAE") OG;>?F4BF G [M E\VA=$LAAB<0BH7\GNKF=$LG;;?F4BG;:?F0BG?
^H LNI8E\G;7CFDNL^I36XNXH[0MXNN2 >I CO*(21PJOBHE:,HU 2I>ATUE\VAG
,HA 1F&IHAXH[!F$L8GF,HA <G^H,LNI+6 OJ+[K OT [% E\VA5E\U
P[Y LFIFR,HA 1FBIOBHCHNOBH;SPJJ4I8,IIC)0XNB34>I CO*(	-4JOBH>BLBA\NA?7<JAE?3?DQEPOW+C5PAE;6?O]EPPWC	8HAAEG9=)EPAUAO;$AAE<< 5EPUPO> AAE;?G03O3C+OCS30LA3H	A?NB 4AE+ICT" =EPVUDRLPVED[J)DYDPVQDRCPVEDYKQDADPVQDP>PVEDX1ID9DPVQDPOPVEC[[1DICPVMDSPVECZ3-DACPVMDR%PV
CZ"ID9CPVMDP,PVECXYED]CPVMDPLPVEB[.5D5BPVIDS[PVEB[P-D9BPVIDR)PVEBZ	%D-BPVIDRYPVEBZM!D-BPVEDR
PVEAZ[!DMAPVEDQ	PVE[19D9PVADSPVE[ -DEDPVQFR/XVEDYYUF]DPVMFS&XVEC[$AF!CPVMFPFXVEB[I1F]BPVQFSE VED[CYH5DPVQHQ+ VEDXJAH!DPVYH( OJ.E? O"G[9 N3F>I8CO((2Q OJ*Q"7 OC( [% E\ZA!=E\V ^P[Y LBI  O(AJ*\JDHYSALL HTCHDFAHTCD*	1XNJR1THLAQ1CVXH[!OE\V<,.HDJF=!R<DDRMCVXH[!O
\V88GF,HA PPXA=DAFA>^=F U>]".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