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 / RELMPT.ASM < prev    next >
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¢_ad1 equ adr1¢lsb  equ adr1+$1c0¢msb  equ adr1+$1c4¢¢mptrel equ *¢¢* reloka adresow brzmien i¢* instrumentow.¢     ldy #0¢r1   lda _ad1,y¢     beq skp1¢     sec¢     sbc <adr1¢     clc¢     adc <adr2¢     sta _ad1,y¢skp1 iny¢     lda _ad1,y¢     beq skp2¢     sec¢     sbc >adr1¢     clc¢     adc >adr2¢     sta _ad1,y¢skp2 iny¢     cpy #$c0¢     bne r1¢¢* reloka adresow trackow.¢     ldy #0¢r3   lda msb,y¢     beq skp¢     sec¢     sbc >adr1¢     clc¢     adc >adr2¢     sta msb,y¢     lda lsb,y¢     beq skp¢     sec¢     sbc <adr1¢     clc¢     adc <adr2¢     sta lsb,y¢skp  iny¢     cpy #4¢     bne r3¢¢* przepisanie $1500 bajtow z¢* adr1 do adr2.¢* po ludzku: msx pod adr2.¢¢     lda >adr1¢     sta r4+2¢     lda >adr2¢     sta r5+2¢     ldx #$15     x=ile stron pamieci¢     ldy #0¢r4   lda adr1,y¢r5   sta adr2,y¢     iny¢     bne r4¢     inc r4+2¢     inc r5+2¢     dex¢     bne r4¢     rts¢     end¢