pokecrystal/home/handshake.asm

PrinterReceive:: ; 2057
	ld a, [hROMBank]
	push af
	ld a, BANK(_PrinterReceive)
	rst Bankswitch

	call _PrinterReceive
	pop af
	rst Bankswitch

	ret
; 2063

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

	ld a, [wc2d5]
	and a
	ret nz

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

	xor a
	ld [hl], a

	ld a, $c
	ld [wc2d5], 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 23:59:49 +00:00			`PrinterReceive:: ; 2057`
			`ld a, [hROMBank]`
			`push af`
			`ld a, BANK(_PrinterReceive)`
			`rst Bankswitch`

			`call _PrinterReceive`
			`pop af`
			`rst Bankswitch`

			`ret`
			`; 2063`

Use :: to export labels between objects. This fixes the build. 2014-02-02 01:26:39 +00:00			`AskSerial:: ; 2063`
split serial handshake into common/handshake.asm 2013-09-09 03:53:04 +00:00			`; send out a handshake while serial int is off`
Blind wram labels part 4. 2015-02-10 23:14:41 +00:00			`ld a, [wc2d4]`
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
Blind wram labels part 4. 2015-02-10 23:14:41 +00:00			`ld a, [wc2d5]`
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`
Blind wram labels part 4. 2015-02-10 23:14:41 +00:00			`ld hl, wca8a`
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
split serial handshake into common/handshake.asm 2013-09-09 03:53:04 +00:00			`ld a, $c`
Blind wram labels part 4. 2015-02-10 23:14:41 +00:00			`ld [wc2d5], 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`
			`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 18:42:14 +00:00
split serial handshake into common/handshake.asm 2013-09-09 03:53:04 +00: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 18:42:14 +00:00
split serial handshake into common/handshake.asm 2013-09-09 03:53:04 +00: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 18:42:14 +00:00
split serial handshake into common/handshake.asm 2013-09-09 03:53:04 +00:00			`ret`
			`; 208a`