File FOCD.SV (save files (Executable program)

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

?;2KBBP<APNH$MHSEA(ZH&UM\+4:WNA=8YD-=\N4]NA=8
HE=DN, 7B"B"BBZ02AW"$F=P?<G=????????;F% ^LI)JF+ ^: !0=Q\I: !0)JS8AK9D8FHBX/HB2LY2Q;$H^YLHPMLYL2AMLYL: MLXH;EH/YJ2Q,^DR ^HJ!0HJXG2ALH2Q\IPG)HJ!0=QQL2C-LLKDX ^HJXGIYU2QLI2I\HPG)S)HF= ^;$!08AIL\IIJ\I;$!0;EIY(2K=Q,HLIYLLIYJ)JA%HIXIHI9!2ILA2Q>P-0HLXI2K$C)F??()
B]C DATAPLAN-FOCAL73?ML E?M?FOCAL.IN?M?ME A?M?E)1.3,1.4,1.3?MB4B^S TO=TO+WE;G 1.2?MCB(T !!"RESULTAT="TO?MB2G 1.1?MM?L E?M?D?M?BBBBBBBBBBBBBBBBBBBBBBBB?MC0DQC BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB?MDGDVC BBBBBBBBBBBBBBBBBBBBBBBBBBORL\D.:ORL\D)UORH;E2A+ORH
C^AMORH;%QOGJ)5Q/DGK!:D?BN&HZDBNU&=NT+RNQOBT2NLKOHUK(NLCLK2TMNLCLK	F>NL	3FNKJR&>NKJGPL+SNKJGK$<NKJGK32CCEB\2KTGNKH=K	GMNKDQG NJLAJNJK(3
NJK$INJ7P1;<NILXK7Q7NHL\D2DYNHL\D.DMNHL\?7BV+WAB\2KEU/<4BWLH=TY?BW??M?BBTZ&BMB0A?6DPD7X2KCBTM??V+WAABMBFBLBGC
BJBMA?0?KB.?AOB??><?B0=R=3?<?;?7BV+WAI=L=H/M02BHZ&NAP9BTDADYD
DGDMDSM,E(SEX;KLGMU(EMT\CRR+TGTMP/GF>QDW"K+E410153
Y$E/Z W*BB->.YINXR8AX>XVIJ&VJW$H0XHX2H0XW%+%(:D>%	*P3;B*>FB%
FH%7<(-?XRHR8A*&%	%	H0XOXP%&II&V%/%0+4*ZPV%-;XH5> %5H0XHX2H7%;%/<H%&%	%%=3*<%42QLU\0H0\UH1< \HHH8AX02A
Q2I-?AG%/%%<?<H++%
NG$+K5?%5H&8B9DX7$)8$GMT:K=$+H7X7;H7BX> 8PH7
<0%5? K>8TX5/RGYPFX<Q;2R&FQFR<Q;2R&LUW=<Q;2R&R:W?<Q;2R&XAMB[<Q;2R&^AZ2S.!A+%-%"O%"5H5?H+C%.8HSXI%:%2%5%
FE%5%7<(+I8AXXH5? +%9%2+I%9X7*%%.%5%
FG%5%O/LFHBQ$4%$%)NP/M%*/MBK0A%$KU[M+SK	[M$+;$4%$H68!H&> +P- E
TJO(S(H6>(S(/(S/2QLO2I//XL2QLR2I/4BKBPBH:I^H9H3FGFK%-%.%5HSXR%&%%=3<H- %)LD*GH6;%!%&%)LD<H*R%^%(G:A9%5%-PV%.*5H7> %,%&%*%%=3*%8<(*78AXXH5?%9%2*9%9X7*^HS*)XV- H5?(*7%**2RR%/%)O<.>R>%0.><H.>%%<:R>R>.>I0<(H6X[OMXJLJ=H+
8!H[> +SOM8 HJX/<HSMSM>/MC!8!X[H7C!H[>(S/H^> +3%&/-%+%(U==?/-H^FGFKCSCFCICDCGCCCACTCLCECWCMCQCRCOCXCY%3%[%^%\IFXZH%=HPZ?(PZ<H/8%(LE;2%&*Y%&*V%
LK%/%%=C%5!%
NF	8$GET4X%(LE99%5!%
NF%(LE96%52I%"=L%
NF2I%"=L%"O%
FG%O2I%=L%<8	888$GG\LX4XUTH%? - !%"<8*?%"TB*?IQ%!H-%!/!%^X-%^%
L/	%)LD8A- $)- H H HLD"FBFKJEJF9(RNF\J.BBS63\NN: XCXV%(K<A7PC*Y%
LKH6%!K?$P^8A%X%^%$*E%
NG%W*FPV%&%(LKG/%**^%&%-H7X**G;AH=%*%&*G%-%.%5H0XHX2H7%;HHXW$4X>PV%&%*%(<J>%	*;H08AXHX2%+%(8J>%	+FFZ<(H68!X[OLSLXJLJ=H+ H[> +THJOLX[L[X[,[SL;/LX[<H++H[<(;Z%OH[2A%
B2/IPX4IE%O$4/0J;J8KBJ9B=KJB	B&B:B%B"B!BB$B B,B;BM%&- %3B"BM%5X2%	H1X-%&%)O<*\P2*SH6A*Q%1*%[%^X-%\$+YQ<QI=*0PIPILI> *.HX<QHXH8XXHY9!HX>X+FHXXI2ILX8!H-> *	LI8!IQ> *(PXPX- =A<(+P8!IZ>0+P=AXX+XK%9!HY>X%5HYH8XYH-\XPXIQ\XPX2I8$GEU4X- +:%
DJE%$/+9)SOX6H62A
32I/,6NN3FJ$J]J*J)T>J,J,FGFK%5%",JA%!%&X.$B%3*T+\+%%
LO%3*!BJC?*%IUXXIFH/<(*$8A>(+UH/IM?H+5%1<H%5H/XTHTIM?XTHT8!H.?H+IH.9J8JK[Z:H.> %$8$G5TITXXHTH.>(+F%^X.**H/
<- %1<H+7H.%!HX[R2I%"HTX.%&%3+5+\+%*MDX%"$ITXXX^%X%$*OX-%&%)O<+.H-9DH6+%%1%5"A%^%)Q9/:%1%5"A%^/;PUPP-B B+B-B/B*C^B(C[B<B)C]B>B,B;BMB==O8!ZR$G*H/JN=H*O9DJMXJLJZ LJZ"<B%
<B8$G85TITXX"9.,NOCH/IM?./H/IL? R/./%^X.%^J.8!J-> %5%&.90B%./DPV%&%%=3+IHO8 HSYRIY8!HS>(-?2QLS\UIYX[L[<(+(XZHS9!HZ>XIRHZ\[HZ+Z8 HSXIIRH0X0HH8 HOXZHHIRXHLO\IPZ+5+EU[V(V^VXU:VTVUV,U=WBI V:VDCTCUCVCWCXCYCZ%3*	*Z*T%%<?%5I]X02Q]Y.*%-H0XH%4PSH5?%8%2.*%8X7*]IZXY
 CMIYXUIYXSHSXIH79!%:<(*?>X+HSXU%8< */<HR+HS8AXOXP.+LJ!?HK%K5H6<(+WH;%$HVH>>(%*/E!8 +GHV? +
H>>(8AX>+FIE+NSUPP+.HQAX6H6IC>(+TH6KX/!%<XQ8 XPHQ8B+%>!INXR- %-- J,FK2BG.G.2.G.AP?69)%%= .G%&*HB.H6II< RMIFX/H/?H.MH/IM?(RM.MXJH7B78B8H"+IB%*H7"+J*%$%*.\B T&
XZIHX\*3P\XZHZJF=*1>H\%*HZIH%*.+IZXXHY8!HX>(- 2ILX2Q
	2IK&XOXP%&%*%&%*%&%*PX2ILX2I"+%&%*PX8$GDX%WH=%*H8IFHX*?BCBDET<(H6K<<(XA8A<(+7K==PAJ*$3/(XAH=$3H<+5=2?-C
C?BJC=BL=1QY0!*U0"XNO<(*	0$XN
K8ABZJ>[*	2I0Y*(0\0X
<(*&IN^*N*JC>(+,N*X]<H0ZRD2B.DZU6[A: KAIJ< 8AH=[AKKAIJ> .+;Z[AK.+KZZRZRBJ$BH]=(+BZ+X]0ZJ+/AV50A$BN?> +M0BHN? +YKA0&XN+ KA^?J?8ABZJ>Z?0A/K0AHN> +$; K"+,XNINX70BKSYR8 J>XHJ>[J>Z?2I\HQR+8X]%"AM%1JH^UH=%*H7>(*JIE%*%,PR%7<(*RX7KH%*%,H=%*-?ESDHH8!HW?HHHX[2QP2*1
[AIC> *,8 X28 HHXHL[C\X12IJ5$.;H[>(+QL[C\J!> *%\[*&B%IE8!H6<(K[K\<(*WKGX[H[C?J< K?>(+SH[A< ]2I.;I]+M8BX18 X2/] ?YQP2+VH1%;X1/]Y"2Q\HMS9!HHJV2I>P/$%5%+H6X%X&X	IAX$- $+<(;Z%*- $+;- A $BM!"PIBYH
-TQ2I\U8 HUXUR=HS< *5I=2I
7I=8 J=K6	5PU2ILU=H*$K4	3+OXTHS9FHS8DHTXS2I/WC>9F8F8DX%	<C>H%/$G84X/\X%HEX$ O0]SD[%?<&$
O$* 8O
N$4K$<BD)HJH6J6D)HJ)JD]CKJZC4DWG0HFI	$WC^0DDWCFQDVQVL(DVP1L	DVPLLDVK6K$L0DVCKA7L\DUI$KSGDRK3FBDRKVE!9/DRKTA&NADRKTAJOIDRHKB&DRF GHCMDRFWR*DRA7HFBYDR(QDQ2B9HN$OFW:DDOE K$LEDLHI8DHLBS.DHLS!DHK:7LODHK7DQH%DHK22I	DHK0IPLSDHK0HF%-DHK(COM0DHK	%&DHK%J!LKH%?H	TX\
GK6=$+[U$G86>F=V>6=&=6>KH3VCE[VV=J?3VCB&>KV3VF=[VQKNKUH$X$P\- $G6=CN^=- )4)8DS:LB?<Q/)/J,,CGU6+!AWET]APBP)0$GF=&=6><K9&>K63VC3&>K0&>K-&=[V/,(TT
N??[D$\?;[F,,T
N&TWSS?=\W8*LH%?H0X\$G34V^H%?H*Q$GF^[434: [/.S	ZS/.\$G34F]S4.\+B+N	NH%=(%5$G7+V^H%<(- ?*1$GF^
+7+: X\IAX$8 O+X%X&X	8A
+$G,34G+V^7+(K%	+K"	+K
	+K\	+KY	+KV	+KS	+K4.\
??"?? !??UOCG?>!K:I?>U][A?=	&G9?<R^D?9%$O]	VVK$L$): /0C*)5G$G7RCNWRH%? *MH%?- $)8 X\$G[F7S$+$G87RGSWRF7RSJH%?H*%$G7RH\8 X\$GGRSNH%?H*1$GCJWR7R$GGR[N7R	R7SCT	SKX	SK\	SK 	SKN	RP\- $)- CYH
-TQBYH
-TQAYH
-TQ)4)8?4T!8MH"?9,4-L1(?=TY+1	^+UDLY7$GC:0 K8[:%VS:+*	9%V	9$G3:X$;(%X%- ?2/[$QX A&P[]H*B58B8HXZHZ8!<(KW[^H*<(*"A[\K^K\=H*Y: HZ[\8 H\=:HZ=H*4KW=:KXX[OZH[[
H[8!X[KVW
O
KY?H*6

P[+RW
P\>H*>(+/K^H\= +.K\=:8!H\8!XZH\HZ>(+$HZ8A?HH?
PZ+DIB%*+D8 K
[
*+E?6K?61(1,	[S^/
.8 H\X\S]+,8 []+LLL+L:	[IB%*RLL
S]+38 []+4H(?H$);/:X&X$X%X	[LX(H6J4<(*PIF> *Q8 X(&6H6J5>(*P"W.H6J2>(.W%0.W*	H/[K"7SL> %5&6*XH6IG?H.WH6J3? .WH6A* <;<&=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 /,/,WN/<A:K]%*H%?K\K^%*	
X\H$=H*W< K!?(*\$G	$8AH\*I$G	*8 *U
%
&K(XLH$9 [,KX$%VS,*%O&<(*8K"?H*48A\LP$K"P\8O&P\8<H		\LP$*8K(XLK	).K[%*H\=H8!X%H\?IFK^%*H%P$K
=+MK X%8 H$< ,H%	Z.T+CE?3B B->\A$?<?6?52;/K/J.7<7,273$IH%*/,2QLS2I/02QLX2I/52C	>/:D	/L> 	C%%= <H*B&?%%=R*P	C
B	OB8!X\KEX$	A	D$G4X%%<;*$	C&?	AH	H\X\$GDXH\<(.?*/$G";4X8A*4$G"74X8 H\X\*$DT?=Y&Y&Y(..W-:/LG-;]%
NF$GOY$+8!HA8A=+V[[KZ%*S[+R;/XJGC=B 2C/^E 2QLI2I/
H%X(H%?H$)/$;H8!XH"8 <X9AX"H!8 <X9AX!/+B+2Q]S2I/;>988N<(.Z3J3AN>(*OJABX H
B3H X J4B3>(*ZL X R8 H XMJ39F8FAD<(*8J5Z3N3<(*6Z3KEXLIKYRLM\LQR*..3D5<KD*<KDXM8 H XLIKYRLL\MQR*?*A
	6	9*A	;	:	<	8*AH%> +VX$X%X&X	*A%"$%" %$$+=H+8 Z38H%> %5%"TB%$%<8+1%"<8% 	7R3+,*A	7*A3+8;]6T/,70/[5G5F9C545N5L;H	8!X	H&8 <X9AX&H%8 <X9AX%.DH%<(H&>(+JH!<(H"<(H>(.TH 8!H$<(*<ZDJD=8![SKSK"?H*>JD?*60SS*2*<8 H X 	TSS*9RT.TH ?+EH$?.T+GH$?JD? .TH X$H!X%H"X&HX	.T
,W3$-:	VH$?(+,8AXKUX "TP	+(P&<HP%X		WH&/XX$X%X&+(;H%=H8P8HX%H&8HX&H	8HX	P$/0/08AH P?H	"Z=Z<Z;Z:H%
&H!		BH"		CH&
&H!		CH"		DZ9Z8H
&H%		DH&		EH	
&H!		DH"		EH		FJ=X%J<X&J;X	"=8.A5J-AYA5P($)	$8.=H!>(%5H 8!8AP?	"	%"=/O4AH$X$9X%H!?8 X(H%<(/?H$)H!<(//P3+5Q;]:1:.:%/[/2C/4K5K/[/FHBBM&FCL/0$+2C/60A
C$CK<8<(.Z,Z+J/Z-9J,8HZ,J+<P*P9J.8HZ+R-*HJ,8HZ-N8!J*Z,J-9N,^,R,8DJ+N,^,<P.R,V,.*&8>?4?]ZZ,J0Z-<H%V9HH	Z+8DH"H&Z.8DH%H!<P+JX%J+X	J.X&:J,8DZ,J8DZK]8D[]R-*7K]X%JX&J,X	.1	=5H%<(H	<(H&>(+3H%9D?H+0%V9 H$X$+		>5/]X$/]H%=H8!?H	</5703$-:<C$G2<H%?H%5H$=H8P8HZ8<XR88
7Z9Z:Z;J=<(J>>(*5$GB<Z8J8: H$X$H$8!J8> *1H%8!J9> *1H&8!J:=8!8A?- $G28*WX$- XM=C+&?)H9B96<2AG)2AG 2IY<2IN2IN2IN2IN2IN2IN2I<2IY/2IY72IE[2IN2IN2IN2IN2AR2IN2IN%% A C7,BQSVDO]K;?%?0A2K,V9,FC$5>I"F F&F,F2F8F>:K/DP$BM62.K(6AH!B*M0S	0=TJ?BM9/BXAJFC= FUQSVI	BZ?U=F
;D/B=XWG%0J?<4A?:96PC3<Q3V+BZDU?:FS<7HFHI0*D2K0A->2K*%FH6$"$ $3>H*I; X(%=$!I<<(-;I:> $5-9H)>(.XI8$%B2K/K?> *]IH0B2J$QDE\$5X)0A2II7]62A.XC>SQ+NQH
Q;&[QS2,&%5?;K1J)>X+[0B%"&([SGR)%0A,&
/S/,&9F8FX
H
A4O0
0S0/QX)IH0B2J$QDE\>$5KF[/KF[0;&[QK[2/%LA0A2IO=> +62A0B/3TONC?Z%3%2;C*!/?%?$W$$E\H,
>H+
=	<; X)H-YH
;H)>($52IP(J1
:K92K]60A->I7*]2K%1.;S[/K0B$;B*?>H([0AR/J.[ZI0[[OZKOZA4[YSZOZKOZSZA49J8JKY8J8JK*9A/<(*(K8< +VX*2IK7].I82K.	K6XZ%FH6$"$ $3>H+%$!$GE?KM$58FA"2IH\OK&/[HYFDK0?&KK%B)C%C1CGP8CICOCCCRCACT%3%26B*^$5%?H,
?; X*; 
>H*>($5K=2K].P(K<
;0A->K:*WLK<Q: 2R&%QLC<Q: 2R&+U<Q: 2R&1:<Q: 2R&7AMK2<Q: 2R&=AZ2S/A+O9<(+NI-? +N[
2I$%NG$4K8<X$5I,S
=H+O<QK
8!I,<(+[I+	7=AI+	7/62IM*>(,&$TB2I$$$2IO1?,&2I$%I2,&=MTTY8FA"HZH+>\I WAES%*1:E[D/0K?X\X]"NI)> .$ HWX\HX*DXWXXXYI([^: [
[ %F<H$ H6I	<(/>I:<(*<I&>(+EQ.N<XI%8A"+*Y[QK I:?*YK 9HK^[!KQ<P8BO!
!S .+HW> S
$5XZ$ S^I$*V$ %FH6I> .NX($ Q.N;+LH6I"9I,<X+\I!9PI <PSQ/QLG2I$%LI/"0B2A2J$QHI
XQ/	;0B2AHQ?H/02J$QIJ/XQ/0+	GA/SNRZF"??>[*QPLLLX-HLZO%5.RFH\^FRFH]^FRF%^H\ZH]Z$NF8AZ%2J$QA$59J%I
>X*6J%C	9!NF>(*6Z%%5J$*YRFJ$^FRFJ%^FJ$X-.N?R?XPN?R?XLN?R?XMLL8!LM> .?PP+IR?.?%3%=I]XZ%\I([ I&[
8A0B2J$QBW$5X.I[[
+\>H6IZ> /($ +)LH2I$%I.S///CSCCCRCDCGB CECL?/6,4%3H6$"IYXZ>H$ $3<H*F$!$GK4Z$5LWNBNP*OIM^>KR%="Z(R%\I(Z72IM+<Q%^%X-2Q=A
?=ABU9H[]K]IWBU9J8H[\K\H-2A2J$QCW$5K\9J8J[CH-2J$QDW$5KC8![YJ7YGH\[ZH][[J7[VK>K][T$2B([.Z$!2I]I2A$$\$!X+$!X,%X-/+NR%V2K->?/K/H-[]2IO]2A/0FOCALTM ERR QBG8A8A8A2I]U2A%2-B*N$5%?	??$52I$%S9%?H,Z32QO>K0C08B9JH+?H$52I;$MU> *)MI2A$"IT2I]I2AH+8!8B9TK=Z1$2JQB([H\
<H]
;H,YGH+
:2SK2O9[]O9< /]O82I]+2C(RIG< +W$M8$$WK7X\X]	6IYXZIG$"O:$"$MZ*ALM8!X
O]S]XKLK=H+/H
> +HKO]X
L
X
,
S]>/]JCCSCTB LZ/SBGBBMYM[MZPIM0; X(%=%S?>[G1*LRR.NZSRI(Z\%^%XNRZ[Z]H-2J$QW*JJ]X+J\X,*I%?J$2K
?/>%=%^%X-%\2JH-$QDW$5YG(RH)>($5%VK=Z*LOZ$N$R$K<Z?N$2I^?2AS/FFDM,BFT
UW[
0D[ 2K$C+!;K 0E:K
,BJHA8+&
58+Y8++
68+Y8+0
78+Y0GS4+1+YZ)Z/Z5G%0J>&DBWW"$4Z"J"C?9FO>$"J"A48B$"$%R&: ZW$!$%R/RW*\$!ZW$V2I$$$,&$!Z"2I$$$$V8AYL,&H6IR> ,&2I$%NF8A,&[:K:8!IK>(,&9UK:IJ?$5NH	>(+FK48!K:?H+FK4YK*0;K:<Q	=K:YKYL,&IL>(/N;PIK<Q	=: O>XJIQXP\JPP+[IK8!K4> /N;GK4[4/NQLNH	>(+7%3ID0B2J$QDTZ$50AYJYK/
M[S4TTRC?<X*HIKI,8 O?:FI28HZQ=AJYZS%30B%EV?>H([0A.%3IJ> %PK>XZ%2AB*7<H*3J0]2/=ACT.$5;UZ^%?%O?$5$W$$TZH,ZY9H+IW<P;J6YJJ^9HX	
?<X+M$%SF
<2K0A->IJ> %P%V/QIJ> %P2K->H]IJ>(%<;&-?U"[7
9%;<H+2S7+.: [7+0H]	8%<+&S7<H/	8+2V0V<?9.S4PLFAS:

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