;redcode-94 ;name seventyfive ;kill seventyfive ;author Anders Ivner ;assert (CORESIZE == 8000) ;strategy 75% bomber -> separate multipass coreclear ;strategy Credits to Karl Lewin for crow. STEP EQU 14 ORG bomber STEPB EQU 85 COUNT EQU 500 A equ (jump+STEPB*2) head dat #0, #tail+100 d1 dat <0, head mov.i @tail, >head tail djn.b go, {s1 for 74 dat 0,0 rof bd dat #2*STEPB,#2*STEPB incrb spl #3*STEPB,#3*STEPB dat 0, 0 bomber mov bd, @pt pt cmp A, @A-STEPB sub bd, pt add incrb, pt jump djn.b bomber, #COUNT jmp incr end