Fix prematurely stopped diag test
This commit is contained in:
parent
9bc5014787
commit
eef738e7fb
1 changed files with 9 additions and 0 deletions
|
@ -14,11 +14,20 @@ set cpu 32k
|
||||||
set cpu eae
|
set cpu eae
|
||||||
|
|
||||||
:: AND, TAD, Operate and basic MQ instruction test (D0AB)
|
:: AND, TAD, Operate and basic MQ instruction test (D0AB)
|
||||||
|
:: This test halts after the first 3 instructions to let the
|
||||||
|
:: operator verify that HLT and CLA works before continuing
|
||||||
|
:: onto the real tests.
|
||||||
echof -n "** PDP-8: Basic Instruction Test (1): "
|
echof -n "** PDP-8: Basic Instruction Test (1): "
|
||||||
load diags/maindec-8e-d0ab-pb.bin
|
load diags/maindec-8e-d0ab-pb.bin
|
||||||
|
:: Patch address 5276 with HLT to stop execution after a
|
||||||
|
:: full pass is done or else it will send BEL every 1440
|
||||||
|
:: iterations.
|
||||||
|
dep 5276 7402
|
||||||
dep sr 07777
|
dep sr 07777
|
||||||
go -q 200
|
go -q 200
|
||||||
if (PC != 0147 || AC != 0) echof "MAINDEC-8/E-D0AB failed."; exit 1
|
if (PC != 0147 || AC != 0) echof "MAINDEC-8/E-D0AB failed."; exit 1
|
||||||
|
go -q
|
||||||
|
if (PC != 05277) echof "MAINDEC-8/E-D0AB failed."; exit 1
|
||||||
echof "passed"
|
echof "passed"
|
||||||
|
|
||||||
:: Autoindexing, Indirect addressing, and the DCA instruction with
|
:: Autoindexing, Indirect addressing, and the DCA instruction with
|
||||||
|
|
Loading…
Add table
Reference in a new issue