Syzygy Magazine 6/Syzygy_Magazine_6_1999___pl_Disk_2_of_3_Side_A.atr/msxrel.arc/TMCR.ASM

Assembly Source File | 1979-12-31 | 2KB | 1 lines

ûקלב≥σ∮é¢ûצ·τáúÀé¢     opt %100101¢¢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¢