URL https://opencores.org/ocsvn/ssbcc/ssbcc/trunk

Subversion Repositories ssbcc

[/] [ssbcc/] [trunk/] [core/] [9x8/] [peripherals/] [tb/] [UART_Rx/] [tb_UART_Rx.s-fifo] - Blame information for rev 12

Go to most recent revision | Details | Compare with Previous | View Log


; Copyright 2013, Sinclair R.F., Inc.
;
; Test bench for UART_Rx peripheral with FIFO.
 
.main
 
  ; Wait for the entire message to be transmitted.
  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 it's empty
  :loop .inport(I_UART_RX_EMPTY) .jumpc(end_loop)
    .inport(I_UART_RX) .outport(O_DATA)
    .jump(loop)
  :end_loop
 
  ; Signal program termination.
  1 .outport(O_DONE)
 
  ; Wait forever.
  :infinite .jump(infinite)

Line No.	Rev	Author	Line
1	2	sinclairrf	`; Copyright 2013, Sinclair R.F., Inc.`
2			`;`
3			`; Test bench for UART_Rx peripheral with FIFO.`
4
5			`.main`
6
7			`; Wait for the entire message to be transmitted.`
8			`0x00 0x41 >r :wait`
9			`.jumpc(no_major_dec,1-) r> 1- >r :no_major_dec r@ -1<> .jumpc(wait)`
10
11			`; Read from the UART Rx port until it's empty`
12			`:loop .inport(I_UART_RX_EMPTY) .jumpc(end_loop)`
13			`.inport(I_UART_RX) .outport(O_DATA)`
14			`.jump(loop)`
15			`:end_loop`
16
17			`; Signal program termination.`
18			`1 .outport(O_DONE)`
19
20			`; Wait forever.`
21			`:infinite .jump(infinite)`

Browse

Tools

Subversion Repositories ssbcc

[/] [ssbcc/] [trunk/] [core/] [9x8/] [peripherals/] [tb/] [UART_Rx/] [tb_UART_Rx.s-fifo] - Blame information for rev 12