From kfranke@owlnet.rice.edu Wed Dec 13 03:09:04 1995 Received: by couchey.inria.fr (5.57/Ultrix3.0-C) id AA25529; Wed, 13 Dec 95 03:09:04 +0100 Received: from owlnet.rice.edu (owlnet.rice.edu [128.42.49.7]) by nez-perce.inria.fr (8.7.1/8.7.1) with ESMTP id DAA02148 for ; Wed, 13 Dec 1995 03:09:00 +0100 (MET) Received: from lovett-2017.lovett.rice.edu (lovett-2017.lovett.rice.edu [128.42.161.17]) by owlnet.rice.edu (8.7.1/8.7.1) with SMTP id UAA13609 for ; Tue, 12 Dec 1995 20:08:52 -0600 (CST) Message-Id: <199512130208.UAA13609@owlnet.rice.edu> Comments: Authenticated sender is From: "Kurt Franke" To: Damien.Doligez@inria.fr Date: Tue, 12 Dec 1995 20:08:49 +0000 Subject: Persistence source (vamp, scan, stun, clear) Priority: normal X-Mailer: Pegasus Mail for Windows (v2.01) Status: RO ;redcode-94 ;assert CORESIZE == 8000 ;author Kurt Franke ;name Persistence ;strategy vamp/scan -> core clear ;strategy (this version does better against imp-types) for 0 (I think this is the same as I sent in to pizza) This is a vampire/scanner along the same lines as myvamp. I bomb every 16th location with an instruction to jump into the pit. The pit clears core forward from by warrior with 3-point-imp-killing instructions, eventually killing itself. In between every bombed location, I scan to see if it is not zero and drop a dat bomb if it is. After ten finds I go to the core clear part. rof step equ 48 hell spl 0, <-300 hell2 spl 0, <-200 hell3 spl -1, <-100 spl -1, <-60 mbomb mov 5, >1 jmp -1, cend+10 dat 0,0 ;; hit for 7 dat <2667, <2667*2 rof for 41 ;; check dat 0,0 rof ;; hit dat 0,0 loop add.f $incr, $jbomb ;; vamp/scan loop mov $jbomb, @jbomb jmz.f loop, *jbomb mov $dbomb, *jbomb ret djn loop, #10 ;; start clear after 10 finds ptr jmp $sbomb2, $cend+6 dbomb dat #sbomb-ptr, }cend+6-ptr ;; check sbomb spl #dbomb-ptr, #cend+1-ptr sbomb2 spl #sbomb-ptr, #cend+6-ptr clear mov *ptr, >ptr ;; 3/4 c core clear mov *ptr, >ptr mov *ptr, >ptr cend djn -3,