luxferre/esop
1
0
Fork 0
Code Actions Activity

Decimal short output successful

Browse Source
This commit is contained in:
Luxferre
2022-08-03 21:51:07 +03:00
parent 948b81084a
commit 6fedde4634
2 changed files with 108 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tal-lib/moveme.tal
+21 -2
View File
@@ -8,13 +8,30 @@
BRK
@on-frame
( drawing static strings should always end with POP2 )
#00 #04 ;longtxt ;draw-long-str JSR2 POP2
DATETIME-COMPAT ( get datetime info into #00c0 )
#10 #12 ( year-x year-y -- )
#04 #12 ( 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
.DateTime/month LDZ
;print-dec2-byte JSR2
LIT '. ;putc JSR2
.DateTime/day LDZ
;print-dec2-byte JSR2
POP2 ( mv-x mv-y -- )
#04 #16 ( hms-x hms-y -- )
.DateTime/hour LDZ
;print-dec2-byte JSR2
LIT ': ;putc JSR2
.DateTime/minute LDZ
;print-dec2-byte JSR2
LIT ': ;putc JSR2
.DateTime/second LDZ
;print-dec2-byte JSR2
POP2 ( mv-x mv-y -- )
;moveme ;draw-str JSR2
( drawing static strings should always end with POP2 )
#02 #2b ;addr ;draw-str JSR2 POP2
SWP #20 SUB SWP ( restore x coord between frames )
;&adv KP-A JMPKEY
@@ -31,6 +48,8 @@ BRK
@addr "SR.HT/~LUXFERRE/ESOP 00
@longtxt "HELLO 20 "FROM 20 "ESOP, 20 "NEW 20 "PHONE 20 "RUNTIME 00
( include ESOP stdlib routines )
~esop-lib-subs.tal