Added tool for changing the arrow key configuration

Author: venomix666

arch/nano-z80/README.md

@@ -21,6 +21,8 @@ By default, only drive `A:` is formatted. To use the additional drives, run `mkf
 
 UART B (the one on the TTL UART header) supports changing baudrates, this can be done either using the `baudrate.com` tool or from inside `nanoterm`.
 
+The USB keyboard arrow key configuration defaults to ADM3A key codes. This can be changed to WordStar or EMACS/MINCE key codes with the `arrowkey.com` tool.
+
 If you put the SD-card in a SD-card reader on a Linux machine, the diskdefs file in the
 cpmish root allows you to read and write files to the A: drive, e.g.:
 

arch/nano-z80/build.py

@@ -78,6 +78,7 @@
         "colorfg.com": "arch/nano-z80/tools+colorfg",
         "colorbg.com": "arch/nano-z80/tools+colorbg",
         "cls.com" : "arch/nano-z80/tools+cls",
+        "arrowkey.com" : "arch/nano-z80/tools+arrowkey",
         },
 )
 

arch/nano-z80/include/nano-z80.lib

@@ -51,6 +51,7 @@ USB_GAME_BUT2   equ $07         ; USB gamepad buttons reg 2
 USB_NEW_REP     equ $08         ; USB new report available
 USB_DEV_TYPE    equ $09         ; USB device type
 USB_ERROR       equ $0a         ; USB error
+USB_ARROWKEY	equ $0b		; USB keyboard arrow key configuration
 KB_AVAIL        equ $74         ; Keyboard character available, non-banked
 KB_CHAR         equ $75         ; Keyboard character, non-banked
 

arch/nano-z80/tools/arrowkey.z80

@@ -0,0 +1,96 @@
+	maclib addresses
+
+IOBANK      = 0x7f
+IO_SELECT_USB = 0x02
+USB_ARROWKEY = 0x0b
+
+
+	cseg
+	org 0x100
+        
+        call print_string_inline
+        db "nano-z80 arrow key configuration tool"
+        db 13,10
+        db 13,10
+        db "Current arrow key setting: "
+        db 0
+        ; Print the current setting
+	ld a, IO_SELECT_USB 
+	out (IOBANK), a
+        in a,(USB_ARROWKEY)
+
+        cp 0
+        jr nz, checkws
+        call print_string_inline
+        db "ADM3A"
+        db 0
+        jr check_done
+checkws:
+        cp 1
+        jr nz, checkemacs
+        call print_string_inline
+        db "WordStar"
+        db 0
+        jr check_done
+checkemacs:
+        cp 2
+        jr nz, check_3
+        call print_string_inline
+        db "EMACS/MINCE"
+        db 0
+        jr check_done
+check_3:
+       ; No check needed
+        call print_string_inline
+        db "ADM3A (redundant)"
+        db 0
+check_done:
+        call print_string_inline
+        db 13,10,13,10
+        db "Please select new configuration:"
+        db 13,10
+        db "1: ADM3A"
+        db 13,10
+        db "2: WordStar"
+        db 13,10
+        db "3: EMACS/MINCE"
+        db 13,10,0
+
+        ; Get input
+        call BBASE+0x09 ; CONIN
+        cp '1'
+        jr c, illegal_input
+        cp '4'
+        jr c, accepted_input
+        jr illegal_input
+accepted_input:
+        dec a
+        ld b, a
+        ld a, IO_SELECT_USB 
+	out (IOBANK), a
+        ld a, b
+        out (USB_ARROWKEY), a
+        call print_string_inline
+        db 13,10
+        db "Configuration updated"
+        db 0
+        ret
+
+illegal_input:
+        call print_string_inline
+        db 13,10
+        db "Illegal selection"
+        db 0
+        ret
+print_string_inline:
+        pop hl
+        ld a,(hl)
+        inc hl
+        push hl
+        cp 0
+        ret z
+        ld c, a
+        call BBASE+0x0c ; CONOUT
+        jr print_string_inline
+
+

arch/nano-z80/tools/build.py

@@ -37,6 +37,14 @@
     ],
 )
 
+zmac(
+    name="arrowkey",
+    relocatable=False,
+    src="./arrowkey.z80",
+    deps=[
+        "arch/nano-z80+addresses",
+    ],
+)
 
 ackprogram(
     name="nanoterm",