diff options
author | Mr Wint <MrWint42@gmail.com> | 2013-10-02 06:53:35 +0200 |
---|---|---|
committer | Mr Wint <MrWint42@gmail.com> | 2013-10-02 06:53:35 +0200 |
commit | c666d1014aef2b7fb421c9f8bd36714e73da8d3c (patch) | |
tree | bdb8aef3db2ffcef513c0ce5383969f1d6e1b8cb /engine | |
parent | c5ff1606f0d20175ae24ae2bbd61a4255e050d48 (diff) |
* make jumps and calls use labels
Diffstat (limited to 'engine')
-rw-r--r-- | engine/credits.asm | 90 |
1 files changed, 89 insertions, 1 deletions
diff --git a/engine/credits.asm b/engine/credits.asm index 47c8e299c..d2dce1bee 100644 --- a/engine/credits.asm +++ b/engine/credits.asm @@ -283,8 +283,96 @@ ParseCredits: ; 1099aa ; 109a95 -INCBIN "baserom.gbc", $109a95, $109b2c - $109a95 +; known jump sources: 1098ac (42:58ac) +Function109a95: ; 109a95 (42:5a95) + xor a + ld [hBGMapMode], a ; $ff00+$d4 + ld a, $c + ld [hBGMapAddress], a ; $ff00+$d6 + ld a, $28 + ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) + ld bc, $168 + call ByteFill + ld a, $7f + ld hl, $c4f0 + ld bc, $118 + call ByteFill + ld hl, $c4f0 + ld a, $24 + call Function109b1d + ld hl, $c5f4 + ld a, $20 + call Function109b1d + ld hl, AttrMap ; $cdd9 + ld bc, $50 + xor a + call ByteFill + ld hl, $ce29 + ld bc, $14 + ld a, $1 + call ByteFill + ld hl, $ce3d + ld bc, $f0 + ld a, $2 + call ByteFill + ld hl, $cf2d + ld bc, $14 + ld a, $1 + call ByteFill + call Function3200 + xor a + ld [hBGMapMode], a ; $ff00+$d4 + ld [hBGMapAddress], a ; $ff00+$d6 + ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) + call Function109aff + call Function3200 + ret +; known jump sources: 109af8 (42:5af8) +Function109aff: ; 109aff (42:5aff) + ld b, $5 +.asm_109b01 + push hl + ld de, $11 + ld c, $4 + xor a +.asm_109b08 + ld [hli], a + inc a + ld [hli], a + inc a + ld [hli], a + inc a + ld [hl], a + inc a + add hl, de + dec c + jr nz, .asm_109b08 + pop hl + inc hl + inc hl + inc hl + inc hl + dec b + jr nz, .asm_109b01 + ret + +; known jump sources: 109ab7 (42:5ab7), 109abf (42:5abf) +Function109b1d: ; 109b1d (42:5b1d) + ld c, $5 +.asm_109b1f + push af + ld [hli], a + inc a + ld [hli], a + inc a + ld [hli], a + inc a + ld [hli], a + pop af + dec c + jr nz, .asm_109b1f + ret GetCreditsPalette: ; 109b2c call .GetPalAddress |