ACIA_WAIT_RX:
   LDA   $2001
   AND   #$08   
   BEQ   ACIA_WAIT_RX   
   RTS

   LDA  #8
ACIA_WAIT_RX:
   BIT  $2001
   BEQ  ACIA_WAIT_RX
   RTS

;
; TIC - a timer routine.
; Number of loops to run is expected in Y
; Based on the 1.8432MHz clock in the OMS-02 controller
; One iteration of TIC is ~43us
; Calling TIC from DELAY with $E9 in Y gives a time of 10ms
;   Takes 12 cycles to call and return
;   Plus 14 additional cycles to call TRIM
;   So, total time (T) when called with $E9 in Y gives:
;   T=232*79+78+12+14=18432 cycles
;
;
TIC      lda #$08                   ; Set the inner loop count(2 cycles)
         sta $FD                    ; Store in $FD (3 cycles)
         nop                        ;
         nop                        ;
         nop                        ; 3 nops adds 6 cycles to outer loop
TBLOOP   dec $FD                    ; Decrement inner loop counter(5 cycles)
         bne TBLOOP                 ; Loop if not done (3 cycles if looping, 2 cycles if not)
                                    ; Whole inner loop is 7*(5+3)+7=63 cycles in length
         dey                        ; (2 cycles)
         bne TIC                    ; (3 cycles if looping, 2 cycles if not)
                                    ; Each outer loop is 16+63=79 cycles, except last is 78 cycles
         jsr TRIM                   ; This adds 14 cycles
         rts                        ; (6 cycles)

;
; TRIM - calling this wastes 14 cycles
;
TRIM     nop
         rts