21 lines
476 B
ArmAsm
21 lines
476 B
ArmAsm
|
|
;; Routine to finalize these IEC commands which do not end in turnaround
|
|
;; Implemented based on https://www.pagetable.com/?p=1135, https://github.com/mist64/cbmbus_doc
|
|
|
|
|
|
iec_tx_command_finalize:
|
|
|
|
;; Store .X and .Y on the stack - preserve them
|
|
txa
|
|
pha
|
|
tya
|
|
pha
|
|
|
|
;; Give device some time to complete command reception, release ATN,
|
|
;; give it some time again before (possible) next command
|
|
jsr iec_wait20us
|
|
jsr iec_set_idle
|
|
jsr iec_wait20us
|
|
|
|
jmp iec_return_success
|