broken inventory rollback

constants.asm

@@ -688,5 +688,10 @@ gameOverSpritesTop
     ; end of the Gover sprites by number of players
     ;    1   2   3   4   5   6
     .by 130,130,136,142,148,154
+;-------decimal constans
+zero
+digits   dta d"0123456789"
+nineplus dta d"9"+1
+space    dta d" "
 
 .endif

display.asm

@@ -125,14 +125,13 @@ MoreDown
  dta d"  more  "
  dta 93,93,93
  dta d"             "
-GameOverResults ; reuse after game (remember to clear on start new)
 ListOfWeapons
- :32 dta d"                                        "  ; WARNING! 32 offensive weapons at the moment!
+ :36 dta d"                                        "
-ListOfWeaponsEnd
+ListOfWeapons1End
-
+GameOverResults ; reuse after game (remember to clear on start new)
-;ListOfDefensiveWeapons
+ListOfDefensiveWeapons
-; :16 dta d"                                        "
+ :16 dta d"                                        "
-;ListOfDefensiveWeaponsEnd ;constant useful when clearing
+ListOfDefensiveWeaponsEnd ;constant useful when clearing
 WeaponsDescription
  dta d"  "
  dta d"Tab"*

textproc.asm

@@ -479,7 +479,7 @@ NoWeapon
 
 ; if we got to the defense weapons,
 ; we switch address to the second table.
-    mwa #ListOfWeapons xbyte
+    mwa #ListOfDefensiveWeapons xbyte
 NoDefense
     cpx #$40
     jne CreateList
@@ -534,10 +534,10 @@ ClearList1
     bne DoNotIncHigher1
     inc xbyte+1
 DoNotIncHigher1
-    cpy #<ListOfWeaponsEnd
+    cpy #<ListOfWeapons1End
     bne ClearList1
     ldx xbyte+1
-    cpx #>ListOfWeaponsEnd
+    cpx #>ListOfWeapons1End
     bne ClearList1
 
     ; And the same we do with the second list
@@ -564,10 +564,10 @@ DoNotAddX02
     ; add to the address of the list
     clc
     lda xbyte
-    adc #<ListOfWeapons
+    adc #<ListOfDefensiveWeapons
     tay
     lda xbyte+1
-    adc #>ListOfWeapons
+    adc #>ListOfDefensiveWeapons
     sta xbyte+1
     stx xbyte
     txa ; now there is zero here
@@ -577,10 +577,10 @@ ClearList2
     bne DoNotIncHigher2
     inc xbyte+1
 DoNotIncHigher2
-    cpy #<ListOfWeaponsEnd
+    cpy #<ListOfDefensiveWeaponsEnd
     bne ClearList2
     ldx xbyte+1
-    cpx #>ListOfWeaponsEnd
+    cpx #>ListOfDefensiveWeaponsEnd
     bne ClearList2
 
 ; here we have pretty cool lists and there is no brute force
@@ -715,7 +715,7 @@ ListChange
     jmp ChoosingItemForPurchase
 
 DeffensiveSelected
-    mwa #ListOfWeapons WeaponsListDL
+    mwa #ListOfDefensiveWeapons WeaponsListDL
     lda isInventory
     beq @+
     jsr calcPosDefensive
@@ -897,7 +897,7 @@ EraseLoop
     beq CharToList1
     ; we are on the second list (deffensive)
     ; so there is no problem with scrolling
-    mwa #ListOfWeapons xbyte
+    mwa #ListOfDefensiveWeapons xbyte
     ldx PositionOnTheList
     beq SelectList2 ; if there is 0 we add nothing
 AddLoop2
@@ -1324,11 +1324,6 @@ displayloop1
 
     rts
 .endp
-;-------decimal constans
-zero
-digits   dta d"0123456789"
-nineplus dta d"9"+1
-space    dta d" "
 
 ;--------------------------------------------------------
 .proc Display4x4AboveTank ;