Atari USB Keyboard Driver#
first BETA Version, 15.9.2004
01000 .LI OFF 01010 ************************** 01020 ** 6502 USB DEVELOPMENT ** 01030 ** (C) 2004 BY ABBUC ** 01040 ** REGINALGRUPPE FFM ** 01050 ** KEYBOARD DRIVER FOR ** 01060 ** USB SL811HS ** 01070 ** VERSION 0.1b20040910 ** 01080 ************************** 01090 ; 01100 .OR $3500 01110 .OF "D:USBKEY.COM" 01120 ; 01130 ; SL811 MEMORY ADDRESSES 01140 ; CHANGE ACCORDING TO YOUR 01150 ; CONFIGURATION 01160 USBSEL = $D500 01170 USBDTA = $D501 01180 ; 01190 VCOUNT = $D40B 01200 ; 01210 ; USB REGISTER SL811 01220 ; 01230 CTL = $00 ; USBA HOST CTL 01240 BUFADR = $01 ; BUFFER ADDRESS 01250 BUFLEN = $02 ; BUFFER LEN 01260 PIDEP = $03 ; HOST PID 01270 PKSTAT = $03 ; PAKET STATUS 01280 FNADDR = $04 ; USB ADDR (WO) 01290 MCNTRL = $05 ; MAIN CONTROL 01300 CDTASET = $0E 01310 SOFCNT = $0F ; CNTRL 2 REG 01320 SOFLOW = $0E ; SOF LOW 01330 INTSTAT = $0D ; IRQ STATUS 01340 ; 01350 ; USB CONSTANTS 01360 ; 01370 ; INTENA AND INTSTAT MASKS 01380 EP0DONE = $01 01390 EP1DONE = $02 01400 EP2DONE = $04 01410 EP3DONE = $08 01420 DMADONE = $10 01430 SOFRECV = $20 01440 USBRSET = $40 01450 DMASTAT = $80 01460 ; 01470 ; ENDPOINT CONTROL REG 01480 EPC0 = $00 ; ENDPOINT 0 01490 EPC1 = $10 ; ENDPOINT 1 01500 EPC2 = $20 ; ENDPOINT 2 01510 EPC3 = $30 ; ENDPOINT 3 01520 ; 01530 ; ENDPOINT REGISTER OFFSET 01540 ; 01550 EPC = $00 ; CONTROL 01560 EPBA = $01 ; BASE ADDRESS 01570 EPBL = $02 ; BASE LENGTH 01580 EPPS = $03 ; PACKET STATUS 01590 EPTC = $04 ; TRANSFERCOUNT 01600 ; 01610 ; PID VALUES 01620 ; 01630 SOFPID = $05 ; SOF PID 01640 INPID = $90 ; PACKET ID 01650 SETPID = $D0 ; SET ADDRESS REQ 01660 ; 01670 ; SET ADDRESS PACKET 01680 ; 01690 SETADDR .HX 0005010000000000 01700 ; 01710 ; SET CONFIG PACKET 01720 ; 01730 SETCONF .HX 0009010000000000 01740 ; 01750 ; ATARI MEMORY LOCATIONS 01760 CH = $2FC 01770 SETVBV = $E45C 01780 XITVBV = $E462 01790 ; 01795 ; non resident init part 01800 ------------------------------ 01810 USBRESET 01820 LDA #$AE ; SET SOF 01830 LDX #SOFCNT ; HIGH COUNT 01840 JSR REGSTORE 01850 ; 01860 LDA #$08 ; RESET USB 01870 LDX #MCNTRL ; FULLSPEED 01880 JSR REGSTORE 01890 ; 01900 LDA #$10 01910 JSR PAUSE 01920 ; 01930 LDA #00 01940 LDX #MCNTRL 01950 JSR REGSTORE 01960 ; 01970 RTS 01980 ------------------------------ 01990 QUERYUSBRESET 02000 ; OUT: A=0 NO USB RESET 02010 ; A!=0 USBRESET 02020 ; 02030 ; 02040 ; 02050 LDX #INTSTAT 02060 JSR REGFETCH 02070 AND #USBRSET 02080 RTS 02090 ------------------------------ 02100 CLEARIRQ 02110 LDA #$FF 02120 LDX #INTSTAT 02130 JMP REGSTORE 02140 ------------------------------ 02150 SPEED 02160 ; OUT: A=0 LOW SPEED DEVICE 02170 ; A!=0 HIGH SPEED DEVICE 02180 ; OR ERROR 02190 ; 02200 JSR USBRESET 02210 JSR CLEARIRQ 02220 LDA #10 02230 JSR PAUSE 02240 JSR QUERYUSBRESET 02250 BEQ .1 ; NO RESET 02260 JSR CLEARIRQ 02270 LDA #$FF 02280 RTS 02290 ; 02300 .1 LDX #INTSTAT 02310 JSR REGFETCH 02320 AND #DMASTAT 02330 BNE .2 02340 ; 02350 ; LOW SPEED 02360 ; 02370 LDA #$AE 02380 LDX #SOFCNT 02390 JSR REGSTORE 02400 ; 02410 LDA #$E0 02420 LDX #CDTASET 02430 JSR REGSTORE 02440 ; 02450 LDA #$05 02460 LDX #MCNTRL 02470 JSR REGSTORE 02480 ; 02490 JSR SETUPUSB 02500 LDA #$00 02510 ; 02520 ; FULL SPEED OR ERROR 02530 ; 02540 .2 02550 RTS 02560 ------------------------------ 02570 SETUPUSB 02580 LDA #$50 02590 LDX #EPC0+EPPS 02600 JSR REGSTORE 02610 ; 02620 LDA #$00 02630 LDX #EPC0+EPTC 02640 JSR REGSTORE 02650 ; 02660 LDA #$01 02670 LDX #EPC0 02680 JSR REGSTORE 02690 ; 02700 LDA #25 02710 JSR PAUSE 02720 ; 02730 JSR CLEARIRQ 02740 RTS 02750 ------------------------------ 02760 INITKEYB 02770 LDA #08 02780 LDX #MCNTRL 02790 JSR REGSTORE 02800 ; 02810 LDA #10 02820 JSR PAUSE 02830 ; 02840 LDA #$21 02850 LDX #MCNTRL 02860 JSR REGSTORE 02870 ; 02880 LDA #$10 ; $10 ADDR 02890 LDX #BUFADR ; DATABUF 02900 JSR REGSTORE 02910 ; 02920 LDA #$8 ; 8 BYTE 02930 LDX #BUFLEN ; DATABUF 02940 JSR REGSTORE 02950 ; 02960 LDA #$E0 ; 1MS EOP 02970 LDX #SOFLOW 02980 JSR REGSTORE 02990 ; 03000 LDA #$EE 03010 LDX #SOFCNT 03020 JSR REGSTORE 03030 ; 03040 ; SET BUFFER FOR SETUP-ADDRESS 03050 ; REQUEST = 1 03060 ; 03070 LDY #8 03080 .1 TYA 03090 CLC 03100 ADC #$F ; BUF ADDR 03110 TAX 03120 LDA SETADDR-1,Y 03130 JSR REGSTORE 03140 DEY 03150 BNE .1 03160 ; 03170 LDA #00 ; WE USE 03180 LDX #FNADDR ; ADDR 0 03190 JSR REGSTORE 03200 ; 03210 LDA #SETPID 03220 LDX #PIDEP 03230 JSR REGSTORE 03240 ; 03250 .2 LDA #07 03260 JSR PROCESS 03270 AND #04 03280 BNE .2 03290 ; 03300 LDA #INPID 03310 LDX #PIDEP 03320 JSR REGSTORE 03330 ; 03340 LDA #03 03350 JSR PROCESS 03360 ; 03370 ; SELECT CONFIGURATION 1 03380 ; 03390 LDY #8 03400 .3 TYA 03410 CLC 03420 ADC #$F 03430 TAX 03440 LDA SETCONF-1,Y 03450 JSR REGSTORE 03460 DEY 03470 BNE .3 03480 ; 03490 LDA #01 03500 LDX #FNADDR ; NEW ADDR 03510 JSR REGSTORE 03520 ; 03530 LDA #SETPID 03540 LDX #PIDEP 03550 JSR REGSTORE 03560 ; 03570 .4 LDA #07 03580 JSR PROCESS 03590 AND #04 03600 BNE .4 03610 ; 03620 LDA #INPID 03630 LDX #PIDEP 03640 JSR REGSTORE 03650 ; 03660 LDA #03 03670 JSR PROCESS 03680 ; 03690 LDA #INPID 03700 ORA #01 03710 LDX #PIDEP 03720 JSR REGSTORE 03730 ; 03740 RTS 03750 ------------------------------ 03760 ; Print String with OS 02770 ; @ is end marker. 03860 ------------------------------ 03870 * Atari specific 03880 * 03890 PRINT PLA Return Adresse 03900 STA $D0 vom Stack 03910 PLA holen und als 03920 STA $D1 pointer speichern 03930 * 03940 INCP INC $D0 Pointer 03950 BNE .1 Hochzaeh- 03960 INC $D1 len 03970 .1 LDX #0 Zeichen aus 03980 LDA ($D0,X) Ram lesen 03990 CMP #'@ Ende? 04000 BEQ ENDPR ja==> 04010 JSR PUTCHAR Zeichen ausgeben 04020 JMP INCP zurueck in schleife 04030 * 04040 ENDPR LDA $D1 Pointer als 04050 PHA neue Return 04060 LDA $D0 Adresse aufs 04070 PHA Stack legen 04080 RTS Programm hinter 04090 * Text fortfuehren! 04100 ------------------------------ 04110 PUTCHAR TAX Druck 04120 LDA $E407 Zeichen 04130 PHA mit 04140 LDA $E406 Stack 04150 PHA Methode 04160 TXA 04170 RTS JUMP 04180 ------------------------------ 04190 WAITKEYBOARD 04200 JSR PRINT 04210 .HX 9B 04220 .AS "ATARI USB KEYBOARD DRIVER" 04230 .HX 9B 04240 .AS "(c) 2004 ABBUC e.V." 04250 .HX 9B 04260 .AS "H. Reminder, T. Grasel, C. Strotmann" 04270 .HX 9B9B 04280 .AS "WAIT FOR DEVICE..." 04290 .HX 9B40 04300 .1 JSR SPEED 04310 CMP #0 04320 BNE .1 04330 JSR PRINT 04340 .AS "LOW SPEED DEVICE DETECTED!" 04350 .HX 9B40 04360 ; 04370 JSR INITKEYB 04380 JSR PRINT 04390 .AS "KEYBOARD INITILIZED." 04400 .HX 9B40 04410 LDX /KEYVBI 04420 LDY #KEYVBI 04430 LDA #7 04440 JSR SETVBV 04450 RTS 04460 ------------------------------ 04470 .OR $600 04475 ; resident USB routine 04480 ------------------------------ 04490 REGFETCH 04500 ; IN: X=USB REGISTER 04510 ; OUT: A=USB DATA 04520 STX USBSEL 04530 LDA USBDTA 04540 RTS 04550 ------------------------------ 04560 REGSTORE 04570 ; IN: A=USB DATA 04580 ; X=USB REGISTER 04590 STX USBSEL 04600 STA USBDTA 04610 RTS 04620 ------------------------------ 04630 PAUSE 04640 ; IN: A=NUMBER OF 1/50 SEC 04650 TAX 04660 .1 LDA VCOUNT 04670 BNE .1 04680 DEX 04690 BNE .1 04700 RTS 04710 ------------------------------ 04720 ; 04730 GETKEY 04740 LDA #4 04750 JSR PAUSE 04760 ; 04770 LDA #03 04780 JSR PROCESS 04790 AND #01 04800 BEQ .2 ; NO KEY 04810 ; 04820 LDX #$10 04830 JSR REGFETCH 04840 STA MODIFIER 04850 LDX #$12 04860 JSR REGFETCH 04870 .2 RTS 04880 MODIFIER .HX 00 04890 ------------------------------ 04900 PROCESS 04910 ; IN: A=USB COMMAND 04920 ; OUT: A=RETURNCODE 04930 PHA 04940 LDA #01 04950 LDX #INTSTAT 04960 JSR REGSTORE 04970 ; 04980 PLA 04990 LDX #CTL 05000 JSR REGSTORE 05010 ; 05020 .1 LDX #INTSTAT 05030 JSR REGFETCH 05040 AND #$01 05050 BEQ .1 05060 ; 05070 LDX #PKSTAT 05080 JSR REGFETCH 05090 RTS 05100 ------------------------------ 05110 USB2ATA ; USB -> ATARI Keycode 05120 STA CH 05130 LDY #$3F 05140 .1 LDA KEYTAB,Y 05150 CMP CH 05160 BEQ .2 05170 DEY 05180 BPL .1 05190 .2 TYA 05200 LDX MODIFIER 05210 ORA MODTAB,X 05220 RTS 05230 ------------------------------ 05240 KEYVBI ; Poll USB 05250 LDX CH 05260 INX 05270 BNE .1 05280 JSR GETKEY 05290 BEQ .1 05300 JSR USB2ATA 05310 STA CH 05320 .1 JMP XITVBV 05330 ------------------------------ 05340 ; KEYCODE TABLE 05350 KEYTAB .HX 0F0D36FFFF0E284F 05360 .HX 12FF1318280C5251 05370 .HX 19FF06FFFF051B1C 05380 .HX 21FF202329221F1E 05390 .HX 2B2C3711FF10FF1B 05400 .HX 15FF081D2B171A14 05410 .HX 26FF27242A25FFFF 05420 .HX 090B07FFFF0A1604 05430 MODTAB .HX 008040 05440 ------------------------------ 05450 .OR $2E0 05460 .DA WAITKEYBOARD 05470 ------------------------------
-- Carsten Strotmann
