home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Syzygy Magazine 6
/
Syzygy_Magazine_6_1999___pl_Disk_2_of_3_Side_A.atr
/
msxrel.arc
/
TMCR.ASM
< prev
Wrap
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¢