-
Notifications
You must be signed in to change notification settings - Fork 11
/
Copy pathfort7.s
139 lines (138 loc) · 3.22 KB
/
fort7.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
00010 *
00020 * FILE: FORT7.S
00030 *
00040 * VARIABLES
00050 OFF .EQ 1
00060 ON .EQ 2
00070 FLY .EQ 3
00080 CRASH .EQ 4
00090 EXPLODE .EQ 5
00100 LAND .EQ 6
00110 BEGIN .EQ 7
00120 FULL .EQ 8
00130 EMPTY .EQ 9
00140 REFUEL .EQ 10
00150 PICKUP .EQ 11
00160 *
00170 *
00180 SCAN.ADR1 .BS 2
00190 SCAN.ADR2 .BS 2
00200 SX .BS 1
00210 SX.F .BS 1
00220 SY .BS 1
00230 SY.F .BS 1
00240 CONSOL.FLAG .BS 1
00250 TRIG.FLAG .BS 1
00260 LEVEL .BS 1
00270 LAND.X .BS 1
00280 LAND.Y .BS 1
00290 LAND.FX .BS 1
00300 LAND.FY .BS 1
00310 LAND.CHOP.X .BS 1
00320 LAND.CHOP.Y .BS 1
00330 LAND.CHOP.ANGLE
00340 .BS 1
00350 *
00360 CHOPPER.STATUS
00370 .BS 1
00380 *
00390 CHOPPER.X .BS 1
00400 CHOPPER.Y .BS 1
00410 OCHOPPER.Y .BS 1
00420 CHOPPER.ANGLE
00430 .BS 1
00440 CHOPPER.COL .BS 1
00450 CHOP.X .BS 1
00460 CHOP.Y .BS 1
00470 CHOP.OX .BS 1
00480 CHOP.OY .BS 1
00490 ROBOT.STATUS .BS 1
00500 R.STATUS .BS 1
00510 ROBOT.X .BS 1
00520 ROBOT.Y .BS 1
00530 OROBOT.Y .BS 1
00540 ROBOT.ANGLE .BS 1
00550 ROBOT.SPD .BS 1
00560 ROBOT.COL .BS 1
00570 R.FX .BS 1
00580 R.FY .BS 1
00590 R.X .BS 1
00600 R.Y .BS 1
00610 ROCKET.STATUS
00620 .BS 3
00630 ROCKET.X .BS 3
00640 ROCKET.Y .BS 3
00650 ROCKET.TEMP .BS 3
00660 ROCKET.TEMPX .BS 3
00670 ROCKET.TEMPY .BS 3
00680 ROCKET.TIM .BS 3
00690 OROCKET.Y .BS 3
00700 ELEVATOR.NUM .BS 1
00710 ELEVATOR.DX .BS 1
00720 ELEVATOR.TIM .BS 1
00730 ELEVATOR.SPD .BS 1
00740 SCORE1 .BS 1
00750 SCORE2 .BS 1
00760 SCORE3 .BS 1
00770 HI1 .BS 1
00780 HI2 .BS 1
00790 HI3 .BS 1
00800 BONUS1 .BS 1
00810 BONUS2 .BS 1
00820 FUEL.STATUS .BS 1
00830 FUEL.TEMP .BS 1
00840 FUEL1 .BS 1
00850 FUEL2 .BS 1
00860 *
00870 MODE .BS 1
00880 BAK.COLOR .BS 1
00890 BAK2.COLOR .BS 1
00900 TITLE.MODE .EQ 1
00910 GO.MODE .EQ 2
00920 START.MODE .EQ 3
00930 NEW.LEVEL.MODE .EQ 4
00940 NEW.PLAYER.MODE .EQ 5
00950 GAME.OVER.MODE .EQ 6
00960 STOP.MODE .EQ 7
00970 PAUSE.MODE .EQ 8
00980 OPTION.MODE .EQ 9
00990 HYPERSPACE.MODE .EQ 10
01000 *
01010 CM.STATUS .BS MAX.TANKS
01020 CM.X .BS MAX.TANKS
01030 CM.Y .BS MAX.TANKS
01040 CM.TIME .BS MAX.TANKS
01050 CM.TEMP .BS MAX.TANKS
01060 *
01070 TANK.STATUS .BS MAX.TANKS
01080 TANK.X .BS MAX.TANKS
01090 TANK.Y .BS MAX.TANKS
01100 TANK.DX .BS MAX.TANKS
01110 TANK.TEMP
01120 * MAX.TANKS*3 6*3=18
01130 .BS 18
01140 *
01150 POD.NUM .BS 1
01160 POD.COM .BS 1
01170 SLAVE.NUM .BS 1
01180 SLAVES.LEFT .BS 1
01190 SLAVES.SAVED .BS 1
01200 *
01210 FORT.STATUS .BS 1
01220 LASER.STATUS .BS 1
01230 LASER.SPD .BS 1
01240 TANK.SPD .BS 1
01250 TANK.SPEED .BS 1
01260 MISSILE.SPD .BS 1
01270 MISSILE.SPEED .BS 1
01280 GRAV.SKILL .BS 1
01290 GRAV.SKL .BS 1
01300 PILOT.SKILL .BS 1
01310 PILOT.SKL .BS 1
01320 CHOPS .BS 1
01330 CHOP.LEFT .BS 1
01340 OPT.NUM .BS 1
01350 START.PODS .BS 1
01360 *
01370 * EOF
01380 *