52 lines
1.1 KiB
ArmAsm
52 lines
1.1 KiB
ArmAsm
// #LAYOUT# STD * #TAKE
|
|
// #LAYOUT# * KERNAL_0 #TAKE
|
|
// #LAYOUT# * * #IGNORE
|
|
|
|
//
|
|
// Official Kernal routine, described in:
|
|
//
|
|
// - [RG64] C64 Programmers Reference Guide - page 301/302
|
|
// - [CM64] Computes Mapping the Commodore 64 - page 223
|
|
// - https://www.pagetable.com/?p=1031, https://github.com/mist64/cbmbus_doc
|
|
// - http://www.zimmers.net/anonftp/pub/cbm/programming/serial-bus.pdf
|
|
//
|
|
// CPU registers that has to be preserved (see [RG64]): .X, .Y
|
|
//
|
|
|
|
|
|
TALK:
|
|
|
|
#if CONFIG_IEC
|
|
|
|
// According to serial-bus.pdf (page 15) this routine flushes the IEC out buffer
|
|
jsr iec_tx_flush
|
|
|
|
// Check whether device number is correct
|
|
jsr iec_check_devnum_oc
|
|
bcc !+
|
|
jmp kernalerror_DEVICE_NOT_FOUND
|
|
!:
|
|
// Encode and execute the command
|
|
ora #$40
|
|
|
|
// FALLTROUGH
|
|
|
|
common_talk_listen: // common part of TALK and LISTEN
|
|
|
|
sta TBTCNT
|
|
|
|
#if CONFIG_IEC_JIFFYDOS || CONFIG_IEC_DOLPHINDOS
|
|
|
|
lda #$FF // force JiffyDOS detection, clear DolphinDOS mark
|
|
sta IECPROTO
|
|
|
|
#endif
|
|
|
|
jmp iec_tx_command
|
|
|
|
#else
|
|
|
|
jmp kernalerror_ILLEGAL_DEVICE_NUMBER
|
|
|
|
#endif
|