home *** CD-ROM | disk | FTP | other *** search
/ ftp.uni-stuttgart.de/pub/systems/acorn/ / Acorn.tar / Acorn / acornet / fun / games / corewars.spk / !CoreProgs / progs / kobold < prev    next >
Text File  |  1990-11-03  |  490b  |  31 lines
  1. >KOBOLD
  2. > This is a ripoff of Dwarf clonemaker -
  3. > except it works. (by J.W.)
  4. > Also gets past protection by double-bombing.
  5.  
  6. @ -6
  7. .target2 DAT 0
  8. .dwarf DAT 0
  9. ADD #5,-1
  10. MOV #5,@-2
  11. MOV #5,@-3
  12. JMP -3
  13. .copydwarf
  14. ADD #1999,target2
  15. .gogo MOV dwarf,@target2
  16. ADD #1,target2
  17. MOV dwarf+1,@target2
  18. PCT @target2
  19. ADD #1,target2
  20. MOV dwarf+2,@target2
  21. PCT @target2
  22. ADD #1,target2
  23. MOV dwarf+3,@target2
  24. PCT @target2
  25. ADD #1,target2
  26. MOV dwarf+4,@target2
  27. PCT @target2
  28. SUB #3,target2
  29. SPL copydwarf
  30. JMP @target2
  31.