.feature c_comments

.zeropage

.segment "CODE"

.org    $080D
main:
    sei
    lda #$35
    sta $01

    lda #127
    sta $dc0d

    and $d011
    sta $d011

    lda $dc0d
    lda $dd0d

    lda #<irq
    sta $fffe
    lda #>irq
    sta $ffff

    lda #$0b
    sta $d011
    lda #$00
    sta $d012

    lda #0
    sta $d01a

    lda #$63; <(985248/100)
    sta $dc04
    lda #$26;>(985248/100)
    sta $dc05

    lda $dc0d
    and #$81
    sta $dc0d

    lda #$40
    sta $dc0c

    lda #$81
    sta $dc0d

    lda #0
    jsr $1000
    cli
	jmp *

irq:
	pha
    txa
    pha
    tya
    pha

    inc $d020
    jsr $1003
    dec $d020

    pla
    tay
    pla
    tax
    pla
    ;rti
    jmp $dc0c
  

.res $1000-*
.incbin "ys2_sid.sid", $7e+($1000-$ff6)