;redcode-94 ;name P-Key ;author G.Labarga ;assert 1 ;stratey learning switcher ;strategy It should defeat any single switcher ;strategy Redcoders Frenzy, round 7, Feb. 22th 2003 STEP EQU 2667 D_STRAT EQU 249 D_PREV EQU 250 D_LOS EQU D_PREV+1 D_WIN EQU D_PREV+2 D_TIE EQU D_PREV+3 RESULT: LDP.B 1,#0 ;<- Last round result STRAT: LDP.AB #D_STRAT,#0 ;<- Last strategy PREV: LDP.AB #D_PREV,#0 ;<- strategy two rounds before JMZ.F INIT,>RESULT SLT.AB #3,PREV JMP CHLS,pescape ,}pescape jmn.b -1 ,pescape preset jmp p1+5093 ,-p1-5093 psnare jmp ptrap-200,+200 ptrap mod.x #10 ,#1 stp.ab #0 ,#0 ;<-- can be modified during the battle djn.b -1 ,-1 pincr mov 1 ,-1 pb dat 5093+p1-pescape,-plen pescape dat 0,0 ;********************Frontwards************************ // 24 ins offset equ 608 step equ 12 stream equ cc-806 first equ (cc-offset+203) gate equ -50 p dat #first, {first+step dat #30, {-1 dat #30, {-1 cc spl #30, stream-660 dat 0, 0 dat 0, 0 dat 0, 0 boot mov top+5, top+offset+5 ;START ***** for 5 mov {boot,