Debounce exiting programs

mateoconlechuga · Dec 15, 2017 · cb5582b · cb5582b
1 parent 1eca556
commit cb5582b
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/routines/common.asm b/src/routines/common.asm
@@ -90,7 +90,12 @@ _:	ld	hl,OP1                      ; execute app
 	ld	hl,(hl)
 	pop	bc
 	add	hl,bc
-	ld	a,$AA
+	push	hl
+_:	call	_GetCSC
+	or	a,a
+	jr	nz,-_
+	pop	hl
+	ld	a,$aa
 	jp	(hl)
 
 QuitStr1: