pokecrystal-board/home/flag.asm

103 lines
1.2 KiB
NASM
Raw Normal View History

2018-06-24 07:09:41 -07:00
ResetMapBufferEventFlags::
xor a
2018-01-23 14:39:09 -08:00
ld hl, wEventFlags
ld [hli], a
ret
2018-06-24 07:09:41 -07:00
ResetBikeFlags::
xor a
ld hl, wBikeFlags
ld [hl], a
ret
2018-06-24 07:09:41 -07:00
ResetFlashIfOutOfCave::
ld a, [wEnvironment]
2018-01-22 12:40:43 -08:00
cp ROUTE
jr z, .outdoors
cp TOWN
jr z, .outdoors
ret
2018-01-22 12:40:43 -08:00
.outdoors
ld hl, wStatusFlags
2018-01-22 12:40:43 -08:00
res STATUSFLAGS_FLASH_F, [hl]
ret
EventFlagAction::
2018-01-23 14:39:09 -08:00
ld hl, wEventFlags
call FlagAction
ret
FlagAction::
; Perform action b on bit de in flag array hl.
; inputs:
; b: function
; 0 RESET_FLAG clear bit
; 1 SET_FLAG set bit
; 2 CHECK_FLAG check bit
; de: bit number
; hl: pointer to the flag array
; get index within the byte
ld a, e
and 7
; shift de right by three bits (get the index within memory)
2018-11-20 12:53:45 -08:00
rept 3
srl d
rr e
2018-11-20 12:53:45 -08:00
endr
add hl, de
; implement a decoder
ld c, 1
rrca
jr nc, .one
rlc c
.one
rrca
jr nc, .two
rlc c
rlc c
.two
rrca
jr nc, .three
swap c
.three
; check b's value: 0, 1, 2
ld a, b
cp SET_FLAG
jr c, .clearbit ; RESET_FLAG
jr z, .setbit ; SET_FLAG
; check bit
ld a, [hl]
and c
ld c, a
ret
.setbit
; set bit
ld a, [hl]
or c
ld [hl], a
ret
.clearbit
; clear bit
ld a, c
cpl
and [hl]
ld [hl], a
ret
2018-06-24 07:09:41 -07:00
CheckReceivedDex::
ld de, ENGINE_POKEDEX
ld b, CHECK_FLAG
2017-12-24 09:47:30 -08:00
farcall EngineFlagAction
ld a, c
and a
ret