;redcode-94 ;name Am I alive? ;author Christian Schmidt ;strategy my new p-warrior concept: ;strategy 3 compounds and 4 strategies ;strategy more brainwash-resistant and deadlier ;strategy against other complex p-warriors ;strategy try to tie if nothing helps ;assert 1 gate equ (clear-5) bDist equ 1850 offset equ 3 org pThink dBoot mov cIns, cIns+bDist-2 mov a, a+bDist mov b, b+bDist spl second i for 4 mov clear+i-1, clear+i-1+bDist rof jmp clear+bDist, {0 second i for 4 mov clear2+i-1, clear2+i-1+bDist+offset rof jmp clear2+bDist+offset,{0 cIns spl #0, $18 a dat <-2666, <2667 b dat <-2666, <2667 clear spl #0, gate mov b, >gate djn.f -1, {gate clear2 spl #0, gate-offset mov b-3, >gate-offset djn.f -1, {gate-offset dist equ 3800;-83 xstep equ 5379 ; or 5393 scanb mov xscan sc add #xstep+1, #xstep+1 jmz.f sm, -1, >1 for 11 dat 0, 0 rof pump spl #1, >prime prime mov.i imp, impoff-4 add.f #impsize+1, ptr ptr jmp pump+impoff-(impsize+1), >-200 imp mov.i #impsize, *0