uxn

commit 08fb3e7f0aa2741c2e0a777ceda25ff266f690fa
parent 243c5866ac177b83b2f003b8ef7f7edb8b50c5d9
Author: neauoire <aliceffekt@gmail.com>
Date:   Sat,  2 Oct 2021 12:06:50 -0700

Close uxnemu on System/halt

Diffstat:
M
projects/examples/demos/piano.tal
 | 
3
+++
M
src/uxnemu.c
 | 
2
+-

2 files changed, 4 insertions(+), 1 deletion(-)
diff --git a/projects/examples/demos/piano.tal b/projects/examples/demos/piano.tal
@@ -6,6 +6,8 @@
 %<< { LTH2 } %>> { GTH2 } %== { EQU2 } %!! { NEQ2 }
 %!~ { NEQk NIP }
 
+%HALT { #01 #0f DEO }
+
 %RTN  { JMP2r }
 %TOS  { #00 SWP }
 %MOD  { DUP2 / * - }
@@ -130,6 +132,7 @@ BRK
 		#3b .octave LDZ #0c * + ;play JSR2 &no-b
 	[ LIT 'k ] !~ ,&no-c2 JCN
 		#3c .octave LDZ #0c * + ;play JSR2 &no-c2
+	[ #1b ] !~ ,&no-esc JCN HALT &no-esc
 	POP
 
 	( release )
diff --git a/src/uxnemu.c b/src/uxnemu.c
@@ -497,7 +497,7 @@ run(Uxn *u)
 {
 	uxn_eval(u, PAGE_PROGRAM);
 	redraw(u);
-	while(1) {
+	while(!devsystem->dat[0xf]) {
 		SDL_Event event;
 		double elapsed, start = 0;
 		if(!BENCH)