The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
clear
power on
regs

# Base test --------------------
memset 00c9 72

op a9 55
op a2 0b
op 55 be

# Should be:  ACC=27, IX=0B
test acc = 27
test ix = 0b

# Negative test --------------------
power on

memset 00c9 aa

op a9 55
op a2 0b
op 55 be

# Should be:  ACC=FF, IX=0B, S=1
test acc = ff
test ix = 0b
test s = 1

# Zero test ----------------
power on

memset 00c9 55

op a9 55
op a2 0b
op 55 be

# Should be:  ACC=0, IX=0B, Z=1
test acc = 0
test ix = 0b
test z = 1

save verify_55.txt