pokecrystal-board/home/text.asm

1234 lines
14 KiB
NASM
Raw Normal View History

ClearBox:: ; fb6
2013-08-20 12:58:08 -07:00
; Fill a c*b box at hl with blank tiles.
ld a, " "
Functionfb8::
2013-08-20 12:58:08 -07:00
push bc
push hl
.x
ld [hli], a
dec c
jr nz, .x
pop hl
ld bc, 20 ; screen width
add hl, bc
pop bc
dec b
jr nz, Functionfb8
2013-08-20 12:58:08 -07:00
ret
; fc8
ClearTileMap:: ; fc8
2013-08-20 12:58:08 -07:00
; Fill TileMap with blank tiles.
ld hl, TileMap
ld a, " "
ld bc, 360 ; screen dimensions 20*18
call ByteFill
; We aren't done if the LCD is on.
ld a, [rLCDC]
bit 7, a
ret z
jp WaitBGMap
; fdb
Functionfdb:: ; fdb
2013-08-20 12:58:08 -07:00
ld a, $7
ld hl, AttrMap
ld bc, $0168
call ByteFill
jr ClearTileMap
; fe8
TextBox:: ; fe8
2013-08-20 12:58:08 -07:00
; Draw a text box width c height b at hl
; Dimensions do not include the border.
push bc
push hl
call TextBoxBorder
pop hl
pop bc
jr TextBoxPalette
; ff1
TextBoxBorder:: ; ff1
2013-08-20 12:58:08 -07:00
; Top
push hl
ld a, "┌"
ld [hli], a
inc a ; "─"
call NPlaceChar
inc a ; "┐"
ld [hl], a
; Middle
pop hl
ld de, 20 ; screen width
add hl, de
.PlaceRow
push hl
ld a, "│"
ld [hli], a
ld a, " "
call NPlaceChar
ld [hl], "│"
pop hl
ld de, 20 ; screen width
add hl, de
dec b
jr nz, .PlaceRow
; Bottom
ld a, "└"
ld [hli], a
ld a, "─"
call NPlaceChar
ld [hl], "┘"
ret
; 101e
NPlaceChar:: ; 101e
2013-08-20 12:58:08 -07:00
; Place char a c times
ld d,c
.loop
ld [hli],a
dec d
jr nz, .loop
ret
; 1024
TextBoxPalette:: ; 1024
2013-08-20 12:58:08 -07:00
; Fill text box width c height b at hl with pal 7
ld de, AttrMap - TileMap
add hl, de
inc b
inc b
inc c
inc c
ld a, 7 ; pal
.gotoy
push bc
push hl
.gotox
ld [hli], a
dec c
jr nz, .gotox
pop hl
ld de, 20 ; screen width
add hl, de
pop bc
dec b
jr nz, .gotoy
ret
; 103e
SpeechTextBox:: ; 103e
2013-08-20 12:58:08 -07:00
; Standard textbox.
hlcoord 0, 12
ld b, 4 ; height
ld c, 18 ; screen width - 2 (border)
jp TextBox
; 1048
UnknownText_0x1048:: ; 1048
2013-08-20 12:58:08 -07:00
db $0, "ゲームフりーク!", $57
; 1052
Function1052:: ; 1052
2013-08-20 12:58:08 -07:00
ld hl, .text_1056
ret
.text_1056
db "@"
; 1057
PrintText:: ; 1057
2013-08-20 12:58:08 -07:00
call Function106c
Function105a:: ; 105a
2013-08-20 12:58:08 -07:00
push hl
hlcoord 1, 14
ld bc, 18 + 3<<8
call ClearBox
pop hl
PrintTextBoxText:: ; 1065
2013-08-20 12:58:08 -07:00
bccoord 1, 14
call Function13e5
ret
; 106c
Function106c:: ; 106c
2013-08-20 12:58:08 -07:00
push hl
call SpeechTextBox
call Function1ad2
call Function321c
pop hl
ret
; 1078
PlaceString:: ; 1078
2013-08-20 12:58:08 -07:00
push hl
PlaceNextChar:: ; 1079
2013-08-20 12:58:08 -07:00
ld a, [de]
cp "@"
jr nz, CheckDict
ld b, h
ld c, l
pop hl
ret
pop de
NextChar:: ; 1083
2013-08-20 12:58:08 -07:00
inc de
jp PlaceNextChar
CheckDict:: ; 1087
2013-08-20 12:58:08 -07:00
cp $15
jp z, Function117b
cp $4f
jp z, Char4F
cp $4e
jp z, Function12a7
cp $16
jp z, Function12b9
and a
jp z, Function1383
cp $4c
jp z, $1337
cp $4b
jp z, Char4B
cp $51 ; Player name
jp z, Function12f2
cp $49
jp z, Function1186
cp $52 ; Mother name
jp z, Function118d
cp $53
jp z, Function1194
cp $35
jp z, Function11e8
cp $36
jp z, Function11ef
cp $37
jp z, Function11f6
cp $38
jp z, Function119b
cp $39
jp z, Function11a2
cp $54
jp z, Function11c5
cp $5b
jp z, Function11b7
cp $5e
jp z, Function11be
cp $5c
jp z, Function11b0
cp $5d
jp z, Function11a9
cp $23
jp z, Function11cc
cp $22
jp z, Function12b0
cp $55
jp z, Char55
cp $56
jp z, Function11d3
cp $57
jp z, $137c
cp $58
jp z, Function135a
cp $4a
jp z, Function11da
cp $24
jp z, Function11e1
cp $25
jp z, NextChar
cp $1f
jr nz, .asm_1122
ld a, $7f
.asm_1122
cp $5f
jp z, Char5F
cp $59
jp z, Function11fd
cp $5a
jp z, Char5D
cp $3f
jp z, $121b
cp $14
jp z, $1252
cp $e4
jr z, .asm_1174 ; 0x113d $35
cp $e5
jr z, .asm_1174 ; 0x1141 $31
jr .asm_114c ; 0x1143 $7
ld b, a
call Function13c6
jp NextChar
.asm_114c
cp $60
jr nc, .asm_1174 ; 0x114e $24
cp $40
jr nc, .asm_1165 ; 0x1152 $11
cp $20
jr nc, .asm_115c ; 0x1156 $4
add $80
jr .asm_115e ; 0x115a $2
.asm_115c
add $90
.asm_115e
ld b, $e5
call Function13c6
jr .asm_1174 ; 0x1163 $f
.asm_1165
cp $44
jr nc, .asm_116d ; 0x1167 $4
add $59
jr .asm_116f ; 0x116b $2
.asm_116d
add $86
.asm_116f
ld b, $e4
call Function13c6
.asm_1174
ld [hli], a
call PrintLetterDelay
jp NextChar
; 0x117b
Function117b:: ; 117b
2013-08-20 12:58:08 -07:00
ld c, l
ld b, h
2013-10-01 17:47:54 -07:00
callba Function17f036
2013-08-20 12:58:08 -07:00
jp PlaceNextChar
; 1186
Function1186:: ; 1186
2013-08-20 12:58:08 -07:00
push de
ld de, MomsName
jp $126a
; 118d
Function118d:: ; 118d
2013-08-20 12:58:08 -07:00
push de
ld de, PlayerName
jp $126a
; 1194
Function1194:: ; 1194
2013-08-20 12:58:08 -07:00
push de
ld de, RivalName
jp $126a
; 119b
Function119b:: ; 119b
2013-08-20 12:58:08 -07:00
push de
ld de, RedsName
jp $126a
; 11a2
Function11a2:: ; 11a2
2013-08-20 12:58:08 -07:00
push de
ld de, GreensName
jp $126a
; 11a9
Function11a9:: ; 11a9
2013-08-20 12:58:08 -07:00
push de
ld de, Char5DText
jp $126a
; 11b0
Function11b0:: ; 11b0
2013-08-20 12:58:08 -07:00
push de
ld de, Char5CText
jp $126a
; 11b7
Function11b7:: ; 11b7
2013-08-20 12:58:08 -07:00
push de
ld de, Char5BText
jp $126a
; 11be
Function11be:: ; 11be
2013-08-20 12:58:08 -07:00
push de
ld de, Char5EText
jp $126a
; 11c5
Function11c5:: ; 11c5
2013-08-20 12:58:08 -07:00
push de
ld de, Char54Text
jp $126a
; 11cc
Function11cc:: ; 11cc
2013-08-20 12:58:08 -07:00
push de
ld de, Char23Text
jp $126a
; 11d3
Function11d3:: ; 11d3
2013-08-20 12:58:08 -07:00
push de
ld de, $1292
jp $126a
; 11da
Function11da:: ; 11da
2013-08-20 12:58:08 -07:00
push de
ld de, Char4AText
jp $126a
; 11e1
Function11e1:: ; 11e1
2013-08-20 12:58:08 -07:00
push de
ld de, Char24Text
jp $126a
; 11e8
Function11e8:: ; 11e8
2013-08-20 12:58:08 -07:00
push de
ld de, Char37Text
jp $126a
; 11ef
Function11ef:: ; 11ef
2013-08-20 12:58:08 -07:00
push de
ld de, Char37Text
jp $126a
; 11f6
Function11f6:: ; 11f6
2013-08-20 12:58:08 -07:00
push de
ld de, Char37Text
jp $126a
; 11fd
Function11fd:: ; 11fd
2013-08-20 12:58:08 -07:00
ld a, [hBattleTurn]
xor $1
jr Function1205
; 1203
Char5D:: ; 1203
2013-08-20 12:58:08 -07:00
ld a, [hBattleTurn]
; 1205
Function1205:: ; 1205
2013-08-20 12:58:08 -07:00
push de
and a
jr nz, .asm_120e ; 0x1207 $5
ld de, BattleMonNick
jr .asm_126a ; 0x120c $5c
.asm_120e
ld de, Char5AText ; Enemy
call PlaceString
ld h, b
ld l, c
ld de, EnemyMonNick
jr .asm_126a ; 0x1219 $4f
push de
ld a, [InLinkBattle]
and a
jr nz, .linkbattle
ld a, [TrainerClass]
cp $9
jr z, .asm_1248 ; 0x1227 $1f
cp $2a
jr z, .asm_1248 ; 0x122b $1b
ld de, $c656
call PlaceString
ld h, b
ld l, c
ld de, String12a2
call PlaceString
push bc
2013-10-01 17:47:54 -07:00
callab Function39939
2013-08-20 12:58:08 -07:00
pop hl
ld de, StringBuffer1
jr .asm_126a ; 0x1246 $22
.asm_1248
ld de, RivalName
jr .asm_126a ; 0x124b $1d
.linkbattle
ld de, $c656
jr .asm_126a ; 0x1250 $18
push de
ld de, PlayerName
call PlaceString
ld h, b
ld l, c
ld a, [PlayerGender]
bit 0, a
ld de, String12a5
jr z, .asm_126a ; 0x1263 $5
ld de, String12a6
jr .asm_126a ; 0x1268 $0
.asm_126a
call PlaceString
ld h, b
ld l, c
pop de
jp NextChar
; 0x1273
Char5CText:: ; 1273
2013-08-20 12:58:08 -07:00
db "TM@"
Char5DText:: ; 1276
2013-08-20 12:58:08 -07:00
db "TRAINER@"
Char5BText:: ; 127e
2013-08-20 12:58:08 -07:00
db "PC@"
Char5EText:: ; 1281
2013-08-20 12:58:08 -07:00
db "ROCKET@"
Char54Text:: ; 1288
2013-08-20 12:58:08 -07:00
db "POKé@"
Char23Text:: ; 128d
2013-08-20 12:58:08 -07:00
db "こうげき@"
Char56Text::; 1292
2013-08-20 12:58:08 -07:00
db "……@"
Char5AText:: ; 1295
2013-08-20 12:58:08 -07:00
db "Enemy @"
Char4AText:: ; 129c
2013-08-20 12:58:08 -07:00
db $e1, $e2, "@" ; PK MN
Char24Text:: ; 129f
2013-08-20 12:58:08 -07:00
db $70, $71, "@" ; PO KE
String12a2:: ; 12a2
2013-08-20 12:58:08 -07:00
db " @"
Char35Text::
Char36Text::
Char37Text:: ; 12a4
2013-08-20 12:58:08 -07:00
db "@"
String12a5:: ; 12a5
2013-08-20 12:58:08 -07:00
db "@"
String12a6:: ; 12a6
2013-08-20 12:58:08 -07:00
db "@"
; 12a7
Function12a7:: ; 12a7
2013-08-20 12:58:08 -07:00
pop hl
ld bc, $0028
add hl, bc
push hl
jp NextChar
; 12b0
Function12b0:: ; 12b0
2013-08-20 12:58:08 -07:00
pop hl
ld bc, $0014
add hl, bc
push hl
jp NextChar
; 12b9
Function12b9:: ; 12b9
2013-08-20 12:58:08 -07:00
pop hl
push de
ld bc, $3b60
add hl, bc
ld de, $ffec
ld c, $1
.asm_12c4
ld a, h
and a
jr nz, .asm_12cd
ld a, l
cp $14
jr c, .asm_12d1
.asm_12cd
add hl, de
inc c
jr .asm_12c4
.asm_12d1
ld hl, TileMap
ld de, $0014
ld a, c
.asm_12d8
and a
jr z, .asm_12df
add hl, de
dec a
jr .asm_12d8
.asm_12df
pop de
inc de
ld a, [de]
ld c, a
ld b, $0
add hl, bc
push hl
jp NextChar
; 12ea
Char4F:: ; 12ea
2013-08-20 12:58:08 -07:00
pop hl
hlcoord 1, 16
push hl
jp NextChar
; 0x12f2
Function12f2:: ; 12f2
2013-08-20 12:58:08 -07:00
push de
ld a, [InLinkBattle]
cp $3
jr z, .asm_1301
cp $4
jr z, .asm_1301
call Function13c7
.asm_1301
call Function13b6
call Functionaaf
ld hl, $c5b9
ld bc, $0312
call ClearBox
call Function13cd
ld c, $14
call DelayFrames
ld hl, $c5b9
pop de
jp NextChar
; 131f
Char4B:: ; 131f
2013-08-20 12:58:08 -07:00
ld a, [InLinkBattle]
or a
jr nz, .asm_1328
call Function13c7
.asm_1328
call Function13b6
push de
call Functionaaf
pop de
ld a, [InLinkBattle]
or a
call z, Function13cd
push de
call Function138c
call Function138c
hlcoord 1, 16
pop de
jp NextChar
; 1345
Char55:: ; 1345
2013-08-20 12:58:08 -07:00
push de
ld de, Text_1354
ld b, h
ld c, l
call PlaceString
ld h, b
ld l, c
pop de
jp NextChar
; 1354
Text_1354:: ; 1354
2013-08-20 12:58:08 -07:00
db $4b, "@"
; 1356
Char5F:: ; 1356
2013-08-20 12:58:08 -07:00
; ends a Pokédex entry
ld [hl], "."
pop hl
ret
; 135a
Function135a:: ; 135a
2013-08-20 12:58:08 -07:00
ld a, [InLinkBattle]
cp $3
jr z, .asm_1368
cp $4
jr z, .asm_1368
call Function13c7
.asm_1368
call Function13b6
call Functionaaf
ld a, [InLinkBattle]
cp $3
jr z, .asm_137c
cp $4
jr z, .asm_137c
call Function13cd
.asm_137c
pop hl
ld de, .string_1382
dec de
ret
.string_1382
db "@"
; 1383
Function1383:: ; 1383
2013-08-20 12:58:08 -07:00
ld a, $e6
ld [hli], a
call PrintLetterDelay
jp NextChar
; 138c
Function138c:: ; 138c
2013-08-20 12:58:08 -07:00
ld hl, $c5b9
ld de, $c5a5
ld a, $3
.asm_1394
push af
ld c, $12
.asm_1397
ld a, [hli]
ld [de], a
inc de
dec c
jr nz, .asm_1397
inc de
inc de
inc hl
inc hl
pop af
dec a
jr nz, .asm_1394
ld hl, $c5e1
ld a, $7f
ld bc, $0012
call ByteFill
ld c, $5
call DelayFrames
ret
; 13b6
Function13b6:: ; 13b6
2013-08-20 12:58:08 -07:00
push bc
ld a, [hOAMUpdate]
push af
ld a, $1
ld [hOAMUpdate], a
call WaitBGMap
pop af
ld [hOAMUpdate], a
pop bc
ret
; 13c6
Function13c6:: ; 13c6
2013-08-20 12:58:08 -07:00
ret
; 13c7
Function13c7:: ; 13c7
2013-08-20 12:58:08 -07:00
ld a, $ee
ld [$c606], a
ret
; 13cd
Function13cd:: ; 13cd
2013-08-20 12:58:08 -07:00
ld a, [$c605]
ld [$c606], a
ret
; 13d4
Function13d4:: ; 13d4
2013-08-20 12:58:08 -07:00
ld b, a
ld a, [hROMBank]
push af
ld a, b
rst Bankswitch
call PlaceString
pop af
rst Bankswitch
ret
; 13e0
Function13e0:: ; 13e0
2013-08-20 12:58:08 -07:00
ld hl, $13e4
ret
.string_13e4
db "@"
; 13e5
Function13e5:: ; 13e5
2013-08-20 12:58:08 -07:00
ld a, [$cfcf]
push af
set 1, a
ld [$cfcf], a
call Function13f6
pop af
ld [$cfcf], a
ret
; 13f6
Function13f6:: ; 13f6
2013-08-20 12:58:08 -07:00
.asm_13f6
ld a, [hli]
cp "@"
ret z
call Function13ff
jr .asm_13f6
; 13ff
Function13ff:: ; 13ff
2013-08-20 12:58:08 -07:00
push hl
push bc
ld c, a
ld b, 0
ld hl, TextCommands
add hl, bc
add hl, bc
ld e, [hl]
inc hl
ld d, [hl]
pop bc
pop hl
; jp de
push de
ret
; 1410
TextCommands:: ; 1410
2013-08-20 12:58:08 -07:00
dw Text_00
dw Text_01
dw Text_02
dw Text_03
dw Text_04
dw Text_05
dw Text_06
dw Text_07
dw Text_08
dw Text_09
dw Text_0A
dw Text_PlaySound ; $0b
dw Text_0C
dw Text_0D
dw Text_PlaySound ; $0e
dw Text_PlaySound ; $0f
dw Text_PlaySound ; $10
dw Text_PlaySound ; $11
dw Text_PlaySound ; $12
dw Text_PlaySound ; $13
dw Text_14
dw Text_15
dw Text_16
; 143e
Text_00:: ; 143e
2013-08-20 12:58:08 -07:00
; TX
; write text until "@"
; [$00]["...@"]
ld d, h
ld e, l
ld h, b
ld l, c
call PlaceString
ld h, d
ld l, e
inc hl
ret
; 1449
Text_01:: ; 1449
2013-08-20 12:58:08 -07:00
; TX_RAM
; write text from a ram address
; little endian
; [$01][addr]
ld a, [hli]
ld e, a
ld a, [hli]
ld d, a
push hl
ld h, b
ld l, c
call PlaceString
pop hl
ret
; 1455
Text_16:: ; 1455
2013-08-20 12:58:08 -07:00
; TX_FAR
; write text from a different bank
; little endian
; [$16][addr][bank]
ld a, [hROMBank]
push af
ld a, [hli]
ld e, a
ld a, [hli]
ld d, a
ld a, [hli]
ld [hROMBank], a
ld [MBC3RomBank], a
push hl
ld h, d
ld l, e
call Function13f6
pop hl
pop af
ld [hROMBank], a
ld [MBC3RomBank], a
ret
; 1470
Text_02:: ; 1470
2013-08-20 12:58:08 -07:00
; TX_NUM
; write bcdnumber from address, typically ram
; little endian
; [$02][addr][flags]
; flags: see PrintBCDNumber
ld a, [hli]
ld e, a
ld a, [hli]
ld d, a
ld a, [hli]
push hl
ld h, b
ld l, c
ld c, a
call PrintBCDNumber
ld b, h
ld c, l
pop hl
ret
; 1480
Text_03:: ; 1480
2013-08-20 12:58:08 -07:00
; TX_MOVE
; move to a new tile
; little endian
; [$03][tileaddr]
ld a, [hli]
ld [$d0e6], a
ld c, a
ld a, [hli]
ld [$d0e7], a
ld b, a
ret
; 148b
Text_04:: ; 148b
2013-08-20 12:58:08 -07:00
; TX_BOX
; draw a box
; little endian
; [$04][tileaddr][height][width]
ld a, [hli]
ld e, a
ld a, [hli]
ld d, a
ld a, [hli]
ld b, a
ld a, [hli]
ld c, a
push hl
ld h, d
ld l, e
call TextBox
pop hl
ret
; 149b
Text_05:: ; 149b
2013-08-20 12:58:08 -07:00
; TX_LOW
; write text at (1,16)
; [$05]
bccoord 1, 16
ret
; 149f
Text_06:: ; 149f
; TX_WAITBUTTON
; wait for button press
; show arrow
; [06]
ld a, [InLinkBattle]
cp $3
jp z, Text_0D
cp $4
jp z, Text_0D
push hl
call Function13c7
push bc
call Functionaaf
pop bc
call Function13cd
pop hl
ret
; 14ba
Text_07:: ; 14ba
2013-08-20 12:58:08 -07:00
push hl
call Function13cd
call Function138c
call Function138c
pop hl
bccoord 1, 16
ret
; 14c9
Text_08:: ; 14c9
2013-08-20 12:58:08 -07:00
; TX_ASM
; rom only?
bit 7, h
jr nz, .asm_14ce
jp [hl]
.asm_14ce
ld a, "@"
ld [hl], a
ret
; 14d2
Text_09:: ; 14d2
2013-08-20 12:58:08 -07:00
ld a, [hli]
ld e, a
ld a, [hli]
ld d, a
ld a, [hli]
push hl
ld h, b
ld l, c
ld b, a
and $f
ld c, a
ld a, b
and $f0
swap a
set 6, a
ld b, a
call PrintNum
ld b, h
ld c, l
pop hl
ret
; 14ed
Text_0A:: ; 14ed
2013-08-20 12:58:08 -07:00
push hl
push bc
call GetJoypad
2013-08-20 12:58:08 -07:00
ld a, [hJoyDown]
and A_BUTTON | B_BUTTON
2013-08-20 12:58:08 -07:00
jr nz, .asm_14fd
ld c, 30
call DelayFrames
.asm_14fd
pop bc
pop hl
ret
; 1500
Text_PlaySound:: ; 1500
; chars:
; $0b, $0e, $0f, $10, $11, $12, $13
; see TextSFX
push bc
dec hl
ld a, [hli]
ld b, a
push hl
ld hl, TextSFX
.asm_1508
ld a, [hli]
cp $ff
jr z, .asm_151f
cp b
jr z, .asm_1514
inc hl
inc hl
jr .asm_1508
.asm_1514
push de
ld e, [hl]
inc hl
ld d, [hl]
2013-10-08 10:10:36 -07:00
call PlaySFX
2013-08-20 12:58:08 -07:00
call WaitSFX
pop de
.asm_151f
pop hl
pop bc
ret
; 1522
Function1522:: ; 1522
2013-08-20 12:58:08 -07:00
push de
ld e, [hl]
inc hl
ld d, [hl]
call Function37ce
pop de
pop hl
pop bc
ret
; 152d
TextSFX:: ; 152d
2013-08-20 12:58:08 -07:00
dbw $0b, SFX_DEX_FANFARE_50_79
dbw $12, SFX_FANFARE
dbw $0e, SFX_DEX_FANFARE_20_49
dbw $0f, SFX_ITEM
dbw $10, SFX_CAUGHT_MON
dbw $11, SFX_DEX_FANFARE_80_109
dbw $13, SFX_SLOT_MACHINE_START
db $ff ; end
; 1543
Text_0C:: ; 1543
2013-08-20 12:58:08 -07:00
ld a, [hli]
ld d, a
push hl
ld h, b
ld l, c
.asm_1548
push de
ld a, "…"
ld [hli], a
call GetJoypad
2013-08-20 12:58:08 -07:00
ld a, [hJoyDown]
and A_BUTTON | B_BUTTON
2013-08-20 12:58:08 -07:00
jr nz, .asm_155a
ld c, 10
call DelayFrames
.asm_155a
pop de
dec d
jr nz, .asm_1548
ld b, h
ld c, l
pop hl
ret
; 1562
Text_0D:: ; 1562
2013-08-20 12:58:08 -07:00
; wait for key down
; display arrow
push hl
push bc
call Functionaaf
pop bc
pop hl
ret
; 156a
Text_14:: ; 156a
2014-02-24 18:51:20 -08:00
; Print a string from one of the following:
; 0: StringBuffer3
; 1: StringBuffer4
; 2: StringBuffer5
; 3: StringBuffer2
; 4: StringBuffer1
; 5: EnemyMonNick
; 6: BattleMonNick
2013-08-20 12:58:08 -07:00
; [$14][id]
ld a, [hli]
push hl
ld e, a
ld d, 0
2014-02-24 18:51:20 -08:00
ld hl, Unknown_24000
2013-08-20 12:58:08 -07:00
add hl, de
add hl, de
2014-02-24 18:51:20 -08:00
ld a, BANK(Unknown_24000)
2013-08-20 12:58:08 -07:00
call GetFarHalfword
ld d, h
ld e, l
ld h, b
ld l, c
call PlaceString
pop hl
ret
; 1582
Text_15:: ; 1582
2013-08-20 12:58:08 -07:00
; TX_DAY
call GetWeekday
push hl
push bc
ld c, a
ld b, 0
ld hl, .Days
add hl, bc
add hl, bc
ld a, [hli]
ld h, [hl]
ld l, a
ld d, h
ld e, l
pop hl
call PlaceString
ld h, b
ld l, c
ld de, .Day
call PlaceString
pop hl
ret
; 15a2
.Days ; 15a2
dw .Sun
dw .Mon
dw .Tues
dw .Wednes
dw .Thurs
dw .Fri
dw .Satur
.Sun db "SUN@"
.Mon db "MON@"
.Tues db "TUES@"
.Wednes db "WEDNES@"
.Thurs db "THURS@"
.Fri db "FRI@"
.Satur db "SATUR@"
.Day db "DAY@"
; 15d8