p0 equ $a0›p1 equ $a2›p2 equ $a4›p3 equ $a6›x  equ $a8›y  equ $a9›vol equ $aa›ile equ 5›› opt %100101› org $a000›› lda #0› sta vol› lda #80› sta $d200›› lda $58› sta p0› lda $59› sta p0+1› ldx #3›x0 ldy #0› tya›x1 sta (p0),y› iny› bne x1› inc p0+1› dex› bne x0› lda #$21› sta 559› lda #16› sta x› lda #12› sta y›loop equ *››rysuj equ *› lda $58› sta p0› lda $59› sta p0+1› ldx #3›t0 stx p3› ldy #0›t1 lda (p0),y› beq t2› ldx #ile›t3 lda (p0),y› cmp sr,x› bne t4› lda sr-1,x› sta (p0),y› jmp t2›t4 dex› bne t3›t2 iny› bne t1› inc p0+1› ldx p3› dex› bne t0› lda #0› sta p1› lda y› sta p1+1› clc› ror p1+1› ror p1› clc› ror p1+1› ror p1› clc› ror p1+1› ror p1› lda $58› clc› adc x› adc p1› sta p1› lda $59› adc p1+1› sta p1+1› ldy #0› lda sr+ile› sta (p1),y›move equ *› ldx #$ff› lda x› bne m1› lda #1› sta m0+1›m1 clc›m0 adc #1› sta x› cmp #31› bne m2› stx m0+1›m2 lda y› bne m3› lda #1› sta m4+1›m3 clc›m4 adc #1› sta y› cmp #23› bne m5› stx m4+1›m5 equ *›ramka equ *› lda 20›r1 cmp 20› beq r1› lda vol› beq dalej› dec vol› dec vol›dalej equ *› ora #$a0› sta $d201› lda x› beq sound› cmp #31› beq sound› lda y› beq sound› cmp #23› bne wrac›sound equ *› lda #3› sta $d217› lda #14› sta vol›wrac equ *› lda 20› and #$20› lsr @› sta $d216› jmp loop›sr dta d' .`”'›› org $2e0› dta a($a000)››