pokecrystal/engine/events/print_unown_2.asm

RotateUnownFrontpic:
; something to do with Unown printer
	push de
	xor a ; BANK(sScratch)
	call OpenSRAM
	ld hl, sScratch
	ld bc, 0
.loop
	push bc
	push hl
	push bc
	ld de, wd002
	call .Copy
	call .Rotate
	ld hl, UnownPrinter_GBPrinterRectangle
	pop bc
	add hl, bc
	add hl, bc
	ld a, [hli]
	ld e, a
	ld d, [hl]
	ld hl, wd012
	call .Copy
	pop hl
	ld bc, $10
	add hl, bc
	pop bc
	inc c
	ld a, c
	cp 7 * 7
	jr c, .loop

	ld hl, wGameboyPrinter2bppSource
	ld de, sScratch
	ld bc, 7 * 7 tiles
	call CopyBytes
	pop hl
	ld de, sScratch
	ld c, 7 * 7
	ldh a, [hROMBank]
	ld b, a
	call Get2bpp
	call CloseSRAM
	ret

.Copy:
	ld c, $10
.loop_copy
	ld a, [hli]
	ld [de], a
	inc de
	dec c
	jr nz, .loop_copy
	ret

.Rotate:
	ld hl, wd012
	ld e, %10000000
	ld d, 8
.loop_decompress
	push hl
	ld hl, wd002
	call .CountSetBit
	pop hl
	ld a, b
	ld [hli], a
	push hl
	ld hl, wd003
	call .CountSetBit
	pop hl
	ld a, b
	ld [hli], a
	srl e
	dec d
	jr nz, .loop_decompress
	ret

.CountSetBit:
	ld b, 0
	ld c, 8
.loop_count
	ld a, [hli]
	and e
	jr z, .clear
	scf
	jr .apply

.clear
	and a

.apply
	rr b
	inc hl
	dec c
	jr nz, .loop_count
	ret

gbprinterrect: MACRO
y = 0
rept \1
x = \1 * (\2 - 1) + y
rept \2
	dw wGameboyPrinter2bppSource tile x
x = x - \2
endr
y = y + 1
endr
ENDM

UnownPrinter_GBPrinterRectangle:
	gbprinterrect 7, 7
Remove all address comments 2018-06-24 14:09:41 +00:00			`RotateUnownFrontpic:`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`; something to do with Unown printer`
			`push de`
More miscellaneous fixes (see #709) 2020-04-17 14:52:59 +00:00			`xor a ; BANK(sScratch)`
Harmonize engine/{movie, pokemon} with pokegold (renames GetSRAMBank to OpenSRAM) To do: engine/{menus, overworld} 2020-06-17 21:03:38 +00:00			`call OpenSRAM`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`ld hl, sScratch`
			`ld bc, 0`
			`.loop`
			`push bc`
			`push hl`
			`push bc`
			`ld de, wd002`
			`call .Copy`
			`call .Rotate`
Relabel some map-related WRAM wMisc -> {wSurroundingTiles, wBoxPartialData, wLink_c608} wOverworldMap -> {wOverworldMapBlocks, wHallOfFamePokemonList} 2018-03-19 15:36:14 +00:00			`ld hl, UnownPrinter_GBPrinterRectangle`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`pop bc`
			`add hl, bc`
			`add hl, bc`
			`ld a, [hli]`
			`ld e, a`
			`ld d, [hl]`
			`ld hl, wd012`
			`call .Copy`
			`pop hl`
			`ld bc, $10`
			`add hl, bc`
			`pop bc`
			`inc c`
			`ld a, c`
			`cp 7 * 7`
			`jr c, .loop`

Comment, remove, or revise many unreferenced labels 2020-10-26 19:45:57 +00:00			`ld hl, wGameboyPrinter2bppSource`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`ld de, sScratch`
			`ld bc, 7 * 7 tiles`
			`call CopyBytes`
			`pop hl`
			`ld de, sScratch`
			`ld c, 7 * 7`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh a, [hROMBank]`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`ld b, a`
			`call Get2bpp`
			`call CloseSRAM`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.Copy:`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`ld c, $10`
			`.loop_copy`
			`ld a, [hli]`
			`ld [de], a`
			`inc de`
			`dec c`
			`jr nz, .loop_copy`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.Rotate:`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`ld hl, wd012`
			`ld e, %10000000`
			`ld d, 8`
			`.loop_decompress`
			`push hl`
			`ld hl, wd002`
			`call .CountSetBit`
			`pop hl`
			`ld a, b`
			`ld [hli], a`
			`push hl`
			`ld hl, wd003`
			`call .CountSetBit`
			`pop hl`
			`ld a, b`
			`ld [hli], a`
			`srl e`
			`dec d`
			`jr nz, .loop_decompress`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.CountSetBit:`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`ld b, 0`
			`ld c, 8`
			`.loop_count`
			`ld a, [hli]`
			`and e`
			`jr z, .clear`
			`scf`
			`jr .apply`

			`.clear`
			`and a`

			`.apply`
			`rr b`
			`inc hl`
			`dec c`
			`jr nz, .loop_count`
			`ret`

Relabel some map-related WRAM wMisc -> {wSurroundingTiles, wBoxPartialData, wLink_c608} wOverworldMap -> {wOverworldMapBlocks, wHallOfFamePokemonList} 2018-03-19 15:36:14 +00:00			`gbprinterrect: MACRO`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`y = 0`
			`rept \1`
rgbds supports 'X - 1' instead of 'X + -1' 2020-03-21 18:01:05 +00:00			`x = \1 * (\2 - 1) + y`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`rept \2`
Comment, remove, or revise many unreferenced labels 2020-10-26 19:45:57 +00:00			`dw wGameboyPrinter2bppSource tile x`
rgbds supports 'X - 1' instead of 'X + -1' 2020-03-21 18:01:05 +00:00			`x = x - \2`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`endr`
			`y = y + 1`
			`endr`
endm -> ENDM 2017-12-28 21:31:16 +00:00			`ENDM`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00
Remove all address comments 2018-06-24 14:09:41 +00:00			`UnownPrinter_GBPrinterRectangle:`
Relabel some map-related WRAM wMisc -> {wSurroundingTiles, wBoxPartialData, wLink_c608} wOverworldMap -> {wOverworldMapBlocks, wHallOfFamePokemonList} 2018-03-19 15:36:14 +00:00			`gbprinterrect 7, 7`