Subversion Repositories ssbcc

; Copyright 2014, Sinclair R.F., Inc.
;
; Test bench for wide_strobe peripheral.
 
.main
 
  ; Wait a while
  ${25-1} :wait_startup .jumpc(wait_startup,1-) drop
 
  ; Exercise the minimum-width peripheral
  0x00 .outport(O_MIN)
  0x01 .outport(O_MIN)
 
  ; Exercise the medium-width peripheral
  ${2**4-1} :loop_medium O_MED outport .jumpc(loop_medium,1-) drop
 
  ; Exercise the maximum-width peripheral
  0x03 ${12-1} :loop_maximum >r O_MAX outport <<msb r> .jumpc(loop_maximum,1-) drop drop
 
  ; Wait a few clock cycles.
  ${3-1} :wait_end .jumpc(wait_end,1-) drop
 
  ; Send the termination signal and then enter an infinite loop.
  1 .outport(O_DONE)
  :infinite .jump(infinite)