-
Notifications
You must be signed in to change notification settings - Fork 482
Expand file tree
/
Copy pathst3.s
More file actions
184 lines (181 loc) · 1.71 KB
/
st3.s
File metadata and controls
184 lines (181 loc) · 1.71 KB
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
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
" space travel 3
updshp: 0
lac forflg
spa
jmp .+4
lac bacflg
sma
jmp 3f
fld; ascale
lac forflg
sma
jmp 1f
lac bacflg
sma
jmp 1f+1
fld; fpzero
jmp 2f
1:
fng
lac scale
tad aexp
dac aexp
lac forflg
sma
jmp .+3
2:
lac accflg "[arrow pointing here from the text "how to set?" - scan markup]
sma
jmp .+3
fad; maxa
fng
fst; ftmp1
fmp; ctheta
fad; ax
fst; ax
fld; ftmp1
fmp; stheta
fad; ay
fst; ay
3:
fld; ox
fng
fad; ax
fst; ftmp1
fld; x
lac aexp
tad d1
dac aexp
fad; ftmp1
fst; ftmp1
fld; x
fst; ox
fld; ftmp1
fst; x
fld; oy
fng
fad; ay
fst; ftmp1
fld; y
lac aexp
tad d1
dac aexp
fad; ftmp1
fst; ftmp1
fld; y
fst; oy
fld; ftmp1
fst; y
lac par
sad maxj
jmp i updshp
jms absxy
jms shipxy
lac par
jms absv
fld; ox
fng
fad; x
fad; absx
fst; ox
fld; oy
fng
fad; y
fad; absy
fst; oy
lac maxj
dac par
jms absv
fld; ox
fng
fad; absx
fst; ox
fld; oy
fng
fad; absy
fst; oy
lac par
jms absxy
fld; absx
fad; shipx
fng
fst; x
fad; ox
fst; ox
fld; absy
fad; shipy
fng
fst; y
fadins:
fad; oy
fst; oy
lac par
tad fppar
dac 1f
lac i 1f
tad prsq
dac 1f
fld; 1:..
sqrt
fst; rpar
jms dspsca
lac par
jms dispname
jmp i updshp
inscr: 0
fng
fix
tad d383
spa
jmp i inscr
tad dm768
sma
jmp i inscr
isz inscr
jmp i inscr
absxy: 0
sna
jmp 7f
lmq
lac fldins
dac 2f-1
dac 4f-1
lacq
1:
dac absi
sna
jmp i absxy
tad fppar
dac 9f+t
lac i 9f+t
5:
tad px
dac 2f
fldins:
fld; absx
fad; 2:..
fst; absx
lac i 9f+t
6:
tad py
dac 4f
fld; absy
fad; 4:..
fst; absy
lac fadins
dac 2b-1
dac 4b-1
lac absi
tad ppar
dac 9f+t
lac i 9f+t
jmp 1b
7:
dzm absx
dzm absx+1
dzm absx+2
dzm absy
dzm absy+1
dzm absy+2
jmp i absxy
t = t+1