File DHKMCB.SV (save files (Executable program)

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

??2CBPUZ(=L64.D:HD=T+:(H70KH=,DHIH=,HD8+AH?LX= LR4CH><(L2HSX/T2=DH=X-=A&L(NDZH HNL8 JJ(8"8N 8"HR( ELA0Y(.LJ0]D(,*LJ4^DH<JHIP]^8.H$8
DN4?DCH$8X X9L8 FHF0ZH$8XH 0JHR8  Z(  (8L8 JDJ,$HJP D[4$.,DDAHJP<L^\.B0L6(.L,LOD[L^DC8OLC05(L/L= PD8L8 JJ(8	<4L^LCH<<(LCHK=,L1KD	L4^ +;H	,?H(8DK,
H
<KH
<
H
=C<HB A
 L?<H? =BA ?D!4FH SDF(TADD<L?8	*<F?.D0<D=D=D
(<H-<JZ8.H. <*<VH; >D*HH-8R*<MH:>*< L;$	HK\8L9\	HR8RHO8;L,ODK<6(ABC\ V EM ERRHB?;OL=LDB$=&$A$I& &7$T&,$7$]$*" %2 PHDBAOMO\O%???>?=?<?$GHPX (08?BGBJBMB  02AP"PRARR)R(NF
N-F>I3? JKWC3G?I6>GB.D??:?&<??6?>=RB = \8/?/>/=/</;X>0B2TI
ZJ2A	:	9: X8X?: X;I&
8	7$ AXYA$ AQYB	6IB> *22T8!IA>(/5X8K4
3IBH9YI-IK2
1IB8!H:YI-I	6IB?H+BK0
3IBH9YI-IK2
1	6H:YI-IK/
1	6H:YI-IK2
7IB8!IHYI-I	.IK-Y	,K+
3IAQH9YI-I< +U0!+],[XYHY8J8J8J*HY*/ DXOB0WYCHB<O]COOLB+QWO)O	J2VTVNTNONJNE^	?"HH8>(*>	>/=+Z;X<IMX=YDH("3IRYDH)"3ISYDH*"3ITYDH+"3IUYDH,"3IVYDH-"3IWYDH."3IXYDH/"3P=/<H<> /;X8.H> .3P=<H.H2TYC	:P<.32TYCK9XOYILO>(+HQI+CII9D8FYD	8	7$ 	>(+U$!<B	6$ &> /5+M	8	4$ 	
(+$!<B	6$ &> /5	>/=+[OFBL"	JV		N QWQ*HN	X?:2TYCH/> *RIXYDYJ	?*R	>IJ> P7<H*OH.> * IWYDYJ	?* 	>IJ> P6<H*]H-> *.IVYDYJ	?*.	>IJ> P5<H*+H,> *<IUYDYJ	?*<	>IJ> P4<H*9H+> +JITYDYJ	?+J	>IJ> P3<H+GH*> +XISYDYJ	?+X	>IJ> P2<H+UH)> +&IRYDYJ	?+&	>IJ> P1<H+H(> +1YDYJ	?+
	>IJ> P0.+0?
<?= G?CX>GB?&0CK/JN 	?	>	=	<<H/;2TYCH7> *TIXYD	:<H	9	=	<<H/;H6> * IWYD	:<H	9	=	<<H/;H5> *,IVYD	:<H	9	=	<<H/;H4> *8IUYD	:<H	9	=	<<H/;H3> +DITYD	:<H	9	=	<<H/;H2> +PISYD	:<H	9	=	<<H/;H1> +\IRYD	:<H	9	=	<<H/;H0> +$YD	:<H	9	=$ 	>(++$!<B	8$ &> /7	<*F/;,=2I\!+1J
BL"	N-N EZN	FX,WF$D8;IDI
Z=J=
?O?
>O>
=YJH>8H>X";H>8J>X	<H>8F>X	;H>8D>X	:$ &> /9R2.I&Z2$!*-$VJ3R1J1$\% %5.DHKMC-B PASS X?2AH?\?P?*>H?8!L?> +NP?+BICI
[L2A.;H?YFL?YEICI
[U2A	8IDI
[Z2A+GH\>(+!SW+XOWX , %1\KI3$SI0XOLO<(+T$S+*%A-/H4%)H3[=+:HYR:BLMLLLMNL%LBX?2AH?8 \?P?*CH?8AL?> *TP?*HICI
ZR2A.H?8 YFL?YEICI
Z\2A	?IDI
Z!2A*MX?2AH?ILX?H?\?H?> *&H?ILX?H?8!L?> *>H?> *.ICI
Z<2A.H?YFL?YEICI
[E2A	>IDI
[J2A*6X?2AH?ILX?H?8 \?H?> +OH?ILX?H?8AL?> +(H?> +XICI
[&2A/LH?8 YFL?YEICI
[02A	=IDI
[52A+ %SAVE ERRORT/T!SS:JYY&J^/?:JZY&8A/?;J[Y&8E/?:J\Y&9Z/?:J]Y&9X/?9]]000C2CIC8!ID> R . $ %> R	.	:YJYGI
ICZ<I
IDZ>J<[AJ
ID[J2AMG2A]GMG2A8!MG> 	>QG*<IJ>(2C.-P)P*P+P,P-P.P//LP.P-P,P+P*P)P(/]X/X.X-X,X+X*X)X(/	+^IA9J8H8!/)+$/ J*%7HT9J8J8JC?<(K?8A9HT=BE;NZ
RNZ RIY8 F
9J8J8J"TR IYF
"T.Z!J!9F8DCUJ!CUKV^ .T:HR?**J"
?/>: J"XHLHZ7J79J8J8J"8J7"8*-AY<(,HIP< +AIZ+QIO=+FKT+QIN< +KI[+QIM< +PI\<HKS$^.8B%C GG00HT> /=% %PROGRAM IN SELECTED FIELD/=HT> /=% NONE/=RY=YES OR N=NO):OMBCBL W V0B$ $>(*MHT> *KIZ$^$D.$ > *)2T8J8HAQI^Z"JILYK%!AKRHT> .(% %  .($ ">(*3$!>H/?: J<B:$D$ &> />
QJ<H*;:J:]KD]%<H\K=
<$ $> *F$ > -$P;<H	;-"QJ<H+T:KS]K]]%<H\K:
<+G[.IB$($*$	+,H:[.$
>H$]$^S^F/0TTA REGISTER ERROR2UH\\1BLT$VTG: O?$\	>/=SW0=1-HALT AFTER ERROR-ERROR DETECTED AT LOCATION QJ<H*":J!]J+]%<H\K<
;/:QJ<H*0:J/]J9]%<H\K9
;/:QJ<H*>:J=]KG]%-"\^HT> /H% %PR LOC   ADDR   GOOD  BAD  TEST/H$-I+$"$ $]$^UG(/(V	3;K1[2K0Y=/X????5\QH7IF2K384SG\\3R3"	RHT> .% %EA8-E EXT MEM ADDR TEST.HT> *$% %SETUP SR & CONT%$!<B	?.THT> +C% %NO RELOCATION, PROG IN STACK 2T9F8DK>[B% : X;.	HT> +V% %PROG 
ILL RELOCATE: X;/F;Y2I	=2Q	=2Y	=2!	=2)	=21	=29	=/Y;A$+IB$($$;V$+$
>H+<$+$
+<$+$
>H$]$^X0"	;2TI
ZHIL^MNM2A>(/?Q.XNHT> .O% %I8A$^%  STACKS IN THIS SYSTEM.O$^I]$^.	:H(X0H)X1H*X2H+X3H,X4H-X5H.X6H/X7.,HT> .?% %STACKS SEL	D ARE H/> +SK>"	H.> +XK="	H-> +]K<"	H,> +"K;"	H+> +	K:"	H*> +,K9"	H)> +1K8"	H(> +6K7"	.?B0B1B2B3B4B5B6B7W*$ ZFJF^FNF*$ Z[<B$ Z\J[Z]J]^
N]:J]8!J\>(*LR]*N<B*G$-Q0*^$.$"$ >H*6Q/*[;XI?Y3H?$-Q.*,$"$ >H*6Q1*D$]$^Z(;A$+H?$(; Y+I!Y.$$Y3I^Y/;H?$-Q/+G$.$ >H+ Q.+BI!Y.I^Y/;VH?$-Q/+V$.$ >H+ Q.+R$]$^Z9$E/$\IK$W$
$ KR+;/,LO-[6K6
?K6
>S-/-I580!+90&:H<9291ID9J8HI^ZR%!?\S%!AF\V%!AE\YHT> *9%       -$ID9J8HI^Z2%!AG\3HT> +U% RELO ERR AT % : X;-$O?AQ<B:IK<B:JRAQ<B:H?<B:IF<B:IE<B:J\9J8J8JAQ<B:-$O?AQ<B:IK<B:J2AQ<B:IG<B:-$IV$(I,$)$)H>$-$.$ $]$^]X"3;A$+$$I+9H>X; Y3I3]ZI+$); $)R"0B$!*LXT: 
?K>
=	<K;ZH+BHT>(*SHPC:IQXP	9:HR?+BK8
=K;
7K;
6K;
5K;
4K;
3K;
2K;
1K0C/K.
-K,C/K.
+K*C/K.
)K(C/K.
	K&
%O%
$O%
O%
"O%
!HT>(/ O
Y&K^X>0B2TK][M2A/\MZY;I;$ $]$^^="3;A$+$$I+Y3BM2A0CNYNM
L5LLKFOE$EJ^JI$I/E\E	EN*A?EYELDHEZCSBLBK$F !?8!WJA$DJ10B:JRZTJSZURU*GRT*E2TK?ZN2A2:	>.?90B:2TK?Z^: JV2A2:/=:HQC<8JAQ<(*8ZTHR?*1JTK;>(8 JTZTHPC:JTXP.!:$ C9ZTJTC8ZUJTC7ZTHR?+QJTK6> +KK5ZTJUK;> +QK4ZUHPC:JTJUXP.!:2TK?["K3XHK2XI2ILH2A\IHH8 > + /WSR=?^C^G	?=?F
?H8G???9
5P52A:$V!.2TK?ZNK>XHK=XIK>XJK>XK2AHH8 <(*]>QLH<QLI2I\K=Q2A\J*N2C.
>;HQ?H>LHP. :$!.	$V!)$ $\;&[[K<Z5$UAC=6B=3O=="=-4$V!,*+XPK;Z5*3[ZHP9F8DKZXPS[*3K<8!J5>(.	$V!)$ $\$
.	0Y/\$!<H+$0Z/\$U=="=90=-6-$V!,/\$V!0"	/\	:*3	:/\	HGC	?=?2A$UA$G$HRA.A"A.I9D8FZT"A.IJTRI.IZIJI8J8H$ZJI$Z.TZ)$!>H	?J)0&:0!*%0".]:I\$^J8 Z6I[$^R6*2.*$V$;.7  H> +U0Y+0^C/K0Z7J7K1<(+MIN> +O$
+UJ7K>>(+UJ7$^N=R=<(+^=+&J7> +Z6N=Z=J6.=:R=+U:J7K,=+IR=H++^A?B=6HRC=>(/2S2/2$-$	+9;AD=-&=:NZ RN 8J8J8J"NN "NR *EAY<(.J]<(*[J^=HJ
I]$^.N$
.N?]CA$X. 9F8F8FZ,$X. J,R . Z J 8J8J8J$[J $[$].,AQJ<$^.7B00Y.=0\C?K>> .=0ZH.=0Y+I0^C?K=<(/<K;<(/:K;> +I/H$WI38 X$)I=ICID$(H>$-;HY;I;$ $]$^	R"3/,(+9;A$+$ZHOY($VW;+9IK$X$
$ B?9"?=?-A?$+I+Y3I3$WI38 X$)I=IFID$(H>$-;HY;I;$ $]$^("3;A$+I,Y3I3$WI38 X$)I=IFICID$(H>$-;HY;I;$ $]$^(Y"3;A$+I,Y1I[Y0I1$W; I1Y1Q0*9I,Y3I[Y0I=$($)H>$-;HY;I;$ >H+V; I3Y3Q0+F$]$^(3"3;A$+$$; $)I,]ZI=IF$(H>$-;I=$(H>$-;Q:8I,Y3HY;H$ $]$^)Y"3;AI>>(,Z/<*A$)I($(;I"
O8!I$> *LI%8!I> R.;&Y=%U?(HJY\K:Y ;&Y
I\Y^IK*$I
9H>XIRHJI\Y^IL$YIHY]Y!I!AO\3I^9DAHL3\3>X8AH:\4L4IEY(L3$V
7+5I!H=Y!Q]*(Q
*\; Y$;&Y
I\Y^+PI
9H>XIRHJI\Y^IHY]Y!I^9DAHY%>X8AY(I!AOI%$V
7+5I$>(IKIK$X>H+5I!H?Y!Q]+SY$Q
+II\HIY\Q *V$
$ ^R/9 29.

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