;redcode-94nop ;name Ethanol vE ;author G.Labarga ;assert CORESIZE==8000 ;strategy Q^3->stone/imp ;strategy ver 1.1 boots 7pt imp-pump and stone, (Rosebudish stone) ;strategy ver 1.2 Modified Thunderstrike-like stone -> d-clear ;strategy ver 1.3 better offset constants ;strategy ver 1.4 modified stone, new boot code ;strategy ver 1.5 modified imp launcher (3pt), boot and initial structure ;strategy ver 1.6 Optimized all the constants IP_LOC EQU SCL+5049 ;where the imp-pump is ST_LOC EQU IP_LOC - 281 ;where the stone is SG_LOC EQU ST_LOC - 50 ILOC EQU 4423 ;imp's first point ISTEP EQU 2667 ;3-pt imps STEP EQU 2684 DIST EQU CHK+2*STEP DIST2 EQU DIST+(1695*STEP)+1 GATE EQU SCL-3 BOOT: MOV CBM,*SPTR MOV BMB,@SPTR SUB.F #10,>7 ;(>GOST -> SPTR) SPL 0,}0 ;3 procs. (1|2 non parallel) MOV.I SP2 MOV.I 5 procs, source ptr gate MOV.I {SSRC,GATE-140 CLR: MOV CBM+10,>GATE DJN.F CLR,>GATE CBM: DAT <2667,10 ;9 STONE: SPL #-2*STEP,<-2*STEP REF: MOV {DIST2,*DIST MOV BMB+7,@REF CHK: SUB.F STONE,REF DJN.F @CHK,{3692 ;<- That location is bombed later BMB: DAT STEP,SCL-CHK-44 IPMP: SPL #-100,>-5969 ADD.A #ISTEP+1,IGO IGO: DJN.F IPMP+ILOC-ISTEP+2,qTab sne qd+qf+17*qs , qf+17*qs seq qf+16*qs ,