figForth Word - */
Some parts of this page/site are currently incomplete & will be updated asap
Other parts will change continually so use “Refresh” in your browser !!
There is extensive use of “Tooltips” text to support learning which do
not seem to render on a Smartphone
*/ n1 n2 n3 — n4
Leave the ratio n4 = n1*n2/n3 where all are signed 16-bit numbers
Retention of an intermediate 31 bit product permits greater accuracy than would be available with the sequence:
n1 n2 * n3 /
NFA: 00724D 82 DB 82H
00724E 2A DB "*"
00724F AF DB '/'+80H
LFA: 007250 0172 DW MSSLA-6
CFA: 007252 3C28 SSLA: DW DOCOL ; :
PFA: 007254 F571 DW SSMOD ; */MOD
007256 E826 DW SWAP ; SWAP
007258 CC26 DW DROP ; DROP
00725A 1725 DW SEMIS ; ;