;redcode-94
;name Quamta
;author datagram
;strategy Scrub my way into 4th, or die trying.
;assert CORESIZE==3800

step equ 993
djns equ 1627
jump equ 2010
kill equ 1267

boot   mov.i <2, {2
	  djn.b	-1, #10
	  jmp jump, 11
start	mov.i bomb, @bomb
	  add.ab #step,	bomb
	  djn.f	-2, bomb
ptr	 nop 1, 6
clr	 spl #5, 6
loop   mov *ptr, >ptr
          mov *ptr, >ptr
gate   djn.f loop, <djns
	  dat 5, <kill
bomb spl #5, #step