*

XXIIVV · Dec 11, 2024 · 8c03a75 · 8c03a75
1 parent 6b0cee2
commit 8c03a75
Show file tree

Hide file tree

Showing 4 changed files with 17 additions and 28 deletions.
diff --git a/etc/left.tal.txt b/etc/left.tal.txt
@@ -64,7 +64,7 @@
 	( name ) "Left 0a
 	( details ) "A 20 "Text 20 "Editor 0a
 	( author ) "By 20 "Hundred 20 "Rabbits 0a
-	( date ) "10 20 "Dec 20 "2024 $1 02
+	( date ) "11 20 "Dec 20 "2024 $1 02
 	( > ) 83 =appicon
 	( > ) 0a =manifest
 
@@ -1442,12 +1442,14 @@
 
 @<draw-decimal> ( short* color -- )
 	;<draw-glyph-plain>/color STA
-	#2710 [ LIT2r 00fb ]
-	&>w ( -- )
-		DIV2k #000a DIV2k MUL2 SUB2 SWPr EQUk OVR STHkr EQU AND ?{
-			INCr DUP [ LIT "0 ] ADD <draw-glyph-plain> }
-		POP2 #000a DIV2 SWPr INCr STHkr ?&>w
-	POP2r POP2 POP2 JMP2r
+	#000a SWP2 [ LITr ff ]
+	&>get ( -- )
+		SWP2k DIV2k MUL2 SUB2 STH
+		POP OVR2 DIV2 ORAk ?&>get
+	POP2 POP2
+	&>put ( -- )
+		STHr INCk ?{ POP JMP2r }
+		[ LIT "0 ] ADD <draw-glyph-plain> !&>put
 
 (
 @|theme )

diff --git a/site/home.html b/site/home.html
@@ -14,13 +14,6 @@
 
 <p>See <a href='now.html'>recent changes</a>(<a href='journal.html'>pictures</a>).</p>
 
-<h3>Upcoming</h3>
-<ul>
-	<li><b>Aliceffekt</b>: <a href='https://ampindustrialevents.com' target='_blank'>AMP 2024</a>, Montreal 6 Dec 2024
-	<li><b>Talk</b>: <a href='https://creativecodingutrecht.nl/en/calendar/iterations-2024' target='_blank'>Analog Communication</a>(remote), Utrecht 6 Dec 2024
-</ul>
-
-<h3>Past</h3>
 <ul>
 	<li><a href='https://100r.co/site/shining_sand.html' target='_blank'>A shining palace built upon the sand</a>, Seattle, 20 Nov 2024
 	<li><a href='https://100r.co/site/computing_and_sustainability.html' target='_blank'>Computing and Sustainability</a>, Saint-Louis, 21 Sep 2023

diff --git a/src/htm/home.htm b/src/htm/home.htm
@@ -7,13 +7,6 @@
 
 <p>See <a href='now.html'>recent changes</a>(<a href='journal.html'>pictures</a>).</p>
 
-<h3>Upcoming</h3>
-<ul>
-	<li><b>Aliceffekt</b>: <a href='https://ampindustrialevents.com' target='_blank'>AMP 2024</a>, Montreal 6 Dec 2024
-	<li><b>Talk</b>: <a href='https://creativecodingutrecht.nl/en/calendar/iterations-2024' target='_blank'>Analog Communication</a>(remote), Utrecht 6 Dec 2024
-</ul>
-
-<h3>Past</h3>
 <ul>
 	<li><a href='https://100r.co/site/shining_sand.html' target='_blank'>A shining palace built upon the sand</a>, Seattle, 20 Nov 2024
 	<li><a href='https://100r.co/site/computing_and_sustainability.html' target='_blank'>Computing and Sustainability</a>, Saint-Louis, 21 Sep 2023

diff --git a/src/maeve.tal b/src/maeve.tal
@@ -359,13 +359,14 @@
 	JMP2r
 
 @<print-dec> ( short* -- )
-	#2710 [ LIT2r 00fb ]
-	&>w ( -- )
-		DIV2k #000a DIV2k MUL2 SUB2 SWPr EQUk OVR STHkr EQU AND ?{
-			DUP LIT "0 ADD #18 DEO
-			INCr }
-		POP2 #000a DIV2 SWPr INCr STHkr ?&>w
-	POP2r POP2 POP2 JMP2r
+	#000a SWP2 [ LITr ff ]
+	&>get ( -- )
+		SWP2k DIV2k MUL2 SUB2 STH
+		POP OVR2 DIV2 ORAk ?&>get
+	POP2 POP2
+	&>put ( -- )
+		STHr INCk ?{ POP JMP2r }
+		[ LIT "0 ] ADD #18 DEO !&>put
 
 (
 @|assets )