File: jumpup.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 (38 lines) | stat: -rw-r--r-- 408 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
 
#
# Core Wars program
#
# Walter Hofmann, May 1999
#

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

START:	move A, [B]
	add 1, B
	jump START

B:	data &A

JAR:	add -1, C
	move 0, [C]
	jump JAR

C:	data &START

UP:     jump JAR
	jump JAR
	jump JAR
	jump JAR
	jump JAR
	jump JAR
	jump JAR
	jump JAR
	jump JAR
	jump JAR
	jump JAR
	jump JAR
	jump JAR
	jump JAR
	jump JAR
	jump JAR
A:	jump UP