home *** CD-ROM | disk | FTP | other *** search
/ Syzygy Magazine 5 / Syzygy_Magazine_5_Expanded_1998___pl_Disk_1_of_2_Side_A.atr / stuff.arc / MSXREL.ARC / RELTMC.ASM < prev   
Assembly Source File  |  1988-09-01  |  1KB  |  1 lines
  1.      opt 21    á⌠ϕπá≥σ∮∩πβ⌠∩≥ᢠ    org $b000 á¡®á≤∙·∙τ∙áúŒáᢢadr1 equ $7000 skad relokowac¢adr2 equ $9000 pod jaki adres¢lsb1 equ adr1+$20 mlodsze i starsze¢msb1 equ adr1+$60 adresy instrumentow.¢lsb2 equ adr1+$a0 mlodsze i starsze¢msb2 equ adr1+$120 adresy patternow.¢¢tmcrel equ *¢¢* reloka adresow instrumentow.¢     ldy #0¢r1   lda msb1,y¢     beq skp¢     sec¢     sbc >adr1¢     clc¢     adc >adr2¢     sta msb1,y¢     lda lsb1,y¢     beq skp¢     sec¢     sbc <adr1¢     clc¢     adc <adr2¢     sta lsb1,y¢skp  iny¢     cpy #64¢     bne r1¢¢* reloka adresow patternow.¢     ldy #0¢r2   lda msb2,y¢     beq skp2¢     sec¢     sbc >adr1¢     clc¢     adc >adr2¢     sta msb2,y¢     lda lsb2,y¢     beq skp2¢     sec¢     sbc <adr1¢     clc¢     adc <adr2¢     sta lsb2,y¢skp2 iny¢     cpy #128¢     bne r2¢¢* przepisanie $2000 bajtow z¢* adr1 do adr2.¢* inaczej mowiac muza zostanie¢* przeniesiona pod nowy adres.¢¢     lda >adr1¢     sta r3+2¢     lda >adr2¢     sta r4+2¢     ldx #$20      x=ile stron pamieci¢     ldy #0¢r3   lda adr1,y¢r4   sta adr2,y¢     iny¢     bne r3¢     inc r3+2¢     inc r4+2¢     dex¢     bne r3¢     rts¢     end¢