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

# Normal condition (No Page Boundry) ------
memset 839a 55
op a0 28
op be 7283

# Should be: IX=55, IY=28, Cycles=4
test ix = 55
test iy = 28

# Normal condition (Page Boundry) ---------
power on

memset 845f 55
op a0 ed
op be 7283

# Should be: IX=55, IY=ED, Cycles=5
test ix = 55
test iy = ed

# Zero condition --------------
power on

memset 839a 00
op a0 28
op be 7283

# Should be: IX=0, IY=28, Z=1, Cycles=4
test ix = 0
test iy = 28
test z = 1

# Negative condition ----------
power on

memset 839a f2
op a0 28
op be 7283

# Should be: IX=F2, IY=28, S=1, Cycles=4
test ix = f2
test iy = 28
test s = 1

save verify_BE.txt