; ( n1 n2 -- n1|n2 ) Compare
; R( -- )
; compare two values, leave the bigger one
VE_MAX:
.db $03, "max"
.dw VE_HEAD
.set VE_HEAD = VE_MAX
XT_MAX:
.dw DO_COLON
PFA_MAX:
.dw XT_OVER
.dw XT_OVER
.dw XT_LESS
.dw XT_DOCONDBRANCH
.dw PFA_MAX1
.dw XT_SWAP
PFA_MAX1:
.dw XT_DROP
.dw XT_EXIT