FreeCalypso > hg > freecalypso-tools
annotate target-utils/loadagent/serextra.S @ 896:0a2f50c571de
CHANGES: fc-buzplay basic 'play' command extension
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Sun, 03 Apr 2022 08:41:34 +0000 |
parents | 3229940734e5 |
children |
rev | line source |
---|---|
648
3229940734e5
loadagent: binary memload command implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
1 #include "ns16550.h" |
3229940734e5
loadagent: binary memload command implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
2 |
3229940734e5
loadagent: binary memload command implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
3 @ extra serial I/O functions for loadagent binary operations |
3229940734e5
loadagent: binary memload command implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
4 |
3229940734e5
loadagent: binary memload command implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
5 .text |
3229940734e5
loadagent: binary memload command implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
6 .code 32 |
3229940734e5
loadagent: binary memload command implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
7 .globl serial_out_if_empty |
3229940734e5
loadagent: binary memload command implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
8 serial_out_if_empty: |
3229940734e5
loadagent: binary memload command implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
9 ldr r1, =uart_base |
3229940734e5
loadagent: binary memload command implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
10 ldr r2, [r1] |
3229940734e5
loadagent: binary memload command implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
11 ldrb r3, [r2, #NS16550_LSR] |
3229940734e5
loadagent: binary memload command implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
12 tst r3, #NS16550_LSR_THRE |
3229940734e5
loadagent: binary memload command implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
13 strneb r0, [r2, #NS16550_THR] |
3229940734e5
loadagent: binary memload command implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
14 bx lr |