Subversion Repositories ssbcc

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

;

; Test bench for counter peripheral.

.main

  ; Run the test 4 times.

  ${4-1} :loop_run_test

    ; Wait a while

    ${3-1} :wait_outer 0xFF :wait_inner .jumpc(wait_inner,1-) drop .jumpc(wait_outer,1-) drop

    ; Read and output the narrow count.

    .inport(I_STROBE_NARROW) 0x00 .outport(O_DIAG_MSB) .outport(O_DIAG_LSB) .outstrobe(O_DIAG_WR)

    ; Latch, read, and output the wide count.

    .outstrobe(O_LATCH_STROBE_WIDE) .inport(I_STROBE_WIDE) .inport(I_STROBE_WIDE) .outport(O_DIAG_MSB) .outport(O_DIAG_LSB) .outstrobe(O_DIAG_WR)

  .jumpc(loop_run_test,1-) drop

  ; Signal termination and then wait forever.

  .outstrobe(O_DONE) :infinity .jump(infinity)