76 lines
755 B
NASM
76 lines
755 B
NASM
.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) |