cmp-scanner
public text v1 · immutable;redcode
;name CMP-scan v2
;redcode
;name CMP-scan v2
;v2 multi shots
step equ 10
gap equ 5
wait equ 797
org update
start dat #0, #0
loc_m dat #step, #step
update add.f loc_m, scan
scan cmp start+(2*gap), start+(3*gap)
jmp tobomb
rescan djn.b update, #wait
cc spl 0, $-1
mov start, <cc
dat <start, <start-1
tobomb mov start, <scan
cmp.ab scan, scan
jmp tobomb
add.ab #gap, scan
jmp update, <rescan