asm koala and sid

sid_init  = $2700
sid_play  = $0000
;---------------------------------
;Koalaview by iAN CooG/HokutoForce
;C64ASM version   http://ready64.org/smf/index.php?topic=999.0
;---------------------------------

scrpos  = $7f40
scr     = $5c00
colpos  = $8328
col     = $d800
bkgcol  = $8710

;---------------------------------
;sysline
;---------------------------------
        *= $0801
        word eop
        word 7102
        byte $9e
        byte $32,$30,$36,$31,$00
eop
        word 0
;---------------------------------
;to avoid unnecessary waste of mem
;stick the routine just after
;the koalapic, comment the above
;sysline and set *= $8711 instead
;---------------------------------
;;*= $8711
        sei
        lda #$00
        sta $d011
        sta $d020
        ldx #$00
copy
        lda scrpos,x
        sta scr,x
        lda scrpos+$100,x
        sta scr+$100,x
        lda scrpos+$200,x
        sta scr+$200,x
        lda scrpos+$300,x
        sta scr+$300,x
        lda colpos,x
        sta col,x
        lda colpos+$100,x
        sta col+$100,x
        lda colpos+$200,x
        sta col+$200,x
        lda colpos+$300,x
        sta col+$300,x
        dex
        bne copy
        lda bkgcol
        sta $d021
        lda #$2e
        sta $d012
        lda #$78
        sta $d018
        lda #$02
        sta $dd00
        lda #$d8
        sta $d016
        lda #$3b
        sta $d011

kmain
;wait for any fire/space
;        lda $dc01
;        and $dc00
 ;       and #$10
;        bne kmain

;----------------
;----sid section
;----------------


          lda #$00
          tax
          tay
          jsr sid_init
          sei
          lda #$7f
          sta $dc0d
          sta $dd0d
          lda #$01
          sta $d01a
          lda #$1b
          ldx #$08
          ldy #$14
          sta $d011
          stx $d016
          sty $d014
          lda #<irq
          ldx #>irq
          ldy #$7e
          sta $0314
          stx $0315
          sty $d012
          lda $dc0d
          lda $dd0d
          asl $d019
          cli
loop      inx
          stx $0400
          jmp loop

irq       jsr sid_play
          asl $d019
          jmp $ea81

        cli
;remove the space from buffer, if any
;cyclewaste, to wait $C6
        beq *+2
        sta $c6
        jsr $fda3
        jsr $e5a0
        lda $0286
        ldx #$00
cram
        sta col,x
        sta col+$0100,x
        sta col+$0200,x
        sta col+$0300,x
        dex
        bne cram
        rts
* = $0f82
         INCBIN "Ninja_eyes.sid"
*= $6000
        incbin "narnia.kla",2