counter

main:
  JSR one
  JSR pause
  JSR reset
  JSR two
  JSR pause
  JSR reset
  JSR three
  JSR pause
  JSR reset
  JSR four
  JSR pause
  JSR reset
  JSR five
  JSR pause
  JSR reset
  JSR six
  JSR pause
  JSR reset
  JSR seven
  JSR pause
  JSR reset
  JSR eight
  JSR pause
  JSR reset
  JSR nine
  JSR pause
  JSR reset
  JMP main
pause:
  LDX #$ff
decrement:
  DEX
  NOP
  NOP
  NOP
  NOP
  NOP
  NOP
  NOP
  NOP
  NOP
  NOP
  NOP
  NOP
  STX $e1
  CPX #$00
  BNE decrement
  STX $e1
  RTS
one:
  LDA #$01
  STA $0200
  STA $0201
  STA $0221
  STA $0241
  STA $0261
  STA $0280
  STA $0281
  STA $0282
  RTS
two:
  LDA #$01
  STA $0200
  STA $0201
  STA $0202
  STA $0222
  STA $0240
  STA $0241
  STA $0242
  STA $0260
  STA $0280
  STA $0281
  STA $0282
  RTS
three:
  LDA #$01
  STA $0200
  STA $0201
  STA $0202
  STA $0222
  STA $0241
  STA $0242
  STA $0262
  STA $0280
  STA $0281
  STA $0282
  RTS
four:
  LDA #$01
  STA $0200
  STA $0202
  STA $0220
  STA $0222
  STA $0240
  STA $0241
  STA $0242
  STA $0262
  STA $0282
  RTS
five:
  LDA #$01
  STA $0200
  STA $0201
  STA $0202
  STA $0220
  STA $0240
  STA $0241
  STA $0242
  STA $0262
  STA $0280
  STA $0281
  STA $0282
  RTS
six:
  LDA #$01
  STA $0200
  STA $0201
  STA $0202
  STA $0220
  STA $0240
  STA $0241
  STA $0242
  STA $0260
  STA $0262
  STA $0280
  STA $0281
  STA $0282
  RTS
seven:
  LDA #$01
  STA $0200
  STA $0201
  STA $0202
  STA $0222
  STA $0241
  STA $0242
  STA $0262
  STA $0282
  RTS
eight:
  LDA #$01
  STA $0200
  STA $0201
  STA $0202
  STA $0220
  STA $0222
  STA $0240
  STA $0241
  STA $0242
  STA $0260
  STA $0262
  STA $0280
  STA $0281
  STA $0282
  RTS
nine:
  LDA #$01
  STA $0200
  STA $0201
  STA $0202
  STA $0220
  STA $0222
  STA $0240
  STA $0241
  STA $0242
  STA $0262
  STA $0282
  RTS
reset:
  LDA #$00
  STA $e0
  LDX #$00
  LDY #$00
  JSR loop
  RTS
loop:
  CPY #$05
  BNE bres
  RTS
bres:
  STA $0200,X
  INX
  STA $0200,X
  INX
  STA $0200,X
  LDA $e0
  ADC #$20
  STA $e0
  LDX $e0
  LDA #$00
  INY
  JMP loop