github.com/rcornwell.sims
1
0
Fork 0
mirror of https://github.com/rcornwell/sims.git synced 2026-01-13 07:19:26 +00:00
Code Releases Activity

KA10: Test for address stop/break.

Browse Source
This commit is contained in:
Lars Brinkhoff 2022-10-07 09:32:44 +02:00
parent 2b308e097c
commit 1da770c7fd
1 changed files with 60 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
PDP10/tests/adrbrk.do Normal file
View File

@ -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