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 / RELCMC.ASM next >
Assembly Source File  |  1988-09-01  |  809b  |  1 lines
  1.      opt 21    áπϕπá≥σ∮∩πβ⌠∩≥ᢠ    org $b000 á¡®á≤∙·∙τ∙áúŒáᢢadr1 equ $8000 skad relokacja¢adr2 equ $9000 pod jaki adr¢lsb  equ adr1+$14 mlodsze i starsze¢msb  equ adr1+$54 adresy patternow.¢¢cmcrel equ *¢¢* reloka adresow patternow.¢     ldy #0¢r1   lda msb,y¢     cmp #$ff¢     beq skp¢     sec¢     sbc >adr1¢     clc¢     adc >adr2¢     sta msb,y¢     lda lsb,y¢     cmp #$ff¢     beq skp¢     sec¢     sbc <adr1¢     clc¢     adc <adr2¢     sta lsb,y¢skp  iny¢     cpy #64¢     bne r1¢¢* przepisanie $1000 bajtow spod¢* adr1 do adr2.¢* normalniej: emesiks pod nowy¢* adres.¢¢     lda >adr1¢     sta r2+2¢     lda >adr2¢     sta r3+2¢     ldx #$10    x=ile stron pamieci¢     ldy #0¢r2   lda adr1,y¢r3   sta adr2,y¢     iny¢     bne r2¢     inc r2+2¢     inc r3+2¢     dex¢     bne r2¢     rts¢     end¢