muz  equ $9000    poczatek danych
*                 modulu.
muz2 equ $7000    rel. na jaki adr.

lsb  equ muz+$20  instr.
msb  equ muz+$60
lsb2 equ muz+$a0  ptrn.
msb2 equ muz+$120

     org $80
adr1 org *+2
adr2 org *+2

     org $b000
     lda <muz     poczatkowy adres
     sta adr1     muzyki (patrz
     lda >muz     naglowek pliku).
     sta adr1+1
     lda <$8e2c   pod jaki adres
     sta adr2     relokowac muzyke.
     lda >$8e2c
     sta adr2+1
     jsr tmcr
     rts

tmcr ldy #0
     lda lsb,y
     bne k1
     lda msb,y
     beq k3
     lda lsb,y
k1   sec
     sbc adr1
     sta lsb,y
     bcs k2
     lda msb,y
     tax
     dex
     txa
     sta msb,y
k2   lda msb,y
     sec
     sbc adr1+1
     clc
     adc adr2+1
     sta msb,y
     lda lsb,y
     clc
     adc adr2
     sta lsb,y
     bcc k3
     lda msb,y
     tax
     inx
     txa
     sta msb,y
k3   lda lsb2,y
     bne k1_
     lda msb2,y
     beq k3_
     lda lsb2,y
k1_  sec
     sbc adr1
     sta lsb2,y
     bcs k2_
     lda msb2,y
     tax
     dex
     txa
     sta msb2,y
k2_  lda msb2,y
     sec
     sbc adr1+1
     clc
     adc adr2+1
     sta msb2,y
     lda lsb2,y
     clc
     adc adr2
     sta lsb2,y
     bcc k3_
     lda msb2,y
     tax
     inx
     txa
     sta msb2,y
k3_  lda lsb2+$40,y
     bne k1__
     lda msb2+$40,y
     beq k3__
     lda lsb2+$40,y
k1__ sec
     sbc adr1
     sta lsb2+$40,y
     bcs k2__
     lda msb2+$40,y
     tax
     dex
     txa
     sta msb2+$40,y
k2__ lda msb2+$40,y
     sec
     sbc adr1+1
     clc
     adc adr2+1
     sta msb2+$40,y
     lda lsb2+$40,y
     clc
     adc adr2
     sta lsb2+$40,y
     bcc k3__
     lda msb2+$40,y
     tax
     inx
     txa
     sta msb2+$40,y
k3__ iny
     cpy #$40
     beq rtz
     jmp tmcr+2
rtz  rts
     end