Subversion Repositories ssbcc

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

;

; Test bench for UART_Rx peripheral with RTRn signal output.

.main

  ; Wait for the FIFO to fill.

  0x00 0x41 >r :wait

    .jumpc(no_major_dec,1-) r> 1- >r :no_major_dec r@ -1<> .jumpc(wait)

  ; Read from the UART Rx port until the terminating null character is encountered.

  :loop

    ;If no character is available, then continue waiting.

    .inport(I_UART_RX_EMPTY) .jumpc(loop)

    ; Read the next character and output it, preserving it on the data stack.

    .inport(I_UART_RX) O_DATA outport

    ; If the character was not a null character, then continue running the loop.

    .jumpc(loop)

  ; Signal program termination.

  1 .outport(O_DONE)

  ; Wait forever.

  :infinite .jump(infinite)