Pads con 6 botones

No te preocupes jitursan,estoy probando varias utilidades y creo que podre pasarlo a wav
te comento mañana resultados ^^
Gracias!
EDITO: de hecho ya tengo el .wav Dame unos minutos y lo pruebo ^^
EDITO DE NUEVO: Nada...que no hay forma de cargarlo...no me da ni el "Found:" Me da a mi que es problema mio por la conversion del Bin al Wav...en fin,mañana seguire

Buenas!
He tecleado este ultimio programa y me da un Syntax error en la linea 60.Concretamente en lo de "A=USR(0)"
Gracias por el peacho programa!

Haced lo que dice pitpan
Los 4 últimos 0's tampoco es necesario que se incluyan en el listado de DATA's.

Aquí os dejo una versión algo más optimizada; pero que de momento todavía no soporta escoger el puerto a leer:

Y el código fuente:

        OUTPUT MDSTRIG.BIN

DAC:    EQU $F7F8

        DB $FE
        DW MAIN
        DW ENDPROGRAM
        DW MAIN

        ORG $E000

MAIN:
        cp 2
        ret nz
        ; Lee el puerto de joystick y almacena
        ; los estados en las variables.
	di
	ld hl,status1
	ld c,#A2
	ld d,15
	ld a,d
	out (#A0),a
	in a,(c)
	and 10101111b
	ld e,a
	out (#A1),a
	ld a,14
	out (#A0),a
        ini
	ld a,d
	out (#A0),a
	ld a,e
	or 00010000b
	out (#A1),a
	ld a,14
	out (#A0),a
        ini
	ld a,d
	out (#A0),a
	ld a,e
	out (#A1),a
	or 00010000b
	out (#A1),a
	and 11101111b
	out (#A1),a
	or 00010000b
	out (#A1),a
	ld a,14
	out (#A0),a
        ini
	ld a,d
	out (#A0),a
	ld a,e
	and 11101111b
	out (#A1),a
	ld a,14
	out (#A0),a
        ini
	ld a,d
	out (#A0),a
	ld a,e
	or 00010000b
	out (#A1),a
	and 11101111b
	out (#A1),a
	ei

        ld l,0
        ld de,status2
	ld a,(de)	; Comprueba boton A
	and 00001100b
	jr nz,noA
	ld a,(de)
	and 00010000b
	jr nz,noA
	set 0,l
noA:
        dec de
	ld a,(de)	; Comprueba boton B
	and 00010000b
	jr nz,noB
	set 1,l
noB:
	ld a,(de)	; Comprueba boton C
	and 00100000b
	jr nz,noC
	set 2,l
noC:
        inc de
        inc de
	ld a,(de)	; Comprueba boton X
	and 00001111b
	jr nz,noX
	inc de
	ld a,(de)
	dec de
	and 00000100b
	jr nz,noX
	set 3,l
noX:
	ld a,(de)	; Comprueba boton Y
	and 00001111b
	jr nz,noY
	inc de
	ld a,(de)
	dec de
	and 00000010b
	jr nz,noY
	set 4,l
noY:
	ld a,(de)	; Comprueba boton Z
	and 00001111b
	jr nz,noZ
	inc de
	ld a,(de)
	dec de
	and 00000001b
	jr nz,noZ
	set 5,l
noZ:
        dec de
	ld a,(de)	; Comprueba boton START
	and 00001100b
	jr nz, noSTART
	ld a, (de)
	and 00100000b
	jr nz,noSTART
        set 6,l
noSTART:
        inc de
	ld a,(de)	; Comprueba boton MODE
	and 00001111b
	jr nz,noMODE
	inc de
	ld a,(de)
	and 00001000b
	jr nz,noMODE
	set 7,l
noMODE:
        ld h,0
        ld (DAC),hl
        ret

status1:        DB 0
status2:	DB 0
status3:	DB 0
status4:	DB 0

ENDPROGRAM: equ $

END

Por cierto, ahora el BASIC es así:

10 CLS
20 BLOAD"MDSTRIG.BIN":DEFUSR=&HE000
30 J1=STICK(1):B=USR0(0)
40 LOCATE 0,0
50 B$=BIN$(B):PRINT J1;LEFT$("00000000",8-LEN(B$))+B$
60 GOTO 30

Creo que es mejor que el usuario decida a que USRn se le asigna la rutina en lugar de asignar yo a capón la 0.

Si alguien quiere entretenerse mejorándolo o modificándolo, ¡adelante!

Lo acabo de probar con un auténtico MSX y funciona igualito que en el openMSX, o sea, bien
Los pads que adapto son de 7 botones (y curiosamente el 8 está; pero cubierto por la carcasa ) y funcionan todos.

Hay que tener en cuenta por temas de compatibilidad que los botones A y B de los pads MSX corresponden a los B y C de los adaptados; así que cuando se use la compatibilidad joymega es cuestión de usar los botones que correspondan.

¿Estas seguro de que lo has adaptado correctamente?, aunque no es muy difícil uno puede liarse con tanto cable para aquí y para allá.

http://www.msx.org/forum/msx-talk/hardware/msx-game-pad-less-5

El mio lo tengo adaptado segun ese post...supuestamente deberia de funcionar los otros botones,pero ya me da a mi que no :(