Core war - Leaf Dwarf

;redcode-94
;name Leaf Dwarf
;author Jani Mustonen
;strategy Leaf bomber
;assert 1

length equ 12
step   equ 4329
jump   equ step+start+1

        org    start
ptr     dat    #1        ,    #0
targ    dat    #1        ,    #0
leaf1   mov.ab #step     ,    targ  ; Reset the target
leaf2   mov.i  >ptr      ,    >targ ; Copy *ptr++ -> *targ++
        slt    #length   ,    ptr   ; Jump back if ptr < length
        jmp    leaf2
        jmp    jump                 ; When done, jump to the start of the new program.
start   spl    leaf1
        mov.ab #2        ,    3
bomb    mov.i  2         ,    >2
        jmp    bomb      ,    >1
        dat    #1        ,    #2
        end