From 7baae0bc3fbed380b73d0e6a2f9fc0dc9214948d Mon Sep 17 00:00:00 2001
From: Michaelangel007 <michaelangel007@sharedcraft.com>
Date: Wed, 5 Jul 2017 18:50:13 -0700
Subject: [PATCH] Merge Peter's optimization 119 bytes

---
 print_uint16   | Bin 131 -> 126 bytes
 print_uint16.s |  25 ++++++++++++-------------
 2 files changed, 12 insertions(+), 13 deletions(-)

diff --git a/print_uint16 b/print_uint16
index f0b38ca66213a069e302661d39c19f6419c112a6..aa8fd5b192c68bf142ebb22b090fb82a9de55512 100644
GIT binary patch
literal 126
zcmZ1}w8+GVoujXYqqml0B|~o!M{hAlZwbdDfggM|9D21J3;ymbWv?t{pIOR&;=-3x
z7hc|2z`V1FLm`@@L*RQ~5yy!$MI0a4cb0LS-0<NukWzU27bG;{OM-_&^$&$qjtouy
UlUx&+GTAaW%q`=1k-&fi00w3;mjD0&

literal 131
zcmZ1}w8+GVoujXjqqm7;B|~pMM{hYtZv{thCC4IxAAF4*dQBV){_d<|udHI9S;c<h
z!k1GQUfx*1ytAA`A)2E@;QNU)`5YhEcUE(p-0<NukWzU27bG;{OM-_N5GbT@WN7lA
Y<eI>g$(Ffc5yRYSj(7PS2@FU80RE^lh5!Hn

diff --git a/print_uint16.s b/print_uint16.s
index 5e35c71..aaa1953 100644
--- a/print_uint16.s
+++ b/print_uint16.s
@@ -1,4 +1,5 @@
-COUT = $FDED
+COUT    = $FDED
+SCRN2   = $F879
 
         ORG $800
 
@@ -12,11 +13,10 @@ COUT = $FDED
 ; Also see: Applesoft LINPRT @ ED24
 ; ======================================================================
 PrintUint16
-        STX _temp+0 
+        STX _temp+0
         STA _temp+1
 
         LDA #0
-        STA _len        ; output buffer len = num digits to print
         STA _bcd+0
         STA _bcd+1
         STA _bcd+2
@@ -38,7 +38,7 @@ _DoubleDabble           ;              Y=FD   Y=FE   Y=FF   Y=00
 
         DEX
         BNE _Dec2BCD
-        CLD
+        CLD             ; X=0 = output length
 
 DecWidth
         LDY #3          ; intentional buffer overflow - 8 digit output for special case of $0000
@@ -48,6 +48,8 @@ BCD2Chars
         DEY
         BPL BCD2Chars
 
+        STX _len        ; output buffer len = num digits to print
+
 SkipLeadZero
         INY
         CPY _len
@@ -58,7 +60,7 @@ SkipLeadZero
 
 OutDigits
         LDA _output,Y   ; always print digit in "ones" place
-        JSR COUT       
+        JSR COUT
         INY
         CPY _len
         BCC OutDigits
@@ -70,27 +72,24 @@ _PrintDone
 ; @return: A will be bottom nibble in ASCII
 HexA
         PHA
-        LSR
-        LSR
-        LSR
-        LSR
+        JSR SCRN2+2     ; LSR x4 == 0>> 4
         JSR _HexNib
         PLA
+        AND #$F
 _HexNib
-        AND #$F              ; Can NOT't Use ROM Entry Point SCRN2+2 as the Laser 128 leaves off AND #$F !!
         CMP #$A         ; n < 10 ?
         BCC _Hex2Asc
         ADC #6          ; n += 6    $A -> +6 + (C=1) = $11
 _Hex2Asc
         ADC #'0' + $80  ; inverse=remove #$80
 PutChar
-        LDX #0          ; NOTE: length = PutChar+1
         STA _output,X
-        INC _len
+        INX             ; X = output string length
         RTS
 
+
 _bcd    ds  4   ; 6 chars for printing dec
-_len    = PutChar+1
+_len    = _bcd  ; alias
 _output ds  6   ; BCD -> 6 chars
 _temp   db  0,0