From 255c240d7a06c4e1d88a41424f7266a4f74a14ac Mon Sep 17 00:00:00 2001 From: pkali Date: Sun, 14 Aug 2022 23:38:20 -0400 Subject: [PATCH] minor label changes --- scorch.xex | Bin 50637 -> 50637 bytes textproc.asm | 20 ++++++++++---------- 2 files changed, 10 insertions(+), 10 deletions(-) diff --git a/scorch.xex b/scorch.xex index 22427c04e4ff1934140bb68562ce27ab78c598db..07e099495de57574c03e9b5bc2bfb9e823679d82 100644 GIT binary patch delta 29 kcmX@x&3v|-dBgE?z6A^|w|$z^j@=eu0WvpVE&t&Q0M2g?1ONa4 delta 29 kcmX@x&3v|-dBgE?zLgBEw|$z^j@=eu0WvpVE&t&Q0MB_27ytkO diff --git a/textproc.asm b/textproc.asm index 552e568..081782f 100644 --- a/textproc.asm +++ b/textproc.asm @@ -269,8 +269,6 @@ AfterManualPurchase ;-------------------------------------------------- .proc Purchase ; ;-------------------------------------------------- -; TODO: when round ends with a weapon depleted the pointer points to an empty line - ; In tanknr there is a number of the tank (player) ; that is buying weapons now (from 0). ; Rest of the data is taken from appropriate tables @@ -687,17 +685,19 @@ ChoosingItemForPurchase PurchaseKeyUp lda WhichList - beq GoUp1 + beq GoUpOffensive dec PositionOnTheList bpl EndUpX - lda #$00 - sta PositionOnTheList + ldy #0 ;HowManyOnTheListDef + ;dey + sty PositionOnTheList jmp ChoosingItemForPurchase -GoUp1 +GoUpOffensive dec PositionOnTheList bpl MakeOffsetUp - lda #$00 - sta PositionOnTheList + ldy #0 ;HowManyOnTheListOff + ;dey + sty PositionOnTheList MakeOffsetUp ; If offset is larger than pointer position, @@ -710,7 +710,7 @@ EndUpX jmp ChoosingItemForPurchase PurchaseKeyDown lda WhichList - beq GoDown1 + beq GoDownOffensive inc:lda PositionOnTheList cmp HowManyOnTheListDef bne EndGoDownX @@ -718,7 +718,7 @@ PurchaseKeyDown dey sty PositionOnTheList jmp ChoosingItemForPurchase -GoDown1 +GoDownOffensive inc:lda PositionOnTheList cmp HowManyOnTheListOff bne MakeOffsetDown