Memory optimizations

This commit is contained in:
Pecusx
2022-08-25 13:54:15 +02:00
parent e70752c12d
commit 09651f163a
2 changed files with 7 additions and 8 deletions
+7 -8
View File
@@ -324,7 +324,7 @@ NoUseDefensive
; use defensives like Tosser ; use defensives like Tosser
jsr TosserDefensives jsr TosserDefensives
; now select best target ; now select best target
mva #$00 PreferHumansFlag lda #$00 ; no prefer humans
jsr FindBestTarget3 jsr FindBestTarget3
sty TargetTankNr sty TargetTankNr
; aiming ; aiming
@@ -365,7 +365,7 @@ HighForce
; use defensives like Tosser ; use defensives like Tosser
jsr TosserDefensives jsr TosserDefensives
; now select best target ; now select best target
mva #$00 PreferHumansFlag lda #$00 ; no prefer humans
jsr FindBestTarget3 jsr FindBestTarget3
sty TargetTankNr sty TargetTankNr
; aiming ; aiming
@@ -405,7 +405,7 @@ HighForce
; use defensives like Tosser ; use defensives like Tosser
jsr TosserDefensives jsr TosserDefensives
; now select best target ; now select best target
mva #$ff PreferHumansFlag lda #100 ; prefer humans
jsr FindBestTarget3 jsr FindBestTarget3
sty TargetTankNr sty TargetTankNr
; aiming ; aiming
@@ -440,9 +440,11 @@ HighForce
.proc FindBestTarget3 .proc FindBestTarget3
; find target with lowest energy ; find target with lowest energy
; X - shooting tank number ; X - shooting tank number
; A - 100 - prefer humans , 0 - equality :)
; returns target tank number in Y and ; returns target tank number in Y and
; direcion of shoot in A (0 - left, >0 - right) ; direcion of shoot in A (0 - left, >0 - right)
;---------------------------------------------- ;----------------------------------------------
sta PreferHumansFlag
jsr MakeLowResDistances jsr MakeLowResDistances
lda #202 lda #202
sta temp2 ; max possible energy sta temp2 ; max possible energy
@@ -458,15 +460,12 @@ loop01
lda eXistenZ,y lda eXistenZ,y
beq skipThisPlayer beq skipThisPlayer
bit PreferHumansFlag
bpl NoPreferHumans
lda skilltable,y lda skilltable,y
beq ItIsHuman beq ItIsHuman
lda #100 lda PreferHumansFlag
ItIsHuman ItIsHuman
NoPreferHumans
clc clc
adc Energy,y ; if robotank energy=energy+100 adc Energy,y ; if robotank energy=energy+100 (100 or 0 from PreferHumansFlag)
cmp temp2 ; lowest cmp temp2 ; lowest
bcs lowestIsLower bcs lowestIsLower
sta temp2 sta temp2
BIN
View File
Binary file not shown.