1;redcode-94nop 2;name Piltdown (2003) 3;author Philip Thorne 4;strategy 20020824 First hill appreance [with QB] 5;strategy 20030706 Piltdown 1-Shot Bomber + QS 6;strategy Cleaned-up for publiction. 7;bench jun03=127.17#1000 w=151#100 8;optimax stn 9;assert ((STEP%(MSIZ)) == 0) 10;assert ((CURLINE%MSIZ) == 0) 11;assert ((CURLINE%MSIZ) == 0) 12;assert ((CURLINE%MSIZ) == 0) 13;assert ((CURLINE%MSIZ) == 0) 14;Basic clear is per Geist [nice S/D switch] with tweakings. 15;Previous clear was Quiz-based. No real diff in results. 16;assert ((CURLINE%MSIZ) == 0) 17;assert ((CURLINE%MSIZ) == 0) 18;-- 19;-- 20 ORG START 21 MOV.B # 2512, * -1256 22 DJN.F $ -8, < 6 23 DAT.F $ 0, $ 0 24 DAT.F $ 0, $ 0 25 DAT.F $ 0, $ 0 26 DAT.F $ 0, $ 0 27 DAT.F $ 0, $ 0 28 DAT.F $ 0, $ 0 29 DAT.F $ 0, $ 0 30 MOV.I @ 1, } -9 31 MOV.I $ -9, > -10 32 ADD.F $ 38, @ -1 33 JMZ.B $ -3, $ 2732 34 SPL.B $ 36, $ 2731 35 SUB.B @ -1, $ 28 36 DAT.F $ 0, $ 0 37 DAT.F $ 0, $ 0 38 DAT.F $ 0, $ 0 39 DAT.F $ 0, $ 0 40 DAT.F $ 0, $ 0 41 DAT.F $ 0, $ 0 42 DAT.F $ 0, $ 0 43 DAT.F $ 0, $ 0 44 DAT.F $ 0, $ 0 45 DAT.F $ 0, $ 0 46 DAT.F $ 0, $ 0 47 DAT.F $ 0, $ 0 48 DAT.F $ 0, $ 0 49 DAT.F $ 0, $ 0 50 DAT.F $ 0, $ 0 51 DAT.F $ 0, $ 0 52 DAT.F $ 0, $ 0 53 DAT.F $ 0, $ 0 54 DAT.F $ 0, $ 0 55 DAT.F $ 0, $ 0 56 DAT.F $ 0, $ 0 57 DAT.F $ 0, $ 0 58 DAT.F $ 0, $ 0 59 DAT.F $ 0, $ 0 60 DAT.F $ 0, $ 0 61 DAT.F $ 0, $ 0 62 DAT.F $ 0, $ 0 63 DAT.F $ 3333, $ 1213 64 DAT.F $ 0, $ 0 65 DAT.F $ 0, $ 0 66 DAT.F $ 0, $ 0 67 DAT.F $ 1, $ 13 68 SPL.B # 65, $ 13 69 DAT.F $ 0, $ 0 70 SPL.B # 1255, } -1257 71 MOV.I * -4, > -8 72 MOV.I * -5, > -9 73 DJN.F $ -2, } -5 74 DAT.F $ 0, $ 0 75 DAT.F $ 0, $ 0 76 DAT.F $ 0, $ 0 77 DAT.F $ 0, $ 0 78 DAT.F $ 0, $ 0 79 DAT.F $ 0, $ 0 80 DAT.F $ 0, $ 0 81 DAT.F $ 0, $ 0 82 DAT.F $ 0, $ 0 83 DAT.F $ 0, $ 0 84 DAT.F $ 0, $ 0 85 DAT.F $ 1, $ 3762 86 DAT.F $ 1, $ 2253 87 DAT.F $ 0, $ 0 88 DAT.F $ 0, $ 0 89 MOV.A # 1488, $ 1188 90 MOV.I < 3333, $ -1 91 JMP.B $ -61, { 0 92 DAT.F { 32, $ 1199 93START SNE.I $ -2415, $ -3468 94 SEQ.I < 26, $ -2082 95 JMP.B $ 15, } 17 96 SNE.I $ -194, $ 262 97 SEQ.I < -5, $ 1649 98 JMP.B $ 12, } 12 99 SNE.I $ 2359, $ 2815 100 SEQ.I < -15, $ -3798 101 DJN.A $ 9, { 9 102 SNE.I $ 848, $ 1304 103 SEQ.I < -17, $ 2691 104 DJN.A $ 6, * 0 105 SNE.I $ 589, $ 2554 106 SEQ.I < 12, $ 3940 107 JMP.B $ 3, { 5 108 SNE.I $ -922, $ -466 109 JMZ.F $ -20, < 10 110 MUL.B * 2, $ 4 111 SNE.I < -25, @ 3 112 ADD.B $ 7, $ 2 113 MOV.I $ -21, @ 1 114 MOV.I $ -22, } -1388 115 SUB.AB # 7, @ -4 116 DJN.B $ -3, # 16 117 DJN.F $ -28, # 0 118 SPL.B $ 1, $ 1965 119 SPL.B $ 1, $ 456 120 SPL.B $ 1, $ -1053 121 122