; ( n1 n2 n3 -- n2 n3 n1) Stack
; R( -- )
; stack manupulation
VE_ROT:
.db $03, "rot"
.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
rjmp DO_NEXT