;redcode-94 quiet ;name Simple v0.2a ;author Ian Oversby ;strategy v0.1 Stone/Imp ;strategy v0.2 Added gate ;assert 1 gate1 equ (stone-3) impstep equ 1143 sval equ 1900 org boot mimp SPL.B 1, <-500 ; 32 process 7 point imp SPL.B 1, {-500 ; and decoy-maker :-) SPL.B 1, <-500 SPL.B 1, {-500 SPL.B 1, <-500 SPL.B 2, {-200 JMP.B imp ADD.A #impstep, -1 die DAT.F $0, $0 imp MOV.I #-5, impstep boot MOV.I {sptr, -95 SPL.B #0, >gate1-hit loop MOV.I {0+95, 2-95 ADD.F stone, loop hit DJN.F loop, <1900 last MOV.I gate, }gate1 gate DAT.F gate-gate1+2, >gate1 for 60 DAT.F $0, $0 rof