seed input with keyboard

Author: zohassadar

src/gamemode/gametypemenu/menu.asm

@@ -140,6 +140,7 @@ seedControls:
         lda #BUTTON_RIGHT
         jsr menuThrottle
         beq @skipSeedRight
+@moveRight:
         lda #$01
         sta soundEffectSlot1Init
         inc menuSeedCursorIndex
@@ -151,7 +152,38 @@ seedControls:
 @skipSeedRight:
 
         lda menuSeedCursorIndex
+.if KEYBOARD <> 1
         beq @skipSeedControl
+.else
+        bne @readKeys
+        jmp @skipSeedControl
+@readKeys:
+        jsr readKbSeedEntry
+        bmi @noKeysPressed
+        sta generalCounter
+        ldy menuSeedCursorIndex
+        dey
+        tya
+        lsr
+        tay ; save seed offset
+        bcc @highByte
+        lda set_seed_input,y
+        and #$F0
+        ora generalCounter
+        sta set_seed_input,y
+        jmp @moveRight
+@highByte:
+        lda set_seed_input,y
+        and #$0F
+        asl generalCounter
+        asl generalCounter
+        asl generalCounter
+        asl generalCounter
+        ora generalCounter
+        sta set_seed_input,y
+        jmp @moveRight
+@noKeysPressed:
+.endif
 
         lda menuSeedCursorIndex
         sbc #1

src/nmi/pollkeyboard.asm

@@ -201,6 +201,47 @@ pollKeyboard:
 ; each byte represents row, column and if shift should be read
 ; only keys supported by the score entry routine are included
 
+charToSeedMap:
+        .byte key0
+        .byte key1
+        .byte key2
+        .byte key3
+        .byte key4
+        .byte key5
+        .byte key6
+        .byte key7
+        .byte key8
+        .byte key9
+        .byte keyA
+        .byte keyB
+        .byte keyC
+        .byte keyD
+        .byte keyE
+        .byte keyF
+charToSeedMapEnd:
+
+seedChars = <(charToSeedMapEnd - charToSeedMap) - 1
+
+readKbSeedEntry:
+        ldx #seedChars
+@readLoop:
+        lda charToSeedMap,x
+        jsr readKey
+        bne @seedEntered
+        dex
+        bpl @readLoop
+@seedEntered:
+        txa
+        cmp kbHeldInput
+        beq @noInput
+        sta kbHeldInput
+        lda kbHeldInput
+        rts
+@noInput:
+        lda #$FF
+        rts
+
+
 charToKbMap:
         .byte keySpace
         .byte keyA