aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/fm-mod.asm
blob: 4460e8d8b269b65ea37884f87bc2ee4fd8c6dda0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
;C    d1 n1 -- n2 n3   floored signed div'n
;                            courtesy of Ed Smeda
    HEADER(FMSLASHMOD,6,"fm/mod",DOCOLON)
        DW XT_DUP,XT_TO_R,XT_2DUP,XT_XOR,XT_TO_R,XT_TO_R
        DW XT_DABS,XT_R_FETCH,XT_ABS,XT_UMSLASHMOD
        DW XT_SWAP,XT_R_FROM,XT_QNEGATE,XT_SWAP,XT_R_FROM,XT_ZEROLESS,XT_DOCONDBRANCH
        DEST(FMMOD1)
        DW XT_NEGATE,XT_OVER,XT_DOCONDBRANCH
        DEST(FMMOD2)
        DW XT_R_FETCH,XT_ROT,XT_MINUS,XT_SWAP,XT_1MINUS
FMMOD2: 
FMMOD1: DW XT_R_FROM,XT_DROP,XT_EXIT