*=$0801 BYTE $0B, $08, $0A, $00, $9E, $32, $30, $36, $34, $00, $00, $00 *=$0810 init lda #$0f sta $d418 lda #%01111111 sta $DC0D and $D011 sta $D011 lda #$51 sta $D012 lda #<irq_handler sta $0314 lda #>irq_handler sta $0315 lda #%00000001 sta $D01A @endloop jmp @endloop irq_handler inc $d020 jsr PlayMusic dec $d020 asl $D019 JMP $EA31 PlayMusic lda mdelay beq @play dec mdelay jmp @done @play lda #$8 sta mdelay inc mnote lda mnote and #$1f tax lda #$08 sta $d40b lda #$10 sta $d40C lda #$00 sta $d40D lda music,x sta $d408 lda #$b1 sta $d407 lda #$21 sta $d40b @done rts music byte 28,49,26,156,25,30,23,181,22,96,29,223,28,49,26,156,28,49 byte 26,156,25,30,23,181,22,96,23,181,25,30,26,156 mdelay byte 0 mnote byte 0
lda #$21 sta $d40b