fix for STOP key detection

This commit is contained in:
FeralChild64 committed 2019-08-07 19:14:16 +02:00
1 parent 34d60195c2
commit 7bc76670cd
2 files changed
+7 -4

No files matched your search

+1 -2
View File
@@ -14,8 +14,7 @@ stop:
;; BASIC checks carry flag to indicate STOP or not
lda STKEY
and #$80
beq stop_pressed
bpl stop_pressed
;; By trial and error, we know that Z + C = BREAK
;; and that neither should be set otherwise
+6 -2
View File
@@ -204,12 +204,16 @@ ReturnNoKeys:
NoActivityDetected:
;; Cancel STKEY status
lda #$FF
sta STKEY ; XXX this variable should be set by UDTIM
;; So cancel all bucky keys
lda key_bucky_state
sta key_last_bucky_state
lda #$00
sta key_bucky_state
jmp ReturnNoKeys
;; //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
@@ -334,7 +338,7 @@ next_row:
;; so that RUN/STOP etc can be checked easily
;; (Compute's Mapping the 64, p27)
lda ScanResult+0
sta STKEY
sta STKEY ; XXX this variable should be set by UDTIM
;; Store de-bounce data for bucky keys
;; (Compute's Mapping the 64, p58-59)