35 lines
427 B
ArmAsm
35 lines
427 B
ArmAsm
#if ROM_LAYOUT_STD || (ROM_LAYOUT_M65 && SEGMENT_KERNAL_0)
|
|
|
|
//
|
|
// IEC part of the CLRCHN routine
|
|
//
|
|
|
|
|
|
#if CONFIG_IEC
|
|
|
|
|
|
clrchn_iec:
|
|
|
|
// Check input device
|
|
lda DFLTN
|
|
jsr iec_check_devnum_oc
|
|
bcs !+
|
|
|
|
// It was IEC device - send UNTALK first
|
|
jsr UNTLK
|
|
!:
|
|
// Check output device
|
|
lda DFLTO
|
|
jsr iec_check_devnum_oc
|
|
|
|
// If it was IEC device - send UNLSN first
|
|
bcc_16 UNLSN
|
|
|
|
rts
|
|
|
|
|
|
#endif // CONFIG_IEC
|
|
|
|
|
|
#endif // ROM layout
|