Т > USBDUMP #Т Needs to run in I/O processor : ( К 128 2&ч M%(32),data% 31:Рusb_Init:ecs%=0 <У FО30 PЯ"USB: DUMP INPUT/OUTPUT"' ZЯ"S Sync"'"F Flush" d2Я"Z Short commands"'"X Extended commands"' nЯ"H IPH : Hex" xЯ"A IPA : Ascii" ┌Я"1 QP1 : Query Port 1" ▄Я"2 QP2 : Query Port 2" √#Я"Cn SCx : Set Current Device" ═Я"Qn QDx : Query Device" ╙(Я"R DRD : Read: Device Read Data" Є(Я"Wx DSD : Write: Device Send Data" Ў&Т PRINT"Ux : Send SetUp data" хЯ"Tx SFx : Set FTDI" р#Я"V QSS : Query Slave Status" эЯ"E E : Echo" Ф0УA$=Ў:Щї"SFHAZX12CQRWUTVE",A$):Рdo:Рusb_Sync ПЩ ё ЗЮ : щРdo -Я┴(60)'┴(60)'┴(60)'┴(60)'Ґ11;Ґ11;Ґ11;Ґ11; "Г A$="S":Рusb_Sync:А ,Г A$="F":Рusb_Flush:А 6$Г A$="Z":Рusb_Cmd(Ґ&10):ecs%=0:А @$Г A$="X":Рusb_Cmd(Ґ&11):ecs%=1:А J&Г A$="A":Гecs%:Рusb_Cmd("IPA") :А T$Г A$="A": Рusb_Cmd(Ґ&90):А ^&Г A$="H":Гecs%:Рusb_Cmd("IPH") :А h$Г A$="H": Рusb_Cmd(Ґ&91):А r&Г A$="1":Гecs%:Рusb_Cmd("QP1") :А |$Г A$="1": Рusb_Cmd(Ґ&2B):А ├&Г A$="2":Гecs%:Рusb_Cmd("QP2") :А ░$Г A$="2": Рusb_Cmd(Ґ&2C):А Г A$="W":Рdsd:А:Т &83 є&Г A$="R":Гecs%:Рusb_Cmd("DRD") :А ў$Г A$="R" :Рusb_Cmd(Ґ&84):А ╦Г A$="Q":Я"QD";:B$=Ў:Я б4Г A$="Q":Гecs%:Рusb_Cmd("QD "+B$) :А л-Г A$="Q": Рusb_Cmd(Ґ&85+" "+Ґ╩B$):А жГ A$="C":Я"SC";:B$=Ў:Я Ю4Г A$="C":Гecs%:Рusb_Cmd("SC "+B$) :А Й-Г A$="C": Рusb_Cmd(Ґ&86+" "+Ґ╩B$):А ТГ A$="T":Я"SF";:B$=Ў:Я Ч4Г A$="T":Гecs%:Рusb_Cmd("SF "+B$) :А -Г A$="T": Рusb_Cmd(Ґ&87+" "+Ґ╩B$):А $Г A$="V":Гecs%:Рusb_Cmd("QSS"):А $Г A$="V": Рusb_Cmd(Ґ&98):А &Г A$="E":Рusb_Cmd("E"):А 0'Т IF A$="U":PROCssu:ENDPROC:REM &9A :А D: N: X#щєh0(A%,N%)=б"0000000"+ц~A%,N%) b3щєc0(A%):ГA%<32└A%>126:Я"<"єh0(A%,2)">"; ▀ О A% l="" v: ─Т > USBLib 1.00 ┼: ■Т USB access routines ·Т =================== ╗/щРusb_Sync:УГ(?usb_S ─ 128)=0:Яєc0(?usb_D); ╡Щ(?usb_S ─ 128):А ╪!щРusb_Flush:Г(?usb_S ─ 128):А ф<Я'"Flushing USB";:У:УA%=?usb_D:Яєc0(A%);:Щ(?usb_S ─ 128) п$A%=▒+20:УЩ▒>A%:Щ(?usb_S ─ 128):А зVщєusb_Err:Г?usb_result%=13 └ usb_result%?1=≈":":=0 ▀ Я"USB Error: "$usb_result%:=╧ ДAщРusb_Cmd(A$):Ш129:Ш0:Рusb_WrStr(A$+Ґ13):Ш128:Ш1:Рusb_RdStr:А Н(щєusb_Cmd(A$):Рusb_Cmd(A$):=єusb_Err Ь3щРusb_WrStr(A$):Ц A%=1 ╦ ╘ A$:УЩ(?usb_S ─ 64)=0 +Яєc0(≈аA$,A%,1));:?usb_D=≈аA$,A%,1):М:А ?щРusb_RdStr:A%=usb_result%-1:УA%=A%+1:?A%=єusb_Rd:Щ?A%=13:А .щРusb_Wr(A%):УЩ(?usb_S ─ 64)=0:?usb_D=A%:А ;щєusb_Rd:ЙA%:УЩ(?usb_S ─ 128)=0:A%=?usb_D:Яєc0(A%);:=A% *щРusb_Init 4usb_D=&FCF8:usb_S=&FCF9 >+usb_result%=usb_result%:Г usb_result%:А Hч usb_result% 63,mc% 99 RЦ P=0 ╦ 1:P%=mc%:[OPT P*2 \.usb_RdData f'TAY:LDA #data% ─ 255:STA usb_RdLp+4 p*LDA #data% │ 256:STA usb_RdLp+5:LDX #0 z5.usb_RdLp:JSR usb_Rd:STA data%,X:INX:BNE usb_RdLp └'INC usb_RdLp+5:DEY:BNE usb_RdLp:RTS ▌4.usb_Rd:BIT usb_S:BPL usb_Rd2:BIT &FF:BPL usb_Rd ≤.usb_Rd2:LDA usb_D:RTS ╒.usb_WrData ╛'TAY:LDA #data% ─ 255:STA usb_WrLp+1 І*LDA #data% │ 256:STA usb_WrLp+2:LDX #0 ю$.usb_WrLp:LDA data%,X:JSR usb_Wr й0.usb_WrLp2:LDA usb_D:BIT usb_S:BPL usb_WrLp2 тINX:BNE usb_WrLp ч'INC usb_WrLp+2:DEY:BNE usb_WrLp:RTS Х4.usb_Wr:BIT usb_S:BVC usb_Wr2:BIT &FF:BPL usb_Wr Р.usb_Wr2:STA usb_D:RTS Э]М:А : Ъ