;---------------------------------------
;        ^o^
;---------------------------------------

         *= $1000
         sei
         ldx #$00
clr      txa
         sta $0400,x
         sta $0500,x
         sta $0600,x
         sta $0700,x
         sta $0800,x
         sta $0900,x
         sta $0a00,x
         sta $0b00,x
         lda #$0f
         sta $d800,x
         sta $d900,x
         sta $da00,x
         sta $db00,x
         dex
         sta $db00,x
         dex
         bne clr
         lda #$00
         sta $d020
         sta $d021
         lda #$35
         sta $01
         lda #$01
         sta $d01a
         lda #$00
         sta $d012
         lda #$1b
         sta $d011
         lda #$7f
         sta $dc0d
         sta $dd0d
         lda $dc0d
         lda $dd0d
         lda #<irq
         sta $fffe
         lda #>irq
         sta $ffff
         lda #<break
         sta $fffa
         lda #>break
         sta $fffb
         lda #$00
         sta $fc
         lda #$08
         sta $fd
         lda #$01
         sta $fe
         lda #$04
         sta $ff
         lda scroll
         sta $d016
         lda #$17
         sta $d018
         cli
         jmp *

break    jmp $9000

irq      pha
         txa
         pha
         tya
         pha
         lsr $d019

;         inc $d020

         ldy #$00
l1       lda ($fe),y
         sta ($fc),y
         iny
         cpy #$7d
         bne l1

         lda $fc
         clc
         adc #$7d
         sta $fc
         lda $fd
         adc #$00
         sta $fd
         lda $fe
         clc
         adc #$7d
         sta $fe
         lda $ff
         adc #$00
         sta $ff

         ldx scroll
         dex
         bpl l3

         inc chr

         lda flag
         eor #$01
         sta flag
         bne l2

         lda chr
         sta $07e7
         lda #$00
         sta $fc
         lda #$08
         sta $fd
         lda #$01
         sta $fe
         lda #$04
         sta $ff
         lda #$16
         sta $d018
         bne l4
l2       lda chr
         sta $0be7
         lda #$00
         sta $fc
         lda #$04
         sta $fd
         lda #$01
         sta $fe
         lda #$08
         sta $ff
         lda #$26
         sta $d018

l4       ldx #$07
l3       stx scroll
         stx $d016

;         dec $d020

         pla
         tay
         pla
         tax
         pla
         rti

scroll   .byte 0
flag     .byte 0
chr      .byte 0