summaryrefslogtreecommitdiff
path: root/projects/11/Square/SquareGame.vm
blob: f2dd542b829e9b534ceee4f599347590d7a3dbdf (plain) (blame)
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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
function SquareGame.new 0
push constant 2
call Memory.alloc 1
pop pointer 0
push constant 0
push constant 0
push constant 30
call Square.new 3
pop this 0
push constant 0
pop this 1
push pointer 0
return
function SquareGame.dispose 0
push argument 0
pop pointer 0
push this 0
call Square.dispose 1
pop temp 0
push pointer 0
call Memory.deAlloc 1
pop temp 0
push constant 0
return
function SquareGame.moveSquare 0
push argument 0
pop pointer 0
push this 1
push constant 1
eq
not
if-goto moveSquare.Else0
push this 0
call Square.moveUp 1
pop temp 0
label moveSquare.Else0
push this 1
push constant 2
eq
not
if-goto moveSquare.Else1
push this 0
call Square.moveDown 1
pop temp 0
label moveSquare.Else1
push this 1
push constant 3
eq
not
if-goto moveSquare.Else2
push this 0
call Square.moveLeft 1
pop temp 0
label moveSquare.Else2
push this 1
push constant 4
eq
not
if-goto moveSquare.Else3
push this 0
call Square.moveRight 1
pop temp 0
label moveSquare.Else3
push constant 5
call Sys.wait 1
pop temp 0
push constant 0
return
function SquareGame.run 2
push argument 0
pop pointer 0
push constant 0
pop local 1
label run.While0
push local 1
not
not
if-goto run.EndWhile0
label run.While0.While0
push local 0
push constant 0
eq
not
if-goto run.While0.EndWhile0
call Keyboard.keyPressed 0
pop local 0
push pointer 0
call SquareGame.moveSquare 1
pop temp 0
goto run.While0.While0
label run.While0.EndWhile0
push local 0
push constant 81
eq
not
if-goto run.While0.Else1
push constant 1
neg
pop local 1
label run.While0.Else1
push local 0
push constant 90
eq
not
if-goto run.While0.Else2
push this 0
call Square.decSize 1
pop temp 0
label run.While0.Else2
push local 0
push constant 88
eq
not
if-goto run.While0.Else3
push this 0
call Square.incSize 1
pop temp 0
label run.While0.Else3
push local 0
push constant 131
eq
not
if-goto run.While0.Else4
push constant 1
pop this 1
label run.While0.Else4
push local 0
push constant 133
eq
not
if-goto run.While0.Else5
push constant 2
pop this 1
label run.While0.Else5
push local 0
push constant 130
eq
not
if-goto run.While0.Else6
push constant 3
pop this 1
label run.While0.Else6
push local 0
push constant 132
eq
not
if-goto run.While0.Else7
push constant 4
pop this 1
label run.While0.Else7
label run.While0.While8
push local 0
push constant 0
eq
not
not
if-goto run.While0.EndWhile8
call Keyboard.keyPressed 0
pop local 0
push pointer 0
call SquareGame.moveSquare 1
pop temp 0
goto run.While0.While8
label run.While0.EndWhile8
goto run.While0
label run.EndWhile0
push constant 0
return