;----------------------------- ISC16IS740 UART -------------------------------
I2C_UART_PORT   equ     50H

I2C_UART_RHR    equ     I2C_UART_PORT+00H       ;R      Receive Holding
I2C_UART_THR    equ     I2C_UART_PORT+00H       ;W      Transmit Holding
I2C_UART_IER    equ     I2C_UART_PORT+01H       ;R/W    Interrupt Enable
I2C_UART_FCR    equ     I2C_UART_PORT+02H       ;W      FIFO Control
I2C_UART_IIR    equ     I2C_UART_PORT+02H       ;R      Interrupt Identification
I2C_UART_LCR    equ     I2C_UART_PORT+03H       ;R/W    Line Control
I2C_UART_MCR    equ     I2C_UART_PORT+04H       ;R/W    Modem Control
I2C_UART_LSR    equ     I2C_UART_PORT+05H       ;R      Line Status
I2C_UART_MSR    equ     I2C_UART_PORT+06H       ;R      Modem Status
I2C_UART_SPR    equ     I2C_UART_PORT+07H       ;R/W    Scratchpad
I2C_UART_TCR    equ     I2C_UART_PORT+06H       ;R/W    Transmission Control
I2C_UART_TLR    equ     I2C_UART_PORT+07H       ;R/W    Trigger Level
I2C_UART_TXLVL  equ     I2C_UART_PORT+08H       ;R      Transmit FIFO Level
I2C_UART_RXLVL  equ     I2C_UART_PORT+09H       ;R      Receive FIFO Level
I2C_UART_EFCR   equ     I2C_UART_PORT+0FH       ;R/W    Extra Features
I2C_UART_DLL    equ     I2C_UART_PORT+00H       ;R/W    divisor latch LSB
I2C_UART_DLH    equ     I2C_UART_PORT+01H       ;R/W    divisor latch MSB
I2C_UART_EFR    equ     I2C_UART_PORT+02H       ;R/W    Enhanced Feature
I2C_UART_XON1   equ     I2C_UART_PORT+04H       ;R/W    Xon1 word
I2C_UART_XON2   equ     I2C_UART_PORT+05H       ;R/W    Xon2 word
I2C_UART_XOFF1  equ     I2C_UART_PORT+06H       ;R/W    Xoff1 word
I2C_UART_XOFF2  equ     I2C_UART_PORT+07H       ;R/W    Xoff2 word


;-----------------------------------------------------------------------------
; Output character in C
; Return with character in  C and A

i2c_uart_out:
        IN   A,(I2C_UART_LSR)
        AND  20H
        JR   Z,i2c_uart_out     ; wait till ready
        LD   A,C
        OUT  (I2C_UART_THR),A
        RET

;-----------------------------------------------------------------------------
; Get character from I2C UART
; Return character in A

i2c_uart_in:
        IN   A,(I2C_UART_LSR)
        AND  01H
        JR   Z,i2c_uart_in     ; wait till ready
        IN  (I2C_UART_RHR),A
        RET