add Menu_SongMenu

Menu/menu.asm

@@ -71,6 +71,7 @@ Menu_Entry:
   dw Menu_Exit               ; 0A
   dw Menu_InitiateScrollDown ; 0B
   dw Menu_MagicBag           ; 0C
+  dw Menu_SongMenu
 
 ; =========================================================
 ; 00 MENU INIT GRAPHICS 
@@ -212,10 +213,16 @@ Menu_ItemScreen:
     LSR : BCS .move_down
     LSR : BCS .move_up
 
+    
     LDA.w $0202 : CMP.b #$05 : BNE +
       LDA.b $F6 : BIT.b #$80 : BEQ +
         LDA.b #$0C : STA.w $0200 ; Magic Bag
     +
+    LDA.w $0202 : CMP.b #$0D : BNE ++
+      LDA.b $F6 : BIT.b #$80 : BEQ ++
+        LDA.b #$0D : STA.w $0200
+    ++
+
   BRA .no_inputs
 
   .move_right
@@ -495,10 +502,27 @@ Menu_MagicBag:
   RTS
 }
 
+Menu_SongMenu:
+{
+  JSR Menu_DrawSongMenu
+
+  SEP #$30
+
+  LDA.b $F6 : BIT.b #$80 : BEQ +
+    LDA.b #$02 : STA.w $0200
+  +
+
+  LDA.b #$22 : STA.w $0116
+  LDA.b #$01 : STA.b $17
+
+  RTS
+}
 
 menu_frame: incbin "tilemaps/menu_frame.tilemap"
 quest_icons: incbin "tilemaps/quest_icons.tilemap"
 incsrc "menu_map_names.asm"
+print  "End of Menu/menu.asm              ", pc
 incsrc "menu_hud.asm"
+print  "End of Menu/menu_ud.asm           ", pc
 
 ; =========================================================

Menu/menu_draw.asm

@@ -649,6 +649,39 @@ Menu_DrawBigChestKey:
   RTS
 }
 
+
+Menu_DrawSongMenu:
+{
+  REP #$30
+  LDX.w #$FE ; $1700-17FF 
+
+  .loop
+    LDA.w .magic_bag_tilemap, X
+    STA.w $1000, X
+    LDA.w .magic_bag_tilemap+$100, X
+    STA.w $1100, X
+    LDA.w .magic_bag_tilemap+$200, X
+    STA.w $1200, X
+    LDA.w .magic_bag_tilemap+$300, X
+    STA.w $1300, X
+    LDA.w .magic_bag_tilemap+$400, X
+    STA.w $1400, X
+    LDA.w .magic_bag_tilemap+$500, X
+    STA.w $1500, X
+    LDA.w .magic_bag_tilemap+$600, X
+    STA.w $1600, X
+    LDA.w .magic_bag_tilemap+$700, X
+    STA.w $1700, X
+
+    DEX : DEX
+  BPL .loop
+  
+  RTS
+
+  .magic_bag_tilemap
+    incbin "tilemaps/song_menu.tilemap"
+}
+
 Menu_DrawMagicBag:
 {
   REP #$30

Menu/menu_gfx_table.asm

@@ -186,10 +186,15 @@ QuarterNoteGFX:
 ; ---------------------------------------------------------
 
 BananaGFX:
-  dw $241E, $241F, $242E, $242F ; Banana
+  dw $341E, $341F, $342E, $342F ; Banana
 
 RingGFX:
-  dw $2449, $244A, $2449, $244A ; Ring
+  dw $2449, $244A, $A449, $A44A ; Red Ring
+  dw $2C49, $2C4A, $AC49, $AC4A ; Blue Ring
+  dw $3C49, $3C4A, $BC49, $BC4A ; Green Ring
+
+PineappleGFX:
+  dw $3D7C, $3D7D, $356C, $756C ; Pineapple
 
 ; =========================================================
 ; Equipped Items

Oracle_main.asm

@@ -125,7 +125,7 @@ namespace Oracle
   print ""
 
   incsrc "Menu/menu.asm"
-  print  "End of Menu/menu.asm              ", pc
+  
 
   ; -------------------------------------------------------
   ; Misc