pokecrystal-board/home/handshake.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, 12
	ld [wPrinterOpcode], a

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

; switch to internal clock
	ld a, %00000001
	ld [rSC], a

; start transfer
	ld a, %10000001
	ld [rSC], a

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

Remove all address comments 2018-06-24 07:09:41 -07:00			`AskSerial::`
split serial handshake into common/handshake.asm 2013-09-08 20:53:04 -07:00			`; send out a handshake while serial int is off`
Name all printer functions 2016-05-11 14:16:03 -07:00			`ld a, [wPrinterConnectionOpen]`
split serial handshake into common/handshake.asm 2013-09-08 20:53:04 -07: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 11:42:14 -07:00
Name all printer functions 2016-05-11 14:16:03 -07:00			`; if we're still interpreting data, don't try to receive`
			`ld a, [wPrinterOpcode]`
split serial handshake into common/handshake.asm 2013-09-08 20:53:04 -07: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 11:42:14 -07:00
split serial handshake into common/handshake.asm 2013-09-08 20:53:04 -07:00			`; once every 6 frames`
Name all printer functions 2016-05-11 14:16:03 -07:00			`ld hl, wHandshakeFrameDelay`
split serial handshake into common/handshake.asm 2013-09-08 20:53:04 -07: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 11:42:14 -07:00
split serial handshake into common/handshake.asm 2013-09-08 20:53:04 -07: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 11:42:14 -07:00
Name all printer functions 2016-05-11 14:16:03 -07:00			`ld a, 12`
			`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 11:42:14 -07:00
split serial handshake into common/handshake.asm 2013-09-08 20:53:04 -07:00			`; handshake`
			`ld a, $88`
			`ld [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 11:42:14 -07:00
split serial handshake into common/handshake.asm 2013-09-08 20:53:04 -07:00			`; switch to internal clock`
			`ld a, %00000001`
			`ld [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 11:42:14 -07:00
split serial handshake into common/handshake.asm 2013-09-08 20:53:04 -07:00			`; start transfer`
			`ld a, %10000001`
			`ld [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 11:42:14 -07:00
split serial handshake into common/handshake.asm 2013-09-08 20:53:04 -07:00			`ret`