aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/spstore.asm
blob: 004d3486389f601b9afe7060a71dfa858bfd9185 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
; ( addr -- i*x) 
; Stack
; set data stack pointer to addr
VE_SP_STORE:
    .dw $ff03
    .db "sp!",0
    .dw VE_HEAD
    .set VE_HEAD = VE_SP_STORE
XT_SP_STORE:
    .dw PFA_SP_STORE
PFA_SP_STORE:
    movw yl, tosl
    loadtos
    jmp_ DO_NEXT