Check processor quirks.

src/lars/quirks.42

@@ -0,0 +1,28 @@
+	TITLE Quirks
+
+A=1
+B=2
+FLAGS=16
+
+DEFINE CHECK X,Y,Z
+	MOVE A,[Y]
+	MOVE B,[Z]
+	JRST 2,@[.+1]
+	X A,B
+	JSP FLAGS,.+1
+	HLRZS FLAGS
+	.VALUE [ASCIZ \:X Y,Z
CA/
B/
FLAGS/P\]
+TERMIN
+
+START:	CHECK IDIVM,SETZ,-1
+	CHECK IDIVM,SETZ,1
+	CHECK AOBJN,[1,,-1].+1
+	CHECK [IBP B;]0,[000700,,-1]
+	CHECK SUB,1,2
+	CHECK MUL,SETZ,1
+	;POP AC,AC
+	;BLT AC,0
+	;FSC
+	.VALUE
+
+END START