pokehacks/pokecrystal-board
0
0
Fork 0
mirror of https://gitlab.com/xCrystal/pokecrystal-board.git synced 2025-01-23 09:16:20 -08:00
Code Issues Packages Projects Releases Wiki Activity

condense some repetitive asm with rept macros

Browse Source
This commit is contained in:
yenatch 2013-08-29 20:02:40 -04:00
parent cc98fab33e
commit 64a6af4052
1 changed files with 7 additions and 88 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

95
main.asm
View File

@ -421,51 +421,13 @@ UpdateBGMap: ; 164c
.row .row
; write a row of 20 tiles ; write a row of 20 tiles
rept 9
pop de pop de
ld [hl], e ld [hl], e
inc l inc l
ld [hl], d ld [hl], d
inc l inc l
pop de endr
ld [hl], e
inc l
ld [hl], d
inc l
pop de
ld [hl], e
inc l
ld [hl], d
inc l
pop de
ld [hl], e
inc l
ld [hl], d
inc l
pop de
ld [hl], e
inc l
ld [hl], d
inc l
pop de
ld [hl], e
inc l
ld [hl], d
inc l
pop de
ld [hl], e
inc l
ld [hl], d
inc l
pop de
ld [hl], e
inc l
ld [hl], d
inc l
pop de
ld [hl], e
inc l
ld [hl], d
inc l
pop de pop de
ld [hl], e ld [hl], e
inc l inc l
@ -528,6 +490,8 @@ GetTiles2: ; 1717
.loop .loop
; put 1 tile (16 bytes) into hl from sp ; put 1 tile (16 bytes) into hl from sp
rept 3
pop de pop de
ld [hl], e ld [hl], e
inc l inc l
@ -537,24 +501,7 @@ GetTiles2: ; 1717
inc l inc l
ld [hl], d ld [hl], d
inc l inc l
pop de endr
ld [hl], e
inc l
ld [hl], e
inc l
ld [hl], d
inc l
ld [hl], d
inc l
pop de
ld [hl], e
inc l
ld [hl], e
inc l
ld [hl], d
inc l
ld [hl], d
inc l
pop de pop de
ld [hl], e ld [hl], e
inc l inc l
@ -639,41 +586,13 @@ GetTiles: ; 177d
.loop .loop
; put 1 tile (16 bytes) into hl from sp ; put 1 tile (16 bytes) into hl from sp
rept 7
pop de pop de
ld [hl], e ld [hl], e
inc l inc l
ld [hl], d ld [hl], d
inc l inc l
pop de endr
ld [hl], e
inc l
ld [hl], d
inc l
pop de
ld [hl], e
inc l
ld [hl], d
inc l
pop de
ld [hl], e
inc l
ld [hl], d
inc l
pop de
ld [hl], e
inc l
ld [hl], d
inc l
pop de
ld [hl], e
inc l
ld [hl], d
inc l
pop de
ld [hl], e
inc l
ld [hl], d
inc l
pop de pop de
ld [hl], e ld [hl], e
inc l inc l