First Commit

Upload literally everything from the pokecrystal16 expand-move-ID branch

engine/events/print_unown_2.asm

@@ -0,0 +1,103 @@
+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