1;redcode-94 quiet 2;name Uninvited 3;author John Metcalf 4;strategy Mini-Q^3 -> Stone / Delayed Imp 5;assert CORESIZE==8000 6; -+)>] 0/1 cycles [(<+- 7; -+>)] 2 cycles [(<+- 8 ORG START 9 SPL.B $ 2, > -200 10 SPL.B $ 1, > -350 11 SPL.B $ 1, { -500 12 MOV.I < 9, { 3 13 MOV.I { 9, { 1 14 DJN.B $ 2104, # 6 15 JMP.B $ 2806, > -650 16 SPL.B # 0, # 0 17 MOV.I $ 4, @ 2 18 SUB.X # 1406, @ -1 19 MOV.I { 3582, } -703 20 DJN.F @ -2, } -1 21 DAT.F < 703, > 7 22 DJN.B # 0, # 5 23 SPL.B # 4, > -20 24 SUB.F # -2668, $ 2 25 MOV.I $ 2, } -2 26 JMP.B $ 2665, > -2666 27 MOV.I # 1333, $ 2667 28 DAT.F $ 0, $ 0 29 DAT.F $ 0, $ 0 30 DAT.F $ 0, $ 0 31 DAT.F $ 0, $ 0 32 DAT.F $ 0, $ 0 33 DAT.F $ 0, $ 0 34 DAT.F $ 0, $ 0 35 DAT.F $ 0, $ 0 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 $ 0, $ 0 64 DAT.F $ 0, $ 0 65 DAT.F $ 0, $ 0 66 DAT.F $ 0, $ 0 67START SEQ.I $ 581, $ 259 68 DJN.F $ 33, { 587 69 SEQ.I $ 1689, $ 1367 70 DJN.F $ 30, { 1695 71 SEQ.I $ 1465, $ 1143 72 JMP.B $ 28, < 36 73 SEQ.I $ 1907, $ 1585 74 JMP.B $ 26, > 34 75 SEQ.I $ 2349, $ 2027 76 DJN.B $ 24, { 24 77 SEQ.I $ 2569, $ 2247 78 JMP.B $ 22, { 22 79 SEQ.I $ 1013, $ 691 80 DJN.F > 20, { 1019 81 SEQ.I $ 789, $ 467 82 JMP.B > 18, { 17 83 SEQ.I $ 1231, $ 909 84 JMP.B > 16, } 15 85 SEQ.I $ 3005, $ 2683 86 JMP.B $ 13, { 13 87 SEQ.I $ 3669, $ 3347 88 JMP.B $ 11, < 20 89 SEQ.I $ -3001, $ -3323 90 JMP.B $ 9, > 18 91 SEQ.I $ -2337, $ -2659 92 JMP.B $ 7, } 7 93 SEQ.I $ -1673, $ -1995 94 DJN.B $ 5, { 6 95 SEQ.I $ -1009, $ -1331 96 JMP.B $ 3, { 4 97 SNE.I $ -3675, $ -3997 98 JMZ.F $ -89, $ -3686 99 MUL.AB # 3, $ 5 100 MUL.B $ 8, @ -1 101 SNE.I > -2891, > 3 102 ADD.AB # 322, $ 2 103 MOV.I * 1, < 1 104 MOV.I $ 4, } 222 105 SUB.AB # 6, @ -2 106 DJN.B $ -3, # 11 107 DJN.F $ -98, # 10 108 DAT.F { 67, { 6 109 110