>Seeker
> Keep looking till you find non-zeroes, and satur-
> ate surrounding area with double-bombs.
> a fairly effective use of protection, and can
> normally deal with worms, dwarves, and multiple-
> splitters etc.
> The only trouble is, it's massive!

@ -80
.verystart
.deathtestb DAT 4131
@ -8
.bombpt
DAT verystart-1
.pctptr
DAT 0
.wormblock
DAT 0
DAT 0
DAT 0
.wormstomp
MOV #0,wormblock
DJN -1,wormblock+2
JMP -2     ; wipe out incoming worms etc
.init 
MOV #4131,deathtestb
SPL seekloop
.start
PCT deathtestb  ; test for worms
MOV #end-pctptr,pctptr
MOV #end-pctptr,pctptr ; coz ptr protected
MOV #0,fence
MOV #0,fence
MOV #0,fence+1
MOV #0,fence+1
MOV #2314,fence2
MOV #2314,fence2+1
.pctlp
PCT <pctptr
JMN pctlp,pctptr
CMP #4131,deathtestb
JMP start  
MOV #0,init
MOV #0,init ; don't keep protecting
MOV #0,seekloop
MOV #0,seekloop ; kill this bit
JMP wormstomp
.seekloop
JMZ 0,<bombpt ; is that a DAT 0?
CMP #2314,@bombpt
JMP hitus
ADD #1,bombpt
.hitlp
MOV #0,<bombpt
MOV #0,@bombpt  ; twice to remove protection
JMN hitlp,<bombpt
SUB #5,bombpt
JMP seekloop
.fence2
DAT 2314
DAT 2314
.hitus
ADD #verystart-20,bombpt
JMP seekloop
DAT 2314
DAT 2314
.fence
DAT 0
DAT 0
.end