aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/cstore.asm
blob: f953f8fd5f4aa8683a01a505a320757848b88705 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
; ( c a-addr -- ) 
; Memory
; store a single byte to RAM address
VE_CSTORE:
    .dw $ff02
    .db "c!"
    .dw VE_HEAD
    .set VE_HEAD = VE_CSTORE
XT_CSTORE:
    .dw PFA_CSTORE
PFA_CSTORE:
    movw zl, tosl
    loadtos
    st Z, tosl
    loadtos
    jmp_ DO_NEXT