uxn

commit 80ccce5a5cbbaec187134fcd56bbd0d946eb9044
parent 37e7c0f88b1078c82bdd1cf9c58d9608a4a95431
Author: Andrew Alderwick <andrew@alderwick.co.uk>
Date:   Fri, 23 Apr 2021 09:58:50 +0100

Removed debugging code from Neralie

Diffstat:
M
projects/software/neralie.usm
 | 
38
+-------------------------------------

1 file changed, 1 insertion(+), 37 deletions(-)
diff --git a/projects/software/neralie.usm b/projects/software/neralie.usm
@@ -2,7 +2,7 @@
 	app/neralie : clock with arvelie date
 
 	TODO
-		- Implement higher resolution time rather than counting fps
+		- use splash screen when FPS calculation is unstable
 )
 
 %h { .DateTime/hour   DEI }
@@ -206,39 +206,6 @@
 	#00 .fps/next POK
 	JMP2r
 
-@print-string ( string* -- )
-	DUP2 GET DUP ,&not-end JNZ
-	POP POP2 JMP2r
-
-	&not-end
-	.Console/char DEO
-	#0001 ADD2 ,print-string JMP
-
-@print-byte-decimal ( byte -- )
-	#00 .number/started POK
-	#00 SWP
-	,print-short-decimal/byte-start JMP
-
-@print-short-decimal ( short* -- )
-	#00 .number/started POK
-	#2710 ,modf JSR ,&digit JSR
-	#03e8 ,modf JSR ,&digit JSR
-	&byte-start
-	#0064 ,modf JSR ,&digit JSR
-	#000a ,modf JSR ,&digit JSR
-	                ,&digit JSR
-	.number/started PEK ,&end JNZ
-	#30 .Console/char DEO
-	&end JMP2r
-
-	&digit
-	SWP POP
-	DUP .number/started PEK ORA #02 JNZ
-	POP JMP2r
-	#30 ADD .Console/char DEO
-	#01 .number/started POK
-	JMP2r
-
 @modf ( dividend* divisor* -- remainder* quotient* )
 	OVR2 OVR2 DIV2 DUP2 STH2 MUL2 SUB2 STH2r JMP2r
 
@@ -279,9 +246,6 @@
 	ROT #01 ADD ROT ROT
 	JMP2r
 
-@strings
-	&fps [ 20 "fps 0a 00 ]
-
 @font-numbers
 [
 	7cc6 ced6 e6c6 7c00 1838 1818 1818 7e00 3c66 063c 6066 7e00