;redcode-94 ;name Risk'o'matic ;author Christian Schmidt ;strategy ;assert 1 ;The first step is to calculate the coresize. Then the ;p-switcher choose between the following stategies: ; ;d-clear: against HSA-stylish scanner and imps ;CLP: against oneshots and core-clears, ;BiShot: against papers, ;Paperazor: against everything else ; ;I don't think that Chip will try to take advantage ;of the known PIN number, so I don't worry that I ;didn't check seriously for brainwashing :-P ; ;I hope Chip send either HSA-style scanner, oneshot, ;coreclear or paper, which are the most convenient ;strategies for unknown coresize ;-) ; PIN 10 ;**************BiShot*************** sOff equ (sOne+2+100) sOne add.f #sPtr, sPtr sne.i *sPtr, @sPtr djn.f sOne, @sPtr djn.f sBomb, sPtr for 4 dat 0, 0 rof sPtr dat sOff, 4+sOff dat 10, 10 sBomb spl #20, -200 sLoop mov sBomb, }sPtr mov sBomb, >sPtr sBack djn.a sLoop, cp nothA spl @nothA, nothA nothB spl @nothB, nothB bomb mov.i #1, <1 cc djn.b -2, #bstep1 ;**********CLP********************** cDecoy equ (cCopy-191) cDist equ 590 cFence equ 50 cPtr equ (cCopy+153) clp mov {cCopy, {cBoot mov {cCopy, {cBoot djn clp, #6 cBoot djn.f cCopy+191+12,cCopy jmp cCopy+1+cDist,{cCheck+cDist-cFence cBomb2 stp #12, #34 cBomb3 mod 3, 3 ;******anti-HSA d-clear************ aGate equ (sOne-6) dat 0, 0 dat 0, 0 aHSA spl #0, 0 mov bw, >aGate djn.f -1, >aGate bw dat >1, 2-aGate end gCount