(m291) Trim timestamp

This commit is contained in:
Devine Lu Linvega 2024-08-27 09:12:45 -07:00
parent 64f89011fd
commit 58e894b73a
1 changed files with 4 additions and 3 deletions

View File

@ -587,9 +587,10 @@
( >> )
@<draw-time> ( time* -- )
( x0:00:00 ) DUP2 #8ca0 DIV2 NIP #06 DIVk MUL SUB <draw-dec>
( 0x:00:00 ) DUP2 #0e10 DIV2 NIP <draw-dec>
[ LIT ": ] <draw-glyph>
DUP2 #0e10 LTH2 ?{
( x0:00:00 ) DUP2 #8ca0 DIV2 NIP #06 DIVk MUL SUB <draw-dec>
( 0x:00:00 ) DUP2 #0e10 DIV2 NIP <draw-dec>
[ LIT ": ] <draw-glyph> }
( 00:x0:00 ) DUP2 #0258 DIV2 NIP #06 DIVk MUL SUB <draw-dec>
( 00:0x:00 ) DUP2 #003c DIV2 NIP <draw-dec>
[ LIT ": ] <draw-glyph>