Merge pull request #193 from venomix666/arrowkeys

Filtering of arrow keys in TTY-driver
davidgiven · Oct 18, 2024 · 860b5ef · 860b5ef
2 parents 025e71d + 10ed7df
commit 860b5ef
Show file tree

Hide file tree

Showing 3 changed files with 17 additions and 1 deletion.
diff --git a/src/arch/commodore/pet.S b/src/arch/commodore/pet.S
@@ -582,6 +582,11 @@ zproc tty_conin
         lda #0xff
         ldx #0xff
         jsr screen_getchar
+        ; Filter out arrow keys
+        cmp #$80
+        zif_cs
+            lda #0
+        zendif
     zuntil_cc
 
     rts

diff --git a/src/arch/nano6502/nano6502.S b/src/arch/nano6502/nano6502.S
@@ -313,7 +313,7 @@ zproc tty_conin
     lda pending_key
     zif_eq
 tty_input_wait:
-	lda #IO_page_uart
+	    lda #IO_page_uart
         sta IO_page_reg
         lda uart_rx_avail
         beq tty_input_keyb
@@ -326,6 +326,11 @@ tty_input_keyb:
         lda keyb_data_avail
         beq tty_input_wait
         lda keyb_data
+        ; Filter out arrow keys
+        cmp #$80
+        zif_cs
+            lda #0
+        zendif
         clc
         rts
     zendif

diff --git a/src/arch/oric/oric.S b/src/arch/oric/oric.S
@@ -689,6 +689,7 @@ zproc tty_const
     zendif
 
     lda pending_key
+
     zif_ne
         lda #0xff
     zendif
@@ -704,6 +705,11 @@ zproc tty_conin
         lda #0xff
         ldx #0xff
         jsr screen_getchar
+        ; Filter out arrow keys
+        cmp #$80
+        zif_cs
+            lda #0
+        zendif
     zuntil_cc
 
     rts