aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/words/ud-star.asm
blob: 64642da4b4e40f308dcbdfd6285818a5abe4086f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

.if cpu_msp430==1
    HEADER(XT_UDSTAR,3,"ud*",DOCOLON)
.endif

.if cpu_avr8==1
VE_UDSTAR:
    .dw $ff03
    .db "ud*"
    .dw VE_HEAD
    .set VE_HEAD = VE_UDSTAR
XT_UDSTAR:
    .dw DO_COLON
PFA_UDSTAR:

.endif
;Z UD*      ud1 d2 -- ud3      32*16->32 multiply
;   XT_DUP >R UM* DROP  XT_SWAP R> UM* ROT + ;

        .DW XT_DUP,XT_TO_R,XT_UMSTAR,XT_DROP
        .DW XT_SWAP,XT_R_FROM,XT_UMSTAR,XT_ROT,XT_PLUS,XT_EXIT