Added visuals to the datetime device example

build.sh

@@ -28,7 +28,7 @@ else
 fi
 
 echo "Assembling.."
-./bin/assembler projects/software/left.usm bin/boot.rom
+./bin/assembler projects/examples/dev.time.usm bin/boot.rom
 
 echo "Running.."
 if [ "${2}" = '--cli' ]; 

etc/tables/build.sh

@@ -0,0 +1,16 @@
+#!/bin/bash
+
+echo "Formatting.."
+clang-format -i tables.c
+
+echo "Cleaning.."
+rm -f ../../bin/tables
+
+echo "Building.."
+mkdir -p ../../bin
+cc -std=c89 -DDEBUG -Wall -Wno-unknown-pragmas -Wpedantic -Wshadow -Wextra -Werror=implicit-int -Werror=incompatible-pointer-types -Werror=int-conversion -Wvla -g -Og -fsanitize=address -fsanitize=undefined -lm tables.c -o ../../bin/tables
+
+echo "Assembling.."
+../../bin/tables 
+
+echo "Done."

etc/tables/tables.c

@@ -0,0 +1,37 @@
+#include <stdio.h>
+#include <math.h>
+
+/* 
+Copyright (c) 2020 Devine Lu Linvega
+
+Permission to use, copy, modify, and distribute this software for any
+purpose with or without fee is hereby granted, provided that the above
+copyright notice and this permission notice appear in all copies.
+
+THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+WITH REGARD TO THIS SOFTWARE.
+*/
+
+#define PI 3.14159265358979323846
+
+typedef unsigned char Uint8;
+
+int
+main()
+{
+	int i;
+	printf("60 points on a circle128(bytex,bytey):\n\n");
+	for(i = 0; i < 60; ++i) {
+		double cx = 128, cy = 128, r = 127;
+		double pos = (60 - i + 30) % 60;
+		double deg = (pos / 60.0) * 360.0;
+		double rad = deg * (PI / 180);
+		double x = cx + r * cos(rad);
+		double y = cy + r * sin(rad);
+		if(i > 0 && i % 8 == 0)
+			printf("\n");
+		printf("%02x%02x ", (Uint8)x, (Uint8)y);
+	}
+	printf("\n\n");
+	return 0;
+}

projects/examples/dev.time.usm

@@ -1,8 +1,17 @@
+%RTN { JMP2r }
+%ABS2 { DUP2 #000f SFT2 EQU #04 JNZ #ffff MUL2 }
+%SCALE { #0002 DIV2 #0020 ADD2 }
+
 ;current { second 1 }
+;line { x0 2 y0 2 x 2 y 2 sx 2 sy 2 dx 2 dy 2 e1 2 e2 2 }
+;color { byte 1 }
+;needles { hx 2 hy 2 mx 2 my 2 sx 2 sy 2 }
 
 ( devices )
 
 |0100 ;Console { pad 8 char 1 byte 1 short 2 }
+|0110 ;Screen { width 2 height 2 pad 4 y 2 x 2 color 1 }
+|0120 ;Sprite { pad 8 x 2 y 2 addr 2 color 1 }
 |0190 ;Time { year 2 month 1 day 1 hour 1 minute 1 second 1 dow 1 doy 2 isdst 1 get 1 }
 |01F0 ;System { pad 8 r 2 g 2 b 2 }
 |0200 ,RESET JMP2
@@ -11,12 +20,139 @@
 
 ( program )
 
-@RESET BRK
+@RESET 
+	
+	( theme ) #0ff8 =System.r #0f08 =System.g #0f08 =System.b
+
+	,draw-circle JSR2
+
+BRK
 
 @FRAME
+	
 	#00 =Time.get
 	~Time.second ~current.second NEQ #01 JNZ BRK
-	~Time.second DUP =current.second =Console.byte
 
-@ERROR BRK
+	( clear )
+	#0080 SCALE #0080 SCALE ~needles.sx ~needles.sy #00 ,draw-line JSR2
+	#0080 SCALE #0080 SCALE ~needles.mx ~needles.my #00 ,draw-line JSR2
+	#0080 SCALE #0080 SCALE ~needles.hx ~needles.hy #00 ,draw-line JSR2
 
+	( place )
+	#00 ~Time.second #0002 MUL2 ,table ADD2 LDR2
+	#00 SWP SCALE =needles.sy #00 SWP SCALE =needles.sx
+
+	#00 ~Time.minute #0002 MUL2 ,table ADD2 LDR2
+	#00 SWP #0004 DIV2 #0003 MUL2 #0020 ADD2 SCALE =needles.my 
+	#00 SWP #0004 DIV2 #0003 MUL2 #0020 ADD2 SCALE =needles.mx
+
+	#00 ~Time.hour #0005 MUL2 #0002 MUL2 ,table ADD2 LDR2
+	#00 SWP #0002 DIV2 #0040 ADD2 SCALE =needles.hy 
+	#00 SWP #0002 DIV2 #0040 ADD2 SCALE =needles.hx
+
+	( draw )
+	#0080 SCALE #0080 SCALE ~needles.sx ~needles.sy #02 ,draw-line JSR2
+	#0080 SCALE #0080 SCALE ~needles.mx ~needles.my #01 ,draw-line JSR2
+	#0080 SCALE #0080 SCALE ~needles.hx ~needles.hy #03 ,draw-line JSR2
+
+	,draw-circle JSR2
+
+	( display )
+	#0000 =Sprite.x
+	,font_hex #00 ~Time.hour #f0 AND #04 SFT #08 MUL ADD2 =Sprite.addr
+	#02 =Sprite.color
+	#0008 =Sprite.x
+	,font_hex #00 ~Time.hour #0f AND #08 MUL ADD2 =Sprite.addr
+	#02 =Sprite.color
+
+
+	#0018 =Sprite.x
+	,font_hex #00 ~Time.minute #f0 AND #04 SFT #08 MUL ADD2 =Sprite.addr
+	#02 =Sprite.color
+	#0020 =Sprite.x
+	,font_hex #00 ~Time.minute #0f AND #08 MUL ADD2 =Sprite.addr
+	#02 =Sprite.color
+
+
+	#0030 =Sprite.x
+	,font_hex #00 ~Time.second #f0 AND #04 SFT #08 MUL ADD2 =Sprite.addr
+	#02 =Sprite.color
+	#0038 =Sprite.x
+	,font_hex #00 ~Time.second #0f AND #08 MUL ADD2 =Sprite.addr
+	#02 =Sprite.color
+
+BRK
+
+@ERROR 
+
+BRK
+
+@draw-circle ( -- )
+	
+	#00 #3c 
+	$loop
+		( load ) OVR #00 SWP #0002 MUL2 ,table ADD2 LDR2 
+
+		#00 SWP SCALE =Screen.y
+		#00 SWP SCALE =Screen.x
+		#01 =Screen.color
+
+		( incr ) SWP #01 ADD SWP
+		DUP2 LTH ^$loop JNZ
+	POP2
+
+	#00 ,table PEK2 SCALE =Screen.x
+	#00 ,table #0001 ADD2 PEK2 SCALE =Screen.y
+	#02 =Screen.color
+
+RTN
+
+@draw-line ( x1 y1 x2 y2 color -- )
+	
+	( load ) =color =line.y0 =line.x0 =line.y =line.x
+	~line.x0 ~line.x SUB2 ABS2 =line.dx
+	~line.y0 ~line.y SUB2 ABS2 #0000 SWP2 SUB2 =line.dy
+	#ffff #00 ~line.x ~line.x0 LTS2 #0002 MUL2 ADD2 =line.sx 
+	#ffff #00 ~line.y ~line.y0 LTS2 #0002 MUL2 ADD2 =line.sy 
+	~line.dx ~line.dy ADD2 =line.e1
+	$loop
+		~line.x =Screen.x ~line.y =Screen.y ~color =Screen.color
+		~line.x ~line.x0 EQU2 ~line.y ~line.y0 EQU2 #0101 EQU2 ^$end JNZ
+		~line.e1 #0002 MUL2 =line.e2
+		~line.e2 ~line.dy LTS2 ^$skipy JNZ
+			~line.e1 ~line.dy ADD2 =line.e1
+			~line.x ~line.sx ADD2 =line.x
+		$skipy
+		~line.e2 ~line.dx GTS2 ^$skipx JNZ
+			~line.e1 ~line.dx ADD2 =line.e1
+			~line.y ~line.sy ADD2 =line.y
+		$skipx
+		,$loop JMP2
+
+	$end
+
+RTN
+
+@table ( 60 positions on a circle in bytes )
+[
+	0180 018d 039a 07a7 0bb3 12bf 19ca 21d4 
+	2bde 35e6 40ed 4cf4 58f8 65fc 72fe 80ff 
+	8dfe 9afc a7f8 b3f4 bfed cae6 d4de ded4 
+	e6ca edbf f4b3 f8a7 fc9a fe8d ff80 fe72 
+	fc65 f858 f44c ed40 e635 de2b d421 ca19 
+	bf12 b30b a707 9a03 8d01 7f01 7201 6503 
+	5807 4c0b 4012 3519 2b21 212b 1935 1240 
+	0b4c 0758 0365 0172
+]
+
+@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
+]

projects/software/left.usm

@@ -727,7 +727,7 @@ RTN
 @cursor_icn    [ 80c0 e0f0 f8e0 1000 ]
 
 @filepath1     [ projects/examples/gui.hover.usm 00 ]
-@filepath      [ projects/software/noodle.usm 00 ]
+@filepath      [ projects/examples/dev.time.usm 00 ]
 
 @ERROR BRK