On commence par les infos de câblage des manettes :
Code : Tout sélectionner
; Mega Drive control pad pin
; --------------------------
; pin 1 : up/Z
; pin 2 : down/Y
; pin 3 : left/X
; pin 4 : right/mode
; pin 5 : +5v
; pin 6 : B/A
; pin 7 : line select
; pin 8 : ground
; pin 9 : C/Start
; Thomson TO8 control pad pin
; ---------------------------
; pin 1 : up
; pin 2 : down
; pin 3 : left
; pin 4 : right
; pin 5 : +5v
; pin 6 : A
; pin 7 : B
; pin 8 : ground
; pin 9 : <not connected>- par défaut la lecture standard depuis le TO8 ne permet que de lire le bouton B, en effet le second bouton est lu depuis le pin 7, occupé par le line select sur une manette Mega Drive.
- on ne pourra pas lire les boutons C et START, car le pin 9 n'est pas connecté sur le TO8
Comment ça fonctionne ?
Code : Tout sélectionner
; Mega Drive 6btn control pad line select sequence
; ------------------------------------------------
; Cycle TH out TR in TL in D3 in D2 in D1 in D0 in
; 1 HI C B Right Left Down Up
; 2 LO Start A 0 0 Down Up
; 3 HI C B Right Left Down Up
; 4 LO Start A 0 0 Down Up
; 5 HI C B Right Left Down Up
; 6 LO Start A 0 0 0 0
; 7 HI C B Mode X Y Z
; 8 LO Start A --- --- --- ---Le code d'initialisation suivant va paramétrer le MC6821 pour que tous les bits venant des ports manette du TO8 soient en lecture, sauf les pin 7 des deux ports qui vont être positionnés en écriture.
Code : Tout sélectionner
joypad.md6.init
; configure MC6821 to be able to read joypads (1&2) direction
lda $E7CE ; read Control Register A (CRA)
anda #$FB ; unset bit 2
sta $E7CE ; select Data Direction Register A (DDRA)
clrb ; unset all bits
stb $E7CC ; Peripherial Interface A (PIA) lines set as input
ora #$04 ; set b2
sta $E7CE ; select Peripherial Interface A (PIA) Register
; configure MC6821 to be able to read joypads (1&2) buttons
lda $E7CF ; read Control Register B (CRB)
anda #$FB ; unset bit 2
sta $E7CF ; select Data Direction Register B (DDRB)
ldb #$0C ; set bit 2 (pin7 ctrl 0) and 3 (pin7 ctrl 1), warning : DAC bits set as output
stb $E7CD ; Peripherial Interface B (PIB) lines set as input
ora #$04 ; set b2
sta $E7CF ; select Peripherial Interface B (PIB) Register
rtsEn effectuant cette configuration, toutes les commandes envoyées aux manettes vont aussi se retrouver en sortie du DAC.
il faudra donc "mute" l'op amp du dac via le bit 2 du CSR du 6846. (Si j'ai faux sur la méthode du mute dites moi, c'est la première fois que je le met en place).
On effectue la lecture des registres en respectant les cycles indiqués dans le tableau.
Remarque : dans le code ci dessous, j'ai volontairement ajouté un espace après les #% et avant les chiffres, le forum mouline dans le vide quand on poste le message sinon ... évidement retirez ces espaces sinon lwasm ne va pas être content
Code : Tout sélectionner
joypad.md6.ctrl0.held
joypad.md6.ctrl0.held.dpad fcb 0
joypad.md6.ctrl0.held.fire fcb 0
joypad.md6.ctrl0.press
joypad.md6.ctrl0.press.dpad fcb 0
joypad.md6.ctrl0.press.fire fcb 0
joypad.md6.read
; mute DAC
lda map.MC6846.CSR
ora #% 00000100
sta map.MC6846.CSR
ldd #$0C00 ; PB2=1 (pin7 port manette 0) PB3=1 (pin7 port manette 1)
sta $E7CD ; set line select to HI
ldx $E7CC ; read data : E7CC:Right1|Left1|Down1|Up1|Right0|Left0|Down0|Up0 - E7CD:B1|B0|_|_|_|_|_|_
stb $E7CD ; set line select to LO
sta $E7CD ; set line select to HI
stb $E7CD ; set line select to LO
sta $E7CD ; set line select to HI
stb $E7CD ; set line select to LO
ldb $E7CD ; read data : E7CD:A1|A0|_|_|_|_|_|_
sta $E7CD ; set line select to HI
lda $E7CC ; read data : E7CC:Mode1|X1|Y1|Z1|Mode0|X0|Y0|Z0
; control pad 0
anda #% 00001111 ; keep MXYZ in place
andb #% 01000000 ; filter A for ctrl0 only
lsrb ; set A in place
stb @b ; set ora operator
ora #0 ; merge bits
@b equ *-1
sta @a ; save value
tfr x,d
anda #% 00001111 ; keep RLDU in place, dpad values are in register A
andb #% 01000000 ; filter B for ctrl0 only
lsrb
lsrb ; set B in place
orb #0 ; merge bits, fire values are in register B
@a equ *-1
; process dpad
coma ; reverse bits to get 0:released 1:pressed
sta @a
lda joypad.md6.ctrl0.held.dpad
eora @a
anda @a
sta joypad.md6.ctrl0.press.dpad ; store only new pressed pads
lda #0
@a equ *-1
sta joypad.md6.ctrl0.held.dpad ; store current pressed state
; process fire
comb ; reverse bits to get 0:released 1:pressed
stb @b
ldb joypad.md6.ctrl0.held.fire
eorb @b
andb @b
stb joypad.md6.ctrl0.press.fire ; store only new pressed btns
ldb #0
@b equ *-1
stb joypad.md6.ctrl0.held.fire ; store current pressed state
rtsMiracle ! le code a fonctionné du premier coup
Une vidéo du test sur machine réelle :
En pj, l'outil de test que vous pouvez utiliser chez vous si vous avez un TO8 et une manette officielle SEGA 6 boutons.
