;redcode-94 quiet ;name Falcon v0.3 ;author Ian Oversby ;strategy v0.1 P-Warrior with two components ;strategy One-shot and imp / stone ;strategy v0.3 Trying new anti-brainwash ;assert 1 org str plc equ 3 gate1 equ (gate-3) tval equ 850 impstep equ 2667 sval equ 5600 ival equ 3000 dist equ 20 ;;------------------------------------------------------------ str LDP.A #plc, pval ;load wins/losses ADD.A pval, check MOD.A #3, check JMN.A boot, check ;permanent switch res LDP.AB #0, #0 sec SNE.AB #0, res ;check for loss lost ADD.A #3, pval SNE.AB #1, res ;check for win won SUB.A #3, pval STP.AB pval, #plc jump JMP.B tboot, <-100 pval DAT.F $0, $0 check DAT.F $7977, $0 ; 3 / 8 ;;--------------------- Tsunami , 25 lines ------------------------ for 10 DAT.F $0, $0 rof tboot MOV.I {tptr, b1 scan SNE.I *b1, @b1 DJN.F sloop, <-800 step SPL.B #-18, <-18 cloop MOV.I @bptr, >gate1 MOV.I @bptr, >gate1 bptr DJN.B cloop, {b1 ;;--------- Simple v0.2b with 16 process, 3 point spiral ---------- for 11 DAT.F $0, $0 rof iboot MOV.I {iptr,