aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/over.asm
blob: 97ca242d81c9a5775fab6812fe9289c6711d0419 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
; ( x1 x2 -- x1 x2 x1 ) 
; Stack
; Place a copy of x1 on top of the stack
VE_OVER:
    .dw $ff04
    .db "over"
    .dw VE_HEAD
    .set VE_HEAD = VE_OVER
XT_OVER:
    .dw PFA_OVER
PFA_OVER:
    savetos
    ldd tosl, Y+2
    ldd tosh, Y+3

    jmp_ DO_NEXT