pret/poketcg
1
0
Fork 0
mirror of https://github.com/pret/poketcg.git synced 2026-10-05 07:37:15 -04:00
Code Issues Packages Projects Releases Wiki Activity
Files
14bbdcb6c3b263b4444e93df2d2adbb992b4e7dd
poketcg/engine/bank4.asm
T
U-Fish-PC\Daniel 14bbdcb6c3 LoadMap
2014-04-23 21:07:44 -04:00

1239 lines
15 KiB
NASM
Executable File
Raw Blame History

INCBIN "baserom.gbc",$10000,$103d3 - $10000
Func_103d3: ; 103d3 (4:43d3)
INCBIN "baserom.gbc",$103d3,$10a9b - $103d3
Func_10a9b: ; 10a9b (4:4a9b)
INCBIN "baserom.gbc",$10a9b,$10ab4 - $10a9b
Func_10ab4: ; 10ab4 (4:4ab4)
INCBIN "baserom.gbc",$10ab4,$10af9 - $10ab4
Func_10af9: ; 10af9 (4:4af9)
INCBIN "baserom.gbc",$10af9,$10e55 - $10af9
Func_10e55: ; 10e55 (4:4e55)
ld a, [$d336]
ld [$d4cf], a
ld a, [$d33e]
or a
jr nz, .asm_10e65
call Func_10e71
ret
.asm_10e65
cp $2
jr z, .asm_10e6d
call Func_11060
ret
.asm_10e6d
call LoadOverworldMapSelection
ret
Func_10e71: ; 10e71 (4:4e71)
ld a, [$ff91]
and $f0
jr z, .asm_10e83
farcall Func_c5d5
ld [$d334], a
call Func_10e97
jr .asm_10e96
.asm_10e83
ld a, [$ff91]
and $1
jr z, .asm_10e96
ld a, $2
call Func_3796
call Func_11016
call Func_11024
jr .asm_10e96
.asm_10e96
ret
Func_10e97: ; 10e97 (4:4e97)
push hl
pop hl
ld a, [$d32e]
rlca
rlca
ld c, a
ld a, [$d334]
add c
ld c, a
ld b, $0
ld hl, Unknown_10ebc
add hl, bc
ld a, [hl]
or a
jr z, .asm_10eb9
ld [$d32e], a
call Func_10f2e
ld a, $1
call Func_3796
.asm_10eb9
pop bc
pop hl
ret
Unknown_10ebc: ; 10ebc (4:4ebc)
INCBIN "baserom.gbc",$10ebc,$10efd - $10ebc
Func_10efd: ; 10efd (4:4efd)
push hl
push de
rlca
ld e, a
ld d, $0
ld hl, Unknown_10f14
add hl, de
pop de
ld a, [hli]
add $8
add d
ld d, a
ld a, [hl]
add $10
add e
ld e, a
pop hl
ret
Unknown_10f14: ; 10f14 (4:4f14)
INCBIN "baserom.gbc",$10f14,$10f2e - $10f14
Func_10f2e: ; 10f2e (4:4f2e)
push hl
push de
ld de, $0101
call Func_22ae
call Func_10f4a
rlca
ld e, a
ld d, $0
ld hl, Unknown_397b
add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
call Func_2c29
pop de
pop hl
ret
Func_10f4a: ; 10f4a (4:4f4a)
push bc
ld a, [$d32e]
cp $2
jr nz, .asm_10f5f
ld c, a
ld a, $1e
farcall Func_ca6c
or a
ld a, c
jr nz, .asm_10f5f
ld a, $d
.asm_10f5f
pop bc
ret
LoadOverworldMapSelection: ; 10f61 (4:4f61)
push hl
push bc
ld a, [$d32e]
rlca
rlca
ld c, a
ld b, $0
ld hl, OverworldMapIndexes
add hl, bc
ld a, [hli]
ld [$d0bb], a
ld a, [hli]
ld [$d0bc], a
ld a, [hli]
ld [$d0bd], a
ld a, $0
ld [$d0be], a
ld hl, $d0b4
set 4, [hl]
pop bc
pop hl
ret
; each entry in the overworld map is four bytes
; 1: map id
; 2: player's x coordinate when entering the map
; 2: player's y coordinate when entering the map
; 4: 00
OverworldMapIndexes: ; 10f88 (4:4f88)
db $00,$00,$00,$00
db MASON_LABORATORY, $0E,$1A,$00
db ISHIHARAS_HOUSE, $08,$14,$00
db FIGHTING_CLUB_ENTRANCE, $08,$0E,$00
db ROCK_CLUB_ENTRANCE, $08,$0E,$00
db WATER_CLUB_ENTRANCE, $08,$0E,$00
db LIGHTNING_CLUB_ENTRANCE,$08,$0E,$00
db GRASS_CLUB_ENTRANCE, $08,$0E,$00
db PSYCHIC_CLUB_ENTRANCE, $08,$0E,$00
db SCIENCE_CLUB_ENTRANCE, $08,$0E,$00
db FIRE_CLUB_ENTRANCE, $08,$0E,$00
db CHALLENGE_HALL_ENTRANCE,$08,$0E,$00
db POKEMON_DOME_ENTRANCE, $0E,$0E,$00
Func_10fbc: ; 10fbc (4:4fbc) XXXX
ld a, $25
farcall Func_1299f
ld c, $2
call Func_3dbf
ld a, $80
ld [hli], a
ld a, $10
ld [hl], a
ld b, $34
ld a, [$cab4]
cp $2
jr nz, .asm_10fd8
ld b, $37
.asm_10fd8
ld a, b
farcall Func_12ab5
ret
Func_10fde: ; 10fde (4:4fde) XXXX
ld a, [$d32e]
ld [$d33d], a
xor a
ld [$d33e], a
ld a, $25
call Func_1299f
ld a, [$d4cf]
ld [$d33b], a
ld b, $35
ld a, [$cab4]
cp $2
jr nz, .asm_10ffe
ld b, $38
.asm_10ffe
ld a, b
ld [$d33c], a
call Func_12ab5
ld a, $3e
farcall Func_ca6c
or a
jr nz, .asm_11015
ld c, $f
call Func_3dbf
set 7, [hl]
.asm_11015
ret
Func_11016: ; 11016 (4:5016)
ld a, [$d33b]
ld [$d4cf], a
ld a, [$d33c]
inc a
call Func_12ab5
ret
Func_11024: ; 11024 (4:5024)
ld a, $57
call Func_3796
ld a, [$d336]
ld [$d4cf], a
ld c, $f
call Func_3dbf
set 2, [hl]
ld hl, Unknown_1229f
ld a, [$d33d]
dec a
add a
ld c, a
ld b, $0
add hl, bc
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [$d32e]
dec a
add a
ld c, a
ld b, $0
add hl, bc
ld a, [hli]
ld [$d33f], a
ld a, [hl]
ld [$d340], a
ld a, $1
ld [$d33e], a
xor a
ld [$d341], a
ret
Func_11060: ; 11060 (4:5060)
ld a, [$d336]
ld [$d4cf], a
ld a, [$d341]
or a
jp nz, Func_11184
ld a, [$d33f]
ld l, a
ld a, [$d340]
ld h, a
ld a, [hli]
ld b, a
ld a, [hli]
ld c, a
and b
cp $ff
jr z, .asm_110a0
ld a, c
or b
jr nz, .asm_11094
ld a, [$d33d]
ld e, a
ld a, [$d32e]
cp e
jr z, .asm_110a0
ld de, $0000
call Func_10efd
ld b, d
ld c, e
.asm_11094
ld a, l
ld [$d33f], a
ld a, h
ld [$d340], a
call Func_110a6
ret
.asm_110a0
ld a, $2
ld [$d33e], a
ret
Func_110a6: ; 110a6 (4:50a6)
push hl
push bc
ld c, $2
call Func_3dbf
pop bc
ld a, b
sub [hl]
ld [$d343], a
ld a, $0
sbc $0
ld [$d344], a
inc hl
ld a, c
sub [hl]
ld [$d345], a
ld a, $0
sbc $0
ld [$d346], a
ld a, [$d343]
ld b, a
ld a, [$d344]
bit 7, a
jr z, .asm_110d8
ld a, [$d343]
cpl
inc a
ld b, a
.asm_110d8
ld a, [$d345]
ld c, a
ld a, [$d346]
bit 7, a
jr z, .asm_110e9
ld a, [$d345]
cpl
inc a
ld c, a
.asm_110e9
ld a, b
cp c
jr c, .asm_110f2
call Func_11102
jr .asm_110f5
.asm_110f2
call Func_1113e
.asm_110f5
xor a
ld [$d347], a
ld [$d348], a
farcall Func_c5e9
pop hl
ret
Func_11102: ; 11102 (4:5102)
ld a, b
ld [$d341], a
ld e, a
ld d, $0
ld hl, $d343
xor a
ld [hli], a
bit 7, [hl]
jr z, .asm_11115
dec a
jr .asm_11116
.asm_11115
inc a
.asm_11116
ld [hl], a
ld b, c
ld c, $0
call Func_3c5a
ld a, [$d346]
bit 7, a
jr z, .asm_11127
call Func_11179
.asm_11127
ld a, c
ld [$d345], a
ld a, b
ld [$d346], a
ld hl, $d344
ld a, $1
bit 7, [hl]
jr z, .asm_1113a
ld a, $3
.asm_1113a
ld [$d334], a
ret
Func_1113e: ; 1113e (4:513e)
ld a, c
ld [$d341], a
ld e, a
ld d, $0
ld hl, $d345
xor a
ld [hli], a
bit 7, [hl]
jr z, .asm_11151
dec a
jr .asm_11152
.asm_11151
inc a
.asm_11152
ld [hl], a
ld c, $0
call Func_3c5a
ld a, [$d344]
bit 7, a
jr z, .asm_11162
call Func_11179
.asm_11162
ld a, c
ld [$d343], a
ld a, b
ld [$d344], a
ld hl, $d346
ld a, $2
bit 7, [hl]
jr z, .asm_11175
ld a, $0
.asm_11175
ld [$d334], a
ret
Func_11179: ; 11179 (4:5179)
ld a, c
cpl
add $1
ld c, a
ld a, b
cpl
adc $0
ld b, a
ret
Func_11184: ; 11184 (4:5184)
ld a, [$d347]
ld d, a
ld a, [$d348]
ld e, a
ld c, $2
call Func_3dbf
ld a, [$d343]
add d
ld d, a
ld a, [$d344]
adc [hl]
ld [hl], a
inc hl
ld a, [$d345]
add e
ld e, a
ld a, [$d346]
adc [hl]
ld [hl], a
ld a, d
ld [$d347], a
ld a, e
ld [$d348], a
ld hl, $d341
dec [hl]
ret
; 0x111b3
INCBIN "baserom.gbc",$111b3,$11320 - $111b3
Func_11320: ; 11320 (4:5320)
INCBIN "baserom.gbc",$11320,$1162a - $11320
MapHeaders: ; 1162a (4:562a)
; OVERWORLD_MAP
dw $0000
dw $0000
dw $0000
dw $0000
dw $54ec
dw $0000
dw $0000
dw $0000
; MASON_LABORATORY
dw $772f
dw $0000
dw $7b04
dw $5565
dw $5549
dw $553b
dw $0000
dw $555e
; DECK_MACHINE_ROOM
dw $775a
dw $0000
dw $7b4d
dw $0000
dw $0000
dw $589f
dw $0000
dw $58ad
; ISHIHARAS_HOUSE
dw $7773
dw $0000
dw $7c02
dw $0000
dw $0000
dw $0000
dw $0000
dw $0000
; FIGHTING_CLUB_ENTRANCE
dw $7786
dw $0000
dw $0000
dw $0000
dw $6809
dw $67f6
dw $0000
dw $0000
; FIGHTING_CLUB_LOBBY
dw $779f
dw $0000
dw $7c6f
dw $0000
dw $0000
dw $5c68
dw $0000
dw $0000
; FIGHTING_CLUB
dw $77ca
dw $0000
dw $0000
dw $0000
dw $0000
dw $5da3
dw $0000
dw $0000
; ROCK_CLUB_ENTRANCE
dw $77e3
dw $0000
dw $0000
dw $0000
dw $6809
dw $67f6
dw $0000
dw $0000
; ROCK_CLUB_LOBBY
dw $77fc
dw $0000
dw $7ca6
dw $0000
dw $0000
dw $5ed5
dw $0000
dw $0000
; ROCK_CLUB
dw $7827
dw $0000
dw $0000
dw $0000
dw $0000
dw $5fd6
dw $0000
dw $0000
; WATER_CLUB_ENTRANCE
dw $783a
dw $0000
dw $0000
dw $0000
dw $6809
dw $67f6
dw $0000
dw $0000
; WATER_CLUB_LOBBY
dw $7853
dw $0000
dw $7cdd
dw $0000
dw $0000
dw $60a2
dw $0000
dw $0000
; WATER_CLUB
dw $787e
dw $0000
dw $0000
dw $0000
dw $0000
dw $6157
dw $613f
dw $0000
; LIGHTNING_CLUB_ENTRANCE
dw $7897
dw $0000
dw $0000
dw $0000
dw $6809
dw $67f6
dw $0000
dw $0000
; LIGHTNING_CLUB_LOBBY
dw $78b0
dw $0000
dw $7d14
dw $0000
dw $0000
dw $636d
dw $0000
dw $0000
; LIGHTNING_CLUB
dw $78d5
dw $0000
dw $0000
dw $0000
dw $0000
dw $63e8
dw $0000
dw $0000
; GRASS_CLUB_ENTRANCE
dw $78ee
dw $0000
dw $0000
dw $0000
dw $6809
dw $6525
dw $0000
dw $0000
; GRASS_CLUB_LOBBY
dw $790d
dw $0000
dw $7d4b
dw $0000
dw $0000
dw $65c4
dw $0000
dw $0000
; GRASS_CLUB
dw $7932
dw $0000
dw $0000
dw $0000
dw $0000
dw $66e7
dw $0000
dw $0000
; PSYCHIC_CLUB_ENTRANCE
dw $7945
dw $0000
dw $0000
dw $0000
dw $6809
dw $67f6
dw $0000
dw $0000
; PSYCHIC_CLUB_LOBBY
dw $7964
dw $0000
dw $7d82
dw $0000
dw $6971
dw $6963
dw $0000
dw $0000
; PSYCHIC_CLUB
dw $798f
dw $0000
dw $0000
dw $0000
dw $0000
dw $6a46
dw $0000
dw $0000
; SCIENCE_CLUB_ENTRANCE
dw $79a8
dw $0000
dw $0000
dw $0000
dw $6809
dw $67f6
dw $0000
dw $0000
; SCIENCE_CLUB_LOBBY
dw $79c1
dw $0000
dw $7db9
dw $0000
dw $0000
dw $6b57
dw $0000
dw $0000
; SCIENCE_CLUB
dw $79ec
dw $0000
dw $0000
dw $0000
dw $0000
dw $6bf1
dw $0000
dw $0000
; FIRE_CLUB_ENTRANCE
dw $7a05
dw $0000
dw $0000
dw $0000
dw $6809
dw $67f6
dw $0000
dw $0000
; FIRE_CLUB_LOBBY
dw $7a1e
dw $0000
dw $7df0
dw $6d57
dw $0000
dw $6d49
dw $0000
dw $0000
; FIRE_CLUB
dw $7a43
dw $0000
dw $0000
dw $0000
dw $0000
dw $6e93
dw $0000
dw $0000
; CHALLENGE_HALL_ENTRANCE
dw $7a5c
dw $0000
dw $0000
dw $0000
dw $0000
dw $0000
dw $0000
dw $0000
; CHALLENGE_HALL_LOBBY
dw $7a63
dw $0000
dw $7e27
dw $0000
dw $7088
dw $0000
dw $0000
dw $0000
; CHALLENGE_HALL
dw $7a9a
dw $0000
dw $0000
dw $0000
dw $7258
dw $7239
dw $0000
dw $0000
; POKEMON_DOME_ENTRANCE
dw $7ab9
dw $0000
dw $7e5e
dw $0000
dw $7607
dw $0000
dw $0000
dw $762a
; POKEMON_DOME
dw $7ac0
dw $0000
dw $0000
dw $0000
dw $7706
dw $76e0
dw $76c6
dw $7718
; HALL_OF_HONOR
dw $7adf
dw $0000
dw $7ec2
dw $0000
dw $7bdb
dw $0000
dw $0000
dw $0000
INCBIN "baserom.gbc",$1184a,$1217b - $1184a
Unknown_1217b: ; 1217b (4:617b)
INCBIN "baserom.gbc",$1217b,$1229f - $1217b
Unknown_1229f: ; 1229f (4:629f)
INCBIN "baserom.gbc",$1229f,$126d1 - $1229f
Func_126d1: ; 126d1 (4:66d1)
call Func_099c
ld hl, $cac0
inc [hl]
farcall Func_70018
ld a, $ff
ld [$d627], a
.asm_126e1
ld a, $c2
ld [$ff97], a
farcall Func_c1f8
farcall Func_1d078
ld a, [$d628]
ld hl, PointerTable_126fc
call JumpToFunctionInTable
jr c, .asm_126e1
jr Func_126d1
scf
ret
PointerTable_126fc
dw Func_12768
dw Func_12741
dw Func_12704
dw Func_1277e
Func_12704: ; 12704 (4:6704)
farcall Func_c1b1
call Func_128a9
farcall Func_1996e
call Func_07b6
ld a, [$a007]
ld [$d421], a
ld a, [$a006]
ld [$ce47], a
call Func_07be
ld a, $0
call Func_3785
farcall Func_70000
ld a, $9
ld [$d111], a
call Func_39fc
farcall Func_1d306
ld a, $0
ld [$d0b5], a
rst $28
db $03
dw Func_383d
or a
ret
Func_12741: ; 12741 (4:6741)
ld a, $0
call Func_3785
call Func_11320
jr nc, Func_12704
farcall Func_c1ed
farcall Func_70000
call Func_07b6
xor a
ld [$ba44], a
call Func_07be
ld a, $0
ld [$d0b5], a
rst $28
db $03
dw Func_383d
or a
ret
Func_12768: ; 12768 (4:6768)
ld a, $8
call Func_3785
bank1call Func_7571
farcall Func_c1a4
call Func_3c48
ld a, $0
call Func_3785
scf
ret
Func_1277e: ; 1277e (4:677e)
ld a, $0
call Func_3785
farcall Func_c9cb
rst $28
db $04
dw Func_3a40
farcall Func_70000
ld a, $5
ld [$d0b5], a
rst $28
db $03
dw Func_383d
or a
ret
; 0x1279a
INCBIN "baserom.gbc",$1279a,$128a9 - $1279a
Func_128a9: ; 128a9 (4:68a9)
INCBIN "baserom.gbc",$128a9,$1299f - $128a9
Func_1299f: ; 1299f (4:699f)
push af
ld a, [$d5d7]
or a
jr z, .asm_129a8
pop af
ret
.asm_129a8
pop af
push bc
push hl
call Func_12c05
ld [$d5d3], a
xor a
ld [$d4cf], a
call Func_3db7
ld bc, $0010
.asm_129bb
ld a, [hl]
or a
jr z, .asm_129cf
add hl, bc
ld a, [$d4cf]
inc a
ld [$d4cf], a
cp $10
jr nz, .asm_129bb
rst $38
scf
jr .asm_129d6
.asm_129cf
ld a, $1
ld [hl], a
call Func_129d9
or a
.asm_129d6
pop hl
pop bc
ret
Func_129d9: ; 129d9 (4:69d9)
push hl
push bc
push hl
inc hl
ld c, $f
xor a
.asm_129e0
ld [hli], a
dec c
jr nz, .asm_129e0
pop hl
ld bc, $0004
add hl, bc
ld a, [$d5d3]
ld [hli], a
ld a, $ff
ld [hl], a
ld bc, $0009
add hl, bc
ld a, $ff
ld [hl], a
pop bc
pop hl
ret
; 0x129fa
INCBIN "baserom.gbc",$129fa,$12ab5 - $129fa
Func_12ab5: ; 12ab5 (4:6ab5)
push hl
push af
ld c, $5
call Func_3dbf
pop af
cp [hl]
pop hl
ret z
push hl
call Func_12ae2
call Func_12b13
pop hl
ret
; 0x12ac9
INCBIN "baserom.gbc",$12ac9,$12ae2 - $12ac9
Func_12ae2: ; 12ae2 (4:6ae2)
push bc
push af
call Func_3db7
pop af
push hl
ld bc, $0005
add hl, bc
ld [hli], a
push hl
ld l, $6
farcall Func_8020f
farcall Func_80229
pop hl
ld a, [$d4c6]
ld [hli], a
ld a, [$d4c4]
ld [hli], a
ld c, a
ld a, [$d4c5]
ld [hli], a
ld b, a
ld a, $3
add c
ld [hli], a
ld a, $0
adc b
ld [hli], a
pop hl
pop bc
ret
Func_12b13: ; 12b13 (4:6b13)
push bc
push de
push hl
.asm_12b16
push hl
ld bc, $0006
add hl, bc
ld a, [hli]
ld [$d4c6], a
inc hl
inc hl
ld a, [hl]
ld [$d4c4], a
add $4
ld [hli], a
ld a, [hl]
ld [$d4c5], a
adc $0
ld [hl], a
ld de, $d23e
ld bc, $0004
call Func_3bf5
pop hl
ld de, $d23e
ld a, [de]
call Func_12b6a
inc de
ld a, [de]
call Func_12b89
jr c, .asm_12b16
inc de
ld bc, $0002
add hl, bc
push hl
ld bc, $000d
add hl, bc
ld b, [hl]
pop hl
ld a, [de]
bit 0, b
jr z, .asm_12b5a
cpl
inc a
.asm_12b5a
add [hl]
ld [hli], a
inc de
ld a, [de]
bit 1, b
jr z, .asm_12b64
cpl
inc a
.asm_12b64
add [hl]
ld [hl], a
pop hl
pop de
pop bc
ret
Func_12b6a: ; 12b6a (4:6b6a)
ld [$d4ca], a
push hl
push bc
push de
push hl
ld bc, $0006
add hl, bc
ld a, [hli]
ld [$d4c6], a
ld a, [hli]
ld [$d4c4], a
ld a, [hli]
ld [$d4c5], a
pop hl
call Func_3d72
pop de
pop bc
pop hl
ret
Func_12b89: ; 12b89 (4:6b89)
push hl
push bc
ld bc, $000e
add hl, bc
ld [hl], a
or a
jr nz, .asm_12ba4
ld bc, $fff9
add hl, bc
ld a, [hli]
add $3
ld c, a
ld a, [hli]
adc $0
ld b, a
ld a, c
ld [hli], a
ld a, b
ld [hl], a
scf
.asm_12ba4
pop bc
pop hl
ret
; 0x12ba7
INCBIN "baserom.gbc",$12ba7,$12c05 - $12ba7
Func_12c05: ; 12c05 (4:6c05)
push hl
push bc
push de
ld b, a
ld d, $0
ld a, [$d618]
ld c, a
ld hl, $d5d8
or a
jr z, .asm_12c22
.asm_12c15
inc hl
ld a, [hl]
cp b
jr z, .asm_12c3a
inc hl
ld a, [hli]
add [hl]
ld d, a
inc hl
dec c
jr nz, .asm_12c15
.asm_12c22
ld a, [$d618]
cp $10
jr nc, .asm_12c48
inc a
ld [$d618], a
inc hl
push hl
ld a, b
ld [hli], a
call Func_12c4f
push af
ld a, d
ld [hli], a
pop af
ld [hl], a
pop hl
.asm_12c3a
dec hl
inc [hl]
inc hl
inc hl
ld a, [hli]
add [hl]
cp $81
jr nc, .asm_12c48
ld a, d
or a
jr .asm_12c4b
.asm_12c48
rst $38
xor a
scf
.asm_12c4b
pop de
pop bc
pop hl
ret
Func_12c4f: ; 12c4f (4:6c4f)
push af
xor a
ld [$d4cb], a
ld a, d
ld [$d4ca], a
pop af
farcall Func_8025b
ret
INCBIN "baserom.gbc",$12c5e,$14000 - $12c5e
Reference in New Issue View Git Blame Copy Permalink