Return-Path: <koth@stormking.com>
Received: from uu3.psi.com by vuse.vanderbilt.edu (4.1/SMI-4.1/VUSE-1.10)
	id AA25430; Mon, 27 Sep 93 18:41:29 CDT
Received: from stormking.com by uu3.psi.com (5.65b/4.0.071791-PSI/PSINet) via UUCP;
        id AA17731 for ; Mon, 27 Sep 93 19:24:46 -0400
Received: by stormking.com id AA23924
  (5.65c/IDA-1.4.4 for stst@vuse.vanderbilt.edu); Mon, 27 Sep 1993 17:34:05 -0400
From: KOTH Tourney Server <koth@stormking.com>
Message-Id: <199309272134.AA23924@stormking.com>
Subject: no subject (file transmission)
To: stst@vuse
Date: Mon, 27 Sep 93 17:34:05 EDT
X-Mailer: ELM [version 2.3 PL11]
Status: R

;Address bdthomse@peruvian.cs.utah.edu
;redcode-icws
;name Irony v1.0
;author Brant D. Thomsen
;strategy CMP scanner, lays SPL carpet.
;strategy Uses same constants as 8000 memory version :-)
;strategy Submitted: Mon Sep 20 22:49:18 MDT 1993

sep	equ	10
step	equ	78
a	equ	-2-step

top	add	#sep+2, compare
	mov	#sep+2, bomb+1
loop	add	data, compare
compare	cmp	a, a+sep
	slt	#data+sep+5, compare
	djn	loop, <compare-3501
bomb	mov	clear, <compare
	djn	bomb, #sep+2
	jmz	top, top-1
clear	spl	0, <1-step
	mov	1, <bomb+1
data	dat	<0-step, <0-step	

	end	compare