aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/spfetch.asm
blob: 69a0709cdb7848f4b38f46ee2a14bd264398bff6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
; (  -- addr ) 
; Stack
; current data stack pointer
VE_SP_FETCH:
    .dw $ff03
    .db "sp@",0
    .dw VE_HEAD
    .set VE_HEAD = VE_SP_FETCH
XT_SP_FETCH:
    .dw PFA_SP_FETCH
PFA_SP_FETCH:
    savetos
    movw tosl, yl
    jmp_ DO_NEXT