; ( n1 n2 -- flag ) Compare ; R( -- ) ; compares two values (signed) VE_GREATER: .db $01, ">" .dw VE_HEAD .set VE_HEAD = VE_GREATER XT_GREATER: .dw PFA_GREATER PFA_GREATER: ld temp2, Y+ ld temp3, Y+ cp temp2, tosl cpc temp3, tosh PFA_GREATERDONE: movw zl, zerol brlt PFA_GREATER1 brbs 1, PFA_GREATER1 sbiw zl, 1 PFA_GREATER1: movw tosl, zl rjmp DO_NEXT