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

# Carry Flag Case -------------------
memset 00c9 2b

op a9 55
op a2 0b
op d5 be

# Should be: ACC=55, IX=0B, C=1, Z=0, S=0
test acc = 55
test ix = 0b
test c = 1
test z = 0
test s = 0

# Zero Flag Case --------------------
power on
memset 00c9 55

op a9 55
op a2 0b
op d5 be

# Should be: ACC=55, IX=0B, C=1, Z=1, S=0
test acc = 55
test ix = 0b
test c = 1
test z = 1
test s = 0

# Negative Flag Case ----------------
power on
memset 00c9 55

op a9 35
op a2 0b
op d5 be

# Should be: ACC=35, IX=0B, C=0, Z=0, S=1
test acc = 35
test ix = 0b
test c = 0
test z = 0
test s = 1

save verify_D5.txt