42 lines
557 B
Text
42 lines
557 B
Text
;author Benji Dial
|
|
;name Epson
|
|
|
|
period equ 10
|
|
|
|
scan_init equ the_end - (the_end - scan) % period + period
|
|
|
|
scan
|
|
seq.i -period, scan_init
|
|
jmp found
|
|
|
|
found_ret
|
|
add.ab #period, scan
|
|
seq.ab scan, scan
|
|
jmp scan
|
|
|
|
add.f scan_add, scan
|
|
jmn.a scan, scan
|
|
|
|
clear
|
|
mov the_end, - 1
|
|
sub.ab #2, clear
|
|
|
|
seq.ab #the_end - clear - (the_end - clear) % 2 + 3, clear
|
|
jmp clear
|
|
|
|
mov.ab #-1, clear
|
|
jmp clear
|
|
|
|
scan_add
|
|
dat 2, period + scan_init + 2
|
|
|
|
found
|
|
mov bomb, >scan
|
|
mov bomb + 1, @scan
|
|
jmp found_ret, <scan
|
|
|
|
bomb
|
|
spl 1
|
|
jmp bomb
|
|
|
|
the_end
|