NeptuneLander/gameLander.asm at master · OldSkoolCoder/NeptuneLander · GitHub

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
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
glSetUpLunarSprite
;        lda #70
;        sta LunaLanderXLo
;        lda #60
;        sta LunaLanderY
;        lda #0
;        sta LunaLanderXHi
;        lda #0
        sta LunaLanderSpNo
        lda #DarkGray
        sta LunaLanderColour

        lda #Yellow
        sta LunaLanderWindowCol

        lda #Red
        sta ThrustColour
        sta ManuoverColour

        ; POKE 53273, PEEK(53273) OR 2
        lda VICIRQ
        ora #2
        sta VICIRQ

        ; 20 POKE 2040,170 : REM SPRITE POINT * 64 = 170 * 64 = 10880
        ; 25 POKE 2041,186
        LIBSPRITE_SETFRAME_AA
        LIBSPRITE_SETFRAME_AA LunaLanderSpNo, SpriteShipNo
        LIBSPRITE_SETFRAME_AV ThrustSpNo, spNoThrust
        LIBSPRITE_SETFRAME_AV ManuoverSpNo, spNoThrust
        LIBSPRITE_SETFRAME_AA LunaLanderWindowSpNo, SpriteWindowShipNo

;        LIBSPRITE_SETFRAME_AV LunaLanderSpNo, spLunaLander
;        LIBSPRITE_SETFRAME_AV ThrustSpNo, spNoThrust
;        LIBSPRITE_SETFRAME_AV ManuoverSpNo, spNoThrust
;        LIBSPRITE_SETFRAME_AV LunaLanderWindowSpNo, spLunaLanderWindows

        ;poke 53269,3
        LIBSPRITE_ENABLE_AV LunaLanderSpNo, True
        LIBSPRITE_ENABLE_AV ThrustSpNo, True
        LIBSPRITE_ENABLE_AV ManuoverSpNo, True
        LIBSPRITE_ENABLE_AV LunaLanderWindowSpNo, True

        ; 30 Y = 60 : POKE 53249,Y : POKE 53251,Y
        ; 40 X = 60 : POKE 53248,X : POKE 53250,X
        LIBSPRITE_SETPOSITION_AAAA LunaLanderSpNo, LunaLanderXHi, LunaLanderXLo, LunaLanderY
        LIBSPRITE_SETPOSITION_AAAA ThrustSpNo, LunaLanderXHi, LunaLanderXLo, LunaLanderY
        LIBSPRITE_SETPOSITION_AAAA ManuoverSpNo, LunaLanderXHi, LunaLanderXLo, LunaLanderY
        LIBSPRITE_SETPOSITION_AAAA LunaLanderWindowSpNo, LunaLanderXHi, LunaLanderXLo, LunaLanderY

        ; POKE 53287,0
        LIBSPRITE_SETCOLOR_AA LunaLanderSpNo, LunaLanderColour
        LIBSPRITE_SETCOLOR_AA LunaLanderWindowSpNo, LunaLanderWindowCol

        ; POKE 53288,2
        LIBSPRITE_SETCOLOR_AA ThrustSpNo, ThrustColour
        LIBSPRITE_SETCOLOR_AA ManuoverSpNo, ManuoverColour
        LIBSPRITE_SETMULTICOLORS_VV Yellow, LightGray

        LIBSPRITE_MULTICOLORENABLE_AV LunaLanderSpNo, False
        LIBSPRITE_MULTICOLORENABLE_AV LunaLanderWindowSpNo, False

        rts

glUpdateSpritePosition
        ; 210 Y = (Y+VV) : X = (X+HV)
        LIBMATH_ADD16BIT_AAA LunaLanderYFrac, VerticalVelocityFracHi, LunaLanderYFrac
        ;LIBMATH_ADD24BIT_AAA LunaLanderXFrac, HorizontalVelocityFrac, LunaLanderXFrac
        LIBMATH_ADD24BIT2sCOMP_AAA LunaLanderXFrac, HorizontalVelocityFrac, LunaLanderXFrac

        ;215 POKE 2041,TS : POKE 53250, XL : POKE 53251, Y
        ;216 POKE 53249, Y : POKE 53248,XL : POKE 53264, XH : REM CC=CC+1
        LIBSPRITE_SETFRAME_AA ThrustSpNo, ThrustFrameNo
        LIBSPRITE_SETFRAME_AA ManuoverSpNo, ManuoverFrameNo

        LIBSPRITE_SETPOSITION_AAAA LunaLanderSpNo, LunaLanderXHi, LunaLanderXLo, LunaLanderY
        LIBSPRITE_SETPOSITION_AAAA ThrustSpNo, LunaLanderXHi, LunaLanderXLo, LunaLanderY
        LIBSPRITE_SETPOSITION_AAAA ManuoverSpNo, LunaLanderXHi, LunaLanderXLo, LunaLanderY
        LIBSPRITE_SETPOSITION_AAAA LunaLanderWindowSpNo, LunaLanderXHi, LunaLanderXLo, LunaLanderY

        rts

glDidWeCollideWithScene
        LIBSPRITE_DIDCOLLIDEWITHDATA_A LunaLanderSpNo
        beq DidNotCollide
        ;lda #2
        ;sta EXTCOL

        lda DemoMode
        cmp #255
        beq DidNotCollide

@ConfirmCollided
        lda #True
        sta CollidedWithBackground

DidNotCollide
        rts

glDebugReadInputAndUpdateVariables

        lda InputDevice
        cmp #idJoystick
        bne @glKeyboardInput
        jsr glJoystickDebugInput
        jmp @glDebugInformation

@glKeyboardInput
        jsr glKeyboardDebugInput

@glDebugInformation
        lda #19
        jsr krljmp_CHROUT$
        ldx LunaLanderXLo
        lda LunaLanderXHi
        jsr $bdcd

        lda #$20
        jsr krljmp_CHROUT$
        lda #44
        jsr krljmp_CHROUT$

        ldx LunaLanderY
        lda #0
        jsr $bdcd

        lda #$20
        jsr krljmp_CHROUT$
        lda #44
        jsr krljmp_CHROUT$

        ldx CollidedWithBackground
        lda #0
        jsr $bdcd

        lda #$20
        jsr krljmp_CHROUT$
        lda #44
        jsr krljmp_CHROUT$

        ldx keyboardScanByte + 5
        lda #0
        jsr $bdcd

        lda #$20
        jsr krljmp_CHROUT$

@NoInput
        rts

glJoystickDebugInput
@GetInput
        jsr libInputUpdate

        LIBINPUT_GETHELD GameportLeftMask
        bne @TestRight

        LIBMATH_SUB16BIT_AAA LunaLanderXLo, DemoIncrement, LunaLanderXLo

@TestRight
        LIBINPUT_GETHELD GameportRightMask
        bne @TestUp

        LIBMATH_ADD16BIT_AAA LunaLanderXLo, DemoIncrement, LunaLanderXLo

@TestUp
        LIBINPUT_GETHELD GameportUpMask
        bne @TestDown

        LIBMATH_SUB8BIT_AAA LunaLanderY, DemoIncrement, LunaLanderY

@TestDown
        LIBINPUT_GETHELD GameportDownMask
        bne @TestFire

        LIBMATH_ADD8BIT_AAA LunaLanderY, DemoIncrement, LunaLanderY


@TestFire
        ;LIBINPUT_GETHELD GameportFireMask
        ;bne @NoInput
        rts

glKeyboardDebugInput
        jsr libInput_ScanKeyboardMatrix

        lda keyboardScanByte + 5
        cmp #%01111111
        bne @TestRight

        LIBMATH_SUB16BIT_AAA LunaLanderXLo, DemoIncrement, LunaLanderXLo

@TestRight
        lda keyboardScanByte + 5
        cmp #%11101111
        bne @TestFire
        LIBMATH_ADD16BIT_AAA LunaLanderXLo, DemoIncrement, LunaLanderXLo

@TestFire
        lda keyboardScanByte + 7
        cmp #%11101111
        bne @TestDone

        LIBMATH_SUB8BIT_AAA LunaLanderY, DemoIncrement, LunaLanderY

@TestDone
    rts

glReadInputAndUpdateVariables

        lda FuelBarValue
        cmp FuelTankSize
        bcc @GetInput
        lda FuelTankSize
        sta FuelBarValue
        jmp @FuelRanOut

@GetInput
        lda InputDevice
        cmp #idJoystick
        bne @glKeyboardInput
        jsr glReadJoystickAndUpdateVariables
        jmp @InputProcessed

@glKeyboardInput
        jsr glReadKeyboardAndUpdateVariables
        jmp @InputProcessed

@FuelRanOut
        ldx #spNoThrust
        stx ThrustFrameNo
        stx ManuoverFrameNo

@InputProcessed
        clc
        bcs @GravityByPass
        ldx GameStatus
        cpx #GF_Dead
        beq @GravityByPass
        LIBMATH_ADD24BIT_AAA VerticalVelocityFracLo, GravityFracLo, VerticalVelocityFracLo

@GravityByPass
        lda VerticalVelocity
        cmp #2
        bne @InputFinish

        lda #1
        sta VerticalVelocity
        lda #0
        sta VerticalVelocityFracLo
        sta VerticalVelocityFracHi

@InputFinish
        rts

glDisableSprites
    LIBSPRITE_ENABLE_AV LunaLanderSpNo, False
    LIBSPRITE_ENABLE_AV ThrustSpNo, False
    LIBSPRITE_ENABLE_AV ManuoverSpNo, False
    LIBSPRITE_ENABLE_AV LunaLanderWindowSpNo, False
    rts

glSoundExplosion
    LIBSOUND_PLAY_VAA 1, soundExplosionHigh, soundExplosionLow
    rts

glSoundSideThrust
    LIBSOUND_PLAY_VAA 1, soundSideThrustHigh, soundSideThrustLow
    rts

glSoundMainThrust
    LIBSOUND_PLAY_VAA 1, soundMainThrustHigh, soundMainThrustLow
    rts

glReadJoystickAndUpdateVariables
        jsr libInputUpdate

        LIBINPUT_GETHELD GameportLeftMask
        bne @TestRight

        ;130 IF A = 10 THEN HV = HV + HI : TS = 185 :REM A
        LIBMATH_ADD16BIT_AAA HorizontalVelocityFrac, HorizontalInertiaFrac, HorizontalVelocityFrac
        jsr glSoundSideThrust
        ldx SpriteThrustLeftNo
        stx ManuoverFrameNo
        jsr gmAddFuelConsumption

@TestRight
        LIBINPUT_GETHELD GameportRightMask
        bne @TestFire

        ;120 IF A = 18 THEN HV = HV - HI : TS = 184 : REM D
        LIBMATH_SUB16BIT_AAA HorizontalVelocityFrac, HorizontalInertiaFrac, HorizontalVelocityFrac
        jsr glSoundSideThrust
        ldx SpriteThrustRightNo
        stx ManuoverFrameNo
        jsr gmAddFuelConsumption

@TestFire
        LIBINPUT_GETHELD GameportFireMask
        bne @NoInput

        ;110 IF A = 22 THEN VV = VV - T : TS=183 :
@FireDetected
        LIBMATH_SUB24BIT_AAA VerticalVelocityFracLo, ThrustFracLo, VerticalVelocityFracLo
        jsr glSoundMainThrust
        ldx SpriteThrustNo
        stx ThrustFrameNo
        jsr gmAddFuelConsumption
        jsr gmAddFuelConsumption
        sec
        jmp @InputProcessed + 1
        ;jmp @GravityByPass

@NoInput
        LIBINPUT_GETHELD GameportNoInputMask
        cmp #GameportNoInputMask
        bne @InputProcessed
        ldx #spNoThrust
        stx ThrustFrameNo
        stx ManuoverFrameNo

@InputProcessed
        clc
        rts

glReadKeyboardAndUpdateVariables
        jsr libInput_ScanKeyboardMatrix

        lda keyboardScanByte + 5
        cmp #%01111111
        bne @TestRight

        ;130 IF A = 10 THEN HV = HV + HI : TS = 185 :REM A
        LIBMATH_ADD16BIT_AAA HorizontalVelocityFrac, HorizontalInertiaFrac, HorizontalVelocityFrac
        jsr glSoundSideThrust
        ldx SpriteThrustLeftNo
        stx ManuoverFrameNo
        jsr gmAddFuelConsumption

@TestRight
        lda keyboardScanByte + 5
        cmp #%11101111
        bne @TestFire

        ;120 IF A = 18 THEN HV = HV - HI : TS = 184 : REM D
        LIBMATH_SUB16BIT_AAA HorizontalVelocityFrac, HorizontalInertiaFrac, HorizontalVelocityFrac
        jsr glSoundSideThrust
        ldx SpriteThrustRightNo
        stx ManuoverFrameNo
        jsr gmAddFuelConsumption

@TestFire
        lda keyboardScanByte + 7
        cmp #%11101111
        bne @NoInput

        ;110 IF A = 22 THEN VV = VV - T : TS=183 :
@FireDetected
        LIBMATH_SUB24BIT_AAA VerticalVelocityFracLo, ThrustFracLo, VerticalVelocityFracLo
        jsr glSoundMainThrust
        ldx SpriteThrustNo
        stx ThrustFrameNo
        jsr gmAddFuelConsumption
        jsr gmAddFuelConsumption
        sec
        jmp @InputProcessed + 1
        ;jmp @GravityByPass

@NoInput
        lda keyboardScanByte + 8
        cmp #%11111111
        bne @InputProcessed
        ldx #spNoThrust
        stx ThrustFrameNo
        stx ManuoverFrameNo

@InputProcessed
        clc
        rts