ASMB,A,B,L

      HED ** Light Chaser **
* by Tim Riker <Tim@Rikers.org>
      ORG 10B

** Light chaser
      CLB,INB      B=1
RL    RBL          rotate B left 1
      OTB 1        Write to S
      LDA DELAY    Get delay
      CMA          2's complement
LOOPL INA,SZA      Increment B, Skip one if B=0
      JMP LOOPL    Jump to the delay loop
      SSB,RSS      Skip if high bit set
      JMP RL       Rotate left some more
RR    RBR	   rotate B right 1
      OTB 1        Write to S
      LDA DELAY    Get delay
      CMA          2's complement
LOOPR INA,SZA      Increment B, Skip one if B=0
      JMP LOOPR    Jump to the delay loop
      SLB,RSS      Skip if low bit set
      JMP RR       Rotate right some more
      JMP RL       Rotate left again
DELAY OCT 017777   amount to delay