:: 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/E: Basic Instruction Test (1): "
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
go -q 200
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"