aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/bm-toggle.asm
blob: fbbdc219a1f736bff7fa5f709a9095986471992f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
; ( bitmask byte-addr --  )
; MCU
; toggle bits set in bitmask on byte at addr
VE_BM_TOGGLE:
    .dw $ff09
    .db "bm-toggle",0
    .dw VE_HEAD
    .set VE_HEAD = VE_BM_TOGGLE
XT_BM_TOGGLE:
    .dw PFA_BM_TOGGLE
PFA_BM_TOGGLE:
    movw zl, tosl
    loadtos
    ld temp0, Z
    eor temp0, tosl
    st Z, temp0
    loadtos
    jmp_ DO_NEXT