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