3 files changed, 37 insertions(+), 0 deletions(-)

A .gitignore
A arvelie.tal
A mkfile

@@ 1,1 @@
+*.rom

@@ 1,29 @@
+|10 @Console &vector $2 &read $1 &pad $5 &write $1 &error $1
+|c0 @DateTime &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1
+
+|00
+@NumLen $1 @NumBuf $5
+
+%start-year ( -- year* ) { #07e9 } ( y2025 )
+
+%mod ( a b -- a%b ) { DIVk MUL SUB }
+
+|100
+@on-reset ( -> )
+	.DateTime/year DEI2 start-year SUB2 NIP print2 ( print year )
+	.DateTime/doty DEI2 #0e DIVk DUP print-month ( print month )
+	MUL SUB print2 ( complete the modulo, print day )
+	BRK
+
+@print2 ( num -- )
+	#64 mod ( lock to 0..99 )
+	#0a DIVk DUP #30 ADD .Console/write DEO ( print first digit )
+	MUL SUB #30 ADD .Console/write DEO ( print second digit )
+	JMP2r
+
+@print-month ( month -- )
+	INC #1b mod ( map 26 in to 0, clamp to 0..26 )
+	DUP ?{ #15 SUB } ( convert 0 to + )
+	#40 ADD .Console/write DEO
+	JMP2r
+

@@ 1,7 @@
+roms=\
+	arvelie.rom
+
+all:VQ: $roms
+
+%.rom: %.tal
+	games/uxnasm $stem.tal $stem.rom