home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 72 / IOPROG_72.ISO / soft / Codice / CRobots / Software / CWARS21.ZIP / VIRA.RDC < prev    next >
Encoding:
Text File  |  1989-04-28  |  548 b   |  18 lines
  1. ; VIRA - a different MICE
  2. ; Maz Spork
  3.  
  4. length    EQU    last-start    ; L{ngden af VIRA
  5. offset    EQU    654        ; afstand mellem kopier
  6. faraway    EQU    180        ; afstand til 1ste kopi
  7. ;
  8. source    DAT    #0        ; Mark|r til eget program
  9. start    MOV    #length, source ; S{t til l{ngden af programmet
  10. loop    MOV    @source, <dest    ; Flyt en v{rdi til det ny program
  11.     DJN    loop, source    ; Indtil det hele er kopieret
  12.     SPL    @dest        ; Split til kopien
  13.     ADD    #offset, dest    ; Ny destination for en kopi
  14.     JMP    start        ; Hop til begyndelsen
  15. dest    DAT    #faraway    ; Mark|r til kopien
  16. ;
  17. last    END
  18.