;redcode-94 ;name Small Graft ;author Planar ;strategy Fleetfoot with impfinity launcher. ;strategy I really don't have any idea for this round. ;assert CORESIZE == 8000 ;; For round 8 of the Redcode Maniacs Tournament. ;; Fleetfoot is quite good against the 10 given opponents, and I don't ;; know how to improve it. ;; The impfinity launcher doesn't seem to change anything... ORG start ; ----------------------------------------------------- ; Q^2 scan QB EQU (start+400) QS EQU 206 QD EQU 103 COUNT EQU 6 GAP EQU 15 REP EQU 6 dat 10*QS, 2*QS ; can get 21 values from this table table: dat 4*QS, 1*QS ; and can also use the initial value dat 23*QS, 3*QS ; of fnd qbomb: dat 0, -56 tab: add.a table,table slow: add.ab @tab,fnd fast: add.b *tab,@slow which: sne.i datz,@fnd add.ab #QD,fnd mov.i qbomb,@fnd add.ab #46, fnd ; Nudge pointer on to start run mov.i qbomb, @fnd fnd: mov.i qbomb, @QB add.ab #-7, fnd djn.b -3, #6 ; 0.5c bombing over wide area jmp implaun,}-3000 start: seq.i QB+QS*17,QB+QS*17+QD jmp slow,{fast seq.i QB+QS*8,QB+QS*8+QD jmp fast,>tab seq.i QB+QS*24,QB+QS*24+QD jmp slow,>tab seq.i QB+QS*15,QB+QS*15+QD jmp tab,tab seq.i QB+QS*28,QB+QS*28+QD jmp tab,>tab seq.i QB+QS*0,QB+QS*0+QD jmp which,}QS*13 ; qinc+GAP seq.i QB+QS*1,QB+QS*1+QD jmp fast,}QB+QS*1+QD/2 seq.i QB+QS*2,QB+QS*2+QD jmp fast,{tab seq.i QB+QS*3,QB+QS*3+QD jmp fast,}tab seq.i QB+QS*13,QB+QS*13+QD jmp fast,{fast seq.i QB+QS*4,QB+QS*4+QD jmp >fast,}QB+QS*4+QD/2 seq.i QB+QS*5,QB+QS*5+QD jmp slow,}QB+QS*5+QD/2 seq.i QB+QS*6,QB+QS*6+QD jmp slow,{tab seq.i QB+QS*7,QB+QS*7+QD jmp slow,}tab seq.i QB+QS*10,QB+QS*10+QD jmp >fast,2900 pump spl #1, >prime prime mov.i imp, impoff-4 add.f #impsize+1, ptr ptr jmp pump+impoff-(impsize+1), >336 FOR 5 dat 0, 0 ROF imp mov.i #impsize, *0 FOR 7 dat 0, 0 ROF ; ----------------------------------------------------- ; Stone step equ -845 djnoff equ split+step clr spl #0, 0 split spl #-step, -step, step+1 add split, stone cnt djn.f stone,