- use symbolic names

git-svn-id: http://moon:8086/svn/vhdl/trunk@1631 cc03376c-175c-47c8-b038-4cd826a8556b
2021-04-04 08:58:15 +00:00
parent cbd6a1fa29
commit c22bd92d64
1 changed files with 7 additions and 2 deletions
@@ -4,6 +4,10 @@
 ; needs xmem-address definition for
 ; - uart_status (Status 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
@@ -11,7 +15,7 @@
 ; R0 = input
 sout:			push 	R1
 sout1:			xin		R1, (uart_status)
-				and		R1, 0x02
+				and		R1, UART_TX_FULL
 				jnz		sout1
 				xout	(uart_data), R0
 				pop		R1
@@ -23,10 +27,11 @@ sout1:			xin		R1, (uart_status)
 ; R0 = output
 sin:			push 	R1
 sin1:			xin		R1, (uart_status)
-				and		R1, 0x10
+				and		R1, UART_RX_PRESENT
 				jnz		sin1
 				xin		R0, (uart_data)
 				pop		R1
 				ret

 ; -------------------------------------------------
+