;redcode-94 ;name CC Paper 2 ;author Franz ;strategy qscan+silk+coreclear ;strategy CC stands for "Core Clear Paper"! ;assert CORESIZE==8000 || CORESIZE==55440 len EQU 9 QB EQU (start+400) FOR CORESIZE==55440 fcp EQU (3039*3) scp EQU (2365*2) tcp EQU (777) QS EQU 1000 QD EQU 500 ROF FOR CORESIZE==8000 fcp EQU 3039 scp EQU 2365 tcp EQU 777 QS EQU 200 QD EQU 100 ROF COUNT EQU 6 GAP EQU 15 REP EQU 6 ORG start 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 JMP -200,GAP qinc DAT GAP,-GAP 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 fnd MOV.I -GAP/2,@QB ADD.BA fnd,fnd MOV.I qbomb,*fnd ADD.F qinc,fnd MOV.I qbomb,@fnd DJN.B -3,#REP JMP boot,}-300 start 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,fast,>tab seq.i QB+QS*24,QB+QS*24+QD jmp slow,>tab seq.i QB+QS*17,QB+QS*17+QD jmp slow,{fast seq.i QB+QS*8,QB+QS*8+QD jmp tab seq.i QB+QS*28,QB+QS*28+QD jmp tab,>tab seq.i QB+QS*30,QB+QS*30+QD jmp tab,}tab jmp boot,<-5000 DAT 0,0 DAT 0,0 DAT 0,0 DAT 0,0 DAT 0,0 DAT 0,0 DAT 0,0 DAT 0,0 DAT 0,0 DAT 0,0 DAT 0,0 DAT 0,0 DAT 0,0 DAT 0,0 DAT 0,0 boot spl 1,<-3000 ;letz get 9 processes together mov -1,0 mov -1,0 mov -1,0 spl @frog, >-1000 ;lets boot the silk way mov }-1, >frog ; dat >-300, <300 ;now die ... boot process die ... frog spl @0, -1 spl @0, -1 spl @0, -1 mov 2, <-1 jmp -1, <-10 dat <2667, <2667*2 datz end