Today's Ugly GB Code Snippet

; Some strings...

    set_text_prefix TestMapSign

    dname
    db "Test sign",0

    dline 0
    db "Startham village",0

    dline 1
    db "We don't have",0

    dline 2
    db "roads, but we have",0

    dline 3
    db "Wi-Fi!",0

; The goal is to have a "TestMapSignLineXX" label before each string.
; Here are the macros.

set_text_prefix: MACRO
line_prefix EQUS "\1Line"
ENDM

dline: MACRO
    dline_internal "{line_prefix}", "\1"
ENDM

dline_internal: MACRO
line_label EQUS STRCAT(\1, \2)
line_label::
PURGE line_label
ENDM

; Your eyes burning yet ?