; ( d1 d2 -- flag ) Compare ; R( -- ) ; compares two values (signed) VE_DGREATER: .db $02, "d>",0 .dw VE_HEAD .set VE_HEAD = VE_DGREATER XT_DGREATER: .dw PFA_DGREATER PFA_DGREATER: ld temp0, Y+ ld temp1, Y+ ld temp2, Y+ ld temp3, Y+ ld temp4, Y+ ld temp5, Y+ cp temp2, tosl cpc temp3, tosh cpc temp4, temp0 cpc temp5, temp1 rjmp PFA_GREATERDONE