test.s

oki ml670003 program that sends 1 to uart

.include "ml675001.s"

.text
.global _start
_start:
    @ Initialize UART

    ldr     r0,=0x7
    ldr     r1,=UARTFCR
    str     r0,[r1]

    ldr     r0,=0x83
    ldr     r1,=UARTLCR
    str     r0,[r1]

    ldr     r0,=0x21            @ 115200
    ldr     r1,=UARTDLL
    str     r0,[r1]

    ldr     r0,=0x0
    ldr     r1,=UARTDLM
    str     r0,[r1]

    ldr    r0,=0x3             @ UARTLCR_LEN8 | UARTLCR_PDIS | UARTLCR_STB1
    ldr    r1,=UARTLCR
    str    r0,[r1]

    ldr     r0,=GPCTL_UART
    ldr     r1,=GPCTL
    str     r0,[r1]

    @ Send character

    ldr	    r0,=49
    ldr	    r1,=0xB7B00000
    str	    r0,[r1]

    halt
@l:
@    b       l