Atari USB analog Joystick Driver#
Tested with a Logitec Attack 3 analog Jpystick. Other analog Joysticks might work. Please send feedback.
Generic VBI Driver#
Will work with Atari Basic, Turbo Basic, ACTION!, XFORTH.
Compatibility Mode#
Load driver and use Stick(0) and Strig(0) as normal.
Signals from original Joystick in Port A will overwrite USB Joystick compatibility mode.
USB Analog Joystick Mode#
| Label | Mem | Values | |
|---|---|---|---|
| USBHORZ | $0270 | horizontal values (127-0 left move, 128 = no move, 129-255 right move) | |
| USBVERT | $0271 | vertical values (127-0 up move, 128 = no move, 129-255 down move) | |
| USBTRIG0 | $0272 | Buttons 1-8 (each bit, bit set = Button pressed) | |
| USBTRIG1 | $0273 | Buttons 9-10 (each bit, bit set = Button pressed) | |
| USBTHRUS | $0274 | Thrust (0-255) |
Source Code (BiboAssembler)#
01000 .LI OFF 01010 **************************** 01020 ** 6502 USB DEVELOPMENT ** 01030 ** (C) 2004 BY ABBUC ** 01040 ** REGIONALGRUPPE FFM ** 01050 ** ANALOG JOYSTICK DRIVER ** 01060 ** FOR USB SL811HS ** 01070 ** VERSION 1.0 20041114 ** 01080 ** LICENSED UNDER THE ** 01090 ** GNU PUBLIC LICENSE ** 01100 ** (GPL) VERS. 2 OR LATER ** 01110 ** ** 01120 **************************** 01130 ; 01140 .OR $3500 01150 .OF "D:USBJOYST.COM" 01160 ; 01170 ; SL811 MEMORY ADDRESSES 01180 ; CHANGE ACCORDING TO YOUR 01190 ; CONFIGURATION 01200 USBSEL = $D500 01210 USBDTA = $D501 01220 ; 01230 ; USB REGISTER SL811 01240 ; 01250 CTL = $00 ; USBA HOST CTL 01260 BUFADR = $01 ; BUFFER ADDRESS 01270 BUFLEN = $02 ; BUFFER LEN 01280 PIDEP = $03 ; HOST PID 01290 PKSTAT = $03 ; PAKET STATUS 01300 FNADDR = $04 ; USB ADDR (WO) 01310 MCNTRL = $05 ; MAIN CONTROL 01320 CDTASET = $0E 01330 SOFCNT = $0F ; CNTRL 2 REG 01340 SOFLOW = $0E ; SOF LOW 01350 INTSTAT = $0D ; IRQ STATUS 01360 ; 01370 ; USB CONSTANTS 01380 ; 01390 ; INTENA AND INTSTAT MASKS 01400 EP0DONE = $01 01410 EP1DONE = $02 01420 EP2DONE = $04 01430 EP3DONE = $08 01440 DMADONE = $10 01450 SOFRECV = $20 01460 USBRSET = $40 01470 DMASTAT = $80 01480 ; 01490 ; ENDPOINT CONTROL REG 01500 EPC0 = $00 ; ENDPOINT 0 01510 EPC1 = $10 ; ENDPOINT 1 01520 EPC2 = $20 ; ENDPOINT 2 01530 EPC3 = $30 ; ENDPOINT 3 01540 ; 01550 ; ENDPOINT REGISTER OFFSET 01560 ; 01570 EPC = $00 ; CONTROL 01580 EPBA = $01 ; BASE ADDRESS 01590 EPBL = $02 ; BASE LENGTH 01600 EPPS = $03 ; PACKET STATUS 01610 EPTC = $04 ; TRANSFERCOUNT 01620 ; 01630 ; PID VALUES 01640 ; 01650 SOFPID = $05 ; SOF PID 01660 INPID = $90 ; PACKET ID 01670 SETPID = $D0 ; SET ADDRESS REQ 01680 ; 01690 ; SET ADDRESS PACKET 01700 ; 01710 SETADDR .HX 0005010000000000 01720 ; 01730 ; SET CONFIG PACKET 01740 ; 01750 SETCONF .HX 0009010000000000 01760 ; 01770 ; ATARI MEMORY LOCATIONS 01780 ; 01790 STICK0 = $0278 01800 STRIG0 = $0284 01810 ; 01820 ; USB JOYSTICK SHADOW REGISTER 01830 ; 01840 USBHORZ = $0270 01850 USBVERT = $0271 01860 USBTRIG0 = $0272 01870 USBTRIG1 = $0273 01880 USBTHRUS = $0274 01890 ; 01900 SETVBV = $E45C 01910 XITVBV = $E462 01920 VCOUNT = $D40B 01930 CONSOL = $D01F 01940 ; 01950 ------------------------------ 01960 USBRESET 01970 LDA #$AE ; SET SOF 01980 LDX #SOFCNT ; HIGH COUNT 01990 JSR REGSTORE 02000 ; 02010 LDA #$08 ; RESET USB 02020 LDX #MCNTRL ; FULLSPEED 02030 JSR REGSTORE 02040 ; 02050 LDA #$10 02060 JSR PAUSE 02070 ; 02080 LDA #00 02090 LDX #MCNTRL 02100 JSR REGSTORE 02110 ; 02120 RTS 02130 ------------------------------ 02140 QUERYUSBRESET 02150 ; OUT: A=0 NO USB RESET 02160 ; A!=0 USBRESET 02170 ; 02180 LDX #INTSTAT 02190 JSR REGFETCH 02200 AND #USBRSET 02210 RTS 02220 ------------------------------ 02230 CLEARIRQ 02240 LDA #$FF 02250 LDX #INTSTAT 02260 JMP REGSTORE 02270 ------------------------------ 02280 SPEED 02290 ; OUT: A=0 LOW SPEED DEVICE 02300 ; A!=0 HIGH SPEED DEVICE 02310 ; OR ERROR 02320 ; 02330 JSR USBRESET 02340 JSR CLEARIRQ 02350 LDA #10 02360 JSR PAUSE 02370 JSR QUERYUSBRESET 02380 BEQ .1 ; NO RESET 02390 JSR CLEARIRQ 02400 LDA #$FF 02410 RTS 02420 ; 02430 .1 LDX #INTSTAT 02440 JSR REGFETCH 02450 AND #DMASTAT 02460 BNE .2 02470 ; 02480 ; LOW SPEED 02490 ; 02500 LDA #$AE 02510 LDX #SOFCNT 02520 JSR REGSTORE 02530 ; 02540 LDA #$E0 02550 LDX #CDTASET 02560 JSR REGSTORE 02570 ; 02580 LDA #$05 02590 LDX #MCNTRL 02600 JSR REGSTORE 02610 ; 02620 JSR SETUPUSB 02630 LDA #$00 02640 ; 02650 ; FULL SPEED OR ERROR 02660 ; 02670 .2 02680 RTS 02690 ------------------------------ 02700 SETUPUSB 02710 LDA #$50 02720 LDX #EPC0+EPPS 02730 JSR REGSTORE 02740 ; 02750 LDA #$00 02760 LDX #EPC0+EPTC 02770 JSR REGSTORE 02780 ; 02790 LDA #$01 02800 LDX #EPC0 02810 JSR REGSTORE 02820 ; 02830 LDA #25 02840 JSR PAUSE 02850 ; 02860 JSR CLEARIRQ 02870 RTS 02880 ------------------------------ 02890 INITJOYST 02900 LDA #08 02910 LDX #MCNTRL 02920 JSR REGSTORE 02930 ; 02940 LDA #14 02950 JSR PAUSE 02960 ; 02970 LDA #$21 02980 LDX #MCNTRL 02990 JSR REGSTORE 03000 ; 03010 LDA #$10 ; $10 ADDR 03020 LDX #BUFADR ; DATABUF 03030 JSR REGSTORE 03040 ; 03050 LDA #$8 ; 8 BYTE 03060 LDX #BUFLEN ; DATABUF 03070 JSR REGSTORE 03080 ; 03090 LDA #$E0 ; 1MS EOP 03100 LDX #SOFLOW 03110 JSR REGSTORE 03120 ; 03130 LDA #$EE 03140 LDX #SOFCNT 03150 JSR REGSTORE 03160 ; 03170 ; SET BUFFER FOR SETUP-ADDRESS 03180 ; REQUEST = 1 03190 ; 03200 LDY #8 03210 .1 TYA 03220 CLC 03230 ADC #$F ; BUF ADDR 03240 TAX 03250 LDA SETADDR-1,Y 03260 JSR REGSTORE 03270 DEY 03280 BNE .1 03290 ; 03300 LDA #00 ; WE USE 03310 LDX #FNADDR ; ADDR 0 03320 JSR REGSTORE 03330 ; 03340 LDA #SETPID 03350 LDX #PIDEP 03360 JSR REGSTORE 03370 ; 03380 .2 LDA #07 03390 JSR PROCESS 03400 AND #04 03410 BNE .2 03420 ; 03430 LDA #20 03440 JSR PAUSE 03450 ; 03460 LDA #INPID 03470 LDX #PIDEP 03480 JSR REGSTORE 03490 ; 03500 LDA #03 03510 JSR PROCESS 03520 ; 03530 ; SELECT CONFIGURATION 1 03540 ; 03550 LDY #8 03560 .3 TYA 03570 CLC 03580 ADC #$F 03590 TAX 03600 LDA SETCONF-1,Y 03610 JSR REGSTORE 03620 DEY 03630 BNE .3 03640 ; 03650 LDA #01 03660 LDX #FNADDR ; NEW ADDR 03670 JSR REGSTORE 03680 ; 03690 LDA #SETPID 03700 LDX #PIDEP 03710 JSR REGSTORE 03720 ; 03730 .4 LDA #07 03740 JSR PROCESS 03750 AND #04 03760 ; 03770 BNE .4 03780 ; 03790 LDA #INPID 03800 LDX #PIDEP 03810 JSR REGSTORE 03820 ; 03830 LDA #03 03840 JSR PROCESS 03850 ; 03860 LDA #INPID 03870 ORA #01 03880 LDX #PIDEP 03890 JSR REGSTORE 03900 ; 03910 RTS 03920 ------------------------------ 03930 ; PRINT INLINE STRING 03940 ; END MARKER '@' 03950 ; 03960 PRINT PLA get Return address 03970 STA $D0 from Stack 03980 PLA and store 03990 STA $D1 as pointer 04000 ; 04010 INCP INC $D0 increase 04020 BNE .1 pointer 04030 INC $D1 04040 .1 LDX #0 read Char from RAM 04050 LDA ($D0,X) 04060 CMP #'@ End? 04070 BEQ ENDPR yes==> 04080 JSR PUTCHAR Print Char 04090 JMP INCP back to loop 04100 ; 04110 ENDPR LDA $D1 store pointer 04120 PHA as new 04130 LDA $D0 return address 04140 PHA on stack 04150 RTS continue pgm 04160 ; after text 04170 ------------------------------ 04180 PUTCHAR TAX Print char 04190 LDA $E407 with OS 04200 PHA Routine 04210 LDA $E406 04220 PHA 04230 TXA 04240 RTS JUMP 04250 ------------------------------ 04260 WAITJOYSTICK 04270 JSR PRINT 04280 .HX 9B 04290 .AS "ATARI USB JOYSTICK DRIVER" 04300 .HX 9B 04310 .AS "Version 1.0 / GNU License" 04320 .HX 9B 04330 .AS "(c) 2004 ABBUC e.V." 04340 .HX 9B 04350 .AS "H. Reminder, T. Grasel, C. Strotmann" 04360 .HX 9B9B 04370 .AS "WAIT FOR DEVICE, [START] TO SKIP..." 04380 .HX 9B40 04390 .1 JSR SPEED 04400 BEQ .2 04410 ; QUERY CONSOL KEYS 04420 LDA CONSOL 04430 AND #1 ; START KEY 04440 BEQ .3 ; SKIP USB 04450 BNE .1 04460 ; 04470 .2 JSR PRINT 04480 .AS "LOW SPEED DEVICE DETECTED!" 04490 .HX 9B40 04500 ; 04510 JSR INITJOYST 04520 JSR PRINT 04530 .AS "JOYSTICK INITILIZED." 04540 .HX 9B40 04550 LDX /JOYVBI 04560 LDY #JOYVBI 04570 LDA #7 04580 JSR SETVBV 04590 RTS 04600 ; 04610 .3 JSR PRINT 04620 .AS "USB detection skipped," 04630 .HX 9B 04640 .AS "no USB Driver installed!" 04650 .HX 9B40 04660 RTS 04670 ------------------------------ 04680 RESPART .OR $600 04690 ; 04700 ; THRESHOLD ANALOG->DIGITAL 04710 THLEFT .HX 60 04720 THRIGHT .HX A0 04730 THUP .HX 60 04740 THDOWN .HX A0 04750 ------------------------------ 04760 REGFETCH 04770 ; IN: X=USB REGISTER 04780 ; OUT: A=USB DATA 04790 STX USBSEL 04800 LDA USBDTA 04810 RTS 04820 ------------------------------ 04830 REGSTORE 04840 ; IN: A=USB DATA 04850 ; X=USB REGISTER 04860 STX USBSEL 04870 STA USBDTA 04880 RTS 04890 ------------------------------ 04900 PAUSE 04910 ; IN: A=NUMBER OF 1/50 SEC 04920 TAX 04930 .1 LDA VCOUNT 04940 BNE .1 04950 DEX 04960 BNE .1 04970 RTS 04980 ------------------------------ 04990 GETJOYSTICK 05000 ; 05010 LDA #03 05020 JSR PROCESS 05030 ; AND #01 05040 ; BEQ .2 ; NO DATA 05050 ; 05060 LDX #$10 05070 JSR REGFETCH 05080 STA USBHORZ 05090 LDX #$11 05100 JSR REGFETCH 05110 STA USBVERT 05120 LDX #$12 05130 JSR REGFETCH 05140 STA USBTHRUS 05150 LDX #$13 05160 JSR REGFETCH 05170 STA USBTRIG0 05180 LDX #$14 05190 JSR REGFETCH 05200 STA USBTRIG1 05210 ; 05220 .2 RTS 05230 ------------------------------ 05240 PROCESS 05250 ; IN: A=USB COMMAND 05260 ; OUT: A=RETURNCODE 05270 PHA 05280 LDA #01 05290 LDX #INTSTAT 05300 JSR REGSTORE 05310 ; 05320 PLA 05330 LDX #CTL 05340 JSR REGSTORE 05350 ; 05360 .1 LDX #INTSTAT 05370 JSR REGFETCH 05380 AND #$01 05390 BEQ .1 05400 ; 05410 LDX #PKSTAT 05420 JSR REGFETCH 05430 RTS 05440 ------------------------------ 05450 USB2ATA 05460 LDA #$0F 05470 STA STICK0 05480 LDA #1 05490 STA STRIG0 05500 ; 05510 LDA USBTRIG0 05520 ORA USBTRIG1 05530 BEQ GETSTICK 05540 LDA #0 05550 STA STRIG0 05560 ; 05570 GETSTICK 05580 LDA STICK0 05590 LDX USBHORZ 05600 CPX THLEFT 05610 BCC .1 ; LEFT 05620 CPX THRIGHT 05630 BCS .2 ; RIGHT 05640 BCC .10 05650 .1 EOR #$04 ; LEFT 05660 BPL .3 05670 .2 EOR #$08 ; RIGHT 05680 .3 STA STICK0 05690 .10 05700 LDX USBVERT 05710 CPX THUP 05720 BCC .11 ; UP 05730 CPX THDOWN 05740 BCS .12 ; DOWN 05750 BCC .20 05760 .11 EOR #$01 ; UP 05770 BNE .13 05780 .12 EOR #$02 ; DOWN 05790 .13 STA STICK0 05800 .20 RTS 05810 ------------------------------ 05820 JOYVBI 05830 LDA STICK0 05840 EOR #$0F 05850 BNE .1 05860 LDA STRIG0 05870 BEQ .1 05880 ; 05890 JSR GETJOYSTICK 05900 JSR USB2ATA 05910 .1 JMP XITVBV 05920 ------------------------------ 05930 .OR $2E0 05940 .DA WAITJOYSTICK 05950 ------------------------------
