Disassembled bank 6 and added wram constants.

2 files changed, 4097 insertions, 7 deletions

diff --git a/src/engine/bank06.asm b/src/engine/bank06.asm
index 9cda475..bf0a55e 100644
--- a/src/engine/bank06.asm
+++ b/src/engine/bank06.asm
@@ -312,18 +312,4102 @@ Func_1a61f: ; 1a61f (6:661f)
 	call AssertSongFinished
 	or a
 	jr nz, .asm_1a680
+
 	call ResumeSong
 	bank1call $5773
 	ret
 ; 0x1a68d
 
-	INCROM $1a68d, $1a6cc
+
+    ld a, $c2
+    ldh [$97], a
+    ld h, a
+    ld l, $00
+
+jr_006_6694:
+    xor a
+    ld [hl+], a
+    ld a, l
+    cp $3c
+    jr c, jr_006_6694
+
+    xor a
+    ld hl, $c400
+    ld de, $c510
+    ld c, $00
+
+jr_006_66a4:
+    ld a, [hl+]
+    or a
+    jr z, jr_006_66ae
+
+    ld a, c
+    ld [de], a
+    inc de
+    inc c
+    jr jr_006_66a4
+
+jr_006_66ae:
+    ld a, $ff
+    ld [de], a
+    ld de, $389f
+    call $2275
+    rst $18
+    sbc d
+    ld d, l
+    ld hl, $0056
+    ld de, $0196
+    rst $18
+    add b
+    ld d, l
+    ld a, $09
+    ld [$cbd6], a
+    rst $18
+    ldh a, [rHDMA5]
+    ret
 
 CommentedOut_1a6cc: ; 1a6cc (6:66cc)
-	ret
-; 0x1a6cd
+    ret
+
+    ldh a, [$81]
+    or a
+    ret nz
+
+    push hl
+    push de
+    push bc
+    ld hl, $a100
+    ld bc, $0250
+    ld a, [$a00b]
+    ld e, a
+
+jr_006_66de:
+    ld a, [hl+]
+    xor e
+    ld e, a
+    dec bc
+    ld a, c
+    or b
+    jr nz, jr_006_66de
+
+    ld a, e
+    pop bc
+    pop de
+    pop hl
+    or a
+    ret z
+
+    xor a
+    ld [$cab6], a
+    ld hl, $cad3
+    ld [hl+], a
+    ld [hl], a
+    ldh [$92], a
+    ldh [$93], a
+    rst $18
+    sub b
+    ld e, c
+    call $04a2
+    call $2119
+    rst $18
+    db $eb
+    ld e, d
+    ld a, [$cab4]
+    cp $01
+    jr nz, jr_006_6719
+
+    ld a, $e4
+    ld [$cabd], a
+    ld [$cabc], a
+    ld a, $01
+    ld [$cabf], a
+
+jr_006_6719:
+    ld de, $389f
+    call $2275
+    ld hl, $00a3
+    rst $18
+    rst $18
+    ld d, a
+    ld a, $0a
+    ld [$0000], a
+    xor a
+    ldh [$81], a
+    ld [$4000], a
+    ld [$a000], a
+    ld [$0000], a
+    jp $051b
+
+
+    ret
+
+
+    ldh a, [$81]
+    or a
+    ret nz
+
+    push hl
+    push de
+    push bc
+    ld hl, $a100
+    ld bc, $0250
+    ld e, $00
+
+jr_006_6749:
+    ld a, [hl+]
+    xor e
+    ld e, a
+    dec bc
+    ld a, c
+    or b
+    jr nz, jr_006_6749
+
+    ld a, $0a
+    ld [$0000], a
+    ld a, e
+    ld [$a00b], a
+    pop bc
+    pop de
+    pop hl
+    ret
+
+
+    ld bc, $1e01
+    ld [bc], a
+    rst $38
+    ld [bc], a
+    ld bc, $022b
+    ld c, $01
+    add hl, de
+    ld [bc], a
+    rst $38
+    ld [bc], a
+    ld bc, $022c
+    ld c, $01
+    add hl, de
+    ld [bc], a
+    rst $38
+    ld [bc], a
+    ld bc, $022d
+    ld c, $01
+    add hl, de
+    ld [bc], a
+    rst $38
+    ld [bc], a
+    ld bc, $022e
+    ld c, $01
+    add hl, de
+    ld [bc], a
+    rst $38
+
+Call_006_6787:
+    push af
+    push bc
+    push hl
+    ld b, a
+    xor a
+
+jr_006_678c:
+    ld [hl+], a
+    dec b
+    jr nz, jr_006_678c
+
+    pop hl
+    pop bc
+    pop af
+    ret
+
+
+Call_006_6794:
+    push af
+    inc a
+    jr z, jr_006_679c
+
+    ld a, $02
+    jr jr_006_679e
+
+jr_006_679c:
+    ld a, $03
+
+jr_006_679e:
+    call $3796
+    pop af
+    ret
+
+
+    ld e, l
+    ld d, h
+    ld a, $0c
+    ld hl, $675e
+    ld bc, $0c01
+    call Call_006_6846
+    call Set_OBJ_8x8
+    xor a
+    ld [$cab6], a
+    call EmptyScreen
+    call ZeroObjectPositions
+    ld a, $01
+    ld [$cac0], a
+    call LoadSymbolsFont
+    ld de, $38bf
+    call SetupText
+    call Call_006_6a65
+    ld a, $02
+    ld [$d009], a
+    call Call_006_6892
+    xor a
+    ld [$d006], a
+    ld [$cea4], a
+    ld a, $09
+    ld [$d005], a
+    ld a, $06
+    ld [$cea9], a
+    ld a, $0f
+    ld [$ceaa], a
+    ld a, $00
+    ld [$ceab], a
+
+jr_006_67f1:
+    ld a, $01
+    ld [$cac0], a
+    call DoFrame
+    call UpdateRNGSources
+    ldh a, [$8f]
+    and $08
+    jr z, jr_006_6819
+
+    ld a, $01
+    call Call_006_6794
+    call Call_006_6a07
+    ld a, $06
+    ld [$d006], a
+    ld a, $05
+    ld [$cea4], a
+    call Call_006_6a23
+    jr jr_006_67f1
+
+jr_006_6819:
+    call Call_006_6908
+    jr nc, jr_006_67f1
+
+    cp $ff
+    jr z, jr_006_682b
+
+    call Call_006_6a87
+    jr nc, jr_006_67f1
+
+    call Call_006_6880
+    ret
+
+
+jr_006_682b:
+    ld a, [wNameLength]
+    or a
+    jr z, jr_006_67f1
+
+    ld e, a
+    ld d, $00
+    ld hl, wNameBuffer
+    add hl, de
+    dec hl
+    dec hl
+    ld [hl], $00
+    ld hl, wNameLength
+    dec [hl]
+    dec [hl]
+    call Call_006_68cb
+    jr jr_006_67f1
+
+Call_006_6846:
+    ld [$d004], a
+    push hl
+    ld hl, $d007
+    ld [hl], b
+    inc hl
+    ld [hl], c
+    pop hl
+    ld b, h
+    ld c, l
+    ld hl, $d002
+    ld [hl], c
+    inc hl
+    ld [hl], b
+    ld hl, $d000
+    ld [hl], e
+    inc hl
+    ld [hl], d
+    ld a, $18
+    ld hl, wNameBuffer
+    call Call_006_6787
+    ld hl, wNameBuffer
+    ld a, [$d004]
+    ld b, a
+    inc b
+
+jr_006_686f:
+    ld a, [de]
+    inc de
+    ld [hl+], a
+    dec b
+    jr nz, jr_006_686f
+
+    ld hl, wNameBuffer
+    call GetTextSizeInTiles
+    ld a, c
+    ld [wNameLength], a
+    ret
+
+
+Call_006_6880:
+    ld hl, $d000
+    ld e, [hl]
+    inc hl
+    ld d, [hl]
+    ld l, e
+    ld h, d
+    ld de, wNameBuffer
+    ld a, [$d004]
+    ld b, a
+    inc b
+    jr jr_006_686f
+
+Call_006_6892:
+    call Call_006_68c1
+    call Call_006_68cb
+    ld hl, $d002
+    ld c, [hl]
+    inc hl
+    ld a, [hl]
+    ld h, a
+    or c
+    jr z, jr_006_68a6
+
+    ld l, c
+    call PlaceTextItems
+
+jr_006_68a6:
+    ld hl, $68bc
+    call PlaceTextItems
+    ld hl, $0221
+    ld de, $0204
+    call InitTextPrinting
+    call ProcessTextFromID
+    call EnableLCD
+    ret
+
+
+    rrca
+    db $10
+    dec e
+    ld [bc], a
+    rst $38
+
+Call_006_68c1:
+    ld de, $0003
+    ld bc, $140f
+    call $1e7c
+    ret
+
+
+Call_006_68cb:
+    ld hl, $d007
+    ld d, [hl]
+    inc hl
+    ld e, [hl]
+    push de
+    call $22ae
+    ld a, [$d004]
+    ld e, a
+    ld a, $14
+    sub e
+    inc a
+    ld e, a
+    ld d, $00
+    ld hl, $68f2
+    add hl, de
+    call $21c5
+    pop de
+    call $22ae
+    ld hl, wNameBuffer
+    call $21c5
+    ret
+
+
+    ld d, [hl]
+    inc bc
+    ld d, [hl]
+    inc bc
+    ld d, [hl]
+    inc bc
+    ld d, [hl]
+    inc bc
+    ld d, [hl]
+    inc bc
+    ld d, [hl]
+    inc bc
+    ld d, [hl]
+    inc bc
+    ld d, [hl]
+    inc bc
+    ld d, [hl]
+    inc bc
+    ld d, [hl]
+    inc bc
+    ld d, [hl]
+    nop
+
+Call_006_6908:
+Jump_006_6908:
+    xor a
+    ld [$cfe3], a
+    ldh a, [$8f]
+    or a
+    jp z, Jump_006_69d9
+
+    ld b, a
+    ld a, [$cea9]
+    ld c, a
+    ld a, [$d006]
+    ld h, a
+    ld a, [$cea4]
+    ld l, a
+    bit 6, b
+    jr z, jr_006_692c
+
+    dec a
+    bit 7, a
+    jr z, jr_006_69a7
+
+    ld a, c
+    dec a
+    jr jr_006_69a7
+
+jr_006_692c:
+    bit 7, b
+    jr z, jr_006_6937
+
+    inc a
+    cp c
+    jr c, jr_006_69a7
+
+    xor a
+    jr jr_006_69a7
+
+jr_006_6937:
+    ld a, [$d005]
+    ld c, a
+    ld a, h
+    bit 5, b
+    jr z, jr_006_6974
+
+    ld d, a
+    ld a, $06
+    cp l
+    ld a, d
+    jr nz, jr_006_696b
+
+    push hl
+    push bc
+    push af
+    call Call_006_6b93
+    inc hl
+    inc hl
+    inc hl
+    inc hl
+    inc hl
+    ld a, [hl]
+    dec a
+    ld d, a
+    pop af
+    pop bc
+    pop hl
+    sub d
+    cp $ff
+    jr nz, jr_006_6962
+
+    ld a, c
+    sub $02
+    jr jr_006_69aa
+
+jr_006_6962:
+    cp $fe
+    jr nz, jr_006_696b
+
+    ld a, c
+    sub $03
+    jr jr_006_69aa
+
+jr_006_696b:
+    dec a
+    bit 7, a
+    jr z, jr_006_69aa
+
+    ld a, c
+    dec a
+    jr jr_006_69aa
+
+jr_006_6974:
+    bit 4, b
+    jr z, jr_006_69d9
+
+    ld d, a
+    ld a, $06
+    cp l
+    ld a, d
+    jr nz, jr_006_6990
+
+    push hl
+    push bc
+    push af
+    call Call_006_6b93
+    inc hl
+    inc hl
+    inc hl
+    inc hl
+    ld a, [hl]
+    dec a
+    ld d, a
+    pop af
+    pop bc
+    pop hl
+    add d
+
+jr_006_6990:
+    inc a
+    cp c
+    jr c, jr_006_69aa
+
+    inc c
+    cp c
+    jr c, jr_006_69a4
+
+    inc c
+    cp c
+    jr c, jr_006_69a0
+
+    ld a, $02
+    jr jr_006_69aa
+
+jr_006_69a0:
+    ld a, $01
+    jr jr_006_69aa
+
+jr_006_69a4:
+    xor a
+    jr jr_006_69aa
+
+jr_006_69a7:
+    ld l, a
+    jr jr_006_69ab
+
+jr_006_69aa:
+    ld h, a
+
+jr_006_69ab:
+    push hl
+    call Call_006_6b93
+    inc hl
+    inc hl
+    inc hl
+    ld a, [$d009]
+    cp $02
+    jr nz, jr_006_69bb
+
+    inc hl
+    inc hl
+
+jr_006_69bb:
+    ld d, [hl]
+    push de
+    call Call_006_6a07
+    pop de
+    pop hl
+    ld a, l
+    ld [$cea4], a
+    ld a, h
+    ld [$d006], a
+    xor a
+    ld [$cea3], a
+    ld a, $06
+    cp d
+    jp z, Jump_006_6908
+
+    ld a, $01
+    ld [$cfe3], a
+
+Jump_006_69d9:
+jr_006_69d9:
+    ldh a, [$91]
+    and $03
+    jr z, jr_006_69ef
+
+    and $01
+    jr nz, jr_006_69e5
+
+    ld a, $ff
+
+jr_006_69e5:
+    call Call_006_6794
+    push af
+    call Call_006_6a23
+    pop af
+    scf
+    ret
+
+
+jr_006_69ef:
+    ld a, [$cfe3]
+    or a
+    jr z, jr_006_69f8
+
+    call $3796
+
+jr_006_69f8:
+    ld hl, $cea3
+    ld a, [hl]
+    inc [hl]
+    and $0f
+    ret nz
+
+    ld a, [$ceaa]
+    bit 4, [hl]
+    jr z, jr_006_6a0a
+
+Call_006_6a07:
+    ld a, [$ceab]
+
+jr_006_6a0a:
+    ld e, a
+    ld a, [$d006]
+    ld h, a
+    ld a, [$cea4]
+    ld l, a
+    call Call_006_6b93
+    ld a, [hl+]
+    ld c, a
+    ld b, [hl]
+    dec b
+    ld a, e
+    call Call_006_6a28
+    call $06c3
+    or a
+    ret
+
+
+Call_006_6a23:
+    ld a, [$ceaa]
+    jr jr_006_6a0a
+
+Call_006_6a28:
+    push af
+    push bc
+    push de
+    push hl
+    push af
+    call $099c
+    pop af
+    ld b, a
+    ld a, [$ceab]
+    cp b
+    jr z, jr_006_6a60
+
+    ld a, [wNameLength]
+    srl a
+    ld d, a
+    ld a, [$d004]
+    srl a
+    ld e, a
+    ld a, d
+    cp e
+    jr nz, jr_006_6a49
+
+    dec a
+
+jr_006_6a49:
+    ld hl, $d007
+    add [hl]
+    ld d, a
+    ld h, $08
+    ld l, d
+    call $0879
+    ld a, l
+    add $08
+    ld d, a
+    ld e, $18
+    ld bc, $0000
+    call $097f
+
+jr_006_6a60:
+    pop hl
+    pop de
+    pop bc
+    pop af
+    ret
+
+
+Call_006_6a65:
+    ld hl, $8000
+    ld de, $6a77
+    ld b, $00
+
+jr_006_6a6d:
+    ld a, $10
+    cp b
+    ret z
+
+    inc b
+    ld a, [de]
+    inc de
+    ld [hl+], a
+    jr jr_006_6a6d
+
+    rst $38
+    rst $38
+    rst $38
+    rst $38
+    rst $38
+    rst $38
+    rst $38
+    rst $38
+    rst $38
+    rst $38
+    rst $38
+    rst $38
+    rst $38
+    rst $38
+    rst $38
+    rst $38
+
+; bc = xy coordinate(by each tile) in the naming screen
+; hl = the pointer to its character information(by 6bytes)
+; info. structure: (1) / (1) / (1) / character code(2) / (1)
+Call_006_6a87:
+    ld a, [$d006]
+    ld h, a
+    ld a, [$cea4]
+    ld l, a
+    call Call_006_6b93
+    inc hl
+    inc hl
+    ld e, [hl]
+    inc hl
+    ld a, [hl+]
+    ld d, a
+    cp $09
+    jp z, Jump_006_6b5f
+
+    cp $07
+    jr nz, .jr_006_6ab8
+
+    ld a, [$d009]
+    or a
+    jr nz, .jr_006_6aac
+
+    ld a, $01
+    jp .jr_006_6ace
+
+
+.jr_006_6aac
+    dec a
+    jr nz, .jr_006_6ab4
+
+    ld a, $02
+    jp .jr_006_6ace
+
+
+.jr_006_6ab4
+    xor a
+    jp .jr_006_6ace
+
+
+.jr_006_6ab8
+    cp $08
+    jr nz, .jr_006_6ad6
+
+    ld a, [$d009]
+    or a
+    jr nz, .jr_006_6ac6
+
+    ld a, $02
+    jr .jr_006_6ace
+
+.jr_006_6ac6
+    dec a
+    jr nz, .jr_006_6acc
 
-	INCROM $1a6cd, $1ad89
+    xor a
+    jr .jr_006_6ace
+
+.jr_006_6acc
+    ld a, $01
+
+.jr_006_6ace
+    ld [$d009], a
+    call Call_006_6892
+    or a
+    ret
+
+
+.jr_006_6ad6
+    ld a, [$d009]
+    cp $02
+    jr z, .read_char
+
+    ld bc, $0359
+    ld a, d
+    cp b
+    jr nz, .jr_006_6af4
+
+    ld a, e
+    cp c
+    jr nz, .jr_006_6af4
+
+    push hl
+    ld hl, $6cf9
+    call Call_006_6b61
+    pop hl
+    jr c, jr_006_6b5d
+
+    jr .jr_006_6b09
+
+.jr_006_6af4
+    ld bc, $035b
+    ld a, d
+    cp b
+    jr nz, .jr_006_6b1d
+
+    ld a, e
+    cp c
+    jr nz, .jr_006_6b1d
+
+    push hl
+    ld hl, $6d5f
+    call Call_006_6b61
+    pop hl
+    jr c, jr_006_6b5d
+
+.jr_006_6b09
+    ld a, [wNameLength] ; cfff: current player name length(by byte).
+    dec a
+    dec a
+    ld [wNameLength], a
+    ld hl, wNameBuffer ; cfe7: temporary buffer for player name.
+    push de
+    ld d, $00
+    ld e, a
+    add hl, de
+    pop de
+    ld a, [hl]
+    jr jr_006_6b37
+
+.jr_006_6b1d
+    ld a, d
+    or a
+    jr nz, jr_006_6b37
+
+    ld a, [$d009]
+    or a
+    jr nz, .jr_006_6b2b
+
+    ld a, $0e
+    jr jr_006_6b37
+
+.jr_006_6b2b
+    ld a, $0f
+    jr jr_006_6b37
+
+; read character code from info. to register.
+; [input]
+; hl: pointer.
+.read_char
+    ld e, [hl]
+    inc hl
+    ld a, [hl] ; a: first byte of the code.
+    or a
+	; if 2byte code.
+    jr nz, jr_006_6b37
+	; if 1byte code(ascii)
+	; set first byte to $0e.
+    ld a, $0e
+
+; on 2byte code.
+jr_006_6b37:
+    ld d, a ; de: character code.
+    ld hl, wNameLength
+    ld a, [hl]
+    ld c, a
+    push hl
+    ld hl, $d004
+    cp [hl]
+    pop hl
+    jr nz, jr_006_6b4c
+
+	; if the buffer is full
+	; just change the last character of it.
+    ld hl, wNameBuffer
+    dec hl
+    dec hl
+    jr jr_006_6b51
+
+; increase name length before add the character.
+jr_006_6b4c:
+    inc [hl] ; hl: wNameLength => name length 
+    inc [hl]
+    ld hl, wNameBuffer
+
+; write 2byte character codes from user input.
+; de: 2byte character codes.
+; hl: dest.
+jr_006_6b51:
+    ld b, $00
+    add hl, bc
+
+    ld [hl], d
+    inc hl
+    ld [hl], e
+    inc hl
+    ld [hl], $00 ; null terminator.
+
+    call Call_006_68cb
+
+jr_006_6b5d:
+    or a
+    ret
+
+
+Jump_006_6b5f:
+    scf
+    ret
+
+
+Call_006_6b61:
+    ld a, [wNameLength]
+    or a
+    jr z, jr_006_6b91
+
+    dec a
+    dec a
+    push hl
+    ld hl, wNameBuffer
+    ld d, $00
+    ld e, a
+    add hl, de
+    ld e, [hl]
+    inc hl
+    ld d, [hl]
+    ld a, $0f
+    cp e
+    jr nz, jr_006_6b7a
+
+    dec e
+
+jr_006_6b7a:
+    pop hl
+
+jr_006_6b7b:
+    ld a, [hl+]
+    or a
+    jr z, jr_006_6b91
+
+    cp d
+    jr nz, jr_006_6b8c
+
+    ld a, [hl]
+    cp e
+    jr nz, jr_006_6b8c
+
+    inc hl
+    ld e, [hl]
+    inc hl
+    ld d, [hl]
+    or a
+    ret
+
+
+jr_006_6b8c:
+    inc hl
+    inc hl
+    inc hl
+    jr jr_006_6b7b
+
+jr_006_6b91:
+    scf
+    ret
+
+
+Call_006_6b93:
+    push de
+    ld e, l
+    ld d, h
+    ld a, [$cea9]
+    ld l, a
+    call $0879
+    ld a, l
+    add e
+    ld hl, $6baf
+    pop de
+    or a
+    ret z
+
+jr_006_6ba5:
+    inc hl
+    inc hl
+    inc hl
+    inc hl
+    inc hl
+    inc hl
+    dec a
+    jr nz, jr_006_6ba5
+
+    ret
+
+
+    inc b
+    ld [bc], a
+    ld de, $3000
+    inc bc
+    ld b, $02
+    ld [de], a
+    nop
+    add hl, sp
+    inc bc
+    ld [$1302], sp
+    nop
+    ld b, d
+    inc bc
+    ld a, [bc]
+    ld [bc], a
+    inc d
+    nop
+    ld l, a
+    nop
+    inc c
+    ld [bc], a
+    dec d
+    nop
+    ld h, h
+    nop
+    db $10
+    rrca
+    ld bc, $0009
+    nop
+    inc b
+    inc b
+    ld d, $00
+    ld sp, $0603
+    inc b
+    rla
+    nop
+    ld a, [hl-]
+    inc bc
+    ld [$1804], sp
+    nop
+    ld b, e
+    inc bc
+    ld a, [bc]
+    inc b
+    add hl, de
+    nop
+    ld e, l
+    inc bc
+    inc c
+    inc b
+    ld a, [de]
+    nop
+    ld h, l
+    nop
+    db $10
+    rrca
+    ld bc, $0009
+    nop
+    inc b
+    ld b, $1b
+    nop
+    ld [hl-], a
+    inc bc
+    ld b, $06
+    inc e
+    nop
+    dec sp
+    inc bc
+    ld [$1d06], sp
+    nop
+    ld b, h
+    inc bc
+    ld a, [bc]
+    ld b, $1e
+    nop
+    ld l, d
+    nop
+    inc c
+    ld b, $1f
+    nop
+    ld h, [hl]
+    nop
+    db $10
+    rrca
+    ld bc, $0009
+    nop
+    inc b
+    ld [$0020], sp
+    inc sp
+    inc bc
+    ld b, $08
+    ld hl, $3c00
+    inc bc
+    ld [$2208], sp
+    nop
+    ld b, l
+    inc bc
+    ld a, [bc]
+    ld [$0023], sp
+    ld l, e
+    nop
+    inc c
+    ld [$0024], sp
+    ld h, a
+    nop
+    db $10
+    rrca
+    ld bc, $0009
+    nop
+    inc b
+    ld a, [bc]
+    dec h
+    nop
+    inc [hl]
+    inc bc
+    ld b, $0a
+    ld h, $00
+    dec a
+    inc bc
+    ld [$270a], sp
+    nop
+    ld b, [hl]
+    inc bc
+    ld a, [bc]
+    ld a, [bc]
+    jr z, jr_006_6c55
+
+jr_006_6c55:
+    ld [hl], a
+    nop
+    inc c
+    ld a, [bc]
+    add hl, hl
+    nop
+    ld l, b
+    nop
+    db $10
+    rrca
+    ld bc, $0009
+    nop
+    inc b
+    inc c
+    ld a, [hl+]
+    nop
+    dec [hl]
+    inc bc
+    ld b, $0c
+    dec hl
+    nop
+    ld a, $03
+    ld [$2c0c], sp
+    nop
+    ld b, a
+    inc bc
+    ld a, [bc]
+    inc c
+    dec l
+    nop
+    ld h, b
+    nop
+    inc c
+    inc c
+    ld l, $00
+    ld l, c
+    nop
+    db $10
+    rrca
+    ld bc, $0009
+    nop
+    inc b
+    ld c, $2f
+    nop
+    ld [hl], $03
+    ld b, $0e
+    jr nc, jr_006_6c91
+
+jr_006_6c91:
+    ccf
+    inc bc
+    ld [$310e], sp
+    nop
+    ld c, b
+    inc bc
+    ld a, [bc]
+    ld c, $32
+    nop
+    ld h, c
+    nop
+    inc c
+    ld c, $33
+    nop
+    inc de
+    dec b
+    db $10
+    rrca
+    ld bc, $0009
+    nop
+    inc b
+    db $10
+    inc [hl]
+    nop
+    scf
+    inc bc
+    ld b, $10
+    dec [hl]
+    nop
+    ld b, b
+    inc bc
+    ld [$3610], sp
+    nop
+    ld c, c
+    inc bc
+    ld a, [bc]
+    db $10
+    inc a
+    nop
+    ld h, d
+    nop
+    inc c
+    db $10
+    dec a
+    nop
+    ld de, $1005
+    rrca
+    ld bc, $0009
+    nop
+    inc b
+    ld [de], a
+    scf
+    nop
+    jr c, @+$05
+
+    ld b, $12
+    jr c, jr_006_6cd9
+
+jr_006_6cd9:
+    ld b, c
+    inc bc
+    ld [$3912], sp
+    nop
+    ld l, [hl]
+    nop
+    ld a, [bc]
+    ld [de], a
+    ld a, [hl-]
+    nop
+    ld h, e
+    nop
+    inc c
+    ld [de], a
+    dec sp
+    nop
+    ld [hl], b
+    nop
+    db $10
+    rrca
+    ld bc, $0009
+    nop
+    nop
+    nop
+    nop
+    nop
+    nop
+    nop
+    ld d, $0e
+    ld a, $00
+    rla
+    ld c, $3f
+    nop
+    jr jr_006_6d11
+
+    ld b, b
+    nop
+    add hl, de
+    ld c, $41
+    nop
+    ld a, [de]
+    ld c, $42
+    nop
+    dec de
+    ld c, $43
+    nop
+
+jr_006_6d11:
+    inc e
+    ld c, $44
+    nop
+    dec e
+    ld c, $45
+    nop
+    ld e, $0e
+    ld b, [hl]
+    nop
+    rra
+    ld c, $47
+    nop
+    jr nz, jr_006_6d31
+
+    ld c, b
+    nop
+    ld hl, $490e
+    nop
+    ld [hl+], a
+    ld c, $4a
+    nop
+    inc hl
+    ld c, $4b
+    nop
+
+jr_006_6d31:
+    inc h
+    ld c, $4c
+    nop
+    ld a, [hl+]
+    ld c, $4d
+    nop
+    dec hl
+    ld c, $4e
+    nop
+    inc l
+    ld c, $4f
+    nop
+    dec l
+    ld c, $50
+    nop
+    ld l, $0e
+    ld d, c
+    nop
+    ld d, d
+    ld c, $4d
+    nop
+    ld d, e
+    ld c, $4e
+    nop
+    ld d, h
+    ld c, $4f
+    nop
+    ld d, l
+    ld c, $50
+    nop
+    ld d, [hl]
+    ld c, $51
+    nop
+    nop
+    nop
+    ld a, [hl+]
+    ld c, $52
+    nop
+    dec hl
+    ld c, $53
+    nop
+    inc l
+    ld c, $54
+    nop
+    dec l
+    ld c, $55
+    nop
+    ld l, $0e
+    ld d, [hl]
+    nop
+    ld c, l
+    ld c, $52
+    nop
+    ld c, [hl]
+    ld c, $53
+    nop
+    ld c, a
+    ld c, $54
+    nop
+    ld d, b
+    ld c, $55
+    nop
+    ld d, c
+    ld c, $56
+    nop
+    nop
+    nop
 
 Func_1ad89: ; 1ad89 (6:6d89)
-	INCROM $1ad89, $1c000
+    push af
+    ld a, [de]
+    or a
+    jr nz, jr_006_6d91
+
+    ld a, $06
+    ld [de], a
+
+jr_006_6d91:
+    pop af
+    inc a
+    call Call_006_6846
+    call $02b9
+    xor a
+    ld [$cab6], a
+    call $04a2
+    call $099c
+    ld a, $01
+    ld [$cac0], a
+    call $2119
+    ld de, $38bf
+    call $2275
+    call Call_006_6e37
+    xor a
+    ld [$d009], a
+    call Call_006_6e99
+    xor a
+    ld [$d006], a
+    ld [$cea4], a
+    ld a, $09
+    ld [$d005], a
+    ld a, $07
+    ld [$cea9], a
+    ld a, $0f
+    ld [$ceaa], a
+    ld a, $00
+    ld [$ceab], a
+
+Jump_006_6dd6:
+jr_006_6dd6:
+    ld a, $01
+    ld [$cac0], a
+    call $053f
+    call $089b
+    ldh a, [$8f]
+    and $08
+    jr z, jr_006_6dfc
+
+    ld a, $01
+    call Call_006_6794
+    call Call_006_6fa1
+    ld a, $06
+    ld [$d006], a
+    ld [$cea4], a
+    call Call_006_6fbd
+    jr jr_006_6dd6
+
+jr_006_6dfc:
+    call Call_006_6efb
+    jr nc, jr_006_6dd6
+
+    cp $ff
+    jr z, jr_006_6e1c
+
+    call Call_006_6ec3
+    jr nc, jr_006_6dd6
+
+    call Call_006_6880
+    ld hl, $d000
+    ld a, [hl+]
+    ld h, [hl]
+    ld l, a
+    inc hl
+    ld a, [hl]
+    or a
+    jr nz, jr_006_6e1b
+
+    dec hl
+    ld [hl], $00
+
+jr_006_6e1b:
+    ret
+
+
+jr_006_6e1c:
+    ld a, [wNameLength]
+    cp $02
+    jr c, jr_006_6dd6
+
+    ld e, a
+    ld d, $00
+    ld hl, wNameBuffer
+    add hl, de
+    dec hl
+    ld [hl], $00
+    ld hl, wNameLength
+    dec [hl]
+    call Call_006_6e59
+    jp Jump_006_6dd6
+
+
+Call_006_6e37:
+    ld hl, $8000
+    ld de, $6e49
+    ld b, $00
+
+jr_006_6e3f:
+    ld a, $10
+    cp b
+    ret z
+
+    inc b
+    ld a, [de]
+    inc de
+    ld [hl+], a
+    jr jr_006_6e3f
+
+    ldh a, [$f0]
+    ldh a, [$f0]
+    ldh a, [$f0]
+    ldh a, [$f0]
+    ldh a, [$f0]
+    ldh a, [$f0]
+    ldh a, [$f0]
+    ldh a, [$f0]
+
+Call_006_6e59:
+    ld hl, $d007
+    ld d, [hl]
+    inc hl
+    ld e, [hl]
+    call $22ae
+    ld hl, $6e83
+    ld de, $c590
+
+jr_006_6e68:
+    ld a, [hl+]
+    ld [de], a
+    inc de
+    or a
+    jr nz, jr_006_6e68
+
+    ld hl, wNameBuffer
+    ld de, $c590
+
+jr_006_6e74:
+    ld a, [hl+]
+    or a
+    jr z, jr_006_6e7c
+
+    ld [de], a
+    inc de
+    jr jr_006_6e74
+
+jr_006_6e7c:
+    ld hl, $c590
+    call $21c5
+    ret
+
+
+    ld b, $5f
+    ld e, a
+    ld e, a
+    ld e, a
+    ld e, a
+    ld e, a
+    ld e, a
+    ld e, a
+    ld e, a
+    ld e, a
+    ld e, a
+    ld e, a
+    ld e, a
+    ld e, a
+    ld e, a
+    ld e, a
+    ld e, a
+    ld e, a
+    ld e, a
+    ld e, a
+    nop
+
+Call_006_6e99:
+    call Call_006_68c1
+    call Call_006_6e59
+    ld hl, $d002
+    ld c, [hl]
+    inc hl
+    ld a, [hl]
+    ld h, a
+    or c
+    jr z, jr_006_6ead
+
+    ld l, c
+    call $2c08
+
+jr_006_6ead:
+    ld hl, $68bc
+    call $2c08
+    ld hl, $0222
+    ld de, $0204
+    call $22ae
+    call $2c29
+    call $0277
+    ret
+
+
+Call_006_6ec3:
+    ld a, [$d006]
+    ld h, a
+    ld a, [$cea4]
+    ld l, a
+    call Call_006_7000
+    inc hl
+    inc hl
+    ld a, [hl]
+    cp $01
+    jr nz, jr_006_6ed7
+
+    scf
+    ret
+
+
+jr_006_6ed7:
+    ld d, a
+    ld hl, wNameLength
+    ld a, [hl]
+    ld c, a
+    push hl
+    ld hl, $d004
+    cp [hl]
+    pop hl
+    jr nz, jr_006_6eeb
+
+    ld hl, wNameBuffer
+    dec hl
+    jr jr_006_6eef
+
+jr_006_6eeb:
+    inc [hl]
+    ld hl, wNameBuffer
+
+jr_006_6eef:
+    ld b, $00
+    add hl, bc
+    ld [hl], d
+    inc hl
+    ld [hl], $00
+    call Call_006_6e59
+    or a
+    ret
+
+
+Call_006_6efb:
+Jump_006_6efb:
+    xor a
+    ld [$cfe3], a
+    ldh a, [$8f]
+    or a
+    jp z, Jump_006_6f73
+
+    ld b, a
+    ld a, [$cea9]
+    ld c, a
+    ld a, [$d006]
+    ld h, a
+    ld a, [$cea4]
+    ld l, a
+    bit 6, b
+    jr z, jr_006_6f1f
+
+    dec a
+    bit 7, a
+    jr z, jr_006_6f4b
+
+    ld a, c
+    dec a
+    jr jr_006_6f4b
+
+jr_006_6f1f:
+    bit 7, b
+    jr z, jr_006_6f2a
+
+    inc a
+    cp c
+    jr c, jr_006_6f4b
+
+    xor a
+    jr jr_006_6f4b
+
+jr_006_6f2a:
+    cp $06
+    jr z, jr_006_6f73
+
+    ld a, [$d005]
+    ld c, a
+    ld a, h
+    bit 5, b
+    jr z, jr_006_6f40
+
+    dec a
+    bit 7, a
+    jr z, jr_006_6f4e
+
+    ld a, c
+    dec a
+    jr jr_006_6f4e
+
+jr_006_6f40:
+    bit 4, b
+    jr z, jr_006_6f73
+
+    inc a
+    cp c
+    jr c, jr_006_6f4e
+
+    xor a
+    jr jr_006_6f4e
+
+jr_006_6f4b:
+    ld l, a
+    jr jr_006_6f4f
+
+jr_006_6f4e:
+    ld h, a
+
+jr_006_6f4f:
+    push hl
+    call Call_006_7000
+    inc hl
+    inc hl
+    ld d, [hl]
+    push de
+    call Call_006_6fa1
+    pop de
+    pop hl
+    ld a, l
+    ld [$cea4], a
+    ld a, h
+    ld [$d006], a
+    xor a
+    ld [$cea3], a
+    ld a, $02
+    cp d
+    jp z, Jump_006_6efb
+
+    ld a, $01
+    ld [$cfe3], a
+
+Jump_006_6f73:
+jr_006_6f73:
+    ldh a, [$91]
+    and $03
+    jr z, jr_006_6f89
+
+    and $01
+    jr nz, jr_006_6f7f
+
+    ld a, $ff
+
+jr_006_6f7f:
+    call Call_006_6794
+    push af
+    call Call_006_6fbd
+    pop af
+    scf
+    ret
+
+
+jr_006_6f89:
+    ld a, [$cfe3]
+    or a
+    jr z, jr_006_6f92
+
+    call $3796
+
+jr_006_6f92:
+    ld hl, $cea3
+    ld a, [hl]
+    inc [hl]
+    and $0f
+    ret nz
+
+    ld a, [$ceaa]
+    bit 4, [hl]
+    jr z, jr_006_6fa4
+
+Call_006_6fa1:
+    ld a, [$ceab]
+
+jr_006_6fa4:
+    ld e, a
+    ld a, [$d006]
+    ld h, a
+    ld a, [$cea4]
+    ld l, a
+    call Call_006_7000
+    ld a, [hl+]
+    ld c, a
+    ld b, [hl]
+    dec b
+    ld a, e
+    call Call_006_6fc2
+    call $06c3
+    or a
+    ret
+
+
+Call_006_6fbd:
+    ld a, [$ceaa]
+    jr jr_006_6fa4
+
+Call_006_6fc2:
+    push af
+    push bc
+    push de
+    push hl
+    push af
+    call $099c
+    pop af
+    ld b, a
+    ld a, [$ceab]
+    cp b
+    jr z, jr_006_6ffb
+
+    ld a, [wNameLength]
+    ld d, a
+    ld a, [$d004]
+    ld e, a
+    ld a, d
+    cp e
+    jr nz, jr_006_6fdf
+
+    dec a
+
+jr_006_6fdf:
+    dec a
+    ld d, a
+    ld hl, $d007
+    ld a, [hl]
+    sla a
+    add d
+    ld d, a
+    ld h, $04
+    ld l, d
+    call $0879
+    ld a, l
+    add $08
+    ld d, a
+    ld e, $18
+    ld bc, $0000
+    call $097f
+
+jr_006_6ffb:
+    pop hl
+    pop de
+    pop bc
+    pop af
+    ret
+
+
+Call_006_7000:
+    push de
+    ld e, l
+    ld d, h
+    ld a, [$cea9]
+    ld l, a
+    call $0879
+    ld a, l
+    add e
+    ld hl, $7019
+    pop de
+    or a
+    ret z
+
+jr_006_7012:
+    inc hl
+    inc hl
+    inc hl
+    dec a
+    jr nz, jr_006_7012
+
+    ret
+
+
+    inc b
+    ld [bc], a
+    ld b, c
+    ld b, $02
+    ld c, d
+    ld [$5302], sp
+    ld a, [bc]
+    ld [bc], a
+    ccf
+    inc c
+    ld [bc], a
+    inc [hl]
+    ld c, $02
+    ld [bc], a
+    db $10
+    rrca
+    ld bc, $0404
+    ld b, d
+    ld b, $04
+    ld c, e
+    ld [$5404], sp
+    ld a, [bc]
+    inc b
+    ld h, $0c
+    inc b
+    dec [hl]
+    ld c, $04
+    ld [bc], a
+    db $10
+    rrca
+    ld bc, $0604
+    ld b, e
+    ld b, $06
+    ld c, h
+    ld [$5506], sp
+    ld a, [bc]
+    ld b, $2b
+    inc c
+    ld b, $36
+    ld c, $06
+    ld [bc], a
+    db $10
+    rrca
+    ld bc, $0804
+    ld b, h
+    ld b, $08
+    ld c, l
+    ld [$5608], sp
+    ld a, [bc]
+    ld [$0c2d], sp
+    ld [$0e37], sp
+    ld [$1002], sp
+    rrca
+    ld bc, $0a04
+    ld b, l
+    ld b, $0a
+    ld c, [hl]
+    ld [$570a], sp
+    ld a, [bc]
+    ld a, [bc]
+    daa
+    inc c
+    ld a, [bc]
+    jr c, jr_006_708b
+
+    ld a, [bc]
+    ld [bc], a
+    db $10
+    rrca
+    ld bc, $0c04
+    ld b, [hl]
+    ld b, $0c
+    ld c, a
+    ld [$580c], sp
+
+jr_006_708b:
+    ld a, [bc]
+    inc c
+    jr nc, @+$0e
+
+    inc c
+    add hl, sp
+    ld c, $0c
+    ld [bc], a
+    db $10
+    rrca
+    ld bc, $0e04
+    ld b, a
+    ld b, $0e
+    ld d, b
+    ld [$590e], sp
+    ld a, [bc]
+    ld c, $31
+    inc c
+    ld c, $20
+    ld c, $0e
+    ld [bc], a
+    db $10
+    rrca
+    ld bc, $1004
+    ld c, b
+    ld b, $10
+    ld d, c
+    ld [$5a10], sp
+    ld a, [bc]
+    db $10
+    ld [hl-], a
+    inc c
+    db $10
+    jr nz, jr_006_70ca
+
+    db $10
+    ld [bc], a
+    db $10
+    rrca
+    ld bc, $1204
+    ld c, c
+    ld b, $12
+    ld d, d
+    ld [$2112], sp
+
+jr_006_70ca:
+    ld a, [bc]
+    ld [de], a
+    inc sp
+    inc c
+    ld [de], a
+    jr nz, @+$10
+
+    ld [de], a
+    ld [bc], a
+    db $10
+    rrca
+    ld bc, $0000
+    nop
+    nop
+    ld a, [de]
+    dec b
+    ld [bc], a
+    ld [hl], a
+    ld bc, $0278
+    ld a, c
+    ld bc, $027a
+    ld a, e
+    ld bc, $037c
+    ld a, l
+    ld [bc], a
+    ld a, [hl]
+    ld bc, $027f
+    add b
+    ld bc, $0181
+    add d
+    ld bc, $0283
+    add h
+    ld bc, $0185
+    add a
+    ld bc, $0288
+    adc c
+    ld bc, $018a
+    jp $c502
+
+
+    ld bc, $02d2
+    db $dd
+    nop
+    inc c
+    inc b
+    ld c, $05
+    inc b
+    ld l, l
+    ld [bc], a
+    ld l, a
+    ld [bc], a
+    ld [hl], h
+    inc b
+    add a
+    ld [bc], a
+    adc b
+    inc b
+    or c
+    ld bc, $02c3
+    push bc
+    ld bc, $02c6
+    call $d202
+    ld bc, $02d5
+    ret c
+
+    ld [bc], a
+    reti
+
+
+    ld bc, $01da
+    db $db
+    ld bc, $00e1
+    jr jr_006_7139
+
+    ld [bc], a
+    rlca
+    inc bc
+    ld a, e
+    inc b
+
+jr_006_7139:
+    ld a, l
+    inc bc
+    ld a, [hl]
+    ld [bc], a
+    add a
+    ld [bc], a
+    adc b
+    inc bc
+    or c
+    ld [bc], a
+    or e
+    inc bc
+    cp a
+    ld [bc], a
+    ret nz
+
+    ld bc, $01c2
+    jp $d803
+
+
+    inc bc
+    reti
+
+
+    ld [bc], a
+    db $dd
+    nop
+    ld [$0402], sp
+    inc b
+    rrca
+    dec b
+    inc b
+    dec sp
+    ld [bc], a
+    ld [hl], c
+    inc bc
+    ld a, e
+    ld [bc], a
+    ld a, h
+    inc bc
+    add a
+    inc bc
+    adc b
+    ld [bc], a
+    cp c
+    ld [bc], a
+    rst $08
+    ld [bc], a
+    push de
+    inc bc
+    ret c
+
+    ld [bc], a
+    reti
+
+
+    inc bc
+    db $dd
+    ld [bc], a
+    rst $18
+    nop
+    add hl, de
+    dec b
+    inc b
+    ld a, l
+    inc bc
+    ld a, [hl]
+    ld [bc], a
+    ld a, a
+    ld [bc], a
+    adc b
+    inc b
+    add a
+    inc b
+    ld a, e
+    ld bc, $027c
+    db $dd
+    ld [bc], a
+    reti
+
+
+    ld [bc], a
+    ret c
+
+    ld [bc], a
+    jp nc, $db03
+
+    inc b
+    push bc
+    nop
+    ld [$0f04], sp
+    dec b
+    ld [bc], a
+    rlca
+    ld [bc], a
+    ld h, b
+    ld [bc], a
+    ld h, c
+    ld bc, $0167
+    ld l, b
+    inc b
+    ld [hl], a
+    inc bc
+    ld a, b
+    inc b
+    and a
+    inc bc
+    xor b
+    ld bc, $02c3
+    push bc
+    ld bc, $02c9
+    call $d601
+    inc bc
+    ret c
+
+    ld [bc], a
+    reti
+
+
+    ld [bc], a
+    db $dd
+    ld bc, $00de
+    add hl, de
+    dec b
+    inc b
+    ld a, c
+    inc bc
+    ld a, d
+    inc b
+    add e
+    inc bc
+    adc c
+    ld [bc], a
+    adc d
+    ld [bc], a
+    cp c
+    ld bc, $01ba
+    cp [hl]
+    ld bc, $02c3
+    push bc
+    ld [bc], a
+    ret
+
+
+    inc bc
+    jp nc, $d904
+
+    inc bc
+    db $dd
+    nop
+    jr jr_006_71e0
+
+    inc bc
+    ld [hl], a
+    ld [bc], a
+    ld a, b
+    inc bc
+
+jr_006_71e0:
+    add b
+    ld [bc], a
+    add c
+    ld bc, $0482
+    add e
+    inc b
+    add h
+    ld bc, $0285
+    add [hl]
+    ld [bc], a
+    adc c
+    ld bc, $028a
+    push bc
+    ld bc, $02c6
+    call nc, $d701
+    inc bc
+    reti
+
+
+    ld [bc], a
+    ld [c], a
+    nop
+    rrca
+    dec b
+    ld [$0303], sp
+    ld c, l
+    ld bc, $034e
+    ld e, h
+    ld [bc], a
+    ld e, l
+    inc b
+    ld [hl], a
+    ld [bc], a
+    ld a, b
+    inc bc
+    add h
+    ld bc, $0386
+    adc b
+    ld [bc], a
+    adc e
+    ld bc, $028c
+    adc l
+    ld [bc], a
+    jp $c502
+
+
+    ld [bc], a
+    jp z, $cc04
+
+    nop
+    jr jr_006_722a
+
+    ld [bc], a
+    rlca
+    inc b
+    ld a, c
+    ld [bc], a
+
+jr_006_722a:
+    ld a, d
+    inc b
+    add b
+    inc bc
+    add c
+    ld [bc], a
+    add d
+    inc bc
+    add e
+    inc bc
+    adc c
+    ld [bc], a
+    jp $ca01
+
+
+    ld [bc], a
+    ret nc
+
+    ld [bc], a
+    jp nc, $d601
+
+    ld [bc], a
+    reti
+
+
+    ld bc, $02de
+    db $dd
+    nop
+    add hl, de
+    inc bc
+    ld [bc], a
+    ld b, h
+    ld bc, $0245
+    ld b, [hl]
+    ld bc, $0147
+    ld c, b
+    ld [bc], a
+    ld c, e
+    ld bc, $024c
+    ld c, l
+    ld bc, $024e
+    ld c, a
+    ld bc, $0250
+    ld d, c
+    ld bc, $0152
+    ld d, a
+    ld bc, $0158
+    ld e, c
+    ld bc, $015c
+    ld e, l
+    ld bc, $015e
+    jp $c502
+
+
+    ld bc, $02c9
+    call z, $cf01
+    ld bc, $01d4
+    db $dd
+    ld bc, $00de
+    db $10
+    inc bc
+    ld a, [bc]
+    dec b
+    ld [bc], a
+    ld c, e
+    ld bc, $034c
+    ld c, l
+    ld [bc], a
+    ld c, [hl]
+    inc bc
+    ld c, a
+    ld [bc], a
+    ld d, b
+    inc bc
+    ld d, l
+    ld [bc], a
+    ld d, [hl]
+    inc bc
+    ld [hl], a
+    ld [bc], a
+    ld a, b
+    ld [bc], a
+    push bc
+    ld [bc], a
+    call $d002
+    ld [bc], a
+    db $db
+    inc bc
+    db $dd
+    nop
+    ld [$0e01], sp
+    inc bc
+    inc b
+    rlca
+    inc bc
+    inc c
+    ld [bc], a
+    dec c
+    inc bc
+    ld b, c
+    ld [bc], a
+    ld b, d
+    inc bc
+    ld c, l
+    ld [bc], a
+    ld c, [hl]
+    inc b
+    ld d, l
+    inc bc
+    ld d, [hl]
+    ld [bc], a
+    jp $c502
+
+
+    ld [bc], a
+    ret c
+
+    ld [bc], a
+    reti
+
+
+    inc b
+    db $dd
+    nop
+    rrca
+    inc bc
+    ld [$0306], sp
+    rlca
+    inc bc
+    ld b, h
+    ld [bc], a
+    ld b, l
+    inc b
+    ld b, [hl]
+    inc bc
+    ld b, a
+    ld [bc], a
+    ld c, b
+    inc b
+    sub l
+    inc bc
+    sub [hl]
+    inc bc
+    cp a
+    ld [bc], a
+    ret nz
+
+    ld bc, $01c3
+    push bc
+    ld bc, $02c7
+    rst $08
+    ld [bc], a
+    ret nc
+
+    ld bc, $00d1
+    jr jr_006_72ed
+
+    inc b
+    ld b, c
+    inc bc
+
+jr_006_72ed:
+    ld b, d
+    ld [bc], a
+    ld b, e
+    inc b
+    ld d, e
+    inc bc
+    ld d, h
+    inc bc
+    ld d, c
+    ld [bc], a
+    ld d, d
+    ld [bc], a
+    ld e, c
+    ld [bc], a
+    jp $ca01
+
+
+    ld bc, $01cd
+    adc $02
+    ret nc
+
+    ld bc, $02d1
+    jp nc, $dd02
+
+    ld bc, $00e3
+    inc b
+    ld [bc], a
+    ld b, $03
+    ld [$0204], sp
+    rlca
+    ld bc, $013e
+    ld e, e
+    ld bc, $0160
+    ld h, c
+    ld bc, $0162
+    ld h, e
+    ld bc, $0164
+    ld h, l
+    ld bc, $0166
+    ld h, a
+    ld bc, $0168
+    ld [hl], e
+    ld [bc], a
+    xor e
+    ld bc, $01ac
+    xor l
+    ld [bc], a
+    xor [hl]
+    ld bc, $02af
+    or b
+    inc b
+    cp h
+    ld [bc], a
+    jp $c503
+
+
+    ld [bc], a
+    rlc d
+    push de
+    ld bc, $01d6
+    ret c
+
+    ld bc, $03d9
+    db $dd
+    nop
+    add hl, bc
+    inc bc
+    inc c
+    inc b
+    ld [bc], a
+    ld d, l
+    ld [bc], a
+    ld e, c
+    inc bc
+    ld h, b
+    ld bc, $0267
+    ld l, c
+    inc bc
+    ld [hl], c
+    ld [bc], a
+    and a
+    ld bc, $02a8
+    jp $c504
+
+
+    inc bc
+    ret nc
+
+    ld bc, $03d6
+    ret c
+
+    ld [bc], a
+    jp c, $db04
+
+    inc b
+    ld [c], a
+    nop
+    ld a, [de]
+    inc b
+    ld [bc], a
+    ld h, b
+    ld bc, $0161
+    ld h, a
+    ld bc, $0268
+    ld l, c
+    ld bc, $016a
+    ld l, e
+    ld bc, $036c
+    ld l, l
+    ld bc, $016e
+    ld l, a
+    ld bc, $0170
+    ld [hl], c
+    ld bc, $0172
+    ld [hl], e
+    ld bc, $0174
+    ld [hl], l
+    inc bc
+    cp h
+    ld bc, $02cd
+    ret nc
+
+    ld [bc], a
+    call nc, $d802
+    ld [bc], a
+    reti
+
+
+    ld bc, $00db
+    jr jr_006_73aa
+
+    ld bc, $0207
+    ld h, c
+
+jr_006_73aa:
+    ld bc, $0162
+    ld h, e
+    ld [bc], a
+    ld h, a
+    ld [bc], a
+    ld l, c
+    ld [bc], a
+    ld l, d
+    ld [bc], a
+    ld l, e
+    inc b
+    ld l, l
+    inc bc
+    ld l, a
+    ld bc, $0375
+    cp l
+    ld [bc], a
+    call $d802
+    inc bc
+    reti
+
+
+    ld [bc], a
+    jp c, $db03
+
+    nop
+    jr jr_006_73cf
+
+    ld [bc], a
+    rlca
+    inc b
+    ld l, c
+
+jr_006_73cf:
+    inc bc
+    ld l, e
+    inc b
+    ld l, l
+    ld [bc], a
+    ld l, [hl]
+    inc b
+    ld [hl], c
+    ld [bc], a
+    cp c
+    ld bc, $01ba
+    jp $c502
+
+
+    ld [bc], a
+    jp nc, $d904
+
+    ld bc, $04db
+    db $dd
+    nop
+    jr jr_006_73eb
+
+    inc bc
+
+jr_006_73eb:
+    inc c
+    ld [bc], a
+    dec c
+    ld bc, $030e
+    rrca
+    ld [bc], a
+    db $10
+    ld bc, $0411
+    rra
+    inc bc
+    jr nz, @+$04
+
+    ld hl, $2201
+    ld bc, $012e
+    cpl
+    ld [bc], a
+    push bc
+    ld [bc], a
+    jp z, $d202
+
+    ld [bc], a
+    call nc, $d702
+    ld [bc], a
+    db $dd
+    nop
+    add hl, de
+    ld bc, $0701
+    ld [bc], a
+    ld [de], a
+    ld bc, $0213
+    ld a, [de]
+    ld bc, $021b
+    inc e
+    ld bc, $011d
+    ld e, $02
+    rra
+    ld bc, $0220
+    ld hl, $2201
+    ld [bc], a
+    inc hl
+    ld bc, $0124
+    dec h
+    ld bc, $012f
+    or a
+    ld bc, $02b9
+    push bc
+    ld bc, $01d2
+    call nc, $d802
+    ld [bc], a
+    reti
+
+
+    ld [bc], a
+    db $dd
+    ld bc, $00df
+    jr jr_006_7447
+
+    ld [bc], a
+
+jr_006_7447:
+    rlca
+    inc bc
+    ld [$0902], sp
+    ld [bc], a
+    dec bc
+    inc bc
+    inc e
+    ld [bc], a
+    dec e
+    ld [bc], a
+    ld e, $02
+    inc hl
+    ld bc, $0124
+    dec h
+    ld [bc], a
+    inc l
+    ld bc, $022d
+    or a
+    ld [bc], a
+    ret
+
+
+    inc bc
+    jp z, $cf01
+
+    ld [bc], a
+    jp nc, $dd02
+
+    ld bc, $00df
+    ld a, [bc]
+    ld bc, $0204
+    inc b
+    inc bc
+    inc b
+    inc b
+    inc bc
+    rlca
+    inc bc
+    ld hl, $2202
+    ld bc, $013d
+    ld a, $01
+    ld e, d
+    ld bc, $015b
+    ld [hl], d
+    ld bc, $0473
+    cp e
+    inc b
+    cp h
+    inc b
+    cp l
+    ld [bc], a
+    push bc
+    ld [bc], a
+    add $02
+    rst $08
+    inc b
+    jp nc, $db02
+
+    nop
+    ld [de], a
+    ld bc, $0604
+    inc b
+    ld [$0903], sp
+    ld [bc], a
+    dec bc
+    inc b
+    inc e
+    inc bc
+    dec e
+    ld [bc], a
+    ld e, $04
+    jr z, @+$05
+
+    add hl, hl
+    ld [bc], a
+    jp $c503
+
+
+    ld [bc], a
+    jp z, $cd02
+
+    ld [bc], a
+    jp nc, $dd02
+
+    nop
+    add hl, de
+    ld b, $03
+    adc [hl]
+    ld [bc], a
+    adc a
+    ld bc, $0290
+    sub d
+    ld bc, $0193
+    sub h
+    ld [bc], a
+    sub l
+    ld bc, $0196
+    sub a
+    ld bc, $0298
+    sbc c
+    ld bc, $019a
+    sbc e
+    ld bc, $019c
+    sbc l
+    ld bc, $01a2
+    xor e
+    ld bc, $01ac
+    cp [hl]
+    ld [bc], a
+    jp $c901
+
+
+    ld bc, $02ca
+    jp nc, $d301
+
+    ld [bc], a
+    ret c
+
+    ld bc, $00dc
+    rlca
+    ld bc, $0611
+    inc bc
+    ld a, [de]
+    ld [bc], a
+    dec de
+    inc b
+    sub h
+    ld bc, $0296
+    sub a
+    ld [bc], a
+    sbc b
+    inc bc
+    sbc c
+    ld [bc], a
+    sbc d
+    ld [bc], a
+    xor a
+    ld [bc], a
+    or d
+    ld [bc], a
+    jp $c502
+
+
+    ld [bc], a
+    call $ce01
+    ld [bc], a
+    jp nc, $d601
+
+    inc bc
+    ldh [$FF00], a
+    rla
+    ld b, $04
+    sub d
+    inc bc
+    sub e
+    inc bc
+    sbc h
+    ld [bc], a
+    sbc l
+    ld [bc], a
+    and d
+    ld [bc], a
+    xor [hl]
+    ld [bc], a
+    xor a
+    ld [bc], a
+    cp h
+    ld [bc], a
+    call $d003
+    ld [bc], a
+    ret c
+
+    inc bc
+    reti
+
+
+    inc bc
+    db $dd
+    inc b
+    db $e4
+    nop
+    add hl, de
+    ld b, $01
+    rlca
+    inc bc
+    sub c
+    ld [bc], a
+    sub e
+    inc b
+    sbc c
+    inc bc
+    sbc d
+    ld [bc], a
+    sbc e
+    ld [bc], a
+    sbc h
+    ld bc, $02a0
+    and d
+    ld [bc], a
+    or a
+    ld bc, $02be
+    ret
+
+
+    ld [bc], a
+    call $d002
+    ld bc, $02d1
+    ret c
+
+    ld bc, $01da
+    db $db
+    ld bc, $00df
+    ld d, $06
+    inc b
+    adc [hl]
+    inc bc
+    adc a
+    ld [bc], a
+    sub b
+    ld [bc], a
+    sbc e
+    inc bc
+    cp b
+    inc bc
+    cp c
+    ld [bc], a
+    cp [hl]
+    ld [bc], a
+    jp $d302
+
+
+    inc bc
+    ret nc
+
+    inc bc
+    db $db
+    inc b
+    push de
+    inc b
+    jp nc, $e301
+
+    nop
+    inc d
+    ld bc, $1404
+    inc bc
+    dec d
+    ld [bc], a
+    ld d, $04
+    rla
+    inc b
+    jr jr_006_758f
+
+    add hl, de
+    inc bc
+    or a
+    ld [bc], a
+
+jr_006_758f:
+    jp $c903
+
+
+    inc bc
+    jp z, $cd02
+
+    inc bc
+    jp nc, $d601
+
+    ld [bc], a
+    jp c, $1a00
+
+    ld bc, $1202
+    ld bc, $0213
+    inc d
+    ld bc, $0115
+    ld d, $03
+    rla
+    ld [bc], a
+    jr jr_006_75af
+
+    add hl, de
+
+jr_006_75af:
+    ld [bc], a
+    ld a, [de]
+    ld bc, $021b
+    ld h, $01
+    daa
+    ld [bc], a
+    ld a, [hl+]
+    ld bc, $022b
+    or d
+    ld bc, $01b3
+    jp $c501
+
+
+    ld bc, $01c9
+    jp z, $dd01
+
+    ld bc, $01df
+    pop hl
+    ld bc, $01e3
+    db $e4
+    nop
+    dec c
+    ld bc, $040a
+    ld [bc], a
+    rlca
+    inc b
+    ld a, [de]
+    inc bc
+    dec de
+    ld [bc], a
+    ld h, h
+    inc b
+    and e
+    inc bc
+    and h
+    ld bc, $01a5
+    and [hl]
+    inc b
+    xor c
+    inc bc
+    xor d
+    ld [bc], a
+    call nz, $c702
+    ld [bc], a
+    push bc
+    inc b
+    db $dd
+    nop
+    jr jr_006_75f6
+
+    inc bc
+
+jr_006_75f6:
+    rrca
+    ld [bc], a
+    db $10
+    ld bc, $0411
+    ld [de], a
+    inc bc
+    inc de
+    inc b
+    rla
+    inc bc
+    jr jr_006_7606
+
+    add hl, de
+    inc bc
+
+jr_006_7606:
+    ld a, [hl+]
+    ld [bc], a
+    dec hl
+    ld bc, $02c3
+    call nz, $ca01
+    ld [bc], a
+    db $dd
+    ld [bc], a
+    rst $18
+    ld bc, $00e3
+    rrca
+    ld bc, $0608
+    inc b
+    ld h, $03
+    daa
+    inc b
+    ld a, [hl+]
+    inc bc
+    dec hl
+    ld [bc], a
+    sbc l
+    ld bc, $019f
+    sbc [hl]
+    ld [bc], a
+    cp l
+    ld bc, $02c4
+    jp $c502
+
+
+    ld [bc], a
+    rst $08
+    ld [bc], a
+    jp nc, $d602
+
+    ld [bc], a
+    rst $10
+    ld [bc], a
+    pop hl
+    ld [bc], a
+    rst $18
+    nop
+    jr jr_006_7641
+
+    inc b
+    inc sp
+
+jr_006_7641:
+    ld [bc], a
+    inc [hl]
+    ld bc, $0435
+    ld [hl], $01
+    scf
+    ld bc, $0438
+    and e
+    inc bc
+    and h
+    ld bc, $01a5
+    and [hl]
+    inc bc
+    or l
+    ld [bc], a
+    or [hl]
+    ld [bc], a
+    jp $c402
+
+
+    ld [bc], a
+    rst $00
+    inc bc
+    db $db
+    nop
+    inc c
+    ld bc, $020a
+    inc b
+    ld [$0903], sp
+    ld [bc], a
+    dec bc
+    inc b
+    jr nc, jr_006_7670
+
+    ld sp, $3202
+
+jr_006_7670:
+    inc bc
+    dec a
+    inc b
+    cp h
+    ld [bc], a
+    push bc
+    inc bc
+    ret
+
+
+    inc bc
+    jp z, $cd02
+
+    ld bc, $02d0
+    db $dd
+    nop
+    ld a, [bc]
+    ld [bc], a
+    ld [$0803], sp
+    inc b
+    inc bc
+    jr nc, @+$04
+
+    ld sp, $3903
+    ld [bc], a
+    ld a, [hl-]
+    ld [bc], a
+    dec a
+    ld [bc], a
+    ld e, d
+    ld [bc], a
+    ld h, b
+    inc bc
+    ld l, l
+    ld [bc], a
+    ld l, a
+    ld [bc], a
+    ld [hl], d
+    inc b
+    cp h
+    ld [bc], a
+    rst $08
+    ld [bc], a
+    jp nc, $d803
+
+    nop
+    jr jr_006_76a8
+
+    ld [bc], a
+    rlca
+
+jr_006_76a8:
+    inc bc
+    jr nc, @+$04
+
+    ld sp, $3201
+    inc bc
+    inc sp
+    ld bc, $0134
+    dec [hl]
+    ld [bc], a
+    ld [hl], $01
+    jr c, @+$04
+
+    add hl, sp
+    ld bc, $013a
+    dec sp
+    ld bc, $013c
+    dec a
+    ld bc, $013e
+    ccf
+    inc bc
+    cp h
+    ld bc, $02c3
+    push bc
+    ld bc, $01c9
+    jp z, $cd01
+
+    ld bc, $01ce
+    jp nc, $db01
+
+    nop
+    dec d
+    ld [bc], a
+    inc b
+    rlca
+    inc b
+    ld [hl], $03
+    jr c, jr_006_76e4
+
+    dec sp
+    inc bc
+
+jr_006_76e4:
+    xor l
+    ld bc, $01af
+    or b
+    ld [bc], a
+    cp b
+    ld [bc], a
+    cp d
+    ld bc, $02c3
+    push bc
+    ld [bc], a
+    call $d401
+    ld bc, $02d6
+    reti
+
+
+    inc bc
+    db $dd
+    ld bc, $03df
+    db $e4
+    ld bc, $00e3
+    ld [$0a01], sp
+    ld [bc], a
+    ld b, $03
+    ld [bc], a
+    inc c
+    ld bc, $020d
+    inc d
+    ld bc, $0117
+    cpl
+    ld [bc], a
+    jr nc, @+$03
+
+    ld sp, $3201
+    ld [bc], a
+    ld [hl], $01
+    jr c, @+$04
+
+    add hl, sp
+    ld bc, $023b
+    ld c, e
+    ld bc, $024c
+    ld d, e
+    ld bc, $0254
+    and a
+    ld bc, $01a8
+    or c
+    ld bc, $02c3
+    push bc
+    ld bc, $01d2
+    sub $01
+    ret c
+
+    ld [bc], a
+    db $dd
+    ld [bc], a
+    rst $18
+    nop
+    ld [$0b02], sp
+    inc bc
+    ld b, $04
+    ld [bc], a
+    jr nc, @+$03
+
+    ld sp, $3601
+    ld bc, $0138
+    dec sp
+    ld [bc], a
+    ld b, c
+    ld bc, $0142
+    ld b, e
+    ld [bc], a
+    ld c, e
+    ld bc, $014C
+    ld d, e
+    ld bc, $0154
+    ld d, l
+    ld bc, $0156
+    ld e, c
+    ld [bc], a
+    ld h, b
+    ld bc, $0169
+    ld l, e
+    ld bc, $0271
+    and a
+    ld bc, $01a8
+    or c
+    ld bc, $01c3
+    push bc
+    ld bc, $01d2
+    call nc, $d501
+    ld bc, $01da
+    db $dd
+    ld bc, $00df
+    add hl, bc
+    ld bc, $0408
+    ld b, $06
+    ld [bc], a
+    ld [$0901], sp
+    ld bc, $020b
+    inc d
+    ld [bc], a
+    rla
+    ld bc, $0118
+    dec l
+    ld [bc], a
+    ld h, b
+    ld bc, $0167
+    ld l, c
+    ld bc, $0271
+    adc [hl]
+    ld bc, $028f
+    sub h
+    ld bc, $0197
+    sbc h
+    ld bc, $01af
+    or c
+    ld bc, $01b9
+    jp $c501
+
+
+    ld bc, $01d2
+    call nc, $d802
+    ld bc, $01d9
+    db $db
+    ld [bc], a
+    db $dd
+    ld [bc], a
+    rst $18
+    nop
+    inc c
+    dec b
+    inc c
+    ld b, $02
+    ld a, c
+    ld bc, $027a
+    ld a, l
+    ld bc, $017e
+    ld a, a
+    ld bc, $0183
+    add a
+    ld bc, $0288
+    adc [hl]
+    ld bc, $018f
+    sub b
+    ld [bc], a
+    sub h
+    ld bc, $0197
+    sbc b
+    ld bc, $019b
+    sbc h
+    ld bc, $02a2
+    and e
+    ld bc, $01a4
+    and [hl]
+    ld [bc], a
+    and a
+    ld bc, $01a8
+    jp $c502
+
+
+    ld bc, $01d2
+    db $db
+    ld [bc], a
+    db $dd
+    ld bc, $00df
+    ld c, $01
+    ld a, [bc]
+    inc bc
+    ld [bc], a
+    rrca
+    ld bc, $0110
+    ld de, $1702
+    ld bc, $0118
+    add hl, de
+    ld [bc], a
+    inc hl
+    ld bc, $0124
+    dec h
+    ld bc, $022e
+    ld b, [hl]
+    ld bc, $0147
+    ld c, b
+    ld [bc], a
+    ld c, a
+    ld bc, $0250
+    ld d, a
+    ld bc, $0158
+    ld e, c
+    ld bc, $015e
+    or a
+    ld bc, $01b9
+    cp d
+    ld bc, $02c3
+    push bc
+    ld bc, $01cd
+    rst $08
+    ld bc, $01d2
+    ret c
+
+    ld bc, $00df
+    add hl, de
+    ld [bc], a
+    inc b
+    inc sp
+    inc bc
+    dec [hl]
+    inc b
+    ld [hl], $02
+    jr c, jr_006_7848
+
+    dec sp
+    ld [bc], a
+
+jr_006_7848:
+    inc a
+    ld [bc], a
+    ccf
+    ld [bc], a
+    ld b, b
+    inc bc
+    push bc
+    ld [bc], a
+    rst $00
+    ld bc, $01c9
+    call $ce01
+    ld [bc], a
+    ret nc
+
+    ld [bc], a
+    jp nc, $dd01
+
+    ld bc, $00de
+    add hl, de
+    inc b
+    inc b
+    ld l, l
+    inc bc
+    ld l, [hl]
+    inc b
+    ld [hl], c
+    ld [bc], a
+    ld [hl], e
+    ld bc, $0174
+    ld [hl], l
+    ld [bc], a
+    db $76
+    inc bc
+    cp h
+    inc b
+    push bc
+    ld [bc], a
+    call $d202
+    inc bc
+    ret c
+
+    inc bc
+    db $dd
+    ld bc, $00e3
+    add hl, de
+    inc bc
+    inc b
+    ld c, e
+    inc bc
+    ld c, h
+    inc b
+    ld e, c
+    ld [bc], a
+    ld e, a
+    ld [bc], a
+    ld e, [hl]
+    inc bc
+    cp b
+    ld [bc], a
+    cp e
+    ld [bc], a
+    jp $c902
+
+
+    inc bc
+    call $d203
+    inc b
+    push de
+    ld bc, $00e3
+    inc d
+    inc bc
+    inc b
+    rlca
+    inc bc
+    jr nc, @+$04
+
+    ld sp, $3202
+    inc bc
+    ld d, a
+    ld [bc], a
+    ld e, b
+    ld [bc], a
+    ld e, c
+    ld [bc], a
+    cp c
+    inc b
+    cp a
+    inc bc
+    ret nz
+
+    ld [bc], a
+    pop bc
+    ld [bc], a
+    jp $c902
+
+
+    ld [bc], a
+    jp z, $cd01
+
+    ld bc, $02ce
+    jp nc, $e301
+
+    nop
+    inc c
+    ld bc, $060e
+    inc b
+    ld [$0903], sp
+    ld [bc], a
+    ld a, [bc]
+    ld [bc], a
+    ld l, $04
+    adc [hl]
+    inc bc
+    adc a
+    ld [bc], a
+    sub b
+    ld [bc], a
+    sbc e
+    ld bc, $02a0
+    and c
+    ld bc, $02c3
+    push bc
+    ld [bc], a
+    jp z, $d001
+
+    ld [bc], a
+    jp nc, $d301
+
+    nop
+    jp c, $9270
+
+    ld [bc], a
+    call nz, $0b02
+    ld [hl], c
+    sub e
+    ld [bc], a
+    push bc
+    ld [bc], a
+    ld [hl-], a
+    ld [hl], c
+    sub h
+    ld [bc], a
+    add $02
+    ld d, e
+    ld [hl], c
+    sub l
+    ld [bc], a
+    rst $00
+    ld [bc], a
+    ld [hl], h
+    ld [hl], c
+    sub [hl]
+    ld [bc], a
+    ret z
+
+    ld [bc], a
+    sub c
+    ld [hl], c
+    sub a
+    ld [bc], a
+    ret
+
+
+    ld [bc], a
+    cp d
+    ld [hl], c
+    sbc b
+    ld [bc], a
+    jp z, $d902
+
+    ld [hl], c
+    sbc c
+    ld [bc], a
+    rlc d
+    cp $71
+    sbc d
+    ld [bc], a
+    call z, $2302
+    ld [hl], d
+    sbc e
+    ld [bc], a
+    call $4602
+    ld [hl], d
+    sbc h
+    ld [bc], a
+    adc $02
+    ld a, a
+    ld [hl], d
+    sbc l
+    ld [bc], a
+    rst $08
+    ld [bc], a
+    and d
+    ld [hl], d
+    sbc [hl]
+    ld [bc], a
+    ret nc
+
+    ld [bc], a
+    jp $9f72
+
+
+    ld [bc], a
+    pop de
+    ld [bc], a
+    add sp, $72
+    and b
+    ld [bc], a
+    jp nc, $0d02
+
+    ld [hl], e
+    and c
+    ld [bc], a
+    db $d3
+    ld [bc], a
+    ld c, h
+    ld [hl], e
+    and d
+    ld [bc], a
+    call nc, $7102
+    ld [hl], e
+    and e
+    ld [bc], a
+    push de
+    ld [bc], a
+    and h
+    ld [hl], e
+    and h
+    ld [bc], a
+    sub $02
+    ret
+
+
+    ld [hl], e
+    and l
+    ld [bc], a
+    rst $10
+    ld [bc], a
+    add sp, $73
+    and [hl]
+    ld [bc], a
+    ret c
+
+    ld [bc], a
+    rrca
+    ld [hl], h
+    and a
+    ld [bc], a
+    reti
+
+
+    ld [bc], a
+    ld b, h
+    ld [hl], h
+    xor b
+    ld [bc], a
+    jp c, $6d02
+
+    ld [hl], h
+    xor c
+    ld [bc], a
+    db $db
+    ld [bc], a
+    sbc b
+    ld [hl], h
+    xor d
+    ld [bc], a
+    call c, $b902
+    ld [hl], h
+    xor e
+    ld [bc], a
+    db $dd
+    ld [bc], a
+    ldh a, [$74]
+    xor h
+    ld [bc], a
+    sbc $02
+    rla
+    ld [hl], l
+    xor l
+    ld [bc], a
+    rst $18
+    ld [bc], a
+    ld [hl], $75
+    xor [hl]
+    ld [bc], a
+    ldh [rSC], a
+    ld e, a
+    ld [hl], l
+    xor a
+    ld [bc], a
+    pop hl
+    ld [bc], a
+    ld a, [hl]
+    ld [hl], l
+    or b
+    ld [bc], a
+    ld [c], a
+    ld [bc], a
+    sbc l
+    ld [hl], l
+    or c
+    ld [bc], a
+    db $e3
+    ld [bc], a
+    jp nc, $b275
+
+    ld [bc], a
+    db $e4
+    ld [bc], a
+    di
+    ld [hl], l
+    or e
+    ld [bc], a
+    push hl
+    ld [bc], a
+    ld d, $76
+    or h
+    ld [bc], a
+    and $02
+    dec a
+    db $76
+    or l
+    ld [bc], a
+    rst $20
+    ld [bc], a
+    ld h, b
+    db $76
+    or [hl]
+    ld [bc], a
+    add sp, $02
+    add c
+    db $76
+    or a
+    ld [bc], a
+    jp hl
+
+
+    ld [bc], a
+    and h
+    db $76
+    cp b
+    ld [bc], a
+    ld [$d902], a
+    db $76
+    cp c
+    ld [bc], a
+    db $eb
+    ld [bc], a
+    ld [bc], a
+    ld [hl], a
+    cp d
+    ld [bc], a
+    db $ec
+    ld [bc], a
+    dec a
+    ld [hl], a
+    cp e
+    ld [bc], a
+    db $ed
+    ld [bc], a
+    add b
+    ld [hl], a
+    cp h
+    ld [bc], a
+    xor $02
+    cp a
+    ld [hl], a
+    cp l
+    ld [bc], a
+    rst $28
+    ld [bc], a
+    db $fc
+    ld [hl], a
+    cp [hl]
+    ld [bc], a
+    ldh a, [rSC]
+    dec sp
+    ld a, b
+    cp a
+    ld [bc], a
+    pop af
+    ld [bc], a
+    ld h, b
+    ld a, b
+    ret nz
+
+    ld [bc], a
+    ld a, [c]
+    ld [bc], a
+    ld a, a
+    ld a, b
+    pop bc
+    ld [bc], a
+    di
+    ld [bc], a
+    sbc h
+    ld a, b
+    jp nz, $f402
+
+    ld [bc], a
+    jp $c378
+
+
+    ld [bc], a
+    push af
+    ld [bc], a
+    call $07b6
+    ld a, [$d0a9]
+    ld l, a
+    ld h, $1e
+    call $0879
+    ld bc, $78e8
+    add hl, bc
+    ld b, $00
+
+jr_006_7a26:
+    call Call_006_7a4c
+    call Call_006_7a5b
+    call Call_006_7a7d
+    push hl
+    ld de, $d0aa
+    ld h, b
+    ld l, $02
+    call $0879
+    add hl, de
+    ld d, h
+    ld e, l
+    pop hl
+    ld a, [hl+]
+    ld [de], a
+    inc de
+    ld a, [hl+]
+    ld [de], a
+    inc b
+    ld a, b
+    cp $05
+    jr nz, jr_006_7a26
+
+    call $07be
+    ret
+
+
+Call_006_7a4c:
+    push hl
+    ld l, b
+    ld h, $54
+    call $0879
+    ld de, $a350
+    add hl, de
+    ld d, h
+    ld e, l
+    pop hl
+    ret
+
+
+Call_006_7a5b:
+    push hl
+    push bc
+    push de
+    push de
+    ld e, [hl]
+    inc hl
+    ld d, [hl]
+    pop hl
+    ld bc, $0018
+    add hl, bc
+
+jr_006_7a67:
+    ld a, [de]
+    inc de
+    ld b, a
+    or a
+    jr z, jr_006_7a77
+
+    ld a, [de]
+    inc de
+    ld c, a
+
+jr_006_7a70:
+    ld [hl], c
+    inc hl
+    dec b
+    jr nz, jr_006_7a70
+
+    jr jr_006_7a67
+
+jr_006_7a77:
+    pop de
+    pop bc
+    pop hl
+    inc hl
+    inc hl
+    ret
+
+
+Call_006_7a7d:
+    push hl
+    push bc
+    push de
+    ld a, [hl+]
+    ld h, [hl]
+    ld l, a
+    ld de, $d089
+    call $2e89
+    pop hl
+    ld de, $d089
+
+jr_006_7a8d:
+    ld a, [de]
+    ld [hl+], a
+    or a
+    jr z, jr_006_7a95
+
+    inc de
+    jr jr_006_7a8d
+
+jr_006_7a95:
+    pop bc
+    pop hl
+    inc hl
+    inc hl
+    ret
+
+
+    xor a
+    ld [$d0a6], a
+    ld a, $01
+
+jr_006_7aa0:
+    call Call_006_7ae4
+    ret nc
+
+    sla a
+    cp $10
+    jr z, jr_006_7aac
+
+    jr jr_006_7aa0
+
+jr_006_7aac:
+    ld a, $03
+    call Call_006_7ae4
+    ret nc
+
+    ld a, $05
+    call Call_006_7ae4
+    ret nc
+
+    ld a, $09
+    call Call_006_7ae4
+    ret nc
+
+    ld a, $06
+    call Call_006_7ae4
+    ret nc
+
+    ld a, $0a
+    call Call_006_7ae4
+    ret nc
+
+    ld a, $0c
+    call Call_006_7ae4
+    ret nc
+
+    ld a, $f7
+
+jr_006_7ad2:
+    call Call_006_7ae4
+    ret nc
+
+    sra a
+    cp $ff
+    jr z, jr_006_7ade
+
+    jr jr_006_7ad2
+
+jr_006_7ade:
+    call Call_006_7ae4
+    ret nc
+
+    scf
+    ret
+
+
+Call_006_7ae4:
+    push af
+    ld hl, $d088
+    ld b, [hl]
+    rst $28
+    ld [bc], a
+    dec h
+    db $76
+    jr c, jr_006_7af5
+
+    pop af
+    ld [$d0a6], a
+    or a
+    ret
+
+
+jr_006_7af5:
+    pop af
+    scf
+    ret
+
+    INCROM $1baf8, $1c000
\ No newline at end of file
diff --git a/src/wram.asm b/src/wram.asm
index 5d22c69..7039f14 100644
--- a/src/wram.asm
+++ b/src/wram.asm
@@ -1459,9 +1459,15 @@ wcfda:: ; cfda
 	ds $7
 
 wcfe3:: ; cfe3
-	ds $1
+	ds $4
 
-	ds $1c
+; name buffer in naming screen
+wNameBuffer:: ; cfe7
+	ds $18
+
+; current name length in naming screen
+wNameLength:: ; cfff
+	ds $1
 
 SECTION "WRAM1", WRAMX