chris/open-roms
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove all anonymous labels, fix indenting etc

Browse Source
This commit is contained in:
Paul Gardner-Stephen committed 2019-04-24 06:57:23 +09:30
1 parent 201f1a378f
commit efc83a0611
1 file changed
+133 -123
Download Patch File Download Diff File Expand all files Collapse all files
c64/kernal/scan_keyboard.s
+133 -123
View File
@@ -43,33 +43,33 @@
.alias ScanResult $250 ;// 8 bytes .alias ScanResult $250 ;// 8 bytes
;; Other variables are in RS232 ZP locations for now ;; Other variables are in RS232 ZP locations for now
;; (Carefully avoiding $A7 which is used by 64NET) ;; (Carefully avoiding $A7 which is used by 64NET)
.alias BufferNew $A9 ;// 3 bytes .alias BufferNew $A9 ;// 3 bytes
.alias KeyQuantity $A8 ;// 1 byte .alias KeyQuantity $A8 ;// 1 byte
.alias TempZP $B6 ;// 1 byte .alias TempZP $B6 ;// 1 byte
;; Reuse RS232 variables, since they should not be used ;; Reuse RS232 variables, since they should not be used
;; by other things ;; by other things
;; These are initialised in cinit all to $FF ;; These are initialised in cinit all to $FF
.alias BufferOld $293 ; 3 bytes .alias BufferOld $293 ; 3 bytes
.alias Buffer $297 ; 4 bytes .alias Buffer $297 ; 4 bytes
.alias BufferQuantity $B4 ; 1 byte .alias BufferQuantity $B4 ; 1 byte
;// Operational Variables ;// Operational Variables
.alias MaxKeyRollover 3 .alias MaxKeyRollover 3
scan_keyboard: scan_keyboard:
;; Call main keyboard scanning routine ;; Call main keyboard scanning routine
jsr Main jsr Main
bcc + bcc sk_success
rts rts
* sk_success:
;; Work out what is new and needs to be added ;; Work out what is new and needs to be added
;; to the input buffer. ;; to the input buffer.
;; Also update the bucky key status flags etc ;; Also update the bucky key status flags etc
cmp #$ff cmp #$ff
beq + beq sk_nokey
;; Got a key, turn it from matrix position to key value, ;; Got a key, turn it from matrix position to key value,
;; and stuff it in the keyboard buffer ;; and stuff it in the keyboard buffer
@@ -85,39 +85,39 @@ scan_keyboard:
tax tax
lda keyboard_matrixes,x lda keyboard_matrixes,x
;; But don't insert $00 characters ;; But don't insert $00 characters
beq + beq sk_nokey
;; Stash key into keyboard buffer ;; Stash key into keyboard buffer
ldx keys_in_key_buffer ldx keys_in_key_buffer
cpx key_buffer_size cpx key_buffer_size
beq + beq sk_nokey
sta keyboard_buffer,x sta keyboard_buffer,x
inc keys_in_key_buffer inc keys_in_key_buffer
* sk_nokey:
rts rts
;; //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ;; //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;; // Routine for Scanning a Matrix Row ;; // Routine for Scanning a Matrix Row
KeyInRow: KeyInRow:
ldy #7 ldy #7
* NextKeyInRow:
ror ror
bcs nokey bcs nokey
jsr KeyFound jsr KeyFound
nokey: nokey:
inx inx
dey dey
bpl - bpl NextKeyInRow
rts rts
;; //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ;; //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;; // Routine for handling: Key Found ;; // Routine for handling: Key Found
KeyFound: KeyFound:
stx TempZP stx TempZP
@@ -137,22 +137,22 @@ KeyFound:
ldx TempZP ldx TempZP
rts rts
;; //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ;; //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;; // Routine for handling: Overflow ;; // Routine for handling: Overflow
OverFlow: OverFlow:
pla ;// Dirty hack to handle 2 layers of JSR pla ;// Dirty hack to handle 2 layers of JSR
pla pla
pla pla
pla pla
;// Don't manipulate last legal buffer as the routine will fix itself once it gets valid input again. ;// Don't manipulate last legal buffer as the routine will fix itself once it gets valid input again.
sec sec
lda #$ff lda #$ff
rts rts
;; //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ;; //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;; // Exit Routine for: No Activity ;; // Exit Routine for: No Activity
NoActivityDetected: NoActivityDetected:
;; So cancel all bucky keys ;; So cancel all bucky keys
@@ -161,60 +161,58 @@ NoActivityDetected:
lda #$00 lda #$00
sta key_bucky_state sta key_bucky_state
stx BufferOld
stx BufferOld+1
stx BufferOld+2
sec sec
lda #$ff lda #$ff
;; Reset key repeat, so that pressing a key that was ;; Reset key repeat, so that pressing a key that was
;; after letting it go in the meantime doesn't result ;; after letting it go in the meantime doesn't result
;; in continued repeating ;; in continued repeating
sta last_key_matrix_position sta last_key_matrix_position
rts rts
;; //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ;; //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;; // Exit Routine for Control Port Activity ;; // Exit Routine for Control Port Activity
ControlPort: ControlPort:
;; // Exit with A = #$02, Carry Set. Keep BufferOld to verify input after Control Port activity ceases ;; // Exit with A = #$02, Carry Set. Keep BufferOld to verify input after Control Port activity ceases
sec sec
lda #$ff lda #$ff
rts rts
;; //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ;; //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;; // Configure Data Direction Registers ;; // Configure Data Direction Registers
Main: Main:
ldx #$ff ldx #$ff
stx $dc02 ;// Port A - Output stx $dc02 ;// Port A - Output
ldy #$00 ldy #$00
sty $dc03 ;// Port B - Input sty $dc03 ;// Port B - Input
;; //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ;; //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;; // Check for Port Activity ;; // Check for Port Activity
sty $dc00 ;// Connect all Keyboard Rows sty $dc00 ;// Connect all Keyboard Rows
cpx $dc01 cpx $dc01
beq NoActivityDetected beq NoActivityDetected
skip0: skip0:
;; //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ;; //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;; // Check for Control Port #1 Activity ;; // Check for Control Port #1 Activity
stx $dc00 ;// Disconnect all Keyboard Rows stx $dc00 ;// Disconnect all Keyboard Rows
cpx $dc01 ;// Only Control Port activity will be detected cpx $dc01 ;// Only Control Port activity will be detected
bne ControlPort bne ControlPort
;; //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ;; //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;; // Scan Keyboard Matrix ;; // Scan Keyboard Matrix
ldx #7 ldx #7
lda #%11111110 lda #%11111110
* sta $dc00 next_row:
sta $dc00
pha pha
lda $dc01 lda $dc01
sta ScanResult,x sta ScanResult,x
@@ -222,35 +220,26 @@ skip0:
sec sec
rol rol
dex dex
bpl - bpl next_row
;; X gets back to $FF here, which is assumed below ;; X gets back to $FF here, which is assumed below
;; //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ;; //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;; // Check for Control Port #1 Activity (again) ;; // Check for Control Port #1 Activity (again)
stx $dc00 ;// Disconnect all Keyboard Rows stx $dc00 ;// Disconnect all Keyboard Rows
cpx $dc01 ;// Only Control Port activity will be detected cpx $dc01 ;// Only Control Port activity will be detected
bne ControlPort bne ControlPort
;; //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;; // Initialize Buffer, Flags and Max Keys
;; // Reset current read buffer
stx BufferNew
stx BufferNew+1
stx BufferNew+2
;; Make X = $00, assumed below ;; Make X = $00, assumed below
inx inx
;; // Set max keys allowed before ignoring result ;; // Set max keys allowed before ignoring result
lda #MaxKeyRollover lda #MaxKeyRollover
sta KeyQuantity sta KeyQuantity
;; //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ;; //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;; // Check and flag Non Alphanumeric Keys ;; // Check and flag Non Alphanumeric Keys
;; Store last row of keyboard scan result, ;; Store last row of keyboard scan result,
;; so that RUN/STOP etc can be checked easily ;; so that RUN/STOP etc can be checked easily
@@ -320,49 +309,49 @@ skip0:
no_case_toggle: no_case_toggle:
;; //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ;; //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;; // Check for pressed key(s) ;; // Check for pressed key(s)
lda ScanResult+7 lda ScanResult+7
cmp #$ff cmp #$ff
beq + beq sk6
jsr KeyInRow jsr KeyInRow
* sk6:
ldx #8 ldx #8
lda ScanResult+6 lda ScanResult+6
beq + beq sk5
jsr KeyInRow jsr KeyInRow
* sk5:
ldx #16 ldx #16
lda ScanResult+5 lda ScanResult+5
beq + beq sk4
jsr KeyInRow jsr KeyInRow
* sk4:
ldx #24 ldx #24
lda ScanResult+4 lda ScanResult+4
beq + beq sk3
jsr KeyInRow jsr KeyInRow
* sk3:
ldx #32 ldx #32
lda ScanResult+3 lda ScanResult+3
beq + beq sk2
jsr KeyInRow jsr KeyInRow
* sk2:
ldx #40 ldx #40
lda ScanResult+2 lda ScanResult+2
beq + beq sk1
jsr KeyInRow jsr KeyInRow
* sk1:
ldx #48 ldx #48
lda ScanResult+1 lda ScanResult+1
beq + beq sk0
jsr KeyInRow jsr KeyInRow
* sk0:
ldx #56 ldx #56
lda ScanResult+0 lda ScanResult+0
beq + beq skdone
jsr KeyInRow jsr KeyInRow
* skdone:
@@ -370,34 +359,54 @@ no_case_toggle:
;; // Key Scan Completed ;; // Key Scan Completed
;; // Put any new key (not in old scan) into buffer ;; // Put any new key (not in old scan) into buffer
ldx #MaxKeyRollover-1 ldx #MaxKeyRollover-1
* lda BufferNew,x
ProcessPressedKeys:
;; Check if the currently pressed key is continuing to be held down
lda BufferNew,x
sta $047A,X
cmp #$ff cmp #$ff
beq Exist ;; // Handle 'null' values beq ConsiderNextKey
cmp BufferOld cmp BufferOld
beq KeyHeld beq KeyHeld
cmp BufferOld+1 cmp BufferOld+1
beq KeyHeld beq KeyHeld
cmp BufferOld+2 cmp BufferOld+2
beq KeyHeld beq KeyHeld
RecordKeypress:
;;
sta $0450
pha
lda BufferOld
sta $0452
lda BufferOld+1
sta $0453
lda BufferOld+2
sta $0454
pla
RecordKeypress:
;; // New Key Detected ;; // New Key Detected
ldy BufferQuantity ldy BufferQuantity
cpy #$ff cpy #$ff
beq + beq NothingInBQ
cpy #MaxKeyRollover-1 cpy #MaxKeyRollover-1
bcs TooManyNewKeys bcs TooManyNewKeys
* NothingInBQ:
iny iny
sty BufferQuantity sty BufferQuantity
sta Buffer,y sta Buffer,y
Exist: ConsiderNextKey:
dex dex
bpl - bpl ProcessPressedKeys
;; // Anything in Buffer?
ldy BufferQuantity
;; // Anything in Buffer?
ldy BufferQuantity
bmi BufferEmpty bmi BufferEmpty
;; // Yes: Then return it and tidy up the buffer ;; // Yes: Then return it and tidy up the buffer
dec BufferQuantity dec BufferQuantity
@@ -434,14 +443,14 @@ KeyHeld:
sta key_repeat_counter sta key_repeat_counter
pla pla
BuckyHeld: BuckyHeld:
jmp Exist jmp ConsiderNextKey
SameKeyHeld: SameKeyHeld:
dec key_repeat_counter dec key_repeat_counter
bne + bne KeyRepeatWait
;; Count down ended, so repeat key now ;; Count down ended, so repeat key now
;; Reload key repeat counter
;; (Compute's Mapping the 64 p58) ;; (Compute's Mapping the 64 p58)
pha pha
lda #6-2 ; Fudge factor to match speed lda #6-2 ; Fudge factor to match speed
@@ -449,27 +458,28 @@ SameKeyHeld:
pla pla
jmp RecordKeypress jmp RecordKeypress
KeyRepeatWait:
* jmp Exist jmp ConsiderNextKey
BufferEmpty: ;; // No new Alphanumeric keys to handle. BufferEmpty: ;; // No new Alphanumeric keys to handle.
lda #$ff lda #$ff
Return: ;; // A is preset Return: ;; // A is preset
clc clc
;; // Copy BufferNew to BufferOld ;; // Copy BufferNew to BufferOld
ldx BufferNew
stx BufferOld
ldx BufferNew+1
stx BufferOld+1
ldx BufferNew+2
stx BufferOld+2
rts ldx BufferNew
stx BufferOld
ldx BufferNew+1
stx BufferOld+1
ldx BufferNew+2
stx BufferOld+2
rts
TooManyNewKeys: TooManyNewKeys:
sec sec
lda #$ff lda #$ff
sta BufferQuantity sta BufferQuantity
rts rts