pokecrystal-board/misc/mobile_41.asm
2015-11-29 21:34:59 -05:00

1104 lines
14 KiB
NASM
Executable File

SECTION "bank41_2", ROMX, BANK[$41]
Mobile_HallOfFame2:: mobile ; 0x105ef6
ld a, $5
call GetSRAMBank
ld hl, GameTimeHours
ld de, $a001
ld bc, 4
call CopyBytes
ld hl, $a010
ld de, $a005
ld bc, 4
call CopyBytes
ld hl, $a039
ld de, $a009
ld bc, 4
call CopyBytes
ld hl, $a01b
ld de, $a00d
ld bc, 3
call CopyBytes
call Function106162
call CloseSRAM
ret
; 105f33
MagikarpLength_Mobile: mobile ; 105f33
ld a, $5
call GetSRAMBank
ld de, Buffer1
ld hl, $a07b
ld a, [de]
cp [hl]
jr z, .asm_105f47
jr nc, .asm_105f4f
jr .asm_105f55
.asm_105f47
inc hl
inc de
ld a, [de]
cp [hl]
dec hl
dec de
jr c, .asm_105f55
.asm_105f4f
ld a, [de]
inc de
ld [hli], a
ld a, [de]
dec de
ld [hl], a
.asm_105f55
ld hl, $a07d
ld a, [hli]
or [hl]
dec hl
jr z, .asm_105f6d
ld a, [de]
cp [hl]
jr z, .asm_105f65
jr c, .asm_105f6d
jr .asm_105f72
.asm_105f65
inc hl
inc de
ld a, [de]
cp [hl]
jr nc, .asm_105f72
dec hl
dec de
.asm_105f6d
ld a, [de]
inc de
ld [hli], a
ld a, [de]
ld [hl], a
.asm_105f72
call Function106162
call CloseSRAM
ret
; 105f79
MobileFn_105f79: mobile ; 105f79
ld a, $5
call GetSRAMBank
ld a, [hProduct]
ld hl, $a07f
cp [hl]
jr z, .asm_105f8b
jr nc, .asm_105f92
jr .asm_105f98
.asm_105f8b
inc hl
ld a, [hMultiplicand]
cp [hl]
jr c, .asm_105f98
dec hl
.asm_105f92
ld a, [hProduct]
ld [hli], a
ld a, [hMultiplicand]
ld [hl], a
.asm_105f98
call Function106162
call CloseSRAM
ret
; 105f9f
MobileFn_105f9f: mobile ; 105f9f
ld a, $5
call GetSRAMBank
ld hl, $a070
inc [hl]
jr nz, .asm_105fae
dec hl
inc [hl]
inc hl
.asm_105fae
dec hl
ld a, [$a071]
cp [hl]
jr z, .asm_105fb9
jr c, .asm_105fc1
jr .asm_105fc9
.asm_105fb9
inc hl
ld a, [$a072]
cp [hl]
jr nc, .asm_105fc9
dec hl
.asm_105fc1
ld a, [hli]
ld [$a071], a
ld a, [hl]
ld [$a072], a
.asm_105fc9
call Function106162
call CloseSRAM
ret
; 105fd0
MobileFn_105fd0: mobile ; 105fd0
ld a, $5
call GetSRAMBank
ld hl, $a06f
xor a
ld [hli], a
ld [hl], a
call Function106162
call CloseSRAM
ret
; 105fe3
MobileFn_105fe3: mobile ; 105fe3
ld a, $5
call GetSRAMBank
ld hl, $a076
ld a, e
add [hl]
ld [hld], a
ld a, d
adc [hl]
ld [hld], a
jr nc, .asm_106001
inc [hl]
jr nz, .asm_106001
dec hl
inc [hl]
jr nz, .asm_106001
ld a, $ff
rept 3
ld [hli], a
endr
ld [hl], a
.asm_106001
call Function106162
call CloseSRAM
ret
; 106008
MobileFn_106008: mobile ; 106008
ld a, $5
call GetSRAMBank
ld hl, $a07a
ld a, [bc]
dec bc
add [hl]
ld [hld], a
ld a, [bc]
dec bc
adc [hl]
ld [hld], a
ld a, [bc]
adc [hl]
ld [hld], a
jr nc, .asm_106027
inc [hl]
jr nz, .asm_106027
ld a, $ff
rept 3
ld [hli], a
endr
ld [hl], a
.asm_106027
call Function106162
call CloseSRAM
ret
; 10602e
MobileFn_10602e: mobile ; 10602e (41:602e)
ld hl, $a010
jp MobileFn_106117
MobileFn_106035: mobile ; 106035
ld a, $5
call GetSRAMBank
ld a, [$aa8d]
and a
call CloseSRAM
ret nz
ld hl, $a014
jp Function106123
MobileFn_106049: mobile ; 106049
ld hl, $a018
jp Function10611d
MobileFn_106050: mobile ; 106050
ld a, [BattleType]
cp BATTLETYPE_TUTORIAL
ret z
ld hl, $a01b
jp Function10611d
MobileFn_10605d: mobile ; 10605d
ld a, [BattleType]
cp BATTLETYPE_TUTORIAL
ret z
ld hl, $a01e
jp Function10611d
MobileFn_10606a: mobile ; 10606a
ld hl, $a021
jp Function10611d
MobileFn_106071: mobile ; 106071
ld hl, $a024
jp Function10611d
Mobile_HallOfFame:: mobile ; 0x106078
ld hl, $a027
jp Function10611d
MobileFn_10607f: mobile ; 10607f (41:607f)
ld hl, $a02a
jp Function10611d
MobileFn_106086: mobile ; 106086
ld hl, $a02d
jp Function10611d
MobileFn_10608d: mobile ; 10608d (41:608d)
ld hl, $a030
jp Function10611d
MobileFn_106094: mobile ; 106094
ld hl, $a033
jp Function10611d
MobileFn_10609b: mobile ; 10609b
ld hl, $a036
jp Function10611d
Mobile_HealParty: mobile ; 1060a2
ld hl, $a039
jp Function10611d
MobileFn_1060a9: mobile ; 1060a9 (41:60a9)
ld hl, $a03c
jr Function10611d
MobileFn_1060af: mobile ; 1060af
ld hl, $a03f
jr Function10611d
MobileFn_1060b5: mobile ; 1060b5
ld hl, $a042
jr Function10611d
MobileFn_1060bb: mobile ; 1060bb
ld hl, $a045
jr Function10611d
MobileFn_1060c1: mobile ; 1060c1
ld hl, $a048
jr Function10611d
MobileFn_1060c7: mobile ; 1060c7
ld hl, $a04b
jr Function10611d
MobileFn_1060cd: mobile ; 1060cd
ld hl, $a04e
jr Function106123
MobileFn_1060d3: mobile ; 1060d3
ld hl, $a051
jr Function10611d
MobileFn_1060d9: mobile ; 1060df
ld hl, $a054
jr Function10611d
MobileFn_1060df: mobile ; 1060df
ld hl, $a057
jr Function10611d
MobileFn_1060e5: mobile ; 1060e5
ld a, [hBattleTurn]
and a
ret nz
ld hl, $a05a
jr Function10611d
MobileFn_1060ef: mobile ; 1060ef
ld hl, $a05d
jr Function10611d
MobileFn_1060f5: mobile ; 1060f5
ld hl, $a060
jr Function10611d
MobileFn_SaveBattleResult_Win: mobile ; win
ld hl, $a063
jr Function10611d
MobileFn_SaveBattleResult_Lose: mobile ; lose
ld hl, $a066
jr Function10611d
; 106107
MobileFn_SaveBattleResult_Draw: mobile ; draw
ld hl, $a069
jr Function10611d
; 10610d
MobileFn_10610d: mobile ; 10610d
ld a, [hBattleTurn]
and a
ret nz
ld hl, $a06c
jr Function10611d
; 106117
MobileFn_106117: ; 106117
push bc
ld bc, 3
jr Function10612d
; 10611d
Function10611d: ; 10611d
push bc
ld bc, 2
jr Function10612d
; 106123
Function106123: ; 106123
push bc
ld bc, 1
jr Function10612d
; 106129
Function106129: ; 106129
push bc
ld bc, 0
Function10612d: ; 10612d
ld a, $5
call GetSRAMBank
push hl
push de
ld e, c
inc e
.asm_106136
ld a, [hli]
inc a
jr nz, .asm_10613d
dec e
jr nz, .asm_106136
.asm_10613d
pop de
pop hl
jr z, .asm_10614d
add hl, bc
.asm_106142
inc [hl]
jr nz, .asm_10614d
ld a, c
and a
jr z, .asm_10614d
dec hl
dec c
jr .asm_106142
.asm_10614d
call Function106162
call CloseSRAM
pop bc
ret
; 106155
MobileFn_106155: mobile ; 106155
ld a, $5
call GetSRAMBank
call Function106162
call CloseSRAM
ret
; 106162
Function106162: ; 106162
push de
call Function10616e
ld hl, $a081 ; s5_a081
ld [hl], d
inc hl
ld [hl], e
pop de
ret
; 10616e
Function10616e: ; 10616e
push bc
ld hl, $a001 ; s5_a001
ld bc, $80
xor a
ld de, 0
.asm_106179
ld a, e
add [hl]
ld e, a
jr nc, .asm_10617f
inc d
.asm_10617f
inc hl
dec bc
ld a, b
or c
jr nz, .asm_106179
pop bc
ret
; 106187
BackupMobileEventIndex: ; 106187
ld a, BANK(sMobileEventIndex)
call GetSRAMBank
ld a, [sMobileEventIndex]
push af
ld a, BANK(sMobileEventIndexBackup)
call GetSRAMBank
pop af
ld [sMobileEventIndexBackup], a
call CloseSRAM
ret
; 10619d
RestoreMobileEventIndex: ; 10619d (41:619d)
ld a, BANK(sMobileEventIndexBackup)
call GetSRAMBank
ld a, [sMobileEventIndexBackup]
push af
ld a, BANK(sMobileEventIndex)
call GetSRAMBank
pop af
ld [sMobileEventIndex], a
call CloseSRAM
ret
; 1061b3 (41:61b3)
Function1061b3: ; 1061b3
call Function10616e
ld hl, $a081 ; s5_a081
ld a, d
cp [hl]
ret nz
inc hl
ld a, e
cp [hl]
ret
; 1061c0
DeleteMobileEventIndex: ; 1061c0 (41:61c0)
ld a, BANK(sMobileEventIndex)
call GetSRAMBank
xor a
ld [sMobileEventIndex], a
call CloseSRAM
ret
; 1061cd (41:61cd)
Function1061cd: ; unreferenced
ld hl, $a001
ld bc, $82
xor a
call ByteFill
ld hl, $a07d
ld a, $3
ld [hli], a
ld [hl], $e8
call Function106162
ld hl, $a001
ld de, $a084
ld bc, $82
call CopyBytes
ret
; 1061ef
_MobilePrintNum:: ; 1061ef
; Supports signed 31-bit integers (up to 10 digits)
; b: Bits 0-4 = # bytes
; Bit 7 = set if negative
; c: Number of digits
; de: highest byte of number to convert
; hl: where to print the converted string
push bc
xor a
ld [hPrintNum1], a
ld [hPrintNum2], a
ld [hPrintNum3], a
ld a, b
and $f
cp $1
jr z, .one_byte
cp $2
jr z, .two_bytes
cp $3
jr z, .three_bytes
; four bytes
ld a, [de]
ld [hPrintNum1], a
inc de
.three_bytes
ld a, [de]
ld [hPrintNum2], a
inc de
.two_bytes
ld a, [de]
ld [hPrintNum3], a
inc de
.one_byte
ld a, [de]
ld [hPrintNum4], a
inc de
push de
xor a
ld [hPrintNum9], a
ld a, b
ld [hPrintNum10], a
ld a, c
cp 2
jr z, .two_digits
ld de, ._2
cp 3
jr z, .three_to_nine_digits
ld de, ._3
cp 4
jr z, .three_to_nine_digits
ld de, ._4
cp 5
jr z, .three_to_nine_digits
ld de, ._5
cp 6
jr z, .three_to_nine_digits
ld de, ._6
cp 7
jr z, .three_to_nine_digits
ld de, ._7
cp 8
jr z, .three_to_nine_digits
ld de, ._8
cp 9
jr z, .three_to_nine_digits
ld de, ._9
.three_to_nine_digits
rept 3
inc de
endr
rept 2
dec a
endr
.digit_loop
push af
call .Function1062b2
call .Function1062ff
rept 4
inc de
endr
pop af
dec a
jr nz, .digit_loop
.two_digits
ld c, 0
ld a, [hPrintNum4]
.mod_ten_loop
cp 10
jr c, .simple_divide_done
sub 10
inc c
jr .mod_ten_loop
.simple_divide_done
ld b, a
ld a, [hPrintNum9]
or c
ld [hPrintNum9], a
jr nz, .create_digit
call .LoadMinusTenIfNegative
jr .done
.create_digit
ld a, "0"
add c
ld [hl], a
.done
call .Function1062ff
ld a, "0"
add b
ld [hli], a
pop de
pop bc
ret
; 106292
._9 dd 1000000000
._8 dd 100000000
._7 dd 10000000
._6 dd 1000000
._5 dd 100000
._4 dd 10000
._3 dd 1000
._2 dd 100
; 1062b2
.Function1062b2: ; 1062b2
ld c, $0
.asm_1062b4
ld a, [de]
dec de
ld b, a
ld a, [hPrintNum4]
sub b
ld [hPrintNum8], a
ld a, [de]
dec de
ld b, a
ld a, [hPrintNum3]
sbc b
ld [hPrintNum7], a
ld a, [de]
dec de
ld b, a
ld a, [hPrintNum2]
sbc b
ld [hPrintNum6], a
ld a, [de]
rept 3
inc de
endr
ld b, a
ld a, [hPrintNum1]
sbc b
ld [hPrintNum5], a
jr c, .asm_1062eb
ld a, [hPrintNum5]
ld [hPrintNum1], a
ld a, [hPrintNum6]
ld [hPrintNum2], a
ld a, [hPrintNum7]
ld [hPrintNum3], a
ld a, [hPrintNum8]
ld [hPrintNum4], a
inc c
jr .asm_1062b4
.asm_1062eb
ld a, [hPrintNum9]
or c
jr z, .LoadMinusTenIfNegative
ld a, -10
add c
ld [hl], a
ld [hPrintNum9], a
ret
.LoadMinusTenIfNegative:
ld a, [hPrintNum10]
bit 7, a
ret z
ld [hl], -10
ret
; 1062ff
.Function1062ff: ; 1062ff
ld a, [hPrintNum10]
bit 7, a
jr nz, .asm_10630d
bit 6, a
jr z, .asm_10630d
ld a, [hPrintNum9]
and a
ret z
.asm_10630d
inc hl
ret
; 10630f
; functions related to the cable club and various NPC scripts referencing mobile communications
Mobile_DummyReturnFalse: ; 10630f
xor a
ld [ScriptVar], a
ret
; 106314
MobileFn_106314: mobile ; 106314
ld a, $4
call GetSRAMBank
ld a, c
cpl
ld [$b000], a
call CloseSRAM
ld a, $7
call GetSRAMBank
ld a, c
ld [$a800], a
call CloseSRAM
ret
; 10632f
Function10632f: ; 10632f
or a
ret
Function106331: ; 106331 - called by Mobile_DummyReturnFalse in Crystal-J
; check ~[4:b000] == [7:a800]
ld a, $4
call GetSRAMBank
ld a, [$b000]
cpl
ld b, a
call CloseSRAM
ld a, $7
call GetSRAMBank
ld a, [$a800]
ld c, a
call CloseSRAM
ld a, c
cp b
jr nz, .nope
; check [7:a800] != 0
and a
jr z, .nope
; check !([7:a800] & %01110000)
and %10001111
cp c
jr nz, .nope
ld c, a
scf
ret
.nope
xor a
ld c, a
ret
; 10635c
Function10635c: ; 10635c
ld a, [wcd25]
bit 7, a
ret nz
ld a, [wcd25]
ld hl, Jumptable_10636a
rst JumpTable
ret
; 10636a
Jumptable_10636a: ; 10636a
dw Function10637c
dw Function106392
dw Function1063cc
dw Function1063d8
dw Function1063e5
dw Function1063f3
dw Function106403
dw Function106442
dw Function106453
; 10637c
Function10637c: ; 10637c
ld de, wcd30
ld hl, $41
ld bc, $41
ld a, $40
call Function3e32
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 106392
Function106392: ; 106392
xor a
ld [wcf64], a
ld a, [wc821]
bit 1, a
jr nz, .asm_1063a2
bit 0, a
jr z, .asm_1063bf
ret
.asm_1063a2
call Function10632f
ld a, c
and a
jr nz, .asm_1063b4
ld a, $b
ld [wcf64], a
ld a, $7
ld [wcd25], a
ret
.asm_1063b4
ld a, $7
ld [wcf64], a
ld a, $7
ld [wcd25], a
ret
.asm_1063bf
ld a, $1
ld [wcf64], a
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 1063cc
Function1063cc: ; 1063cc
ld a, $78
ld [wcd42], a
ld a, [wcd25]
inc a
ld [wcd25], a
Function1063d8: ; 1063d8
ld hl, wcd42
dec [hl]
ret nz
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 1063e5
Function1063e5: ; 1063e5
ld a, [wcf64]
cp $3
ret nz
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 1063f3
Function1063f3: ; 1063f3
ld de, wcd31
ld a, $32
call Function3e32
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 106403
Function106403: ; 106403
ld a, [wc821]
bit 1, a
jr nz, .asm_106426
bit 0, a
jr z, .asm_10640f
ret
.asm_10640f
ld a, [wcd31]
and $80
ld c, a
ld a, [wcd30]
or c
inc a
ld c, a
call MobileFn_106314
ld a, [wcd25]
inc a
ld [wcd25], a
ret
.asm_106426
call Function10632f
ld a, c
and a
jr z, .asm_106435
ld a, [wcd25]
inc a
ld [wcd25], a
ret
.asm_106435
ld c, $0
call MobileFn_106314
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 106442
Function106442: ; 106442
ld a, $36
call Function3e32
xor a
ld [hMobile], a
ld [hFFC9], a
ld a, [wcd25]
inc a
ld [wcd25], a
Function106453: ; 106453
ld a, [wcd25]
set 7, a
ld [wcd25], a
nop
ld a, $4
ld [wcf64], a
ret
; 106462
Function106462: ; 106462
ret
; 106463
Function106463: ; 106463
ret
; 106464
Function106464:: ; 106464
ld de, MobilePhoneTilesGFX
ld hl, VTiles2 tile $60
lb bc, BANK(MobilePhoneTilesGFX), 1
call Get2bpp
ld de, GFX_f9424
ld hl, VTiles2 tile $61
lb bc, BANK(GFX_f9424), 1
call Get2bpp
ld de, GFX_106514
ld hl, VTiles2 tile $62
ld c, 9
ld b, BANK(GFX_106514)
call Get2bpp
ld de, $40b0
ld hl, VTiles2 tile $6b
ld b, $f ; XXX no graphics at 0f:40b0
call Get2bpp
callba LoadFrame
ret
; 10649b
Function10649b: ; 10649b
ld a, [TextBoxFrame]
and $7
ld bc, $30
ld hl, Frames
call AddNTimes
ld d, h
ld e, l
ld hl, VTiles2 tile $79
ld c, 6
ld b, BANK(Frames)
call Function1064c3
ld hl, VTiles2 tile $7f
ld de, TextBoxSpaceGFX
ld c, 1
ld b, BANK(TextBoxSpaceGFX)
call Function1064c3
ret
; 1064c3
Function1064c3: ; 1064c3
ld a, [rSVBK]
push af
ld a, $6
ld [rSVBK], a
push bc
push hl
ld hl, Function3f88
ld a, b
rst FarCall
pop hl
pop bc
pop af
ld [rSVBK], a
jr asm_1064ed
Function1064d8: ; 1064d8
ld a, [rSVBK]
push af
ld a, $6
ld [rSVBK], a
push bc
push hl
ld hl, Function3f9f
ld a, b
rst FarCall
pop hl
pop bc
pop af
ld [rSVBK], a
jr asm_1064ed
asm_1064ed
ld de, wBackupTilemap
ld b, $0
ld a, [rSVBK]
push af
ld a, $6
ld [rSVBK], a
ld a, [rVBK]
push af
ld a, $1
ld [rVBK], a
call Get2bpp
pop af
ld [rVBK], a
pop af
ld [rSVBK], a
ret
; 10650a
Function10650a: ; 10650a
ld de, MobilePhoneTilesGFX + $20
lb bc, BANK(MobilePhoneTilesGFX), $11
call Get2bpp
ret
; 106514
GFX_106514:
INCBIN "gfx/unknown/106514.2bpp"
Function106594:: ; 106594
ld de, GFX_1065ad
ld hl, VTiles1
lb bc, BANK(GFX_1065ad), $80
call Get2bpp
ld de, GFX_1065ad + $800
ld hl, VTiles2 tile $7f
lb bc, BANK(GFX_1065ad), 1
call Get2bpp
ret
; 1065ad
GFX_1065ad:
INCBIN "gfx/unknown/1065ad.2bpp"