mirror of
https://github.com/gbdev/rgbds.git
synced 2025-11-20 10:12:06 +00:00
39f0f9edc0
- Treating multi-unit strings as numbers - `rgbasm -Wnumeric-string` - `ldio [c], a` and `ldio a, [c]` (use `ldh`) - `ld [c], a` and `ld a, [c]` (use `ldh`) - `ldh [$xx], a` and `ldh a, [$xx]` (use `$FFxx`)
111 lines
1.1 KiB
NASM
111 lines
1.1 KiB
NASM
opt Wno-unmapped-char
|
|
|
|
MACRO new_
|
|
IF _NARG > 1
|
|
println "newcharmap \1, \2"
|
|
newcharmap \1, \2
|
|
ELSE
|
|
println "newcharmap \1"
|
|
newcharmap \1
|
|
ENDC
|
|
ENDM
|
|
|
|
MACRO set_
|
|
println "setcharmap \1"
|
|
setcharmap \1
|
|
ENDM
|
|
|
|
MACRO push_
|
|
println "pushc"
|
|
pushc
|
|
ENDM
|
|
|
|
MACRO push_set_
|
|
println "pushc \1"
|
|
pushc \1
|
|
ENDM
|
|
|
|
MACRO pop_
|
|
println "popc"
|
|
popc
|
|
ENDM
|
|
|
|
MACRO print_mapped
|
|
def x = \1
|
|
println "{x}"
|
|
ENDM
|
|
|
|
println "main charmap"
|
|
|
|
charmap "ab", $0
|
|
|
|
print_mapped "ab"
|
|
|
|
new_ map1
|
|
|
|
print_mapped "ab" ; error
|
|
|
|
new_ map2, main
|
|
|
|
print_mapped "ab"
|
|
|
|
set_ map1
|
|
|
|
print_mapped "ab" ; error
|
|
|
|
new_ map3
|
|
|
|
charmap "ab", $1
|
|
|
|
print_mapped "ab"
|
|
|
|
new_ map4, map3
|
|
|
|
charmap "ab", $1
|
|
charmap "cd", $2
|
|
|
|
print_mapped "ab"
|
|
print_mapped "cd"
|
|
|
|
set_ map3
|
|
|
|
print_mapped "ab"
|
|
print_mapped "cd" ; error
|
|
|
|
set_ main
|
|
|
|
SECTION "sec0", ROM0
|
|
|
|
print_mapped "ab"
|
|
|
|
println "modify main charmap"
|
|
charmap "ef", $3
|
|
|
|
print_mapped "ab"
|
|
print_mapped "ef"
|
|
|
|
set_ map1
|
|
|
|
push_
|
|
set_ map2
|
|
|
|
push_set_ map3
|
|
|
|
print_mapped "ab"
|
|
print_mapped "cd" ; error
|
|
print_mapped "ef" ; error
|
|
|
|
pop_
|
|
|
|
print_mapped "ab"
|
|
|
|
pop_
|
|
|
|
print_mapped "ab" ; error
|
|
|
|
new_ map1
|
|
|
|
set_ map5
|
|
|
|
pop_
|