60 lines
1.2 KiB
Text
60 lines
1.2 KiB
Text
;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
|