;redcode-94x
;name Blowtorch AX 15
;author Steve Gunnell
;assert 1

STEP   	equ 	7273
GAP    	equ 	1238
START  	equ 	(hit-GAP-STEP*26263)
GAP1   	equ 	53
SKIP   	equ 	(ctop-cptr+18)

cptr   	dat    	#0    	,#100
       	dat    	SKIP  	,SKIP
clbmb  	dat    	SKIP  	,SKIP
	for GAP1
       	dat.f  	$0   	,$0
	rof
mbmb   	mov.i  	GAP   	,>GAP
sbmb   	spl    	#1-GAP	,1-GAP
throw  	mov.i  	sbmb  	,>START
       	mov.i  	mbmb  	,@throw
       	add.ab 	#STEP 	,throw
hit    	djn.f   -3   	,>cptr
       	mov    	clbmb 	,>cptr
ctop   	djn.f   -1   	,>cptr

end sbmb