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, wPrintedUnownTileSource
	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, wPrintedUnownTileDest
	call .Copy
	pop hl
	ld bc, LEN_2BPP_TILE
	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, LEN_2BPP_TILE
.loop_copy
	ld a, [hli]
	ld [de], a
	inc de
	dec c
	jr nz, .loop_copy
	ret

.Rotate:
	ld hl, wPrintedUnownTileDest
	ld e, %10000000
	ld d, 8
.loop_decompress
	push hl
	ld hl, wPrintedUnownTileSource
	call .CountSetBit
	pop hl
	ld a, b
	ld [hli], a
	push hl
	ld hl, wPrintedUnownTileSource + 1
	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

UnownPrinter_GBPrinterRectangle:
for y, 7
for x, 7 - 1, -1, -1
	dw wGameboyPrinter2bppSource tile (x * 7 + y)
endr
endr
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`
Identify more WRAM labels, and start a <X>_DummyFunction label convention 2020-10-28 17:35:39 +00:00			`ld de, wPrintedUnownTileSource`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`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]`
Identify more WRAM labels, and start a <X>_DummyFunction label convention 2020-10-28 17:35:39 +00:00			`ld hl, wPrintedUnownTileDest`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`call .Copy`
			`pop hl`
Identify more WRAM labels, and start a <X>_DummyFunction label convention 2020-10-28 17:35:39 +00:00			`ld bc, LEN_2BPP_TILE`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`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:`
Identify more WRAM labels, and start a <X>_DummyFunction label convention 2020-10-28 17:35:39 +00:00			`ld c, LEN_2BPP_TILE`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`.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:`
Identify more WRAM labels, and start a <X>_DummyFunction label convention 2020-10-28 17:35:39 +00:00			`ld hl, wPrintedUnownTileDest`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`ld e, %10000000`
			`ld d, 8`
			`.loop_decompress`
			`push hl`
Identify more WRAM labels, and start a <X>_DummyFunction label convention 2020-10-28 17:35:39 +00:00			`ld hl, wPrintedUnownTileSource`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`call .CountSetBit`
			`pop hl`
			`ld a, b`
			`ld [hli], a`
			`push hl`
Identify the remaining (non-mobile) uses of another WRAM union 2020-10-29 18:45:40 +00:00			`ld hl, wPrintedUnownTileSource + 1`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`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`

Use rgbds 0.5.0 2021-04-19 20:31:37 +00:00			`UnownPrinter_GBPrinterRectangle:`
			`for y, 7`
			`for x, 7 - 1, -1, -1`
			`dw wGameboyPrinter2bppSource tile (x * 7 + y)`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`endr`
			`endr`