1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
# Name : Angles of Death
# Author : Jan Pool
# http://espresso.ee.sun.ac.za/~jpool/
# Version : 0.0.1 (06/03/2000)
# The 'Angles of Death' is my first replicator. The first copy
# start to create new copies up to four. If four copies exist
# The 'AoD' start to bomb to the left and right of them. As
# one of them detect that a Angel is dead he starts to spawn
# another one.
# : 0.0.2 (06/03/2000)
# This version only have three Angels. This is to increase the
# deployment and bombing speed. When there is many processes
# The angles spend most of their time spawning, instead of
# killing other warriors:(
# : 0.0.3 (06/03/2000)
# Changed the name of the END label to SE and moved it after
# last instruction. Also moved the add to START and SE to after
# the memory location has been bombed. Why? Well, this is done
# to insure that the 'copy_cat' and 'parasito' warrios has a
# smaller chance to succeed or give away the location of the
# angle spawned by this Angel, mu-ha-ha:)
# : 0.0.4 (09/03/2000)
# Back to four angels. Increased the bombing interval to 6 from 4.
# Todo : Test it
title "Angels of Death 0.0.4"
author "Jan Pool <jpool@dsp.sun.ac.za>"
START: data &START
SR: move &START, START
move &SE, SE
REP1: info 4, ANGELS # See how many Angels (threads) there is
less ANGELS, 4 # Less than 4 Angles
jump SPAWN # Yes, then spawn another one
move SE, [SE] # No, then bomb the memory
add 6, SE # Move right
move START, [START]
add -6, START # Move left
jump REP1
SPAWN: move &SR, SRC1 # Where to start copying
info 2, DST1 # New random location for Angle
move DST1, DST2 # Save that destination for the fork
move 19, CODESZ # Bytes to copy
REP2: movei SRC1, DST1 # Copy the Angel to a new random location
loop CODESZ, REP2
fork [DST2] # Start new Angel
jump REP1 # This one has work to do:)
ANGELS: data 0
SE: data &SE
SRC1: data 0
DST1: data 0
DST2: data 0
CODESZ: data 0
|
