pokehacks/pokecrystal-board
0
0
Fork 0
mirror of https://gitlab.com/xCrystal/pokecrystal-board.git synced 2025-01-23 09:16:20 -08:00
Code Issues Packages Projects Releases Wiki Activity

copy in IsInArray from pokered

Browse Source
This commit is contained in:
Bryan Bishop 2012-05-30 21:11:21 -05:00
parent 441959d6f1
commit 92b42d4aeb
1 changed files with 26 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
main.asm
View File

@ -195,7 +195,32 @@ GetFarHalfword: ; 0x305d
ret ret
; 0x306b ; 0x306b
INCBIN "baserom.gbc",$306b,$30fe-$306b INCBIN "baserom.gbc",$306b,$30e1-$306b
IsInArray: ; 30e1
; searches an array at hl for the value in a.
; skips (de - 1) bytes between reads, so to check every byte, de should be 1.
; if found, returns count in b and sets carry.
ld b,0
ld c,a
.loop\@
ld a,[hl]
cp a,$FF
jr z,.NotInArray\@
cp c
jr z,.InArray\@
inc b
add hl,de
jr .loop\@
.NotInArray\@
and a
ret
.InArray\@
scf
ret
; 0x30f4
INCBIN "baserom.gbc",$30f4,$30fe - $30f4
AddNTimes: ; 0x30fe AddNTimes: ; 0x30fe
and a and a