aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/dnegate.asm
blob: 00afc1cd26180e47b9d12bb39a90feabdd002d59 (plain)
1
2
3
4
5
;X DNEGATE   d1 -- d2     negate double precision
;   XT_SWAP INVERT SWAP INVERT 1 M+ ;
    HEADER(XT_DNEGATE,7,"dnegate",DOCOLON)
        DW XT_SWAP,XT_INVERT,XT_SWAP,XT_INVERT,XT_ONE,XT_MPLUS
        DW XT_EXIT