aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/rpfetch.asm
blob: 8d1cdb6f0e73357fb61f404f51f98857e7473a17 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
; (  -- n) 
; Stack
; current return stack pointer address
VE_RP_FETCH:
    .dw $ff03
    .db "rp@",0
    .dw VE_HEAD
    .set VE_HEAD = VE_RP_FETCH
XT_RP_FETCH:
    .dw PFA_RP_FETCH
PFA_RP_FETCH:
    savetos
    in tosl, SPL
    in tosh, SPH
    jmp_ DO_NEXT