prog8/examples/cx16/datetime.p8

; CommanderX16 text datetime example!

%import textio
%zeropage basicsafe

main {

    sub start() {

        cx16.clock_set_date_time(mkword(8, 2020 - 1900), mkword(19, 27), mkword(0, 16), 0)
        txt.lowercase()

        repeat {
            txt.chrout(19)      ; HOME
            txt.print("\n yyyy-mm-dd HH:MM:SS.jj\n\n")
            void cx16.clock_get_date_time()
            txt.chrout(' ')
            print_date()
            txt.chrout(' ')
            print_time()

            txt.chrout('\n')
            txt.chrout('\n')
            uword jiffies = c64.RDTIM16()
            txt.print_uw(jiffies)
	}
    }

    sub print_date() {
        txt.print_uw(1900 + lsb(cx16.r0))
        txt.chrout('-')
        if msb(cx16.r0) < 10
            txt.chrout('0')
        txt.print_ub(msb(cx16.r0))
        txt.chrout('-')
        if lsb(cx16.r1) < 10
            txt.chrout('0')
        txt.print_ub(lsb(cx16.r1))
    }

    sub print_time() {
        if msb(cx16.r1) < 10
           txt.chrout('0')
        txt.print_ub(msb(cx16.r1))
        txt.chrout(':')
        if lsb(cx16.r2) < 10
            txt.chrout('0')
        txt.print_ub(lsb(cx16.r2))
        txt.chrout(':')
        if msb(cx16.r2) < 10
            txt.chrout('0')
        txt.print_ub(msb(cx16.r2))
        txt.chrout('.')
        if lsb(cx16.r3) < 10
            txt.chrout('0')
        txt.print_ub(lsb(cx16.r3))
    }
}
floating point 1.0 no longer referenced from ROM because cx16 doesn't have it. Added some more cx16 examples. 2020-09-04 22:17:58 +00:00			`; CommanderX16 text datetime example!`
moved the type conversion routines to their own library file to avoid duplication 2020-08-26 18:52:38 +00:00
auto select correct library to import based on target, instead of having c64- and cx16- prefix variants some programs are now 100% source compatible between C64 and Cx16 targets! import libraries have been rena;med 2020-09-20 21:49:36 +00:00			`%import textio`
refactored and optimized load/store byte from pointervar 2020-08-24 22:18:33 +00:00			`%zeropage basicsafe`
cleaned up various ast checks/mutations 2020-03-24 18:37:54 +00:00
todo related to in-place assignment 2020-07-26 22:32:59 +00:00			`main {`
partly optimize assignments so that simple increments and decrements can be done via separate statements (postincrdecr) 2020-07-26 16:56:51 +00:00
fix float array assignment 2020-07-26 21:32:20 +00:00			`sub start() {`
subroutine parameters can be allocated on the zp now as well 2020-08-25 14:36:31 +00:00
adding CommanderX16 virtual registers language support, rewrite cx16 examples 2020-12-21 19:38:00 +00:00			`cx16.clock_set_date_time(mkword(8, 2020 - 1900), mkword(19, 27), mkword(0, 16), 0)`
tweaks to c64 txtio. Fixed expression evaluation of bitwise invert. 2020-09-19 20:37:24 +00:00			`txt.lowercase()`
subroutine parameters can be allocated on the zp now as well 2020-08-25 14:36:31 +00:00
commander x16 improvements 2020-08-26 17:34:12 +00:00			`repeat {`
moved cx16 imageviewer into its own git repo. Version 6.0. 2021-01-23 22:31:50 +00:00			`txt.chrout(19) ; HOME`
fix example 2020-08-27 16:21:12 +00:00			`txt.print("\n yyyy-mm-dd HH:MM:SS.jj\n\n")`
optimize ubyte -> uword type casts more 2020-12-31 00:02:36 +00:00			`void cx16.clock_get_date_time()`
moved cx16 imageviewer into its own git repo. Version 6.0. 2021-01-23 22:31:50 +00:00			`txt.chrout(' ')`
commander x16 improvements 2020-08-26 17:34:12 +00:00			`print_date()`
moved cx16 imageviewer into its own git repo. Version 6.0. 2021-01-23 22:31:50 +00:00			`txt.chrout(' ')`
commander x16 improvements 2020-08-26 17:34:12 +00:00			`print_time()`
moved cx16 imageviewer into its own git repo. Version 6.0. 2021-01-23 22:31:50 +00:00
			`txt.chrout('\n')`
			`txt.chrout('\n')`
			`uword jiffies = c64.RDTIM16()`
			`txt.print_uw(jiffies)`
			`}`
commander x16 improvements 2020-08-26 17:34:12 +00:00			`}`

			`sub print_date() {`
cleanup cx16 things and added call signatures. c64graphics moved into built-in libraries. 2020-08-28 19:42:53 +00:00			`txt.print_uw(1900 + lsb(cx16.r0))`
moved cx16 imageviewer into its own git repo. Version 6.0. 2021-01-23 22:31:50 +00:00			`txt.chrout('-')`
cleanup cx16 things and added call signatures. c64graphics moved into built-in libraries. 2020-08-28 19:42:53 +00:00			`if msb(cx16.r0) < 10`
moved cx16 imageviewer into its own git repo. Version 6.0. 2021-01-23 22:31:50 +00:00			`txt.chrout('0')`
cleanup cx16 things and added call signatures. c64graphics moved into built-in libraries. 2020-08-28 19:42:53 +00:00			`txt.print_ub(msb(cx16.r0))`
moved cx16 imageviewer into its own git repo. Version 6.0. 2021-01-23 22:31:50 +00:00			`txt.chrout('-')`
cleanup cx16 things and added call signatures. c64graphics moved into built-in libraries. 2020-08-28 19:42:53 +00:00			`if lsb(cx16.r1) < 10`
moved cx16 imageviewer into its own git repo. Version 6.0. 2021-01-23 22:31:50 +00:00			`txt.chrout('0')`
cleanup cx16 things and added call signatures. c64graphics moved into built-in libraries. 2020-08-28 19:42:53 +00:00			`txt.print_ub(lsb(cx16.r1))`
commander x16 improvements 2020-08-26 17:34:12 +00:00			`}`
added missing in-place bitwise operator code 2020-08-25 20:26:05 +00:00
commander x16 improvements 2020-08-26 17:34:12 +00:00			`sub print_time() {`
cleanup cx16 things and added call signatures. c64graphics moved into built-in libraries. 2020-08-28 19:42:53 +00:00			`if msb(cx16.r1) < 10`
moved cx16 imageviewer into its own git repo. Version 6.0. 2021-01-23 22:31:50 +00:00			`txt.chrout('0')`
cleanup cx16 things and added call signatures. c64graphics moved into built-in libraries. 2020-08-28 19:42:53 +00:00			`txt.print_ub(msb(cx16.r1))`
moved cx16 imageviewer into its own git repo. Version 6.0. 2021-01-23 22:31:50 +00:00			`txt.chrout(':')`
cleanup cx16 things and added call signatures. c64graphics moved into built-in libraries. 2020-08-28 19:42:53 +00:00			`if lsb(cx16.r2) < 10`
moved cx16 imageviewer into its own git repo. Version 6.0. 2021-01-23 22:31:50 +00:00			`txt.chrout('0')`
cleanup cx16 things and added call signatures. c64graphics moved into built-in libraries. 2020-08-28 19:42:53 +00:00			`txt.print_ub(lsb(cx16.r2))`
moved cx16 imageviewer into its own git repo. Version 6.0. 2021-01-23 22:31:50 +00:00			`txt.chrout(':')`
cleanup cx16 things and added call signatures. c64graphics moved into built-in libraries. 2020-08-28 19:42:53 +00:00			`if msb(cx16.r2) < 10`
moved cx16 imageviewer into its own git repo. Version 6.0. 2021-01-23 22:31:50 +00:00			`txt.chrout('0')`
cleanup cx16 things and added call signatures. c64graphics moved into built-in libraries. 2020-08-28 19:42:53 +00:00			`txt.print_ub(msb(cx16.r2))`
moved cx16 imageviewer into its own git repo. Version 6.0. 2021-01-23 22:31:50 +00:00			`txt.chrout('.')`
cleanup cx16 things and added call signatures. c64graphics moved into built-in libraries. 2020-08-28 19:42:53 +00:00			`if lsb(cx16.r3) < 10`
moved cx16 imageviewer into its own git repo. Version 6.0. 2021-01-23 22:31:50 +00:00			`txt.chrout('0')`
cleanup cx16 things and added call signatures. c64graphics moved into built-in libraries. 2020-08-28 19:42:53 +00:00			`txt.print_ub(lsb(cx16.r3))`
move 2020-08-23 22:26:26 +00:00			`}`
reverted subroutine inlining, it was a mistake 2020-07-03 23:02:36 +00:00			`}`
cleanup 2020-08-24 21:18:46 +00:00