As copied from code.google.com/rzzzwilson.

pymlac/test_conditional.asm

@@ -0,0 +1,72 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;
+; test the conditional skip instructions
+;;;;;;;;;;;;;;;;;;;;;;;;;
+	org	00100
+; check ASZ - skip if AC is zero
+	lwc	1	; AC <- 0177777 (-1)
+	asz		; should not skip
+	jmp	.+2	;
+	hlt		;
+	law	0	;
+	asz		; should skip
+	hlt		;
+
+; check ASN - skip if AC is not zero
+	lwc	1	; AC <- 0177777 (-1)
+	asn		; should skip
+	hlt		;
+	law	0	;
+	asn		; should not skip
+	jmp	.+2	;
+	hlt		;
+
+; check ASP - skip if AC is a positive number
+; zero is positive here, as the test is for bit 0 set
+	law	0	; AC <- 0
+	asp		; should skip
+	hlt		;
+	law	1	; AC <- 1
+	asp		; should skip
+	hlt		;
+	lwc	1	;
+	asp		; should not skip
+	jmp	.+2	;
+	hlt		;
+
+; check ASM - skip if AC is a negative number
+; zero is positive here, as the test is for bit 0 set
+	law	0	; AC <- 0
+	asm		; should not skip
+	jmp	.+2	;
+	hlt		;
+	law	1	; AC <- 1
+	asm		; should not skip
+	jmp	.+2	;
+	hlt		;
+	lwc	1	;
+	asm		; should skip
+	hlt		;
+
+; check LSZ - skip if L is zero
+	stl		; L <- 1
+	lsz		; should not skip
+	jmp	.+2	;
+	hlt		;
+	cll		; L <- 0
+	lsz		; should skip
+	hlt		;
+
+; check LSN - skip if L is not zero
+	stl		; L <- 1
+	lsn		; should skip
+	hlt		;
+	cll		; L <- 0
+	lsn		; should not skip
+	jmp	.+2	;
+	hlt		;
+
+; can't easily test DSF, DSN, KSF, KSN, RSF, RSN,
+; TSF, TSN, SSF, SSN, HSF, HSN as they test hardware
+
+	hlt		;
+	end