; -------------------------------------------------
; uart.inc.jsm
; -------------------------------------------------
; needs xmem-address definition for
; - uart_status (Status register)
; - uart_data	(Data register)

; -------------------------------------------------
; sout
; -------------------------------------------------
; R0 = input
sout:			push 	R1
sout1:			xin		R1, (uart_status)
				and		R1, 0x02
				jnz		sout1
				xout	(uart_data), R0
				pop		R1
				ret

; -------------------------------------------------
; sin
; -------------------------------------------------
; R0 = output
sin:			push 	R1
sin1:			xin		R1, (uart_status)
				and		R1, 0x10
				jz		sin1
				xin		R0, (uart_data)
				pop		R1
				ret

; -------------------------------------------------