pokecrystal-board/home/serial.asm

404 lines
6.4 KiB
NASM
Raw Normal View History

2018-06-24 07:09:41 -07:00
Serial::
; The serial interrupt.
push af
push bc
push de
push hl
2015-12-15 15:59:49 -08:00
ld a, [hMobileReceive]
and a
2015-12-15 15:59:49 -08:00
jr nz, .mobile
2016-05-11 14:16:03 -07:00
ld a, [wPrinterConnectionOpen]
bit 0, a
2015-12-15 15:59:49 -08:00
jr nz, .printer
ld a, [hSerialConnectionStatus]
inc a ; is it equal to CONNECTION_NOT_ESTABLISHED?
jr z, .establish_connection
ld a, [rSB]
ld [hSerialReceive], a
ld a, [hSerialSend]
ld [rSB], a
ld a, [hSerialConnectionStatus]
cp USING_INTERNAL_CLOCK
2015-12-15 15:59:49 -08:00
jr z, .player2
ld a, 0 << rSC_ON
ld [rSC], a
ld a, 1 << rSC_ON
ld [rSC], a
2015-12-15 15:59:49 -08:00
jr .player2
2015-12-15 15:59:49 -08:00
.mobile
call MobileReceive
jr .end
2015-12-15 15:59:49 -08:00
.printer
call PrinterReceive
jr .end
.establish_connection
ld a, [rSB]
cp USING_EXTERNAL_CLOCK
2015-12-15 15:59:49 -08:00
jr z, .player1
cp USING_INTERNAL_CLOCK
2015-12-15 15:59:49 -08:00
jr nz, .player2
2015-12-15 15:59:49 -08:00
.player1
ld [hSerialReceive], a
ld [hSerialConnectionStatus], a
cp USING_INTERNAL_CLOCK
2015-12-15 15:59:49 -08:00
jr z, ._player2
xor a
ld [rSB], a
ld a, 3
ld [rDIV], a
2015-12-15 15:59:49 -08:00
.wait_bit_7
ld a, [rDIV]
bit 7, a
2015-12-15 15:59:49 -08:00
jr nz, .wait_bit_7
ld a, 0 << rSC_ON
ld [rSC], a
ld a, 1 << rSC_ON
ld [rSC], a
2015-12-15 15:59:49 -08:00
jr .player2
2015-12-15 15:59:49 -08:00
._player2
xor a
ld [rSB], a
2015-12-15 15:59:49 -08:00
.player2
ld a, TRUE
ld [hSerialReceivedNewData], a
ld a, SERIAL_NO_DATA_BYTE
ld [hSerialSend], a
2015-12-15 15:59:49 -08:00
.end
pop hl
pop de
pop bc
pop af
reti
2018-06-24 07:09:41 -07:00
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, $30
.wait
dec a
jr nz, .wait
ld a, [hSerialIgnoringInitialData]
and a
ld a, b
pop bc
jr z, .load
dec hl
cp SERIAL_PREAMBLE_BYTE
jr nz, .loop
xor a
ld [hSerialIgnoringInitialData], a
jr .loop
.load
ld [de], a
inc de
dec bc
ld a, b
or c
jr nz, .loop
ret
2018-06-24 07:09:41 -07:00
Serial_ExchangeByte::
.loop
xor a
ld [hSerialReceivedNewData], a
ld a, [hSerialConnectionStatus]
cp USING_INTERNAL_CLOCK
jr nz, .not_player_2
ld a, (0 << rSC_ON) | 1
ld [rSC], a
ld a, (1 << rSC_ON) | 1
ld [rSC], a
.not_player_2
.loop2
ld a, [hSerialReceivedNewData]
and a
jr nz, .reset_ffca
ld a, [hSerialConnectionStatus]
cp USING_EXTERNAL_CLOCK
2016-05-15 18:50:31 -07:00
jr nz, .not_player_1_or_wLinkTimeoutFrames_zero
call CheckwLinkTimeoutFramesNonzero
jr z, .not_player_1_or_wLinkTimeoutFrames_zero
call .delay_15_cycles
push hl
2016-05-15 18:50:31 -07:00
ld hl, wLinkTimeoutFrames + 1
inc [hl]
jr nz, .no_rollover_up
dec hl
inc [hl]
.no_rollover_up
pop hl
2016-05-15 18:50:31 -07:00
call CheckwLinkTimeoutFramesNonzero
jr nz, .loop2
jp SerialDisconnected
2016-05-15 18:50:31 -07:00
.not_player_1_or_wLinkTimeoutFrames_zero
ld a, [rIE]
and (1 << SERIAL) | (1 << TIMER) | (1 << LCD_STAT) | (1 << VBLANK)
cp 1 << SERIAL
jr nz, .loop2
2015-02-10 15:14:41 -08:00
ld a, [wcf5d]
dec a
2015-02-10 15:14:41 -08:00
ld [wcf5d], a
jr nz, .loop2
2015-02-10 15:14:41 -08:00
ld a, [wcf5d + 1]
dec a
2015-02-10 15:14:41 -08:00
ld [wcf5d + 1], a
jr nz, .loop2
ld a, [hSerialConnectionStatus]
cp USING_EXTERNAL_CLOCK
jr z, .reset_ffca
2016-05-15 18:50:31 -07:00
ld a, 255
.delay_255_cycles
dec a
jr nz, .delay_255_cycles
.reset_ffca
xor a
ld [hSerialReceivedNewData], a
ld a, [rIE]
and (1 << SERIAL) | (1 << TIMER) | (1 << LCD_STAT) | (1 << VBLANK)
sub 1 << SERIAL
jr nz, .rIE_not_equal_8
2016-05-15 18:50:31 -07:00
; LOW($5000)
2015-02-10 15:14:41 -08:00
ld [wcf5d], a
ld a, HIGH($5000)
2015-02-10 15:14:41 -08:00
ld [wcf5d + 1], a
.rIE_not_equal_8
ld a, [hSerialReceive]
cp SERIAL_NO_DATA_BYTE
ret nz
2016-05-15 18:50:31 -07:00
call CheckwLinkTimeoutFramesNonzero
2018-02-04 19:45:04 -08:00
jr z, .linkTimeoutFrames_zero
push hl
2016-05-15 18:50:31 -07:00
ld hl, wLinkTimeoutFrames + 1
ld a, [hl]
dec a
ld [hld], a
inc a
jr nz, .no_rollover
dec [hl]
.no_rollover
pop hl
2016-05-15 18:50:31 -07:00
call CheckwLinkTimeoutFramesNonzero
jr z, SerialDisconnected
2018-02-04 19:45:04 -08:00
.linkTimeoutFrames_zero
ld a, [rIE]
and (1 << SERIAL) | (1 << TIMER) | (1 << LCD_STAT) | (1 << VBLANK)
cp 1 << SERIAL
ld a, SERIAL_NO_DATA_BYTE
ret z
ld a, [hl]
ld [hSerialSend], a
call DelayFrame
jp .loop
.delay_15_cycles
ld a, 15
.delay_cycles
dec a
jr nz, .delay_cycles
ret
2018-06-24 07:09:41 -07:00
CheckwLinkTimeoutFramesNonzero::
push hl
2016-05-15 18:50:31 -07:00
ld hl, wLinkTimeoutFrames
ld a, [hli]
or [hl]
pop hl
ret
2018-06-24 07:09:41 -07:00
SerialDisconnected::
dec a ; a is always 0 when this is called
2016-05-15 18:50:31 -07:00
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.
2018-06-24 07:09:41 -07:00
Serial_ExchangeLinkMenuSelection::
2015-11-23 13:04:53 -08:00
ld hl, wPlayerLinkAction
ld de, wOtherPlayerLinkMode
ld c, 2
ld a, TRUE
ld [hSerialIgnoringInitialData], a
.asm_847
call DelayFrame
ld a, [hl]
ld [hSerialSend], a
call Serial_ExchangeByte
ld b, a
inc hl
ld a, [hSerialIgnoringInitialData]
and a
ld a, FALSE
ld [hSerialIgnoringInitialData], a
jr nz, .asm_847
ld a, b
ld [de], a
inc de
dec c
jr nz, .asm_847
ret
2018-06-24 07:09:41 -07:00
Serial_PrintWaitingTextAndSyncAndExchangeNybble::
2015-09-09 16:27:07 -07:00
call LoadTileMapToTempTileMap
2017-12-24 09:47:30 -08:00
callfar PlaceWaitingText
2016-05-15 18:50:31 -07:00
call WaitLinkTransfer
2015-09-09 16:27:07 -07:00
jp Call_LoadTempTileMapToTileMap
2018-06-24 07:09:41 -07:00
Serial_SyncAndExchangeNybble::
2015-09-09 16:27:07 -07:00
call LoadTileMapToTempTileMap
2017-12-24 09:47:30 -08:00
callfar PlaceWaitingText
2016-05-15 18:50:31 -07:00
jp WaitLinkTransfer
2015-11-23 13:04:53 -08:00
; One "giant" leap for machinekind
2018-06-24 07:09:41 -07:00
WaitLinkTransfer::
ld a, $ff
2015-11-23 13:04:53 -08:00
ld [wOtherPlayerLinkAction], a
.loop
call LinkTransfer
call DelayFrame
2016-05-15 18:50:31 -07:00
call CheckwLinkTimeoutFramesNonzero
2015-11-23 13:04:53 -08:00
jr z, .check
push hl
2016-05-15 18:50:31 -07:00
ld hl, wLinkTimeoutFrames + 1
dec [hl]
2015-11-23 13:04:53 -08:00
jr nz, .skip
dec hl
dec [hl]
2015-11-23 13:04:53 -08:00
jr nz, .skip
; We might be disconnected
pop hl
xor a
jp SerialDisconnected
2015-11-23 13:04:53 -08:00
.skip
pop hl
2015-11-23 13:04:53 -08:00
.check
ld a, [wOtherPlayerLinkAction]
inc a
2015-11-23 13:04:53 -08:00
jr z, .loop
ld b, 10
.receive
call DelayFrame
call LinkTransfer
dec b
2015-11-23 13:04:53 -08:00
jr nz, .receive
ld b, 10
.acknowledge
call DelayFrame
call LinkDataReceived
dec b
2015-11-23 13:04:53 -08:00
jr nz, .acknowledge
ld a, [wOtherPlayerLinkAction]
ld [wOtherPlayerLinkMode], a
ret
2018-06-24 07:09:41 -07:00
LinkTransfer::
push bc
2015-11-23 13:04:53 -08:00
ld b, SERIAL_TIMECAPSULE
ld a, [wLinkMode]
2015-11-23 13:04:53 -08:00
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
2015-11-23 13:04:53 -08:00
jr nz, .player_1
ld a, (0 << rSC_ON) | 1
ld [rSC], a
ld a, (1 << rSC_ON) | 1
ld [rSC], a
2015-11-23 13:04:53 -08:00
.player_1
call .Receive
pop bc
ret
2018-06-24 07:09:41 -07:00
.Receive:
ld a, [hSerialReceive]
2015-11-23 13:04:53 -08:00
ld [wOtherPlayerLinkMode], a
and $f0
cp b
ret nz
xor a
ld [hSerialReceive], a
2015-11-23 13:04:53 -08:00
ld a, [wOtherPlayerLinkMode]
and $f
2015-11-23 13:04:53 -08:00
ld [wOtherPlayerLinkAction], a
ret
2018-06-24 07:09:41 -07:00
LinkDataReceived::
2015-11-23 13:04:53 -08:00
; 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, (0 << rSC_ON) | 1
ld [rSC], a
ld a, (1 << rSC_ON) | 1
ld [rSC], a
ret
2018-06-24 07:09:41 -07:00
Unreferenced_Function919::
ld a, [wLinkMode]
and a
ret nz
ld a, USING_INTERNAL_CLOCK
ld [rSB], a
xor a
ld [hSerialReceive], a
ld a, 0 << rSC_ON
ld [rSC], a
ld a, 1 << rSC_ON
ld [rSC], a
ret