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

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

ûלסק≥σ∮é¢ûצ·τáúÀé¢     opt %100101¢¢muz  equ $3aef    poczatek danych¢*                 modulu.¢¢lsms equ muz      inst+ptr.¢lsb  equ muz+$1c0 trax.¢msb  equ muz+$1c4¢¢     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 mptr¢     rts¢¢mptr 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   iny¢     cpy #4¢     bne mptr+2¢     ldy #0¢mptr2 lda lsms,y¢     bne n1¢     iny¢     lda lsms,y¢     beq n2¢     dey¢     lda lsms,y¢n1   sec¢     sbc adr1¢     sta lsms,y¢     bcs l1¢     iny¢     lda lsms,y¢     tax¢     dex¢     txa¢     sta lsms,y¢     dey¢l1   iny¢     lda lsms,y¢     sec¢     sbc adr1+1¢     clc¢     adc adr2+1¢     sta lsms,y¢     dey¢     lda lsms,y¢     clc¢     adc adr2¢     sta lsms,y¢     bcc l2¢     iny¢     lda lsms,y¢     tax¢     inx¢     txa¢     sta lsms,y¢     dey¢l2   iny¢n2   iny¢     cpy #$c0¢     bne mptr2¢     rts¢     end¢