vvblkd equ $0224›setvblkd equ $e45c›musadr equ $8000›play equ $9400›song equ $00›ch1 equ $d0›ch2 equ $d2›ch3 equ $d4››› opt %10101› org $9000›› jmp init››zaloz ldx musadr› lda #$70›› jsr play+3›› lda #$00› ldx #song›› jsr play+3›› lda vvblkd› sta skok› lda vvblkd+1› sta skok+1›› ldy przerw›› lda #$07›› jsr setvblkd›› lda #$01› sta temp›› rts››skok dta c''›temp dta c''››przerw jsr play+6›› ldy #0› lda #29› ldx play+9› stx temp+1› clc› ror temp+1››l1 sta (ch1),y› iny› cpy temp+1› bcs n1› jmp l1››n1 lda #0› iny››ll1 sta (ch1),y› iny› cpy #10› bcs c1› jmp ll1››c1 equ *›› ldy #0› lda #29› ldx play+10› stx temp+1› clc› ror temp+1››l2 sta (ch2),y› iny› cpy temp+1› bcs n2› jmp l2››n2 lda #0› iny››ll2 sta (ch2),y› iny› cpy #10› bcs c2› jmp ll2››c2 equ *›› ldy #0› lda #29› ldx play+11› stx temp+1› clc› ror temp+1››l3 sta (ch3),y› iny› cpy temp+1› bcs n3› jmp l3››n3 lda #0› iny››ll3 sta (ch3),y› iny› cpy #10› bcs c3› jmp ll3››c3 jmp (skok)››stop ldy skok› ldx skok+1› lda #$07› jsr setvblkd›› ldx musadr› lda #$40›› jsr play+3›› lda #$00› sta temp› rts››init lda <48192+42› sta ch1› lda >48192+42› sta ch1+1› lda <48192+82› sta ch2› lda >48192+82› sta ch2+1› lda <48192+122› sta ch3› lda >48192+122› sta ch3+1›› lda temp›› cmp #$00› beq skok_1›› cmp #$01› beq skok_2›› jmp (10)››skok_1 jmp zaloz›skok_2 jmp stop›› end››