File: capture.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 (44 lines) | stat: -rw-r--r-- 479 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
36
37
38
39
40
41
42
43
44
 
#
# Core Wars program
#
# Walter Hofmann, May 1999
#

	title "Capture"
        author "Walter Hofmann <walterh@gmx.de>"

L:	info 2, C
	move C, D
	add 1, D
	own [C]
	jump L
	own [D]
	jump L
	move A, [C]
	move B, [D]
	jump L

JAR:	add 8, F
	move J4, [F]
	add -1, F
        move J3, [F]
	add -1, F
	move J2, [F]
	add -1, F
	move J1, [F]
	jump [F]
	
J1:	info 2, E
J2:	own [E]
J3:	move 0, [E]
J4:	jump J1
E:	data 0

A:	jump [B]
B:	data &JAR

C:	data 0
D:	data 0

F:	data &G
G:	data 0