File: clone.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 (20 lines) | stat: -rw-r--r-- 274 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
 

# By Zinx Verituse <zinx@linuxfreak.com>
# It clones more than you think :/

title "Clone"
author "Zinx Verituse <zinx@linuxfreak.com>"

S:	info 2, N
	move 4, D
	move &S, P
C:	movei P, N
	movei P, N
	loop D, C
J:	add -8, N
	fork [N]
	jump S

P:	data &S
D:	data 4
N:	data 0