File XLIB8.RL (Fortran library or relocatable file)

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

RTR`~D@ ~O " ~E	`|0PN1 |R |@XT |KO |		`|0  z  zB` zS% zT`C z	  zFX" z  z  z
A zPT zFD  zH` zPN1`x PN1`x0LS xLS`xO" xPD@ xRTR xED xPLG vX  vF$`vP`vP S tO` tI C tTN rP`6 p	  pRM! pA  pR!`pPLA p@U@`p	`nPI$`nPQD lH
 j0H	`h0U@ fpE`& d0RR4bbcbb|@ Wzd(/dR$#"!  0P pREAD  pWRITE pIOH   pERROR @\
!!(X~+},`D\+
U..\#
0-WRITE +\|)
-$#;# J
!"\{#c#\,zPy `IH0SREAD  S-T.
0,,H\
j


x\]%@x?@}1@~@{B@PPA		~,Q RgTWCX.Y#`\}	| }{z(	y
	y	x
	y	w(
vu	t
$	s
B ll\rBB	|!BVlH
rjBk
	yB
_dBBl
	qjrk! \r(
]BBB B l
. Bf\fr
	|f
Ar,Av'AwYAzxA{oA})A]pDIV   pIREM  A		~}} |
'{	zhdy	zH!`E\*x	z`x	z
		~}@ \w!}S}@
O!	vu	z}h
H } ~
>x	z
D\~
<\}!}`	v
 
	x	z
1\t@s	ze
Zt(Sy	zS Au.AwfAx0Ay-A{A|{pCLEAR pFMP   pSTO   pFLOT  pFAD   pISTO  B% NK` L \~N
7	}	| R2`US{6M`H\u`I\rM`
`K\rK
LK
 ML
<}K 	{
	z(
H\~y
	zM
]x \~
\K
Y`H\uK
U
]	{`L\~wvH
m\ut@
msr\ubBr Bt%Bv?Bw ByBzBfpGENIO AzAtBs)@|)Bu*Au+Aq,Ax2@zFB}LB	\~(
}
L
		|+
	{*+(
!*z 
!) ) yy
&*	xw`+\2(	v,\~ 
AF 
=L
7F\y2ut2F}s\LF 
HX\w`rq(
Gq(
GpH
Mo@nm
IBm`Bn`Bo@BpzBqsBrBs?BtJBuMBw!BxbBz$B|]B} B~+pIFAD  A~B~OAtOA}PB{_C	~`N\~OP
	}(
M@
|O}
	}{@
`H\uP
Q`I\rz
	}\yx(P!}@ 	w`K\rQ	}H
I}H}vvuu}t}s}
5
	}r}\	}{H%Qd	w PP
RqHpo\nm(nl_Cl
CmvCo Cp@Cq`CrCsCt|CuCvCxzCy)CzC{tC|C}C~BvA@yB|,A~,AvGC`+
 `*
IH3IOH    
 +~\X7F*h!
FF@~
@,\,,(
AF(
@,
5F\,,F,!Fl
	}|{z{ll	}}||{{{H
zy	xF
JG
	}D}||{{lCxCy0CzC{C|C}C~
CFpFDV   AyBA|!C'Cw]B{]AshD}\(	~hlqwxz"{1\}(\!(	|{ ''	z}!!'
BS
=


y	x!
6
0	w]S]
Mv!
B
0~[}!HS!
d`O\u!
`\]\u !
pt	x!
n	z
Dt*DufDv`DwLDxDy?DzD{+D|,D}D~,D)BxD1@@AsiDh }  @ \
%	~	}`US
DDD
@|\!7~	{z	y
U@
8!`E\*`pa@ 
8}\x} @w	vH
.u	t
N?s@\7~\U\ aF\iDs|DtDu0DvSDwDxfDy'DzD{D|OD},D~LDODD
Cn'By'E	~	}|	{zHHH 
Gz!}`zH
y\x(
#' }h
#w	v
2EvEw Ex+EyFEz@E{aE|E}UE~E'	. pOPEN  pGENIO pEXIT  pERROR pCKIO  @OR0GENIO DFM
(`ZaG\~(X}J8
TX|{<\	Y
Tz(
LW
Iy(
Oxw\- W
<
fXvX-\-

 `	


_@v@w
@x@yf@zv@{
@|8@}@}pCLEAR @,@+@*@)@(@$@#@"@!@ @'^@mA	\	=
N
`~}
~\	>
N
`}GNO1OPEN   
&6`|{ zMM?NN(
1NNNNMMyH
&xwv?u `BtLsM`D\JNEM?N
N(
^NX(ZN(
a
_rq\p@opp`D\}AoApAqOArAsAt-Au`Av^Aw`Ax]AywA|A}_A~A{]AUUccR `1ERROR 0YYH
Z	\Z


	~Z	~Z
+

M}ZMZ
;|	{f	{Yhz `	~M1SEXIT  `
1YCKIO  !
[
] `
pd

c\aAzA{A|A}|AA~nB
4

	~ 
3F\@s
> 
3}P
\	Q

39h 96[\(
.
&\Mr
>\6Y&?H
		@ \	GV	S \\\ \\n\
n
g\|({z|z`nBz B{5B|?B}B~yB'Az@~@%B*X
TTT	T~ 

*	}T|(
<{(
/z(
-y(
Ixg
~a
awv 
a	}!(
	
@!(
 Eu	t
^	s
{(r^Tw	v	a!Hg	gBrBsaBt-Bv
BwBxByBzxB{}B|vB~_BuB}
BBiBlAlC 
ll~l} \(
l
->
!
m
&lp| 
r	{
qC{aC|mC}C~\C,pFIXIO @VC3FIXIO  (
@
  `G@
!~
Q\}|J{
52Xt]pq53o[m
&
GFDJ\55(5zJ
;?JQJJ\G1yU
axH 
ew6v( UV\utCt_Cu]CvvCw
CxPCyCzC{C|C}C~C4 pFAD   pFSB   pFMP   pFDV   pSTO   pFLOT  pFLOAT pFIX   pIFIX  pIFAD  pISTO  pABS   pCHS   @0FSB   X
0FAD    \
	~(
W	
U(
;!@
;H
/
C 
A	
@@
Hf	H		@
Rf	X\}	
eon m
	~n	|n	{ mVkn0rABS   rshm
@{@|@~@@5@}E@FA 
	E	~}))
|X)){D*@5zH
N	C
GE(
X
X
XE
Gh
qf`
c* 
XDHD
	~}F
jAzxA{A|A}A~ApERROR A1ISTO   7
#1STO   7 
	6	~6	~}6	}V46		 1<FIX   		|	~{@
kz	y
K!
	~} `1[IFIX  [c\d`J	[<V\=
>`N\:h
SAz}A{tA|A}A~AB5F;2FMP   		 			
~		
(	 `		2;FDV   ;A<< <<	
r!}|AXH
\			{A
V	 ``N\9h
	z
pBzB{*B|cB}B~eBB@BNAyNACN@NBh@hADiBf\ A0
2FLOAT "%&
'2%FLOT  @H1~\}	| `26IFAD  6:77B 77 6\{7zyH\}NV
2^CHS   	x w	x `\h^hh_`N\\h
dBwBxByBzB{B|FB}EB~B pOPENI pOPENO pCLOSE pCLOSB pREADB pWRITB pRESET pIOHST @0OPENI 	
O~	}0OPENO 	O~	}0CLOSB 	O|
0CLOSE 	O|{O(z[N(
X
<`O(
C(
4
\	>yx(	wOv 
.uO
\	>yxNt(
XNEN
\	<yxsNrq@r	@sp@t@u@vz@{@z
@w2@EA
OR1IOHST E
O
	O

` `1
READB E
O7
\	=~}\
'1WRITB EO7r
	>~}O|(O 
BEO
B27
'O({hr hs7

fEhEEhhhihrM?MN
N(ENANOM`zhEEEs\h\\rAzwA|{pERROR A~3@y3@q3A{C@~MAN@|PA}R@xR@}^A		~}}|}
\1RESET 	{
O
6	
[N(
3	~
(
,H
9zJNy
NN!AOx	w
V 
6NGvX\u(Z
N(
S
Q			t\us\u`I\	N]df`^
N\	<
3
R^^
*AsAtAuAvEAwAx
AyAzA{EA| A}_A~rAh
v pIFPOW pFFPOW pEXP   pALOG  pSTO   pFAD   pFMP   pIFAD  pFSB   pFLOT  @!`E\I`F\`G\I
~

4beUUUUDl
N	<d	h;nruVwAc}p~w! 
Vm9@LG0QALOG  QYRZ`H
	RR	}h|{zY}yx}`I\(w+`E\LY`

@w@x@y@zx@{x@}@~@pERROR pFIX   pFIPOW @|
A`G\F`F\L ``K\O	X 1EXP   `H
	h	~}@|@{
X~ z~`E\L`F\L`
@yy!`
`F\Lx	w`F\(`E\L`F\C`M\Q`G\L ``K\
	~@h~|v `1eIFPOW `
epfq
r	
1pFFPOW 7p
AvAwAxAyQAz A{GA|A}CA~ApCLEAR A \7p!\7 (
,
	~H
2 
 ``E\I`D\I`G
	`E\I`C\I ``}	~
*|
	~`K\n
A|A}
A~Aqq pSIN   pCOS   pTAN   pFAD   pFSB   pCHS   pSTO   pFDV   @>&@u\
x&TD5uUU
TTTv Ea^PfOtL"}UO01TAN   71@271A2`D		~H
M`E\
B`D\ 
	~H
M
@
b``D\}x 

u`G\|
	~`H\ `!w
@|
@}@~@pFMP   A`G\`D\`I\`G\02x`D\\~
)`I\}

&`2x`I\0|
13COS   3;4<
=1;SIN   \}7;K<7;L<`D
		{H
X`E\}
M`D\ }}
	{H
X\}
@
n``D\z	 `AzA{A|A}A~wAx	N pATAN  pIFAD  pFAD   pCHS   pSTO   pFDV   pFMP   @0ATAN  
`B
	@	~(
ZH}~q~|H
\ 
	~{H
/`C\~\``C\ \`E\rz
->>>>`C\kk

8k`C\r\
N`C\
V``C\q
	~~ `y
`E\r

	~`F\r\`G\rk
@y
@z|@{@|t@}@~@@M@U@>@-@%AUY:n2	rtva:}U_ pIREM  pIABS  pDIV   pMPY   pIRDSW pCLEAR pSUBSC @0MPY   )) `)DD)
		0)DIV   @
/!)3**:**(&@
B!D@
BH! 
cPH@D
R
S! `0mIREM  nnHH
w `@tpERROR @&A1IABS  H! `1IRDSW  ``H\'h `1CLEAR 
	~} `12SUBSC 00H 1d32>|(
H[* /_)+,2c-3/
_ * 	s){.+--0H.D.,-V2q3A{A|A}A~AY pIIPOW pFIPOW pSTO   pFDV   pMPY   pFMP   pFAD   @0FIPOW `C\
0IIPOW !@H1( 
z 
2
	~
B 
z`D\`C\@
/(
yH
Q(
^`E\(
y(
c`E\
B`F\
P`C\`G\`F\`C\`G\
B `@~@
w pSQRT  pFAD   pSTO   pERROR pFDV   @Q0	SQRT  7	
7	
`B
	`C\`B\	@
,`D\h
	 
0 `H~
	}}||{(zy`C\`B\`E\`B\	x
B `@xx@y}@z@{@|@}@~@M pCHAIN pERROR pCKIO  @Y@V`B\HR0	CHAIN 	\
8
 

M
?NN777~N\	<


}N`\	<\||{|7@{ @|_@}@~@	 pCHRIO pGENIO @0CHRIO /H
/
(
!/9(~ `}|H

\
{`(29\/@{@|@}@~@I pSUBS^ pERROR @U 0SUBS^ H 	d~(
'; U]
TpH
r(
S}
X
rD	D	@

D
rpH
r
rp

rHDVp`B\@}t@~@A pKEY   pFIXIO pCHRIO pEXIT  @FKY0KEY   7\
F~`B\F 8(9)`\
	F `B\F `F`7@~}@~

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