;redcode-94x ;name Aleph 1 ;author Jay Han ;macro org entry ; Avoid quickscanners for 15 dat.f 0, 0 rof ; Modified constants: more thorough bombing (Mod-2) p1 equ 8751 s1 equ 17498 p2 equ 46693 s2 equ -17498 gate equ inc-28 offset equ inc-18 ; This stone ends with a two-pass (SPL/DAT) core-clear and gate inc dat.f s1, s2 top dat.f 0, patch+1 ; pointer loop add.f inc, cast stone spl.b loop,