File LIB8.RL (Fortran library or relocatable file)

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

,;t	"v2fehw6"R11eihw*r1.&01/i+O\&!.h/1#!1b(Ez8"!'$2a./v8&1'OBt_Pa2		c!Ob ,zDa 06L" O{ePPG"6M" [t6V",,bH[{6W"h[t[9Xh(X@X$f^>c99k "(%"**b*!
o,b)-b).b)b)e-tZc*`t$ v_Ib,(/'.(Sz,Q"Hszrv,bQ@/b!-bHHz-J. Yb<-b dy$ UUb-(/a 3--jru-"bPci-eitsZc*!c$U&Yid$.&ehwl:.D.6c*rv gtrIv ^K +-/*^([<)]>,;=cd$H/)lU'h3%,Q"@{,P"`t4 -6 #!,b vye'
m2eI6N" 7z ./&[!.(/ ,7[9&9(?W&a.//"9rI . &/ . &/0"0b bb/& 7hJ3 46hmi9m[5(UuUZzU,}UBUwXPt *6J" vy]0& [GJl0ui5B@xysx7\"ak[[bb 7bazi(6z7z&x &/"Bf"kXHro6"(Nz=6&@"(iy<X8 >j /V@"(~@=jHE*LDe"R66C"(Kz6n"X|9 nbJ n \j`!
070'1 /r0fpKp*2 oo(@@vl;=>Uvu7o)R"Bi)7"(n6&iFPKb*jF "@(zbiKi)"g?(6rN(/>?"35?3)><*H!6b(jrA(/mk299bln lr(Zz9R ]xBKR](TX%2oJ1{)1@nS./]v9 ` oy1 n2]k< <t 8f L<zd1 }vf!J"F5(?$,5g5.G35l&,F@(%zS2&2"(`{2&| *J F$ALbDbKPWWf h7z><k
6[=6V4C AzB Lz6&,Sj64'4.G34l>V6n >V7&B [zbJl,E/& N3&G/iJ3b53b4n&tKck)wI(z7Abiik?iVjj2 / "!b@!{)i)9& 2D"9#RC z 2f b9cA1!X59A0 /9'\ \&!.(/a3NM2feieieiCLeiX ?i)8I"+*"Pz)z`  :msE0 xAqF x7| wuOV"IyuV@mV8 8MQt@#(~!.!!.&8/|!"&dn*&L,6"%&!!. (!!. ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( (Cv
\@,L;,wz!>t@/zcH~uw$@Dzv!.x{c!sb@~{H?!nsF.f wb|"yPnxd^x& ~B(jzx .ynx/yA?y|}:[^G0<t@@vwx9@qv rw&y^v!.qq&w!.rr&qH/!tfrH/!ufabfcub!tb@-zrd(rvbOu<qVvwr"wyi%q"dqwO(t<(rV(wvbqv&y4%(^!>xxb!Ihk@<X9%&fz$&I#9I nlO 'Iaa,knb+ V
0n Hi. ~d0X@gC: j +  lb bbtJ^K?0%H/TK=P+U>=Q>=]=>HV,EV=?RVB@>VV=AVQhN U$"$d^9=NP=p^R V zC|oto ,c0va EU@s ==>|y>vVs@>p>m=Vl  #SDv{F,k&0ST}w*o%H/sP%H/)P rfZ9rK BR*NN)%(/vHvnU%(^{@4znn} b$ nn%6&'fngonQn]khnenbn_n\nYnVn b@OuH~K ~]uA}ofy|tDyd]V
Y) s0RNR%`z%@/^)9 fFV@+RlVRFR
J@%H/%)R@ .iRN%H1zJRRL RNRRHVZ@V^VbVfVNR^K)^HnvHnvHnvtAu"by4{Lh<}uq^)U
w@\F*o)R!.(Vr]*b(!zR[]["Hz b[ n@/bH3zV@/Wb9Yc9^&9!.9Ub^^SXH/5^'9QJ^T*b(nz]"`mz[@/!n!.b(/c"HoE^(CJBi)C .^^&* zpvh|l@~pLZ9]^K >&\kJ \fK #K.ZBi ^8\rJ \fs_.%(&%H/)y&F$%f'Lf(6b4(/I" z (f665(/(;62"({q',"K7hL Ov66"JH/623`/62R ;&U`n"'#&&"&%!&JMhM[MK#"f![hJ7+l'D.'&b&f%.%JbJfMK=@'b#'&&b"&&%b!%&JbJ[kJ@^!H/Pn!"b"f#.# dll;Oo >gHb!6b6l6 <6_F_/ /"% s":t ("z5p 5&q %& .r(/!>SbTlzTd Tc ;zzTDSTC!b(FzTSDS2J KTTC VFVzV&V
V&T&z "!Tb!Vb(AzUUb!VbVV  ~VV& bUdeA*KNEu
vJtk?t"?zk/({m8({!if %b Bb zIH.8!.nnb?t"58bD%bnn5tzn"nlnj6nnCk l jb 7z|.ki5$9kb%(I|)j ~k&.k`35"lMh3 a.b{y"b lk 'l 'j (gzg b lM0c F&iT6Tp (rrtT"{b2s|Jzk@a6CnWHb zaa6a.n$W" a# " Kd2d"2db0Tf8B Dz8D.%S&8hBSStiS'8S&H /ZB"(IrHSb!#` %K!Sf % Td !>h /V #!ib WzT7* SDI,* ]C>M+D(^{Di> ^78RvAOQwPG fB:gb;hkAY5s ~S&}<"%"(jo!""@'#(zzh H(o/rt"W&h&+r*%*W0).0h"WW&}&9h"+SDT&S.SfS.mE,T84+|0p@FFDF0@N"@{@ /a .@rB@S&,S |} #&u!.TUf rb Ud C !N(/rT$gS*UK+^ty~| @K+KAxU?"",i}W&zh& & ghJh&Vb! b(_zW _b _b!`fh!.ab Ub /z~ bHZz a> C (O</AZ*aOZ`$2V$ & & w r _b!hf C GhNJ_h&b&c&_"
W&V"(yzc!"Ud zbh chm)b).|i)NEZ}_( z_(L.0Lx^0h^0-S& 6C c St'$v?y4z}k&)Kh
L)y O2OJrQMyO'KQ'M  &iSVzI& Fk{0 {Gn~|'o=H /W62n(m}Wu@eLL9@w]#&!.(/(, <TT!.SSbh /$" b l !> C $zSJP 
"T*a.h"{h"G & &h!.S l < St9 '& . l" ]GSScGdPG 
6 beec lP0Bre |]0 (uzyH/uz"HwzH/u{"@ftfNfP?vb! |KXG /x" !h+nvXT  / . &1&[YZf\xbGfq:@%I!"?@p'0'71b/=t@$2 <.C2 Bi rD /9C" 4j?R[@C 1F1E+&Stb"SOL+ T,)U,)V&9o&E0sC(jzrsg cK
rs' lK&^^bZyi{3& !|Jzk1.&0-&(2b+b,=b9di!#& ~b `n2 & . &-)!$f6 (\{-*!$f9~"9`n }b 6h -K- /-#2--Kn"o !> < Ez"9J$7J69]$"!|cY 1lYjYwY[(/ZY2 Nz@ xr}swgw>wgw{0Xz)}`ZY2b f{0tpJWr6n>9AxIM?7@V Ub!ri%H/GTb3(b ~ &@)b/)6+?G O2a bnoKq A@*b/*6,?G !-bP@o-/k!-v!.AKv60L.bM!b..&?0cI3X,c- /G 4;(czgm91lw Sf8KJJ pl(~f@%.~ ~ n {`AXrzlHn$@"P&qf
lBjc}J^~pn&Cod6LD^Gt|Pl&fwfq|-~vP fzrWnu'H^Az- aztG"(eztdn!.oo&Pnq"|mYmyHZ~F^![(]zs /H-}r b (ox8/H~-FoAw$A@.g$Pqb|^{KDkpOq@}AzqD.8o/pFPfqo&yZ~!Pl /k"@,z~6PP oiK8mrP|- Dh nfpD8p?@oJkJ.Dx]DDj KKK n&KPppt@o2k"Jo?K(PKP]j P{FZ}^D0{LZK[ rrbn!Drbnn&r .P0nb FnnPPn ]g43@fs D'(D,0D3DDHJDS]DhDDFDHLDNxAph`iln"xw y2"$lnM8 :5 ^L#A T 5 5LA1 4PNCE@dA{p!f~N&(/]!&N}"N|b}G}<!|b([z5w >!$J{"H~b2zbyx{ H!S  L VI
zBjp^@\![iN,Z Z!YI YIG G[2X [2GXYV
!>C z Ns!l(?X)V 'Z(/NK&C O(?KK"!WbAn`>|?%XVA.Z C C VyU^2
U7 CUrfj[dXfnV `JnV TS)n 
t tn UcrUt{n0|@*,+ > =. $(Z%    %:.7=79<*.**77<7= 2/ /79*7< /7<7>88=*08=*08?*0'?* .-
%?.6%             *(/.~r};&N6 <IR/bF.bEcFFtEJC48b |r{M)@b4(/'/i4"?f!.hziA>#4#i( ?hD<y"M"<.f.(/ER(-8" "{L0L8 )<R- dgbxE&E[6L );<iR{gUJ(0wK/JL?N2K"QFb`0 @q~  `8b++tr/8?@0189?>@LqpK ~}zyt Jp-!,^ 0PSkjfxHEW[nVg:p|9f.?`[`8&
!fJ"dKk @'bdp 1#bmTa/ B?!rM1 bcb n h( ({+@/,"&1" z-&*0 /%."&/"&!L'.`?` %
7Bd6JdHs!6b(6z!>- /5/"d@0K J&7 &!> ?Z# QzK ?Z+~~ . n{{bz{bn zz~b{~bn {{Bi^ 0
B QIA':B`A38R1' B`A38K0@'JB Q IT
`3B e+12@b* n)F&. `Gb*nK&.`FG"K,+@R&Q23z /sKdB21 fb(pz-f&# ,pug"cH/Fnb` #Bfr[2("r(|z2JamT {=}-z_w0b|BYH bAB
C`2B3Rd b|BYH bAB Xd b|BYH /bAB A HK@d |-B BA)B HCSM%d |-B TA)B  IS8s"nBiR DS`0c r V0Xb`7 BP(/i Oy3Bc@B NTR`pC78f|ff-!.8(?$f&#!.8H?$" 8c@z8 >)g8Jfb(z|~"} n}~~}&eBT`C 9MARKA@+9)RDRIH+?9YRDFQP+9YSAMEZ Y69RESTARTj[&~b}|b {f{tJ}'|gK}!>(/g}4n r`v6 n&.!.(?$#"!cH;{& .@?;3("a.c/<6JJ(/""f@.1$ +z >{3"!f+&m(@bO=?=$<@. .b,&A)BR12AiBK0nKC[Ev`RC]cC9YES:l;nc(/g;2]Sg v.!xJ&N:w&v4;fq"|RfH8(J5&*L 8 P8(T@([8(J_@(f8(S"h)Jjb8-z-wy{&73 1E&DE<8+ 2E&DED@+H$8 L1P1 T 0 [ $_ $$ $$f 8 j1 y" n{zbxkFq.A R0b|Y|B9E EWTBH`F3CW6t"|V{Z~T{- zyZ~z]wy]I zZI((zFJ" \yVbWZiJ /xW3"ZiJ /xZK /xZL /xXWZiM /xWI@..ZiN /xSX"WZiO /xW[Z)P /xZQ /xZJ /x;Y"WZiJ /x qZ)R /x|~[[Fn&&__b?`}qR|-~^@oo2W{m}-WJ}z]wyyZ}~]z_w]FFbK /}-z_w5@fhf_fffff!ff<@.]f(fhfff`f ff_N_?)`zmwy.J{VZ^u"|y]]~-]R ]ze5{g}-z_wf|-B oA)B RTR`d1z&@b_fu"|_R?`z_w2W{m-WJbfGK {z_wH!_b yyZZZz w]a!f{0Zz]wyHHb zyHa)z_w0{-A-z_w*ab]* /{zwyGU {z_wH!`b yy{^Zz]wy@_d_?)`zmwyJu"|y]q~-]R qzy"5NM2T &@ft"|@^yZ@m~m]K z$* /"|[@!&&btb|-2W&y.Z~^W.Jy4ZWV~]PK /4W" /y&4JyFZ~]PR /F"|^i~T;1t-o <{@r)v-yZf*_m "(z j|-yZt|]m&l l" *p[6@tb|-yZ~]PR /u"|-2W&yZ~^WJK&7 &yZWV~]PK /W" t"|BY`AiBeK7b cABe7J:@>u"|y]C~-]R Czt"|2RWymO~-WdO*C9RETRY:>u"|2RWyme~-WeJyjZ~]PR /jt"|-fw32. z'''
{~-z_wy~-z_wy~-z_w]FFb0yZ~z]wyyZ~z]wyy$Z~z]wy]FF+FT /x J /x. ccbb!Dcbbb&cJ. nccbb!Dcbb] b8k{VzyTZHV~]PP0lk6k0 fzk6l[[[jCl\z~ }n& dh B8LBE WTTH `T@SC.}my_.$7*|}]r"//byZ|/R|~]n@0zHo0.H0z -3BE?T6 B)WTBHT8T`T5`R3NL` 3`LD!`E Ec..}my_~.4Z.a3M0l hK+m'ip <|D-[6]- {JoUHo<u"d4>(/"$$3(s fDf>Eb+cF6>!h nCi 6-sg . H`#Sg . nG
CB6m/$_9$}X>DO6f.& ,8V<+m'ip <|D#-_ ;v6b98f;6 !f 7f~6(/$$} z}&9 /3|)(/3*7(/)?"{ 87f{)z(/8"(yy0EE_'&. /c_&Zg*:/L$hF{\O _b_Gjh p:z>*_/py|R;]@| _"@ ~W/"!\g0(/ \c@S{FtjYP)FrJf^cP7MI]W%~|@?4?), 0-<%9"&.8%!<+% .&: ,8, 8-*7 ,& %.18-*7 % & ,'.1'=#6%<('<(&>(+3%9?+0%9 $$+''>#6/$/7/%=8!?'5/6-99;|$2<%?*(/.~r};&N6
<IR/bF.bEcFFtEJC48b |r{M)@b4(/'/i4"?f!.hziA>#4#i( ?hD<y"M"<.f.(/ER(-8" "{L0L8 )<R- dgbxE&E[6L );<iR{gUJ(0wK/JL?N2K"QFb`0 @q~ /THE PART OF CRUDS WHICH MANIPULATES BUFFERS *20/CRUDS5 TEMP,0 KCF=6030 TOTAL,0 BUFFER,1000 PAGES,0 PCHEK,0 CHRCNT,0 CNT,0 FLAG,0 POINTR,0 CHEK,0 *200 CLA TAD (1000) DCA BUFFER TLS TAD FLAG SZA CLA JMP START TAD (-5200) DCA CNT TAD (BUFF1-1) DCA 12 ISZ FLAG CLEAR,CLA/CLEAR THE BUFFER TAD (40) DCA I 12 ISZ CNT JMP CLEAR START,CLA CLL TAD BUFFER 6150 6151 TAD BUFFER DCA POINTR JMP CHAR LINE,CLA CLL KSF 100 JMP .-1 KRB 100 AND (177) DCA PCHEK TAD PCHEK TAD (-12) SNA CLA JMP NPAGE TAD PCHEK AND (1) SZA CLA JMP ONE KSF 100 JMP .-1 KRB 100 AND (17) RTL CLL RTL RTL TAD BUFFER DCA POINTR JMP CHAR ONE,KSF 100 JMP .-1 KRB 100 AND (17) RTL CLL RTL RTL TAD (1200) TAD BUFFER DCA POINTR JMP CHAR PRINT,CLA/PRINT THE BUFFER TAD (40) DCA I POINTR 6152 TAD BUFFER DCA POINTR TAD (-2400) DCA TOTAL JMP NEWFRM LINEFD,CLA TAD (-100) DCA CHRCNT CHRKP,CLA TAD (200) TAD I POINTR TAD (-240) SNA JMP BLANK TAD ( 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