Atari+USB+Keyboard+Driver

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