fix for STOP key detection
This commit is contained in:
1 parent
34d60195c2
commit
7bc76670cd
2 files changed
+7
-4
No files matched your search
@@ -14,8 +14,7 @@ stop:
|
|||||||
|
|
||||||
;; BASIC checks carry flag to indicate STOP or not
|
;; BASIC checks carry flag to indicate STOP or not
|
||||||
lda STKEY
|
lda STKEY
|
||||||
and #$80
|
bpl stop_pressed
|
||||||
beq stop_pressed
|
|
||||||
|
|
||||||
;; By trial and error, we know that Z + C = BREAK
|
;; By trial and error, we know that Z + C = BREAK
|
||||||
;; and that neither should be set otherwise
|
;; and that neither should be set otherwise
|
||||||
|
|||||||
+6
-2
@@ -204,12 +204,16 @@ ReturnNoKeys:
|
|||||||
|
|
||||||
NoActivityDetected:
|
NoActivityDetected:
|
||||||
|
|
||||||
|
;; Cancel STKEY status
|
||||||
|
lda #$FF
|
||||||
|
sta STKEY ; XXX this variable should be set by UDTIM
|
||||||
|
|
||||||
;; So cancel all bucky keys
|
;; So cancel all bucky keys
|
||||||
lda key_bucky_state
|
lda key_bucky_state
|
||||||
sta key_last_bucky_state
|
sta key_last_bucky_state
|
||||||
lda #$00
|
lda #$00
|
||||||
sta key_bucky_state
|
sta key_bucky_state
|
||||||
|
|
||||||
jmp ReturnNoKeys
|
jmp ReturnNoKeys
|
||||||
|
|
||||||
;; //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
;; //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
||||||
@@ -334,7 +338,7 @@ next_row:
|
|||||||
;; so that RUN/STOP etc can be checked easily
|
;; so that RUN/STOP etc can be checked easily
|
||||||
;; (Compute's Mapping the 64, p27)
|
;; (Compute's Mapping the 64, p27)
|
||||||
lda ScanResult+0
|
lda ScanResult+0
|
||||||
sta STKEY
|
sta STKEY ; XXX this variable should be set by UDTIM
|
||||||
|
|
||||||
;; Store de-bounce data for bucky keys
|
;; Store de-bounce data for bucky keys
|
||||||
;; (Compute's Mapping the 64, p58-59)
|
;; (Compute's Mapping the 64, p58-59)
|
||||||
|
|||||||
Reference in new issue
Block a user