File PHAS0.RL (Fortran library or relocatable file)

Directory of image this file is from
This file as a plain text file

*0&)*MBJ* B * B * B 2 F +NCD6(CS7ASL/EF=6)R 3H;E*MBJ* B * B * B * B 2 GC+SCE3R	E+HCEO7F*JB * B * B * B * B * B 61^:7RSI+EJ(+SCO* J ")6;*JB * B * B * B * B * B 62^:7RSI+EJ(+MCO* J ")6;*JB * B * B * B * B * B 63^:7RSI+EJ(+DCI* J ")6;*JB * B * B * B * B * B 
4^:7RSI+EJ(+MCI* J ")6;*JB * B * B * B * B * B 65^:7RSI+EJ(+DCO* J ")6;*JB * B * B * B * B * B 66^:7RSI+EJ(+FCR* J ")6;*JB * B * B * B * B * B 67^:7RSI+EJ(+SCA* J ")6 *JB * B * B * B * B * B 3ESN";*M* B * B * B 2 & 3FZ 3ESL6 K[3EI7EN,3P3A+T3E3M;O7A7T*=B03
WH7N^ 7RSI+E" *"B * &"*MBJ* B * B * B 2 3E+SCE3W	R+TCE2(WF+LCD3[WR3IWH6,CS7ASL3E6,3OGN/T+]"36)*JB * B * B 3ESN";*M* B * B 6 ^ 7RSI+EJ(* B ""6)*JB * B 3ESN";*M* B 6 ^ 7RSI3E;L*MBJ2 ;ED6;*JB 3W	R3T3EN6;*JB 3W	R3T3EN*M2 V /N/D2MJJ3E	G+NB * B * *(7WKI3K	L+C+H
)*M7BKE3EC3N;U+G" 3F3E/D.)2MFJ7UKF/U+F.=.12MZJ+OCR/C6:61R /OR 2 ?D2 WB3G;I*MBJ2 J 3LOO7KKD3U/C6(WA7FWR3FZ,3ESL")6;*JB 6 WA7FWR/F6:3A[U3R[U"+632J;ED6;6JKW3IWT/L/N6M^J7RSI3E;L";*M3W	R3T3E+NJ(3F;I+ICS7CKO3OGN3T> 7POU2 R(+ACS3ESN3E. 3RWO+NCT7DOA2 WW+R	K""6)2J
ED6.&J*L"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 0
?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$LC
 $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	<HA

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