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

'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

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

TimeLabels:
  dw "00", "01", "02", "03", "04", "05", "06", "07", "08"
  dw "09", "10", "11", "12", "13", "14", "15", "16", "17"
  dw "18", "19", "20", "21", "22", "23", "24", "25", "26"
  dw "27", "28", "29", "30", "31", "32", "33", "34", "35"
  dw "36", "37", "38", "39", "40", "41", "42", "43", "44"
  dw "45", "46", "47", "48", "49", "50", "51", "52", "53"
  dw "54", "55", "56", "57", "58", "59"

PlaytimeLabel:
  dw "TIME:_____"

Menu_DrawHourDigit:
{
  SEP #$30
  LDA.l TimeState.Hours
  ASL A : ASL A
  TAX
  REP #$30
  LDA.w TimeLabels, X : STA.w $1692+$12
  INX : INX
  LDA.w TimeLabels, X : STA.w $1692+$14
  RTS
}

Menu_DrawMinuteDigit:
{
  SEP #$30
  LDA.l TimeState.Minutes
  ASL A : ASL A
  TAX
  REP #$30
  LDA.w TimeLabels, X : STA.w $1692+$18
  INX : INX
  LDA.w TimeLabels, X : STA.w $1692+$1A
  RTS
}

Menu_DrawPlaytimeLabel:
{
  LDX.w #$10

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

  ; Draw the current time based on the time system RAM
  JSR Menu_DrawHourDigit

  ; Draw colon
  LDA.w #$256B
  STA.w $1692+$16

  ; LDX #$18
  JSR Menu_DrawMinuteDigit

  RTS
}

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

Menu_ItemNames:
  dw "_____BOW______  "
  dw "__BOOMERANG___  "
  dw "___HOOKSHOT___  "
  dw "____BOMBS_____  "
  dw "_MAGIC_POWDER_  "
  dw "____BOTTLE____  "
  dw "____HAMMER____  "
  dw "_____LAMP_____  "
  dw "___FIRE_ROD___  "
  dw "___ICE_ROD____  "
  dw "MIRROR_OF_TIME  "
  dw "____BOTTLE____  "
  dw "___OCARINA____  "
  dw "BOOK__L:REVEAL  "
  dw "___SOMARIA____  "
  dw "_FISHING_ROD__  "
  dw "_ROCS_FEATHER_  "
  dw "____BOTTLE____  "
  dw "__DEKU_MASK___  "
  dw "__ZORA_MASK___  "
  dw "__WOLF_MASK___  "
  dw "__BUNNY_HOOD__  "
  dw "__STONE_MASK__  "
  dw "____BOTTLE____  "

Menu_MushroomLabel:
Menu_BottleItems:
  dw "___MUSHROOM___  "
  dw "_EMPTY_BOTTLE_  "
  dw "__RED_POTION__  "
  dw "_GREEN_POTION_  "
  dw "_BLUE_POTION__  "
  dw "____FAIRY_____  "
  dw "_____BEE______  "
  dw "__GOOD_BEE____  "
  dw "_MAGIC_BEAN___  "
  dw "_MILK_BOTTLE__  "

Menu_GoldstarLabel:
  dw "__GOLD_STAR___  "

Menu_PortalRodItems:
  dw "__PORTAL_ROD__  "

Menu_SongNames:
  dw "SONG:_STORMS__  "
  dw "SONG:_HEALING_  "
  dw "SONG:_SOARING_  "
  dw "SONG:_TIME____  "

Menu_RingNames:
  dw "____POWER_____  "
  dw "____ARMOR_____  "
  dw "____HEART_____  "
  dw "____LIGHT_____  "
  dw "____BLAST_____  "
  dw "___STEADFAST__  "

Menu_RingDescriptions:
  dw "ATK_UP__DEF_DOWN"
  dw "ATK_DOWN__DEF_UP"
  dw "SLOW_HEART_REGEN"
  dw "SWD_BEAM_2_HRTS_"
  dw "_BOMB_DAMAGE_UP_"
  dw "__NO_KNOCKBACK__"

Menu_RingsFound:
  dw "NEW_RING_FOUND__"

Menu_DrawItemName:
{
  SEP #$30

  ; Double check that we have the item.
  LDY.w $0202
  LDX.w Menu_AddressIndex-1, Y
  LDA.l $7EF300,             X
  CMP.b #$01 : BCS .haveItem
    REP #$30
    RTS
  .haveItem

  LDA.w $0202 : CMP.b #$03 : BEQ .goldstar
                CMP.b #$05 : BEQ .mushroom
                CMP.b #$0D : BEQ .ocarina
                CMP.b #$10 : BEQ .custom_rods
  ; Check if it's a bottle
                CMP.b #$06 : BEQ .bottle_1
                CMP.b #$0C : BEQ .bottle_2
                CMP.b #$12 : BEQ .bottle_3
                CMP.b #$18 : BEQ .bottle_4
  .draw_item
        REP #$30
        LDA.w $0202 : BEQ .no_items
          DEC : ASL #5 : TAX
          LDY.w #$000

          .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
        .no_items
        RTS

        ; Draw Bottle Description
        .bottle_1
        REP #$30 : LDX #$0000 : JMP .draw_bottle
          .bottle_2
          REP #$30 : LDX #$0001 : JMP .draw_bottle
            .bottle_3
            REP #$30 : LDX #$0002 : JMP .draw_bottle
              .bottle_4
              REP #$30 : LDX #$0003

        .draw_bottle
        JSR DrawBottleNames
        RTS

      .custom_rods
      LDA.w FishingOrPortalRod : CMP.b #$01 : BNE .draw_item
        JSR DrawPortalRodName
        RTS

      .goldstar
      LDA.w GoldstarOrHookshot : CMP.b #$02 : BNE .draw_item
        JSR DrawGoldstarName
        RTS

      .mushroom
      LDA.l $7EF344 : CMP.b #$02 : BCS .draw_item
        JSR DrawMushroomName
        RTS

      .ocarina
      REP #$30

    ; Check the timer and see if we should draw the item name
    LDA $1A : AND.w #$00FF : CMP #$0080 : BCC .draw_item
  LDA $030F : BEQ .draw_item
  LDA $030F : AND.w #$00FF : DEC : ASL #5 : TAX
  LDY.w #$0000

  .draw_ocarina_loop
    LDA.w Menu_SongNames, X : STA.w $1692, Y
  INX #2 : INY #2 : CPY #$001C : BCC .draw_ocarina_loop
  RTS
}

DrawPortalRodName:
{
  REP #$30
  LDX.w #$0000
  LDY.w #$0000

  .draw_portal_rod_loop
    LDA.w Menu_PortalRodItems, X : STA.w $1692, Y
    INX #2 : INY #2
  CPY #$001C : BCC .draw_portal_rod_loop
  RTS
}

DrawBottleNames:
{
  LDA.l $7EF35C, X : AND.w #$00FF
  DEC : ASL #5 : TAX
  LDY.w #$0000

  .draw_bottle_loop
    LDA.w Menu_BottleItems, X : STA.w $1692, Y
    INX #2 : INY #2
  CPY #$001C : BCC .draw_bottle_loop
  RTS
}

DrawMagicRingNames:
{
  REP #$30
  LDA.w $020B : ASL #5 : TAX
  LDY.w #$0000

  .draw_ring_loop
    LDA.w Menu_RingNames, X : STA.w $1692, Y
    INX #2 : INY #2
  CPY #$001C : BCC .draw_ring_loop

  LDA.w $020B : ASL #5 : TAX
  LDY.w #$0000

  .draw_ring_desc_loop
    LDA.w Menu_RingDescriptions, X : STA.w $1590, Y
    INX #2 : INY #2
  CPY #$0020 : BCC .draw_ring_desc_loop

  LDA.l MAGICRINGS : AND.w #$00FF : STA.b $00
  LDA.l FOUNDRINGS : AND.w #$00FF : CMP.b $00 : BEQ +
    LDY.w #$0000
    .draw_found_ring
    LDA.w Menu_RingsFound, Y : STA.w $1692, Y
    INY #2 : CPY #$001C : BCC .draw_found_ring
  +

  SEP #$30
  RTS
}

Menu_CollectibleNames:
  dw "BANANAS:________"
  dw "PINEAPPLES:_____"
  dw "ROCK_MEAT:______"
  dw "SEASHELLS:______"
  dw "HONEYCOMBS:_____"
  dw "DEKU_STICKS:____"

DrawCollectibleNamesAndCount:
{
  REP #$30
  LDA.w $020B : ASL #5 : TAX : LDY.w #$0000

  .draw_loop
    LDA.w Menu_CollectibleNames, X : STA.w $1692, Y
    INX #2 : INY #2
  CPY #$001C : BCC .draw_loop
  SEP #$30
  ; Draw the number of each collectible
  LDA.w $020B : CMP.b #$01 : BEQ .pineapples
                CMP.b #$02 : BEQ .rock_meat
                CMP.b #$03 : BEQ .seashells
                CMP.b #$04 : BEQ .honeycomb
                CMP.b #$05 : BEQ .deku_sticks
    LDA.l Bananas : JMP .draw
  .pineapples
  LDA.l Pineapples : JMP .draw
  .rock_meat
  LDA.l RockMeat : JMP .draw
  .seashells
  LDA.l Seashells : JMP .draw
  .honeycomb
  LDA.l Honeycomb : JMP .draw
  .deku_sticks
  LDA.l DekuSticks
  .draw
  ASL #2 : TAX
  REP #$30
  LDA.w TimeLabels, X : STA.w $1692+$18
  INX : INX
  LDA.w TimeLabels, X : STA.w $1692+$1A
  SEP #$30
  RTS
}

DrawGoldstarName:
{
  REP #$30
  LDX.w #$0000 : LDY.w #$0000
  .draw_goldstar_loop
  LDA.w Menu_GoldstarLabel, X : STA.w $1692, X
  INX #2 : INY #2 : CPY #$001C : BCC .draw_goldstar_loop
  RTS
}

DrawMushroomName:
{
  REP #$30
  LDX.w #$0000 : LDY.w #$0000
  .draw_mushroom_loop
  LDA.w Menu_MushroomLabel, X : STA.w $1692, X
  INX #2 : INY #2 : CPY #$001C : BCC .draw_mushroom_loop
  RTS
}

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

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 #5
  LDY.w #$000
  TAX

  .draw_overworld_loop
  LDA.w OverworldLocationNames, X ; Load your text character
  STA.w $12CC, Y                  ; Store into the buffer
  INX : INX
  INY : INY : CPY #$0020 : BCC .draw_overworld_loop
  RTS

  .indoors
  LDA.b $A0 ; Load current room
  ASL #5
  TAY
  LDX.w #$0000

  .draw_indoors_loop
  LDA.w DungeonLocationNames, Y : STA.w $12CC, X

  INY : INY
  INX : INX : CPX #$0020 : BCC .draw_indoors_loop
  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.

AlphabetTable:
  db $00, $01, $02, $03, $04, $05, $06, $07
  db $AF, $09, $0A, $0B, $0C, $0D, $0E, $0F
  db $10, $20, $21, $22, $23, $24, $25, $26
  db $27, $28, $29, $2A, $2B, $2C, $2D, $2E
  db $2F, $40, $41, $42, $43, $44, $45, $46
  db $47, $48, $49, $4A, $4B, $4C, $4D, $4E
  db $4F, $60, $61, $62, $63, $64, $65, $66
  db $67, $68, $69, $6A, $6B, $6C, $6D, $6E
  db $6F, $80, $81, $82, $85, $86, $B1

Menu_DrawCharacterName:
{
  REP #$30
  LDX.w #$C

  .draw_name_loop
  ; Player's Name in memory, indexed by X
  LDA.l $7EF3D9, X

  ; Check if the character is the special encoding for "I" first.
  CMP.w #$AF : BEQ .fix_i

  ; Check if it is the gap between the P and Q characters
  CMP.w #$10 : BCC .write_to_screen ; handle P, Q gap
  SBC.b #$10
  CLC
  CMP.w #$2A : BCS .fix_lowercase

  .write_to_screen
  CLC : ADC #$2550 : STA.w $134C, X
  DEX : DEX : BPL .draw_name_loop
  RTS

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

  .fix_lowercase
  ; TODO: Convert the lowercase value of 2A or greater inside of the
  ; accumulator and convert it to an uppercase value.
  LDA.w #$1D : BRA .write_to_screen
}


Menu_DrawButtonPrompt:
{
  REP #$30
  LDX.w #$1E             ; 16 tiles (32 bytes - 2 = $1E)

  .loop
  LDA.w ButtonPromptTXT, X : STA.w $1254, X
  DEX : DEX : BPL .loop

  SEP #$30               ; Restore 8-bit mode before return
  RTS
}

Menu_DrawRingBoxPrompt:
{
  REP #$30
  LDX.w #$1E             ; 16 tiles (32 bytes - 2 = $1E)

  .loop
  LDA.w RingBoxPromptTXT, X : STA.w $1294, X  ; One row below button prompt ($1254 + $40)
  DEX : DEX : BPL .loop

  SEP #$30
  RTS
}