Fixed a couple of PDP-10 opcode emulation bugs (AOBJN, AOBJP, and CMP), and rounded out the set of DEC's basic instruction diagnostics

apps/pdp10/diags/klad/dakaa/DAKAA.MAC.txt

@@ -1,15 +1,27 @@
+;MACROS
+
+; STOP - USED FOR SCOPE LOOP, IF INSTRUCTION FAILS, CHANGE (JUMPA .+1)
+;	 TO A (JUMPA X) TO CYCLE ON FAILING INSTRUCTION
+
+DEFINE	STOP	(A)<
+	HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
+	JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
+				;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
+				;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
+				;AND CHANGE HALT INSTRUCTION TO JUMPA .+1>
+
 SUBTTL	DIAGNOSTIC SECTION
 
-START:	SETZM	USER#		;CLEAR USER CONTROL WORD
-	JSP	0,.+1		;GET FLAGS
-	TLNE	USERF		;IN USER MODE?
-	SETOM	USER		;YES, SET USER CONTROL WORD
-	SKIPN	MONFLG		;SPECIAL USER MODE?
-	SETZM	USER		;YES, CLEAR USER CONTROL WORD
-	SKIPN	USER
-	JRST	STARTA
-	SKIPL	MONCTL
-	TTCALL	3,PGMNAM		;MENTION OUR NAME
+START:	;SETZM	USER#		;CLEAR USER CONTROL WORD
+	;JSP	0,.+1		;GET FLAGS
+	;TLNE	USERF		;IN USER MODE?
+	;SETOM	USER		;YES, SET USER CONTROL WORD
+	;SKIPN	MONFLG		;SPECIAL USER MODE?
+	;SETZM	USER		;YES, CLEAR USER CONTROL WORD
+	;SKIPN	USER
+	;JRST	STARTA
+	;SKIPL	MONCTL
+	;TTCALL	3,PGMNAM		;MENTION OUR NAME
 	JRST	STARTA
 
 PGMNAM:	ASCIZ/
@@ -1037,6 +1049,5 @@ SN=SN+1
 
 ;**********
 >
-ENDXX:	JRST	BEGEND		;LOOP PROGRAM
-
-
+ENDXX:
+	;JRST	BEGEND		;LOOP PROGRAM