File DHKMAB.SV (save files (Executable program)

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

??2CBP
L?$0\GH?L1HBBH3L4TBBH6L7<?LB<0>?L?<<H (*UUDHXH  08D2D$<$ \B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"BB8!H.X3H.",H.\&.X%H.8 H%X3H.8 ",H.8 \&.I8!H/X3H/",H/\&.VX%H/8 H%X3H/8 ",H/8 \&.
X2H I>Z12A	?H!I>Z62A.,;X,I1X-X!	><H+I7X!	=<H+I8X!	<<H+I9X!	;<H+I:X!	:<H+I;X!	9<H+I<X!	8<H+I=X!	7<H+P-/6H,> /5X
.8P-<H.82TX 	4P,/+P$ 3 , $ \ T M F XX4?AX5/?<O:=<] ERRHB?;OL=LAGD PHDBA8G=H((*(3*(<,...S.4.?0,\.!)YEWCN9<D><C<B<ANH<2C0?0?PA>0B=0D;0 CC] 0GB B%BMBJ?=C BG?$00GG?B1B2B3B4B5B6B7??B0?>??<? **UUHPX (082A$$	?*D"Z<H	>0B	=X[X\X]X^: X
X&: X$H(X		<	;H
>(*"	:+D*20B;2TI>Z 2A.Z2TX 	9	8$EX> <H*-%C%A$EW> *E*%2TX 	9	8$EX> <H*=%C%A$EW> *E	:+D*52TX H]X^	7	8$EX> <H+Q%C%A$EW> *E	:<H*2	6+IOX< +U0!+],[XYHY8J8J8J*HY*/ A5<(/*I<A5I<$S/*X?DSF"7PGN8PM"*"W<:2TX 2T9J8HK?X%,%*R*.***&*"*^*Z*V	>*VI=*0	=*ZI<*0	<*^I;*0	;*"I:*
	:*&I9*0	9**I8*0	8*.I7*0	7*RX!	6.	52TX .K%MAPMUNGPALPRI.4PU.(REN!-%RESREW).$SETSK)0SQ5)3(SU"-)4TE/TY0%UN,/!$UAUBUCVE2ZERO$EP ;!A!H!O!W!
!	!.DJ	?:X.X/	>"*: X.: X/	="*: X/X.	<"*: X.X/	;"*:I6X.I5X/	:"*:I5X.I6X/	9"*:X\0B..*	8*1X!	7<H	6	5*8I7X!	7<H	6	4*?I8X!	7<H	6	3+FI9X!	7<H	6	2+MI:X!	7<H	6	1+TI;X!	7<H	6	0+[I<X!	7<H	6	/+"I=X!	7<H	6/.OVSVC3ZBJBC)> : [XJB< H 3 , $ \ T M FJP \7\2\.\)\%\!$5	?*JX!
"	>*J	=H"> 	<	;*UI7X!X"	>*U	=H"> 	:	9* I8X!X"	>* 	=H"> 	8	7*+I9X!X"	>*+	=H"> 	6	5*6I:X!X"	>*6	=H"> 	4	3+AI;X!X"	>+A	=H"> 	2	1+LI<X!X"	>+L	=H"> 	0	/+WI=X!X"	>+W	=H"> 	.$EW> /-/,K1]6HQ/ FNHQ9DXQH 8DX /!I,XLIUF)BE^? 3^1 ,^ $^U \^G T]) M]Y F]KLP :I4X0"["-P0*D
4X0"-"[P0*JH&> *BP	.H(X	$68	?%5.I3X1H!I>Z!2AH.\&P&8P1*"H I>Z+2A.[I3X1H!I>Z32AH/\&P&8P1*4H I>Z=2A.-$S%1*AH5X\"2PO*+HKH9>(+H8PP$S: XPHKX L $S: HK*ED\OWSW<(/WH\>(+!SW+XOWX , %1\KI3$SI0XOLO<(+T$S+*%A-/H4%)H3[=+:HY>(,2%2BAD7(AT $G:H!I>ZHJHZ32AI2X0I3X1X[W8!H.< 
?W8 \&	>W8AH.< 	=W8 \&	<W8!H.< 	?P&8P1*MP0*6H I>Z.2AH&> *H.2AI2X0I3X1X[W8!H/< 	;W8 \&	>W8AH/< 	:W8 \&	<W8!H/< 	;P&8P1*8P0*K*3L&L&L&L&L&L&L&L&L&L&L&:L&/W%2HH??[(A/$V!AF+7K.	>K0[0/,%SAVEN
NV\?NI\;N8!H.X3H.",H.\&.X%H.8 H%X3H.8 ",H.8 \&.I8!H/X3H/",H/\&.VX%H/8 H%X3H/8 ",H/8 \&.
X2H I>Z12A	?H!I>Z62A.,;X,I1X-X!	><H+I7X!	=<H+I8X!	<<H+I9X!	;<H+I:X!	:<H+I;X!	9<H+I<X!	8<H+I=X!	7<H+P-/6H,> /5X
.8P-<H.82TX 	4P,/+P$ 3 , $ \ T M F XH 8!H!> R.$EV> RG.G:X]X)$EYX*$EZ9F8DX+29	?	>21	?	=2)	?	<2!	?	;2Y	?	:2Q	?	92I	?	82A	?	7	6%H)I0	5	6FIELDS IN THIS SYSTEM	6%FIELDS SEL	D ARE 	4.M/K:RH 9HJ];J!]::Q2AE92I8H?X-:-89P+UBSZ 2KN 2K/K<[42AM92I8J>X/)2B%=R3U T ]D]R]
^^N^\^*^8R;2TI>ZJI/^1N1> *L2A.P)H+8!H*< *X2L8!H*>(R*J?H*)2L8!H*<(*V?H*V2L8!H+<(*V?H*J*V2L8!H*<(*V?H*!*JR2	?*8I.	>	=*<I-	>	<+I,	>	;+DI+	>	:+HI*	>	9+LI)	>	8+PI(	>	7+TI0	>.3A+KB\!P$+GL	-*EPL"9F8F8FA)I(/\EIA)<(-	X*H*I&X"H*I%X!H*I$X(L!/$&Y/S&D  F M T \ $ ,U  3
NZ]RNZ^RI	8 F]8B"RR^I	F]"R.Z
J
9F8DA&J
A&I%^^.R:HR?*(J 
?/>: J XHLH[NKN8B"3KN"3*+A	<(,HI$< *<I+LI3=+AI"+LI!< +FI +LI1< +KI
<HI^O.30+Z0&0!+S0"0G0A:/O0&0!+[0":/OOI]O/ X%M]< *)/AM 8!HOXO/*I\[52B$)"HLA-[/0BHBI:>:=$EU>(*HI	?.$ET> *!2T8J8HA\I[ZZJI/X%	>%V[	=%  . $ES>(*(JI/%$EW> /<.P"<H*.:J-ZK;Z *AH!9J8HI[[H	>WI	=RELO ERR AT 	=: X$*!%^\OP$P!+NMQ\O8A%U\OHO]P: M!]!L(H,\(%O-NLO9!X!HH&:H
(8PH!:PH!8!H&>8+<H!X&;$HOX*MMX,H"V7BET TUOP"<H*A:J
?K>
=$EU> /<$ET> /;P$<H	:/9H!9J8HI[Z$	8&X%	82X)	83X,	7       	6	5/;	4*=	3*=	2*=	1*=	0<H	/	.IZI/I)	-IY	-/; ARE H.> +MI%"$H-> +RI$"$H,> +WI"$H+> +\I""$H*> +!I!"$H)> +&I "$H(> ++I
"$H	> UO
FZ=Z1Z%ZYZQZIZ
UT TVA"V!VEV XUV	?NO PATTERN.	?ALL 0 - .I	?ALL 1 - .Q	?0000-7777 WCP - .Y	?7777-0000 WCP - .%	?2525-5252 WCP - .1	?5252-2525 WCP - .=:K>
=	?%PARITY ERR, LOC 0=	<[
	<&[+	?  TSTAD=0DA\I0	;	? 1D: X$/:A9]OT;I/I.C?!^! X/UOTV$,T 	?%INT FROM KB0Z: X$.	?%UNWANTED INTERRUPT OCCURRED0G: X$/>;XX\.!;ZX\.%;Z8HX\.);Z8J..:C9DX\.2:CX\.7;ZX[.;;Z8HX[.?:H]8D9XX]/D:H^8D9XX^/K:H]8F9ZX]/R:H^8F9ZX^/Y:H]8F=IX8JX]/ :H^8F=IX8JX^/)(XCKBH01M?
>0>\ E[H![$,T :H]AWIVX].:H^AWIVX^.G:H]AUITX].N:H^AUITX^.U:H]ASIRX].\:H^ASIRX^.:H]AQI:X].*:H^AQI:X^.1:H]A4I8X].8:H^A4I8X^.?:H[<(/FSF9F<X/FSF?H/F8%+S:H\AP<(/USUSU9D<Q<X/USUSU=Q+]$\,.<2AN*2IR*/(2J:G?:[5$:Y
:*:?;D:)=6<A===3Z4Z2^[:H]?R.:H]8D?RF.F:H]8F?RM.M:H]8F8D?RT.T:H]8F8F?R\.\:H]8B8H>PR$.$:H]8B?R,.,:H]8B8D?R3.3:H^?R;.;:H^8D?SA/A:H^8F?SH/H:H^8D8F?SO/O:H^8F8F?SW/W:H^8B8H>PS
/
:H^8B?S	/	:H^8B8D?S./.ST	?%PR LOC  FAIL ADR  GOOD  BAD  PATTERN.	?%PDP-8E EXT MEM DATA & CHKBD.W	?%SETUP SR & CONT%C.*	?%NO RELOCATION, PROG IN FIELD 2T9F8DIO[O	?: X$.7	?%PROG WILL RELOCATE: X$/S	?%PROGRAM IN SELECTED FIELD/>BET 	?NONE/>:X"XI>H ZTI>H!ZVJT
YINH!Z"2AL2A\L2A8!L> 	=P*TH">(2C.E">1G*)1A/<0Y/;	:	9:H5<Q0D0E:H4,;0G1G.52T>(0A.5:O8[[O7[\O6[]O5[^O4[
O?[ O3[!O2["O1[O0[$O/[%O.[&O-[	/,&V[VZVU UOUNT3T
T^T]TRT&Z\\M[IV-BET O?[MO>[NO=[OO<[PO;[QO:[RO9[SO8[TO7[UO6[VO5[WO4ZY.Y:O3
2O1
0O/
.O-
,O+
*O)
(O	
&O%
$O
"O!
 O

^O]
\O[
ZKM
?KN
>KO
=KP
<KQ
;KR
:KS
9KT
8KU
7KV
6KW
5.Z[UKWV[%	VZ%&V%%U %$UO%UN%"T3%!T % T
%
T^%^T]%]TR%\T%[$>
U
FZ=Z1Z%ZYZQZIZV V\:HRC?> *G*P"R*PR $=$:(J $<$=R.J!> *ZJ"8 Z
R!R
*PZ!RR.RDHKMAB  PASS :%B8HQ?H>LHP.*0Y*40^C>K=
<O<.3;N<[WR<OWC;<(.<=8P8A8J8J8J$?OWC:<(.<K9=K8K7$?SW+A;HRC?> +$8 KY[YK6
Y/YIPPING-ERROR ON OUTPUT DEVICE-SKI<BB A
 ??.=BA?D
?HRC>> *HO?.0D
==A
<Z/J1Z0N0<(*XO;>(*%R/R0*OO:> *"O;$?K9$?$=R.RO;.O;K8
;J2J/Z.N.Z...*3*<===4=1=/=.=-=;=<+D++)+J+N+U+.,
7	6	52C0G/4[!
:	3/"	6[!
:$=
2/TBK!> +[8AJ["S!$8	3$9:+UO78 
7	6	3.	6O18 
1.	6	3.)X-	,S>1M,M/SAB?.>.=1K1LD1J"MJK> *GO?ZLRK$;ZK"S.LK>$?O=$?.M:O<<QO;8D:O:.S;HRC9>(.\$:,)$8"S$9.\*]WAITING :HRC9>(..K	> /8S	$:-)HP$<K7$?W6$>OO=XPK5[($>OHP9F8DO=XPS(+E+$8!K4>(+$O=K3?H+ O=K2?+ O=C1
=/OK0$?$=*/$=[	..SR=  FAILUREB?G=H=PBM?=.> +RD1J1L1K.=C^*9F8FZQK?ZRJQC>K=$?JQ8F8DZQRR*F.;K<$?J
8 Z K;$?R *[.SD
:0D
9=A
80Y*2HRC7>(*2$8	6$98R!	6.!$8R>$9.4$?Z>J=.4[RKS> +JKR0&0!+F0"+PKR66T61+L62:.?%B8/T:2TK5[K4XHK3XI2ILH2A\IHH8 > +!/XARS. PER LINE100 9?=?2A,SD1K1L1JBJBMB0G?<0B[J0D[L=A[K; J[IHRC?>(*+O>> *%$=$:05$:0=KI$<$:1KJ$<$:1CKK$<$:1FKL$<$=$78 ?H*3%A*3$78 ?H.K=
I	</I	<.DHKMAB  FAILED   PC:  AC:  MQ:  FL:????????:2TK;[ZK:XHK9XIK:XJK:XK2AHH8 >(/M>QLH<QLI2I\K=Q2A\J+ZOUGH CORECANNOT CHANGE CORE CA9?=?2A,S<B)XD	?	>%LOOP ON ADDRESS SET IN SR	=$EZZNZ8 ^ZNZ8 ^Z*QAN	T REMEMBERI/O ERROR ON SYS:ILLEGAL SYNTAXTOO MANY FILES
NOT FOUND DOES NOT EXISTBAD MONITORINPUT ERROR READING INDIRECT FILECOMMAND LINE OVERFLOWBAD NUMBERILLEGAL * OR ?8:T 80	?	>%LOOP ONLY THE 2 ADDRESSES INPUT FROM THE SR""	=ON8 
NOO8 
O*[	>%SET SR TO FIRST ADDRESS & CONT%C$E[N	>%SET SR TO SECOND ADDRESS & CONT%C$E[O."ADICTORY SWITCHESOS/8 VERSION  3  (CCL VERSION D)EDITBOOTFORTF4BITMAPSRCCOMBC8:T 80	?	>%LOOP FROM FIRST ADDRESS THRU SECOND ADDRESS	=O<Z1O;Z2	:J1Z0N08 ^0N08 ^0J08!J2>(*
R0*!%*7J7L7O7R7V7[7
7$JANUARYFE	9	8%LOOP DATA IN THE SR THRU THE ADDRESS SELECTION	7O6[0O5[1	4K0[2$E
2O2
2K28!K1>(+!S2+%+SA8:5O5N4"T 808:5O5N4"T 80"0	?%LOOP DATA IN THE SR ON THE INPUT ADDRESS	?%SET SR TO ADDRESS & CONT":%C$EZ/$E^/N/*+:2LZ92TI>Z72A.0J9I>Z>2A.:.R.AD = :-
MISSING DD MARK
UNEXPECTED DD MARK
UNEXPECTED RX01 IRQ
MISSING E:[B?G=H=PBM?=<I<<J<K :HIR7LDFRT O?Z	>:HR?*<K=
<K=
;K=
:K=
9K=
8K=
7K6C5K4
3K2C5K4
1K0C5K4
/K.C5K4
-K,C5K4
+K*C5K)
(O(
	O(
&O(
%O(
$O(
O(
"O(
!O(
 .0B:2TK
[E: J=2A2:/^0^C0K/
.O./E;HRC3> +Y8 KN[NK-
N	,/N%N/BJ<5P2A
RXAV.MOMFL=L$L[LR$FP1QOIWI[CJCUB6CAB&*A?B1JQBFCHB4B$BD8<<<0B	?HR8F8D=/>ZN	=K<ZI$;.:JN?*V$7.OHQ?H*[HP<H>D.O:HR?*60BJ2Z4J3Z5R5*	R4*%2TK;Z.2A2:	:.]?98JN?H	98.]:HQC88JC8<(+PZ4J4K7>(8 J4Z4HPC6J4XP.<:"OC5Z4J4C4Z5J4C3Z4J4K2> + K1Z4J5K7> +&K0Z5HPC6J4J5XP.<KW*=LT9
F0?H8G???9
.!52A8/X:ABZ	?*H"7C>> *\*["^*[R-	=OB0J-	<2AN+2IZ^OB^	="7C>> 	;R2C.J.> *&J/8 Z,R.R,*[Z.R^.^E*DIRXA-B PASS :	:82AO92I?H>L+B+E2AO82I.70Y+G0^C7K6
5O5/F;OO[*SOO*C4<(/O=8P8A8J8J8J	3O*C2<(/OK1=K0K/	3S*+TRMU-?7B A
 ?IE?ICBA?PQH(F\HGHZDKW

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