pokecrystal-board/home/handshake.asm

AskSerial:: ; 2063
; send out a handshake while serial int is off
	ld a, [$c2d4]
	bit 0, a
	ret z
	
	ld a, [$c2d5]
	and a
	ret nz
	
; once every 6 frames
	ld hl, $ca8a
	inc [hl]
	ld a, [hl]
	cp 6
	ret c
	
	xor a
	ld [hl], a
	
	ld a, $c
	ld [$c2d5], 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
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`
			`ld a, [$c2d4]`
			`bit 0, a`
			`ret z`

			`ld a, [$c2d5]`
			`and a`
			`ret nz`

			`; once every 6 frames`
			`ld hl, $ca8a`
			`inc [hl]`
			`ld a, [hl]`
			`cp 6`
			`ret c`

			`xor a`
			`ld [hl], a`

			`ld a, $c`
			`ld [$c2d5], 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`