aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/rot.asm
blob: fe5914bec4c7a6095b7165984a42830081f4517f (plain)
1
2
3
4
5
6
7
;C ROT    x1 x2 x3 -- x2 x3 x1  per stack diagram
        CODEHEADER(XT_ROT,3,"rot")
        MOV     @PSP,W          ; 2 fetch x2
        MOV     TOS,0(PSP)      ; 4 store x3
        MOV     2(PSP),TOS      ; 3 fetch x1
        MOV     W,2(PSP)        ; 4 store x2
        NEXT                    ; 4