;redcode-94
;name Enigma-imp
;author brx
;strategy ..don't ask.

;assert (CORESIZE==8000)

    org init

step1 equ 3413
step2 equ 611

dc1 equ 2133

for 11
    dat #6, #15
    dat #621, #7321
    dat #666, #222
    dat #5119, #12
    dat #11, #956
    dat #1442, #511
    dat #950, #1112
    dat #52, #567
rof
    dat #5911, #151

init    spl.a 1,        <-1667
        spl.a 1,        <-3667
        spl.a 1,        <-5331

paper   spl.a step1,    paper
        mov.i >-1,      }-1

        spl.a step2,    <paper
        mov.i >paper,   }-1

        mov.i death,    <dc1

        nop #0, <1
        mov.i 0, 9
death   dat <-2667, <2667