ASMB,A,B,L

* Binary counter on the S register
* by Tim Riker <Tim@Rikers.org>
* public domain

      HED ** binary counter **
      ORG 10B

* could CLA here, but start anywhere instead
WRITE OTA 1        Write to S
      LDB DELAY    Get delay
      CMB          2's complement
LOOPB INB,SZB      B++, Skip one if B=0
      JMP LOOPB    Jump to the delay loop
      CLE,INA      E=0, A++
      JMP WRITE    Write it
DELAY OCT 017777   Delay cycles