File: quadwalker.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 (31 lines) | stat: -rw-r--r-- 450 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
 
#
# Core Wars program
# 
# Hacked to Crap by: Abram Hindle March 1999
# Orignally by: Walter Hofmann, May 1999
#

	title "Quad Walker"
        author "Abram Hindle <abez@home.com>"

	move 4,D
COPY:	move 6,C
	move &START,A
	info 2,B
	move B,E
L2:	movei A,B
	loop C,L2
	fork [E]
	loop D,COPY
START:  move &START, A
	move &END, B
	move 6, C
L:	movei A, B
	loop C, L
	jump END
A:      data 0
B:      data 0
C:      data 0
D:	data 0
E:	data 0
END:	data 0