pokecrystal-board/home/handshake.asm

PrinterReceive:: ; 2057
	homecall _PrinterReceive

	ret
; 2063

AskSerial:: ; 2063
; 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
; 208a
Menu 2015-12-15 15:59:49 -08:00			`PrinterReceive:: ; 2057`
Port homecall macro 2016-05-27 07:41:59 -07:00			`homecall _PrinterReceive`
Menu 2015-12-15 15:59:49 -08:00
			`ret`
			`; 2063`

Use :: to export labels between objects. This fixes the build. 2014-02-01 17:26:39 -08:00			`AskSerial:: ; 2063`
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`
			`; 208a`