s3e: fix build break
[calu.git] / progs / uart_int.s
1 #include "dt_inc.s"
2
3 .data
4 .org 0x00
5
6 str:
7         .ascii "sent byte: "
8
9 .text
10 .org 0x00
11 start:
12         br+ main
13         call+ intr
14         ret
15
16
17 main:
18         ldi r0, INT_BASE
19         ldi r1, INT_GLOBAL_BIT
20         orx r1, INT_UART_REC_BIT
21         stw r1, INT_CONF(r0)
22
23         br+ loop
24
25 loop:
26         br+ loop
27
28 intr:
29         ldi r1, str
30         ldi r2, 11
31         call u_send_string
32
33         ldi r0, UART_BASE
34         ldw r1, UART_RECV(r0)
35         call sseg_displ
36         call u_send_uint
37         call u_send_newline
38         ret