;redcode
;name Ymir's Tendrils
;author Philipp Schaefer
;strategy tjojo
;assert 1

;; --------
;; STARTPOS
;; --------
        org     decoy

;; ----
;; Boot
;; ----

;; Boot Constants
bootp   equ     2565

;; Boot Code
boot    mov     <3,             {3
        djn     -1,             #7
        djn     bootp-4,        {1083
        dat     bootp,          e+1

;; -----
;; Clear
;; -----


;; Clear Constants
csize   equ     (e-cp+1)

;; Clear Code
cp      dat     clear,          dend+20
clear   spl     #csize-2,       csize
        mov     *cp,            >cp
        mov     *cp,            >cp
        djn.f   clear+1,        <3672
        spl     #csize-1,       csize
e       dat     csize-1,        csize

;; ---------
;; Quickbomb
;; ---------

;; QB Constants
dlength equ     1586
dcount  equ     26
dstep   equ     (dlength/dcount)
dstart  equ     (cp - 10 - dlength - i)

;; QB Code (dcount Instructions)
decoy   

i       for     dcount
        mov     }(dstart+(dcount-i+1)*dstep)+1, (dstart-(dcount-i+1)*dstep)
rof
dend    djn.f   boot,                           {2603