aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/dup.asm
blob: 0b5fa276f7210d9f74e62945e78588dbdfecef3a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
; ( n -- n n ) 
; Stack
; duplicate TOS
VE_DUP:
    .dw $ff03
    .db "dup",0
    .dw VE_HEAD
    .set VE_HEAD = VE_DUP
XT_DUP:
    .dw PFA_DUP
PFA_DUP:
    savetos
    jmp_ DO_NEXT