pokecrystal/home/printer.asm

PrinterReceive::
	homecall _PrinterReceive
	ret

AskSerial::
; send out a handshake while serial int is off
	ld a, [wPrinterConnectionOpen]
	bit 0, a
	ret z

; if we're still interpreting data, don't try to receive
	ld a, [wPrinterOpcode]
	and a
	ret nz

; once every 6 frames
	ld hl, wHandshakeFrameDelay
	inc [hl]
	ld a, [hl]
	cp 6
	ret c

	xor a
	ld [hl], a

	ld a, $0c
	ld [wPrinterOpcode], a

; handshake
	ld a, $88
	ldh [rSB], a

; switch to internal clock
	ld a, (0 << rSC_ON) | (1 << rSC_CLOCK)
	ldh [rSC], a

; start transfer
	ld a, (1 << rSC_ON) | (1 << rSC_CLOCK)
	ldh [rSC], a

	ret
Remove all address comments 2018-06-24 14:09:41 +00:00			`PrinterReceive::`
Port homecall macro 2016-05-27 14:41:59 +00:00			`homecall _PrinterReceive`
Menu 2015-12-15 23:59:49 +00:00			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`AskSerial::`
split serial handshake into common/handshake.asm 2013-09-09 03:53:04 +00:00			`; send out a handshake while serial int is off`
Name all printer functions 2016-05-11 21:16:03 +00:00			`ld a, [wPrinterConnectionOpen]`
split serial handshake into common/handshake.asm 2013-09-09 03:53:04 +00:00			`bit 0, a`
			`ret z`
Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00
Name all printer functions 2016-05-11 21:16:03 +00:00			`; if we're still interpreting data, don't try to receive`
			`ld a, [wPrinterOpcode]`
split serial handshake into common/handshake.asm 2013-09-09 03:53:04 +00:00			`and a`
			`ret nz`
Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00
split serial handshake into common/handshake.asm 2013-09-09 03:53:04 +00:00			`; once every 6 frames`
Name all printer functions 2016-05-11 21:16:03 +00:00			`ld hl, wHandshakeFrameDelay`
split serial handshake into common/handshake.asm 2013-09-09 03:53:04 +00:00			`inc [hl]`
			`ld a, [hl]`
			`cp 6`
			`ret c`
Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00
split serial handshake into common/handshake.asm 2013-09-09 03:53:04 +00:00			`xor a`
			`ld [hl], a`
Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00
Harmonize some more symbols with pokegold 2020-06-16 15:28:52 +00:00			`ld a, $0c`
Name all printer functions 2016-05-11 21:16:03 +00:00			`ld [wPrinterOpcode], a`
Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00
split serial handshake into common/handshake.asm 2013-09-09 03:53:04 +00:00			`; handshake`
			`ld a, $88`
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 [rSB], a`
Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00
split serial handshake into common/handshake.asm 2013-09-09 03:53:04 +00:00			`; switch to internal clock`
Fix usage of rIE and rSC constants 2019-05-05 16:14:46 +00:00			`ld a, (0 << rSC_ON) \| (1 << rSC_CLOCK)`
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 [rSC], a`
Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00
split serial handshake into common/handshake.asm 2013-09-09 03:53:04 +00:00			`; start transfer`
Fix usage of rIE and rSC constants 2019-05-05 16:14:46 +00:00			`ld a, (1 << rSC_ON) \| (1 << rSC_CLOCK)`
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 [rSC], a`
Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00
split serial handshake into common/handshake.asm 2013-09-09 03:53:04 +00:00			`ret`