aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/words/tuck.asm
blob: 173dc8c21afecd15728a6f4236ab20f1a4842d92 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
; ( n1 n2 -- n2 n1 n2 ) 
; Stack
; Copy the first (top) stack item below the second stack item. 

.if cpu_msp430==1
    HEADER(XT_TUCK,4,"tuck",DOCOLON)
.endif

.if cpu_avr8==1
VE_TUCK:
    .dw $ff04
    .db "tuck"
    .dw VE_HEAD
    .set VE_HEAD = VE_TUCK
XT_TUCK:
    .dw DO_COLON
PFA_TUCK:
.endif
    .dw XT_SWAP
    .dw XT_OVER
    .dw XT_EXIT