From a626c70db7d637d106ef14f1fecd6cb5b830cde6 Mon Sep 17 00:00:00 2001
From: Luxferre <lux@ferre>
Date: Wed, 3 Aug 2022 22:05:36 +0300
Subject: [PATCH] Decimal short output successful

---
 tal-lib/moveme.tal | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/tal-lib/moveme.tal b/tal-lib/moveme.tal
index 386aa74..69dd014 100644
--- a/tal-lib/moveme.tal
+++ b/tal-lib/moveme.tal
@@ -9,9 +9,9 @@ BRK
 
 @on-frame
   ( drawing static strings should always end with POP2 )
-  #00 #04 ;longtxt ;draw-long-str JSR2 POP2
+  #00 #0c ;longtxt ;draw-long-str JSR2 POP2
   DATETIME-COMPAT ( get datetime info into #00c0 )
-  #04 #12 ( year-x year-y -- )
+  #04 #04 ( year-x year-y -- )
   .DateTime/year LDZ2 ( year-x year-y year* -- )
   ;print-dec JSR2 ( mv-x mv-y year-x year-y -- )
   LIT '. ;putc JSR2
@@ -20,8 +20,7 @@ BRK
   LIT '. ;putc JSR2
   .DateTime/day LDZ
   ;print-dec2-byte JSR2
-  POP2 ( mv-x mv-y -- )
-  #04 #16 ( hms-x hms-y -- )
+  LIT 20 ;putc JSR2
   .DateTime/hour LDZ
   ;print-dec2-byte JSR2
   LIT ': ;putc JSR2