From e27d2ac43c63aa1e65c445360b6359eeac751247 Mon Sep 17 00:00:00 2001
From: "B. Watson" <yalhcru@gmail.com>
Date: Fri, 21 May 2021 03:20:25 -0400
Subject: Correctly pluralize "we have N guns". Costs 18 bytes, now 8956

---
 console.s | 40 +++++++++++++---------------------------
 1 file changed, 13 insertions(+), 27 deletions(-)

(limited to 'console.s')

diff --git a/console.s b/console.s
index 3d43dc1..50fe3ed 100644
--- a/console.s
+++ b/console.s
@@ -385,33 +385,19 @@ _print_score_msg:
  ldx #>_M_land_based_job
  bne @pm                 ; branch always (since message is not in zero page)
 
-;;
-;;
-;;
-;; sta FR0
-;; stx FR0+1
-;; ldy #3
-;; lda (FR0),y             ; look at MSB of score
-;; bpl @notneg             ; is it negative?
-;; lda #<_M_stay_on_shore  ; if so, print this message
-;; ldx #>_M_stay_on_shore
-;;@pm:
-;; jmp _print_msg
-;;@notneg:                 ; else...
-;; bne done1               ; if MSB non-zero, score is at least 2^24+1, no message
-;; dey
-;; lda (FR0),y  
-;; dey
-;; ora (FR0),y  
-;; bne done1               ; if either of these is non-zero, score is >= 256, no message
-;; dey
-;; lda (FR0),y             ; here, the top 3 bytes are zero, so check the LSB.
-;; cmp #100                ; is it < 100?
-;; bcs done1               ; if not, no message. or,
-;; lda #<_M_land_based_job ; if so, print this message
-;; ldx #>_M_land_based_job
-;; bne @pm                 ; branch always (since message is not in zero page)
-
+;; .import _guns
+;; .export _gun_or_guns
+;;_gun_or_guns:
+;; lda _guns+1
+;; bne @s
+;; lda _guns
+;; cmp #1
+;; bne @s
+;; lda #' '
+;; .byte $2c
+;;@s:
+;; lda #'s'
+;; jmp _cputc
 
  .rodata
 orders_tbl: .byte "frt"
-- 
cgit v1.2.3