etc
/
uxn
mirror of https://git.sr.ht/~rabbits/uxn
0
1
Fork 0
Code Issues Projects Releases Wiki Activity

Close uxnemu on System/halt

This commit is contained in:
neauoire 2021-10-02 12:06:50 -07:00
parent 243c5866ac
commit 08fb3e7f0a
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
projects/examples/demos/piano.tal
View File

@ -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 )

2
src/uxnemu.c
View File

@ -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)