forked from heyigor/FortApocalypse
-
Notifications
You must be signed in to change notification settings - Fork 0
/
fort6.s
263 lines (262 loc) · 5.33 KB
/
fort6.s
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
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
00010 *
00020 * FILE: FORT6.S
00030 *
00040 * DATA, SHAPES, DISPLAY LISTS
00050 *
00060 *
00070 DSP.LST2
00080 .HS 70708070
00090 .DA #$44,PANEL
00100 .HS 0404040470
00110 .HS 70
00120 .HS 805020
00130 .DA #$44,PLAY.SCRN
00140 .HS 04040404040404
00150 .HS 04040404040404
00160 .HS 807080
00170 .DA #$41,DSP.LST2
00180 *
00190 DSP.LST3
00200 .HS 707070707070
00210 .DA #$44,PLAY.SCRN
00220 .HS 040404040404040404
00230 .HS 0404040404040404
00240 .DA #$44,PLAY.SCRN
00250 .DA #$41,DSP.LST3
00260 *
00270 CART.START
00280 SEI
00281 LDX #$FF
00282 TXS
00283 PHA
00284 PHA
00290 LDA #$B3
00300 PHA
00310 LDX #0
00320 TXA
00330 .1 STA 0,X
00340 STA $D000,X
00350 STA $D400,X
00360 STA $D200,X
00370 STA $D300,X
00380 INX
00390 BNE .1
00400 *
00410 LDY #1
00420 STY ADR1+1
00430 DEY Y=0
00440 STY ADR1
00450 *
00460 .2 STA (ADR1),Y
00470 INY
00480 BNE .2
00490 INC ADR1+1
00500 LDX ADR1+1
00510 CPX #$50
00520 BNE .2
00530 LDA #$34
00540 PHA
00550 *
00560 LDX #0
00570 .3 LDA BOOT.STUFF,X
00580 STA $180+$40,X
00590 INX
00600 BPL .3
00610 *
00620 ; CLI
00630 RTS
00640 *
00650 CHOPPER.SHAPES
00660 .DA CL3.1,CL3.2 0 ANGLE
00670 .DA CL2.1,CL2.2 2
00680 .DA CL1.1,CL1.2 4
00690 .DA CM1.1,CM1.2 6
00700 .DA CM1.1,CM1.2 8
00710 .DA CM1.1,CM1.2 10
00720 .DA CR1.1,CR1.2 12
00730 .DA CR2.1,CR2.2 14
00740 .DA CR3.1,CR3.2 16
00750 *
00760 CL1.1
00770 .HS 0000FF01010F11
00780 .HS 21317F703F1F10
00790 .HS A07F0000
00800 *
00810 .HS 0000C000020282
00820 .HS FE0F7961C1C040
00830 .HS 20FC
00840 ;.HS 0000
00850 CL1.2
00860 .HS 00000701010F11
00870 .HS 21317F703F1F10
00880 .HS A07F0000
00890 *
00900 .HS 0000FE00010181
00910 .HS FF0E7A62C2C040
00920 .HS 20FC
00930 ;.HS 0000
00940 CL2.1
00950 .HS 000007F9010709
00960 .HS 1121377C733F18
00970 .HS 10A77800
00980 *
00990 .HS 0000C00202029E
01000 .HS FF197161C0C060
01010 .HS 3CC0
01020 ;.HS 0000
01030 CL2.2
01040 .HS 00000701010709
01050 .HS 1121377C733F18
01060 .HS 10A77800
01070 *
01080 .HS 003EC00101019F
01090 .HS FE1A7262C0C060
01100 .HS 3CC0
01110 ;.HS 0000
01120 CL3.1
01130 .HS 0000033DC1030D
01140 .HS 1121236E79673E
01150 .HS 10119E60
01160 *
01170 .HS 0000800202028E
01180 .HS FF396161C0C060
01190 .HS 3CE0
01200 ;.HS 0000
01210 CL3.2
01220 .HS 0000030101030D
01230 .HS 1121236E79673E
01240 .HS 10119E60
01250 *
01260 .HS 0678800101018F
01270 .HS FE3A6262C0C060
01280 .HS 3CE0
01290 ;.HS 0000
01300 CM1.1
01310 .HS 00000700000103
01320 .HS 0604080D070304
01330 .HS 081C0000
01340 *
01350 .HS 0000FF8080C0E0
01360 .HS 301008D8F0E010
01370 .HS 081C
01380 ;.HS 0000
01390 CM1.2
01400 .HS 00007F00000103
01410 .HS 0604080D070304
01420 .HS 081C0000
01430 *
01440 .HS 0000E08080C0E0
01450 .HS 301008D8F0E010
01460 .HS 081C
01470 ;.HS 0000
01480 CR1.1
01490 .HS 00000300404041
01500 .HS 7FF09E86830302
01510 .HS 043F0000
01520 *
01530 .HS 0000FF8080F088
01540 .HS 848CFE0EFCF808
01550 .HS 05FE
01560 ;.HS 0000
01570 CR1.2
01580 .HS 00007F00808081
01590 .HS FF705E46430302
01600 .HS 043F0000
01610 *
01620 .HS 0000E08080F088
01630 .HS 848CFE0EFCF808
01640 .HS 05FE
01650 ;.HS 0000
01660 CR2.1
01670 .HS 00000340404079
01680 .HS FF988E86030306
01690 .HS 3C030000
01700 *
01710 .HS 0000E09F80E090
01720 .HS 8884EC3ECEFC18
01730 .HS 08E51E
01740 ;.HS 00
01750 CR2.2
01760 .HS 007C03808080F9
01770 .HS 7F584E46030306
01780 .HS 3C030000
01790 *
01800 .HS 0000E08080E090
01810 .HS 8884EC3ECEFC18
01820 .HS 08E51E
01830 ;.HS 00
01840 CR3.1
01850 .HS 00000140404071
01860 .HS FF9C8686030306
01870 .HS 3C070000
01880 *
01890 .HS 0000C0BC83C0B0
01900 .HS 8884C4769EE67C
01910 .HS 08887906
01920 CR3.2
01930 .HS 601E01808080F1
01940 .HS 7F5C4646030306
01950 .HS 3C070000
01960 *
01970 .HS 0000C08080C0B0
01980 .HS 88
01990 BOOT.STUFF
02000 .HS 84C4769EE67C
02010 .HS 08887906
02020 *
02030 INIT.OS
02040 LDA $E463
02050 STA $224
02060 LDA $E464
02070 STA $225
02080 LDA $E460
02090 STA $222
02100 LDA $E461
02110 STA $223
02120 RTS
02130 *
02140 .AS /f3DSdsIaApPLa;/
02150 .AS /Steve Hales/
02160 *
02170 .DA INIT.OS-1
02180 .DA START-1
02190 *
02200 LASER.SHAPES
02210 .DA #%11000000
02220 .DA #%11000000
02230 .DA #%00110000
02240 .DA #%00110000
02250 .DA #%00001100
02260 .DA #%00001100
02270 .DA #%00000011
02280 .DA #%00000011
02290 *
02300 .DA #%00000011
02310 .DA #%00000011
02320 .DA #%00001100
02330 .DA #%00001100
02340 .DA #%00110000
02350 .DA #%00110000
02360 .DA #%11000000
02370 .DA #%11000000
02380 *
02390 .DA #%00000000
02400 .DA #%00000000
02410 .DA #%00000000
02420 .DA #%11111111
02430 .DA #%11111111
02440 .DA #%00000000
02450 .DA #%00000000
02460 .DA #%00000000
02470 *
02480 .DA #%00110000
02490 .DA #%00110000
02500 .DA #%00110000
02510 .DA #%00110000
02520 .DA #%00110000
02530 .DA #%00110000
02540 .DA #%00110000
02550 .DA #%00110000
02560 *
02570 * EOF
02580 *