flag = true; pc = $FFFF; print _a(flag, pc) +":"+ _b(flag, pc) flag = false; pc = $FFFF; print _a(flag, pc) +":"+ _b(flag, pc) flag = true; pc = $1111; print _a(flag, pc) +":"+ _b(flag, pc) flag = false; pc = $1111; print _a(flag, pc) +":"+ _b(flag, pc)
function _a(test_flag, pc) ifb (test_flag xor pc)=($FFFE or (test_flag xor 1)) result = true else result = false endif fend function _b(test_flag, pc) ifb pc = $FFFF result = true else result = false endif fend