aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/m-star.asm
blob: f1e2b44424417e602f1f0862ac3058c9d5a71439 (plain)
1
2
3
4
5
6
7
8
;C M*     n1 n2 -- d    signed 16*16->32 multiply
;   2DUP XOR >R        carries sign of the result
;   XT_SWAP ABS SWAP ABS UM*
;   R> ?DNEGATE ;
    HEADER(XT_MSTAR,2,"m*",DOCOLON)
        DW XT_2DUP,XT_XOR,XT_TO_R
        DW XT_SWAP,XT_ABS,XT_SWAP,XT_ABS,XT_UMSTAR
        DW XT_R_FROM,XT_QDNEGATE,XT_EXIT