File: lethal.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 (35 lines) | stat: -rw-r--r-- 461 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
30
31
32
33
34
35
 
# Walter Hofmann
# March 2000

	title "Lethal"
	author "Walter Hofmann <walterh@gmx.de>"
	
pos:	data &pos
	fork clear
l:	add -2366, pos
	equal 0,[pos]
	jump l
	own [pos]
	add -2366,pos
found:	move pos,pos2
	move pos,pos3
	fork l3
	fork l
l2:	move fb,[pos2]
	add -1,pos2
	equal 0,[pos2]
pos2:	data 0
	jump l2
fb:	fork fb
l3:	move fb,[pos3]
	add 1,pos3
	equal 0,[pos3]
pos3:	data 0
	jump l3
a:	data &c
b:	data &d
clear:	movei a,b
	jump clear
c:	data 0
d:	data 0