mirror of
https://github.com/gbdev/rgbds.git
synced 2025-11-26 21:12:07 +00:00
b1e6c73197
These are offsets from the end of the string, as if the STRLEN or CHARLEN respectively were added to the position. Fixes #812
28 lines
712 B
NASM
28 lines
712 B
NASM
charmap "<NULL>", $00
|
|
charmap "A", $10
|
|
charmap "B", $20
|
|
charmap "C", $30
|
|
charmap "Bold", $88
|
|
|
|
SECTION "test", ROM0
|
|
|
|
S EQUS "XBold<NULL>ABC"
|
|
|
|
assert CHARLEN("{S}") == 6
|
|
println CHARSUB("{S}", 2)
|
|
assert !STRCMP(CHARSUB("{S}", 2), "Bold")
|
|
assert CHARSUB("{S}", -4) == CHARSUB("{S}", CHARLEN("{S}") - 4)
|
|
assert CHARSUB("{S}", 2) == "Bold" && "Bold" == $88
|
|
assert CHARSUB("{S}", 1) == $58 ; ASCII "X"
|
|
db "{S}"
|
|
|
|
newcharmap ascii
|
|
|
|
assert CHARLEN("{S}") == 14
|
|
println CHARSUB("{S}", 2)
|
|
assert !STRCMP(CHARSUB("{S}", 2), "B")
|
|
assert CHARSUB("{S}", -4) == CHARSUB("{S}", CHARLEN("{S}") - 4)
|
|
assert CHARSUB("{S}", 2) == "B" && "B" == $42 ; ASCII "B"
|
|
assert CHARSUB("{S}", 1) == $58 ; ASCII "X"
|
|
db "{S}"
|