uxn/projects/examples/devices/datetime.tal

( Dev/Time )

%2// { #01 SFT2 }
%4// { #02 SFT2 }
%2** { #10 SFT2 }

%RTN     { JMP2r }
%MOD     { DUP2 DIV MUL SUB }
%ABS2    { DUP2 #0f SFT2 EQU #04 JCN #ffff MUL2 }
%SCALEX  { 2// .Screen/width DEI2 2// ADD2 #0040 SUB2 }
%SCALEY  { 2// .Screen/height DEI2 2// ADD2 #0040 SUB2 }
%12HOURS { DUP #0c GTH #0c MUL SUB }
%LTS2    { #8000 ADD2 SWP2 #8000 ADD2 GTH2 }
%GTS2    { #8000 ADD2 SWP2 #8000 ADD2 LTH2 }

( devices )

|00 @System     [ &vector $2 &pad      $6 &r      $2 &g     $2 &b      $2 ]
|20 @Screen     [ &vector $2 &width    $2 &height $2 &pad   $2 &x      $2 &y      $2 &addr $2 &color $1 ]
|b0 @DateTime   [ &year   $2 &month    $1 &day    $1 &hour  $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1 ]

( variables )

|0000

@color   $1
@current $1
@needles [ &hx $2 &hy $2 &mx $2 &my $2 &sx $2 &sy $2 ]
@line    [ &x0 $2 &y0 $2 &x $2 &y $2 &sx $2 &sy $2 &dx $2 &dy $2 &e1 $2 &e2 $2 ]

( program )

|0100 ( -> )
	
	( theme ) 
	#0ff8 .System/r DEO2 
	#0f08 .System/g DEO2 
	#0f08 .System/b DEO2

	( vectors ) 
	;on-frame .Screen/vector DEO2

BRK

@on-frame ( -> )

	( only draw once per second )
	( skip ) .DateTime/second DEI .current LDZ NEQ #01 JCN [ BRK ]

	.DateTime/second DEI .current STZ

	( clear )
	#0080 SCALEX #0080 SCALEY .needles/sx LDZ2 .needles/sy LDZ2 #00 ;draw-line JSR2
	#0080 SCALEX #0080 SCALEY .needles/mx LDZ2 .needles/my LDZ2 #00 ;draw-line JSR2
	#0080 SCALEX #0080 SCALEY .needles/hx LDZ2 .needles/hy LDZ2 #00 ;draw-line JSR2

	( place )
	#00 .DateTime/second DEI 2** ;table ADD2 LDA2
		#00 SWP SCALEY .needles/sy STZ2
		#00 SWP SCALEX .needles/sx STZ2
	#00 .DateTime/minute DEI 2** ;table ADD2 LDA2
		#00 SWP 4// #0003 MUL2 #0020 ADD2 SCALEY .needles/my STZ2
		#00 SWP 4// #0003 MUL2 #0020 ADD2 SCALEX .needles/mx STZ2
	#00 .DateTime/hour DEI 12HOURS #05 MUL 2** ;table ADD2 LDA2
		#00 SWP 2// #0040 ADD2 SCALEY .needles/hy STZ2
		#00 SWP 2// #0040 ADD2 SCALEX .needles/hx STZ2

	( needles )
	#0080 SCALEX #0080 SCALEY .needles/sx LDZ2 .needles/sy LDZ2 #02 ;draw-line JSR2
	#0080 SCALEX #0080 SCALEY .needles/mx LDZ2 .needles/my LDZ2 #01 ;draw-line JSR2
	#0080 SCALEX #0080 SCALEY .needles/hx LDZ2 .needles/hy LDZ2 #03 ;draw-line JSR2

	( circle )
	#00 #3c
	&loop
		( load ) OVR #00 SWP 2** ;table ADD2 LDA2
		#00 SWP SCALEY .Screen/y DEO2
		#00 SWP SCALEX .Screen/x DEO2
		OVR #0f MOD #00 EQU #01 ADD .Screen/color DEO
		( incr ) SWP #01 ADD SWP
		LTHk ,&loop JCN
	POP2

	;draw-display JSR2

BRK

@draw-display ( -- )

	.Screen/height DEI2 2// #0048 ADD2 .Screen/y DEO2
	.Screen/width DEI2 2//
	DUP2 #0020 SUB2 .Screen/x DEO2
		;font-hex #00 .DateTime/hour DEI #0a DIV #08 MUL ADD2 .Screen/addr DEO2
		#22 .Screen/color DEO
	DUP2 #0018 SUB2 .Screen/x DEO2
		;font-hex #00 .DateTime/hour DEI #0a MOD #08 MUL ADD2 .Screen/addr DEO2
		#22 .Screen/color DEO
	DUP2 #0008 SUB2 .Screen/x DEO2
		;font-hex #00 .DateTime/minute DEI #0a DIV #08 MUL ADD2 .Screen/addr DEO2
		#22 .Screen/color DEO
	DUP2 .Screen/x DEO2
		;font-hex #00 .DateTime/minute DEI #0a MOD #08 MUL ADD2 .Screen/addr DEO2
		#22 .Screen/color DEO
	DUP2 #0010 ADD2 .Screen/x DEO2
		;font-hex #00 .DateTime/second DEI #0a DIV #08 MUL ADD2 .Screen/addr DEO2
		#22 .Screen/color DEO
	DUP2 #0018 ADD2 .Screen/x DEO2
		;font-hex #00 .DateTime/second DEI #0a MOD #08 MUL ADD2 .Screen/addr DEO2
		#22 .Screen/color DEO
	POP2

RTN

@draw-line ( x1 y1 x2 y2 color -- )
	
	( load ) .color STZ .line/y0 STZ2 .line/x0 STZ2 .line/y STZ2 .line/x STZ2
	.line/x0 LDZ2 .line/x LDZ2 SUB2 ABS2 .line/dx STZ2
	.line/y0 LDZ2 .line/y LDZ2 SUB2 ABS2 #0000 SWP2 SUB2 .line/dy STZ2
	#ffff #00 .line/x LDZ2 .line/x0 LDZ2 LTS2 2** ADD2 .line/sx STZ2
	#ffff #00 .line/y LDZ2 .line/y0 LDZ2 LTS2 2** ADD2 .line/sy STZ2
	.line/dx LDZ2 .line/dy LDZ2 ADD2 .line/e1 STZ2
	&loop
		.line/x LDZ2 .Screen/x DEO2 
		.line/y LDZ2 .Screen/y DEO2 
		.color LDZ .Screen/color DEO
		[ .line/x LDZ2 .line/x0 LDZ2 EQU2 ] 
		[ .line/y LDZ2 .line/y0 LDZ2 EQU2 ] #0101 EQU2 ,&end JCN
		.line/e1 LDZ2 2** .line/e2 STZ2
		.line/e2 LDZ2 .line/dy LDZ2 LTS2 ,&skipy JCN
			.line/e1 LDZ2 .line/dy LDZ2 ADD2 .line/e1 STZ2
			.line/x LDZ2 .line/sx LDZ2 ADD2 .line/x STZ2
		&skipy
		.line/e2 LDZ2 .line/dx LDZ2 GTS2 ,&skipx JCN
			.line/e1 LDZ2 .line/dx LDZ2 ADD2 .line/e1 STZ2
			.line/y LDZ2 .line/sy LDZ2 ADD2 .line/y STZ2
		&skipx
		;&loop JMP2
	&end

RTN

@table ( 60 positions on a circle in bytes )
	8000 8d00 9a02 a706 b40b c011 cb18 d520
	df2a e734 ee40 f44b f958 fd65 ff72 ff80
	ff8d fd9a f9a7 f4b4 eec0 e7cb dfd5 d5df
	cbe7 c0ee b4f4 a7f9 9afd 8dff 80ff 72ff
	65fd 58f9 4bf4 40ee 34e7 2adf 20d5 18cb
	11c0 0bb4 06a7 029a 008d 0080 0072 0265
	0658 0b4b 113f 1834 202a 2a20 3418 3f11
	4b0b 5806 6502 7200

@font-hex ( 0-F )
	007c 8282 8282 827c 0030 1010 1010 1010
	007c 8202 7c80 80fe 007c 8202 1c02 827c
	000c 1424 4484 fe04 00fe 8080 7c02 827c
	007c 8280 fc82 827c 007c 8202 1e02 0202
	007c 8282 7c82 827c 007c 8282 7e02 827c
	007c 8202 7e82 827e 00fc 8282 fc82 82fc
	007c 8280 8080 827c 00fc 8282 8282 82fc
	007c 8280 f080 827c 007c 8280 f080 8080
Cleanup 2021-04-02 04:53:41 +00:00			`( Dev/Time )`

Optimised DIV2 by powers of 2 to SFT2 2021-05-24 21:36:15 +00:00			`%2// { #01 SFT2 }`
			`%4// { #02 SFT2 }`
Optimised MUL2 by powers of 2 to SFT2 2021-05-24 21:52:11 +00:00			`%2** { #10 SFT2 }`
Optimised DIV2 by powers of 2 to SFT2 2021-05-24 21:36:15 +00:00
Sorted examples in devices/ and gui/ 2021-04-23 15:58:58 +00:00			`%RTN { JMP2r }`
			`%MOD { DUP2 DIV MUL SUB }`
Updated SFT2 to take byte for shift amount 2021-05-23 15:27:15 +00:00			`%ABS2 { DUP2 #0f SFT2 EQU #04 JCN #ffff MUL2 }`
Optimised DIV2 by powers of 2 to SFT2 2021-05-24 21:36:15 +00:00			`%SCALEX { 2// .Screen/width DEI2 2// ADD2 #0040 SUB2 }`
			`%SCALEY { 2// .Screen/height DEI2 2// ADD2 #0040 SUB2 }`
Fixed redraw and 12 hours format with clock 2021-04-02 00:21:13 +00:00			`%12HOURS { DUP #0c GTH #0c MUL SUB }`
Removed LTS/GTS opcodes 2021-05-01 16:59:57 +00:00			`%LTS2 { #8000 ADD2 SWP2 #8000 ADD2 GTH2 }`
			`%GTS2 { #8000 ADD2 SWP2 #8000 ADD2 LTH2 }`
Added visuals to the datetime device example 2021-04-01 18:46:41 +00:00
Added time device and example. 2021-03-26 21:01:51 +00:00			`( devices )`

Sorted examples in devices/ and gui/ 2021-04-23 15:58:58 +00:00			`\|00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ]`
			`\|20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &color $1 ]`
Made room for multiple audio devices 2021-04-26 17:52:46 +00:00			`\|b0 @DateTime [ &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1 ]`
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 14:34:03 +00:00
			`( variables )`

			`\|0000`

Sorted examples in devices/ and gui/ 2021-04-23 15:58:58 +00:00			`@color $1`
			`@current $1`
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 14:34:03 +00:00			`@needles [ &hx $2 &hy $2 &mx $2 &my $2 &sx $2 &sy $2 ]`
Sorted examples in devices/ and gui/ 2021-04-23 15:58:58 +00:00			`@line [ &x0 $2 &y0 $2 &x $2 &y $2 &sx $2 &sy $2 &dx $2 &dy $2 &e1 $2 &e2 $2 ]`
Cleanup 2021-04-02 04:53:41 +00:00
Added time device and example. 2021-03-26 21:01:51 +00:00			`( program )`

Cleaned a few examples 2021-04-29 04:00:39 +00:00			`\|0100 ( -> )`
Added visuals to the datetime device example 2021-04-01 18:46:41 +00:00
Sorted examples in devices/ and gui/ 2021-04-23 15:58:58 +00:00			`( theme )`
			`#0ff8 .System/r DEO2`
			`#0f08 .System/g DEO2`
			`#0f08 .System/b DEO2`
Cleaned a few examples 2021-04-29 04:00:39 +00:00
Sorted examples in devices/ and gui/ 2021-04-23 15:58:58 +00:00			`( vectors )`
			`;on-frame .Screen/vector DEO2`
Added visuals to the datetime device example 2021-04-01 18:46:41 +00:00
			`BRK`
Added time device and example. 2021-03-26 21:01:51 +00:00
Cleaned a few examples 2021-04-29 04:00:39 +00:00			`@on-frame ( -> )`
Cleanup 2021-04-02 04:53:41 +00:00
			`( only draw once per second )`
Renamed PEK/POK to LDZ/STZ 2021-05-11 18:14:52 +00:00			`( skip ) .DateTime/second DEI .current LDZ NEQ #01 JCN [ BRK ]`
Cleaned a few examples 2021-04-29 04:00:39 +00:00
Renamed PEK/POK to LDZ/STZ 2021-05-11 18:14:52 +00:00			`.DateTime/second DEI .current STZ`
Added time device and example. 2021-03-26 21:01:51 +00:00
Added visuals to the datetime device example 2021-04-01 18:46:41 +00:00			`( clear )`
Renamed PEK/POK to LDZ/STZ 2021-05-11 18:14:52 +00:00			`#0080 SCALEX #0080 SCALEY .needles/sx LDZ2 .needles/sy LDZ2 #00 ;draw-line JSR2`
			`#0080 SCALEX #0080 SCALEY .needles/mx LDZ2 .needles/my LDZ2 #00 ;draw-line JSR2`
			`#0080 SCALEX #0080 SCALEY .needles/hx LDZ2 .needles/hy LDZ2 #00 ;draw-line JSR2`
Added visuals to the datetime device example 2021-04-01 18:46:41 +00:00
			`( place )`
Optimised MUL2 by powers of 2 to SFT2 2021-05-24 21:52:11 +00:00			`#00 .DateTime/second DEI 2** ;table ADD2 LDA2`
Renamed PEK/POK to LDZ/STZ 2021-05-11 18:14:52 +00:00			`#00 SWP SCALEY .needles/sy STZ2`
			`#00 SWP SCALEX .needles/sx STZ2`
Optimised MUL2 by powers of 2 to SFT2 2021-05-24 21:52:11 +00:00			`#00 .DateTime/minute DEI 2** ;table ADD2 LDA2`
Optimised DIV2 by powers of 2 to SFT2 2021-05-24 21:36:15 +00:00			`#00 SWP 4// #0003 MUL2 #0020 ADD2 SCALEY .needles/my STZ2`
			`#00 SWP 4// #0003 MUL2 #0020 ADD2 SCALEX .needles/mx STZ2`
Optimised MUL2 by powers of 2 to SFT2 2021-05-24 21:52:11 +00:00			`#00 .DateTime/hour DEI 12HOURS #05 MUL 2** ;table ADD2 LDA2`
Optimised DIV2 by powers of 2 to SFT2 2021-05-24 21:36:15 +00:00			`#00 SWP 2// #0040 ADD2 SCALEY .needles/hy STZ2`
			`#00 SWP 2// #0040 ADD2 SCALEX .needles/hx STZ2`
Added visuals to the datetime device example 2021-04-01 18:46:41 +00:00
Cleanup 2021-04-02 04:53:41 +00:00			`( needles )`
Renamed PEK/POK to LDZ/STZ 2021-05-11 18:14:52 +00:00			`#0080 SCALEX #0080 SCALEY .needles/sx LDZ2 .needles/sy LDZ2 #02 ;draw-line JSR2`
			`#0080 SCALEX #0080 SCALEY .needles/mx LDZ2 .needles/my LDZ2 #01 ;draw-line JSR2`
			`#0080 SCALEX #0080 SCALEY .needles/hx LDZ2 .needles/hy LDZ2 #03 ;draw-line JSR2`
Added visuals to the datetime device example 2021-04-01 18:46:41 +00:00
Cleanup 2021-04-02 04:53:41 +00:00			`( circle )`
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 14:34:03 +00:00			`#00 #3c`
			`&loop`
Optimised MUL2 by powers of 2 to SFT2 2021-05-24 21:52:11 +00:00			`( load ) OVR #00 SWP 2** ;table ADD2 LDA2`
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 14:34:03 +00:00			`#00 SWP SCALEY .Screen/y DEO2`
			`#00 SWP SCALEX .Screen/x DEO2`
			`OVR #0f MOD #00 EQU #01 ADD .Screen/color DEO`
Added visuals to the datetime device example 2021-04-01 18:46:41 +00:00			`( incr ) SWP #01 ADD SWP`
Cleaned example files 2021-05-13 01:28:45 +00:00			`LTHk ,&loop JCN`
Added visuals to the datetime device example 2021-04-01 18:46:41 +00:00			`POP2`

Sorted examples in devices/ and gui/ 2021-04-23 15:58:58 +00:00			`;draw-display JSR2`

			`BRK`

			`@draw-display ( -- )`

Optimised DIV2 by powers of 2 to SFT2 2021-05-24 21:36:15 +00:00			`.Screen/height DEI2 2// #0048 ADD2 .Screen/y DEO2`
			`.Screen/width DEI2 2//`
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 14:34:03 +00:00			`DUP2 #0020 SUB2 .Screen/x DEO2`
Cleaned example files 2021-05-13 01:28:45 +00:00			`;font-hex #00 .DateTime/hour DEI #0a DIV #08 MUL ADD2 .Screen/addr DEO2`
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 14:34:03 +00:00			`#22 .Screen/color DEO`
			`DUP2 #0018 SUB2 .Screen/x DEO2`
Cleaned example files 2021-05-13 01:28:45 +00:00			`;font-hex #00 .DateTime/hour DEI #0a MOD #08 MUL ADD2 .Screen/addr DEO2`
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 14:34:03 +00:00			`#22 .Screen/color DEO`
			`DUP2 #0008 SUB2 .Screen/x DEO2`
Cleaned example files 2021-05-13 01:28:45 +00:00			`;font-hex #00 .DateTime/minute DEI #0a DIV #08 MUL ADD2 .Screen/addr DEO2`
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 14:34:03 +00:00			`#22 .Screen/color DEO`
			`DUP2 .Screen/x DEO2`
Cleaned example files 2021-05-13 01:28:45 +00:00			`;font-hex #00 .DateTime/minute DEI #0a MOD #08 MUL ADD2 .Screen/addr DEO2`
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 14:34:03 +00:00			`#22 .Screen/color DEO`
			`DUP2 #0010 ADD2 .Screen/x DEO2`
Cleaned example files 2021-05-13 01:28:45 +00:00			`;font-hex #00 .DateTime/second DEI #0a DIV #08 MUL ADD2 .Screen/addr DEO2`
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 14:34:03 +00:00			`#22 .Screen/color DEO`
			`DUP2 #0018 ADD2 .Screen/x DEO2`
Cleaned example files 2021-05-13 01:28:45 +00:00			`;font-hex #00 .DateTime/second DEI #0a MOD #08 MUL ADD2 .Screen/addr DEO2`
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 14:34:03 +00:00			`#22 .Screen/color DEO`
Cleanup 2021-04-02 04:53:41 +00:00			`POP2`

Sorted examples in devices/ and gui/ 2021-04-23 15:58:58 +00:00			`RTN`
Added visuals to the datetime device example 2021-04-01 18:46:41 +00:00
			`@draw-line ( x1 y1 x2 y2 color -- )`

Renamed PEK/POK to LDZ/STZ 2021-05-11 18:14:52 +00:00			`( load ) .color STZ .line/y0 STZ2 .line/x0 STZ2 .line/y STZ2 .line/x STZ2`
			`.line/x0 LDZ2 .line/x LDZ2 SUB2 ABS2 .line/dx STZ2`
			`.line/y0 LDZ2 .line/y LDZ2 SUB2 ABS2 #0000 SWP2 SUB2 .line/dy STZ2`
Optimised MUL2 by powers of 2 to SFT2 2021-05-24 21:52:11 +00:00			`#ffff #00 .line/x LDZ2 .line/x0 LDZ2 LTS2 2** ADD2 .line/sx STZ2`
			`#ffff #00 .line/y LDZ2 .line/y0 LDZ2 LTS2 2** ADD2 .line/sy STZ2`
Renamed PEK/POK to LDZ/STZ 2021-05-11 18:14:52 +00:00			`.line/dx LDZ2 .line/dy LDZ2 ADD2 .line/e1 STZ2`
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 14:34:03 +00:00			`&loop`
Renamed PEK/POK to LDZ/STZ 2021-05-11 18:14:52 +00:00			`.line/x LDZ2 .Screen/x DEO2`
			`.line/y LDZ2 .Screen/y DEO2`
			`.color LDZ .Screen/color DEO`
			`[ .line/x LDZ2 .line/x0 LDZ2 EQU2 ]`
			`[ .line/y LDZ2 .line/y0 LDZ2 EQU2 ] #0101 EQU2 ,&end JCN`
Optimised MUL2 by powers of 2 to SFT2 2021-05-24 21:52:11 +00:00			`.line/e1 LDZ2 2** .line/e2 STZ2`
Renamed PEK/POK to LDZ/STZ 2021-05-11 18:14:52 +00:00			`.line/e2 LDZ2 .line/dy LDZ2 LTS2 ,&skipy JCN`
			`.line/e1 LDZ2 .line/dy LDZ2 ADD2 .line/e1 STZ2`
			`.line/x LDZ2 .line/sx LDZ2 ADD2 .line/x STZ2`
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 14:34:03 +00:00			`&skipy`
Renamed PEK/POK to LDZ/STZ 2021-05-11 18:14:52 +00:00			`.line/e2 LDZ2 .line/dx LDZ2 GTS2 ,&skipx JCN`
			`.line/e1 LDZ2 .line/dx LDZ2 ADD2 .line/e1 STZ2`
			`.line/y LDZ2 .line/sy LDZ2 ADD2 .line/y STZ2`
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 14:34:03 +00:00			`&skipx`
			`;&loop JMP2`
			`&end`
Added visuals to the datetime device example 2021-04-01 18:46:41 +00:00
			`RTN`

			`@table ( 60 positions on a circle in bytes )`
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 14:34:03 +00:00			`8000 8d00 9a02 a706 b40b c011 cb18 d520`
			`df2a e734 ee40 f44b f958 fd65 ff72 ff80`
			`ff8d fd9a f9a7 f4b4 eec0 e7cb dfd5 d5df`
			`cbe7 c0ee b4f4 a7f9 9afd 8dff 80ff 72ff`
			`65fd 58f9 4bf4 40ee 34e7 2adf 20d5 18cb`
			`11c0 0bb4 06a7 029a 008d 0080 0072 0265`
			`0658 0b4b 113f 1834 202a 2a20 3418 3f11`
Improved clock 2021-04-02 04:44:23 +00:00			`4b0b 5806 6502 7200`
Added time device and example. 2021-03-26 21:01:51 +00:00
Cleaned example files 2021-05-13 01:28:45 +00:00			`@font-hex ( 0-F )`
Added visuals to the datetime device example 2021-04-01 18:46:41 +00:00			`007c 8282 8282 827c 0030 1010 1010 1010`
			`007c 8202 7c80 80fe 007c 8202 1c02 827c`
			`000c 1424 4484 fe04 00fe 8080 7c02 827c`
			`007c 8280 fc82 827c 007c 8202 1e02 0202`
			`007c 8282 7c82 827c 007c 8282 7e02 827c`
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 14:34:03 +00:00			`007c 8202 7e82 827e 00fc 8282 fc82 82fc`
			`007c 8280 8080 827c 00fc 8282 8282 82fc`
Added visuals to the datetime device example 2021-04-01 18:46:41 +00:00			`007c 8280 f080 827c 007c 8280 f080 8080`