*=$0801
    word eop
    word 7102
    byte $9e,"2061",0
eop word 0
    sei
    lda #$01
    sta $d03f
    sta $d019
    sta $d01a
    lda #$7f
    sta $dc0d
    lda $dc0d
    lda #<irq
    sta $0314
    lda #>irq
    sta $0315
    lda #$0b
    sta $d011
    lda #$01
    sta $d012
    cli
    jmp *

irq
    lda #$01
    sta $d019
    bit $2c2c
    bit $2c2c
    nop
    ldx #0
loop
    stx $d020
    dec $f000,x ; 7
    dec $f000,x ; 7
    dec $f000,x ; 7
    dec $f000,x ; 7
    dec $f000,x ; 7
    dec $f000,x ; 7
    dec $f000,x ; 7
    dec $f000,x ; 7
    nop
    inx
    bne loop
    jmp $ea81