uxn/projects/examples/devices/datetime.tal

( Dev/Time )

%+  { ADD } %-   { SUB }  %*  { MUL } %/   { DIV }  
%<  { LTH } %>   { GTH }  %=  { EQU } %!   { NEQ } 
%++ { ADD2 } %-- { SUB2 } %** { MUL2 } %// { DIV2 } 
%<< { LTH2 } %>> { GTH2 } %== { EQU2 } %!! { NEQ2 } 

%8* { #30 SFT }
%10* { #40 SFT }
%2// { #01 SFT2 }
%4// { #02 SFT2 }
%2** { #10 SFT2 }

%DIAMETER  { #0080 }
%RADIUS    { DIAMETER 2// }

%TOS     { #00 SWP }
%RTN     { JMP2r }
%MOD     { DUP2 DIV MUL SUB }
%ABS2    { DUP2 #0f SFT2 EQU #05 JCN #0000 SWP2 -- }
%SCALEX  { 2// .center/x LDZ2 ++ RADIUS -- }
%SCALEY  { 2// .center/y LDZ2 ++ RADIUS -- }
%12HOURS { #0c MOD }
%LTS2    { #8000 ++ SWP2 #8000 ++ GTH2 }
%GTS2    { #8000 ++ SWP2 #8000 ++ LTH2 }

( devices )

|00 @System     [ &vector $2 &pad      $6 &r      $2 &g     $2 &b      $2 ]
|10 @Console    [ &vector $2 &read     $1 &pad    $5 &write $1 &error  $1 ]
|20 @Screen     [ &vector $2 &width    $2 &height $2 &auto  $1 &pad    $1 &x      $2 &y      $2 &addr $2 &pixel $1 &sprite $1 ]
|b0 @DateTime   [ &year   $2 &month    $1 &day    $1 &hour  $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1 ]

( variables )

|0000

@current $1
@center
	&x $2 &y $2
@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 &color $1

( program )

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

	( resize )
	#00f0 .Screen/width DEO2
	#0120 .Screen/height DEO2

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

	( center )
	.Screen/width DEI2 2// .center/x STZ2
	.Screen/height DEI2 2// .center/y STZ2

	( circle )
	#3c00 
	&loop
		( load ) DUP TOS 2** ;table ++ LDA2
		TOS #0010 ** #001c // .center/x LDZ2 ++ #0049 -- .Screen/x DEO2
		TOS #0010 ** #001c // .center/y LDZ2 ++ #0049 -- .Screen/y DEO2
		DUP #0f MOD #00 EQU INC .Screen/pixel DEO
		INC GTHk ,&loop JCN
	POP2

BRK

@on-frame ( -> )

	( only draw once per second )
	.DateTime/second DEI .current LDZ = ,&skip JCN
		( clear ) #00 ,draw-needles JSR
		( update ) ,update-needles JSR
		( draw ) #01 ,draw-needles JSR
		;draw-display JSR2
		&skip

	.DateTime/second DEI .current STZ

BRK

@draw-needles ( mul -- )

	STH
	.center/x LDZ2 .center/y LDZ2 .needles/sx LDZ2 .needles/sy LDZ2 #02 STHkr * ;draw-line JSR2
	.center/x LDZ2 .center/y LDZ2 .needles/mx LDZ2 .needles/my LDZ2 #01 STHkr * ;draw-line JSR2
	.center/x LDZ2 .center/y LDZ2 .needles/hx LDZ2 .needles/hy LDZ2 #01 STHr * ;draw-line JSR2

RTN

@update-needles ( -- )

	#00 .DateTime/second DEI 2** ;table ++ LDA2
		TOS SCALEY .needles/sy STZ2
		TOS SCALEX .needles/sx STZ2
	#00 .DateTime/minute DEI 2** ;table ++ LDA2
		TOS #0020 ** RADIUS ++ #0024 // SCALEY #0007 ++ .needles/my STZ2
		TOS #0020 ** RADIUS ++ #0024 // SCALEX #0007 ++ .needles/mx STZ2
	#00 .DateTime/hour DEI 12HOURS #20 SFTk NIP ADD 2** ;table ++ LDA2
		TOS 4// DUP2k ++ ++ #0020 ++ SCALEY .needles/hy STZ2
		TOS 4// DUP2k ++ ++ #0020 ++ SCALEX .needles/hx STZ2

RTN

@draw-display ( -- )

	( auto addr ) #04 .Screen/auto DEO
	( date )
	.center/y LDZ2 #0068 -- .Screen/y DEO2
	.center/x LDZ2 #0014 -- .Screen/x DEO2
	.DateTime/month DEI2 
		SWP INC ,&number JSR
		;font/slash ,&spacer JSR
		,&number JSR
	( time )
	.center/y LDZ2 #0060 ++ .Screen/y DEO2
	.center/x LDZ2 #0020 -- .Screen/x DEO2
	.DateTime/hour DEI2 
		SWP ,&number JSR
		;font/spacer ,&spacer JSR
		,&number JSR
		;font/spacer ,&spacer JSR
	.DateTime/second DEI 
		,&number JSR
	( auto none ) #00 .Screen/auto DEO


RTN
	&pady ( -- )
		.Screen/y DEI2 #0008 ++ .Screen/y DEO2 RTN
	&spacer ( char* -- )
		.Screen/addr DEO2
		#03 .Screen/sprite DEO
		,&pady JSR
		#03 .Screen/sprite DEO
		,&reset JSR
		RTN
	&number ( number -- )
		DUP #0a DIV [ 10* TOS ;font ++ ] .Screen/addr DEO2
			#03 .Screen/sprite DEO
			,&pady JSR
			#03 .Screen/sprite DEO
			,&reset JSR
			#0a MOD [ 10* TOS ;font ++ ] .Screen/addr DEO2
			#03 .Screen/sprite DEO
			,&pady JSR
			#03 .Screen/sprite DEO
	&reset
		.Screen/x DEI2 #0008 ++ .Screen/x DEO2
		.Screen/y DEI2 #0008 -- .Screen/y DEO2
	RTN

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

RTN

@table ( 60 positions on a circle )
	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
	0018 2442 4242 4242 4242 4242 4224 1800
	0008 1828 0808 0808 0808 0808 0808 1c00
	0018 2442 4202 0202 0408 1020 4040 7e00
	0018 2442 0202 0438 0402 0202 0204 7800
	000c 0c14 1414 2424 2444 447e 0404 0e00
	007e 4040 4040 5864 4202 0202 0204 7800
	000c 1020 4040 5864 4242 4242 4224 1800
	007e 4202 0204 0404 0808 0810 1010 1000
	0018 2442 4242 2418 2442 4242 4224 1800
	0018 2442 4242 4242 261a 0202 0408 3000
	&spacer
	0000 0000 0010 1000 0000 0000 1010 0000
	&slash
	0202 0404 0808 1010 2020 4040 8080 0000
Cleanup 2021-04-02 04:53:41 +00:00			`( Dev/Time )`

(clock.tal) Minor optimizations 2021-11-16 17:10:48 +00:00			`%+ { ADD } %- { SUB } %* { MUL } %/ { DIV }`
Added date to datetime example 2021-09-26 20:33:39 +00:00			`%< { LTH } %> { GTH } %= { EQU } %! { NEQ }`
(clock.tal) Minor optimizations 2021-11-16 17:10:48 +00:00			`%++ { ADD2 } %-- { SUB2 } %** { MUL2 } %// { DIV2 }`
Added date to datetime example 2021-09-26 20:33:39 +00:00			`%<< { LTH2 } %>> { GTH2 } %== { EQU2 } %!! { NEQ2 }`

			`%8* { #30 SFT }`
(clock.tal) Higher font for digits 2021-11-16 19:35:08 +00:00			`%10* { #40 SFT }`
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
Store center position in datetime.tal 2021-09-26 21:06:18 +00:00			`%DIAMETER { #0080 }`
			`%RADIUS { DIAMETER 2// }`

Added date to datetime example 2021-09-26 20:33:39 +00:00			`%TOS { #00 SWP }`
Sorted examples in devices/ and gui/ 2021-04-23 15:58:58 +00:00			`%RTN { JMP2r }`
			`%MOD { DUP2 DIV MUL SUB }`
Store center position in datetime.tal 2021-09-26 21:06:18 +00:00			`%ABS2 { DUP2 #0f SFT2 EQU #05 JCN #0000 SWP2 -- }`
(clock.tal) Minor optimizations 2021-11-16 17:10:48 +00:00			`%SCALEX { 2// .center/x LDZ2 ++ RADIUS -- }`
			`%SCALEY { 2// .center/y LDZ2 ++ RADIUS -- }`
(clock.tal) Fixed issue with hour needle 2021-11-16 18:00:51 +00:00			`%12HOURS { #0c MOD }`
Store center position in datetime.tal 2021-09-26 21:06:18 +00:00			`%LTS2 { #8000 ++ SWP2 #8000 ++ GTH2 }`
			`%GTS2 { #8000 ++ SWP2 #8000 ++ 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 ]`
Added date to datetime example 2021-09-26 20:33:39 +00:00			`\|10 @Console [ &vector $2 &read $1 &pad $5 &write $1 &error $1 ]`
			`\|20 @Screen [ &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $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			`@current $1`
Store center position in datetime.tal 2021-09-26 21:06:18 +00:00			`@center`
			`&x $2 &y $2`
(clock.tal) Minor optimizations 2021-11-16 17:10:48 +00:00			`@needles`
			`&hx $2 &hy $2 &mx $2 &my $2 &sx $2 &sy $2`
			`@line`
(clock.tal) Fixed issue with hour needle 2021-11-16 18:00:51 +00:00			`&x0 $2 &y0 $2 &x $2 &y $2 &sx $2 &sy $2 &dx $2 &dy $2 &e1 $2 &e2 $2 &color $1`
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 )`
(clock.tal) Minor optimizations 2021-11-16 17:10:48 +00:00			`#0ff8 .System/r DEO2`
			`#0f08 .System/g DEO2`
			`#0f08 .System/b DEO2`
Added date to datetime example 2021-09-26 20:33:39 +00:00
(clock.tal) Fixed issue with hour needle 2021-11-16 18:00:51 +00:00			`( resize )`
Added date to datetime example 2021-09-26 20:33:39 +00:00			`#00f0 .Screen/width DEO2`
(clock.tal) Minor optimizations 2021-11-16 17:10:48 +00:00			`#0120 .Screen/height 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
(clock.tal) Minor optimizations 2021-11-16 17:10:48 +00:00			`( center )`
			`.Screen/width DEI2 2// .center/x STZ2`
			`.Screen/height DEI2 2// .center/y STZ2`
Store center position in datetime.tal 2021-09-26 21:06:18 +00:00
(clock.tal) Fixed issue with hour needle 2021-11-16 18:00:51 +00:00			`( circle )`
			`#3c00`
			`&loop`
			`( load ) DUP TOS 2** ;table ++ LDA2`
			`TOS #0010 ** #001c // .center/x LDZ2 ++ #0049 -- .Screen/x DEO2`
			`TOS #0010 ** #001c // .center/y LDZ2 ++ #0049 -- .Screen/y DEO2`
			`DUP #0f MOD #00 EQU INC .Screen/pixel DEO`
			`INC GTHk ,&loop JCN`
			`POP2`

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 )`
Added date to datetime example 2021-09-26 20:33:39 +00:00			`.DateTime/second DEI .current LDZ = ,&skip JCN`
(clock.tal) Fixed issue with hour needle 2021-11-16 18:00:51 +00:00			`( clear ) #00 ,draw-needles JSR`
			`( update ) ,update-needles JSR`
			`( draw ) #01 ,draw-needles JSR`
Added date to datetime example 2021-09-26 20:33:39 +00:00			`;draw-display JSR2`
			`&skip`
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 date to datetime example 2021-09-26 20:33:39 +00:00			`BRK`

(clock.tal) Fixed issue with hour needle 2021-11-16 18:00:51 +00:00			`@draw-needles ( mul -- )`

			`STH`
			`.center/x LDZ2 .center/y LDZ2 .needles/sx LDZ2 .needles/sy LDZ2 #02 STHkr * ;draw-line JSR2`
			`.center/x LDZ2 .center/y LDZ2 .needles/mx LDZ2 .needles/my LDZ2 #01 STHkr * ;draw-line JSR2`
			`.center/x LDZ2 .center/y LDZ2 .needles/hx LDZ2 .needles/hy LDZ2 #01 STHr * ;draw-line JSR2`

			`RTN`
Added date to datetime example 2021-09-26 20:33:39 +00:00
(clock.tal) Fixed issue with hour needle 2021-11-16 18:00:51 +00:00			`@update-needles ( -- )`
Added visuals to the datetime device example 2021-04-01 18:46:41 +00:00
Added date to datetime example 2021-09-26 20:33:39 +00:00			`#00 .DateTime/second DEI 2** ;table ++ LDA2`
			`TOS SCALEY .needles/sy STZ2`
			`TOS SCALEX .needles/sx STZ2`
			`#00 .DateTime/minute DEI 2** ;table ++ LDA2`
(clock.tal) Fixed issue with hour needle 2021-11-16 18:00:51 +00:00			`TOS #0020 ** RADIUS ++ #0024 // SCALEY #0007 ++ .needles/my STZ2`
			`TOS #0020 ** RADIUS ++ #0024 // SCALEX #0007 ++ .needles/mx STZ2`
Added date to datetime example 2021-09-26 20:33:39 +00:00			`#00 .DateTime/hour DEI 12HOURS #20 SFTk NIP ADD 2** ;table ++ LDA2`
(clock.tal) Fixed issue with hour needle 2021-11-16 18:00:51 +00:00			`TOS 4// DUP2k ++ ++ #0020 ++ SCALEY .needles/hy STZ2`
			`TOS 4// DUP2k ++ ++ #0020 ++ SCALEX .needles/hx STZ2`
(clock.tal) Minor optimizations 2021-11-16 17:10:48 +00:00
			`RTN`

Sorted examples in devices/ and gui/ 2021-04-23 15:58:58 +00:00			`@draw-display ( -- )`

(clock.tal) Higher font for digits 2021-11-16 19:35:08 +00:00			`( auto addr ) #04 .Screen/auto DEO`
Added date to datetime example 2021-09-26 20:33:39 +00:00			`( date )`
(clock.tal) Fixed issue with hour needle 2021-11-16 18:00:51 +00:00			`.center/y LDZ2 #0068 -- .Screen/y DEO2`
(clock.tal) Minor optimizations 2021-11-16 17:10:48 +00:00			`.center/x LDZ2 #0014 -- .Screen/x DEO2`
(clock.tal) Higher font for digits 2021-11-16 19:35:08 +00:00			`.DateTime/month DEI2`
			`SWP INC ,&number JSR`
			`;font/slash ,&spacer JSR`
			`,&number JSR`
Added date to datetime example 2021-09-26 20:33:39 +00:00			`( time )`
(clock.tal) Fixed issue with hour needle 2021-11-16 18:00:51 +00:00			`.center/y LDZ2 #0060 ++ .Screen/y DEO2`
(clock.tal) Minor optimizations 2021-11-16 17:10:48 +00:00			`.center/x LDZ2 #0020 -- .Screen/x DEO2`
(clock.tal) Higher font for digits 2021-11-16 19:35:08 +00:00			`.DateTime/hour DEI2`
			`SWP ,&number JSR`
			`;font/spacer ,&spacer JSR`
			`,&number JSR`
			`;font/spacer ,&spacer JSR`
			`.DateTime/second DEI`
			`,&number JSR`
Added date to datetime example 2021-09-26 20:33:39 +00:00			`( auto none ) #00 .Screen/auto DEO`
Cleanup 2021-04-02 04:53:41 +00:00
(clock.tal) Higher font for digits 2021-11-16 19:35:08 +00:00
Sorted examples in devices/ and gui/ 2021-04-23 15:58:58 +00:00			`RTN`
(clock.tal) Higher font for digits 2021-11-16 19:35:08 +00:00			`&pady ( -- )`
			`.Screen/y DEI2 #0008 ++ .Screen/y DEO2 RTN`
			`&spacer ( char* -- )`
			`.Screen/addr DEO2`
			`#03 .Screen/sprite DEO`
			`,&pady JSR`
			`#03 .Screen/sprite DEO`
			`,&reset JSR`
			`RTN`
			`&number ( number -- )`
			`DUP #0a DIV [ 10* TOS ;font ++ ] .Screen/addr DEO2`
			`#03 .Screen/sprite DEO`
			`,&pady JSR`
			`#03 .Screen/sprite DEO`
			`,&reset JSR`
			`#0a MOD [ 10* TOS ;font ++ ] .Screen/addr DEO2`
			`#03 .Screen/sprite DEO`
			`,&pady JSR`
			`#03 .Screen/sprite DEO`
			`&reset`
			`.Screen/x DEI2 #0008 ++ .Screen/x DEO2`
			`.Screen/y DEI2 #0008 -- .Screen/y DEO2`
			`RTN`
Added visuals to the datetime device example 2021-04-01 18:46:41 +00:00
			`@draw-line ( x1 y1 x2 y2 color -- )`

(clock.tal) Fixed issue with hour needle 2021-11-16 18:00:51 +00:00			`( load ) .line/color STZ .line/y0 STZ2 .line/x0 STZ2 .line/y STZ2 .line/x STZ2`
Store center position in datetime.tal 2021-09-26 21:06:18 +00:00			`.line/x0 LDZ2 .line/x LDZ2 -- ABS2 .line/dx STZ2`
			`.line/y0 LDZ2 .line/y LDZ2 -- ABS2 #0000 SWP2 -- .line/dy STZ2`
Added date to datetime example 2021-09-26 20:33:39 +00:00			`#ffff #00 .line/x LDZ2 .line/x0 LDZ2 LTS2 2** ++ .line/sx STZ2`
			`#ffff #00 .line/y LDZ2 .line/y0 LDZ2 LTS2 2** ++ .line/sy STZ2`
			`.line/dx LDZ2 .line/dy LDZ2 ++ .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`
(clock.tal) Fixed issue with hour needle 2021-11-16 18:00:51 +00:00			`.line/color LDZ .Screen/pixel DEO`
Store center position in datetime.tal 2021-09-26 21:06:18 +00:00			`[ .line/x LDZ2 .line/x0 LDZ2 == ]`
(clock.tal) Minor optimizations 2021-11-16 17:10:48 +00:00			`[ .line/y LDZ2 .line/y0 LDZ2 == ] AND ,&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`
Added date to datetime example 2021-09-26 20:33:39 +00:00			`.line/e1 LDZ2 .line/dy LDZ2 ++ .line/e1 STZ2`
			`.line/x LDZ2 .line/sx LDZ2 ++ .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`
Added date to datetime example 2021-09-26 20:33:39 +00:00			`.line/e1 LDZ2 .line/dx LDZ2 ++ .line/e1 STZ2`
			`.line/y LDZ2 .line/sy LDZ2 ++ .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`

(clock.tal) Minor optimizations 2021-11-16 17:10:48 +00:00			`@table ( 60 positions on a 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			`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
(clock.tal) Higher font for digits 2021-11-16 19:35:08 +00:00			`@font`
			`0018 2442 4242 4242 4242 4242 4224 1800`
			`0008 1828 0808 0808 0808 0808 0808 1c00`
			`0018 2442 4202 0202 0408 1020 4040 7e00`
			`0018 2442 0202 0438 0402 0202 0204 7800`
			`000c 0c14 1414 2424 2444 447e 0404 0e00`
			`007e 4040 4040 5864 4202 0202 0204 7800`
			`000c 1020 4040 5864 4242 4242 4224 1800`
			`007e 4202 0204 0404 0808 0810 1010 1000`
			`0018 2442 4242 2418 2442 4242 4224 1800`
			`0018 2442 4242 4242 261a 0202 0408 3000`
			`&spacer`
			`0000 0000 0010 1000 0000 0000 1010 0000`
			`&slash`
			`0202 0404 0808 1010 2020 4040 8080 0000`