File FOCAL.SV (save files (Executable program)

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

~|@HAR
	/     EOF RETURN
	/
	/
	/     JMS    CLOSE
	/
	/
	*200
	JMP I .+1
	CONV10
OPEN,	0
	CLA
	TAD L7773
	DCA COUNT
	TAD LPOINT
	DCA POINT
	TAD I OPEN
	ISZ OPEN
	DCA UNIT
MLOO{5@xO`vPpxTMpplr
>U6P _ @.Ap?~?0p`Rs}{w?mMKL`f`fEQu?\l<BLRQ5mEB"p AO[3dA@2VlQ%^q,y~_2n@f &i)Z&2Zbjig;<f* fifZfe piqr9$lT5 /v02f7'pef6N" 0zun`) (zbjp 6J"(Rzyi'z & /v'o7qieq`j*,F.,.77&eqvj,7"7eiq`vy@7bD 7bF0 {.5fB;`t
Dpb"kc2) */UUUUPFn klbcc 55H3zm & s9v`d5(9zf5`/0#s976m)v`d5d  >k 9 nH9 ~H?  babvyH0Q96 HhQ. ~H9 \ 6\OBHO9 c 9teO"H\ ll4 Ob9 c 9tsl+` P=_"U5R
:lymv&e6N(/ah9~*6= beh~z g9{wvlmI77" kyei6N" $z(?9.5b@ss;76"+&a52h9zi4p hw@62@B(Ozq@@{@@D@0Q 6 H?`!.6 /TQ# b,oQQD@QkD!9f7D 9(/ddK tzenjg~Wn2
SFIDGCATLEWMQR t   I%bHthtw{gyeie)#'`Ip96]" vyb)`  6g .vb` g9|.vc`I c9cI` dd dI8 si[UU%`a{b)c8AC/TcyAZ+b6^" vy` +3 c/O+^!2! "
C/A. sq< .fgiy~ .J`6b)-i)NY 6j` XeIg{ie)l7*j?3) ?bie: lmv02f7'&4@eIig>9f;0.2fjg99fF(6!.9LcL F H?`9" Tz L#99c99kL@NL+9}lZfJr&F^K&
!Lo.l;28`%B9"1J%"!#$ ,;t "v2fehw6"R11eihw*r1.&0 1/i+O0&!.h/1#!1b(Ez8"!'$2a. /v8&1'OBt_Pa2 c!Ob ,zDa06L" O{ePPG6M" [t6V",,bH[{6W"h[t[9Xh(X@X$f^_2 c99k!")&"*+b+! ,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"`t0 -6 #!,b vye'
m2eI6N" 7z ./&[!.(/.7[9&9(?W&a.//"9rI . &/ . &/0"0b bb/& 7hJ3 46hmi9m[5(UuUOzUU,}UBUwXPt *6J" vy]0&[0rjl0ui5B@ss760"ak[[bb 7ba c(6z7z& ?&/"Bf"kXHro6"(Nz=6&@"(iy<X8 >j /V@"(~@=jHE*e"R66C"(Kz6n"X3 nbJ n \j`!070'1 /r0f0&p+2
oo(@@v ,F(S" 07o)R"Bi)7"(n6&iFKb*jF "@(zbiKi)"0(6rN(/>?"35?3)><*H!6b(jrA(/mk299bln lr(Zz9R ]xBkR](T 2oJ1'1 bab/]v9 ` oy1 n2]kx \<t2f L<z5}vf!J"F5(?$,5g5.G35l&,F(&S"22b(/`" vy2& *J F$ALbDbKPPPfh7z>f>6+64C AzB Lz6&,Sj64'4.G34l>V6 V7&B [zbJS7&EB/ n3&g/iJ3b53b4 n&ABikC(z7Abiik?iVjj2 /
"!b@!{)i)9&2d"9#RC z 2f b9cA1!X59A0 /9'\ 0&!.(/a3NMbfeieieiCLeiX ?i)8I"+*"MV) @`&~
&}&`mA,y9MMv bO4S NSabHM:v !U8V`UC@SFLS
A FCL1 vgn `MX`E E=D*DqLD1h2;=19D>`;<!ED"a8RMol`F((-D)1X3,<n7LT"h-D/"cRMou` Xq"RNMw`!uq:4T>"-"Mw(`!tq:5T>" x;M#w2 bI> sq6+T"h/bbM/w<F(-)Ln{M 8XM<wFF(-iLn;N 8XSM?G pF(()Dn{N 5XMRwZ  OPT5R"aMYqE EqoMfw bHL `$NR"Mrq
XG ;X,Mq1;FB(r9+24;24;Mw(22 T"hIC O0IC;1;FB(r5+RMo"2q`Fm{|M(Zq`FpM;(u`I(hpKEid1. lp\4l=p5KMDw-XT}qRMoQ2uF((pKq:.,Mp8KMhw< Ub AEE TYS`R'`;`p4M?P E EqORMo28 0604 0553 0523 0506 0459 0426 0391 0373 0330 0316 0280 0261 0255 0241 0225 0212 0200 0196 0196 0188 0189 0188 0209 0210 0217 0232 0249 0262 0262 0283 0308 0328 0340 0340 0354 0375 0391 0410 0410 0426 0441 0459 0465 0464 0468 0488 0501 0507 0508 0493 0498 0513 0520 0509 0486 0496 0502 0485 0477 0476 048C #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;0190 0180 017; %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* `%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) s 00161 0161 R R%`z%@/^)9 fFV@+RlVRFR
J@%H/%)R@ .iRN%H1zJRRL RNRRHVZ@V^VbVfVNR^K)^HnvHnvHnvtu"by4{Lh<}uq^)U
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 .^^&* zpvh|l@Z ]^K >&\kJ \fK #K.ZBi ^8\rJ \fs %(&%H/)y&$%f'Lf(6b4(/I" z (f665(/(062"({q',"K7hL Ov66"JH/623`/62R ;&U`n'#&&"&%!&JMhM[MK#"f![hJ7+'D.'&b&f%.%JbJfM0@'b#'&&b"&&%b!%&JbJ[k@!H/Pn!"b"f#.# dll;]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|vy=KKJ7;7{9y Kil3 L<p0 CuK F6L(/B)6M" zFECE!fH$&DG6A /&F)BD'"i(/@?1)=6)9 && P}fgfh;o;{Lkn]#Ec&@/t$Tc$Tc( ~"b{ aK } .}`n}b
| rVj&cc8s 1 fF@(RzS6&Q0od@'#f(?262S (zD Fb2  3b2( # d b2bFnG(74"22c(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 $h/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)"j3<&#i'%j)&j'i'!j)"j#j)A%@b&?b'Ah'k0 LINK()Ig'A!2(vy !.Th@kxhAS=$$Tb%!@ ~(%b(f{H)y!(/fT;P]^1.n`@#b!#f" .A~"!b oA!fk0(H/){(6./+A-v+"z@.b+f-J,.-c!*b,-b@,c,,t+b,,7{,,E&:B`tip,f0-&Wy@"b&.&%b!/D%&.&&,b,f.-d7,"&b%1k]f-7J]%&&&,'&10}v%(/'(/&(/s%"DHopW)`$b$gj~v]$6]o=%H! Huyvy;{`<%Hvy$H/n8o8N79&:;f=(/>(/5)<88 $b$$b!8b 1z%!.9 /1&"!:b@!~@o^98@$&^6C{t8[W0WWWN ei6N" Lz /R,D0bnho hh nhh?biWnKi)h+VyOPC@@V{Ct @VzON
QTV4TAD TEPM /NOW EXT TAD (71 DCA TEPM JMS MOV1 JMS MOV1 DCA I TEPM /ZERO DATE DCA INIT /SET SWITCH JMS I (WRITE /WRITE DIRECTORY? DIRECT 144 JMP OPNRET MOV1, 0 TAD I PT 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