Add engine/printer/printer.asm

2 files changed, 927 insertions, 13 deletions

diff --git a/engine/printer/printer.asm b/engine/printer/printer.asm
new file mode 100755
index 00000000..df8ca355
--- /dev/null
+++ b/engine/printer/printer.asm
@@ -0,0 +1,918 @@
+SendScreenToPrinter:
+.loop
+	call JoyTextDelay
+	call CheckCancelPrint
+	jr c, .cancel
+	ld a, [wJumptableIndex]
+	bit 7, a
+	jr nz, .finished
+	call PrinterJumptableIteration
+	call CheckPrinterStatus
+	call PlacePrinterStatusString
+	call DelayFrame
+	jr .loop
+
+.finished
+	and a
+	ret
+
+.cancel
+	scf
+	ret
+
+Printer_CleanUpAfterSend:
+	xor a
+	ld [wPrinterConnectionOpen], a
+	ld [wPrinterOpcode], a
+	ret
+
+Printer_PrepareTilemapForPrint:
+	push af
+	call Printer_StartTransmission
+	pop af
+	ld [wPrinterMargins], a
+	call Printer_CopyTilemapToBuffer
+	ret
+
+Printer_ExitPrinter:
+	call ReturnToMapFromSubmenu
+	call Printer_RestartMapMusic
+	ret
+
+PrintDexEntry:
+	ld a, [wPrinterQueueLength]
+	push af
+
+	ld hl, vTiles1
+	ld de, FontInversed
+	lb bc, BANK(FontInversed), $80
+	call Request1bpp
+
+	xor a
+	ldh [hPrinter], a
+	call Printer_PlayMusic
+
+	ldh a, [rIE]
+	push af
+	xor a
+	ldh [rIF], a
+	ld a, (1 << SERIAL) | (1 << VBLANK)
+	ldh [rIE], a
+
+	call Printer_StartTransmission
+	ln a, 1, 0
+	ld [wPrinterMargins], a
+	farcall PrintPage1
+	call ClearTilemap
+	ld a, %11100100
+	call DmgToCgbBGPals
+	call DelayFrame
+
+	ld hl, hVBlank
+	ld a, [hl]
+	push af
+	ld [hl], $4
+
+	ld a, 8 ; 16 rows
+	ld [wPrinterQueueLength], a
+	call Printer_ResetJoypadRegisters
+	call SendScreenToPrinter
+	jr c, .skip_second_page ; canceled or got an error
+
+	call Printer_CleanUpAfterSend
+	ld c, 12
+	call DelayFrames
+	xor a
+	ldh [hBGMapMode], a
+
+	call Printer_StartTransmission
+	ln a, 0, 3
+	ld [wPrinterMargins], a
+	farcall PrintPage2
+	call Printer_ResetJoypadRegisters
+	ld a, 4
+	ld [wPrinterQueueLength], a
+	call SendScreenToPrinter
+
+.skip_second_page
+	pop af
+	ldh [hVBlank], a
+	call Printer_CleanUpAfterSend
+
+	xor a
+	ldh [rIF], a
+	pop af
+	ldh [rIE], a
+
+	call Printer_ExitPrinter
+	ld c, 8
+.low_volume_delay_frames
+	call LowVolume
+	call DelayFrame
+	dec c
+	jr nz, .low_volume_delay_frames
+
+	pop af
+	ld [wPrinterQueueLength], a
+	ret
+
+PrintPCBox:
+	ld a, [wPrinterQueueLength]
+	push af
+	ld a, 18 / 2
+	ld [wPrinterQueueLength], a
+
+	ld a, e
+	ld [wAddrOfBoxToPrint], a
+	ld a, d
+	ld [wAddrOfBoxToPrint + 1], a
+	ld a, b
+	ld [wBankOfBoxToPrint], a
+	ld a, c
+	ld [wWhichBoxToPrint], a
+
+	xor a
+	ldh [hPrinter], a
+	ld [wFinishedPrintingBox], a
+	call Printer_PlayMusic
+
+	ldh a, [rIE]
+	push af
+	xor a
+	ldh [rIF], a
+	ld a, (1 << SERIAL) | (1 << VBLANK)
+	ldh [rIE], a
+
+	ld hl, hVBlank
+	ld a, [hl]
+	push af
+	ld [hl], $4
+
+	xor a
+	ldh [hBGMapMode], a
+	call PrintPCBox_Page1
+	ln a, 1, 0 ; to be loaded to wPrinterMargins
+	call Printer_PrepareTilemapForPrint
+	call Printer_ResetRegistersAndStartDataSend
+	jr c, .cancel
+
+	call Printer_CleanUpAfterSend
+	ld c, 12
+	call DelayFrames
+	xor a
+	ldh [hBGMapMode], a
+	call PrintPCBox_Page2
+	ln a, 0, 0 ; to be loaded to wPrinterMargins
+	call Printer_PrepareTilemapForPrint
+	call Printer_ResetRegistersAndStartDataSend
+	jr c, .cancel
+
+	call Printer_CleanUpAfterSend
+	ld c, 12
+	call DelayFrames
+
+	xor a
+	ldh [hBGMapMode], a
+	call PrintPCBox_Page3
+	ln a, 0, 0 ; to be loaded to wPrinterMargins
+	call Printer_PrepareTilemapForPrint
+	call Printer_ResetRegistersAndStartDataSend
+	jr c, .cancel
+
+	call Printer_CleanUpAfterSend
+	ld c, 12
+	call DelayFrames
+
+	xor a
+	ldh [hBGMapMode], a
+	call PrintPCBox_Page4
+	ln a, 0, 3 ; to be loaded to wPrinterMargins
+	call Printer_PrepareTilemapForPrint
+	call Printer_ResetRegistersAndStartDataSend
+.cancel
+	pop af
+	ldh [hVBlank], a
+	call Printer_CleanUpAfterSend
+
+	xor a
+	ldh [rIF], a
+	pop af
+	ldh [rIE], a
+	call Printer_ExitPrinter
+
+	pop af
+	ld [wPrinterQueueLength], a
+	ret
+
+Printer_ResetRegistersAndStartDataSend:
+	call Printer_ResetJoypadRegisters
+	call SendScreenToPrinter
+	ret
+
+PrintUnownStamp:
+	ld a, [wPrinterQueueLength]
+	push af
+	xor a
+	ldh [hPrinter], a
+	call Printer_PlayMusic
+	ldh a, [rIE]
+	push af
+	xor a
+	ldh [rIF], a
+	ld a, (1 << SERIAL) | (1 << VBLANK)
+	ldh [rIE], a
+	ld hl, hVBlank
+	ld a, [hl]
+	push af
+	ld [hl], $4
+	xor a
+	ldh [hBGMapMode], a
+	call LoadTilemapToTempTilemap
+	farcall PlaceUnownPrinterFrontpic
+	ln a, 0, 0 ; to be loaded to wPrinterMargins
+	call Printer_PrepareTilemapForPrint
+	call SafeLoadTempTilemapToTilemap
+	call Printer_ResetJoypadRegisters
+	ld a, 18 / 2
+	ld [wPrinterQueueLength], a
+.loop
+	call JoyTextDelay
+	call CheckCancelPrint
+	jr c, .done
+	ld a, [wJumptableIndex]
+	bit 7, a
+	jr nz, .done
+	call PrinterJumptableIteration
+	ld a, [wJumptableIndex]
+	cp $2
+	jr nc, .check_status
+	ld a, 6 / 2
+	ld [wPrinterRowIndex], a
+
+.check_status
+	call CheckPrinterStatus
+	call PlacePrinterStatusString
+	call DelayFrame
+	jr .loop
+
+.done
+	pop af
+	ldh [hVBlank], a
+	call Printer_CleanUpAfterSend
+	call SafeLoadTempTilemapToTilemap
+	xor a
+	ldh [rIF], a
+	pop af
+	ldh [rIE], a
+	pop af
+	ld [wPrinterQueueLength], a
+	ret
+
+PrintMailAndExit:
+	ld a, [wPrinterQueueLength]
+	push af
+	xor a
+	ldh [hPrinter], a
+	call Printer_PlayMusic
+
+	ldh a, [rIE]
+	push af
+	xor a
+	ldh [rIF], a
+	ld a, (1 << SERIAL) | (1 << VBLANK)
+	ldh [rIE], a
+
+	xor a
+	ldh [hBGMapMode], a
+
+	ln a, 1, 3 ; to be loaded to wPrinterMargins
+	call Printer_PrepareTilemapForPrint
+	ld hl, hVBlank
+	ld a, [hl]
+	push af
+	ld [hl], 4
+
+	ld a, 18 / 2
+	ld [wPrinterQueueLength], a
+	call SendScreenToPrinter
+
+	pop af
+	ldh [hVBlank], a
+	call Printer_CleanUpAfterSend
+	call Printer_CopyBufferToTilemap
+
+	xor a
+	ldh [rIF], a
+	pop af
+	ldh [rIE], a
+
+	call Printer_ExitPrinter
+	pop af
+	ld [wPrinterQueueLength], a
+	ret
+
+PrintPartymon:
+	ld a, [wPrinterQueueLength]
+	push af
+	xor a
+	ldh [hPrinter], a
+	call Printer_PlayMusic
+
+	ldh a, [rIE]
+	push af
+	xor a
+	ldh [rIF], a
+	ld a, (1 << SERIAL) | (1 << VBLANK)
+	ldh [rIE], a
+
+	xor a
+	ldh [hBGMapMode], a
+	farcall PrintPartyMonPage1
+	ln a, 1, 0 ; to be loaded to wPrinterMargins
+	call Printer_PrepareTilemapForPrint
+
+	ld hl, hVBlank
+	ld a, [hl]
+	push af
+	ld [hl], 4
+
+	ld a, 16 / 2
+	ld [wPrinterQueueLength], a
+	call Printer_ResetJoypadRegisters
+	call SendScreenToPrinter
+	jr c, .cancel
+
+	call Printer_CleanUpAfterSend
+	ld c, 12
+	call DelayFrames
+
+	xor a
+	ldh [hBGMapMode], a
+	farcall PrintPartyMonPage2
+	ln a, 0, 3 ; to be loaded to wPrinterMargins
+	call Printer_PrepareTilemapForPrint
+
+	ld a, 18 / 2
+	ld [wPrinterQueueLength], a
+	call Printer_ResetJoypadRegisters
+	call SendScreenToPrinter
+.cancel
+	pop af
+	ldh [hVBlank], a
+	call Printer_CleanUpAfterSend
+
+	call Printer_CopyBufferToTilemap
+	xor a
+	ldh [rIF], a
+	pop af
+	ldh [rIE], a
+	call Printer_ExitPrinter
+
+	pop af
+	ld [wPrinterQueueLength], a
+	ret
+
+_PrintDiploma:
+	ld a, [wPrinterQueueLength]
+	push af
+
+	farcall PlaceDiplomaOnScreen
+
+	xor a
+	ldh [hPrinter], a
+	call Printer_PlayMusic
+
+	ldh a, [rIE]
+	push af
+	xor a
+	ldh [rIF], a
+	ld a, (1 << SERIAL) | (1 << VBLANK)
+	ldh [rIE], a
+
+	ld hl, hVBlank
+	ld a, [hl]
+	push af
+	ld [hl], $4
+
+	ln a, 1, 0 ; to be loaded to wPrinterMargins
+	call Printer_PrepareTilemapForPrint
+	call Printer_ResetJoypadRegisters
+
+	ld a, 18 / 2
+	ld [wPrinterQueueLength], a
+	call SendScreenToPrinter
+	jr c, .cancel
+	call Printer_CleanUpAfterSend
+	ld c, 12
+	call DelayFrames
+
+	call LoadTilemapToTempTilemap
+	xor a
+	ldh [hBGMapMode], a
+
+	farcall PrintDiplomaPage2
+
+	ln a, 0, 3 ; to be loaded to wPrinterMargins
+	call Printer_PrepareTilemapForPrint
+	call SafeLoadTempTilemapToTilemap
+	call Printer_ResetJoypadRegisters
+
+	ld a, 18 / 2
+	ld [wPrinterQueueLength], a
+	call SendScreenToPrinter
+.cancel
+	pop af
+	ldh [hVBlank], a
+	call Printer_CleanUpAfterSend
+
+	xor a
+	ldh [rIF], a
+	pop af
+	ldh [rIE], a
+	call Printer_ExitPrinter
+
+	pop af
+	ld [wPrinterQueueLength], a
+	ret
+
+CheckCancelPrint:
+	ldh a, [hJoyDown]
+	and B_BUTTON
+	jr nz, .pressed_b
+	and a
+	ret
+
+.pressed_b
+	ld a, [wc980]
+	cp $c
+	jr nz, .cancel
+.loop
+	ld a, [wPrinterOpcode]
+	and a
+	jr nz, .loop
+	ld a, $16 ; cancel
+	ld [wPrinterOpcode], a
+	ld a, $88
+	ldh [rSB], a
+	ld a, (0 << rSC_ON) | (1 << rSC_CLOCK)
+	ldh [rSC], a
+	ld a, (1 << rSC_ON) | (1 << rSC_CLOCK)
+	ldh [rSC], a
+.loop2
+	ld a, [wPrinterOpcode]
+	and a
+	jr nz, .loop2
+
+.cancel
+	ld a, $1
+	ldh [hPrinter], a
+	scf
+	ret
+
+Printer_CopyTilemapToBuffer:
+	hlcoord 0, 0
+	ld de, wPrinterTilemapBuffer
+	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
+	call CopyBytes
+	ret
+
+Printer_CopyBufferToTilemap:
+	ld hl, wPrinterTilemapBuffer
+	decoord 0, 0
+	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
+	call CopyBytes
+	ret
+
+Printer_ResetJoypadRegisters:
+	xor a
+	ldh [hJoyReleased], a
+	ldh [hJoyPressed], a
+	ldh [hJoyDown], a
+	ldh [hJoyLast], a
+	ret
+
+Printer_PlayMusic:
+	ld de, MUSIC_PRINTER
+	call PlayMusic2
+	ret
+
+Printer_RestartMapMusic:
+	call RestartMapMusic
+	ret
+
+CheckPrinterStatus:
+; Check for printer errors
+; If [ca88] == -1, we're disconnected
+	ld a, [wPrinterHandshake]
+	cp -1
+	jr nz, .printer_connected
+	ld a, [wPrinterStatusFlags]
+	cp -1
+	jr z, .error_2
+.printer_connected
+; ca89 contains printer status flags
+	ld a, [wPrinterStatusFlags]
+	and %11100000
+	ret z ; no error
+
+	bit 7, a
+	jr nz, .error_1
+	bit 6, a
+	jr nz, .error_4
+	; paper error
+	ld a, PRINTER_ERROR_3
+	jr .load_text_index
+
+.error_4
+	; temperature error
+	ld a, PRINTER_ERROR_4
+	jr .load_text_index
+
+.error_1
+	; printer battery low
+	ld a, PRINTER_ERROR_1
+	jr .load_text_index
+
+.error_2
+	; connection error
+	ld a, PRINTER_ERROR_2
+.load_text_index
+	ld [wPrinterStatus], a
+	ret
+
+PlacePrinterStatusString:
+; Print nonzero printer status
+	ld a, [wPrinterStatus]
+	and a
+	ret z
+	push af
+	xor a
+	ldh [hBGMapMode], a
+	hlcoord 0, 5
+	lb bc, 10, 18
+	call Textbox
+	pop af
+	ld e, a
+	ld d, 0
+	ld hl, PrinterStatusStringPointers
+	add hl, de
+	add hl, de
+	ld e, [hl]
+	inc hl
+	ld d, [hl]
+	hlcoord 1, 7
+	ld a, BANK(GBPrinterStrings)
+	call FarString
+	hlcoord 2, 15
+	ld de, String_PressBToCancel
+	call PlaceString
+	ld a, $1
+	ldh [hBGMapMode], a
+	xor a
+	ld [wPrinterStatus], a
+	ret
+
+Unreferenced_Function847b9:
+	ld a, [wPrinterStatus]
+	and a
+	ret z
+	push af
+	xor a
+	ldh [hBGMapMode], a
+	hlcoord 2, 4
+	lb bc, 13, 16
+	call ClearBox
+	pop af
+	ld e, a
+	ld d, 0
+	ld hl, PrinterStatusStringPointers
+	add hl, de
+	add hl, de
+	ld e, [hl]
+	inc hl
+	ld d, [hl]
+	hlcoord 4, 7
+	ld a, BANK(GBPrinterStrings)
+	call FarString
+	hlcoord 4, 15
+	ld de, String_PressBToCancel
+	call PlaceString
+	ld a, $1
+	ldh [hBGMapMode], a
+	xor a
+	ld [wPrinterStatus], a
+	ret
+
+String_PressBToCancel:
+	db "Press B to Cancel@"
+
+PrinterStatusStringPointers:
+	dw GBPrinterString_Null ; @
+	dw GBPrinterString_CheckingLink ; CHECKING LINK
+	dw GBPrinterString_Transmitting ; TRANSMITTING
+	dw GBPrinterString_Printing ; PRINTING
+	dw GBPrinterString_PrinterError1 ; error 1
+	dw GBPrinterString_PrinterError2 ; error 2
+	dw GBPrinterString_PrinterError3 ; error 3
+	dw GBPrinterString_PrinterError4 ; error 4
+
+PrintPCBox_Page1:
+	xor a
+	ld [wWhichBoxMonToPrint], a
+	hlcoord 0, 0
+	ld bc, SCREEN_HEIGHT * SCREEN_WIDTH
+	ld a, " "
+	call ByteFill
+	call Printer_PlaceEmptyBoxSlotString
+
+	hlcoord 0, 0
+	ld bc, 9 * SCREEN_WIDTH
+	ld a, " "
+	call ByteFill
+
+	call Printer_PlaceSideBorders
+	call Printer_PlaceTopBorder
+
+	hlcoord 4, 3
+	ld de, .String_PokemonList
+	call PlaceString
+
+	ld a, [wWhichBoxToPrint]
+	ld bc, BOX_NAME_LENGTH
+	ld hl, wBoxNames
+	call AddNTimes
+	ld d, h
+	ld e, l
+	hlcoord 6, 5
+	call PlaceString
+	ld a, 1
+	call Printer_GetBoxMonSpecies
+	hlcoord 2, 9
+	ld c, 3
+	call Printer_PrintBoxListSegment
+	ret
+
+.String_PokemonList:
+	db "#MON LIST@"
+
+PrintPCBox_Page2:
+	hlcoord 0, 0
+	ld bc, SCREEN_HEIGHT * SCREEN_WIDTH
+	ld a, " "
+	call ByteFill
+	call Printer_PlaceEmptyBoxSlotString
+	call Printer_PlaceSideBorders
+	ld a, [wFinishedPrintingBox]
+	and a
+	ret nz
+	ld a, 4
+	call Printer_GetBoxMonSpecies
+	hlcoord 2, 0
+	ld c, 6
+	call Printer_PrintBoxListSegment
+	ret
+
+PrintPCBox_Page3:
+	hlcoord 0, 0
+	ld bc, SCREEN_HEIGHT * SCREEN_WIDTH
+	ld a, " "
+	call ByteFill
+	call Printer_PlaceEmptyBoxSlotString
+	call Printer_PlaceSideBorders
+	ld a, [wFinishedPrintingBox]
+	and a
+	ret nz
+	ld a, 10
+	call Printer_GetBoxMonSpecies
+	hlcoord 2, 0
+	ld c, 6
+	call Printer_PrintBoxListSegment
+	ret
+
+PrintPCBox_Page4:
+	hlcoord 0, 0
+	ld bc, SCREEN_HEIGHT * SCREEN_WIDTH
+	ld a, " "
+	call ByteFill
+	call Printer_PlaceEmptyBoxSlotString
+	hlcoord 1, 15
+	lb bc, 2, 18
+	call ClearBox
+	call Printer_PlaceSideBorders
+	call Printer_PlaceBottomBorders
+	ld a, [wFinishedPrintingBox]
+	and a
+	ret nz
+	ld a, 16
+	call Printer_GetBoxMonSpecies
+	hlcoord 2, 0
+	ld c, 5
+	call Printer_PrintBoxListSegment
+	ret
+
+Printer_PrintBoxListSegment:
+	ld a, [wBankOfBoxToPrint]
+	call OpenSRAM
+.loop
+	ld a, c
+	and a
+	jp z, .max_length
+	dec c
+	ld a, [de]
+	cp $ff
+	jp z, .finish
+	ld [wNamedObjectIndexBuffer], a
+	ld [wCurPartySpecies], a
+
+	push bc
+	push hl
+	push de
+
+	push hl
+	ld bc, 16
+	ld a, " "
+	call ByteFill
+	pop hl
+
+	push hl
+	call GetBasePokemonName
+	pop hl
+
+	push hl
+	call PlaceString
+	ld a, [wCurPartySpecies]
+	cp EGG
+	pop hl
+	jr z, .ok2
+
+	ld bc, MON_NAME_LENGTH
+	add hl, bc
+	call Printer_GetMonGender
+	ld bc, SCREEN_WIDTH - MON_NAME_LENGTH
+	add hl, bc
+	ld a, "/"
+	ld [hli], a
+
+	push hl
+	ld bc, 14
+	ld a, " "
+	call ByteFill
+	pop hl
+
+	push hl
+	ld a, [wAddrOfBoxToPrint]
+	ld l, a
+	ld a, [wAddrOfBoxToPrint + 1]
+	ld h, a
+	ld bc, sBoxMonNicknames - sBox
+	add hl, bc
+	ld bc, MON_NAME_LENGTH
+	ld a, [wWhichBoxMonToPrint]
+	call AddNTimes
+	ld e, l
+	ld d, h
+	pop hl
+
+	push hl
+	call PlaceString
+	pop hl
+
+	ld bc, MON_NAME_LENGTH
+	add hl, bc
+	push hl
+	ld a, [wAddrOfBoxToPrint]
+	ld l, a
+	ld a, [wAddrOfBoxToPrint + 1]
+	ld h, a
+	ld bc, 2 + MONS_PER_BOX + MON_LEVEL
+	add hl, bc
+	ld bc, BOXMON_STRUCT_LENGTH
+	ld a, [wWhichBoxMonToPrint]
+	call AddNTimes
+	ld a, [hl]
+	pop hl
+	call PrintLevel_Force3Digits
+.ok2
+	ld hl, wWhichBoxMonToPrint
+	inc [hl]
+	pop de
+	pop hl
+	ld bc, 3 * SCREEN_WIDTH
+	add hl, bc
+	pop bc
+	inc de
+	jp .loop
+
+.finish
+	ld a, $1
+	ld [wFinishedPrintingBox], a
+.max_length
+	call CloseSRAM
+	ret
+
+Printer_GetMonGender:
+	push hl
+	ld a, [wAddrOfBoxToPrint]
+	ld l, a
+	ld a, [wAddrOfBoxToPrint + 1]
+	ld h, a
+	ld bc, 2 + MONS_PER_BOX + MON_DVS
+	add hl, bc
+	ld bc, BOXMON_STRUCT_LENGTH
+	ld a, [wWhichBoxMonToPrint]
+	call AddNTimes
+	ld de, wTempMonDVs
+	ld a, [hli]
+	ld [de], a
+	inc de
+	ld a, [hli]
+	ld [de], a
+	ld a, [wWhichBoxMonToPrint]
+	ld [wCurPartyMon], a
+	ld a, TEMPMON
+	ld [wMonType], a
+	farcall GetGender
+	ld a, " "
+	jr c, .got_gender
+	ld a, "♂"
+	jr nz, .got_gender
+	ld a, "♀"
+.got_gender
+	pop hl
+	ld [hli], a
+	ret
+
+Printer_GetBoxMonSpecies:
+	push hl
+	ld e, a
+	ld d, $0
+	ld a, [wAddrOfBoxToPrint]
+	ld l, a
+	ld a, [wAddrOfBoxToPrint + 1]
+	ld h, a
+	add hl, de
+	ld e, l
+	ld d, h
+	pop hl
+	ret
+
+Printer_PlaceTopBorder:
+	hlcoord 0, 0
+	ld a, "┌"
+	ld [hli], a
+	ld a, "─"
+	ld c, SCREEN_WIDTH - 2
+.loop
+	ld [hli], a
+	dec c
+	jr nz, .loop
+	ld a, "┐"
+	ld [hl], a
+	ret
+
+Printer_PlaceSideBorders:
+	hlcoord 0, 0
+	ld de, SCREEN_WIDTH - 1
+	ld c, SCREEN_HEIGHT
+.loop
+	ld a, "│"
+	ld [hl], a
+	add hl, de
+	ld a, "│"
+	ld [hli], a
+	dec c
+	jr nz, .loop
+	ret
+
+Printer_PlaceBottomBorders:
+	hlcoord 0, 17
+	ld a, "└"
+	ld [hli], a
+	ld a, "─"
+	ld c, SCREEN_WIDTH - 2
+.loop
+	ld [hli], a
+	dec c
+	jr nz, .loop
+	ld a, "┘"
+	ld [hl], a
+	ret
+
+Printer_PlaceEmptyBoxSlotString:
+	hlcoord 2, 0
+	ld c, 6
+.loop
+	push bc
+	push hl
+	ld de, String84a21
+	call PlaceString
+	pop hl
+	ld bc, 3 * SCREEN_WIDTH
+	add hl, bc
+	pop bc
+	dec c
+	jr nz, .loop
+	ret
+
+String84a21:
+	db "  ------@"
diff --git a/main.asm b/main.asm
index 3bd144c3..e89ec4c2 100644
--- a/main.asm
+++ b/main.asm
@@ -223,19 +223,10 @@ SECTION "bank21", ROMX
 
 
 INCLUDE "engine/printer/printer_serial.asm"
+INCLUDE "engine/printer/printer.asm"
 
-SendScreenToPrinter::
-	dr $843f0, $8442c
-PrintDexEntry::
-	dr $8442c, $84560
-PrintUnownStamp::
-	dr $84560, $845d4
-PrintMailAndExit::
-	dr $845d4, $84616
-PrintPartymon::
-	dr $84616, $84684
-_PrintDiploma::
-	dr $84684, $8640a
+AnimObj00GFX:
+	dr $84a2a, $8640a
 
 HallOfFame::
 	dr $8640a, $86446
@@ -243,6 +234,7 @@ RedCredits::
 	dr $86446, $86632
 _HallOfFamePC::
 	dr $86632, $87b65
+
 INCLUDE "data/credits_strings_pointers.asm"
 
 
@@ -443,7 +435,11 @@ SECTION "bank38", ROMX
 	ret
 	ret
 _Diploma::
-	dr $e0002, $e081b
+	dr $e0002, $e0009
+PlaceDiplomaOnScreen::
+	dr $e0009, $e00ae
+PrintDiplomaPage2::
+	dr $e00ae, $e081b
 RotateUnownFrontpic::
 	dr $e081b, $e0909
 _CardFlip::