add debug utils
This commit is contained in:
parent
bd083150c5
commit
aa55d5fb37
33
programs/ps2_keyboard_printer.s65
Normal file
33
programs/ps2_keyboard_printer.s65
Normal file
@ -0,0 +1,33 @@
|
|||||||
|
.include "lcd.h65"
|
||||||
|
.include "ps2_keyboard_text_handler.h65"
|
||||||
|
|
||||||
|
.export ps2_keyboard_printer
|
||||||
|
|
||||||
|
.import home:absolute
|
||||||
|
|
||||||
|
.code
|
||||||
|
.proc ps2_keyboard_printer
|
||||||
|
jsr lcd::clear
|
||||||
|
jsr kb::init
|
||||||
|
loop:
|
||||||
|
lda kb::char
|
||||||
|
beq @no_char
|
||||||
|
stz kb::char
|
||||||
|
jsr lcd::print_char
|
||||||
|
bra loop
|
||||||
|
@no_char:
|
||||||
|
lda kb::keycode
|
||||||
|
beq loop
|
||||||
|
|
||||||
|
cmp #kb::K::ESCAPE
|
||||||
|
beq @esacpe
|
||||||
|
cmp #kb::K::PRINT
|
||||||
|
beq @clear_display
|
||||||
|
bra loop
|
||||||
|
@esacpe:
|
||||||
|
jmp home
|
||||||
|
@clear_display:
|
||||||
|
jsr lcd::clear
|
||||||
|
bra loop
|
||||||
|
.endproc
|
||||||
|
|
||||||
33
programs/ps2_keyboard_simple_handler.h65
Normal file
33
programs/ps2_keyboard_simple_handler.h65
Normal file
@ -0,0 +1,33 @@
|
|||||||
|
;;********************************************************************************
|
||||||
|
;; @module ps2_keyboard_simple_handler
|
||||||
|
;; @type system
|
||||||
|
;; @details:
|
||||||
|
;; This module processes keyboard scancodes from the ps2_keyboard driver.
|
||||||
|
;; It requires a PS/2 keyboard that supports scancode set 3.
|
||||||
|
;;
|
||||||
|
;; @section What it does
|
||||||
|
;; - swallow break (release) scancodes
|
||||||
|
;;
|
||||||
|
;; This handler is designed for debug purposes.
|
||||||
|
;;
|
||||||
|
;; @section How to use it
|
||||||
|
;; Call `kb::init` and check if it was successful (Z = 1).
|
||||||
|
;; In your program loop, check if kb::scancode is 0. If it is not, a key has been pressed.
|
||||||
|
;;
|
||||||
|
;; @subsection Changing the keyboard behaviour
|
||||||
|
;; You can change the typematic rate and delay (see PS/2 keyboard command 0xF3)
|
||||||
|
;; and the typematic behavior (make, make/release, typematic) for all keys.
|
||||||
|
;;
|
||||||
|
;; You may also send the echo (0xEE) and identify (0xF2) commands to the keyboard.
|
||||||
|
;;********************************************************************************
|
||||||
|
.ifndef INCLUDE_KEYBOARD_SIMPLE
|
||||||
|
INCLUDE_KEYBOARD_SIMPLE = 1
|
||||||
|
|
||||||
|
.include "ps2_keyboard.h65"
|
||||||
|
|
||||||
|
.scope skb
|
||||||
|
Import skb, init, scancode
|
||||||
|
|
||||||
|
K_BREAK = $F0
|
||||||
|
.endscope
|
||||||
|
.endif ; guard
|
||||||
77
programs/ps2_keyboard_simple_handler.s65
Normal file
77
programs/ps2_keyboard_simple_handler.s65
Normal file
@ -0,0 +1,77 @@
|
|||||||
|
.include "ps2_keyboard_simple_handler.h65"
|
||||||
|
Export skb, init, scancode
|
||||||
|
|
||||||
|
.bss
|
||||||
|
previous_scancode: .res 1 ; all 1 if previous_scancode is break
|
||||||
|
scancode: .res 1
|
||||||
|
|
||||||
|
.code
|
||||||
|
;;********************************************************************************
|
||||||
|
;; @function Initialize the keyboard handler
|
||||||
|
;; @returns Z: Z = 1 => success, Z = 0 => failure
|
||||||
|
;; @details:
|
||||||
|
;; Initializes the PS/2 keyboard driver and the handler.
|
||||||
|
;; If any PS/2 command fails, init returns with Z = 0. The failed command (and parameter) can be loaded from `ps2kb::send_cmd` and `ps2kb::send_data`
|
||||||
|
;; After init, the keyboard will be able to send scancodes.
|
||||||
|
;;********************************************************************************
|
||||||
|
.proc init
|
||||||
|
stz scancode
|
||||||
|
stz previous_scancode
|
||||||
|
|
||||||
|
jsr ps2kb::init
|
||||||
|
|
||||||
|
; init & reset
|
||||||
|
ps2kb_CmdSelfTest
|
||||||
|
ps2kb_WaitFinishCmd
|
||||||
|
lda ps2kb::cmd_response+1
|
||||||
|
cmp #$aa
|
||||||
|
bne fail
|
||||||
|
; set set 3
|
||||||
|
ps2kb_CmdSetScancodeSet 3
|
||||||
|
ps2kb_WaitFinishCmd
|
||||||
|
lda ps2kb::cmd_response+1
|
||||||
|
cmp #ps2kb::ACK
|
||||||
|
bne fail
|
||||||
|
|
||||||
|
ps2kb_CmdEnable
|
||||||
|
ps2kb_WaitFinishCmd
|
||||||
|
lda ps2kb::cmd_response
|
||||||
|
cmp #ps2kb::ACK
|
||||||
|
bne fail
|
||||||
|
|
||||||
|
StoreDByte process_scancode, ps2kb::scancode_handler
|
||||||
|
jsr ps2kb::begin_receive
|
||||||
|
lda #0 ; set Z = success
|
||||||
|
fail:
|
||||||
|
rts
|
||||||
|
.endproc
|
||||||
|
|
||||||
|
|
||||||
|
;;********************************************************************************
|
||||||
|
;; @function Process a scancode
|
||||||
|
;; @details
|
||||||
|
;; If it is a 'make' scancode, store it in skb::scancode
|
||||||
|
;; If the key is not a mod key, the keycode is stored in kb::keycode
|
||||||
|
;; If the key is an ascii character, the corresponding ascii character is stored in kb::char
|
||||||
|
;; @param X: The scancode
|
||||||
|
;; @modifies A, X, Y
|
||||||
|
;;********************************************************************************
|
||||||
|
.proc process_scancode
|
||||||
|
; check how this scancode needs to be interpreted
|
||||||
|
bit previous_scancode
|
||||||
|
jmi break_key ; bit 7 set = BREAK
|
||||||
|
|
||||||
|
lda ps2kb::scancode
|
||||||
|
cmp #skb::K_BREAK
|
||||||
|
beq @break_scancode
|
||||||
|
|
||||||
|
sta scancode
|
||||||
|
rts
|
||||||
|
@break_scancode:
|
||||||
|
lda #$ff
|
||||||
|
sta previous_scancode
|
||||||
|
rts
|
||||||
|
break_key:
|
||||||
|
stz previous_scancode
|
||||||
|
rts
|
||||||
|
.endproc
|
||||||
135
programs/ps2_keyboard_util.s65
Normal file
135
programs/ps2_keyboard_util.s65
Normal file
@ -0,0 +1,135 @@
|
|||||||
|
.include "system.h65"
|
||||||
|
.include "string.h65"
|
||||||
|
.include "keypad.h65"
|
||||||
|
.include "lcd.h65"
|
||||||
|
.include "ps2_keyboard_simple_handler.h65"
|
||||||
|
.include "ps2_keyboard_text_handler.h65"
|
||||||
|
|
||||||
|
.export ps2_keyboard_util
|
||||||
|
|
||||||
|
.import home:absolute
|
||||||
|
|
||||||
|
.code
|
||||||
|
.proc ps2_keyboard_util
|
||||||
|
stz kp::_DEBUG_VAL
|
||||||
|
jsr skb::init
|
||||||
|
beq print_menu
|
||||||
|
ps2kb_PrintCmdFailed
|
||||||
|
bra loop
|
||||||
|
print_menu:
|
||||||
|
Print MENU
|
||||||
|
loop:
|
||||||
|
wai
|
||||||
|
lda skb::scancode
|
||||||
|
beq @read_keypad
|
||||||
|
Printf FMT_CODE,skb::scancode
|
||||||
|
stz skb::scancode
|
||||||
|
@read_keypad:
|
||||||
|
lda kp::_DEBUG_VAL
|
||||||
|
jeq loop
|
||||||
|
stz kp::_DEBUG_VAL
|
||||||
|
cmp #'*'
|
||||||
|
jeq home
|
||||||
|
pha
|
||||||
|
jsr lcd::clear
|
||||||
|
pla
|
||||||
|
ldy #0 ; arg for commands
|
||||||
|
ldx #ps2kb::NO_DATA
|
||||||
|
cmp #'0'
|
||||||
|
beq @l0
|
||||||
|
cmp #'1'
|
||||||
|
beq @l1
|
||||||
|
cmp #'2'
|
||||||
|
beq @l2
|
||||||
|
cmp #'3'
|
||||||
|
beq @l3
|
||||||
|
cmp #'4'
|
||||||
|
beq @l4
|
||||||
|
cmp #'5'
|
||||||
|
beq @l5
|
||||||
|
cmp #'6'
|
||||||
|
beq @l6
|
||||||
|
cmp #'7'
|
||||||
|
beq @l7
|
||||||
|
cmp #'8'
|
||||||
|
beq @l8
|
||||||
|
cmp #'9'
|
||||||
|
beq @l9
|
||||||
|
cmp #'#'
|
||||||
|
beq @lhash
|
||||||
|
cmp #'A'
|
||||||
|
beq @lA
|
||||||
|
cmp #'B'
|
||||||
|
beq @lB
|
||||||
|
cmp #'C'
|
||||||
|
beq @lC
|
||||||
|
cmp #'D'
|
||||||
|
beq @lD
|
||||||
|
jsr lcd::print_char
|
||||||
|
jmp loop
|
||||||
|
@l0: ; get scancode set
|
||||||
|
lda #$f0
|
||||||
|
ldx #0
|
||||||
|
ldy #1
|
||||||
|
bra @send_cmd
|
||||||
|
@l1: ; echo
|
||||||
|
lda #$ee
|
||||||
|
bra @send_cmd
|
||||||
|
@l2: ; identify
|
||||||
|
lda #$f2
|
||||||
|
ldy #2
|
||||||
|
bra @send_cmd
|
||||||
|
@l3: ; set typematic min speed and delay
|
||||||
|
lda #$f3
|
||||||
|
ldx #%01111111
|
||||||
|
bra @send_cmd
|
||||||
|
@l4: ; enable
|
||||||
|
lda #$f4
|
||||||
|
bra @send_cmd
|
||||||
|
@l5: ; disable
|
||||||
|
lda #$f5
|
||||||
|
bra @send_cmd
|
||||||
|
@l6: ; set typematic max speed and min delay
|
||||||
|
lda #$f3
|
||||||
|
ldx #0
|
||||||
|
bra @send_cmd
|
||||||
|
@l7: ; set typematic all
|
||||||
|
lda #$f7
|
||||||
|
bra @send_cmd
|
||||||
|
@l8: ; set make/release all
|
||||||
|
lda #$f8
|
||||||
|
bra @send_cmd
|
||||||
|
@l9: ; set CAPSLOCK
|
||||||
|
lda #$ed
|
||||||
|
ldx #kb::MOD::CAPSLOCK
|
||||||
|
bra @send_cmd
|
||||||
|
@lhash: ; set SCROLLLOCK led
|
||||||
|
lda #$ed
|
||||||
|
ldx #kb::MOD::SCROLLLOCK
|
||||||
|
bra @send_cmd
|
||||||
|
@lC: ; set NUMLOCK led
|
||||||
|
lda #$ed
|
||||||
|
ldx #kb::MOD::NUMLOCK
|
||||||
|
bra @send_cmd
|
||||||
|
@lD: ; turn all leds off
|
||||||
|
lda #$ed
|
||||||
|
ldx #0
|
||||||
|
bra @send_cmd
|
||||||
|
@lA:
|
||||||
|
; TODO
|
||||||
|
@lB: ; reprint menu
|
||||||
|
jmp print_menu
|
||||||
|
@send_cmd:
|
||||||
|
jsr ps2kb::send_command
|
||||||
|
ps2kb_WaitFinishCmd
|
||||||
|
Printf FMT_CMD_DATA, ps2kb::send_cmd, ps2kb::send_data, ps2kb::cmd_response, ps2kb::cmd_response+1, ps2kb::cmd_response+2
|
||||||
|
jmp loop
|
||||||
|
.endproc
|
||||||
|
|
||||||
|
.rodata
|
||||||
|
FMT_CODE: .asciiz "K %x "
|
||||||
|
FMT_CMD_DATA: .asciiz "C %x-%x > %x%x%x"
|
||||||
|
MENU: .byte " EE F2 F3 "
|
||||||
|
.byte " F4 F5 F3' MEN"
|
||||||
|
.byte " T1 T0 LC LN "
|
||||||
|
.asciiz " RET F0 LS L0 "
|
||||||
Loading…
Reference in New Issue
Block a user