aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/bm-set.asm
blob: 1ba5faa30608c4a7e0d53d895f17748f315f80ba (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
; ( bitmask byte-addr --  )
; MCU
; set bits from bitmask on byte at addr
VE_BM_SET:
    .dw $ff06
    .db "bm-set"
    .dw VE_HEAD
    .set VE_HEAD = VE_BM_SET
XT_BM_SET:
    .dw PFA_BM_SET
PFA_BM_SET:
    movw zl, tosl
    loadtos
    ld temp0, Z
    or temp0, tosl
    st Z, temp0
    loadtos
    jmp_ DO_NEXT