Datetime syscall fixed and compat macro introduced

tal-lib/esop-lib-subs.tal

@@ -75,6 +75,26 @@
   INC2 ,&loop JMP
   &eof POP2 JMP2r
 
+( convert true hex short value to BCD - up to 9999 represented by #270f coded into #9999 )
+
+( convert BCD to hex value )
+
+( output decimal short )
+@print-dec ( x y value* -- x y )
+  STH2 ( value* -- )
+	#00 ,&zero STR
+	#2710 ,&parse JSR
+	#03e8 ,&parse JSR
+	#0064 ,&parse JSR
+	#000a ,&parse JSR
+	,&emit JSR POP
+	STH2r
+JMP2r
+	&parse DIV2k DUP ,&emit JSR MUL2 SUB2 JMP2r
+	&emit 
+		DUP [ LIT &zero $1 ] #0000 EQU2 ,&skip JCN
+		#01 ,&zero STR DUP #30 ADD STH2r ROT ;putc STH2 JSR2 &skip POP JMP2r
+
 ( nanofont glyphs for ESOP, courtesy of Michaelangel007 )
 
 @nanofont