aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/swap.asm
blob: c54cdcd48d33d149801de5fefc26b72d52991e7b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
; ( n1 n2 -- n2 n1) 
; Stack
; swaps the two top level stack cells
VE_SWAP:
    .dw $ff04
    .db "swap"
    .dw VE_HEAD
    .set VE_HEAD = VE_SWAP
XT_SWAP:
    .dw PFA_SWAP
PFA_SWAP:
    movw temp0, tosl
    loadtos
    st -Y, temp1
    st -Y, temp0
    jmp_ DO_NEXT