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 -------------------
op a9 55
op c9 2b

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

# Zero Flag Case --------------------
power on
op a9 55
op c9 55

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

# Negative Flag Case ----------------
power on
op a9 35
op c9 55

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

save verify_C9.txt