Cleaned up Font
Startet working on Keyboard Routines
This commit is contained in:
parent
fdacbb1deb
commit
f4fdca7fee
BIN
assets/ASCII.bin
BIN
assets/ASCII.bin
Binary file not shown.
BIN
assets/ASCII.bmf
BIN
assets/ASCII.bmf
Binary file not shown.
BIN
assets/font.bin
Executable file
BIN
assets/font.bin
Executable file
Binary file not shown.
BIN
assets/thin.bmf
Executable file
BIN
assets/thin.bmf
Executable file
Binary file not shown.
@ -28,49 +28,6 @@ keyboard_scan:
|
|||||||
sta soft_system_register
|
sta soft_system_register
|
||||||
sta system_register
|
sta system_register
|
||||||
|
|
||||||
ldy #$00 ; Result Index
|
|
||||||
ldx #$00 ; Row Counter
|
|
||||||
|
|
||||||
keyboard_scan_load:
|
|
||||||
lda #$fe ; Bit shifter
|
|
||||||
|
|
||||||
keyboard_scan_loop:
|
|
||||||
cmp keyboard_port
|
|
||||||
beq keyboard_scan_return
|
|
||||||
iny
|
|
||||||
rol
|
|
||||||
cmp #$fe
|
|
||||||
bne keyboard_scan_loop
|
|
||||||
inx
|
|
||||||
cpx #$08 ; Checking if Counted to 7
|
|
||||||
beq keyboard_scan_return
|
|
||||||
|
|
||||||
|
|
||||||
inc soft_system_register
|
|
||||||
lda soft_system_register
|
|
||||||
sta system_register
|
|
||||||
|
|
||||||
jmp keyboard_scan_load
|
|
||||||
|
|
||||||
keyboard_scan_return:
|
|
||||||
sty k0
|
|
||||||
lda soft_system_register
|
|
||||||
ora #$05
|
|
||||||
sta system_register
|
|
||||||
lda keyboard_port
|
|
||||||
tax
|
|
||||||
and #$0f
|
|
||||||
tay ; => Arrow Keys
|
|
||||||
txa
|
|
||||||
rol
|
|
||||||
rol
|
|
||||||
rol
|
|
||||||
rol
|
|
||||||
and #$07
|
|
||||||
|
|
||||||
tax ; => Modifier Keys
|
|
||||||
lda k0 ; => Scancode
|
|
||||||
rts
|
|
||||||
|
|
||||||
keyboard_translate:
|
keyboard_translate:
|
||||||
; Keyboard Translate
|
; Keyboard Translate
|
||||||
|
17
src/main.s
17
src/main.s
@ -1,5 +1,5 @@
|
|||||||
; Important To-Do!
|
; Important To-Do!
|
||||||
;
|
;
|
||||||
; Get launch & tasks json working
|
; Get launch & tasks json working
|
||||||
; fix Keyboard scanning
|
; fix Keyboard scanning
|
||||||
; work on KernelRoutinesList.txt
|
; work on KernelRoutinesList.txt
|
||||||
@ -8,15 +8,15 @@
|
|||||||
; Does not support the Graphics module !
|
; Does not support the Graphics module !
|
||||||
|
|
||||||
|
|
||||||
.include "src/variables.s"
|
.include "src/variables.s"
|
||||||
|
|
||||||
|
|
||||||
.org $c000 ; $c000 for 16k ROM
|
.org $c000 ; $c000 for 16k ROM
|
||||||
.include "src/kernel.s"
|
.include "src/kernel.s"
|
||||||
|
|
||||||
|
|
||||||
.org $f700
|
.org $f700
|
||||||
charset: .incbin "assets/UTF-8.bin"
|
charset: .incbin "assets/font.bin"
|
||||||
|
|
||||||
.org $ff00
|
.org $ff00
|
||||||
reset: sei
|
reset: sei
|
||||||
@ -29,7 +29,7 @@ reset: sei
|
|||||||
|
|
||||||
lda #$E0
|
lda #$E0
|
||||||
sta vidm
|
sta vidm
|
||||||
|
|
||||||
lda #$60
|
lda #$60
|
||||||
sta cursor_delay
|
sta cursor_delay
|
||||||
lda #$06
|
lda #$06
|
||||||
@ -86,7 +86,8 @@ lp:
|
|||||||
cpy #$10
|
cpy #$10
|
||||||
bne lp
|
bne lp
|
||||||
|
|
||||||
loop:
|
loop:
|
||||||
|
|
||||||
jmp loop
|
jmp loop
|
||||||
|
|
||||||
irq_jump: jmp (irq_vector)
|
irq_jump: jmp (irq_vector)
|
||||||
@ -97,4 +98,4 @@ irq_jump: jmp (irq_vector)
|
|||||||
.addr reset
|
.addr reset
|
||||||
.addr irq_jump
|
.addr irq_jump
|
||||||
|
|
||||||
.end
|
.end
|
||||||
|
Loading…
Reference in New Issue
Block a user