Revival Fire is a bomber which entered's 94nop hill on 23rd May 2001 and survived 468 challenges before being pushed off on 27th April 2002.

;name Revival Fire
;author P.Kline
;assert CORESIZE == 8000
;strategy ok, it's Airbag
;strategy changed to use imp-bombs; tweaked spacing, step and placement
;strategy imp failsafe (against nPaper) like Recount
;bmb1 (simple imp) is effective against stone-imps
;bmb2 kills scanners immediately but turns into an imp in a few cycles
;one-two stone is improved by gathering all its parts closer together
;imp carpets are separated and moved away from home

step            equ     335

one             add.f   incr    ,ptr    ; part 1 of .5c bomber
                mov.i   bmb2    ,*ptr
                jmz.f   one     ,>check ; airbag check
                jmp     imps1   ,<cptr
check           dat.f   0,0
incr            dat     #step*3 ,step*3
bmb2            mov     step*16 ,1      ; kills scanners immediately
bmb1            mov.i   #step   ,1      ; stuns spl-loops, delays paper
            for 12
                dat.f   0,0
two             mov.i   bmb1    ,@ptr   ; part 2 of .5c bomber
ptr             mov.i   check+4*step,*check+5*step
                jmz.f   two     ,<check ; airbag check
                djn.f   imps2   ,<check+5
            for 16
                dat.f   0,0
                dat.f   0,0
cptr            dat.f   0       ,4000
                dat.f   0,0
cbmb1           dat.f   <5335   ,(finish+8-cptr)
                dat.f   0,0
finish          spl     #0
                spl     #0      ,<cptr+1      ; d-clear to finish
                mov.i   cbmb1   ,>cptr
                djn.f   -1      ,>cptr
                mov.i   #step   ,1
            for 20
                dat.f   0,0
impst1          equ     (check+221)
impst2          equ     (check+132)
imps2           spl     >finish   ,<check+8     ; continuous imp launcher
                spl      #0      ,<check+4     ; "<" to kill runaway imps
                add.a   #2668    ,1
                djn.f   impst2-2668,<check+16
            for 11
                dat.f   0,0
imps1           spl     finish   ,<cbmb1       ; continuous imp launcher
                spl     #0       ,<cptr
                add.f   #2668    ,1
                jmp     impst1-2668,<-5000
            for 5
                dat.f   0,0
imp1            mov.i   #500,2667
start           spl     one  ,impst1+4        ; start bomber 1
                spl     two  ,impst2+4        ; start bomber 2
                mov     imp1 ,<-2
                mov     imp1 ,<-2
                djn     -2   ,#4
                end     start