File: devil.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 (21 lines) | stat: -rw-r--r-- 385 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
 
# Based on "Santa's little helper", but works on the reverse, and uses
# the communication cell to disable both Santa and his "little helper"

	Title "The devil"
	Author "Idan Sofer <sofer@ibm.net>"
	
A:	data 0
B:      data 59
C:	data 9
D:      data 0
CODE:	data 47295
L:	move [B],A
	equal A, CODE
	jump M
	jump L
M:	add 1,B
	move [B],A
KILL:	add 5,A
	move 0,[A]
	add -5,A
	move 0,[A]