; =============================================================================
;  Text Routines
; =============================================================================

; Alphabet manual writing function
'A' = $2550
'B' = $2551
'C' = $2552
'D' = $2553
'E' = $2554
'F' = $2555
'G' = $2556
'H' = $2557
'I' = $2558
'J' = $2559
'K' = $255A
'L' = $255B
'M' = $255C
'N' = $255D
'O' = $255E
'P' = $255F
'Q' = $2560
'R' = $2561
'S' = $2562
'T' = $2563
'U' = $2564
'V' = $2565
'W' = $2566
'X' = $2567
'Y' = $2568
'Z' = $2569
'.' = $256A
':' = $256B
'0' = $2570
'1' = $2571
'2' = $2572
'3' = $2573
'4' = $2574
'5' = $2575
'6' = $2576
'7' = $2577
'8' = $2578
'9' = $2579
'_' = $20F5

; =============================================================================

DeathLabel:
  dw "DEATHS:_"

DrawDeathCounter:
  REP #$30
  LDX.w #$0E

.draw2
  LDA.w DeathLabel, X
  STA.w $13CC, X 
  DEX : DEX : BPL .draw2

  RTS

; =============================================================================

ScrollsLabel:
  dw "SCROLLS:_"

DrawScrollsLabel:
  LDX.w #$10

.draw2
  LDA.w ScrollsLabel, X
  STA.w $140C, X 
  DEX : DEX : BPL .draw2

  RTS

; =============================================================================

PlaytimeLabel:
  dw "PLAYTIME:_"

DrawPlaytimeLabel:
  LDX.w #$10

.draw2
  LDA.w PlaytimeLabel, X
  STA.w $1692, X 
  DEX : DEX : BPL .draw2

  RTS

; =============================================================================

Menu_ItemNames:
  dw "__SLINGSHOT___  "
  dw "__BOOMERANG___  "
  dw "___HOOKSHOT___  "
  dw "____BOMBS_____  "
  dw "__DEKU_MASK___  "
  dw "____BOTTLE____  "
  dw "____HAMMER____  "
  dw "_____LAMP_____  "
  dw "___FIRE_ROD___  "
  dw "___ICE_ROD____  "
  dw "__ZORA_MASK___  "
  dw "____BOTTLE____  "
  dw "__WOLF_MASK___  "
  dw "_JUMP_FEATHER_  "
  dw "___SOMARIA____  "
  dw "____BYRNA_____  "
  dw "__BUNNY_HOOD__  "
  dw "____BOTTLE____  "
  dw "_MAGIC_POWDER_  "
  dw "_SECRET_TOME__  "
  dw "___OCARINA____  "
  dw "_MAGIC_MIRROR_  "
  dw "__STONE_MASK__  "
  dw "____BOTTLE____  "

Menu_DrawItemName:
{
  LDA.w $0202 : DEC
  ASL : ASL : ASL : ASL : ASL
  LDY.w #$000
  TAX 
.loop
  LDA.w Menu_ItemNames, X ; Load your text character
  STA.w $1692, Y ; <- into the buffer
  INX : INX
  INY : INY : CPY #$001C : BCC .loop
  RTS
}

; =============================================================================

; ;LDX.w $7E00A0 		; load room number
;-------------------------------------
TestLocationName:
    dw "YOUR_HOUSE__"
;-------------------------------------

DrawLocationName:
{
  REP #$30
  LDA $1B 		    ; check if indoors or outdoors 
  AND.w #$00FF    ; isolate bit 
  CMP.w #$01      ; if 1, then indoors 
  BEQ .indoors
  
  LDA.b $8A
  ASL : ASL : ASL : ASL : ASL
  LDY.w #$000
  TAX 
.loop
  LDA.w OverworldLocationNames, X ; Load your text character
  STA.w $12CC, Y                  ; Store into the buffer
  INX : INX
  INY : INY : CPY #$0020 : BCC .loop
  RTS

.indoors
  LDX.w #$16

  .loop2
  LDA.w TestLocationName, X
  STA.w $12CC, X

  DEX : DEX
  BPL .loop2

  RTS
}


; =============================================================================

Menu_DrawSelect:
{
  REP #$30
  LDX.w #$16

.loop
  LDA.w SelectItemTXT, X
  STA.w $1194, X

  DEX : DEX
  BPL .loop

  RTS
}

; =============================================================================

Menu_DrawQuestStatus:
{
  REP #$30
  LDX.w #$16

.loop
  LDA.w QuestStatusTXT, X
  STA.w $1194, X

  DEX : DEX
  BPL .loop

  RTS
}

; =============================================================================

Menu_DrawAreaNameTXT:
{
  REP #$30
  LDX.w #$26

.loop
  LDA.w AreaNameTXT, X
  STA.w $128C, X

  DEX : DEX
  BPL .loop

  RTS
}

; =============================================================================
    
; Player's Name
; $3D9-$3E4: See appendix for listing of character codes. 
; Note each of the six letters is represented by a 16-bit number.
;
; 00-A 01-B 02-C 03-D 04-E 05-F 06=G 07-H 
; 08-I^ 09-J 0A-K 0B-L 0C-M 0D-N OE-O OF-P 
; 10-?? 20-Q 21-R 22-S 23-T 24-U 25-V 
; 26-W 27-X 28-Y 29-Z 
;
; 2A-a 2B-b-2C-c 2D-d 2E-e 2F-f 40-g 41-h 
; 42-k 43-j 44-i 45-l 46-m 47-n 48-o 49-p 
; 4A-q 4B-r 4C-s 4D-t 4E-u 4F-v 60-w 61-x 62-y 63-z
;
; 64-0 65-1 66-2 67-3 68-4 69-5 6A-6 6B-7 6C-8 6D-9 6E-"?" 6F-"!"
; 80-"-"
; 81-"." 
; 82-"," 
; 85-"(" 86-")" 
;
; B1-blank^
;
; ^This code is not the canon encoding of this character. ex. AF is the proper "I". 08 is not.

Menu_DrawCharacterName:
{
  REP #$30

  LDX.w #$C
.loop
  LDA.l $7EF3D9, X
  CMP.w #$AF : BEQ .fix_i 
  CMP.w #$10 : BCC .skip ; handle P -> Q gap
  SBC.b #$10
  CLC
  CMP.w #$2A : BCS .fix_lowercase 
.skip
  CLC : ADC #$2550
  STA.w $138C, X
  DEX : DEX : BPL .loop

  RTS

.fix_i
  LDA.w #$08 : BRA .skip 

.fix_lowercase
  LDA.w #$1D : BRA .skip
}