Subversion Repositories ssbcc

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

;

; Test bench for UART_Rx peripheral.

.main

  ; Wait for receive data to appear and send it out when it does appear.  Stop

  ; this process when a null character is received or when too many clock cycles

  ; have elapsed (each iteration without decrementing the MSB and without UART

  ; data is 11 clock cycles long, so the time-out is 13*0x2800=133120 clock

  ; cycles, i.e., 1331 usec with a 100 MHz clock.  The UART message

  ; "Hello World!\r\n\00" is 14 bytes long and takes 14*10/115200 = 1215 usec

  ; to transmit.  The 0x2800 count will terminate before the the baud-mismatch

  ; will be cleared.

  0x00 0x28 >r :loop

    .jumpc(no_major_dec,1-) r> 1- >r :no_major_dec r@ -1= .jumpc(end_loop)

    .inport(I_UART_RX_EMPTY) .jumpc(loop)

    .inport(I_UART_RX) O_DATA outport

    .jumpc(loop)

  :end_loop r> drop drop

  ; Signal program termination.

  1 .outport(O_DONE)

  ; Wait forever.

  :infinite .jump(infinite)