Exit from SoliDown.

2026-05-20 22:34:21 +02:00 · 2023-05-19 11:31:22 +02:00
parent eb15ce0d78
commit db3743965a
3 changed files with 4 additions and 0 deletions
@@ -1419,6 +1419,10 @@ ColumnIsReady
    bcc FalloutOfLine
    beq FalloutOfLine

+	jsr CheckExitKeys	; Check for O, Esc or Start+Option keys 
+	bit escFlag
+	spl:rts ; exit if pressed 'Exit keys'
+
    lda IsEndOfTheFallFlag
 ; we repeat untill at some point first table reaches
 ; level of the mountains