ASMB,A,B,L

      HED ** Light Chaser **
      ORG 10B

** Light chaser
CHAS  CCE          Set E
RL    ELA          rotate E and A left 1
      OTA 1        Write to S
      LDB DELAY    Get delay
      CMB          2's complement
LOOPL INB          Increment B
      SZB          Skip one if B=0
      JMP LOOPL    Jump to the delay loop
      CLE
      SZA
      JMP RL
      CCE          Set E
RR    ERA	   rotate E and A right 1
      OTA 1        Write to S
      LDB DELAY    Get delay
      CMB          2's complement
LOOPR INB          Increment B
      SZB          Skip one if B=0
      JMP LOOPR    Jump to the delay loop
      CLE
      SZA
      JMP RR
      JMP CHAS
DELAY OCT 000777   Delay cycles

** Binary Counter

COU   CLA
LPA   INA
      OTA 1        Write to S
      SZA
      JMP LPA
      JMP COU

** Slow rotate left

ROTL  CLA          Clear A
      INA
SL    OTA 1        Write to S
      RAL
      CLB
COUNT INB
      SZB
      JMP COUNT
      SZA
      JMP SL
      JMP ROTL

** Brain dead light chaser

CHAS2 NOP
      CLA
      INA
      RAL
      OTA 1
      RAL
      OTA 1
      RAL
      OTA 1
      RAL
      OTA 1
      RAL
      OTA 1
      RAL
      OTA 1
      RAL
      OTA 1
      RAL
      OTA 1
      RAL
      OTA 1
      RAL
      OTA 1
      RAL
      OTA 1
      RAL
      OTA 1
      RAL
      OTA 1
      RAL
      OTA 1
      RAR
      OTA 1
      RAR
      OTA 1
      RAR
      OTA 1
      RAR
      OTA 1
      RAR
      OTA 1
      RAR
      OTA 1
      RAR
      OTA 1
      RAR
      OTA 1
      RAR
      OTA 1
      RAR
      OTA 1
      RAR
      OTA 1
      RAR
      OTA 1
      RAR
      OTA 1
      RAR
      OTA 1
      RAR
      OTA 1
      JMP CHAS2

** Why is this here?

      LIA 1        LOAD (A)=SWITCH REG
      INA
      HLT 077B