FreeCalypso > hg > freecalypso-tools

view target-utils/loadagent/serextra.S @ 876:9998c015a687

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ringtools/fc-meltest-pwt: shell script created, works as expected
author Mychaela Falconia <falcon@freecalypso.org>
date Wed, 30 Mar 2022 20:11:34 +0000
parents 3229940734e5
children
line wrap: on
line source

#include "ns16550.h"

@ extra serial I/O functions for loadagent binary operations

	.text
	.code	32
	.globl	serial_out_if_empty
serial_out_if_empty:
	ldr	r1, =uart_base
	ldr	r2, [r1]
	ldrb	r3, [r2, #NS16550_LSR]
	tst	r3, #NS16550_LSR_THRE
	strneb	r0, [r2, #NS16550_THR]
	bx	lr