luxferre/esop
1
0
Fork 0
Code Actions Activity

Decimal short output successful

Browse Source
This commit is contained in:
Luxferre
2022-08-03 22:05:36 +03:00
parent 6fedde4634
commit a626c70db7
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tal-lib/moveme.tal
+3 -4
View File
@@ -9,9 +9,9 @@ BRK
@on-frame @on-frame
( drawing static strings should always end with POP2 ) ( 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 ) 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* -- ) .DateTime/year LDZ2 ( year-x year-y year* -- )
;print-dec JSR2 ( mv-x mv-y year-x year-y -- ) ;print-dec JSR2 ( mv-x mv-y year-x year-y -- )
LIT '. ;putc JSR2 LIT '. ;putc JSR2
@@ -20,8 +20,7 @@ BRK
LIT '. ;putc JSR2 LIT '. ;putc JSR2
.DateTime/day LDZ .DateTime/day LDZ
;print-dec2-byte JSR2 ;print-dec2-byte JSR2
POP2 ( mv-x mv-y -- ) LIT 20 ;putc JSR2
#04 #16 ( hms-x hms-y -- )
.DateTime/hour LDZ .DateTime/hour LDZ
;print-dec2-byte JSR2 ;print-dec2-byte JSR2
LIT ': ;putc JSR2 LIT ': ;putc JSR2