From dd690920c9f8502b649f1022fadbb99fab67a44a Mon Sep 17 00:00:00 2001 From: Rangi Date: Sat, 17 Apr 2021 19:06:56 -0400 Subject: Use rgbds 0.5.0 features: - FOR loops - {interpolation} - REDEF EQUS - \# for all macro args --- home/vcopy.asm | 22 +++++++++------------- 1 file changed, 9 insertions(+), 13 deletions(-) (limited to 'home') diff --git a/home/vcopy.asm b/home/vcopy.asm index 882773a8..0b0e0144 100644 --- a/home/vcopy.asm +++ b/home/vcopy.asm @@ -23,7 +23,7 @@ ClearBgMap:: jr .next ld a, l .next - ld de, $400 ; size of VRAM background map + ld de, BG_MAP_WIDTH * BG_MAP_HEIGHT ld l, e .loop ld [hli], a @@ -69,7 +69,7 @@ RedrawRowOrColumn:: .noCarry ; the following 4 lines wrap us from bottom to top if necessary ld a, d - and $03 + and $3 or $98 ld d, a dec c @@ -169,21 +169,19 @@ AutoBgMapTransfer:: TransferBgRows:: ; unrolled loop and using pop for speed - - REPT 20 / 2 - 1 +REPT SCREEN_WIDTH / 2 - 1 pop de ld [hl], e inc l ld [hl], d inc l - ENDR - +ENDR pop de ld [hl], e inc l ld [hl], d - ld a, 32 - (20 - 1) + ld a, BG_MAP_WIDTH - (SCREEN_WIDTH - 1) add l ld l, a jr nc, .ok @@ -261,7 +259,7 @@ VBlankCopyDouble:: ldh [hVBlankCopyDoubleSize], a .loop - REPT 3 +REPT LEN_2BPP_TILE / 4 - 1 pop de ld [hl], e inc l @@ -271,8 +269,7 @@ VBlankCopyDouble:: inc l ld [hl], d inc l - ENDR - +ENDR pop de ld [hl], e inc l @@ -339,14 +336,13 @@ VBlankCopy:: ldh [hVBlankCopySize], a .loop - REPT 7 +REPT LEN_2BPP_TILE / 2 - 1 pop de ld [hl], e inc l ld [hl], d inc l - ENDR - +ENDR pop de ld [hl], e inc l -- cgit v1.3.1-sl0p