File FOCAL.SV (save files (Executable program)

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

?>2CBPN OL<H4$?D(H0ZDJ(0- <L%$WHHHDH(&.P8H %D!<D+ DH%8JLX(&H0JD8(D,JD8(DH4R*(7H,XXDJ L%D.D8,DH]4R*,7H]TXDJ H&0JHX8	1H	L=H6TH< (H	 <LH8&L(L+LH$%D ?H+T0HW9DH $H$\+H	L>D64/HX<$H]<7 % =L8<!LHT	H/46L9,9I<PLG02 % ?.7V6.MRJ.5B4.MJJ.2F1.MJJ.3F1.MFJ.3^1.MRJ.0J7.MR
.0^4.MVJ.4F0.MZJ.5R5.MRJ.7B4.MNJ.2V2.MRJ.0Z2.MVJ"262.J^2"065.JJ2"066.JF5"6*M.4V7"1*M"0*M7^KA",6 2J7J7P2 "864.J\*3B,3C3A/LJ 6,KW3IWT2MFJ+RCG"(616JKA7G2 .1^62MNJ3A3L* 213IO2MFJ+RCG\7Y2JGC+LCL21&,O7H6JKA/GB >G,C,CVCDKA48YO<BZMTGAZO86CPD7T?0ZOK,TLV>V6ABMEBLBG
CC
BJBM<B?B.?A>?0A?OB??><?B0= =R=3?=?;?7?B PXQ-/M02Y ZFY ZOPOTGEQM5D?E\E,R<UBKLGQT5Q-TUCBR"S0DKMOM[P]G$GP2WVG	<%E[DDGD)=?9>H->I
XR8AYXVJVXKJU%)IZXHX2IZXW%*%	;D<%&*OB*ZP%&%&IZXOXP%%H]XK%0%1+2*9PV%,ITH5> %6H0XHX2H7\H%0<H%%%&H6IN> *0%5%.)?% FILR<()?XRHR8A*Z%0H6IJ>(+RX^	9H	C:H&> %6H	%/8DX7%1%%%1+ +*H,9FH,8DH7X7%%%1%6+*H,H7X7%%%1+ <H%69H7AD> 8PH7AF<0%6> K;8P8DX5/B.? PPLPHI0WUM+WU(&P( *
*<WUWUWU9F8F8F.K%,HR%"%O%5H5?H*3%-8HSXILI%3%6% FF%$5LR<(*98AXXH5? *0LX%3*9LXX7*U%-%6% FH%$5%$OLKXR.>FIX98 HH9\K8 H.?HKXKHK9!HY>X%6/HOQX98 HKQ8A\K8 H,9: O\XIS\IOHIOX9LI\KP9+%IOH/\: O,S,XIIOX9LK\IP9+3/,I,BJBOBWH=I
WUH5FHFL<:%,%-%6HSXR%%H6IN>(-!%(K>*HH6=%"%%%(K><H*SLK%	G;A7%6%,PV%-*7H7> %+%%%)H6IN> *$LS<(*98AXXH5?LX%3*;LXX7*
HS*+XV-!H5?(*9%)*4%0%(O7/H6SJB>(+O%1/<H/SS/OQXJLJ=H+ 8!H6> +TOQ8 HJX,<HSQSQ;/QAD8!X9H7ADH9>(S$/$H^> +4%%/.%*%	7>\B/.H]FHFLCSCFCICDCGCCCACTCLCECWCMCQCRBJ%4&
PK& IIXZH%=HPZ?(PZ<H/7%	K?;9%%*X%%*UNAP	% LC%0H6K]< %6HX%"% NJLKXX$G4X%	K?9?%6HX%"% NJ%	K?9<%6%PX% NJ%PX%O% FH%$O%$PX%$<8LKXX$GDXO[4XUUH%? -!HX%"%<8+A=C=T%TE+AIS%)IS%)LS<(/*/+F9F-ISX7//W!$+:-^H!H!HKDPFCFLJBJC=CRDF]J.A?M331: X.%	K9A>P.*U% LCH6%"J-%)P^8A%YL
X6*B% NK%X*CPV%%%	LCG;%)*Z%%%,H7X**DH?$38AH?%)XV%%*DB:%,%-%6H0XHX2H7\HHHXW$4YPV%%%)%	>J9%&*;H08AXHX2%*%	9J9%&+F<(H68!X9OLSLXJLJ=H+ H9> +THJOLX9L9X9,9SL;/LH?%)IH%)/(W5><B<B0&0V0!+/:/,J;J8I,KBJ9B1KJB%B"B!BB$B B,B;BM%4B"BM%6X2%&%%%(O7*VH6ARH1X1%%%(O7*V*Q%2*
H1X.&0LKX1&/$+[OH0XXHX8!HY?(*1LX8!H1>(+EHXH8*!P	NAHYHE9!HK>P%6HYH8XYH1\XPXKO\XPX$GE
4X-!HXXILI8!KO> *,PXPX-!H6IL> /O%%+P=P=GPH6IM> S[H6KVX,H,?H/[H6KW?(S[/[$GKX(3X[XX$-^I
XRLKX9,9J JYJ(J%X*J*J*FHFLH,%"H-%"H.%"JA%"%%X-%4*W+Z+% LG%4*$BJC?%6I
XXIIH,<(*	8A>(+SH,IQ?H+3%2<H%6H,XTHTIQ?XTHT8!H-?H+HH-9J8JKYZ<H-> %$$$G5UIUXXHTH->(-!LKX-*-%2<H+5H-%"HX[P%HTX-%%%4+3+Z+*PDX%$IUXXX^%Y%$$*RX.%%%(O7+,H.9DH6+%2%6"ALK%	Q42G%2%6"APK-^B B+B-B/B*C^B(C[B<B)C]B>B,B;BMB=%TE%$$JY?H$)$G82XIUXX"	.WNRCH,IQ?.]H,IP? R].]
KX-J\LK8!H,> %6%%.	0B%-.2PV%%H6IN> *7HO8 HSX/I[8!HS>()?8LS\UI[X9L9<(+WXZHS9!HZ>XH/HZ\9HZ+I8 HSXIH/8 HSXJH/H0X0HH8 HJXZHHH/XHLJ\IPZ+(*3$4X6%(NS/-%)/-U[V(V^CYVXCZU:VTVUV,U=WBVYU7CX%4*
*R*KH6IJ< %6I]X0][H0XY)?%,H0XH%5PSH5?LS%3*OLSX7*UH0XY-!I[XUI[XSHSXIH79!LI<(*6>X*7HSXULS< *&<HR"HS8AXOXP."X?HHFK/H6<(+NH=X6HVI>(%).<X8 *>HV> +VI>(8AY*=IH+EPP+%HQARX6H6IC>(+KH6K./XLOXQ8 XPHQ9J8J8J+\? >!8LU\0H0\UH1< \HHH8AX0H0XY/0J*FL2BG/G/2(AP?6X\0ZNQ.PV=V>
B<B<BH7%/AR""IB%)H7""K.X6%).UAFXZIKX[**P[XZHZJK=*(:H[%)HZIK%)."<(H6IN<(*>H?$3.5H?$3H>*<IH8!H6<(K*IA<(/-K+X9H9C,K.< K,>(+ZH9AR< ]8/BIR]+TP2+/H1\HX1HK9!HEHH>P/]%6 C?A XD> %/X18 X2/]BB2AU-2AU*+?,A]AIH0CFL8==Z8HZA0!*U0"XNN5<(*U0$XN^5J58AAGJ3Z50Y*&0\0XAF<(*%IS
2J2JB>(/ J2X\<H0Z0I**0JX
2$1A8JA9DJ0A,YPYPYPH\=(*7Z>.<TL.6Z60AN4> +A0BHN> +LJ60&XN+SJ6^4J48AAGJ3Z40A.>[V: KVX70AHN> +[0B+"I,0ZIEX/PN8 J3XH8\HP/+)X\J3Z5J3Z4:0&/4K%+PRLR<(+?X7IA%)%)%+H?%)IVY*)?H2> *LHH8!HW?.!J)%)HHX98P2*"L9ARIC> *
8 X28 HHXHL9AAX1.!UXL9AAHF> *X\9*YC\H0XXHY8!HX>(-!LX[NKMXOXP%%%)%%%)%%%)PXLX	L%%%)PX$GDX%XH?%)H8IIHX*+T"YM()2ATU2IO: [L?H+3 [BE2AY92AY	 [AD2AT\ [AD2I+2(	<GU,=>GO : 	,F7.2)*"2A
8+?\EH7TXAP\T\DW(8 %<HW> %<HO>C FOCAL-8   ?M
; [AJ2AUN [AI2AT
8  [BF2ATX2AN0S [AG2ATY [AM2AT
 [AG2ATR [AN2A0S8  [BF2ATX2AN0S [AO2A0S [P [AG2AT\2IO: [L<(+-?H/98  [BF2ATX2AN0S [AO2A0S [AG2ATY [AI2AT" [AG2AT\ [AH2AT"2IO: [L?H+-/8 [BF2ATX2AR,0S+?\84
E\!X"PUN\TQTX8 [BE2A!>2A * [AD2ATX [AD2AT+ [AD2AT. [BF2ATX2AR, [ [AD2AR5 [AD2AT1 [AD2AT( [AD2I+B(3X,I3,F9.1,F9.1,I8,7X,F7.2,2H %,9X,F7.2,2H %)8/= [AG2AU	 [AI2AT4
<2AW<O<8!O;?H/: [BF2ATX2AR,!] [AJ2AR5 [AH2AT42IO9 [L<(/8?H/8 [BF2ATX2AR,!4 [AJ2AR0+?*Z"DP"FTQTX^.A8 [AI2AT48/> [AG2AU$ [AM2AT4 [AK2AT% [AI2AT4 [AG2AT4 [AH2AU!2IO= [L<(+H?H+H [AG2AT4 [AH2AU^2IO= [L<(*??H*? [AG2AU[ [AI2AT7+P [: 8N8!KA> /G<H$"XYX]XRKN
O/G*&$& [BE2A<2A$ [AD2AT7 [AD2I/;+?&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*ZI-K8Y>1"0?1*720J3&0Z;\LP/*C88K8X8 17:19>(*VK51!K61!:+L1!OB8A>(+L.!IF^ +HK)888+L;,K7>(*5;$K6>(+LI
4KW
3+KW1+L0&00000000P/0!*6+LK29? *]/GRLK*
+/G<B0&0A% DQ0BK09<(+$?HK6IPX/K,XIK-\IP/+[K09?HIDK.K/X]+B<B3K3G)?=VDAWUE0&OXFV1PD3RV,GB B$2S$X1% L
PXLX/9 [AK2AU[ [AI2AT: [BF2ATX2AR,&Q [H%?H	TX[$GK6=$+[U$G86>F=V>6=&=6>KH3VCE[VV=J?3VCB&>KV3VF=[VQKNKUH$X$P[-^$G6=CN^=-^+R+VDS:LB?<Q/)/J,,CGU6+!AWET]APBP)3$GF=&=6><K9&>K63VC3&>K0&>K-&=[V/,(TT
N??[D$\?;[F,,T
N&TWSS?=\W8*8H%?H3X[$G6]V
H%?H*Q$GF
^]6]: [2.S	ZS2.\$G6]F^V].\+B+R+N	NH%<(%6?H%6$G7.V
H%<(-^?*4$GF

.7.: X[HEX$8 O.X%X&X	8A
.$G/6]G.V
7.+K(	.K%	.K"	.K
	.K\	.KY	.KV	.N].\
??"?? !??UOCH?>!K:I?>U][A?=	&G9?<R^D?9%$O]	VVK$L$): /3;E*M*\+E*]PA%G8$G3RCNSRH%? *MH%?-^$)8 X[$G[F3V$+$G83RCVSRF3RSJH%?H*%$G3RH[8 X[$GCRSNH%?H*1$GCJSR3R$GCR[N3RR3VCZVK^VK"VK&VKNRP[-^$)-^CYH
.Z]BYH
.Z]AYH
.Z]?4UA8MH"?9,4-L1(?=TY+1	^+UDLY70%	)8 [AG2AU	 [AI2AUE
=2AW=O=8!+?RTXA8[\H*%/ARXZHZ8!<(KV[]H*<(*!AR[[K]K[=H*X: HZ[[8 H[=:HZ=H*3KV=:KWX9OYH9[^H98!X9KUW^O^KX?H*5
^P9+QW^P[:H*>(+.K]H[= +-K[=:8!H[8!XZH[HZ>(+HZ8A?HIE^PZ+CIB%)+C8 K^[^**D?:G?61(1,	ZS]/^.8 H[X[S\++8 [\+KLL+K:	ZIB%)RLL^S\+28 [\+3H%X(H%?H$)/9X&X$X%X	[LX(H6J4<(*PII> *Q8 X(&6H6J5>(*P"W.H6J2>(.W%1.W*	H,[K"7SL> %6&6*XH6IJ?H.WH6J3? .WH6AR* <;<&=U= G.H	XH&X"H%X
[JMM[MKKXX"X![KJ.7H	9DX	H&8DX&H%8DX%KJ8D[J/M;H	HX	8DH&H"X&8DH%H!X%8DKJ[J/[;H!=H9P8HX!H"8HX"H8HXP /,/,(A0GA8K]%)H%?K\K^%)	+X[H$=H*W< K!?(*\$G	$8AH[*I$G	*8 *U
%
&K(XLH$9 [,KX$%WS,*%O&<(*8K"?H*48A\LP$K"P[8O&P[8<H		\LP$*8K(XLK	).K[%)H[=H8!X%H[?IIK^%)H%P$K
=+MK X%8 H$< ,H%	Z.T"CE?3B=B->\A$?<?6?92=/K/J.7<7,29-9IK%)/,W1PHW1PHW1PHW1PHW1PHW1PHW1PHW1U3> 	FH6IL>(*B	BH6IM> *Q	F
E	COE8!X[KHX$	D	G$G4XH6KA> *&	F	B	DH	H[X[$GDXH[<(.?*1$G"=4X8A*6$G"94X8 H[X[*&DT?=Y&Y	Y(<;..W9;/LG.;]?H&D&HP?+R;&&DIE[H
?+4PZ+TS+THKK>>X%6)?BJK=8 [=9 X
K=< 0L> K?IVY*//3FI8 X
0NAF<(+RISX6/Q%/!$;X	XN<(.Z2J2AS>(*NIDBX IFB2H X J3B2>(*YL X R8 H XMJ29F8FAG<(*7J4Z2N2<(*5Z2KDXLIOX/LM\LP/*-.2D5;KC*;KCXM8 H XLIOX/LL\MP/*>*A
	5	8*A	:	9	;	7*A888X$X%X&X	*A%$% %$$$+=H+"8 Z2XH%> %6%TE%$$%$<8+0%<8%$ 	6R2++*A	6*A9+8D;]6S/,7//[5F5E9G535U5K;H	8!X	H&8 <X9AX&H%8 <X9AX%.CH%<(H&>(+IH!<(H"<(H>(.SH 8!H$<(*;ZCJC=8![RKRK^?H*=JC?*5/SR*1*;8 H X 	SSR*8RS.SH ?+DH$?.S+FH$?JC? .SH X$H!X%H"X&HX	.S/
	)H$?(++8AXK(X "SWP	+$P&<HP%X		*H&/TW-99;X$X%X&+$;H%=H8P8HX%H&8HX&H	8HX	P$////C
C?BJC=??8AH T?H+[A[Z?Z>H%
)H!	*BH"	*CH&
)H!	*CH"	*D*3Z<H
)H%	*DH&	*EH	
)H!	*DH"	*EH	*FKAX%KX&J?X	AX	.D [AJ2IUL [P($)		8/AH!>(%6H 8!8AT?+	(A/S4AH$X$IT%H!?8 X(H%<(/&?H$)H!<(/&/T5P;]:1:.:;H8!XH"8 <X9AX"H!8 <X9AX!/+H(?H$)/;<(.Z,Z+J/Z-9J,8HZ,J+<P*P9J.8HZ+R-*HJ,8HZ-N8!J*Z,J-9N,^,R,8DJ+N,^,<P.R,V,.*&9B?4?)ZZ,J0Z-<H%W9H"H&Z.8DH%H!<P
DX%J.X&:J,8DZ,J8DZR-*7J,X&JX%.18D[]R-*7K]X%JX&J,X	.1	=6H%<(H	<(H&>(+3H%9D?H+0%W9 H$X$+		>6/]X$/]7/H%=H8!?H	5/6-99;8$G2<H%?H%6H$=H8P8HZ8<XR88J7Z9Z:Z;J=<(J>>(*5$GB<Z8J8: H$X$H$8!J8> *1H%8!J9> *1H&8!J:=8!8A?-^$G28*WX$-^XM=CABELLEI[WH0WHYWH]W+N%%%)H6IN> +LHN>
+R0B-DXZHZ8F8F(%/8D(8J8H((:H?%)/WC.IK%)HZ/(GSICFFBASICUFBASICTM\JR+7	C/%APZ*))9$ZAJ*P	8FJALPHA!R$IXCAQR3I8CA!NH:HE= 9 0IA.9:1\KHR5NLAEMMAEPHA!RTLLBE$E
,LK8	6 HDH =	XKN1.A)B;> !E\C?=<(0KO/H?<8BTN0!>A,CO,(3< OTK3<>A,CC;=<!(BN<!<(0KO/HG<,HU 1PNAHUXH[!IE\P"T[A E\VAD5,HU 1I6A RXH[!KE\RXT[E E\BAF,H

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