ref: 8a79315635ee9ebb6eed5c9648fe89746085d0b1
parent: d08eb862339c29ffe387f661121ac4dfe79c74ab
author: Rangi <remy.oukaour+rangi42@gmail.com>
date: Mon Jul 6 08:28:31 EDT 2020
Capitalize rgbds control structures (EQU/EQUS, IF/ELIF/ELSE/ENDC, REPT/ENDR, MACRO/ENDM, etc)
--- a/data/moves/moves.asm
+++ b/data/moves/moves.asm
@@ -1,7 +1,7 @@
Moves:
; Characteristics of each move.
-move: macro
+move: MACRO
db \1 ; animation (interchangeable with move id)
db \2 ; effect
db \3 ; power
@@ -8,7 +8,7 @@
db \4 ; type
db \5 percent ; accuracy
db \6 ; pp
-endm
+ENDM
move POUND, NO_ADDITIONAL_EFFECT, 40, NORMAL, 100, 35
MoveEnd:
--- a/engine/overworld/healing_machine.asm
+++ b/engine/overworld/healing_machine.asm
@@ -89,9 +89,9 @@
CopyHealingMachineOAM:
; copy one OAM entry and advance the pointers
- rept 4
+ REPT 4
ld a, [de]
inc de
ld [hli], a
- endr
+ ENDR
ret
--- a/home/joypad.asm
+++ b/home/joypad.asm
@@ -7,9 +7,9 @@
ld c, 0
ld [rJOYP], a
- rept 6
+ REPT 6
ld a, [rJOYP]
- endr
+ ENDR
cpl
and %1111
swap a
@@ -17,9 +17,9 @@
ld a, 1 << 4 ; select button keys
ld [rJOYP], a
- rept 10
+ REPT 10
ld a, [rJOYP]
- endr
+ ENDR
cpl
and %1111
or b
--- a/home/print_num.asm
+++ b/home/print_num.asm
@@ -59,18 +59,20 @@
cp 6
jr z, .hundred_thousands
-print_digit: macro
+print_digit: MACRO
-if (\1) / $10000
+IF (\1) / $10000
ld a, \1 / $10000 % $100
-else xor a
-endc
+ELSE
+ xor a
+ENDC
ld [hPowerOf10 + 0], a
-if (\1) / $100
+IF (\1) / $100
ld a, \1 / $100 % $100
-else xor a
-endc
+ELSE
+ xor a
+ENDC
ld [hPowerOf10 + 1], a
ld a, \1 / $1 % $100
@@ -78,7 +80,7 @@
call .PrintDigit
call .NextDigit
-endm
+ENDM
.millions print_digit 1000000
.hundred_thousands print_digit 100000
--- a/home/vcopy.asm
+++ b/home/vcopy.asm
@@ -170,13 +170,13 @@
TransferBgRows::
; unrolled loop and using pop for speed
- rept 20 / 2 - 1
+ REPT 20 / 2 - 1
pop de
ld [hl], e
inc l
ld [hl], d
inc l
- endr
+ ENDR
pop de
ld [hl], e
@@ -261,7 +261,7 @@
ld [hVBlankCopyDoubleSize], a
.loop
- rept 3
+ REPT 3
pop de
ld [hl], e
inc l
@@ -271,7 +271,7 @@
inc l
ld [hl], d
inc l
- endr
+ ENDR
pop de
ld [hl], e
@@ -339,13 +339,13 @@
ld [hVBlankCopySize], a
.loop
- rept 7
+ REPT 7
pop de
ld [hl], e
inc l
ld [hl], d
inc l
- endr
+ ENDR
pop de
ld [hl], e
--- a/macros/code.asm
+++ b/macros/code.asm
@@ -11,10 +11,10 @@
; Design patterns
dict: MACRO
-if \1 == 0
+IF \1 == 0
and a
-else
+ELSE
cp \1
-endc
+ENDC
jp z, \2
ENDM
--- a/macros/data.asm
+++ b/macros/data.asm
@@ -13,8 +13,8 @@
dn ((\1) / 10) % 10, (\1) % 10
ENDM
-coins equs "bcd2"
-money equs "bcd3"
+coins EQUS "bcd2"
+money EQUS "bcd3"
tmhm: MACRO
; used in data/pokemon/base_stats/*.asm
@@ -21,32 +21,32 @@
_tms1 = 0 ; TM01-TM24 (24)
_tms2 = 0 ; TM25-TM48 (24)
_tms3 = 0 ; TM49-TM50 + HM01-HM05 (7/24)
-rept _NARG
+REPT _NARG
if DEF(\1_TMNUM)
if \1_TMNUM < 24 + 1
_tms1 = _tms1 | (1 << ((\1_TMNUM) - 1))
- elif \1_TMNUM < 48 + 1
+ ELIF \1_TMNUM < 48 + 1
_tms2 = _tms2 | (1 << ((\1_TMNUM) - 1 - 24))
else
_tms3 = _tms3 | (1 << ((\1_TMNUM) - 1 - 48))
- endc
+ ENDC
else
fail "\1 is not a TM or HM move"
- endc
+ ENDC
shift
-endr
-rept 3 ; TM01-TM24 (24/24)
+ENDR
+REPT 3 ; TM01-TM24 (24/24)
db _tms1 & $ff
_tms1 = _tms1 >> 8
-endr
-rept 3 ; TM25-TM48 (24/24)
+ENDR
+REPT 3 ; TM25-TM48 (24/24)
db _tms2 & $ff
_tms2 = _tms2 >> 8
-endr
-rept 1 ; TM49-TM50 + HM01-HM05 (7/8)
+ENDR
+REPT 1 ; TM49-TM50 + HM01-HM05 (7/8)
db _tms3 & $ff
_tms3 = _tms3 >> 8
-endr
+ENDR
ENDM
--- a/macros/enum.asm
+++ b/macros/enum.asm
@@ -1,16 +1,16 @@
; Enumerate variables
enum_start: MACRO
-if _NARG >= 1
+IF _NARG >= 1
__enum__ = \1
-else
+ELSE
__enum__ = 0
-endc
-if _NARG >= 2
+ENDC
+IF _NARG >= 2
__enumdir__ = \2
-else
+ELSE
__enumdir__ = 1
-endc
+ENDC
ENDM
enum: MACRO
@@ -25,11 +25,11 @@
; Enumerate constants
const_def: MACRO
-if _NARG >= 1
+IF _NARG >= 1
const_value = \1
-else
+ELSE
const_value = 0
-endc
+ENDC
ENDM
const: MACRO
--- a/macros/gfx.asm
+++ b/macros/gfx.asm
@@ -1,8 +1,8 @@
RGB: MACRO
-rept _NARG / 3
+REPT _NARG / 3
dw palred (\1) + palgreen (\2) + palblue (\3)
shift 3
-endr
+ENDR
ENDM
palred EQUS "(1 << 0) *"
--- a/macros/scripts/events.asm
+++ b/macros/scripts/events.asm
@@ -183,10 +183,10 @@
;\3, \4, ... = additional (optional) event indices
SetEvents: MACRO
SetEvent \1
- rept _NARG - 1
+ REPT _NARG - 1
SetEventReuseHL \2
shift
- endr
+ ENDR
ENDM
@@ -235,10 +235,10 @@
;\3 = event index (optional)
ResetEvents: MACRO
ResetEvent \1
- rept _NARG - 1
+ REPT _NARG - 1
ResetEventReuseHL \2
shift
- endr
+ ENDR
ENDM
--- a/macros/scripts/maps.asm
+++ b/macros/scripts/maps.asm
@@ -121,12 +121,12 @@
; Calculate tile offsets for source (current) and target maps
_src = 0
_tgt = (\4) + 3
-if _tgt < 2
+IF _tgt < 2
_src = -_tgt
_tgt = 0
-endc
+ENDC
-if "\1" == "north"
+IF "\1" == "north"
_blk = \3_WIDTH * (\3_HEIGHT - 3) + _src
_map = _tgt
_win = (\3_WIDTH + 6) * \3_HEIGHT + 1
@@ -133,11 +133,11 @@
_y = \3_HEIGHT * 2 - 1
_x = (\4) * -2
_len = CURRENT_MAP_WIDTH + 3 - (\4)
-if _len > \3_WIDTH
+IF _len > \3_WIDTH
_len = \3_WIDTH
-endc
+ENDC
-elif "\1" == "south"
+ELIF "\1" == "south"
_blk = _src
_map = (CURRENT_MAP_WIDTH + 6) * (CURRENT_MAP_HEIGHT + 3) + _tgt
_win = \3_WIDTH + 7
@@ -144,11 +144,11 @@
_y = 0
_x = (\4) * -2
_len = CURRENT_MAP_WIDTH + 3 - (\4)
-if _len > \3_WIDTH
+IF _len > \3_WIDTH
_len = \3_WIDTH
-endc
+ENDC
-elif "\1" == "west"
+ELIF "\1" == "west"
_blk = (\3_WIDTH * _src) + \3_WIDTH - 3
_map = (CURRENT_MAP_WIDTH + 6) * _tgt
_win = (\3_WIDTH + 6) * 2 - 6
@@ -155,11 +155,11 @@
_y = (\4) * -2
_x = \3_WIDTH * 2 - 1
_len = CURRENT_MAP_HEIGHT + 3 - (\4)
-if _len > \3_HEIGHT
+IF _len > \3_HEIGHT
_len = \3_HEIGHT
-endc
+ENDC
-elif "\1" == "east"
+ELIF "\1" == "east"
_blk = (\3_WIDTH * _src)
_map = (CURRENT_MAP_WIDTH + 6) * _tgt + CURRENT_MAP_WIDTH + 3
_win = \3_WIDTH + 7
@@ -166,13 +166,13 @@
_y = (\4) * -2
_x = 0
_len = CURRENT_MAP_HEIGHT + 3 - (\4)
-if _len > \3_HEIGHT
+IF _len > \3_HEIGHT
_len = \3_HEIGHT
-endc
+ENDC
-else
+ELSE
fail "Invalid direction for 'connection'."
-endc
+ENDC
db \3
dw \2_Blocks + _blk
--- a/macros/scripts/text.asm
+++ b/macros/scripts/text.asm
@@ -198,10 +198,10 @@
script_mart: MACRO
db TX_SCRIPT_MART
db _NARG ; number of items
-rept _NARG
+REPT _NARG
db \1 ; item id
shift
-endr
+ENDR
db -1 ; end
ENDM
--- a/rgbdscheck.asm
+++ b/rgbdscheck.asm
@@ -3,10 +3,10 @@
MINOR EQU 4
PATCH EQU 0
-if !DEF(__RGBDS_MAJOR__) || !DEF(__RGBDS_MINOR__) || !DEF(__RGBDS_PATCH__)
+IF !DEF(__RGBDS_MAJOR__) || !DEF(__RGBDS_MINOR__) || !DEF(__RGBDS_PATCH__)
fail "pokered requires rgbds {MAJOR}.{MINOR}.{PATCH} or newer."-elif (__RGBDS_MAJOR__ < MAJOR) || \
+ELIF (__RGBDS_MAJOR__ < MAJOR) || \
(__RGBDS_MAJOR__ == MAJOR && __RGBDS_MINOR__ < MINOR) || \
(__RGBDS_MAJOR__ == MAJOR && __RGBDS_MINOR__ == MINOR && __RGBDS_PATCH__ < PATCH)
fail "pokered requires rgbds {MAJOR}.{MINOR}.{PATCH} or newer."-endc
+ENDC