aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/dup.asm
blob: 4c4dbdefa27d5414b24a985c1dcbcb7a50c98f1a (plain)
1
2
3
4
5
;C DUP      x -- x x      duplicate top of stack
        CODEHEADER(XT_DUP,3,"dup") 
PUSHTOS: SUB    #2,PSP          ; 1  push old TOS..
        MOV     TOS,0(PSP)      ; 4  ..onto stack
        NEXT                    ; 4