aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/over.asm
blob: 11b1770acd81c4124a8704bf9df39dcc8555ea79 (plain)
1
2
3
4
5
6
7
8
;C OVER    x1 x2 -- x1 x2 x1   per stack diagram
        CODEHEADER(XT_OVER,4,"over")
        MOV     @PSP,W          ; 2
        SUB     #2,PSP          ; 2
        MOV     TOS,0(PSP)      ; 4
        MOV     W,TOS           ; 1
        NEXT                    ; 4