From ca3c75a316e152dca0dcbac1f0adbd7789d09489 Mon Sep 17 00:00:00 2001
From: "B. Watson" <yalhcru@gmail.com>
Date: Thu, 15 Apr 2021 13:02:39 -0400
Subject: Save 20 bytes

---
 console.s | 27 ++++++++-------------------
 1 file changed, 8 insertions(+), 19 deletions(-)

(limited to 'console.s')

diff --git a/console.s b/console.s
index 875dcf3..3cee1b5 100644
--- a/console.s
+++ b/console.s
@@ -2,7 +2,7 @@
 
  .include "atari.inc"
  .include "conio/mul40.s"
- .export _clrtobot, _clrtoeol, _clr_screen, _clrtoline, _cspaces, _cblank, _cblankto, _backspace, _cprint_pipe, _cprint_bang, _cspace, _cputc_s, _comma_space, _cprint_colon_space, _cprint_question_space, _cprint_period, _cprint_taipan_prompt, _plus_or_space, _gotox0y22, _gotox0y3, _gotox0y, _gotox0y3_clrtoeol,_cputc0, _set_orders
+ .export _clrtobot, _clrtoeol, _clr_screen, _clrtoline, _cspaces, _cblank, _cblankto, _backspace, _cprint_pipe, _cprint_bang, _cspace, _cputc_s, _comma_space, _cprint_colon_space, _cprint_question_space, _cprint_period, _cprint_taipan_prompt, _plus_or_space, _gotox0y22, _gotox0y3, _gotox0y, _gotox0y3_clrtoeol,_cputc0, _set_orders, _pluralize
  .export _rvs_on, _rvs_off
 
  .importzp tmp3       ; ditto
@@ -254,24 +254,13 @@ _gotox0y3_clrtoeol:
  jsr _gotox0y3
  jmp _clrtoeol
 
-; extern void set_orders(void);
-;_set_orders:
-; jsr _timed_getch
-; ldx _orders
-; cmp #'f'
-; bne @notf
-; ldx #1
-;@notf:
-; cmp #'r'
-; bne @notr
-; ldx #2
-;@notr:
-; cmp #'t'
-; bne @nott
-; ldx #3
-;@nott:
-; stx _orders
-; rts
+; extern void __fastcall__ pluralize(int num);
+_pluralize:
+ cmp #1
+ bne _cputc_s
+ txa
+ bne _cputc_s
+ rts
 
 ; extern void set_orders(void);
 _set_orders:
-- 
cgit v1.2.3