 
ô > USBROM/src  ô DataCentre USB Support ROM ô Needs HiBasic to assemble (: 2-ô v0.05 Command/Help/Config/Status parser <)ô v0.07 Keyboard driver, no USKBD OFF F7ô v0.10 USBKBD ON|OFF, Break, Reset, OSBYTE 163,253 P!ô v0.11 adding printer driver Z1ô v0.12 single vector table, *USBMOUSE header d5ô v0.13 *Help returns unclaimed, mouse code added n<ô v0.14 *Help claimed as Y not returned, added OSWORD 64 x+ô v0.20 Checks for USB hardware present ‚: ŒOSBYTE=&FFF4:OSARGS=&FFDA –*OSASCI=&FFE3:OSNEWL=&FFE7:OSWRCH=&FFEE  GBYTEV   =&20A:WORDV   =&20C:EVNTV   =&220:KEYV   =&228:UPTV   =&222 ªGXBYTEV  =&DAE:XWORDV  =&DB1:XEVNTV  =&DCF:XKEYV  =&DDB:XUPTV  =&DD2 ´GoldBYTEV=&D9B:oldWORDV=&D9D:oldEVNTV=&800:oldKEYV=&802:oldUPTV=&802 ¾?LASTK=&23C:KBDNUM=&23D:KBDMOD=&96:MSEPOSN=&D92:MSEKEYS=&D98 ÈCNPV=&22E:RemV=&22C ÒUSBPRN=13 Üusb_D=&FCF8:usb_S=&FCF9 æ: ðÞ mcode% &1C00, L%-1 ú&ver$="0.20":date$=" (28 Dec 2018)":ã pass%=0 ¸ 3opt%=¤sm_pass(pass%)+8+16"[OPT opt%,.ROMBase6EQUB &00:EQUW RelocTable@JMP ServiceJ#EQUB &82:EQUB copyright-ROMBaseT.ROMTitle^$EQUB »ver$*10:EQUS "USB Support"hEQUB &00:EQUS ver$+date$r.copyright|"EQUB &00:EQUS "(C)J.G.Harston"†EQUB &00:š:¤\ Support routines®\ ----------------¸
.PrDecÂETAX:LDA #&99               :\ Move value to X, start at -1 in BCDÌ>SED                        :\ Switch to decimal arithmeticÖ.PrDecLpà5CLC:ADC #1                 :\ Add one in BCD modeê?DEX:BPL PrDecLp            :\ Loop for all of source numberôBCLD                        :\ Switch back to binary arithmeticþ<CMP #10:BCC PrNyb          :\ If <10, print single digit\ Fall through into PrHex:
.PrHex&PHA:LSR A:LSR A:LSR A:LSR A0JSR PrNyb:PLA:
.PrNybD"€ #15:CMP #10:BCC PrDig:ADC #6N
.PrDigXADC #—"0":JMP OSWRCHb:l.PrTextv8PLA:STA &F6:PLA:STA &F7     :\ Pop address after JSR€)TYA:PHA                     :\ Save YŠ1LDA #&FF:BNE PrTextNext     :\ Jump into loop”.PrTextLpž0LDY #0:LDA (&F6),Y          :\ Get character¨4BEQ PrTextNext:JSR OSASCI   :\ Print if not zero².PrTextNext¼1INC &F6:BNE P%+4:INC &F7    :\ Update addressÆ7TAY:BNE PrTextLp            :\ Loop back if not &00Ð?PLA:TAY:LDA #0:JMP (&F6)    :\ Restore Y and return to codeÚ:ä.Pr2SpacesîJSR PrSpaceø.PrSpaceLDA #—" ":JMP OSWRCH:: .ScanDec*2JSR ScanChkDigit          :\ Get current digit40BCS ScanDecExit           :\ Nothing to scan>.ScanDecLpH8STA &F5                   :\ Store as current numberR2JSR ScanChkDigit          :\ Get current digit\/BCS ScanDecDone           :\ No more digitsf3PHA:LDA &F5               :\ Save current digitp9CMP #26:BCS ScanDecTooBig :\ If num>25, will overflowz+ASL A:ASL A:ADC &F5:ASL A :\ num=num*10„7STA &F5:PLA               :\ Get current digit backŽ1ADC &F5:BCC ScanDecLp     :\ num=num*10+digit˜.ScanDecTooBig¢.errBadNumber¬JSR MkError¶"EQUB 252:EQUS "Bad number":BRKÀ.ScanDecDoneÊ8LDA &F5:CLC               :\ CC=valid number scannedÔ7.ScanDecExit              :\ CS=bad number or digitÞRTSè:ò.ScanChkDigitü:LDA (&F2),Y                   :\ Get current character'CMP #—"0":BCC ScanDecErr    :\ <'0''CMP #—"9"+1:BCS ScanDecErr  :\ >'9'>INY:€ #15:RTS               :\ Convert character to binary$.ScanDecErr.5SEC:RTS                       :\ CS=invalid digit8:B:L.MkErrorV9PLA:STA &FD:PLA:STA &FE      :\ Pop address after JSR`>LDY #0                       :\ Index into the error blockj.MkErrorLpt=INY:LDA (&FD),Y:STA &100,Y   :\ Copy error block to stack~CBNE MkErrorLp                :\ Loop until terminating &00 byteˆCSTA &100:JMP &100            :\ Store &00 as BRK and jump to it’:œ:¦.Service°:PHA                             :\ Save service numberº4CMP #&01:BEQ Serv01             :\ Break pressedÄ4CMP #&27:BEQ Serv27             :\ Break pressedÎ/CMP #&04:BEQ ServCmd04          :\ *commandØ,CMP #&09:BEQ ServCmd09          :\ *helpâ1CMP #&28:BEQ ServCmd28          :\ *configureì.CMP #&29:BEQ ServCmd29          :\ *statusö-CMP #&08:BEQ Serv08             :\ OSWORD -CMP #&07:BNE ServExit           :\ OSBYTE
:.Serv075LDA &EF:CMP #163:BNE ServExit   :\ Not OSBYTE 163(9LDA &F0:CMP #253:BNE ServExit   :\ Not OSBYTE 163,2532LDA &F1:JMP ForceReset<:F.Serv08P LDA &EF:CMP #64:BNE ServExitZJMP mseOswordd:n.Serv01x.Serv27‚TYA:PHA:JSR usbStartupŒPLA:TAY–.ServExit PLA:RTSª:´.ServCmd04:.ServCmd09¾LLSR A                           :\ Convert service call number to bitmapÈ.ServCmd28:.ServCmd29ÒPHAÜ'\ 04 -> 02 -> 02 command   xxxx0010æ'\ 09 -> 04 -> 04 help      xxxx0100ð'\ 28 -> 28 -> 08 config    xxxx1000ú'\ 29 -> 29 -> 09 status    xxxx1001\=LDX #0                         :\ Point to start of table>STX &F5                        :\ And set command number 0"9LDA (&F2),Y                    :\ Get first character,LCMP #&0D:BEQ ServCmdNull       :\ *help<cr>, *status<cr>, *configure<cr>6JCMP #&2E:BEQ ServCmdNull       :\ *help .    *status .    *configure .@:J.ServCmdEntryLpT>INC &F5                        :\ Increment command number^<PLA:PHA                        :\ Get search type bitmaph=€ CmdTable,X:BEQ ServCmdSkip :\ Don't match for this callrFINX                            :\ Point to start of command string|7TYA:PHA                        :\ Save line pointer†:.ServCmdCharLpšLDA (&F2),Y¤0CMP #—".":BEQ ServCmdDot     :\ Abbreviation®7€ #&5F                       :\ Force to upper case¸DCMP CmdTable,X:BNE ServCmdNext :\ No match, skip to next commandÂ=INX:INY                        :\ Step to next charactersÌLDA CmdTable,XÖGBPL ServCmdCharLp              :\ Not end of table entry, loop backàLDA (&F2),YêJCMP #—"A":BCC ServCmdMatch   :\ End of command string, command matchesô.ServCmdNextþ:PLA:TAY                        :\ Restore line pointerQDEX                            :\ In case we are pointing to last+1 character.ServCmdSkipINX:LDA CmdTable,X&8BPL ServCmdSkip                :\ Step to next entry0@€ #15:BNE ServCmdEntryLp     :\ Not at end, check next entry:7PLA                            :\ Drop command typeDBPLA:RTS                        :\ Restore and return unclaimedN:X.ServCmdDotb.ServCmdSkipSpcl3INY                            :\ Step past dotv.ServCmdMatch€LDA (&F2),Y:CMP #—" "Š>BEQ ServCmdSkipSpc             :\ And step past any spaces”;PLA                            :\ Drop old line pointerž=\ To return *Help unclaimed need to preserve line pointer¨9\TSX:\LDA &101,X:\€ #4       :\ Get stacked call type²C\BNE ServCmdNull:\STA &102,X   :\ If not *Help, claim this call¼5LDA #0:TSX:STA &102,X          :\ Claim this callÆ.ServCmdNullÐCLDA &F5:ASL A:TAX              :\ X=command offset, Carry ClearÚ.ServCmdDispatchäLDA CmdDispatch+1,X:STA &F7îLDA CmdDispatch+0,X:STA &F6øCPLA:TAX:‚ #1:ADC #&D8:CMP #1 :\ Convert command type, CC=StatusJSR JumpF6APLA:RTS                        :\ Return claimed or unclaimed.ServCallStatus BPHA:PHA:CLC                    :\ Push command type onto stack*CJMP ServCmdDispatch            :\ Jump to call *Status routines4:>\ On entry,H\ Flags set from A:R\  EQ = Status\\  PL = Status/Configuref\  MI = Help/Commandp\ (&F2),Y=>command linez\ Y=0 = Help syntax„\ X=command typeŽ\˜.JumpF6¢JMP (&F6)¬:¶/.cmdUSB                        :\ *Help USBÀDEYÊ.cmdNullÔ!CPX #4:BNE cmdHelp:JSR OSNEWLÞ.cmdTitleLpè'LDA ROMTitle-3,X:BNE P%+4:LDA #—" "ò3CMP #—"(":BEQ cmdTitleDone   :\ Print ROM titleü!JSR OSWRCH:INX:BNE cmdTitleLp	.cmdTitleDone	9JSR OSNEWL:LDX #2              :\ X=2 - list commands	#LDA (&F2),Y:CMP #13:BNE cmdHelp	$JRTS                            :\ No parameter, only display ROM title	..cmdHelp	8FTYA:PHA:TXA:PHA                :\ Save Y=lineptr, X=command bitmap	B>LDX #0:LDY #0                  :\ Point to start of tables	L.cmdHelpLp1	VAINY:INY                        :\ Step to next dispatch entry	`<PLA:PHA                        :\ Get search type bitmap	j=€ CmdTable,X:BEQ cmdHelpSkip :\ Don't match for this call	t€ #2:BEQ cmdHelpLp2	~7JSR Pr2Spaces                  :\ Indent *Help list	ˆ.cmdHelpLp2	’$LDA CmdTable+1,X:BMI cmdHelpInfo	œ!JSR OSWRCH:INX:BNE cmdHelpLp2	¦.cmdHelpInfo	°ITXA:PHA:TYA:PHA                :\ Save table index and command number	º8TSX:LDA &103,X:€ #2:ASL A    :\ Align syntax strings	Ä!ADC &308:ADC #10:SBC &318:TAX	Î.cmdHelpSpace	Ø$JSR PrSpace:DEX:BNE cmdHelpSpace	âTSX:TXA:TAY	ì2LDA &103,Y                     :\ Command type	ö:LDX &101,Y                     :\ Dispatch table index
 ELDY #0:JSR ServCallStatus      :\ Call dispatcher to display info

GPLA:TAY:PLA:TAX                :\ Get command number and index back
DEX
.cmdHelpSkip
(.cmdHelpSkipLp
2INX:LDA CmdTable,X
<8BPL cmdHelpSkipLp              :\ Step to next entry
F@€ #15:BNE cmdHelpLp1         :\ Not at end, check next entry
PPLA:PLA:TAY:RTS
Z:
d.CmdTable
nE\ Config/Status commands must be max. 8 characters to fit display
x%EQUB &84:EQUS "USB"        :\ hlp
‚)EQUB &82:EQUS "USBDEVICES" :\     cmd
Œ1EQUB &8B:EQUS "USBKBD"     :\     cmd cfg sta
–1EQUB &8B:EQUS "USBMOUSE"   :\     cmd cfg sta
 1EQUB &8B:EQUS "USBPRINT"   :\     cmd cfg sta
ª)EQUB &82:EQUS "RESET"      :\     cmd
´EQUB &80
¾:
È.CmdDispatch
Ò+EQUW cmdNull               :\ <cr> or .
Ü%EQUW cmdUSB                :\ USB
æ,EQUW cmdDevices            :\ USBDEVICES
ð(EQUW cmdKBD                :\ USBKBD
ú*EQUW cmdMouse              :\ USBMOUSE*EQUW cmdPrint              :\ USBPRINT'EQUW cmdReset              :\ RESET:":,.cmdSyntax6PLA:CPX #64:BCS cmdSyntax2@2JSR PrText:EQUS "<num>|OFF":EQUB 13:EQUB 0:RTSJ.cmdSyntax2T/JSR PrText:EQUS "ON|OFF":EQUB 13:EQUB 0:RTS^:h#.cmdPrint :LDX #128:BNE cmdDoItr#.cmdMouse :LDX #64 :BNE cmdDoIt|.cmdKBD   :LDX #63†.cmdDoIt2BCC cmdStatus2            :\ *Status <command>šHPHA:TYA:BEQ cmdSyntax     :\ Y=0, *help or *config. syntax requested¤FLDA (&F2),Y               :\ Save command type, get char from line®GCMP #13:BEQ cmdStatus1    :\ *command<cr> or *configure command<cr>¸?JSR ScanOnOffName         :\ Parse parameter ‡|î|<num> to YÂ1PLA:BMI cmdJump           :\ *command <param>Ì:Ö::                         :\ *Configure <word> <param>à-TYA:PHA                   :\ Save <param>ê4TXA:‚ #255:PHA          :\ Mask to keep old bitsô1JSR CMOSRead:TSX          :\ Get my CMOS byteþ8‚ &102,X:€ &101,X     :\ Merge new setting into byte‚ &102,X:TAY3PLA:PLA                   :\ Drop stacked bytes:&3.CMOSWrite                :\ Write my CMOS byte0LDX #19:LDA #162:JMP OSBYTE:2.CMOSRead                 :\ Read my CMOS byteDCLCN.StatusReadX3PHP:LDA KBDNUM:‚ #&80   :\ Get current keyboardb2CMP #64:BCC P%+4:LDA #0   :\ Use it if claimedl7ASL A:ASL A:PHA           :\ Make space for PRN/MSEv,JSR MSECheckOn            :\ CS=Mouse On€PLA:ROR A:PHAŠ.JSR PRNCheckOn            :\ CS=Printer On”,PLA:ROR A:TAY             :\ Y=%pmkkkkkkžFPLP:BCS CMOSRead2         :\ If CS or no CMOS, use current setting¨#LDX #19:LDA #161:JSR OSBYTE:TYA².CMOSRead2¼1RTS                       :\ A=Y=CMOS/SettingÆ*\ CMOS byte is %pmkkkkkk PRN, MSE, KBDÐ \ KBDNUM is    %10kkkkkk KBDÚ)\              %11xxxxxx MOS keyboardä3\              %0xxxxxxx International keyboardî:ø.cmdJumpTXA:ASL ABCC P%+5:JMP usbPRINTBPL P%+5:JMP usbMOUSE JMP usbKBD*:4H.cmdStatus1                :\ *command<cr> or *configure command<cr>>8PLA:BPL errBadConfigure    :\ *configure command<cr>H3.cmdStatus2                :\ *Status <command>R7TXA:PHA                    :\ Save parameter bitmap\=JSR StatusRead:TSX         :\ Get CMOS or current settingf/€ &101,X:TAY:PLA         :\ Y=value, A=maskp5CMP #64:TYA:BCS PrOnOffEtc :\ mask=64 or 128, ‡/îz5JSR PrDec:JSR PrSpace      :\ Print decimal value„*TYA:€ #&F7               :\ Drop bit 3Ž.PrOnOffEtc˜9LDX #&FF                   :\ Look for matching entry¢:¬,\ A=match byte, X=offset-1 to start from¶.PrTableNameÀ.PrOnOffLp1ÊINXÔ:CMP txtNames,X:BEQ PrOnOffLp2  :\ Matched entry prefixÞ2LDY txtNames,X:BPL PrOnOffLp1  :\ End of tableè.PrOnOffDoneòJMP OSNEWLü.PrOnOffLp2LDA txtNames+1,X:€ #127CMP #—"A":BCC PrOnOffDone!JSR OSWRCH:INX:BNE PrOnOffLp2$:..errBadConfigure8JSR MkErrorB#EQUB 254:EQUS "Bad command":BRKL:V.txtNames`EQUB 0:EQUS "OFF"jEQUB 1:EQUS "UK"tEQUB 2:EQUS "BBC"~\EQUB 13:\EQUS "Europe"ˆEQUB 32:EQUS "Japan"’EQUB 48:EQUS "USA"œEQUB 64:EQUS "ON"¦EQUB 128:EQUS "ON"°
EQUB 0º:Ä.DeviceNamesÎEQUB &01:EQUS "Keyboard"ØEQUB &02:EQUS "Mouse"âEQUB &07:EQUS "Printer"ìEQUB &08:EQUS "Disk"öEQUB &09:EQUS "Hub" EQUB &0B:EQUS "Card"
EQUB &00::(\ (&F2),Y=> ‡|<dec>|‡2\ Returns Y=0 | 0-255 | 255<.ScanOnOffNameFLDA (&F2),Y:€ #&DFPCMP #—"O":BNE ScanOnOffNumZINY:LDA (&F2),Y:€ #&DFd&LDY #0:CMP #—"F":BEQ ScanOnOffDonen#DEY:CMP #—"N":BEQ ScanOnOffDonexJMP errBadNumber‚.ScanOnOffNumŒJSR ScanDec:TAY–.ScanOnOffDone RTSª:´:¾\ Low-level USB I/OÈ\ -----------------Ò'.usb_CmdX :\ A=command, X=parameterÜSEC:BCS usb_CmdCyæ.usb_Cmd  :\ A=commandðCLCú.usb_CmdCy:JSR usb_Sync:JSR usb_Wr:BCC usb_Cmd2   :\ Send command:LDA #—" ":JSR usb_Wr:TXA:JSR usb_Wr  :\ Send parameter.usb_Cmd2"DLDA #13                                :\ Fall through with <cr>,:6,\ IRQs are off, so no point checking ESC@6.usb_Wr:\BIT &FF:\BMI usb_Wr2:BIT usb_S:BVS usb_WrJ.usb_Wr2:STA usb_D:RTST6.usb_Rd:\BIT &FF:\BMI usb_Rd2:BIT usb_S:BMI usb_Rd^.usb_Rd2:LDA usb_D:RTSh:r=\ Send command to USB, after <cr> waits for returned <cr>|<\ except after final command returns first byte of reply†.usb_KbdCmdDRDSyncJSR usb_Syncš)LDX #usb_SC0-usb_KbdCmds  :\ SC0, DRD¤.usb_KbdCmd6®
LDY #6¸.usb_KbdCmdÂ!TXA:PHA:JSR usb_Flush:PLA:TAXÌ.usb_KbdCmdLp1Ö LDA usb_KbdCmds,X:JSR usb_WràINX:DEY:BEQ usb_RdêCMP #13:BNE usb_KbdCmdLp1ô.usb_KbdCmdLp2þ(JSR usb_Rd:CMP #13:BNE usb_KbdCmdLp2BEQ usb_KbdCmd:@\ NB, after RESET, Vinc takes a couple of seconds to respond&'\ Callers expect Cy to be preserved0.usb_Sync:%BIT usb_S:BMI usb_Sync1:BIT usb_DD:BIT &FF:BPL usb_Sync:RTS :\ Loop until no byte pendingN.usb_Sync1X8BIT usb_S:BVS usb_Sync   :\ Loop back if can't writebPHAlLDA #—"E":STA usb_Dv1LDA #13:STA usb_D        :\ Send ECHO command€/.usb_Sync2:JSR usb_Rd:‚ #—"E":BNE usb_Sync2Š-.usb_Sync3:JSR usb_Rd:‚ #13:BNE usb_Sync3”3PLA:BIT &FF:RTS          :\ Return MI if Escapež:¨".usb_Flush  :BIT usb_D:LDX #16²$.usb_FlushLp:DEX:BNE usb_FlushLp¼BIT usb_S:BPL usb_Flush:RTSÆ:Ð.usb_CheckÚ0LDA #—"E":STA usb_D:LDA #13:STA usb_D:LDX #4ä.usb_CheckLpî#LDA usb_D:CMP #13:BEQ usb_FlushøCMP #—"E":BEQ usb_CheckLpDEX:BNE usb_CheckLp3JSR MkError:EQUB 210:EQUS "USB not present":BRK: :*5\ *USBDEVICES - enumerate and display device info45\ ----------------------------------------------->.cmdDevicesH-TYA:BNE P%+5:JMP OSNEWL   :\ Syntax is ""R)JSR usb_Check:JSR usb_Sync:JSR PrText\*EQUS "Num Adr Prt Type":EQUB 13:EQUB 0f;PHP:SEI               :\ Prevent background USB actionsp LDA #&10:JSR usb_Cmd  :\ SCSz LDA #&91:JSR usb_Cmd  :\ IPH„
LDX #0Ž
.L8257˜TXA:PHA¢ LDA #&85:JSR usb_CmdX :\ QDn¬:¶\ Read device informationÀ\ Off StackÊ\    &10F,X=numberÔ\ 00 &10E,X=addressÞ\ 01 &10D,Xè\ 02 &10C,Xò\ 03 &10B,Xü\ 04 &10A,X\ 05 &109,X\ 06 &108,X\ 07 &107,X=type$\ 08 &106,X=.\ 09 &105,X=port8\ 0A &104,X=BD\ 0B &103,X=class      03      03     03      07     08  09   0BL\ 0C &102,X=subclassV,\ 0D &101,X=protocol   01      02     00`E\                   Keyboard Mouse Joystick Printer Disk Hub CardjLDX #14t
.L826E~6JSR usb_Rd:PHA:DEX:BNE L826E :\ Get first 14 bytesˆ0JSR usb_Sync                 :\ Discard rest’+CLC:TSX:LDA &10E,X           :\ Addressœ1BNE L8282:JMP L82FC          :\ If zero, skip¦:°
.L8282º0LDA &10F,X:JSR PrHex:JSR Pr2Spaces :\ NumberÄ1LDA &10E,X:JSR PrHex:JSR Pr2Spaces :\ AddressÎ.LDA &105,X:JSR PrHex:JSR Pr2Spaces :\ PortØ.LDY #&FD:LDA &107,X:SEC            :\ Typeâ
.L829CìINY:INY:INY:ROL A:BCC L829Cö"LDA DeviceTypes+0,Y:JSR OSWRCH "LDA DeviceTypes+1,Y:JSR OSWRCH
"LDA DeviceTypes+2,Y:JSR OSWRCHJSR PrSpace.LDA &0103,X:JSR PrHex:JSR PrSpace :\ Class(1LDA &0101,X:JSR PrHex:JSR PrSpace :\ Protocol2:<LDA &0103,XF<CMP #&10:BCS L82F9                :\ Ignore high numbersP4CMP #&03:BCC L82F9                :\ Ignore <HIDZ0BNE cmdDevicesName                :\ Not HIDd5LDA &0101,X:CMP #3:BCS L82F9      :\ Ignore HID>3n.cmdDevicesNamexLDX #DeviceNames-txtNames-1‚JSR PrTableName:JMP L82FCŒ:–
.L82F9 JSR OSNEWLª
.L82FC´8TSX:TXA:CLC:ADC #14:TAX:TXS       :\ Drop from stack¾"PLA:TAX:INX:CPX #&10:BCS L830CÈSEI:JMP L8257Ò
.L830CÜPLP:RTSæ:ð.DeviceTypesú&EQUS "HUBOTHBMDCDCHIDPRNRESSERNUL"::.usbStartup"JSR CMOSRead,-€ #63:BEQ usbStart_NotKBD     :\ USBKBD ‡6LDY KBDNUM:CPY #&C0@6BCC CheckVecOk                  :\ Already claimedJ;PHA:JMP usbKBD_On2              :\ Turn on USB keyboardT.usbStart_NotKBD^TYA:BPL usbStart_NotPRNh:JMP usbPRINT                    :\ Turn on USB printerr.usbStart_NotPRN|ASL A:BPL CheckVecOk†8JMP usbMOUSE                    :\ Turn on USB mouse:š:¤.MSECheckOn®,LDX #BYTEV € 255:LDY #mseBYTEV-usbVector¸BPL CheckXVectorÂ:Ì.PRNCheckOnÖ*LDX #UPTV € 255:LDY #prnUPTV-usbVectorà:ê.CheckXVectorô\ Check if vector claimedþ1\ X=System vector offset, Y=USB vector offsetIJSR CheckVector:BCC CheckVecOff                :\ Vector not extendedMTXA:PHA:LSR A:TSX:ADC &101,X:TAX:PLA           :\ X=(X/2)*3 =>XVEC offset@LDA &D9F+2,X:CMP &F4:BNE CheckVecOff           :\ Not my ROM&DLDA &D9F+1,X:CMP usbVector+1,Y:BNE CheckVecOff :\ Not my routine0KLDA &D9F+0,X:CMP usbVector+0,Y:BEQ CheckVecOk  :\ My routine, return CS:.CheckVecOff:CLCD.CheckVecOk :RTSN.CheckVectorX>LDA &201,X:CMP #&FF:BNE CheckVecOff :\ <&FF - not extendedb>LDA &200,X:CMP #&51:BCS CheckVecOff :\ >&50 - not extendedl@SEC                                 :\ CS=Vector is extendedv.usbKBD_OffOk€RTSŠ:”.CheckClaimedž"JSR CheckVector:BCC CheckVecOk¨.errBadClaim²3JSR MkError:EQUB 149:EQUS "Vectors claimed":BRK¼:Æ.usbVectorÐ.mseBYTEV:EQUW mse_BYTEÚ.kbdEVNTV:EQUW kbd_EVNTä.kbdKEYV :EQUW kbd_KEYî.prnUPTV :EQUW prn_UPTø::#\ *USBKBD - enable USB keyboard#\ ----------------------------- -\ Note, DataCentre doesn't work with hubs*%\ Y=<num> 0=Off, 1+=keyboard type4\>.usbKBDHLDA KBDNUM:€ #&C0R3CMP #&80:PHP              :\ Save result of CMP\1TYA:€ #63:BNE usbKBD_On :\ Claim USB keyboardf5PLP:BNE usbKBD_OffOk      :\ Keyboard not claimedpDPHP:SEI:LDX #1            :\ Disable IRQs while changing vectorsz.usbKBD_OffLp1„0LDA oldKEYV,X:STA KEYV,X  :\ Restore vectorsŽLDA oldEVNTV,X:STA EVNTV,X˜.LDA &FFB7,X:STA &A8,X     :\ Also get ÝVEC¢DEX:BPL usbKBD_OffLp1¬LDY #&3C¶.usbKBD_OffLp2À5LDA (&A8),Y:STA &200,Y    :\ Reset OSBYTE &AC/&ADÊINY:INX:BEQ usbKBD_OffLp2Ô-PLP                       :\ Restore IRQsÞ4LDA #13:LDX #4:JMP OSBYTE :\ Disable VSync eventè\RTSò:ü.usbKBD_OnDPLP:BEQ usbKBD_AlreadyOn  :\ Already claimed, just change KBDNUM:BCC errBadClaim           :\ Somebody else has claimed5PHA                       :\ Save keyboard number$6JSR usb_Check:\JSR usb_Flush :\ Check also Flushes..usbKBD_On28%LDX #EVNTV € 255:JSR CheckClaimedB$LDX #KEYV € 255:JSR CheckClaimedL:VOPT ¤if(£)`5::LDA #0:STA usb_SC0+2     :\ Default to device 0j/::LDX #usb_SCS-usb_KbdCmds :\ SCS, IPH, QP2t::JSR usb_KbdCmd6~(::JSR usb_Flush:CMP #&80   :\ Cy=HUBˆ::€ #8:BEQ usb_NoKbd’8::BCS usb_KbdInitLp1a      :\ HUB, start at device 1œ::.usb_KbdInitLp1¦*::LDX #usb_SC0-usb_KbdCmds :\ SC0, DRD°::JSR usb_KbdCmd6º+::JSR usb_Flush:CMP #8:BEQ usb_KbdInit2Ä::.usb_KbdInitLp1aÎ!::INC usb_SC0+2:LDA usb_SC0+2Ø.::CMP #13:BNE usb_KbdInitLp1:BEQ usb_NoKbdâ.kbd_Init0ìOPT ¤endifö: JSR usb_Sync
.kbd_Init1JSR usb_Flush.LDX #usb_SCS-usb_KbdCmds  :\ SCS, IPH, QP2(JSR usb_KbdCmd62,€ #8:BEQ usb_NoKbd      :\ No HID, error<\JSR usb_SyncF*\LDX #usb_SC0-usb_KbdCmds  :\ SC0, DRDP\JSR usb_KbdCmd6Z:JSR usb_KbdCmdDRDSync     :\ Returns with MI+EQ from AdABEQ kbd_Init1             :\ Keep going until we get a packetn5CMP #8:BEQ usb_KbdInit2   :\ Keyboard data packetx.usb_NoKbd‚/JSR MkError:EQUB 214:EQUS "No keyboard":BRKŒ:–.usb_KbdInit2 2JSR usbPRINT_Off          :\ Force printer offª0JSR usbMOUSE_Off          :\ Force mouse off´DPHP:SEI:LDX #1            :\ Disable IRQs while changing vectors¾.usbKBD_InitLp3È$\ This could become a subroutineÒ LDA KEYV,X    :STA oldKEYV,XÜ!LDA EVNTV,X   :STA oldEVNTV,XæLDA kbdKEYV,X :STA XKEYV,XðLDA kbdEVNTV,X:STA XEVNTV,XúDEX:BPL usbKBD_InitLp3LDY &F41LDA #&30:STA EVNTV+0:STX EVNTV+1:STY XEVNTV+20LDA #&3C:STA KEYV+0 :STX KEYV+1 :STY XKEYV+2"GPLP:PLA                   :\ Restore IRQs, get keyboard number back,5LDX #0:STX LASTK          :\ No key being pressed6:@.usbKBD_AlreadyOnJ3„A #&80:STA KBDNUM       :\ Set keyboard numberT3LDA #14:LDX #4:JMP OSBYTE :\ Enable VSync event^:h.kbd_KEYr/BVS jmpKEYV            :\ Interupt, pass on|-BIT KBDMOD             :\ M=Ctrl, V=Shift†(PHP:PLA                :\ A=CSxxxxxx1BCC kbd_TEST           :\ Test for CTRL+SHIFTš6CPX #&81:BEQ kbd_INKEY :\ ¦-CTRL, will also set CS¤(ASL A                  :\ A=Sxxxxxxx®7CPX #&80:BEQ kbd_INKEY :\ ¦-SHIFT, will also set CS¸<LDA #&00:SEC           :\ Nothing pressed, CS to pass onÂ.kbd_INKEYÌ+CLV                    :\ VC to pass onÖ=PHA:PLA:BPL jmpKEYV    :\ Not pressed, pass on with VC+CSà1TAX                    :\ Ensure X=A=keystateê.usb_byeôRTSþ:.kbd_TEST(BVS usb_bye          :\ SHFT pressed(BMI usb_bye          :\ CTRL pressed&'\ Pass on with VC and CC from above0.jmpKEYV:JMP (oldKEYV)D:N.kbd_EVNTX7CMP #4:BNE jmpEVNTV                    :\ Not VSyncbIJSR kbd_VSync:LDA #4:RTS               :\ What needs to be preserved?lO\ BUG If enabled during startup, if events are enabled before Tube Startup,v\ Tube Startup crashes.€.jmpEVNTVŠJMP (oldEVNTV)”:ž.kbd_VSync¨9\ 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_KbdCmd          :\ 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:\ 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48TAX:TYA:STA &FA                        :\ A=gascgasc>8ASL A:ASL A:ASL A:ASL A                :\ A=gasc0000H5„A &FA:€ #&F0                       :\ A=GASC0000R>ASL A:ASL A:ROL A                      :\ A=C000000A, Cy=S\RBCC P%+4:„A #&40                      :\ A=CS00000A, b7=ctrl, b6=shift, b0=altf>STA KBDMOD                             :\ Update modifierspCCPX LASTK:BEQ kbd_repeat               :\ Same key pressed downz@STX LASTK                              :\ New or no keypress„KLDA &254:STA &E7                       :\ Copy KeyDelay to KeyCountdownŽ:˜\ Process keypress in X¢.kbd_keypress¬<LDA KBDNUM:€ #23:CMP #4:ROL A:€ #3 :\ Convert to 0/1/2/3¶4CMP #3:BCC P%+4:SBC #1                 :\ 3 -> 2ÀGASL A:ASL A:ASL A:STA &FB              :\ Offset into nonalpha keysÊ9TXA:JSR 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8RTSB:L.kbd_repeatV=LDA &E7:BEQ kbd_exit                   :\ Repeat disabled`CDEC &E7:BEQ P%+6:DEC &E7:BNE kbd_exit  :\ Countdown not reachedjLLDA &255:STA &E7                       :\ Copy KeyRepeat to KeyCountdowntELDX LASTK:JMP kbd_keypress             :\ Insert another keypress~:ˆ(\ Convert keypress to character code’.kbd_convertœCLDX KBDMOD:STX &FA                     :\ Get current modifiers¦MCMP #&48:BNE kbd_notbreak              :\ BREAK      keynum        KBDNUM°LBIT KBDNUM                             :\ test     %01001000 € %10xxQxxxºEBNE kbd_notbreak                       :\ BREAK is —II  %00001000ÄAASL &FA:ADC #&B8:ASL A                 :\ Convert CTRL to 0/2ÎGJMP ForceReset                         :\ BREAK is RESET  %00000000Ø.kbd_notbreakâCMP #&39:BNE kbd_notcapsì0LDA &25A:‚ #16:STA &25A:RTS          :\ CAPSö.kbd_notcaps BSEC:SBC #4:BPL kbd_test:SBC #&1F       :\ Reduce range if &84+
.kbd_test9CMP #&69:BCS kbd_exit                  :\ No keypress0ADC #—"A":CMP #—"[":BCC kbd_alpha1 :\ Letter(1SBC #42:CMP #—"9"+1:BCC kbd_nonalpha :\ Digit2;SBC #26:CMP #39:BCC kbd_lookup         :\ offset 32..37<8SBC #08:CMP #39:BCS kbd_lookup         :\ offset 38+F@SBC #30:„A &FB                        :\ offset 0-31 symbolsP.kbd_lookupZTAX:LDA kbd_keytable,Xd1BNE kbd_nottab:LDA &26B                :\ TABn.kbd_nottabx5CMP #—"!":BCC kbd_exit               :\ ctrls+spc‚ACMP #127:BEQ kbd_done:BCS kbd_topset   :\ DEL and topbit keysŒACPX #&59:BEQ kbd_nonalpha              :\ Special case JP '\'–7CMP #—"_":BCS kbd_nonalpha           :\ &5F and &60 <CMP #—"A":BCS kbd_alpha              :\ Letters and [\]^ª.kbd_nonalpha´6BIT &FA:BVC kbd_noshift                :\ No SHIFT¾E€ #&1F:ASL &FB:ASL &FB:„A &FB       :\ Index into shiftkey tablesÈCTAX: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úCBNE kbd_keypad:LDA #&CD                :\ Special case for KRet.kbd_keypadCCMP #&FF:BNE kbd_keypad0:LDA #&3F      :\ Special case for KDel.kbd_keypad0"@LDX &27E:BNE kbd_keypad1:SEC:SBC #&D0  :\ If base=0, use '0',.kbd_keypad16CSEC:SBC #&F0:CLC:ADC &27E              :\ Translate keypad keys@CBPL kbd_done                           :\ b7=0, return keypressJ.kbd_top1T@LSR &FA                                :\ &FA=0CS00000, Cy=A^@ROR &FA                                :\ &FA=A0CS0000, Cy=0h5BPL P%+4:‚ #&B0                      :\ Apply ALTr@‚ &FA:RTS                            :\ Apply CTRL and SHIFT|.kbd_alpha†ECMP #—"[":BCS kbd_alpha2             :\ Skip past if not a letter.kbd_alpha1š=ROR A:‚ &25A:€ #&EF:‚ &25A:ROL A :\ Apply CAPS to letters¤.kbd_alpha2®7BIT &FA:BVC kbd_ctrl:‚ #32           :\ Apply SHIFT¸.kbd_ctrlÂ6BIT &FA:BPL kbd_done:€ #31           :\ Apply CTRLÌ.kbd_doneÖCLC:RTSà:ê.usb_KbdCmdsô.usb_SCS:EQUB &10:EQUB 13þ.usb_IPH:EQUB &91:EQUB 13 .usb_QP2:EQUB &2C:EQUB 13 /.usb_SC0:EQUB &86:EQUB &20:EQUB &00:EQUB 13 .usb_DRD:EQUB &84:EQUB 13 &: 0.kbd_shift :FEQUS   "@!@~$%&'" +"()*+<=>?_!"""+"#$%&'()*+_+>`" :\ 0=JP/BBC/ECMA D=EQUS   "~!@~$%&"""+"()*+<_>?)!@" +"#$%^&*(*:<+>?" :\ 1=US N=EQUS   "~!@~$%&@" +"()*+<_>?)!"""+"`$%^&*(*:<+>?" :\ 2=UK X=\EQUS  "~!@~$%&@" +"()*+<_>?)!"""+"`$%^&*(*+<+>?" :\ 3=EU b4\ Shift+ !"#$%&'    ()*+,-./012    3456789c;<=>? l4\       @ABCDEFG    HIJKLMNOPQR    STUVWXYZ[\]^_ v3\       `abcdefg    hijklmnopqr    stuvwxyz{|}~ €\ Š.kbd_keytable ”$EQUS "^@[\];:_" :\ 0=JP/BBC/ECMA žEQUS "=[]\#;'`" :\ 1=US ¨EQUS "=[]\#;'`" :\ 2=UK ²<EQUS "=[]\#;'`" :\ 3=EU, needed for offset 32 into table ¼`EQUB 48:EQUB 13:EQUB 27:EQUB 127:EQUB 0:EQUS " -,./":EQUB 1     :\ &20-&2A '0' CR ESC BS TAB ÆTEQUB &81:EQUB &82:EQUB &83:EQUB &84:EQUB &85:EQUB &86:EQUB &87  :\ &2B-&2F f1-f7 ÐYEQUB &88:EQUB &89:EQUB &CA:EQUB &CB:EQUB &CC:EQUB &80:EQUB &C3  :\ &30-&37 f8-f12,Pnt Ú[EQUB &8A:EQUB &CD:EQUB &C8:EQUB &9F:EQUB &FF:EQUB &8B:EQUB &9E  :\ &38-&3F Editing keys äNEQUB &8D:EQUB &8C:EQUB &8E:EQUB &8F:EQUB &C2                    :\ &40-&44 îMEQUB &C0+—"/":EQUB &C0+—"*":EQUB &C0+—"-":EQUB &C0+—"+" :\ &45-&48 Keypad øHEQUB &E0       :EQUB &C0+—"1":EQUB &C0+—"2":EQUB &C0+—"3" :\ &49-&4C!FEQUB &C0+—"4":EQUB &C0+—"5":EQUB &C0+—"6":EQUB &C0+—"7" :\ &4D-&50!FEQUB &C0+—"8":EQUB &C0+—"9":EQUB &C0+—"0":EQUB &C0+—"." :\ &51-&54!JEQUS "\"       :EQUB &C1       :EQUB &C0+—",":EQUB &C0+—"=" :\ &55-&58! NEQUS "\":EQUB &C7:EQUS "\":EQUB &C6:EQUB &C5                    :\ &59-&5D!*:!4:!>\ =====================!H\ Force a machine RESET!R\ =====================!\.cmdReset!fTYA:BEQ synReset!pJSR ScanDec!z0LDY #0:BCS P%+3:TAY          :\ Default to 0!„2LDX #253:LDA #163:JMP OSBYTE :\ Pass to OSBYTE!Ž.synReset!˜,JSR PrText:EQUS "(<num>)":EQUB 13:EQUB 0!¢RTS!¬:!¶.ForceReset!À\ A=RESET type!Ê\   0=Soft Break!Ô\   1=Power On!Þ\   2=Hard Break!è:!òDSEI:CLD                      :\ Disable IRQs, ensure binary mode!ü@LDX #&FF:TXS:PHA             :\ Reset stack, save Break type"LDA #&8F:LDX #&0C".LDY #&FF:JSR OSBYTE          :\ Claim NMIs"0LDX #&40:STX &0D00           :\ Disable NMIs"$5LDA #0:JSR OSBYTE            :\ Read machine type".5LDA &FFFC:STA &A8            :\ &A8/9=>RESET code"8LDA &FFFD:STA &A9"B8TXA:BEQ ResetElk             :\ Jump if &00=Electron"L:"V2LDA #&C0:STA &FEA0           :\ Reset hardware"`.LDA #&A0:STA &FEE0           :\ Tube Reset"j6LDA #&20:STA &FEE0           :\ Release Tube Reset"t.PLA:BEQ ResetJump            :\ Soft Break"~8LSR A:BCC ResetHard          :\ Hard Reset is fiddly"ˆ4LDA #127:STA &FE4E           :\ Reset system VIA"’.ResetJump"œ4JMP (&FFFC)                  :\ Enter RESET code"¦:"°.ResetElk"º;LDA #&C0:STA &FC28           :\ Reset Electron hardware"Ä7LDA #&A0:STA &FCE0           :\ Electron Tube Reset"Î?LDA #&20:STA &FCE0           :\ Release Electron Tube Reset"Ø.PLA:BEQ ResetJump            :\ Soft Break"â.LDY #24:LSR A:BCS ResetElkJump :\ Power On"ì.TAY:DEX                      :\ Y=0, X=&FF"ö.ResetElkHard# LDA (&A8),Y:INY#
0CMP #&20:BNE ResetElkHard    :\ Look for JSR#INY:INY:LDA (&A8),Y#0CMP #&08:BNE ResetElkHard    :\ Look for PHP#(.ResetElkJump#2ELDA &F4:„A #&F0:STA &FE05   :\ Set up the ULA, set M=Ctrl Pressed#<FPHA:PHP                      :\ Push NotPowerOn, push CTRL pressed#FBBMI ResetAddJump             :\ Branch to jump into reset code#P:#Z.ResetHard#d9LDY #&0F:STY &FE42           :\ SysVIA PortB=iiiioooo#n.ResetIO#x6DEY:STY &FE40                :\ Write to I/O latch#‚?CPY #&09:BCS ResetIO         :\ Loop to set up internal I/O#ŒCPX #&03:BCS ResetMaster#–:# \ Read BBC keyboard links#ªLDX #&09#´.ResetBBCLinks#¾LDY #&03:STY &FE40#ÈLDY #&7F:STY &FE43#ÒSTX &FE4F:LDX &FE4F#ÜECPX #&80:ROR &FC             :\ Rotate keystate in bit 7 into &FC#æDEX:BNE ResetBBCLinks#ð8ROL &FC                      :\ &FC holds link state#ú:$.LDY #0                       :\ Y=0, X=&FF$.ResetBBClp$LDA (&A8),Y:INY$"5CMP #&26:BNE ResetBBClp      :\ Look for 'ROL zp'$,.ResetAddJump$6DTYA:ADC &A8:STA &A8          :\ Update (&A8) to next instruction$@JLDA #0:STA &028D:STA &FE00   :\ Initialise last BREAK flag and Elk ULA$JDADC &A9:STA &A9              :\ (A8)=>continuation of reset code$TGSEC:LDA #2:JMP (&A8)         :\ CS=CTRL pressed, jump to RESET code$^:$h.ResetMaster$r
LDY #0$|.ResetMasterLp1$†0LDA (&A8),Y:INY              :\ Look for JSR$CMP #&20:BNE ResetMasterLp1$š<INY:INY:LDA (&A8),Y          :\ Check if followed by JMP$¤CMP #&4C:BNE ResetMasterLp1$®>INY:LDA (&A8),Y:STA &F6      :\ (F6)=>reset code in ROM 15$¸INY:LDA (&A8),Y:STA &F7$Â.ResetMasterLp2$Ì9JSR ResetROMByte             :\ Read byte from ROM 15$Ö2CMP #&E0:BNE ResetMasterLp2  :\ Look for 'CPX'$à>JSR ResetROMByte             :\ Read next byte from ROM 15$ê7CMP #&80:BNE ResetMasterLp2  :\ Look for 'CPX #&80'$ô,\ &F6/7 now points to rest of RESET code$þ:%?LDA #&53:STA &FE8E           :\ Write to hardware I/O RESET%:TRB &0366                    :\ Reset ï 23,16 settings%:LDX #&FF:STX &FE63           :\ User VIA Port A=output%&>LDA #&CF:STA &FE42           :\ System VIA Port B=ooiioooo%07LDA #&0D:STA &DC00           :\ Command line = <cr>%:9LDA #&DC:STA &DF05:STZ &DF04 :\ Point to command line%D1STZ &DFDD                    :\ Clear *ì flag%N)LDX #(ResetCodeEnd-ResetCode-1) € &FF%X.ResetLoop%bLDA ResetCode,X:STA &100,X%l/DEX:BPL ResetLoop:TXS        :\ Reset stack%vELDA &F7:€ #&40             :\ Test if code is in SROM or I/O area%€CSTA &FE34:STA &FC            :\ Set memory map according to &F7%ŠLLDA #&0F:STA &028E           :\ Set keypad SHIFT setting, prepare ROM=15%”IPHA:SEC:JMP &100             :\ Push <>0=Not PowerOn, CS=CTRL pressed%ž:%¨.ResetCode%²BSTA &FE30                    :\ Page in MOS ROM (IRQs are off)%¼6JMP (&F6)                    :\ Jump to RESET code%Æ.ResetCodeEnd%Ð:%Ú.ResetROMByte%ä2LDA #&40:STA &FE34           :\ Set memory map%î6LDA (&F6)                    :\ Read byte manually%ø:BIT &F7:BVS ResetByte        :\ Exit if in high memory&9LDY #&0F:JSR &FFB9           :\ Read byte from ROM 15&.ResetByte&5INC &F6:BNE P%+4:INC &F7     :\ Increment address& RTS&*:&4:&>(\ *USBPRINT î|‡ - enable USB printer&H+\ -------------------------------------&R\ Y=<num> 0 - Off, <>0 - On&\\&f.usbPRINT_Off&p:LDY #0                       :\ Ensure USBPRINT is off&z.usbPRINT&„TYA:PHA&ŽSEC:JSR StatusRead&˜3PLA:BNE usbPRINT_On          :\ <>0, USBPRINT î&¢:TYA:BPL usbPRN_OffOk         :\ Already off, just exit&¬GPHP:SEI:LDX #1               :\ Disable IRQs while changing vectors&¶.usbPRN_OffLp1&À3LDA oldUPTV,X:STA UPTV,X     :\ Restore vectors&ÊDEX:BPL usbPRN_OffLp1&ÔPLP&Þ.usbPRN_OffOk&èRTS&ò:&ü.errAlreadyUSB'6JSR MkError:EQUB 194:EQUS "USB already in use":BRK':'.usbPRINT_On'$SEC:JSR StatusRead'.TYA:BMI usbPRN_AlreadyOn'8€ #127:BNE errAlreadyUSB'B$LDX #UPTV € 255:JSR CheckClaimed'LJSR usb_Check'V:'`\.usbPRN_Init2'jGPHP:SEI:LDX #1               :\ Disable IRQs while changing vectors't.usbPRN_InitLp3'~LDA UPTV,X   :STA oldUPTV,X'ˆLDA prnUPTV,X:STA XUPTV,X'’DEX:BPL usbPRN_InitLp3'œLDY &F4'¦.LDA #&33:STA UPTV+0:STX UPTV+1:STY XUPTV+2'°0PLP                          :\ Restore IRQs'º.usbPRN_AlreadyOn'Ä2LDA #5:LDX #13:JMP OSBYTE    :\ Select printer'Î:'Ø:'â\ USER ñER DRIVER'ì\ ==================='ö.prn_UPT( 9CPY #USBPRN:BNE NotMyPrinter :\ Respond to printer 13(
8CMP #3:CLC:BEQ PrintFlush    :\ ï 3, CC=flush output(9CMP #1:BNE NotMyAction       :\ Not character written(2:                            :\ CS=don't flush((.PrintFlush(25PHP                          :\ Save CC=print all(<<LDX #3:CLV:CLC:JSR CallCNPV  :\ Count number in buffer 3(F:TYA:BNE PrintSome            :\ >255 bytes, print some(P9CPX #48:BCS PrintSome        :\ >47 bytes, print some(Z@PLP:BCC PrintBuff            :\ End of job, print all so far(d=RTS                          :\ <48 bytes, return with CS(n.PrintSome(x7LDX #48:PLP                  :\ Print 48 characters(‚:(Œ.PrintBuff(–\ Print buffered characters( !\ X=number of bytes in buffer(ª:(´4TXA:BEQ PrintDone            :\ Nothing to print(¾'LDA #&10:JSR usb_Cmd         :\ SCS(È'LDA #&91:JSR usb_Cmd         :\ IPH(Ò-LDA #&83:JSR usb_CmdX        :\ DSD,count(Ü:(æ.PrintLp(ðTXA:PHA(ú,LDX #3:CLV:JSR CallREMV      :\ A=Y=byte)JSR usb_Wr);PLA:TAX:DEX:BNE PrintLp      :\ Loop for all characters).PrintDone)"3SEC                          :\ Printer dormant),.NotMyAction)6RTS)@.NotMyPrinter)JJMP (oldUPTV))T.CallCNPV)^JMP (CNPV))h.CallREMV)rJMP (RemV))|:)†:)&\ *USBMOUSE î|‡ - enable USB mouse)š)\ -----------------------------------)¤\ Y=<num> 0 - Off, <>0 - On)®\)¸.usbMOUSE_Off)Â:LDY #0                       :\ Ensure USBMOUSE is off)Ì.usbMOUSE)ÖTYA:PHA)àSEC:JSR StatusRead)ê3PLA:BNE usbMOUSE_On          :\ <>0, USBPRINT î)ô:TYA:ASL A:BPL usbMSE_OffOk   :\ Already off, just exit)þGPHP:SEI:LDX #1               :\ Disable IRQs while changing vectors*.usbMSE_OffLp1*3LDA oldBYTEV,X:STA BYTEV,X   :\ Restore vectors*DEX:BPL usbMSE_OffLp1*&PLP*0.usbMSE_OffOk*:RTS*D:*N.usbMOUSE_On*X"TYA:ASL A:BMI usbMSE_AlreadyOn*b+ROR A:€ #&BF:BEQ P%+5:JMP errAlreadyUSB*l%LDX #BYTEV € 255:JSR CheckClaimed*vJSR usb_Check*€:*ŠGPHP:SEI:LDX #1               :\ Disable IRQs while changing vectors*”.usbMSE_InitLp3*ž!LDA BYTEV,X   :STA oldBYTEV,X*¨LDA mseBYTEV,X:STA XBYTEV,X*²DEX:BPL usbMSE_InitLp3*¼LDY &F4*Æ1LDA #&0F:STA BYTEV+0:STX BYTEV+1:STY XBYTEV+2*Ð0PLP                          :\ Restore IRQs*Ú.usbMSE_AlreadyOn*ä
LDX #5*î.usbMSE_InitPosn*ø7TXA:€ #1:ASL A:STA MSEPOSN,X :\ Initialise position+DEX:BPL usbMSE_InitPosn+4SEC:ROR MSEPOSN+0              :\ X=&280, Y=&200+1INX:STX MSEKEYS:RTS            :\ Buttons=&00+ :+*.mse_BYTE+4"CMP #&80:BEQ mseRdPosn    :\ –+>"CMP #&81:BEQ mseRdButtons :\ ¦+H.jmpBYTEV+RJMP (oldBYTEV)+\.mseRdPosn+f CPX #7:BCC jmpBYTEV   :\ –<7+p!CPX #11:BCS jmpBYTEV  :\ –>10+zPHP:PHA:SEI+„CPX #9:BNE P%+4:LDX #0+ŽACPX #10:BNE P%+3:DEX  :\ Offset into POSN or zero for buttons+˜<TXA:PHA:JSR mseUpdate :\ Updates POSN, returns X=buttons+¢(LDY #0:PLA:BEQ mseDone       :\ –(9)+¬1ASL A:TAX:LDY MSEPOSN-14+1,X :\ Get from POSN+¶LDA MSEPOSN-14+0,X:TAX+À.mseDone+ÊPLA:PLP:RTS+Ô.mseRdButtons+ÞCPY #&FF:BNE jmpBYTEV+èCPX #&F4:BCC jmpBYTEV+òCPX #&F7:BCS jmpBYTEV+üPHA:TXA:‚ #&F7:PHA,JSR mseUpdate,"PLA:TAY:TXA:DEY:BEQ mseButtons,"LSR A:DEY:BEQ mseButtons:LSR A,$.mseButtons,."LSR A:LDA #&00:ADC #&FF:‚ #&FF,8TAX:TAY:PLA:RTS,B:,L+\ Service call, so IRQs are already off,V.mseOsword,`!JSR MSECheckOn:BCS mseOsword1,jPLA:RTS,t.mseOsword1,~JSR mseUpdate:TXA:PHA,ˆ;LDA &F0:PHA:LDA &F1:PHA      :\ Straight outta MouseROM,’LDA #&86:JSR OSBYTE,œPLA:STA &F1:PLA:STA &F0,¦TYA:LDY #5:STA (&F0),Y,°TXA:DEY:STA (&F0),Y:DEY,º.mseOswordLp,Ä!LDA MSEPOSN,Y:STA (&F0),Y:DEY,ÎBPL mseOswordLp,ØPLA:ASL A:ASL A:ASL A:ASL A,â;ASL A:‚ #&FF:LDY #6:STA (&F0),Y    :\ Buttons %RMLxxxxx,ìPLA:LDA #0:RTS,ö:- .mseUpdate-
;LDX #0:LDY #12:JSR usb_KbdCmd        :\ Read from mouse-KSEC:BEQ mseFlush:CMP #5:BCS mseFlush :\ Null packet or not mouse packet-JSR usb_Rd-(&JSR usb_Rd:STA MSEKEYS  :\ buttons-2%JSR usb_Rd:PHA          :\ deltaX-<#JSR usb_Rd:‚ #&FF:PHA :\ deltaY-F%JSR usb_Rd:PHA          :\ deltaZ-PCLC-Z.mseFlush-d\ CS=null or invalid packet-n$\ CC=mouse packet, bytes stacked-x<PHP:JSR usb_Flush:PLP:BCS mseExit :\ Not our data packet-‚
LDX #4-Œ.mseAdjust-–<PLA:PHA                           :\ Get position change- 8CLC:ADC MSEPOSN,X:STA MSEPOSN,X   :\ Update low byte-ª;LDY #0:PLA:BPL P%+3:DEY:TYA       :\ Add &FFxx or &00xx-´#ADC MSEPOSN+1,X:STA MSEPOSN+1,X-¾BPL mseLowOk-È(LDA #0:STA MSEPOSN,X:STA MSEPOSN+1,X-Ò.mseLowOk-Ü&CPX #2:ADC #0:CMP #5:BCC mseHighOk-æLDA #&FF:STA MSEPOSN,X-ð&CPX #2:ADC #4:‚ #7:STA MSEPOSN+1,X-ú.mseHighOk.DEX:DEX:BPL mseAdjust..mseExit.\ USB buttons are %xxxxxMRL."\ BBC buttons are %xxxxxRML.,LDA MSEKEYS:PHA:€ #&F9:TAX.6!PLA:PHA:€ #4:BEQ P%+4:INX:INX.@%PLA:€ #2:BEQ P%+6:INX:INX:INX:INX.JRTS.T:.^:.h]:RelocTable=P%:í:òsm_table.rBñ"*Save USBROM ";~(mcode%+mclen%);" ";~O%;" FFFF0000 FFFBBC00".|à.†:.,Ý¤if(A%):çA%:z%=0:=opt% ‹ z%=P%:=opt%€-2.š8Ý¤endif:çz%:z%=P%-z%:P%=P%-z%:O%=O%-z%:=opt% ‹ =opt%.¤EÝ¤else:çz%:z%=P%-z%:P%=P%-z%:O%=O%-z%:z%=0:=opt% ‹ z%=P%:=opt%€-2.®:.¸Ý¤sm_pass(pass%).Âçpass%=0:mclen%=0.Ìçpass%=1:mclen%=O%-mcode%.ÖP%=&8100-128*(pass%€2).à O%=mcode%+mclen%*(pass%€2)2.ê3çpass%=1:ç O%+mclen%*2.125>L%:ñ"Code overrun":à.ô=»Á"4647",pass%+1,1).þ:/Ýòsm_table/Bbase80%=mcode%+mclen%:base81%=mcode%:byte%=0:count%=0:off%=0:õ/Tbyte80%=base80%?off%:byte81%=base81%?off%:ç off%>=mclen%:byte80%=&80:byte81%=&80/&]ç ((byte81%-byte80%) € &FE)<>0 Œ ñ "ERROR: Offset by more than one page at &";~&8000+off%/0Mç (byte80% € &C0)=&80:byte%=byte%2+128*(byte81%-byte80%):count%=count%+1/:1ç count%=8:?O%=byte%:O%=O%+1:byte%=0:count%=0/D(off%=off%+1:ýoff%>=mclen% € count%=0/Náÿ