rom

include adv3_uart0.fs
include adv3_redir.fs

: init-test
  uart0-init
  $0d uart0emit $0a uart0emit
  lcdpage
  +redir
;

: msg
  ." String 1" $20 s>d 4 d.r >cr
  ." String" space ." 2" 3 spaces $78 emit
;

: run-test
  init-test
  to-lcd    msg
  to-uart0  msg
  to-stdout msg
;
\ main

\ ." call run-test"


ram