esop

commit a626c70db7d637d106ef14f1fecd6cb5b830cde6
parent 6fedde4634251c86aae094943d75d8f5aa1a21ba
Author: Luxferre <lux@ferre>
Date:   Wed,  3 Aug 2022 22:05:36 +0300

Decimal short output successful

Diffstat:
M
tal-lib/moveme.tal
 | 
7
+++----

1 file changed, 3 insertions(+), 4 deletions(-)
diff --git 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