
#INCLUDE "loader.occ"
#INCLUDE "out.occ"

PROC firmware ()
  CHAN BYTE uart0:
  PLACE uart0 AT #0:

  CHAN BYTE in, out:
  PAR
    WHILE TRUE
      BYTE b:
      SEQ
        out ? b
        uart0 ! b

    WHILE TRUE
      BYTE b:
      SEQ
        uart0 ? b
        in ! b

    SEQ
      out.string ("##Firmware running...*n", 0, out!)
      WHILE TRUE
        loader (in?, out!)
:

