One byte DirectHits counter

This commit is contained in:
Pecusx
2023-04-27 13:27:58 +02:00
parent 96372de688
commit b604851904
6 changed files with 12 additions and 12 deletions
+3 -3
View File
@@ -1489,11 +1489,11 @@ BubbleBobble
bcc nextishigher
bne swapvalues
nextisequal
; if results are equal, check Direct Hits (only lower byte - sorry memory)
; if results are equal, check Direct Hits
ldy TankSequence,x
lda DirectHitsL,y
lda DirectHits,y
ldy TankSequence+1,x
cmp DirectHitsL,y
cmp DirectHits,y
;
beq nextishigher ; this is to block hangs when 2 equal values meet
bcc nextishigher
BIN
View File
Binary file not shown.
BIN
View File
Binary file not shown.
+3 -3
View File
@@ -1845,11 +1845,11 @@ NextChar
jsr displaydec5
mva #0 displayposition ; overwrite first digit
; put hits points on the screen
sta decimal+1 ; pozor!!! A=0
ldx TankNr
lda DirectHitsL,x
lda DirectHits,x
sta decimal
lda DirectHitsH,x
sta decimal+1
; lda DirectHitsH,x ; one byte enough
adw temp #19 displayposition
jsr displaydec5
mva #0 displayposition ; overwrite first digit
+3 -3
View File
@@ -102,9 +102,9 @@ ResultsTable ;the results in the gameeeeee
.DS MaxPlayers
TempResults
.DS MaxPlayers
DirectHitsH
.DS MaxPlayers
DirectHitsL
;DirectHitsH ; one byte enough
; .DS MaxPlayers
DirectHits
.DS MaxPlayers
EarnedMoneyH
.DS MaxPlayers
+3 -3
View File
@@ -1867,9 +1867,9 @@ EndOfFlight2
cpx HitFlag ; we don't count suicides :)
beq @+
dex
inc DirectHitsL,x
bne @+
inc DirectHitsH,x
inc DirectHits,x
; bne @+ ; one byte enough
; inc DirectHitsH,x
@
; tank hit - check defensive weapon of this tank
tax