mirror of https://github.com/pret/pokecrystal.git
1163 lines
16 KiB
NASM
1163 lines
16 KiB
NASM
Function8b342:: ; 8b342
|
|
; Loads the secondary map header pointer, then runs through a
|
|
; dw with three dummy functions. Spends a lot of energy
|
|
; doing pretty much nothing.
|
|
call GetSecondaryMapHeaderPointer
|
|
ld d, h
|
|
ld e, l
|
|
|
|
; Everything between here and "ret" is useless.
|
|
xor a
|
|
.loop
|
|
push af
|
|
ld hl, .dw
|
|
rst JumpTable
|
|
pop af
|
|
inc a
|
|
cp 3
|
|
jr nz, .loop
|
|
ret
|
|
; 8b354
|
|
|
|
.dw ; 8b354
|
|
dw .zero
|
|
dw .one
|
|
dw .two
|
|
; 8b35a
|
|
|
|
.zero ; 8b35a
|
|
mobile
|
|
; 8b35b
|
|
|
|
.one ; 8b35b
|
|
mobile
|
|
; 8b35c
|
|
|
|
.two ; 8b35c
|
|
mobile
|
|
; 8b35d
|
|
|
|
Function8b35d: ; 8b35d
|
|
ld a, h
|
|
cp d
|
|
ret nz
|
|
ld a, l
|
|
cp e
|
|
ret
|
|
; 8b363
|
|
|
|
Function8b363: ; 8b363
|
|
push bc
|
|
callba Mobile_AlwaysReturnNotCarry
|
|
pop bc
|
|
ret
|
|
; 8b36c
|
|
|
|
Function8b36c: ; 8b36c (22:736c)
|
|
; [bc + (0:4)] = -1
|
|
push bc
|
|
ld h, b
|
|
ld l, c
|
|
ld bc, 4
|
|
ld a, -1
|
|
call ByteFill
|
|
pop bc
|
|
ret
|
|
|
|
Function8b379: ; 8b379 (22:7379)
|
|
; d = [bc + e]
|
|
push bc
|
|
ld a, c
|
|
add e
|
|
ld c, a
|
|
ld a, $0
|
|
adc b
|
|
ld b, a
|
|
ld a, [bc]
|
|
ld d, a
|
|
pop bc
|
|
ret
|
|
|
|
Function8b385: ; 8b385 (22:7385)
|
|
; [bc + e] = d
|
|
push bc
|
|
ld a, c
|
|
add e
|
|
ld c, a
|
|
ld a, $0
|
|
adc b
|
|
ld b, a
|
|
ld a, d
|
|
ld [bc], a
|
|
pop bc
|
|
ret
|
|
|
|
Function8b391: ; 8b391 (22:7391)
|
|
; find first e in range(4) such that [bc + e] == -1
|
|
; if none exist, return carry
|
|
push bc
|
|
ld e, 0
|
|
ld d, 4
|
|
.loop
|
|
ld a, [bc]
|
|
inc bc
|
|
cp -1
|
|
jr z, .done
|
|
inc e
|
|
dec d
|
|
jr nz, .loop
|
|
dec e
|
|
scf
|
|
.done
|
|
pop bc
|
|
ret
|
|
|
|
Function8b3a4: ; 8b3a4 (22:73a4)
|
|
; strcmp(hl, bc, 4)
|
|
push de
|
|
push bc
|
|
ld d, b
|
|
ld e, c
|
|
ld c, 4
|
|
call Function89185
|
|
pop bc
|
|
pop de
|
|
ret
|
|
|
|
Function8b3b0: ; 8b3b0 (22:73b0)
|
|
ld bc, $a037 ; 4:a037
|
|
ld a, [$a60b]
|
|
and a
|
|
jr z, .asm_8b3c2
|
|
cp $3
|
|
jr nc, .asm_8b3c2
|
|
call Function8b391
|
|
jr c, .asm_8b3c9
|
|
.asm_8b3c2
|
|
call Function8b36c
|
|
xor a
|
|
ld [$a60b], a
|
|
.asm_8b3c9
|
|
ld a, [$a60b]
|
|
ret
|
|
|
|
Function8b3cd: ; 8b3cd (22:73cd)
|
|
push de
|
|
push bc
|
|
ld e, $4
|
|
.asm_8b3d1
|
|
ld a, [bc]
|
|
inc bc
|
|
call Function8998b
|
|
inc hl
|
|
dec e
|
|
jr nz, .asm_8b3d1
|
|
pop bc
|
|
pop de
|
|
ret
|
|
|
|
Function8b3dd: ; 8b3dd (22:73dd)
|
|
push de
|
|
push bc
|
|
call JoyTextDelay_ForcehJoyDown ; joypad
|
|
ld a, c
|
|
pop bc
|
|
pop de
|
|
bit A_BUTTON_F, a
|
|
jr nz, .a_button
|
|
bit B_BUTTON_F, a
|
|
jr nz, .b_button
|
|
bit D_UP_F, a
|
|
jr nz, .d_up
|
|
bit D_DOWN_F, a
|
|
jr nz, .d_down
|
|
and a
|
|
ret
|
|
|
|
.a_button
|
|
ld a, e
|
|
cp $3
|
|
jr z, .e_is_zero
|
|
inc e
|
|
ld d, 0
|
|
call Function8b385
|
|
xor a
|
|
ld [wd010], a
|
|
ret
|
|
|
|
.e_is_zero
|
|
call PlayClickSFX
|
|
ld d, $0
|
|
scf
|
|
ret
|
|
|
|
.b_button
|
|
ld a, e
|
|
and a
|
|
jr nz, .e_is_not_zero
|
|
call PlayClickSFX
|
|
ld d, -1
|
|
call Function8b385
|
|
ld d, 1
|
|
scf
|
|
ret
|
|
|
|
.e_is_not_zero
|
|
ld d, -1
|
|
call Function8b385
|
|
dec e
|
|
xor a
|
|
ld [wd010], a
|
|
ret
|
|
|
|
.d_up
|
|
call Function8b379
|
|
ld a, d
|
|
cp $a
|
|
jr c, .less_than_10_up_1
|
|
ld d, $9
|
|
.less_than_10_up_1
|
|
inc d
|
|
ld a, d
|
|
cp $a
|
|
jr c, .less_than_10_up_2
|
|
ld d, $0
|
|
.less_than_10_up_2
|
|
call Function8b385
|
|
xor a
|
|
ld [wd010], a
|
|
ret
|
|
|
|
.d_down
|
|
call Function8b379
|
|
ld a, d
|
|
cp $a
|
|
jr c, .less_than_10_down
|
|
ld d, $0
|
|
.less_than_10_down
|
|
ld a, d
|
|
dec d
|
|
and a
|
|
jr nz, .nonzero_down
|
|
ld d, $9
|
|
.nonzero_down
|
|
call Function8b385
|
|
xor a
|
|
ld [wd010], a
|
|
ret
|
|
|
|
Function8b45c: ; 8b45c (22:745c)
|
|
call Function8b36c
|
|
xor a
|
|
ld [wd010], a
|
|
ld [wd012], a
|
|
call Function8b391
|
|
ld d, $0
|
|
call Function8b385
|
|
.asm_8b46e
|
|
call Mobile22_SetBGMapMode0
|
|
call Function8b493
|
|
call Function8b4cc
|
|
call Function8b518
|
|
call Function89b78
|
|
push bc
|
|
call Function8b4fd
|
|
call Function89c44
|
|
ld a, $1
|
|
ld [hBGMapMode], a
|
|
pop bc
|
|
call Function8b3dd
|
|
jr nc, .asm_8b46e
|
|
ld a, d
|
|
and a
|
|
ret z
|
|
scf
|
|
ret
|
|
|
|
Function8b493: ; 8b493 (22:7493)
|
|
push bc
|
|
call Mobile22_SetBGMapMode0
|
|
call Function8b521
|
|
ld hl, Jumptable_8b4a0
|
|
pop bc
|
|
rst JumpTable
|
|
ret
|
|
|
|
Jumptable_8b4a0: ; 8b4a0 (22:74a0)
|
|
dw Function8b4a4
|
|
dw Function8b4b8
|
|
|
|
|
|
Function8b4a4: ; 8b4a4 (22:74a4)
|
|
push bc
|
|
push de
|
|
call Function8b4d8
|
|
call TextBox
|
|
pop de
|
|
pop bc
|
|
call Function8b4cc
|
|
call Function8b518
|
|
call Function8b3cd
|
|
ret
|
|
|
|
Function8b4b8: ; 8b4b8 (22:74b8)
|
|
push bc
|
|
push de
|
|
call Function8b4ea
|
|
call Function89b3b
|
|
pop de
|
|
pop bc
|
|
call Function8b4cc
|
|
call Function8b518
|
|
call Function8b3cd
|
|
ret
|
|
|
|
Function8b4cc: ; 8b4cc (22:74cc)
|
|
push bc
|
|
ld hl, Unknown_8b529
|
|
call Function8b50a
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
pop bc
|
|
ret
|
|
|
|
Function8b4d8: ; 8b4d8 (22:74d8)
|
|
ld hl, Unknown_8b529
|
|
call Function8b50a
|
|
push hl
|
|
inc hl
|
|
inc hl
|
|
ld a, [hli]
|
|
ld b, a
|
|
ld a, [hl]
|
|
ld c, a
|
|
pop hl
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
ret
|
|
|
|
Function8b4ea: ; 8b4ea (22:74ea)
|
|
ld hl, Unknown_8b529
|
|
call Function8b50a
|
|
push hl
|
|
inc hl
|
|
inc hl
|
|
ld a, [hli]
|
|
ld b, a
|
|
ld a, [hl]
|
|
ld c, a
|
|
pop hl
|
|
ld a, [hli]
|
|
ld e, a
|
|
ld a, [hl]
|
|
ld d, a
|
|
ret
|
|
|
|
Function8b4fd: ; 8b4fd (22:74fd)
|
|
ld hl, Unknown_8b529 + 4
|
|
call Function8b50a
|
|
ld a, [hli]
|
|
ld c, a
|
|
ld a, [hli]
|
|
ld b, a
|
|
ld a, [hli]
|
|
ld d, a
|
|
ret
|
|
|
|
Function8b50a: ; 8b50a (22:750a)
|
|
ld a, [wd02e]
|
|
and a
|
|
ret z
|
|
ld b, $0
|
|
ld c, $8
|
|
.asm_8b513
|
|
add hl, bc
|
|
dec a
|
|
jr nz, .asm_8b513
|
|
ret
|
|
|
|
Function8b518: ; 8b518 (22:7518)
|
|
push de
|
|
ld d, $0
|
|
ld e, $14
|
|
add hl, de
|
|
inc hl
|
|
pop de
|
|
ret
|
|
|
|
Function8b521: ; 8b521 (22:7521)
|
|
ld hl, Unknown_8b529 + 7
|
|
call Function8b50a
|
|
ld a, [hl]
|
|
ret
|
|
; 8b529 (22:7529)
|
|
|
|
Unknown_8b529: ; 8b529
|
|
dwcoord 2, 5
|
|
db 1, 4, $20, $49, 0, 1
|
|
dwcoord 7, 4
|
|
db 1, 4, $48, $41, 0, 0
|
|
; 8b539
|
|
|
|
Function8b539: ; 8b539 (22:7539)
|
|
ld bc, wd017
|
|
call Function8b36c
|
|
xor a
|
|
ld [wd012], a
|
|
ld [wd02e], a
|
|
call Function8b493
|
|
call Function8b4fd
|
|
ld e, $0
|
|
call Function89c44
|
|
call CGBOnly_LoadEDTile
|
|
ret
|
|
|
|
Function8b555: ; 8b555 (22:7555)
|
|
.loop
|
|
ld hl, UnknownText_0x8b5ce
|
|
call PrintText
|
|
ld bc, wd017
|
|
call Function8b45c
|
|
jr c, .asm_8b5c8
|
|
call Function89448
|
|
ld bc, wd017
|
|
call Function8b493
|
|
ld bc, wd017
|
|
call Function8b664
|
|
jr nz, .asm_8b57c
|
|
ld hl, UnknownText_0x8b5e2
|
|
call PrintText
|
|
jr .loop
|
|
|
|
.asm_8b57c
|
|
ld hl, UnknownText_0x8b5d3
|
|
call PrintText
|
|
ld bc, wd013
|
|
call Function8b45c
|
|
jr c, .loop
|
|
ld bc, wd017
|
|
ld hl, wd013
|
|
call Function8b3a4
|
|
jr z, .strings_equal
|
|
call Function89448
|
|
ld bc, wd013
|
|
call Function8b493
|
|
ld hl, UnknownText_0x8b5d8
|
|
call PrintText
|
|
jr .asm_8b57c
|
|
|
|
.strings_equal
|
|
call OpenSRAMBank4
|
|
ld hl, wd013
|
|
ld de, $a037 ; 4:a037
|
|
ld bc, $4
|
|
call CopyBytes
|
|
call CloseSRAM
|
|
call Function89448
|
|
ld bc, wd013
|
|
call Function8b493
|
|
ld hl, UnknownText_0x8b5dd
|
|
call PrintText
|
|
and a
|
|
.asm_8b5c8
|
|
push af
|
|
call Function89448
|
|
pop af
|
|
ret
|
|
; 8b5ce (22:75ce)
|
|
|
|
UnknownText_0x8b5ce: ; 0x8b5ce
|
|
; Please enter any four-digit number.
|
|
text_jump UnknownText_0x1bc187
|
|
db "@"
|
|
; 0x8b5d3
|
|
|
|
UnknownText_0x8b5d3: ; 0x8b5d3
|
|
; Enter the same number to confirm.
|
|
text_jump UnknownText_0x1bc1ac
|
|
db "@"
|
|
; 0x8b5d8
|
|
|
|
UnknownText_0x8b5d8: ; 0x8b5d8
|
|
; That's not the same number.
|
|
text_jump UnknownText_0x1bc1cf
|
|
db "@"
|
|
; 0x8b5dd
|
|
|
|
UnknownText_0x8b5dd: ; 0x8b5dd
|
|
; Your PASSCODE has been set. Enter this number next time to open the CARD FOLDER.
|
|
text_jump UnknownText_0x1bc1eb
|
|
db "@"
|
|
; 0x8b5e2
|
|
|
|
UnknownText_0x8b5e2: ; 0x8b5e2
|
|
; 0000 is invalid!
|
|
text_jump UnknownText_0x1bc23e
|
|
db "@"
|
|
; 0x8b5e7
|
|
|
|
Function8b5e7: ; 8b5e7 (22:75e7)
|
|
ld bc, wd013
|
|
call Function8b36c
|
|
xor a
|
|
ld [wd012], a
|
|
ld [wd02e], a
|
|
call Function8b493
|
|
call Function891ab
|
|
call Function8b4fd
|
|
ld e, $0
|
|
call Function89c44
|
|
.asm_8b602
|
|
ld hl, UnknownText_0x8b642
|
|
call PrintText
|
|
ld bc, wd013
|
|
call Function8b45c
|
|
jr c, .asm_8b63c
|
|
call Function89448
|
|
ld bc, wd013
|
|
call Function8b493
|
|
call OpenSRAMBank4
|
|
ld hl, $a037 ; 4:a037
|
|
call Function8b3a4
|
|
call CloseSRAM
|
|
jr z, .asm_8b635
|
|
ld hl, UnknownText_0x8b647
|
|
call PrintText
|
|
ld bc, wd013
|
|
call Function8b36c
|
|
jr .asm_8b602
|
|
.asm_8b635
|
|
ld hl, UnknownText_0x8b64c
|
|
call PrintText
|
|
and a
|
|
.asm_8b63c
|
|
push af
|
|
call Function89448
|
|
pop af
|
|
ret
|
|
; 8b642 (22:7642)
|
|
|
|
UnknownText_0x8b642: ; 0x8b642
|
|
; Enter the CARD FOLDER PASSCODE.
|
|
text_jump UnknownText_0x1bc251
|
|
db "@"
|
|
; 0x8b647
|
|
|
|
UnknownText_0x8b647: ; 0x8b647
|
|
; Incorrect PASSCODE!
|
|
text_jump UnknownText_0x1bc272
|
|
db "@"
|
|
; 0x8b64c
|
|
|
|
UnknownText_0x8b64c: ; 0x8b64c
|
|
; CARD FOLDER open.@ @
|
|
text_jump UnknownText_0x1bc288
|
|
start_asm
|
|
ld de, SFX_TWINKLE
|
|
call PlaySFX
|
|
call WaitSFX
|
|
ld c, $8
|
|
call DelayFrames
|
|
ld hl, .string_8b663
|
|
ret
|
|
.string_8b663
|
|
db "@"
|
|
; 8b664
|
|
|
|
Function8b664: ; 8b664 (22:7664)
|
|
push bc
|
|
ld de, $4
|
|
.asm_8b668
|
|
ld a, [bc]
|
|
cp $0
|
|
jr nz, .asm_8b66e
|
|
inc d
|
|
.asm_8b66e
|
|
inc bc
|
|
dec e
|
|
jr nz, .asm_8b668
|
|
pop bc
|
|
ld a, d
|
|
cp $4
|
|
ret
|
|
|
|
Function8b677: ; 8b677
|
|
call ClearBGPalettes
|
|
call DisableLCD
|
|
call Function8b690
|
|
call Function8b6bb
|
|
call Function8b6ed
|
|
call EnableLCD
|
|
call Function891ab
|
|
call SetPalettes
|
|
ret
|
|
; 8b690
|
|
|
|
Function8b690: ; 8b690
|
|
ld hl, GFX_17afa5 + $514
|
|
ld de, VTiles2
|
|
ld bc, $160
|
|
ld a, BANK(GFX_17afa5)
|
|
call FarCopyBytes
|
|
ld hl, GFX_17afa5 + $514 + $160 - $10
|
|
ld de, VTiles2 tile $61
|
|
ld bc, $10
|
|
ld a, BANK(GFX_17afa5)
|
|
call FarCopyBytes
|
|
ld hl, GFX_17afa5 + $514 + $160
|
|
ld de, VTiles1 tile $6e
|
|
ld bc, $10
|
|
ld a, BANK(GFX_17afa5)
|
|
call FarCopyBytes
|
|
ret
|
|
; 8b6bb
|
|
|
|
Function8b6bb: ; 8b6bb
|
|
ld a, [rSVBK]
|
|
push af
|
|
ld a, $5
|
|
ld [rSVBK], a
|
|
ld hl, Palette_8b6d5
|
|
ld de, UnknBGPals
|
|
ld bc, $0018
|
|
call CopyBytes
|
|
pop af
|
|
ld [rSVBK], a
|
|
call Function8949c
|
|
ret
|
|
; 8b6d5
|
|
|
|
Palette_8b6d5: ; 8b6d5
|
|
RGB 31, 31, 31
|
|
RGB 31, 21, 00
|
|
RGB 14, 07, 03
|
|
RGB 00, 00, 00
|
|
RGB 31, 31, 31
|
|
RGB 31, 21, 00
|
|
RGB 22, 09, 17
|
|
RGB 00, 00, 00
|
|
RGB 31, 31, 31
|
|
RGB 31, 21, 00
|
|
RGB 06, 24, 08
|
|
RGB 00, 00, 00
|
|
; 8b6ed
|
|
|
|
Function8b6ed: ; 8b6ed
|
|
hlcoord 0, 0, AttrMap
|
|
ld bc, $012c
|
|
xor a
|
|
call ByteFill
|
|
hlcoord 0, 14, AttrMap
|
|
ld bc, $0050
|
|
ld a, $7
|
|
call ByteFill
|
|
ret
|
|
; 8b703
|
|
|
|
Function8b703: ; 8b703
|
|
call Mobile22_SetBGMapMode0
|
|
push hl
|
|
ld a, $c
|
|
ld [hli], a
|
|
inc a
|
|
call Function8b73e
|
|
inc a
|
|
ld [hl], a
|
|
pop hl
|
|
push hl
|
|
push bc
|
|
ld de, SCREEN_WIDTH
|
|
add hl, de
|
|
.asm_8b717
|
|
push hl
|
|
ld a, $f
|
|
ld [hli], a
|
|
ld a, $7f
|
|
call Function8b73e
|
|
ld a, $11
|
|
ld [hl], a
|
|
pop hl
|
|
ld de, SCREEN_WIDTH
|
|
add hl, de
|
|
dec b
|
|
jr nz, .asm_8b717
|
|
call Function8b732
|
|
pop bc
|
|
pop hl
|
|
jr Function8b744
|
|
; 8b732
|
|
|
|
Function8b732: ; 8b732
|
|
ld a, $12
|
|
ld [hli], a
|
|
ld a, $13
|
|
call Function8b73e
|
|
ld a, $14
|
|
ld [hl], a
|
|
ret
|
|
; 8b73e
|
|
|
|
Function8b73e: ; 8b73e
|
|
ld d, c
|
|
.asm_8b73f
|
|
ld [hli], a
|
|
dec d
|
|
jr nz, .asm_8b73f
|
|
ret
|
|
; 8b744
|
|
|
|
Function8b744: ; 8b744
|
|
ld de, AttrMap - TileMap
|
|
add hl, de
|
|
inc b
|
|
inc b
|
|
inc c
|
|
inc c
|
|
xor a
|
|
.asm_8b74d
|
|
push bc
|
|
push hl
|
|
.asm_8b74f
|
|
ld [hli], a
|
|
dec c
|
|
jr nz, .asm_8b74f
|
|
pop hl
|
|
ld de, SCREEN_WIDTH
|
|
add hl, de
|
|
pop bc
|
|
dec b
|
|
jr nz, .asm_8b74d
|
|
ret
|
|
; 8b75d
|
|
|
|
Function8b75d: ; 8b75d
|
|
call Mobile22_SetBGMapMode0
|
|
hlcoord 0, 0
|
|
ld a, $1
|
|
ld bc, SCREEN_WIDTH
|
|
call ByteFill
|
|
hlcoord 0, 1
|
|
ld a, $2
|
|
ld [hl], a
|
|
hlcoord 9, 1
|
|
ld c, $b
|
|
call Function8b788
|
|
hlcoord 1, 1
|
|
ld a, $4
|
|
ld e, $8
|
|
.asm_8b780
|
|
ld [hli], a
|
|
inc a
|
|
dec e
|
|
jr nz, .asm_8b780
|
|
jr Function8b79e
|
|
; 8b787
|
|
|
|
Function8b787: ; 8b787
|
|
ret
|
|
; 8b788
|
|
|
|
Function8b788: ; 8b788
|
|
.asm_8b788
|
|
ld a, $2
|
|
ld [hli], a
|
|
dec c
|
|
ret z
|
|
ld a, $1
|
|
ld [hli], a
|
|
dec c
|
|
ret z
|
|
ld a, $3
|
|
ld [hli], a
|
|
dec c
|
|
ret z
|
|
ld a, $1
|
|
ld [hli], a
|
|
dec c
|
|
jr nz, .asm_8b788
|
|
ret
|
|
; 8b79e
|
|
|
|
Function8b79e: ; 8b79e
|
|
hlcoord 0, 1, AttrMap
|
|
ld a, $1
|
|
ld [hli], a
|
|
hlcoord 9, 1, AttrMap
|
|
ld e, $b
|
|
.asm_8b7a9
|
|
ld a, $2
|
|
ld [hli], a
|
|
dec e
|
|
ret z
|
|
xor a
|
|
ld [hli], a
|
|
dec e
|
|
ret z
|
|
ld a, $1
|
|
ld [hli], a
|
|
dec e
|
|
ret z
|
|
xor a
|
|
ld [hli], a
|
|
dec e
|
|
jr nz, .asm_8b7a9
|
|
ret
|
|
; 8b7bd
|
|
|
|
Function8b7bd: ; 8b7bd
|
|
call Function8b855
|
|
ld hl, MenuDataHeader_0x8b867
|
|
call CopyMenuDataHeader
|
|
ld a, [wd030]
|
|
ld [wMenuCursorBuffer], a
|
|
ld a, [wd031]
|
|
ld [wMenuScrollPosition], a
|
|
ld a, [wd032]
|
|
and a
|
|
jr z, .asm_8b7e0
|
|
ld a, [wMenuFlags]
|
|
set 3, a
|
|
ld [wMenuFlags], a
|
|
|
|
.asm_8b7e0
|
|
ld a, [wd0e3]
|
|
and a
|
|
jr z, .asm_8b7ea
|
|
dec a
|
|
ld [wScrollingMenuCursorPosition], a
|
|
|
|
.asm_8b7ea
|
|
hlcoord 0, 2
|
|
ld b, $b
|
|
ld c, $12
|
|
call Function8b703
|
|
call Function8b75d
|
|
call UpdateSprites
|
|
call Function89209
|
|
call ScrollingMenu
|
|
call Function8920f
|
|
ld a, [wMenuJoypad]
|
|
cp $2
|
|
jr z, .asm_8b823
|
|
cp $20
|
|
jr nz, .asm_8b813
|
|
call Function8b832
|
|
jr .asm_8b7ea
|
|
|
|
.asm_8b813
|
|
cp $10
|
|
jr nz, .asm_8b81c
|
|
call Function8b83e
|
|
jr .asm_8b7ea
|
|
|
|
.asm_8b81c
|
|
ld a, [MenuSelection]
|
|
cp $ff
|
|
jr nz, .asm_8b824
|
|
|
|
.asm_8b823
|
|
xor a
|
|
|
|
.asm_8b824
|
|
ld c, a
|
|
ld a, [wMenuCursorY]
|
|
ld [wd030], a
|
|
ld a, [wMenuScrollPosition]
|
|
ld [wd031], a
|
|
ret
|
|
; 8b832
|
|
|
|
Function8b832: ; 8b832
|
|
ld a, [wMenuScrollPosition]
|
|
ld hl, wMenuData2Items
|
|
sub [hl]
|
|
jr nc, Function8b84b
|
|
xor a
|
|
jr Function8b84b
|
|
; 8b83e
|
|
|
|
Function8b83e: ; 8b83e
|
|
ld a, [wMenuScrollPosition]
|
|
ld hl, wMenuData2Items
|
|
add [hl]
|
|
cp $24
|
|
jr c, Function8b84b
|
|
ld a, $24
|
|
|
|
Function8b84b: ; 8b84b
|
|
ld [wMenuScrollPosition], a
|
|
ld a, [wMenuCursorY]
|
|
ld [wMenuCursorBuffer], a
|
|
ret
|
|
; 8b855
|
|
|
|
Function8b855: ; 8b855
|
|
ld a, $28
|
|
ld hl, wd002
|
|
ld [hli], a
|
|
ld c, $28
|
|
xor a
|
|
.asm_8b85e
|
|
inc a
|
|
ld [hli], a
|
|
dec c
|
|
jr nz, .asm_8b85e
|
|
ld a, $ff
|
|
ld [hl], a
|
|
ret
|
|
; 8b867
|
|
|
|
MenuDataHeader_0x8b867: ; 0x8b867
|
|
db $40 ; flags
|
|
db 03, 01 ; start coords
|
|
db 13, 18 ; end coords
|
|
dw MenuData2_0x8b870
|
|
db 1 ; default option
|
|
; 0x8b86f
|
|
|
|
db 0
|
|
|
|
MenuData2_0x8b870: ; 0x8b870
|
|
db $3c ; flags
|
|
db 5 ; items
|
|
db 3, 1
|
|
dbw 0, wd002
|
|
dba Function8b880
|
|
dba Function8b88c
|
|
dba Function8b8c8
|
|
; 8b880
|
|
|
|
Function8b880: ; 8b880
|
|
ld h, d
|
|
ld l, e
|
|
ld de, MenuSelection
|
|
lb bc, PRINTNUM_LEADINGZEROS | 1, 2
|
|
call PrintNum
|
|
ret
|
|
; 8b88c
|
|
|
|
Function8b88c: ; 8b88c
|
|
call OpenSRAMBank4
|
|
ld h, d
|
|
ld l, e
|
|
push hl
|
|
ld de, String_89116
|
|
call Function8931b
|
|
call Function8932d
|
|
jr c, .asm_8b8a3
|
|
ld hl, 0
|
|
add hl, bc
|
|
ld d, h
|
|
ld e, l
|
|
|
|
.asm_8b8a3
|
|
pop hl
|
|
push hl
|
|
call PlaceString
|
|
pop hl
|
|
ld d, $0
|
|
ld e, $6
|
|
add hl, de
|
|
push hl
|
|
ld de, String_89116
|
|
call Function8931b
|
|
call Function8934a
|
|
jr c, .asm_8b8c0
|
|
ld hl, $0006
|
|
add hl, bc
|
|
ld d, h
|
|
ld e, l
|
|
|
|
.asm_8b8c0
|
|
pop hl
|
|
call PlaceString
|
|
call CloseSRAM
|
|
ret
|
|
; 8b8c8
|
|
|
|
Function8b8c8: ; 8b8c8
|
|
hlcoord 0, 14
|
|
ld b, $2
|
|
ld c, $12
|
|
call TextBox
|
|
ld a, [wd033]
|
|
ld b, 0
|
|
ld c, a
|
|
ld hl, Unknown_8b903
|
|
add hl, bc
|
|
add hl, bc
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
ld d, h
|
|
ld e, l
|
|
hlcoord 1, 16
|
|
call PlaceString
|
|
hlcoord 0, 13
|
|
ld a, $f
|
|
ld [hl], a
|
|
hlcoord 19, 13
|
|
ld a, $11
|
|
ld [hl], a
|
|
ld a, [wMenuScrollPosition]
|
|
cp $24
|
|
ret c
|
|
hlcoord 0, 13
|
|
ld c, $12
|
|
call Function8b732
|
|
ret
|
|
; 8b903
|
|
|
|
Unknown_8b903: ; 8b903
|
|
dw String_8b90b
|
|
dw String_8b919
|
|
dw String_8b92a
|
|
dw String_8b938
|
|
|
|
String_8b90b: db "めいしを えらんでください@" ; Please select a noun.
|
|
String_8b919: db "どの めいしと いれかえますか?@" ; OK to swap with any noun?
|
|
String_8b92a: db "あいてを えらんでください@" ; Please select an opponent.
|
|
String_8b938: db "いれる ところを えらんでください@" ; Please select a location.
|
|
; 8b94a
|
|
|
|
Function8b94a: ; 8b94a
|
|
ld [wd033], a
|
|
xor a
|
|
ld [wMenuScrollPosition], a
|
|
ld [wd032], a
|
|
ld [wd0e3], a
|
|
ld [wd031], a
|
|
ld a, $1
|
|
ld [wd030], a
|
|
ret
|
|
; 8b960
|
|
|
|
|
|
Function8b960: ; 8b960 (22:7960)
|
|
ld hl, MenuDataHeader_0x8b9ac
|
|
call LoadMenuDataHeader
|
|
call Function8b9e9
|
|
jr c, .asm_8b97a
|
|
hlcoord 11, 0
|
|
ld b, $6
|
|
ld c, $7
|
|
call Function8b703
|
|
ld hl, MenuDataHeader_0x8b9b1
|
|
jr .asm_8b987
|
|
.asm_8b97a
|
|
hlcoord 11, 0
|
|
ld b, $a
|
|
ld c, $7
|
|
call Function8b703
|
|
ld hl, MenuDataHeader_0x8b9ca
|
|
.asm_8b987
|
|
ld a, $1
|
|
call Function89d5e
|
|
ld hl, Function8b9ab
|
|
call Function89d85
|
|
call ExitMenu
|
|
jr c, .asm_8b99c
|
|
call Function8b99f
|
|
jr nz, .asm_8b99d
|
|
.asm_8b99c
|
|
xor a
|
|
.asm_8b99d
|
|
ld c, a
|
|
ret
|
|
|
|
Function8b99f: ; 8b99f (22:799f)
|
|
ld hl, wd002
|
|
dec a
|
|
ld c, a
|
|
ld b, $0
|
|
add hl, bc
|
|
ld a, [hl]
|
|
cp $ff
|
|
ret
|
|
; 8b9ab (22:79ab)
|
|
|
|
Function8b9ab: ; 8b9ab
|
|
ret
|
|
; 8b9ac
|
|
|
|
MenuDataHeader_0x8b9ac: ; 0x8b9ac
|
|
db $40 ; flags
|
|
db 00, 11 ; start coords
|
|
db 11, 19 ; end coords
|
|
|
|
MenuDataHeader_0x8b9b1: ; 0x8b9b1
|
|
db $40 ; flags
|
|
db 00, 11 ; start coords
|
|
db 07, 19 ; end coords
|
|
dw MenuData2_0x8b9b9
|
|
db 1 ; default option
|
|
; 0x8b9b9
|
|
|
|
MenuData2_0x8b9b9: ; 0x8b9b9
|
|
db $a0 ; flags
|
|
db 3 ; items
|
|
db "へんしゅう@" ; EDIT
|
|
db "いれかえ@" ; REPLACE
|
|
db "やめる@" ; QUIT
|
|
; 0x8b9ca
|
|
|
|
MenuDataHeader_0x8b9ca: ; 0x8b9ca
|
|
db $40 ; flags
|
|
db 00, 11 ; start coords
|
|
db 11, 19 ; end coords
|
|
dw MenuData2_0x8b9d2
|
|
db 1 ; default option
|
|
; 0x8b9d2
|
|
|
|
MenuData2_0x8b9d2: ; 0x8b9d2
|
|
db $a0 ; flags
|
|
db 5 ; items
|
|
db "みる@" ; VIEW
|
|
db "へんしゅう@" ; EDIT
|
|
db "いれかえ@" ; REPLACE
|
|
db "けす@" ; ERASE
|
|
db "やめる@" ; QUIT
|
|
; 0x8b9e9
|
|
|
|
Function8b9e9: ; 8b9e9 (22:79e9)
|
|
call OpenSRAMBank4
|
|
call Function8931b
|
|
call Function8932d
|
|
jr nc, .asm_8b9f6
|
|
jr .asm_8b9ff
|
|
.asm_8b9f6
|
|
ld hl, $11
|
|
add hl, bc
|
|
call Function89b45
|
|
jr c, .asm_8ba08
|
|
.asm_8b9ff
|
|
call Function892b4
|
|
and a
|
|
ld de, Unknown_8ba1c
|
|
jr .asm_8ba0c
|
|
.asm_8ba08
|
|
ld de, Unknown_8ba1f
|
|
scf
|
|
.asm_8ba0c
|
|
push af
|
|
ld hl, wd002
|
|
.asm_8ba10
|
|
ld a, [de]
|
|
inc de
|
|
ld [hli], a
|
|
cp $ff
|
|
jr nz, .asm_8ba10
|
|
call CloseSRAM
|
|
pop af
|
|
ret
|
|
; 8ba1c (22:7a1c)
|
|
|
|
Unknown_8ba1c: ; 8b1ac
|
|
db 2, 4, -1
|
|
|
|
Unknown_8ba1f: ; 8ba1f
|
|
db 1, 2, 4, 3, -1
|
|
; 8ba24
|