File PFOCAL.SV (save files (Executable program)

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

||H@@20@A>&?
=<;/=?:
?:.<7233><>?<06 3%)4<3 3/6< I PLTC / LTCNT, 0 / / ARITHMETIC OPERATORS TABLE TSBCA, -72 /: COLON -53 /+ -55 /- -52 /* -57 // -36 /POWER -50 /( -51 /) -73 /SEMICOLON MSBCA, .-TSBCA / PRIORZP @xO`!xTp?lb
>U6P _ @.Ap?~?0p`Rs|{w?QMLF!`E
sSl?!H<BLRQ5mEM"p AO[3dA@2VtUpuLlqLz!V~S2n@f &i)0&20bjig<<f* fyf0fey piqr9$lT5 /v02f7{)pef6N" 0zun`) w(zbj@@p6J(/j`) 9I@+77z"@vy7o)7f)IB(E +77@n7D ~7F 0vy {r5fM 7`t Opb"jcr) */R^UPFn klbcc 55H3zm &zsv`d5w (9zf5`/0y)s9y7m)v`d5d V >k ??4ElG?0;HNHdPIH G0UIQ\;Q. ~H9 \ 6\OBHO9 c 9teO"H\ ll4 Ob9 c 9tsl+` P=_"U5R
:lymv&e6N(/ah9~*6= beh~zVg{wvlmI77" kyei6N" $zx(9.5b@yys;y7"+&a52h9zi4p hw@62@B(Ozq@@{@@D@0Q 6 H?`!.6 /TQ# b,oQQD@QkD!9f7D 9(/ddK tzenjg~Wn2
SFIDGCATLEWMQROt V I%bHthtw{gyeie)#'`Ip96]" vyb)` Vg .vb` g9|.vc`I c9cI` dd dI8Vyi[UU%`a{b)c8AC/TcyAZ+b6^" vy` +3Vi/O+^!2! "
C/A. qn6 fgix~ J`6b)`6NYV6j` XeIg{ie)l7*j-i)+?"ie lmv02f7{)&4@eIig>8f;0.2fjg:8fF(6!.9LcL F H?`9" Tz L#99c99kL@NL+9}lZfJr&F^K
pl>l;28B"91 J: %"!#$ ,;t "v2fehw6"R11eihw*r1.&0V1/i+O}&!.h/1#!1b(Ez8"!'$2a./v8&1'OBt_Pa2 c!Ob ,zDa06L" O{ePPG D6M" [t6V",,bH[{6W"h[t[@>`X6&YS2Vi99k@jj!")&"*+b+! ,b)-b).b)b)e-tZc*`t (_"Ib,(/'.(Sz,Q"Hszrv,bQ@/b!-bHHz-J. Yb<-b dy$ UUb-(/aV9--jru-"bPci-eitsZc*!c$U&Yid$.&ehwl:.D.6c*rvV gtrIvV^ +-/*^([<)]>,;=ZG JH/)lU'h3,Q"@{,P"`t0V-V!,b vye'
m2eI6N" 7z ./&[!.(/,7[9&9(?W&a.//"9rI . &/ . &/0"0b bb/& 7hJ3 46hmi9m[5(UuUOzUU,}UB`R:XPt *6J" vy]0&[G:l0ui5B@xysx7\"ak[[bb 7bazi(6z7z&x &/"Bf"kXHro6"(Nz=6&@"(iy<X8 >j /V@"(~@=jHE*e"R66C"(Kz6n"X|9 nbJ n \j`!
070'1 /r0fZ |p+2 oo(@@vA b) 969S2 07o)R"Bi)7"(n6&iFKb*jF "@(zbiKi)"0(6rI>.35?3)><*H!6b(jrA(/mk299bln lr(Zz9R ]x BKR](T 2oJ1{)1 bab/]v9 ` oy1 n2]k  <tA6  <zG6pvf!J"F5(?$,5g5.G35l&,F(&S"22b(/^" vy2& L@bDb.K7/*PPPfh/z>f>6+64C AzB Lz6&,Sj64'4.G34l>V6
 /X`.V/S7&EB/ n3&35&34& G/kJlqj;`AbikwI(z7Abiik?ijj2 / "!b@!{)i)9&2D"9#RC z 2f b9cA1!X59A0 /9'\ \&!.(/a3NM2feieieiCLeiX ?i)8I"+*"Pv)Jg(?fh2if s$:mIi88pK'*6Ph~sLs<qms 9Fr4&H)49>P9o9"(X~9I9"(tA2;b9j@9wvp3[8.Vi/b~7(-z77/,&.+&}~)^0G7|{~Q7GH7|0z~)Q7707 > n|y~QG0xY&ZTJYTJQ0p6w /v` +9[\;utb n tks)ffKbShOfTo} p@`>P~&l`~BU(\(9}U(H/\(@|\(D{zbU`!&cyU((2z\xU&w&v & 7U.JuU((8z\KtU((>z\PsU((Dz\S\&rU(qU(zU(`bPdi\Tk
@1`i4U;\\F(?\9697`&Y{ @0XEv X@@@ 8gp@ @ @|
8O}Vz?W0Hn'Ln'Pn'cyO?gF'V`#V^P3jE'd:'f0io"&.&%b!/D%&.&&,b,f.-d7,"&b%1k y U%UQUQUQUQUP@.. @`2Z?[&@AZOh 0x1# ]>x,#%8x&#+x _ w^"=E)w="n')axR~bl?jLr \fzM@
g/Jry(x& wlyl(zua,va,Hja@(FzAdlY@O&h"jirkGzlwb(5zdvb(Jz@t' s'Kq%L&,LLLL/!L6/"XH/I%UUU&L`pBy(dH/vP"/lb mb /t[p"yHDn"o&g
4KGLkn"Up1eRL,P2d1`i4y;SV ,S% O"p)O% H%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*oe%H/sP%H/)P rfZ9rK BR*NN)%(/vH)nU%(^{@4znn} b$ nn%6&'fngonQn]khnenbn_n\nYnVn b@OuG~K ~]uA}ofy|tDyd]V
Y) s1>_[!Z=_[!:=R R%`z%@/^)9 fFV@+RlVRFR
J@%H/%)R@ .iRN%H1zJRRL RNRRHVZ@V^VbVfVNR^K)^HmvHmvHmvtu"by4{Lh<}uq^)U
w` }+ !b@oz&~i)vJ@|kE w\*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 .^^&* v pvh|l@Z ]^K >&\kJ \fK
#K.ZBi ^8\rJ \fs %(&%H/)y&$%f'Lf(6b4(/I" z (f665(/(062"({q',"K7hL Ov6 "JH/623`/62R ;&U`n'#&&"&%!&JMhM[MK#"f![hJ7+'D.'&b&f%.%JbJfM0@'b#'&&b"&&%b!%&JbJ[k@!H/Pn!"b"f#.# dll;e |K]i%@\r^i)k$H/ /ah/)db )j jefwh
&$`.lcb$Wil%Jf(?8b"H4z g$bBNf4og $8Jh &ci)[2iH!~%b@Ir^i)%$$_@/M`"% n$ /l%Z"EPs=p-d|vu=KKJ7 7{9yKKil
 <p0C uKj(] C* F6L(/B)6M" zFECE!fH$&DG6A /&F)BD'"i(/@?1)=6)9 && P}fffh;o;{Lkn]# h chd fh&WhRg)Wgc$dh'$f%@/^&4%t)^r[{ ` <l0G qKzG {K3~k_dX@#v(?262S (zD Fb2  3b2( # d b2bFnG(74" 2c(5z2Db
Ob/c /t-2+{CR;C" n &O/& 7/>J# u xzy{w%" Uz$%f&'fc)$c d $+ Hbz 2f%b vycd$d8pc)8dy v 2kJv)k.]nl[o[[FE]GsmMPKP@'b!'f& .A~&%b oA%f0%(/&(/I!"("r(#r({ !.$(/;&@/!RfR^"H=z@/5o(R1J; . &SR8$ 2@Dz$@/F:$@/`/ 2$!b%"b&#b'kl i $ /k.#hb h#'d&$%t'ji&T+y {$f%&fd @%bH~%f&.&'b'f$oKo_0 } T(HkxA@f?>f%i'!j)"j&i'!j)"j=<f#i'%j)&j'i'!j)"j#j)A%@b&?b'AhkL`o()IgA!2(vy !.Th@kxhAS=$$Tb%!@ ~(%b(f{H)y!(/fT;P]^1.n`@#b!#f" .A~"!b oA!fk0(H/){(,6+/b-@n,.,+bz@.b+f-J,.-c!*b,-b@,c,,t+b,,7{,,E&:B`t]p,f0-&Wy@#b +&"b&.&%b!/J%&+'&.&&,b,f.]b]f-7J]%&&&,'&10}v%(/'(/&(/s%"DHopW)`$b$gj~v]$6]o=%H!~Huyvy;{\h<%Hvy$H/n8o8N79&:;f=(/>(/5)<88 $b$$b!8b 1z%!.9 /1&"!:b@!~@o^98@$&^6C:s{pI /D,K~M"M` k1&'f,b)j6%Vi,b$^k+Ti^i bKl fK}|'{'}z3(^{cd zH?)^iLIN=(,6+/b-@n,.,+bz@.b+f-J,.-c!*b,-b@,c,,t+b,,7{,,E&:B`t]p,f0-&Wy@#b'+&"b&.&%b!/J%&+'&.&&,b,f.]b]f-7J]%&&&,'&10}v%(/'(/&(/s%"DHopW)`$b$gj~v]$6]o=%H!~Huyvy;{\h
5$L>@ KJp6n\{0;G_> v#?Y@DVdV~?o 0C`pw@g\Mv&pU F;p/RpG`
z7?sF3>>|06 QsiI4`oL):0?mx8CL0 y<pM_@> aX`O`eAS`EN(
8A`DF8o NA,18w l`"xG1h2M?R aXTH EHL"aG10 @Sl`}Hq5\pSNqShqS~qShqS~qShqM#`}E ({`"B hJq9=j*q1=il*nrLI(hr+wjJr+6jJq+ujjr+0jJq+1jZq+9iZnlMn,MnM@D1(`B hAq1=i2+1I>( mt\iljnrLSh} Q({:`n?@Sb2`*Bhmt\iljnrLI(h10.5W;m.-)n\,n\ln\@S<`hDiq_ShFNr)I.(1 1W[i4+0;<`1*rW[q5+16;15;MqF`FN)*I(hm%tiL(!q9=in,ln\r1K7M?= `*Bhmt\ilJnrLI(hr+0iJ61;I(hq+uij96;MUq`B hmEtiNln,rIN(m0)Mnln.lLnn@a1`}.>tSN=.5^Mxq( aI(.tMKr4+{ U`O`eAS`?@ -! XTI ;8 { X`"xG7h1M?/!`*i.ll.\; QxMO.2!`*Bh.2mMi:49;I(hx+2)=ln.?@c;4!`*Bhm.>tiJ97;MOr6`}k30;= n1Sn=xnK{`A.?M@\2`"1*viZ40;,.]@cf"`*15.i4+1M?v"`}H1;L`=A;`D};`}A?@C|"`.?@S "`*14.i4+2M?"`}How
ShpM"`*13.i4+3M?$"`}Hos ShpM."`*12.i4+4M?8#"`}Hoq ShpMB("`*11.i4+5M?S-"`}Ho1 ;`D}; `=@;`D}? @Y2/`!.^@c22`"1*0ij46;Mmr7`$}o{`T}? @w2<`"1*yiZ47;MsA`$}o{`T=? @3F`"1*wiZ48;S#hcv{ShpG~49 MsK`$}o{`D}q M4sP`"1*xiZ49; #hcs{Shm{|`.@c>U2`}Ho;`}@?@CbZ2 aXbq
uw; XA DE3LRIN`>T P 8`@A`HRC"aH@q_2 `Y.4\"4CE1.!aRMs 5aU8YM
4T``QNT"A # LGE5`NWRN`YS`R'8b9@>3 X @E T8(RT$ETOB I5XD` EDT O0b@_3 XPRTD`OMS`  TRSQUS %TI.!aM|s( 1}.>l0K,.^6D^(m0i<T"h ; { n2,{ %@2C aX O`eA`6T"ahDS  `UMR0bh@64< 5L H SR U3"bXT
U 8XLT` !8aM:FC@Q C`}E ({`"B hJq1=j*q9=il*n?]@p4`4FN)*I(hm%tiNln-;`RB hAq1=i7+37;2M?C`*Bhm1\ilZn;]`*Bhm0\)lZn{]`*r0<w3+l.]@C##C aXAN!({`ypOG2h4=@-4(`4yqOG2h4=@742`4ymO{`A.7MMAt<`4ypOG2h4=@D4 MOS D aXTN N8DS1"ahMVt
MO\D 1X?@iD XG ;X N T"Mut An;m 5X"DN95 M{t E2?@5 ENS?@T n; U5" D9h5M?T 3X?@,T XNa CASO" q6 AIbM8T n; U3" D9h5M?>T 4X?@JT XL`!OMN?@WT n; U5p"DN92 M]u E5?@h5 E1U#H4?@ T X #W`4v RA
S3p"DN92 Mu! E6?@5" E'' AK`OMN0"M$TMu% E7?@-5& E'g TPgMA3?8@05(MO6)T 8X?@J*T 'Xg  4ETO-1 S5 NS?@],T XU#8` C@D`fii?@c5- E9?@6. E6U#H8!b HTI8N`1F 8S% TRS?@60 El3D9h1T>"2 E B@`4N u0\; n?l@%6 E 
W3`?H@46 E HRC TGCSCbM/>d X TBbMOL(d XI#SOB L0S5"MZ2d %XR` B@i4?@t<d .{ A}.>t.K48K4;= m0{< X"DT!M>d X H L'!@6AA@6F`Bi..tM25;,n^?@cPd`xDQ-~2S>Mn8,M,vQ`D}:T($p.L1Jiq+0MO2Rd`.?@SZ .5DN44 {`Q.^@> 1z4NT"LMMxMM?3 hmE0)Mln-{`Rr+0wJ3l=.\aT!{`yDpG~24 @S`1n{] aXT!H{`ypOG2h4=]Be.1a../#1"/~"(dn}}-"&..-dn--&z--!."(/'c).de<j|3{czccci4GH8jHGFGy"@6zxI(GHbIFnGw)20(I{v@/ut"Ii7ef-@/Ye$eDNDoe!NJ &eF.qbe lQ20Q  c c clg9;Ue v%[f@}'N1 f_v~&)fE6$"4`.(pi#o(n{m /5l)({k9(j9(x" %zG, Il5 )l sBr|0~kB}zQJ@wb0/m,2|yK0DRDRi*f"Fn}yyrJ n}`xx7{R&xkJxy&xBx|9)6G, Il5R oPe6~}1%+%& l,~+r}|y`)f3i'{Ar zG)B(5y (DBy'x ,r|ys2! #6lw&E6$"4/#)'s{5i@k\K0I@5y@D?j&hk&j\8j}0ijdj\8jj4}J ib n\J g(9zv(/9 ,u(/tj280jmb1|+yrotqf0gowWK]'N1f_v~&)fE6$"4`.(pi#o(n{m /5l)({k9(j9(x" %zG, Il5 )l sBr|0~kB}zQJ@wb0/m,2|yK0DRDRi*f"Fn}yyrJ n}`xx7{R&xkJxy&xBx|9)6G, Il5R oPe6$USEGETCE FOCAL.TMOCKTYES EXITCTORYHH|p{zszxzuH|t{}yzxzy~}/5),`~*`n~*r(5y} ,|(t{z'yKx*e. l|6 |c||sawc5y`N &'K0vG&0eH:lu&GCH`GbGd::"E`00`Gc Gd{
,Subl\ tQV.SZ&G ec l|\ <\0<b
eK /t {z'x|'sr'ur5 qvv< ik@o&~&f {"b feb\ n]^fE"6d(/:c"(CzO brOf^m"@z^H.\_&O/6F.n__7^J /]5I\d"a")E6` /(6"O@>J 6_"@^bZz]P.\/OOK }< az`0 L[&g0H/o< I *ok@!u&cF &C~6
#3Zb3 & C(O'&4@" c(b&b' l5 (' 0 bD bn bbr'r'r3k v" CC4CcC
FCC4 c!c C{MJCCK ~V}(hzg(mZ$|@/{zR ZKy ,Y{[{'f+w
p msbq C6F6$) XGWBo"4 z#'a3n5n)o@bmpy   e:& wCVGV0HafUT-aS Jn``b3 ,5`J nF3b I5 F!.]:bFb^b_:bZXnabX.i5 0#  |&#+#,T-~0R}'h|'{z7oQ9 yKR{wzxw7on lX|}- 5@5D,1& P"PDn+H/5 X~2 &z <$O G+B!FnnT/f.5}r|,rF+b{Vs wGJF /P%)j&yzycxiW&F${$%^Z6N /V"9W%@`!f__4 cHqz /e "_66_4@_kIOCR i_h]}_^]~p~pT-p@5y! 5Anl. ~2 b b/ c(_z D 6~!> & (?`+&(/3M)|p` b} / o`f.yc|y;{"C|uy+b!fbFnbf`(/\L"CXydIO"C`KC)V $ZSCRLDG E~J zzI3y& yCpK>.pJ|~G/`(piM~\
$K6eBUiT43b I +&,& # G~p9UT-7 3B5F 3!.G(/}7!I G >@?5y77 . nT7TJ H |rHSrKC)T)2(5y}{
j zd@A5 y 6Fnp8ppp| fx`wWVUpT-n@5y! 5Anl. ~2 b c(]z D 6~!> & (?^+&(/1M)|p^ b} / o^f.y
c|y9{"C|uy+b!wfvwbFnwwbf`v(/ZL"CXvydGO"C^KC)T $ZSCRLDG E~J zzI3y& yCnK>.pJ|~G/ 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