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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
#
# Pong Missile Launcher
#
title "Pong Missile"
author "Benot Timbert <Benoit.Timbert@enst-bretagne.fr>"
CH: data 0 # choice
P: data &M # missile position
C2: data 0 # 1/2 mem
C4: data 0 # 1/4 mem
RP: data 0 # +row size
RN: data 0 # -row size
INIT: info 1,RP
neg RP, RN
info 0, C2
div 2, C2
move C2, C4
div 2, C4
jump RIGHTCHG
UP: info 2, [P]
add RN, P
equal [P], 0
jump UP
own [P]
add RP, P
info 2, [P]
UPCHG: info 2, CH
less C2, CH
jump UP
less CH, C4
jump LEFT
jump RIGHT
DOWN: info 2, [P]
add RP, P
equal [P], 0
jump DOWN
own [P]
add RN, P
info 2, [P]
DOWNCHG: info 2, CH
less C2, CH
jump DOWN
less CH, C4
jump RIGHT
jump LEFT
LEFT: info 2, [P]
add -1, P
equal [P], 0
jump LEFT
own [P]
add 1, P
info 2, [P]
LEFTCHG: info 2, CH
less C2, CH
jump LEFT
less CH, C4
jump DOWN
jump UP
RIGHT: info 2, [P]
add 1, P
equal [P], 0
jump RIGHT
own [P]
add -1, P
info 2, [P]
RIGHTCHG: info 2, CH
less C2, CH
jump RIGHT
less CH, C4
jump UP
jump DOWN
M: data 1 # the missile
|
