;author Benji Dial
;name Dwarf Replicator

;not a particularly good warrior, but is sufficient to test a few things

start:
  mov 0, 2908
  nop }start, >start
  jmp 2

  dat

  seq.a #end - start, start
  jmp start
  jmp 2

  dat

  sub.ab #end - start, start
  spl @start
  jmp 2, <start

  dat

dwarf:
  mov end, end + 4
  add.ab #4, dwarf
  jmp 2

  dat

  seq.ab #start + 723 - dwarf, dwarf
  jmp dwarf
  jmp 2

  dat

core_clear:
  mov end, end + 1
  add.ab #1, 0-1
  jmp 2

  dat

  seq.a #0-1, core_clear
  jmp core_clear
  jmp 2

  dat

  mov.ab #end + 1, core_clear
  jmp core_clear
  dat

end: