- use symbolic names
git-svn-id: http://moon:8086/svn/vhdl/trunk@1631 cc03376c-175c-47c8-b038-4cd826a8556b
This commit is contained in:
@@ -4,6 +4,10 @@
|
|||||||
; needs xmem-address definition for
|
; needs xmem-address definition for
|
||||||
; - uart_status (Status register)
|
; - uart_status (Status register)
|
||||||
; - uart_data (Data register)
|
; - uart_data (Data register)
|
||||||
|
UART_TX_EMPTY equ 0x01
|
||||||
|
UART_TX_FULL equ 0x02
|
||||||
|
UART_TX_CMPL equ 0x04
|
||||||
|
UART_RX_PRESENT equ 0x10
|
||||||
|
|
||||||
; -------------------------------------------------
|
; -------------------------------------------------
|
||||||
; sout
|
; sout
|
||||||
@@ -11,7 +15,7 @@
|
|||||||
; R0 = input
|
; R0 = input
|
||||||
sout: push R1
|
sout: push R1
|
||||||
sout1: xin R1, (uart_status)
|
sout1: xin R1, (uart_status)
|
||||||
and R1, 0x02
|
and R1, UART_TX_FULL
|
||||||
jnz sout1
|
jnz sout1
|
||||||
xout (uart_data), R0
|
xout (uart_data), R0
|
||||||
pop R1
|
pop R1
|
||||||
@@ -23,10 +27,11 @@ sout1: xin R1, (uart_status)
|
|||||||
; R0 = output
|
; R0 = output
|
||||||
sin: push R1
|
sin: push R1
|
||||||
sin1: xin R1, (uart_status)
|
sin1: xin R1, (uart_status)
|
||||||
and R1, 0x10
|
and R1, UART_RX_PRESENT
|
||||||
jnz sin1
|
jnz sin1
|
||||||
xin R0, (uart_data)
|
xin R0, (uart_data)
|
||||||
pop R1
|
pop R1
|
||||||
ret
|
ret
|
||||||
|
|
||||||
; -------------------------------------------------
|
; -------------------------------------------------
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user