; ( n1 n2 n3 -- rem quot) Arithmetics ; R( -- ) ; signed multiply and division with double precision intermediate and remainder VE_STARSLASHMOD: .db $05, "*/mod" .dw VE_HEAD .set VE_HEAD = VE_STARSLASHMOD XT_STARSLASHMOD: .dw DO_COLON PFA_STARSLASHMOD: .dw XT_TO_R .dw XT_MSTAR .dw XT_R_FROM .dw XT_UMSLASHMOD .dw XT_EXIT