(m291) Trim timestamp
This commit is contained in:
parent
64f89011fd
commit
58e894b73a
|
@ -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>
|
||||
|
|
Loading…
Reference in New Issue