mirror of
https://github.com/pret/poketcg2.git
synced 2026-10-01 14:26:57 -04:00
dannye
133 lines
2.2 KiB
NASM
133 lines
2.2 KiB
NASM
text EQUS "db TX_HALFWIDTH, "
|
|
line EQUS "db TX_LINE, "
|
|
done EQUS "db TX_END"
|
|
|
|
half2full EQUS "db TX_HALF2FULL"
|
|
|
|
katakana: MACRO
|
|
db TX_KATAKANA
|
|
rept _NARG
|
|
if STRSUB(\1, 1, 4) == "FW0_"
|
|
db \1
|
|
elif STRSUB(\1, 1, 1) == "<" && STRLEN(\1) > 1
|
|
db \1
|
|
else
|
|
for i, STRLEN(\1)
|
|
db STRCAT("FW0_", STRSUB(\1, i + 1, 1))
|
|
endr
|
|
endc
|
|
shift
|
|
endr
|
|
ENDM
|
|
|
|
hiragana: MACRO
|
|
db TX_HIRAGANA
|
|
rept _NARG
|
|
if STRSUB(\1, 1, 4) == "FW0_"
|
|
db \1
|
|
elif STRSUB(\1, 1, 1) == "<" && STRLEN(\1) > 1
|
|
db \1
|
|
else
|
|
for i, STRLEN(\1)
|
|
db STRCAT("FW0_", STRSUB(\1, i + 1, 1))
|
|
endr
|
|
endc
|
|
shift
|
|
endr
|
|
ENDM
|
|
|
|
textfw0: MACRO
|
|
rept _NARG
|
|
if STRSUB(\1, 1, 4) == "FW0_"
|
|
db \1
|
|
elif STRSUB(\1, 1, 1) == "<" && STRLEN(\1) > 1
|
|
db \1
|
|
else
|
|
for i, STRLEN(\1)
|
|
db STRCAT("FW0_", STRSUB(\1, i + 1, 1))
|
|
endr
|
|
endc
|
|
shift
|
|
endr
|
|
ENDM
|
|
|
|
textfw1: MACRO
|
|
rept _NARG
|
|
if STRSUB(\1, 1, 4) == "FW1_"
|
|
db TX_FULLWIDTH1, \1
|
|
elif STRSUB(\1, 1, 1) == "<" && STRLEN(\1) > 1
|
|
db \1
|
|
else
|
|
for i, STRLEN(\1)
|
|
if (STRSUB(\1, i + 1, 1)) == " "
|
|
db STRCAT("FW0_", STRSUB(\1, i + 1, 1))
|
|
else
|
|
db TX_FULLWIDTH1, STRCAT("FW1_", STRSUB(\1, i + 1, 1))
|
|
endc
|
|
endr
|
|
endc
|
|
shift
|
|
endr
|
|
ENDM
|
|
|
|
textfw2: MACRO
|
|
rept _NARG
|
|
if STRSUB(\1, 1, 4) == "FW2_"
|
|
db TX_FULLWIDTH2, \1
|
|
elif STRSUB(\1, 1, 1) == "<" && STRLEN(\1) > 1
|
|
db \1
|
|
else
|
|
for i, STRLEN(\1)
|
|
if (STRSUB(\1, i + 1, 1)) == " "
|
|
db STRCAT("FW0_", STRSUB(\1, i + 1, 1))
|
|
else
|
|
db TX_FULLWIDTH2, STRCAT("FW2_", STRSUB(\1, i + 1, 1))
|
|
endc
|
|
endr
|
|
endc
|
|
shift
|
|
endr
|
|
ENDM
|
|
|
|
textfw3: MACRO
|
|
rept _NARG
|
|
if STRSUB(\1, 1, 4) == "FW3_"
|
|
db TX_FULLWIDTH3, \1
|
|
elif STRSUB(\1, 1, 1) == "<" && STRLEN(\1) > 1
|
|
db \1
|
|
else
|
|
for i, STRLEN(\1)
|
|
if (STRSUB(\1, i + 1, 1)) == " "
|
|
db STRCAT("FW0_", STRSUB(\1, i + 1, 1))
|
|
else
|
|
db TX_FULLWIDTH3, STRCAT("FW3_", STRSUB(\1, i + 1, 1))
|
|
endc
|
|
endr
|
|
endc
|
|
shift
|
|
endr
|
|
ENDM
|
|
|
|
textfw4: MACRO
|
|
rept _NARG
|
|
if STRSUB(\1, 1, 4) == "FW4_"
|
|
db TX_FULLWIDTH4, \1
|
|
elif STRSUB(\1, 1, 1) == "<" && STRLEN(\1) > 1
|
|
db \1
|
|
else
|
|
for i, STRLEN(\1)
|
|
if (STRSUB(\1, i + 1, 1)) == " "
|
|
db STRCAT("FW0_", STRSUB(\1, i + 1, 1))
|
|
else
|
|
db TX_FULLWIDTH4, STRCAT("FW4_", STRSUB(\1, i + 1, 1))
|
|
endc
|
|
endr
|
|
endc
|
|
shift
|
|
endr
|
|
ENDM
|
|
|
|
ldfw3: MACRO
|
|
ld \1, (TX_FULLWIDTH3 << 8) | STRCAT("FW3_", \2)
|
|
ENDM
|