File DHKMAD.DG (diagnostic Executable)

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

?>2CBP\8CH;0\CCH]L%BH %4B?H>LJ4?CH HGP?0\0LG<BH1L2LBBH4L5XBLB<7??B0HPL?<<H (*LUHUHAX" !I"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"BBCDX<?AX=/?..*EM ERRHB?;OSHGGD PHDBA8G58C!,			SEREZ)O)"<A<CNH<EVBG?/?42C0?8?PA>0B=0D;0 GCC]%B B%BM?>BJ?=C BG?$00GG?
1B2B3B4B5B6B7???B0P ?<? **UU2A"&+U+T")<H	?0BK>2:2X?H; XU	=	<X^X
X X$: X(X/IAY: X-	;	:: H0X0	9H?8!X1H(>(*1	8+A*80B;2TI>Z/2A.)2TX)	7	6%B*E*42TX)	7	6%B*E	8+A*;2TX)H X$H!X%H"X&HX		5	6%B*E	8<H*8	4+L+\X>	3H>>(*D0B*EHRC2XR: +U%D[>(+(%E<B%DZ>(S!/!/*I<A5I<$S;?.RD!,F!MNGL8/DNM 9OV: HU> *\:2TX)H)9J8H
?: O?]
?O?K>X.L.Z:&:*KO?]9F8D*3*K:2TX)H)%H
?: O?C=
?O?]K>X.L.Z:&:*"O?C=%I*3*"X*	<.	;2TX).
C
J
R
Z

,
5 :H^<(/CSC9F<X/CSC?H/C8<B+PO?9J8HC:K9X./RO?9J8HC:K9X./Z)3(SU"-)4TE/TY0%UN,/!$UAUBUCVE2ZERO C"N
D;S&	?:X6X7	>"+: X6: X7	="+: X7X6	<"+: X6X7	;"+:I=X6I<X7	:"+:I<X6I=X7	9"+:X
0B	8..+
7XTG*1	6O78!H0>(*8W7*.
7XTG+	5H+> 	4O78!H0>(/3W7*:O7]K2[
O
[
	
/GHU>(+ZO7%IX*	1<HSG/GO7]9F8D+U^^G^O^W^ ^)^2^:C)> : [XJB< SYC4/YNG H&HJHES&*Z2Z-Z(ZZ
Z["7%DZ> /?/>I;X8"!"3P8*HI;X8"3"!P8*NH/> *FQ.EH>?H.EIAY	=%15.EI:X9H*I>Z	2AH6\/P/8P9*(H)I>Z12A.!I:X9H*I>Z92AH7\/P/8P9*:H)I>[C2A.3;&XTHT8!9F8D
<HT8!I9X.L.I8>(+^HT8!I7	;K:	;	9K8	;PT8HT? /E+HXQH 8DX /!I,XLIUX!2I\LP!+.2C,=2I\!+1J+H<B QBB:(US&R F*BE$F:H*I>ZHJHZ32AI6X8I:X9X^W8!H6< 	?W8 \/	>W8AH6< 	=W8 \/	<W8!H6< 	?P/8P9*MP8*6H)I>Z.2AH/> *H.2AI6X8I:X9X^W8!H7< 	;W8 \/	>W8AH7< 	:W8 \/	<W8!H7< 	;P/8P9*8P
*K*3L/L/L/L/L/L/L/L/L/L/L/:L//WH>?+,<B+4	9%INT FROM KB0Z: X-/&>(R L
LVZ:LIZ6L8!H6X;H6",H6\/.X.H68 H.X;H68 ",H68 \/.I8!H7X;H7",H7\/.VX.H78 H.X;H78 ",H78 \/.
X:H)I>Z12A	?H*I>Z62A.,;X4;$X5X*HU>(+S
>) W>O>%IX*O>C=> +BP5/<H4> /;X(.8
>) W>O>]9F8DX*H*> +T+LP5<H.82TX)	:P4/ :O>]K9X.L.X.$.S)/)K0[0/,%SAG N($&
S&VH)8!H*> R.%DY> RG.G:X0X?H>?*[HQ?H*[HPC?X3*	%E<B%DC?X3%D8BC?X2	>%E<BX X!X"XHU>(*<
=O=%II>Z3<B	<LW=O=C?> */+GK;X!K;X"K;X:2 2(
=	:H>?H.M	9.MO=]K8X.L.X.$.8/LH>> /VHU> K7K6[!	5%8 SELECTED FOR TESTING /V<D<?2?R KMG[*&,SL?0PS&(
;2TI>ZJI5^?N?> *L2A.P02L[AHU>(*VKA%H[A*ZKA9J8H[AH38!H2< *&KA8!H2>(RP?*J?H*7KA8!H2<(*?H*KA8!H3<(*?H*J*KA8!H2<(*?H*/*JQ	?+GI4	>	=+KI3	>	<+OI2	>	;+SI1	>	:+WI0	>	9+[I/	>	8+
I.	>	7+I7	>/BA;H.FWAN5MO*? -7^   H?8A
OP^^G^O^W^ ^)^2(U^:;NZ]RNZ^RI-8 F]8B"RR^I-F]"R.Z
J
9F8DA,J
A,I+^^.R: XS: J XHLH[KKK8B".KK".*&A-< *4XS,HI*< *9I)+II:=*>I(+II	< +CI&+II%< +HI$<HI	?..29	>	=21	>	<2)	>	;2!	>	:2Y	>	92Q	>	82I	>	72A	>	6/L" MARCH - /	?4GM?,GN?$GP?)Z?[O[ \J\Z\*\:]JP(U	?I"	?.$E%DX>(*QH>?H.EI)	?.E%DW> *7HU>(*\2T%HX.* 2T9J8HX.	>.T/I!Z/JEI5X.
>.T1H>?H.6	=%  .6%DV>(*>JEI5<B%DZ> /<.EP+<H+D:KCZEK;Z6*F	:U^	>,U
H>?H+%	=RELO ERR AT 	=: X-*7: JE<B:O9C8<B:H,<B: X-*7%<+(	9S8+4O
S&(7UMBER R(UP+<H*A:J
?K>
=%DX> /<%DW> /;P-<H	:/9	8V$	7/V%	7:V)	7;V,H>?H+G	6       	5]/;	4*?	3*?	2*?	1*?	0*?	/<H	.	-I I5I/	,I
	,/;: O?<B:O+C*<B:H/<B:H:<B:H;<B:	5O)<B:/;	6NO PATTERN/]/\1
]-
S&(UECS	X4X(X\XPXHX]ZR R(7TF IT7TKT6VUTE	?ALL 0 - .	?ALL 1 - .H	?0000-7777 WCP - .P	?7777-0000 WCP - .\	?2525-5252 WCP - .(	?5252-2525 WCP - .4:K>
=	<YY	</Y%H>?H+,	?%PARITY ERR, LOC 0=	?  TSTAD=0DA^I7	;	? 1D: X-/:H<B:0DC9<B:H/<B:1D/:2AGV/(URTE".R K?$EH>?*G<B*W	>%UNWANTED INTERRUPT OCCURRED0G: X-/=;XX
.[;ZX
.
;Z8HX
.;Z8JX
.(:C9DX
.-:CX
.2;ZX^.6;Z8HX^.::%FL.8D9X\..?:%GL.8D9X\./G:%FL.8F9Z\./O:%GL.H$8F9Z\./W:%FL.8F=I]8J\./ Z?[O[ \J\Z\*\:]JXRHS
W Y!R^>^+^"T"KX3".R Z:%GL.8F=I]8J\..:%FL.A\I[\..J:%GL.A\I[\..R:%FL.AZIY\..Z:%GL.AZIY\..":%FL.AXIW\..*:%GL.AXIW\..2:%FL.AVI9\..::%GL.AVI9\./B:%FL.A;I8\./J:%GL.A;I8\./R:[-H
AU<(+.S-SZSZ9D<Q<X+.S-SZSZ=Q+$:H>?H/?/Z$I]KG$EX3 %Y&$CY]J[;$DWY:%FL.?R.:%FL.8D?RG.G:%FL.8F?RO.O:%FL.8F8D?RW.W:%FL.8F8F?R . :%FL.8B8H>PR).):%FL.8B?R2.2:%FL.8B8D?R:.::%GL.?SC/C:%GL.8D?SJ/J:%GL.8F?SR/R:%GL.8D8F?SZ/Z:%GL.8F8F?S/:%GL.8B8H>PS,/,:%GL.8B?S5/5<X3"
%GL.8B8D?R.H>?H.I	?%PR LOC  FAIL ADR  GOOD  BAD  PATTERN.IH>?H.	?%PDP-8E EXT MEM DATA & CHKBD.H>?H.9	?%SELECT FIELD PARAMETERS%.9H>?H/M	?%NO RELOCATION, PROG IN FIELD 2T9F8DIT[(	?: X-/MH>?H/,	?%PROG WILL RELOCATE: X-/,R :X+X,P1*JH?8!X1	?I>H)ZUI>H*ZWJUZZ;E
WZ$2AL,2A\,L,2A8!L,> 	>P,*UH+> .2C.1G*+1A/=0Y/<	;	::H=<Q0D0E:H<,;0G1G.72T>(0A.7:O9[]O8[^O7[
O6[ O5[!O4["O3[O2[$O1[%O0[&O/[	O.[(O-[)/,$T1T0TET(USKR.R R
R^R]RRR$ZK&ZYUC,VO?[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.ZT1)T0(TE	T&(U%SK$R.R "R
!R^ R]
RR^R]]ZECX4X(X\XPXHXW]T6T2H>?H/?	>NONE/?:O=]K<Z+N+Z+&+: H0X0H0> .H	>%DISCONNECTED<B* .H[G[W\\R\"\2]B]R	>%H0\9J8HI7	;H0]I7	:	>FIELDS IN THIS SYSTEM	>%FIELDS SEL	D ARE 	9.,[&HRC%> +[K&/S2TK8K7[
<BK&	$SS/S:RD;HQ?H>LHP/	?:-4I\$	I%$	/02BIET(U&S&R BE:H>?H.	?%SELECT TEST PARAMETERS%.X.HR?H.UH.0*!%C0A:.U%C:.UH>?H/>	?%PROGRAM IN SELECTED FIELD/>N7[NR7HU>(+BH*%HX.+FH*9J8HX.	=.)LKM
N.7[0K0C5[1K18B9F8DK18DC<[1K0C;9J8HK1/O[0K09J8HC:K9[OK0C89F8DOO/"DAAD?9,.G)2C8XRBER ;$[4;$[2;
?XT;A[0;A[1	>*ZH)I>ZWH*I>ZUK52A\/2AP/*T:O?8!H0>(*"W?*L$F
?XT	>+K5X:H)I>Z4H*I>Z/2AL/X;K6\/2AH:8!H;> 	=H/K0X/H/> */K1?H+EH08!O?>(+LK1O?
?*%K18![1K08![0K0?+Y: X/H0
?K58 [5K68 [6$FS2<H+&;ZX^*%X^K58 [5K68 [6S4*C.UU**(?(?<H8L,MGGS&0&0!*B0":0Y.0^%E:0Z.P+K?X
X^H:	>X+.M:H>?H.VR-	=,-,)	<%END OF PASS 	<.V*[N?K7> *;J>C6K5^?	:K4^?N?[ .08->2>2>-6A:K < +N	3>H+G["K2[!K!K1<(+\K0<(+\K/>(+I[ K!/D	.PA+J+IJVP<8B?2J)VPJ-N+6/ DW\)JR RL, 0BZRHR?.2TIS^QNQZNJR<(O?2A8/>5S0BHR?*\: X>K=XP*)H>?*(HQ?H*	HP> *	K=XP>H	<.R:HR?*<0B2TIS^
N;Z52A8	;.*5E0Y.*0^%E:0Z.*HR?/D;[[
29O
2A

O
8!29O
2A>  S
+JH >(/DH C:K9X /D: K 2A2:/>(PBPD0C0B2I0LV2WAJAIAG0MAHVT*+(P? 50^
5PT6	?H>?H*S	>%LOOP ON ADDRESS SET IN SR	=%DZ]N]8 ^]N]8 ^]*T:2TK<Z)K;XHK:XI2ILH2A\IHH8 > *	.^:2TK<[GKGZ>K;XHK:XIK;XJK;XK2AHK8 >(+GLI2I\K*>2AHH8 >(+PLH2A\J+G2C/R>ERDECEMBER, 191$1	1)1+1.1215SATURSUNMONTUESWEDNESTHURSFRIBAD M7?=?2A6>R 64	?H>?H*\	>%LOOP ONLY
THE 2 ADDRESSES INPUT FROM THE SR"%	=OY8 
YOZ8 
Z*^H>?H*<	>%SET SR TO FIRST ADDRESS & CONT%E<B%D[YH>?H+U	>%SET SR TO SECOND ADDRESS & CONT%E<B%D[Z.%K)
(/\F2K/ +G+FC=>(5A!0?0:?6:9-/4&4
4)44:H8?G???8=P0B< 6>R 64	?H>?H*\	>%LOOP FROM FIRST ADDRESS THRU SECOND ADDRESS	=O<Z3O;Z4	:J3Z2N28 ^2N28 ^2J28!J4>(*"R2*$*S COPIED:00K/00K MEMO	?H>?H+^	>%LOOP DATA IN THE SR THRU THE ADDRESS SELECTION	=O<[4O;[5	:K4[6%D
6O6
6K68!K5>(+$S6+&%E<B+DING6>3Z3Y2%R 64"4H>?H*+	?%LOOP DATA IN THE SR ON THE INPUT ADDRESS	?%SET SR TO ADDRESS & CONT%E<B%DZ3">%D^3N3*/:2LZ=2TI>Z;2A.4J=I>[B2A.>EVICE FULL?CLOSE ERRORBAD FILENAME OR ERROR READING INDIRECT FILECOMMAND LINE OVERFLOWBAD NUMBERIL
EGAL *R %JACCESSED LOC  0000-N:JN]!8 Z&3Y*\Z&8 Y/NNZ%&%3Z*!:RN.NR&/?%O*^:I5% <H	>.	.0$FZ.	=C<
;	:
9	8:
9S	7C<X;	6X<2IO58 ;X;O48 2A<X<	8;9YKYAAHU[Y%JMA  MDK;/3H)2B	2%;H)2B	2/1K5S5S:H([(X:FE$/X,4: $G:
C?/%:!%B2C2A?=?<?;?8=PGB B0B=B?CRCSZ2LJAZE2TJBZ!O??H>LO>ZCO=ZD<BJR
<JE
;J< /:	9JQ	8JP	8JN	8JGZEJC8D8D8FZCJCBKJM	8JCRE*4;JHZE
7
6JL	8	5ZJK4<(/3JG<(/2JF<(/1JF>(/0J	8JJJ=H+)JI?+): 
6JBKZO79F8DJ
7RE+E;JO	8	9*)>(/+=^=U</<5===H<C<<>=O<P=
<BSPQBEA?B?? ABMBJCCCGC^>K?<(*5K><(*/K=<(*-K<<(*

;RD*;: ZDO;>(+
: ZDHK?<(*5K:> *$ZD+
OJN">JM">/9ZDJN">JL">/8O7">+
RD<H*$0&0!+C0":.>0Y+I0^BEJF/HJJ">JK">/OOK
[X<BRC.AJ
6.AO<B;RC.BJ
6.B> /1/0ITIALIZE OK%YZY\%Z21
\^7P:00:)?2:D?>?6?<==

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