penguin86/pato-z80-home-computer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Quick 2x2 keyboard test

Browse Source
This commit is contained in:
Daniele Verducci su MatissePenguin 2020-11-01 21:11:42 +01:00
parent de09c0353e
commit dbca35cfc5
3 changed files with 29 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
assembly/bios/driver_hd44780.asm
View File

@ -61,6 +61,13 @@ Lcd_print:
ld (lcd_cur_x), a ; else set y pos to 0 ld (lcd_cur_x), a ; else set y pos to 0
jp Lcd_print jp Lcd_print
; Writes a single character at current cursror position
; @param A Value of character to print
Lcd_printc:
out (LCD_DATA_REG),a
ret
; Set cursor position ; Set cursor position
; @param B X-axis position (0 to 19) ; @param B X-axis position (0 to 19)
; @param C Y-axis position (0 to 3) ; @param C Y-axis position (0 to 3)

22
assembly/bios/driver_keyboard.asm
View File

@ -27,4 +27,24 @@
; Reads the keyboard ; Reads the keyboard
; @return: a 0-terminated array of keycodes representing the pressed keys ; @return: a 0-terminated array of keycodes representing the pressed keys
Keyb_read: Keyb_read:
in (KEYB_A0_REG),a in a, (KEYB_A0_REG)
cp 0
jp z, _keyb_read_a1
add a, %01000000
call Lcd_printc ; A already contains char to print
_loop:
in a, (KEYB_A0_REG)
cp 0
jp nz, _loop
ret
_keyb_read_a1:
in a, (KEYB_A1_REG)
cp 0
ret z
add a, %01010000
call Lcd_printc ; A already contains char to print
_loop2:
in a, (KEYB_A1_REG)
cp 0
jp nz, _loop2
ret

2
assembly/bios/main.asm
View File

@ -74,5 +74,5 @@ Sysinit:
; poll keyboard ; poll keyboard
_poll_keyb: _poll_keyb:
call Keyb_read call Keyb_read
jp poll_keyb jp _poll_keyb