further refactoring in HGRActionCallback

src/constants.a

@@ -9,7 +9,7 @@
 ; D000..E5F4 - persistent data structures (per-game cheat categories,
 ;              gGlobalPrefsStore, gGamesListStore)
 ; ...unused...
-; EC15..FFF9 - main program code
+; EC22..FFF9 - main program code
 ; FFFA..FFFF - NMI, reset, IRQ vectors
 ;
 ; LC RAM BANK 2

src/ui.attract.hgr.a

@@ -106,48 +106,44 @@ HGRSingle
          !word $4000
 
          ; display game name in the bottom-left corner
-         ldx   #39
+         lda   #22
-         lda   #0
+         sta   VTAB
--        sta   UILine1,x
+         lda   #0                    ; solid horizontal bar character
-         dex
+         jsr   @resetline
-         bpl   -
+         lda   (SAVE),y              ; (SAVE) -> game title, Y = 0, so A = title length
-         sta   HTAB
+         clc
-         ldx   #22
+         adc   #$03
-         stx   VTAB
+         sta   gPathname
-         tay
+         lda   #7                    ; top-right rounded corner character
-         lda   (SAVE),y
+         jsr   @drawline
-         tax
+
-         +LDADDR UILine1
-         sec
-         jsr   DrawBuffer
-         ldx   #3
-         +LDADDR @toprightcorner
-         sec
-         jsr   DrawBuffer
          inc   VTAB
-         ldx   #0
+         lda   #" "
-         stx   HTAB
+         jsr   @resetline
-         inx
+         lda   (SAVE),y              ; A = title length
-         +LDADDR @rightline
+         tay
-         sec
+-        lda   (SAVE),y
-         jsr   DrawBuffer
+         sta   gPathname+1,y
-         +LDAY SAVE
+         dey
-         jsr   SetPath
+         bne   -
-         +LDADDR gPathname
+         lda   #3                    ; solid vertical bar character
-         sec
+         jsr   @drawline
-         jsr   DrawString
-         ldx   #2
-         +LDADDR @rightline
-         sec
-         jsr   DrawBuffer
 
          +LDADDR $6000
          jmp   ExecuteTransitionAndWait
-@toprightcorner
+@resetline
-         !byte 0,0,7
+         ldy   #40
-@rightline
+-        sta   gPathname,y
-         !text " "
+         dey
-         !byte 3
+         bne   -
+         sty   HTAB
+         rts
+@drawline
+         ldy   gPathname
+         sta   gPathname,y
+         +LDADDR gPathname
+         sec
+         jmp   DrawString
 
 ;------------------------------------------------------------------------------
 ; .LoadHGRTransition [private]