File: copytest.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 (34 lines) | stat: -rw-r--r-- 619 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
 


	Title "Copy Machine Tester(2)"
	Author "Idan Sofer <sofer@ibm.net>"
A:	data 120
B:      data 0
C:	data 0
T:      data 4
CODE:	data 972
P:	data &P0
P0:	data 0	# Argument 1: Code
P1:	data 0	# Argument 2: Address
P2:	data 0	# Argument 3: Number of cells
P3:	data 0	# Argument 4: No. of first executive cell
P4:	data 0	# Argument 5: Where to put the jump/fork instruction
P5:	data 0 	# Argument 6: To fork?(0 = NO)
F:	move 0,B
G:	move &B,[A]
	equal B,0
	jump G
	move B,C
H:	loop T,H
L:	add 1,B
	move &A,[B]
	add 1,B
	move 30,[B]
	add 1,B
	move 12,[B]
	add 1,B
	move 29,[B]
	move C,B
	move CODE,[B]
M:	move 5,T
K:	jump K