
\ Hardware multiplier
\ Caution: Not interrupt safe !

: {*}   ( x1 x2 -- x3 ) $4C0 ! $4C8 ! $4CA @         2-foldable ;
: {um*} ( u1 u2 -- ud ) $4C0 ! $4C8 ! $4CA @ $4CC @  2-foldable ;
: {m*}  ( n1 n2 -- d  ) $4C2 ! $4C8 ! $4CA @ $4CC @  2-foldable ;
