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
|
||||
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
@@ -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)
|
||||
|
||||
Reference in new issue
Block a user