aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/rpstore.asm
blob: 2a3d778cd57fcb5bdde758b440e6250fe10fadc5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
; ( addr  -- ) (R: -- x*y)
; Stack
; set return stack pointer
VE_RP_STORE:
    .dw $ff03
    .db "rp!",0
    .dw VE_HEAD
    .set VE_HEAD = VE_RP_STORE
XT_RP_STORE:
    .dw PFA_RP_STORE
PFA_RP_STORE:
    in temp2, SREG
    cli
    out SPL, tosl
    out SPH, tosh
    out SREG, temp2
    loadtos
    jmp_ DO_NEXT