33 lines
772 B
JavaScript
33 lines
772 B
JavaScript
; -------------------------------------------------
|
|
; 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
|
|
|
|
; -------------------------------------------------
|