pokecrystal/home/pokedex_flags.asm

CountSetBits::
; Count the number of set bits in b bytes starting from hl.
; Return in a, c and [wNumSetBits].
	ld c, 0
.next
	ld a, [hli]
	ld e, a
	ld d, 8

.count
	srl e
	ld a, 0
	adc c
	ld c, a
	dec d
	jr nz, .count

	dec b
	jr nz, .next

	ld a, c
	ld [wNumSetBits], a
	ret

GetWeekday::
	ld a, [wCurDay]
.mod
	sub 7
	jr nc, .mod
	add 7
	ret

SetSeenAndCaughtMon::
	push af
	ld c, a
	ld hl, wPokedexCaught
	ld b, SET_FLAG
	call PokedexFlagAction
	pop af
	; fallthrough

SetSeenMon::
	ld c, a
	ld hl, wPokedexSeen
	ld b, SET_FLAG
	jr PokedexFlagAction

CheckCaughtMon::
	ld c, a
	ld hl, wPokedexCaught
	ld b, CHECK_FLAG
	jr PokedexFlagAction

CheckSeenMon::
	ld c, a
	ld hl, wPokedexSeen
	ld b, CHECK_FLAG
	; fallthrough

PokedexFlagAction::
	ld d, 0
	predef SmallFarFlagAction
	ld a, c
	and a
	ret
Small home/ reorganization Time to move everything out of home.asm: - InexplicablyEmptyFunction was moved to home/map.asm - The wDebugFlags functions and xor_a brothers were moved to home/flag.asm because they're all flag-related. - ret_2f3e was moved into home/region.asm - The register alias sisters were moved to a new file called home/call_regs.asm - IsInArray and SkipNames were joined by AddNTimes from home/math.asm into home/array.asm, as they're all used to index arrays. - CallPointerAt was moved into home/print_text.asm because given the contents of that file it doesn't feel very out of place (that file isn't very aptly named...) - CountSetBits was moved into home/pokedex_flags.asm because it's unique use is counting the amount of seen/caught mon in the podedex. GetWeekday was pulled into this by proximity. Other changes were also made: - PushLYOverrides was moved from home/sprite_anims.asm to home/battle.asm, because it's almost exclusively used for battle animations, with the lone exception being the Magnet Train. - home/copy.asm was renamed to home/gfx.asm, as it's all gfx-related - home/copy2.asm was renamed to home/copy.asm, now it's the only file called copy. - SetHPPal and GetHPPal were moved from home/hp_pals.asm to home/tilemap.asm, as they're attrmap related, like many functions in that file are. - home/rtc.asm was renamed to home/time_palettes.asm, as it had very little to do with the RTC at all, all RTC functions being in home/time.asm - home/handshake.asm was renamed to home/printer.asm. - home/mon_data_2.asm was renamed to home/mon_party.asm. 2020-02-21 22:48:51 +00:00			`CountSetBits::`
			`; Count the number of set bits in b bytes starting from hl.`
			`; Return in a, c and [wNumSetBits].`
			`ld c, 0`
			`.next`
			`ld a, [hli]`
			`ld e, a`
			`ld d, 8`

			`.count`
			`srl e`
			`ld a, 0`
			`adc c`
			`ld c, a`
			`dec d`
			`jr nz, .count`

			`dec b`
			`jr nz, .next`

			`ld a, c`
			`ld [wNumSetBits], a`
			`ret`

			`GetWeekday::`
			`ld a, [wCurDay]`
			`.mod`
			`sub 7`
			`jr nc, .mod`
			`add 7`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`SetSeenAndCaughtMon::`
split pokedex flag handling into home/pokedex_flags.asm 2013-09-19 01:54:31 +00:00			`push af`
			`ld c, a`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld hl, wPokedexCaught`
split pokedex flag handling into home/pokedex_flags.asm 2013-09-19 01:54:31 +00:00			`ld b, SET_FLAG`
			`call PokedexFlagAction`
			`pop af`
			`; fallthrough`

Remove all address comments 2018-06-24 14:09:41 +00:00			`SetSeenMon::`
split pokedex flag handling into home/pokedex_flags.asm 2013-09-19 01:54:31 +00:00			`ld c, a`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld hl, wPokedexSeen`
split pokedex flag handling into home/pokedex_flags.asm 2013-09-19 01:54:31 +00:00			`ld b, SET_FLAG`
			`jr PokedexFlagAction`

Remove all address comments 2018-06-24 14:09:41 +00:00			`CheckCaughtMon::`
split pokedex flag handling into home/pokedex_flags.asm 2013-09-19 01:54:31 +00:00			`ld c, a`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld hl, wPokedexCaught`
split pokedex flag handling into home/pokedex_flags.asm 2013-09-19 01:54:31 +00:00			`ld b, CHECK_FLAG`
			`jr PokedexFlagAction`

Remove all address comments 2018-06-24 14:09:41 +00:00			`CheckSeenMon::`
split pokedex flag handling into home/pokedex_flags.asm 2013-09-19 01:54:31 +00:00			`ld c, a`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld hl, wPokedexSeen`
split pokedex flag handling into home/pokedex_flags.asm 2013-09-19 01:54:31 +00:00			`ld b, CHECK_FLAG`
			`; fallthrough`

Remove all address comments 2018-06-24 14:09:41 +00:00			`PokedexFlagAction::`
split pokedex flag handling into home/pokedex_flags.asm 2013-09-19 01:54:31 +00:00			`ld d, 0`
Remove Predef_ prefix from routines listed in PredefPointers 2018-01-16 19:30:10 +00:00			`predef SmallFarFlagAction`
split pokedex flag handling into home/pokedex_flags.asm 2013-09-19 01:54:31 +00:00			`ld a, c`
			`and a`
			`ret`