;; Implemented based on https://www.pagetable.com/?p=1135, https://github.com/mist64/cbmbus_doc iec_tx_byte: pha ;; XXX to be filled-in rts