File: searchanddestroy.cw

package info (click to toggle)
corewars 0.9.13-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k, lenny, sarge
  • size: 1,388 kB
  • ctags: 1,119
  • sloc: ansic: 7,429; yacc: 1,376; sh: 784; makefile: 112; lex: 104; lisp: 68
file content (29 lines) | stat: -rw-r--r-- 377 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
#
# Core Wars program
#
# Walter Hofmann, March 2000
#

	title "Search & Destroy"
        author "Walter Hofmann <walterh@gmx.de>"

START:  info 2,A
	equal [A],B
	jump START
	move A,[C]
	add 1,C
	loop D,START
	move 15,D
L:	add -1,C
	move [C],A
	own [A]
	move &B,A	
	move B,[A]
	loop D,L
	move 15,D
	jump START
A:      data 0
B:      data 0
C:      data &E
D:	data 15
E:	data 0