55 lines
603 B
Text
55 lines
603 B
Text
;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, -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:
|