Subversion Repositories ssbcc

; Copyright 2012, Sinclair R.F., Inc.

;

; Test bench for UART_Tx peripheral.

.main

  .call(load_message) :loop1 .outport(O_UART1_TX) .jumpc(loop1,nop) drop

  .call(load_message) :loop2 .outport(O_UART2_TX) .jumpc(loop2,nop) drop

  .call(load_message) :loop3 .outport(O_UART3_TX) :wait3 .inport(I_UART3_TX) .jumpc(wait3) .jumpc(loop3,nop) drop

  :wait .inport(I_UART3_TX) .jumpc(wait)

  1 .outport(O_DONE)

  :infinite .jump(infinite)

.function load_message

  N"ello World!"

.return('H')