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 00be 72

op a9 55
op 25 be

# Should be:  ACC=50
test acc = 50

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

memset 00be aa

op a9 55
op 25 be

# Should be:  ACC=0, Z=1
test acc = 0
test z = 1

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

memset 00be aa

op a9 84
op 25 be

# Should be:  ACC=80, S=1
test acc = 80
test s = 1

save verify_25.txt