diff options
Diffstat (limited to 'warriors/epson.red')
| -rw-r--r-- | warriors/epson.red | 20 |
1 files changed, 10 insertions, 10 deletions
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 |