pokecrystal-board/home.asm

219 lines
3.1 KiB
NASM
Raw Normal View History

2018-01-08 21:36:15 -08:00
INCLUDE "constants.asm"
2013-11-28 23:30:08 -08:00
2017-12-15 18:32:43 -08:00
SECTION "NULL", ROM0
2018-06-25 09:24:18 -07:00
NULL::
2013-11-28 23:30:08 -08:00
INCLUDE "home/rst.asm"
INCLUDE "home/interrupts.asm"
2013-11-28 23:30:08 -08:00
2017-12-15 18:32:43 -08:00
SECTION "Header", ROM0
2013-11-28 23:30:08 -08:00
Start::
2013-11-28 23:30:08 -08:00
nop
jp _Start
2017-12-15 18:32:43 -08:00
SECTION "Home", ROM0
2013-11-28 23:30:08 -08:00
INCLUDE "home/init.asm"
INCLUDE "home/vblank.asm"
INCLUDE "home/delay.asm"
INCLUDE "home/rtc.asm"
INCLUDE "home/fade.asm"
INCLUDE "home/lcd.asm"
INCLUDE "home/time.asm"
INCLUDE "home/serial.asm"
INCLUDE "home/joypad.asm"
INCLUDE "home/decompress.asm"
INCLUDE "home/palettes.asm"
INCLUDE "home/copy.asm"
INCLUDE "home/text.asm"
INCLUDE "home/video.asm"
INCLUDE "home/map_objects.asm"
INCLUDE "home/sine.asm"
INCLUDE "home/movement.asm"
INCLUDE "home/menu_window.asm"
2013-11-28 23:30:08 -08:00
INCLUDE "home/menu.asm"
INCLUDE "home/handshake.asm"
INCLUDE "home/game_time.asm"
INCLUDE "home/map.asm"
2018-06-24 07:09:41 -07:00
InexplicablyEmptyFunction::
2018-01-02 09:49:25 -08:00
; unused
2013-11-28 23:30:08 -08:00
; Inexplicably empty.
; Seen in PredefPointers.
rept 16
2013-11-28 23:30:08 -08:00
nop
endr
2013-11-28 23:30:08 -08:00
ret
INCLUDE "home/farcall.asm"
INCLUDE "home/predef.asm"
INCLUDE "home/window.asm"
INCLUDE "home/flag.asm"
2018-09-15 17:15:55 -07:00
Unreferenced_CheckBPressedDebug::
; Used in debug ROMs to walk through walls and avoid encounters.
ld a, [wDebugFlags]
bit DEBUG_FIELD_F, a
2013-11-28 23:30:08 -08:00
ret z
2015-09-09 16:27:07 -07:00
ldh a, [hJoyDown]
bit B_BUTTON_F, a
2013-11-28 23:30:08 -08:00
ret
2018-06-24 07:09:41 -07:00
xor_a::
2013-11-28 23:30:08 -08:00
xor a
ret
2018-06-24 07:09:41 -07:00
xor_a_dec_a::
2013-11-28 23:30:08 -08:00
xor a
dec a
ret
2018-09-15 17:15:55 -07:00
Unreferenced_CheckFieldDebug::
2013-11-28 23:30:08 -08:00
push hl
2018-09-15 17:15:55 -07:00
ld hl, wDebugFlags
bit DEBUG_FIELD_F, [hl]
2013-11-28 23:30:08 -08:00
pop hl
ret
INCLUDE "home/sprite_updates.asm"
2013-11-28 23:30:08 -08:00
INCLUDE "home/string.asm"
INCLUDE "home/region.asm"
2013-11-28 23:30:08 -08:00
2018-06-24 07:09:41 -07:00
ret_2f3e::
2013-11-28 23:30:08 -08:00
ret
INCLUDE "home/item.asm"
INCLUDE "home/random.asm"
INCLUDE "home/sram.asm"
; Register aliases
2018-06-24 07:09:41 -07:00
_hl_::
jp hl
2013-11-28 23:30:08 -08:00
2018-06-24 07:09:41 -07:00
_de_::
2013-11-28 23:30:08 -08:00
push de
ret
INCLUDE "home/double_speed.asm"
INCLUDE "home/clear_sprites.asm"
2013-11-28 23:30:08 -08:00
INCLUDE "home/copy2.asm"
INCLUDE "home/copy_tilemap.asm"
INCLUDE "home/copy_name.asm"
2013-11-28 23:30:08 -08:00
2018-06-24 07:09:41 -07:00
IsInArray::
2013-11-28 23:30:08 -08:00
; Find value a for every de bytes in array hl.
; Return index in b and carry if found.
ld b, 0
ld c, a
.loop
ld a, [hl]
cp -1
2013-11-28 23:30:08 -08:00
jr z, .NotInArray
cp c
jr z, .InArray
inc b
add hl, de
jr .loop
.NotInArray:
2013-11-28 23:30:08 -08:00
and a
ret
.InArray:
2013-11-28 23:30:08 -08:00
scf
ret
SkipNames::
2014-05-21 13:21:46 -07:00
; Skip a names.
ld bc, NAME_LENGTH
2013-11-28 23:30:08 -08:00
and a
ret z
.loop
add hl, bc
dec a
jr nz, .loop
ret
INCLUDE "home/math.asm"
INCLUDE "home/print_text.asm"
2013-11-28 23:30:08 -08:00
2018-06-24 07:09:41 -07:00
CallPointerAt::
ldh a, [hROMBank]
2013-11-28 23:30:08 -08:00
push af
ld a, [hli]
rst Bankswitch
ld a, [hli]
ld h, [hl]
ld l, a
call _hl_
pop hl
ld a, h
rst Bankswitch
ret
INCLUDE "home/queue_script.asm"
INCLUDE "home/compare.asm"
INCLUDE "home/tilemap.asm"
INCLUDE "home/hp_pals.asm"
2013-11-28 23:30:08 -08:00
CountSetBits::
2013-11-28 23:30:08 -08:00
; Count the number of set bits in b bytes starting from hl.
; Return in a, c and [wNumSetBits].
2013-11-28 23:30:08 -08:00
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
2013-11-28 23:30:08 -08:00
ret
2018-06-24 07:09:41 -07:00
GetWeekday::
2018-01-23 14:39:09 -08:00
ld a, [wCurDay]
2013-11-28 23:30:08 -08:00
.mod
sub 7
jr nc, .mod
add 7
ret
INCLUDE "home/pokedex_flags.asm"
INCLUDE "home/names.asm"
INCLUDE "home/scrolling_menu.asm"
INCLUDE "home/stone_queue.asm"
INCLUDE "home/trainers.asm"
INCLUDE "home/mon_stats.asm"
2014-07-18 10:26:15 -07:00
INCLUDE "home/cry.asm"
INCLUDE "home/print_level.asm"
INCLUDE "home/mon_data.asm"
INCLUDE "home/print_bcd.asm"
INCLUDE "home/mon_data_2.asm"
INCLUDE "home/battle.asm"
INCLUDE "home/sprite_anims.asm"
INCLUDE "home/audio.asm"
INCLUDE "home/mobile.asm"