; (u1 u2 -- rem quot) Arithmetics ; R( -- ) ; unsigned division with remainder VE_USLASHMOD: .db $05, "u/mod" .dw VE_HEAD .set VE_HEAD = VE_USLASHMOD XT_USLASHMOD: .dw DO_COLON PFA_USLASHMOD: .dw XT_TO_R .dw XT_ZERO .dw XT_SWAP .dw XT_R_FROM .dw XT_UMSLASHMOD .dw XT_EXIT