From cf8dad4ae5a18ad2a5ee0dc7a6485af2254ba7e9 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Fri, 7 Jun 2019 15:07:48 +0200
Subject: [PATCH] Check processor quirks.

---
 src/lars/quirks.42 | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 src/lars/quirks.42

diff --git a/src/lars/quirks.42 b/src/lars/quirks.42
new file mode 100644
index 00000000..4d4bc701
--- /dev/null
+++ b/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