cosmetics

2026-05-21 06:39:40 +02:00 · 2022-06-09 20:32:37 +02:00
parent 1b983b8d92
commit 836c67afcf
1 changed files with 4 additions and 4 deletions
@@ -707,18 +707,18 @@ NotNegativeEnergy
    ; Energy cannot be less than 0
    lda ShieldEnergy,x
    cmp EnergyDecrease
-    bcc ldahashzero
+    bcc UseAllShieldEnergy
    ;sec
    sbc EnergyDecrease
-    bpl NotNegativeEnergy
-ldahashzero
+    bpl NotNegativeShieldEnergy	; jump allways
+UseAllShieldEnergy
 	; now calculate rest of energy for future tank energy decrease
 	sec
 	lda EnergyDecrease
 	sbc ShieldEnergy,x
 	tay
    lda #0
-NotNegativeEnergy
+NotNegativeShieldEnergy
    sta ShieldEnergy,x
    rts
 .endp