1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2 ;; fast mul & div procs
3 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
54 $FORTH_END_CODE_WORD U*
56 $FORTH_CODE_WORD U/MOD
58 ;; ( u32 u1 -- mod res )
62 ex (sp),hl ; lo; save BC (now in HL) on the stack
118 $FORTH_END_CODE_WORD U/MOD