;redcode
;name Bad Scanner 0.0
;author Koen Struyve
;strategy I tried to make a scanner, but it failed,
:strategy so now it is a stone...


step equ 2800
spl     1,      <300    ;decoy
mov     -1,     0
mov     -1,     0
spl     1,      <1200
spl     @0,     {5
mov.i   }-1,    >-1
spl     @0,     <1
mov.i   }-1,    >-1
mov     {2, <3
spl     @0,     >5
mov     3,   <1
jmp     -1,     -1
spl     1,      <300
mov     -1,     0
mov     -1,     0
spl     1,      <1200
spl     @0,     {5
mov.i   }-1,    >-1
spl     @0,     <1
mov.i   }-1,    >-1
mov     {2, <3
spl     @0,     >5
mov     3,   <1
jmp     -1,     -1
spl     1,      <300
mov     -1,     0
mov     -1,     0
spl     1,      <1200
spl     @0,     {5
mov.i   }-1,    >-1
spl     @0,     <1
mov.i   }-1,    >-1
mov     {2, <3
spl     @0,     >5
mov     3,   <1
jmp     -1,     -1
spl     1,      <300
mov     -1,     0
mov     -1,     0
spl     1,      <1200
spl     @0,     {5
mov.i   }-1,    >-1
spl     @0,     <1
mov.i   }-1,    >-1
mov     {2, <3
spl     @0,     >5
mov     3,   <1
jmp     -1,     -1
spl     1,      <300
mov     -1,     0
mov     -1,     0
spl     1,      <1200
spl     @0,     {5
mov.i   }-1,    >-1
spl     @0,     <1
mov.i   }-1,    >-1
mov     {2, <3
spl     @0,     >5
mov     3,   <1
jmp     -1,     -1
stone   SPL #20, <2664            ;actual code
loop    ADD #3039, ptr
ptr     MOV stone, 81
        DJN loop, <2667
        MOV 1, <-1
boot    MOV stone+4, step
        MOV stone+3, <boot
        MOV stone+2, <boot
        MOV stone+1, <boot
        MOV stone,   <boot
        JMP @boot
end boot