(m291) Trim timestamp
This commit is contained in:
parent
64f89011fd
commit
58e894b73a
|
@ -587,9 +587,10 @@
|
||||||
( >> )
|
( >> )
|
||||||
|
|
||||||
@<draw-time> ( time* -- )
|
@<draw-time> ( time* -- )
|
||||||
|
DUP2 #0e10 LTH2 ?{
|
||||||
( x0:00:00 ) DUP2 #8ca0 DIV2 NIP #06 DIVk MUL SUB <draw-dec>
|
( x0:00:00 ) DUP2 #8ca0 DIV2 NIP #06 DIVk MUL SUB <draw-dec>
|
||||||
( 0x:00:00 ) DUP2 #0e10 DIV2 NIP <draw-dec>
|
( 0x:00:00 ) DUP2 #0e10 DIV2 NIP <draw-dec>
|
||||||
[ LIT ": ] <draw-glyph>
|
[ LIT ": ] <draw-glyph> }
|
||||||
( 00:x0:00 ) DUP2 #0258 DIV2 NIP #06 DIVk MUL SUB <draw-dec>
|
( 00:x0:00 ) DUP2 #0258 DIV2 NIP #06 DIVk MUL SUB <draw-dec>
|
||||||
( 00:0x:00 ) DUP2 #003c DIV2 NIP <draw-dec>
|
( 00:0x:00 ) DUP2 #003c DIV2 NIP <draw-dec>
|
||||||
[ LIT ": ] <draw-glyph>
|
[ LIT ": ] <draw-glyph>
|
||||||
|
|
Loading…
Reference in New Issue