Pecus/scorch_src
1
0
Fork 0
mirror of https://github.com/Pecusx/scorch_src.git synced 2026-05-20 22:33:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

More memory - opty

Browse Source
This commit is contained in:
Pecusx
2023-10-26 19:18:15 +02:00
parent dc60a1dd52
commit fa43529e92
2 changed files with 17 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scorch.xex
BIN
View File
Binary file not shown.
weapons.asm
+17 -17
View File
@@ -1297,6 +1297,7 @@ jumpFromStick
jmp ReleaseAndLoop jmp ReleaseAndLoop
NoVdebugSwitch NoVdebugSwitch
mvy #1 Erase ; optimization
and #$3f ;CTRL and SHIFT ellimination and #$3f ;CTRL and SHIFT ellimination
cmp #@kbcode._up ; $e cmp #@kbcode._up ; $e
jeq pressedUp jeq pressedUp
@@ -1376,8 +1377,6 @@ pressedDown
cmp #25 ; 1/2s cmp #25 ; 1/2s
bcs CTRLPressedDown bcs CTRLPressedDown
mva #sfx_set_power_1 sfx_effect
;ldx TankNr ; optimized ;ldx TankNr ; optimized
dec ForceTableL,x dec ForceTableL,x
lda ForceTableL,x lda ForceTableL,x
@@ -1390,6 +1389,7 @@ ForceGoesZero
sta ForceTableH,x sta ForceTableH,x
sta ForceTableL,x sta ForceTableL,x
@ @
mva #sfx_set_power_1 sfx_effect
jmp BeforeFire jmp BeforeFire
CTRLPressedDown CTRLPressedDown
@@ -1403,7 +1403,7 @@ CTRLPressedDown
jcs BeforeFire jcs BeforeFire
dec ForceTableH,x dec ForceTableH,x
bmi ForceGoesZero bmi ForceGoesZero
jmp BeforeFire bpl @-
pressedRight pressedRight
;ldx TankNr ; optimized ;ldx TankNr ; optimized
@@ -1412,30 +1412,30 @@ pressedRight
cmp #25 ; 1/2s cmp #25 ; 1/2s
bcs CTRLPressedRight bcs CTRLPressedRight
mva #sfx_set_power_2 sfx_effect ; mva #1 Erase
mva #1 Erase
jsr DrawTankNr.BarrelChange jsr DrawTankNr.BarrelChange
dec:lda AngleTable,x dec:lda AngleTable,x
cmp #255 ; -1 cmp #255 ; -1
jne BeforeFire bne @+
lda #180 lda #180
sta AngleTable,x sta AngleTable,x
@
mva #sfx_set_power_2 sfx_effect
jmp BeforeFire jmp BeforeFire
CTRLPressedRight CTRLPressedRight
;ldx TankNr ; optimized ;ldx TankNr ; optimized
mva #sfx_set_power_2 sfx_effect ; mva #1 Erase
mva #1 Erase
jsr DrawTankNr.BarrelChange jsr DrawTankNr.BarrelChange
lda AngleTable,x lda AngleTable,x
sec sec
sbc #4 sbc #4
sta AngleTable,x sta AngleTable,x
cmp #4 ; smallest angle for speed rotating cmp #4 ; smallest angle for speed rotating
jcs BeforeFire bcs @-
lda #180 lda #180
sta AngleTable,x sta AngleTable,x
jmp BeforeFire bne @-
pressedLeft pressedLeft
@@ -1445,31 +1445,31 @@ pressedLeft
cmp #25 ; 1/2s cmp #25 ; 1/2s
bcs CTRLPressedLeft bcs CTRLPressedLeft
mva #sfx_set_power_2 sfx_effect ; mva #1 Erase
mva #1 Erase
jsr DrawTankNr.BarrelChange jsr DrawTankNr.BarrelChange
INC AngleTable,x INC AngleTable,x
lda AngleTable,x lda AngleTable,x
cmp #180 cmp #180
jcc BeforeFire bcc @+
lda #0 lda #0
sta AngleTable,x sta AngleTable,x
@
mva #sfx_set_power_2 sfx_effect
jmp BeforeFire jmp BeforeFire
CTRLPressedLeft CTRLPressedLeft
;ldx TankNr ; optimized ;ldx TankNr ; optimized
mva #sfx_set_power_2 sfx_effect ; mva #1 Erase
mva #1 Erase
jsr DrawTankNr.BarrelChange jsr DrawTankNr.BarrelChange
lda AngleTable,x lda AngleTable,x
clc clc
adc #4 adc #4
sta AngleTable,x sta AngleTable,x
cmp #180-4 cmp #180-4
jcc BeforeFire bcc @-
lda #0 lda #0
sta AngleTable,x sta AngleTable,x
jmp BeforeFire beq @-
pressedTAB pressedTAB
mva #sfx_purchase sfx_effect mva #sfx_purchase sfx_effect