VAL INT uart0.lsr.addr IS #FFC00414:
VAL INT uart0.thr.addr IS #FFC00400:
VAL BYTE THRE IS #20:

PROC uart0.out.char (CHAN BYTE kyb?, scr!, err!)
  --[1]BYTE uart0.lsr:
  --PLACE uart0.lsr AT uart0.lsr.addr:
  [1]BYTE uart0.thr:
  PLACE uart0.thr AT uart0.thr.addr:
  --SEQ
  --WHILE ((uart0.lsr[0] BITAND THRE) = 0)
  --SKIP
  uart0.thr[0] := 65
:

--PROC main (CHAN BYTE kyb?, scr!, err)
  --INITIAL INT i IS 65:
  --WHILE (i < 85)
  --uart0.out.char('A')
  --i := i + 1
--:
