 
ô > USBKBD/src v0.42  ô Background keyboard driver : (ô v0.30 17-Nov-2017: 2?ô Works with Vinculum v1 with keyboard as device 0 (no hub) <Hô Does not work with Vinculum v1 with a hub - DCv1 doesn't like hubs F: Pô v0.40 12-May-2018: ZKô Steps through addresses to find HID device, starts at device 1 if hub dDô  present, Vinculum v2 doesn't respond to DRD reading from hub. nHô Vinculum v2 HID responds verrrry slowly, eventually stalls system. x: ‚ô v0.41 11-Nov-2018: ŒCô Alt converted to Shift+Ctrl, Alt+fkey same as Shift+Ctrl+fkey –Fô Should be tested for explicitly, as Alt+letter functions as Ctrl  ;ô and Alt+nothing functions as Shift+Ctrl scroll pause. ª: ´ô v0.42 15-Dec-2018: ¾4ô Optimised modifier testing, added Alt modifier ÈBô Alt only modifies special keys, doesn't do Shift+Ctrl pause. Ò: Ü
kbd%=1 æOSBYTE=&FFF4:OSARGS=&FFDA ð"EVNTV=&220:KEYV=&228:INSV=&22A úusb_D=&FCF8:usb_S=&FCF9:!Þ mcode% &300:load%=&FFFF08BCã P=0 ¸ 1"P%=load%:O%=mcode%,[OPT P*3+46
.exec%@.usb_InitJ)LDX #usb_SCS-usb_Cmd:JSR usb_CmdSend6T%JSR usb_Flush:CMP #&80  :\ Cy=HUB^€ #8:BEQ usb_NoKbdh5BCS usb_InitLp1a        :\ HUB, start at device 1r.usb_InitLp1|)LDX #usb_SC0-usb_Cmd:JSR usb_CmdSend6†&JSR usb_Flush:CMP #8:BEQ usb_Init2.usb_InitLp1ašINC usb_SC0+2:LDA usb_SC0+2¤)CMP #13:BNE usb_InitLp1:BEQ usb_NoKbd®.usb_Init2¸PHP:SEI:LDX #1Â.usb_InitLp3ÌLDA KEYV,X:STA oldKEYV+1,XÖ"LDA usb_Vectors+0,X:STA KEYV,Xà#LDA usb_Vectors+2,X:STA EVNTV,XêDEX:BPL usb_InitLp3ô!PLP:LDA #14:LDX #4:JMP OSBYTEþ.usb_VectorsEQUW usb_KEY:EQUW usb_EVNT:.usb_NoKbd&$BRK:EQUB 214:EQUS "No kbd?":\BRK0".kbd_lastK:BRK:.kbd_modify:BRK::D.usb_CmdSend6N
LDY #6X.usb_CmdSendb!TXA:PHA:JSR usb_Flush:PLA:TAXl.usb_CmdSendLp1vLDA usb_Cmd,X:JSR usb_Wr€INX:DEY:BEQ usb_RdŠCMP #13:BNE usb_CmdSendLp1”.usb_CmdSendLp2ž)JSR usb_Rd:CMP #13:BNE usb_CmdSendLp2¨BEQ usb_CmdSend²:¼".usb_Flush  :BIT usb_D:LDX #64Æ$.usb_FlushLp:DEX:BNE usb_FlushLpÐBIT usb_S:BPL usb_Flush:RTSÚ:ä4.usb_Rd:BIT &FF:BMI usb_Rd2:BIT usb_S:BMI usb_Rdî.usb_Rd2:LDA usb_D:RTSø4.usb_Wr:BIT &FF:BMI usb_Wr2:BIT usb_S:BVS usb_Wr#.usb_Wr2:STA usb_D:.usb_bye:RTS:.usb_KEY BVS oldKEYV:BCS oldKEYV*KJSR oldKEYV:BMI usb_bye:BVS usb_bye    :\ oldKEYV Shift or Ctrl pressed4MBIT kbd_modify:PHP:PLA:RTS             :\ Set flags and A from Shift/Ctrl>.oldKEYVH	JMP 0R:\.usb_EVNTf8CMP #4:BNE usb_bye                      :\ Not VSyncp:z9\ We are running event code, so all IRQs are disabled„,\ So we can use IRQ workspace at &FA/&FBŽ\˜@LDX #0:LDY #12:JSR usb_CmdSend         :\ Read from keyboard¢KCLC:BEQ kbd_flush:CMP #9:BCS kbd_flush :\ Null packet or invalid packet¬9JSR usb_Rd:JSR usb_Rd:TAY              :\ Y=modifiers¶CJSR usb_Rd:JSR usb_Rd:CMP #&FF         :\ A=keypress, set CC+NEÀ.kbd_flushÊAPHP:JSR usb_Flush:PLP:BCS kbd_exit     :\ Not our data packetÔ;\BIT usb_D:\BIT sub_S:\BPL kbd_flush:\BCS kbd_exit:\TAXÞ:è\ CS   =null/invalid packetò7\ CC+EQ=no data received, no change to keys pressedü<\ CC+NE=keypress, might be same or different to last key;BEQ kbd_repeat                         :\ No key change8PHA:TYA:STA &FA                        :\ A=gascgasc8ASL A:ASL A:ASL A:ASL A                :\ A=gasc0000$5„A &FA:€ #&F0                       :\ A=GASC0000.>ASL A:ASL A:ROL A                      :\ A=C000000A, Cy=S87BCC P%+4:„A #&40                      :\ A=CS00000ABGSTA kbd_modify                         :\ b7=ctrl, b6=shift, b0=altL:VCPLA:CMP kbd_lastK:BEQ kbd_repeat       :\ Same key pressed down`@STA kbd_lastK                          :\ New or no keypressjKLDX &254:STX &E7                       :\ Copy KeyDelay to KeyCountdownt.kbd_keypress~9JSR kbd_convert:BCS kbd_exit           :\ No keypressˆ6TAY:‚ &26C:BNE kbd_insert            :\ Not Escape’?STA &E7                                :\ Cancel autorepeatœ.kbd_insert¦
LDX #3°.kbd_saveºDLDA &EE,X:PHA:DEX:BNE kbd_save         :\ Save OSBYTE parametersÄKLDA #153:JSR OSBYTE:LDX #&FD           :\ Insert with Escape processingÎ.kbd_restoreØGPLA:STA &F2,X:INX:BNE kbd_restore      :\ Restore OSBYTE parametersâ.kbd_exitìRTSö: .kbd_repeat
=LDA &E7:BEQ kbd_exit                   :\ Repeat disabledCDEC &E7:BEQ P%+6:DEC &E7:BNE kbd_exit  :\ Countdown not reachedLLDA &255:STA &E7                       :\ Copy KeyRepeat to KeyCountdown(ELDA kbd_lastK:JMP kbd_keypress         :\ Insert another keypress2:<.kbd_convertFCMP #&39:BNE kbd_notcapsP0LDA &25A:‚ #16:STA &25A:RTS          :\ CAPSZ.kbd_notcapsdBSEC:SBC #4:BPL kbd_test:SBC #&1F       :\ Reduce range if &84+n.kbd_testx9CMP #&69:BCS kbd_exit                  :\ No keypress‚;LDX kbd_modify:STX &FA                 :\ Get modifiersŒ0ADC #—"A":CMP #—"[":BCC kbd_tab    :\ Letter–1SBC #42:CMP #—"9"+1:BCC kbd_tab      :\ Digit TAX:LDA kbd_keytable-58,Xª1BNE kbd_tab:LDA &26B                   :\ TAB´.kbd_tab¾5CMP #—"!":BCC kbd_exit               :\ ctrls+spcÈACMP #127:BEQ kbd_done:BCS kbd_topset   :\ DEL and topbit keysÒ<CPX #&7B:BEQ kbd_nonalpha              :\ Special JP '\'Ü7CMP #—"_":BCS kbd_nonalpha           :\ &5F and &60æ<CMP #—"A":BCS kbd_alpha              :\ Letters and [\]^ð.kbd_nonalphaú6BIT &FA:BVC kbd_noshift                :\ No SHIFTA€ #&1F:TAX:LDA kbd_shift,X           :\ Get shifted character.kbd_noshiftDCMP #—"@":BCS kbd_ctrl:RTS           :\ If alpha, check for CTRL".kbd_topset,=CMP #&E0:BCC kbd_top1                  :\ Not keypad keys6CBNE kbd_keypad:LDA #&CD                :\ Special case for KRet@.kbd_keypadJ@LDX &27E:BNE kbd_keypad1:SBC #&D0:SEC  :\ If base=0, use '0'T.kbd_keypad1^CSBC #&F0:CLC:ADC &27E:\CLC:\RTS        :\ Translate keypad keyshCBPL kbd_done                           :\ b7=0, return keypressr.kbd_top1|@LSR &FA                                :\ &FA=0CS00000, Cy=A†@ROR &FA                                :\ &FA=A0CS0000, Cy=05BPL P%+4:‚ #&B0                      :\ Apply ALTš@‚ &FA:RTS                            :\ Apply CTRL and SHIFT¤.kbd_alpha®ECMP #—"[":BCS tab_alpha2             :\ Skip past if not a letter¸=ROR A:‚ &25A:€ #&EF:‚ &25A:ROL A :\ Apply CAPS to lettersÂ.tab_alpha2Ì7BIT &FA:BVC kbd_ctrl:‚ #32           :\ Apply SHIFTÖ.kbd_ctrlà6BIT &FA:BPL kbd_done:€ #31           :\ Apply CTRLê.kbd_doneôCLC:RTSþ:.usb_Cmd.usb_SCS:EQUB &10:EQUB 13.usb_IPH:EQUB &91:EQUB 13&.usb_QP2:EQUB &2C:EQUB 130/.usb_SC0:EQUB &86:EQUB &20:EQUB &00:EQUB 13:.usb_DRD:EQUB &84:EQUB 13D:N.kbd_shiftX:EQUS À"~!@~$%&""()*+<_>?)!@#$%^&*(*:<+>?",kbd%=0):\ USb:EQUS À"~!@~$%&@()*+<_>?)!""`$%^&*(*:<+>?",kbd%=1):\ UKlH\EQUSLEFT$("@!@~$%&'()*+<=>?0!""#$%&'()*+<+>`",kbd%=2):\ JP/BBC/ECMAvCEQUS À"@!@~$%&'()*+<=>?_!""#$%&'()*+_+>`",kbd%=2):\ JP/BBC/ECMA€1\ Shift+     !"#$%&'()*+,-./012 3456789c;<=>?Š1\           @ABCDEFGHIJKLMNOPQR STUVWXYZ[\]^_”0\           `abcdefghijklmnopqr stuvwxyz{|}~ž\¨.kbd_keytable²5EQUB 48:EQUB 13:EQUB 27:EQUB 127:EQUB 0:EQUS " -"¼!EQUS À"=[]\#;'`",kbd%=0):\ USÆ!EQUS À"=[]\#;'`",kbd%=1):\ UKÐ*EQUS À"^@[\];:_",kbd%=2):\ JP/BBC/ECMAÚKEQUS ",./":EQUB 1:EQUB &81:EQUB &82:EQUB &83:EQUB &84:EQUB &85:EQUB &86äKEQUB &87:EQUB &88:EQUB &89:EQUB &CA:EQUB &CB:EQUB &CC:EQUB &80:EQUB &C3îKEQUB &8A:EQUB &CD:EQUB &C8:EQUB &9F:EQUB &7F:EQUB &8B:EQUB &9E:EQUB &8Dø'EQUB &8C:EQUB &8E:EQUB &8F:EQUB &C2;EQUB &C0+—"/":EQUB &C0+—"*":EQUB &C0+—"-":EQUB &C0+—"+"=EQUB &E0       :EQUB &C0+—"1":EQUB &C0+—"2":EQUB &C0+—"3";EQUB &C0+—"4":EQUB &C0+—"5":EQUB &C0+—"6":EQUB &C0+—"7" ;EQUB &C0+—"8":EQUB &C0+—"9":EQUB &C0+—"0":EQUB &C0+—"."*?EQUS "\"       :EQUB &C1       :EQUB &C0+—",":EQUB &C0+—"="40EQUS "\":EQUB &C7:EQUS "\":EQUB &C6:EQUB &C5>I\ Note, calculating function/keypad key codes takes 10 bytes but onlyH&\ save 9 bytes in the lookup tableR:\]f)í:ç (P%€&FFFF)>&B00:ñ"Code overrun":àp9ç (kbd_lastK € &FFFF)<&900:ñ "Code start too early":àzDñ"*SAVE USBKBD ";~mcode%;" ";~O%;" ";~exec%„&FFFF0000;" ";~load%ÿ