diff --git a/apps/pdp10/diags/klad/dakac/DAKAC.MAC.txt b/apps/pdp10/diags/klad/dakac/DAKAC.MAC.txt
index 15be2e06f..6e4503259 100644
--- a/apps/pdp10/diags/klad/dakac/DAKAC.MAC.txt
+++ b/apps/pdp10/diags/klad/dakac/DAKAC.MAC.txt
@@ -1,3 +1,15 @@
+;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
 
 	LALL