All pastes #492987 Raw Edit

cmp-scanner

public text v1 · immutable
·published 2007-05-17 15:10 UTC
rendered paste body
;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