;redcode-94 ;name Grilled Octopus v0.5 ;author David Boeren ;assert CORESIZE == 8000 ;strategy Aggressive P-warrior ;strategy Death awaits you all, with nasty big pointy teeth! ;strategy v0.1 Initial Release ;strategy v0.2 More aggressive, wins are better than ties! ;strategy v0.5 Totally new pspace techniques, upgraded components step equ 95 stepb equ (step*2) stepz equ (184*2) ; "second chance" step for Fei-Oh gate equ (inc-95) dest0 equ 2200 dest1 equ 3740 dest2 equ -1278 ; pmars optimized range equ 933 ; pmars optimized sid equ 143 ; Stage ID pdata equ 23 ; Win/Loss data Pmod equ 29 ; 5=7859, 7=7801, 8=7772, 10=7685, 13=7598, 16=7511, 20=7385 Pinit equ 7598 ; Fei-Oh loss tolerance Pmorf equ 7801 ; Fei-Oh re-stepping tolerance Pinit2 equ 7772 ; Paper Shredder loss tolerance bdist1 equ (sflag+3317) ; Fei-Oh boot distance bdist2 equ (sflag+3268) ; Paper Shredder boot distance bdist3 equ (sflag+3243) ; Paper boot distance org start sflag DAT.F #sid, #pdata ; pspace data pointers DAT.F #0, +Pinit ; first round PRESULT DAT.F #0, +Pmod ; loss DAT.F #0, -Pmod ; win DAT.F #0, #0 ; tie start LDP.A #0, PRESULT ; Get results of last round SNE.A #-1, PRESULT ; Is it the 1st round? STP.A #1003, sflag ; If so, init stage ID LDP.A sflag, jtab ; Load stage ID SUB.A #1003, jtab ; Subtract secret number... SLT.AB jtab, #3 ; Are we brainwashed? JMP.B @0, nowash ; If so, jump to handler LDP.BA sflag, PTEST ; Get the current win/loss counter jtab JMP.B @0, stage1 ; Jump table to correct component DAT.F #0, stage2 DAT.F #0, stage3 stage1 ADD.AB PTEST, *PRESULT ; Update win/loss counter STP.B *PRESULT, sflag ; Store updated counter MOD.AB #Pmod, *PRESULT ; Check the MOD SLT.B *PRESULT, #Pmorf ; See if Fei-Oh is losing... MOV.A #stepz, loop+1 ; Try a new step JMZ.B fei_oh, *PRESULT STP.A #1004, sflag ; Engage stage 2 pspace algorithm STP.AB #Pinit2, sflag ; Reset stage 2 loss counter ; Too many losses, fall through... shred MOV.I 0, sflag ; Safety-net for our pspace stuff nowash boot3 MOV.I clear+1, bdist2 ; fast boot away tail first for 7 MOV.I {boot3, generate 8 processes SPL.B 1, #0 ;/ silk SPL.B @0, {dest0 MOV.I }-1, >-1 silk1 SPL.B @0, -1 MOV.I ibomb, }range MOV.I {silk1, dest2 ibomb DAT.F <2667, <5334 inc SPL.B #0, 1 ; stage 3 is a switch-on-loss module against pspacers and paper/imps stage3 SNE.A #0, PRESULT ; check result lost ADD.A #1, PTEST ; lost change MOD.A #2, PTEST ; secure result win STP.AB PTEST, sflag PTEST JMP.B @0, fei_oh DAT.F 0, pboot fei_oh MOV.I 0, sflag ; Safety-net for our pspace stuff boot MOV.I bomb, bdist1 ; fast boot away tail first for 5 MOV.I {boot,