31 lines
346 B
ArmAsm
31 lines
346 B
ArmAsm
|
|
//
|
|
// 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_far UNLSN
|
|
|
|
rts
|
|
|
|
|
|
#endif // CONFIG_IEC
|