aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/rot.asm
blob: 298b79c657db5ae230543e85fb0a0eb79afffbcd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
; ( n1 n2 n3 -- n2 n3 n1) 
; Stack
; rotate the three top level cells
VE_ROT:
    .dw $ff03
    .db "rot",0
    .dw VE_HEAD
    .set VE_HEAD = VE_ROT
XT_ROT:
    .dw PFA_ROT
PFA_ROT:
    movw temp0, tosl
    ld temp2, Y+
    ld temp3, Y+ 
    loadtos
        
    st -Y, temp3
    st -Y, temp2
    st -Y, temp1
    st -Y, temp0

    jmp_ DO_NEXT