Purchase/Activate description as constant text

Prepare to new DL (with jumps :) )
This commit is contained in:
Pecusx
2022-08-15 14:33:51 +02:00
parent b5ea72ac93
commit bccb931433
3 changed files with 21 additions and 28 deletions
+2 -10
View File
@@ -356,11 +356,7 @@ CreateList
jmi itIsInventory
; put "Purchase" on the screen
ldx #[purchaseTextEnd-purchaseText-1]
@ lda purchaseText,x
sta purchaseActivate,x
dex
bpl @-
mwa #PurchaseDescription PurActDescAddr
; and Title
mwa #PurchaseTitle DLPurTitleAddr
@@ -414,11 +410,7 @@ CreateList
itIsInventory
; put "Activate" on the screen
ldx #[purchaseTextEnd-purchaseText-1]
@ lda activateText,x
sta purchaseActivate,x
dex
bpl @-
mwa #ActivateDescription PurActDescAddr
; and Title
mwa #InventoryTitle DLPurTitleAddr