From 1da770c7fd1e0ab1eb5880cf6cda77042f49faa1 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Fri, 7 Oct 2022 09:32:44 +0200
Subject: [PATCH] KA10: Test for address stop/break.

---
 PDP10/tests/adrbrk.do | 60 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 60 insertions(+)
 create mode 100644 PDP10/tests/adrbrk.do

diff --git a/PDP10/tests/adrbrk.do b/PDP10/tests/adrbrk.do
new file mode 100644
index 0000000..8d34ecd
--- /dev/null
+++ b/PDP10/tests/adrbrk.do
@@ -0,0 +1,60 @@
+;JSR ADRBRK
+dep 000042 264000000105
+;CONO CONO APR,200000+PIA
+dep 000100 700200200001
+;CONO PI,2200+<200_-PIA>
+dep 000101 700600002300
+;MOVE A,100
+dep 000102 200040000100
+;MOVEM A,200
+dep 000103 202040000200
+;JRST 400
+dep 000104 254000000400
+;0
+dep 000105 000000000000
+;CONO APR,40000+PIA
+dep 000106 700200040001
+;JRST 12,@ADRBRK
+dep 000107 254520000105
+;JRST LOOP
+dep 000400 254000000102
+
+;Check address stop: data fetch from 100.
+dep acond 12
+dep as 100
+go 100
+if (PC != 000103) echof "FAIL: stop dfetch 100"; ex pc; exit 1
+
+;Check address stop: write to 200.
+dep acond 06
+dep as 200
+continue
+if (PC != 000104) echof "FAIL: stop write 200"; ex pc; exit 1
+
+;Check address stop: instruction fetch from 400.
+dep acond 22
+dep as 400
+continue
+if (PC != 000102) echof "FAIL: stop ifetch 400"; ex pc; exit 1
+
+;Check address break: data fetch from 100.
+break 106
+dep acond 11
+dep as 100
+continue
+if (PC != 000106) echof "FAIL: break dfetch 100"; ex pc; exit 1
+
+;Check address break: write to 200.
+dep acond 05
+dep as 200
+continue
+if (PC != 000106) echof "FAIL: break write 200"; ex pc; exit 1
+
+;Check address break: instruction fetch from 400.
+dep acond 21
+dep as 400
+continue
+if (PC != 000106) echof "FAIL: break ifetch 400"; ex pc; exit 1
+
+echof "PASS"
+exit 0