diff options
Diffstat (limited to 'warriors')
-rw-r--r-- | warriors/big-nothing.red | 2 | ||||
-rw-r--r-- | warriors/dwarf-replicator.red | 18 | ||||
-rw-r--r-- | warriors/epson.red | 20 |
3 files changed, 20 insertions, 20 deletions
diff --git a/warriors/big-nothing.red b/warriors/big-nothing.red index a9aa6c9..1d69675 100644 --- a/warriors/big-nothing.red +++ b/warriors/big-nothing.red @@ -1,7 +1,7 @@ ;author Benji Dial ;name Big Nothing -start: +start nop nop nop diff --git a/warriors/dwarf-replicator.red b/warriors/dwarf-replicator.red index 01a1494..c5022a2 100644 --- a/warriors/dwarf-replicator.red +++ b/warriors/dwarf-replicator.red @@ -3,27 +3,27 @@ ;not a particularly good warrior, but is sufficient to test a few things -start: +start mov 0, 2908 nop }start, >start jmp 2 dat - seq.a #end - start, start + seq.a #the_end - start, start jmp start jmp 2 dat - sub.ab #end - start, start + sub.ab #the_end - start, start spl @start jmp 2, <start dat -dwarf: - mov end, end + 4 +dwarf + mov the_end, the_end + 4 add.ab #4, dwarf jmp 2 @@ -35,8 +35,8 @@ dwarf: dat -core_clear: - mov end, end + 1 +core_clear + mov the_end, the_end + 1 add.ab #1, -1 jmp 2 @@ -48,8 +48,8 @@ core_clear: dat - mov.ab #end + 1, core_clear + mov.ab #the_end + 1, core_clear jmp core_clear dat -end: +the_end diff --git a/warriors/epson.red b/warriors/epson.red index a327807..eeceee1 100644 --- a/warriors/epson.red +++ b/warriors/epson.red @@ -3,13 +3,13 @@ period equ 10 -scan_init equ end - (end - scan) % period + period +scan_init equ the_end - (the_end - scan) % period + period -scan: +scan seq.i -period, scan_init jmp found -found_ret: +found_ret add.ab #period, scan seq.ab scan, scan jmp scan @@ -17,26 +17,26 @@ found_ret: add.f scan_add, scan jmn.a scan, scan -clear: - mov end, - 1 +clear + mov the_end, - 1 sub.ab #2, clear - seq.ab #end - clear - (end - clear) % 2 + 3, clear + seq.ab #the_end - clear - (the_end - clear) % 2 + 3, clear jmp clear mov.ab #-1, clear jmp clear -scan_add: +scan_add dat 2, period + scan_init + 2 -found: +found mov bomb, >scan mov bomb + 1, @scan jmp found_ret, <scan -bomb: +bomb spl 1 jmp bomb -end: +the_end |