Serial::
	push af
	push bc
	push de
	push hl

	ld a, [wc2d4]
	bit 0, a
	jr nz, .printer

	ld a, [hSerialConnectionStatus]
	inc a
	jr z, .connectionNotYetEstablished

	ld a, [rSB]
	ld [hSerialReceive], a

	ld a, [hSerialSend]
	ld [rSB], a

	ld a, [hSerialConnectionStatus]
	cp USING_INTERNAL_CLOCK
	jr z, .done

; using external clock
	ld a, 0 << rSC_ON
	ld [rSC], a ; pointless
	ld a, START_TRANSFER_EXTERNAL_CLOCK
	ld [rSC], a
	jr .done

.connectionNotYetEstablished
	ld a, [rSB]
	cp 1
	jr z, .continue
	cp USING_INTERNAL_CLOCK
	jr nz, .done

.continue
	ld [hSerialReceive], a
	ld [hSerialConnectionStatus], a
	cp USING_INTERNAL_CLOCK
	jr z, .usingInternalClock

; using external clock
	xor a
	ld [rSB], a
	ld a, 3
	ld [rDIV], a

.wait
	ld a, [rDIV]
	bit 7, a
	jr nz, .wait

	ld a, 0 << rSC_ON
	ld [rSC], a
	ld a, START_TRANSFER_EXTERNAL_CLOCK
	ld [rSC], a
	jr .done

.printer
	call PrinterReceive
	jr .end

.usingInternalClock
	xor a
	ld [rSB], a

.done
	ld a, 1
	ld [hSerialReceivedNewData], a
	ld a, SERIAL_NO_DATA_BYTE
	ld [hSerialSend], a

.end
	pop hl
	pop de
	pop bc
	pop af
	reti

; hl = send data
; de = receive data
; bc = length of data
Serial_ExchangeBytes::
	ld a, 1
	ld [hSerialIgnoringInitialData], a
.loop
	ld a, [hl]
	ld [hSerialSend], a
	call Serial_ExchangeByte
	push bc
	ld b, a
	inc hl
	ld a, 48
.wait
	dec a
	jr nz, .wait
	ld a, [hSerialIgnoringInitialData]
	and a
	ld a, b
	pop bc
	jr z, .storeReceivedByte

	dec hl
	cp SERIAL_PREAMBLE_BYTE
	jr nz, .loop
	xor a
	ld [hSerialIgnoringInitialData], a
	jr .loop

.storeReceivedByte
	ld [de], a
	inc de
	dec bc
	ld a, b
	or c
	jr nz, .loop
	ret

Serial_ExchangeByte::
	xor a
	ld [hSerialReceivedNewData], a
	ld a, [hSerialConnectionStatus]
	cp USING_INTERNAL_CLOCK
	jr nz, .loop
	ld a, 2
	ld [rSC], a
	ld a, START_TRANSFER_INTERNAL_CLOCK
	ld [rSC], a

.loop
	ld a, [hSerialReceivedNewData]
	and a
	jr nz, .ok
	ld a, [hSerialConnectionStatus]
	cp 1
	jr nz, .doNotIncrementTimeoutCounter
	call IsTimeoutCounterZero
	jr z, .doNotIncrementTimeoutCounter
	call .waitLoop15Iterations
	push hl
	ld hl, wLinkTimeoutFrames + 1
	inc [hl]
	jr nz, .noCarry
	dec hl
	inc [hl]

.noCarry
	pop hl
	call IsTimeoutCounterZero
	jr nz, .loop
	jp SetTimeoutCounterToFFFF

.doNotIncrementTimeoutCounter
	ld a, [rIE]
	and $f
	cp $8
	jr nz, .loop
	ld a, [wLinkTimeoutFrames2]
	dec a
	ld [wLinkTimeoutFrames2], a
	jr nz, .loop
	ld a, [wLinkTimeoutFrames2 + 1]
	dec a
	ld [wLinkTimeoutFrames2 + 1], a
	jr nz, .loop
	ld a, [hSerialConnectionStatus]
	cp USING_EXTERNAL_CLOCK
	jr z, .ok
	ld a, $ff
.wait
	dec a
	jr nz, .wait

.ok
	xor a
	ld [hSerialReceivedNewData], a
	ld a, [rIE]
	and $f
	sub $8
	jr nz, .skipReloadingTimeoutCounter2
	ld [wLinkTimeoutFrames2], a
	ld a, $50
	ld [wLinkTimeoutFrames2 + 1], a

.skipReloadingTimeoutCounter2
	ld a, [hSerialReceive]
	cp SERIAL_NO_DATA_BYTE
	ret nz
	call IsTimeoutCounterZero
	jr z, .done
	push hl
	ld hl, wLinkTimeoutFrames + 1
	ld a, [hl]
	dec a
	ld [hld], a
	inc a
	jr nz, .noBorrow
	dec [hl]

.noBorrow
	pop hl
	call IsTimeoutCounterZero
	jr z, SetTimeoutCounterToFFFF

.done
	ld a, [rIE]
	and $f
	cp $8
	ld a, $fe
	ret z
	ld a, [hl]
	ld [hSerialSend], a
	call DelayFrame
	jp Serial_ExchangeByte
.waitLoop15Iterations
	ld a, 15
.waitLoop
	dec a
	jr nz, .waitLoop
	ret

IsTimeoutCounterZero::
	push hl
	ld hl, wLinkTimeoutFrames
	ld a, [hli]
	or [hl]
	pop hl
	ret

; a is always 0 when this is called
SetTimeoutCounterToFFFF::
	dec a
	ld [wLinkTimeoutFrames], a
	ld [wLinkTimeoutFrames + 1], a
	ret

; This is used to exchange the button press and selected menu item on the link menu.
; The data is sent thrice and read twice to increase reliability.
Serial_ExchangeLinkMenuSelection::
	ld hl, wPlayerLinkAction
	ld de, wOtherPlayerLinkMode
	ld c, 2
	ld a, 1
	ld [hSerialIgnoringInitialData], a
.loop
	call DelayFrame
	ld a, [hl]
	ld [hSerialSend], a
	call Serial_ExchangeByte
	ld b, a
	inc hl
	ld a, [hSerialIgnoringInitialData]
	and a
	ld a, 0
	ld [hSerialIgnoringInitialData], a
	jr nz, .loop
	ld a, b
	ld [de], a
	inc de
	dec c
	jr nz, .loop
	ret

Serial_PrintWaitingTextAndSyncAndExchangeNybble::
	call LoadTileMapToTempTileMap
	callba PlaceWaitingText
	call Serial_SyncAndExchangeNybble
	jp Call_LoadTempTileMapToTileMap

Serial_SyncAndExchangeNybble::
	ld a, $ff
	ld [wOtherPlayerLinkAction], a
.loop
	call LinkTransfer
	call DelayFrame
	call IsTimeoutCounterZero
	jr z, .check
	push hl
	ld hl, wLinkTimeoutFrames + 1
	dec [hl]
	jr nz, .skip
	dec hl
	dec [hl]
	jr nz, .skip
	pop hl
	xor a
	jp SetTimeoutCounterToFFFF

.skip
	pop hl

.check
	ld a, [wOtherPlayerLinkAction]
	inc a
	jr z, .loop

	ld b, 10
.receive
	call DelayFrame
	call LinkTransfer
	dec b
	jr nz, .receive

	ld b, 10
.acknowledge
	call DelayFrame
	call LinkDataReceived
	dec b
	jr nz, .acknowledge

	ld a, [wOtherPlayerLinkAction]
	ld [wOtherPlayerLinkMode], a
	ret

LinkTransfer::
	push bc
	ld b, SERIAL_TIMECAPSULE
	ld a, [wLinkMode]
	cp LINK_TIMECAPSULE
	jr z, .got_high_nybble
	ld b, SERIAL_TIMECAPSULE
	jr c, .got_high_nybble
	cp LINK_TRADECENTER
	ld b, SERIAL_TRADECENTER
	jr z, .got_high_nybble
	ld b, SERIAL_BATTLE

.got_high_nybble
	call .Receive
	ld a, [wPlayerLinkAction]
	add b
	ld [hSerialSend], a
	ld a, [hSerialConnectionStatus]
	cp USING_INTERNAL_CLOCK
	jr nz, .internalClock
	ld a, 1
	ld [rSC], a
	ld a, START_TRANSFER_INTERNAL_CLOCK
	ld [rSC], a

.internalClock
	call .Receive
	pop bc
	ret

.Receive
	ld a, [hSerialReceive]
	ld [wOtherPlayerLinkMode], a
	and $f0
	cp b
	ret nz
	xor a
	ld [hSerialReceive], a
	ld a, [wOtherPlayerLinkMode]
	and $f
	ld [wOtherPlayerLinkAction], a
	ret

LinkDataReceived::
; Let the other system know that the data has been received.
	xor a
	ld [hSerialSend], a
	ld a, [hSerialConnectionStatus]
	cp USING_INTERNAL_CLOCK
	ret nz
	ld a, 1
	ld [rSC], a
	ld a, START_TRANSFER_INTERNAL_CLOCK
	ld [rSC], a
	ret
