; ; CREATED BY ACKMAN APPE V3c.0 ; ; ADAPTADOR DE MANDO DE PSX PARA AMIGA CON EMULACION DE PAD CD32 ; PROCESADOR PIC16F84/10 MHZ ; ;bug en la rutina de comunicacion con el pad solucionado... ; DEVICE 16C84, XT_OSC, PROTECT_OFF, WDT_OFF ; LITERALS ; REGISTROS TX_D EQU 0X10 ;CONTIENE EL BYTE A TRANSMITIR AL PAD PSX OUT EQU 0X11 ;CONTIENE EL BYTE A PONER EN EL JOYSTIC DE AMIGA EN MODO NORMAL FLAG EQU 0X12 ;REGISTRO DE FLAG INTERNOS DEL PROGRAMA CONT3 EQU 0X13 ;CONTADOR GENERICO 3 CONT2 EQU 0X14 ;CONTADOR GENERICO 2 CONT1 EQU 0X15 ;CONTADOR GENERICO 1 CD32TX EQU 0X16 ;CONTIENE EL DATO A TRANSMITIR AL AMIGA EN MODO CD32 BYTE2 EQU 0X17 ;CONTIENE EL SEGUNDO BYTE UTIL RECIBIDO DEL PAD PSX BYTE1 EQU 0X18 ;CONTIENE EL PRIMER BYTE UTIL RECIBIDO DEL PAD PSX BYTE EQU 0X19 ;CONTIENE EL BYTE QUE SE ESTA RECIBIENDO DEL PAD PSX ALMACENS EQU 0X1A ;CONTIENE EL VALOR DEL STATUS DURANTE LAS IRQ ALMACENW EQU 0X1B ;CONTIEN EL VALOR DE W DURANTE LAS IRQ FIREVEL EQU 0X1C ;CONTIEN LA VELOCIDAD DEL AUTOFIRE A MAS VALOR= MENOS VELOCIDAD CD32TXB EQU 0X1D ;REGISTRO DE RESGUARDO DE VALOR A TRANSMITIR EN MODO CD32 ; PORTA DATA EQU 0X00 ;PIN 17 ENTRADA DE DATOS DEL PAD PSX COMM EQU 0X01 ;PIN 18 SALIDA DE DATOS AL PAD PSX CLK EQU 0X02 ;PIN 1 SALIDA DE SINCRONISMO AL PAD ATT EQU 0X03 ;PIN 2 SALIDA DE ENABLE AL PAD, PARA LLAMAR SU ATENCION ACK EQU 0X04 ;PIN 3 ENTRADA DE RECONOCIMIENTO DEL PAD ; PORTB MODO NORMAL CD32 FIRE2 EQU 0X00 ;PIN 6 NO USE ENABLE CD32 UP EQU 0X01 ;PIN 7 UP -- LEFT EQU 0X02 ;PIN 8 LEFT -- DOWN EQU 0X03 ;PIN 9 DOWN -- RIGHT EQU 0X04 ;PIN 10 RIGHT -- FIRE1 EQU 0X05 ;PIN 11 FIRE 1 DATA OUT FIRE0 EQU 0X06 ;PIN 12 FIRE 1 CLOCK IN NCONN EQU 0X07 ;PIN 13 -- -- ; STATUS EQU 3 ; REGISTRO DE ESTADO PORTA EQU 5 ; REGISTRO DEL PUERTO A PORTB EQU 6 ; REGISTRO DEL PUERTO B TRISA EQU H'85' ; REGISTRO DE FUNCION PUERTO A 1=IN, 0=OUT TRISB EQU H'86' ; REGISTRO DE FUNCION PUERTO B 1=IN, 0=OUT RP1 EQU 6 ; REGISTRO DE SELECCION DE BANCO, JUNTO CON RP0 RP0 EQU 5 ; IDEM RP1 00=B0, 01=B1, 10=B2, 11=B3 OPTION EQU H'81' ; REGISTRO DE OPCIONES INTCON EQU H'0B' ; REGISTRO DE ESTADO DE INTERRUPCIONES Z EQU H'02' ; INDICADOR DE ZERO DE REGISTRO STATUS C EQU H'00' ; INDICADOR DE ACARREO DE 8 BIT DC EQU H'01' ; INDICADOR DE ACARREO DE LOS 4 BIT DE MENOS PESO TMR0 EQU H'01' ; REGISTRO DEL TEMPORIZADOR PRINCIPAL ;**** BITS DEL REGISTRO DE OPCIONES OPTION RBPU EQU 7 ;BIT DE CONEXION DE CARGAS PULL-UP PORTB (1=QUITADAS) INTEDG EQU 6 ;TIPO DE FLANCO DE INTERRUPCION EXTERNA (1= ASCENDENTE) T0CS EQU 5 ;FUENTE DE RELOG PARA TMR0 (1=EXTERNO) T0SE EQU 4 ;TIPO DE FLANCO PARA TMR0 (1=DESCENDENTE) PSA EQU 3 ;ASIGNACION DEL DIVISOR (1=WDT; 0=TMR0) PS2 EQU 2 ;VALOR DEL PREDIVISOR PS1 EQU 1 ; PS0 EQU 0 ; ;**** BITS DEL REGISTRO DE INTERRUPCIONES INTCON GIE EQU 7 ;BIT DE HABILITACION DE INTERRUPCIONES PEIE EQU 6 ;BIT DE ACTIVACION DEL COMPARADOR T0IE EQU 5 ;BIT ACTIVACION DE INTERRUPCION DE TMR0 INTE EQU 4 ;BIT ACTIVACION DE INTERRUPCION EXTERNA RBIE EQU 3 ;BIT DE ACTIVACION DE PORTB T0IF EQU 2 ;FLAG REBOSAMIENTO DE TMR0 INTF EQU 1 ;FLAG DE ESTADO INTERRUPCION EXTERNA RBIF EQU 0 ;FLAG DE ESTADO INTERRUPCION PORTB NOP CALL PUERTOS CALL DEFECTO GOTO MAIN CD32OUT: ;RUTINA DE ATENCION A IRQ MOVWF ALMACENW ;GUARDA CONTENIDO DE W BSF STATUS,RP0 ;PONE FIRE0 COMO ENTRADA BSF PORTB,FIRE0 ;PONER FIRE0 COMO ENTRADA DE RELOG BCF STATUS,RP0 WCLKE: BTFSC PORTB,FIRE2 ;ESPERA A QUE LA LINEA DE RELOG ESTE A 1 GOTO SALIR32 ;Y COMPRUEBA QUE NO SE HAYA TERMINADO LA TRANSMISION BTFSS PORTB,FIRE0 GOTO WCLKE TX32A: BTFSS CD32TX,0 BCF PORTB,FIRE1 ;MANDA 0 BTFSC CD32TX,0 BSF PORTB,FIRE1 ;MANDA 1 RRF CD32TX,F ;ROTA EL BYTE A MANDAR WCLKU: BTFSC PORTB,FIRE2 ;ESPERA QUE LA LINEA DE RELOG ESTE A 0 GOTO SALIR32 BTFSC PORTB,FIRE0 GOTO WCLKU GOTO WCLKE ;REPITE LA RUTINA SALIR32: BSF STATUS,RP0 ;RESTABLECE F0 COMO SALIDA BCF PORTB,FIRE0 BCF STATUS,RP0 ; MOVF OUT,W ;COLOCA LOS DATOS EN LA SALIDA COMO ANTES DE LA IRQ ; MOVWF PORTB MOVF CD32TXB,W ;RESTABLECE EL REGISTRO CD32TX, POR SI SE PRODUCE OTRA IRQ TEMPRANA MOVWF CD32TX SWAPF ALMACENW,F ;RESTAURA EL VALOR DE W COMO ANTES DE LA IRQ SWAPF ALMACENW,W ; BCF INTCON,INTF ;BORRA EL FLAG DE INTERRUPCION EXTERNA RETFIE MAIN: CALL PAD CALL BIGDELAY CALL BIGDELAY CALL JOYOUT CALL BIGDELAY CALL PREP32 CALL BIGDELAY GOTO MAIN PAD: ;RUTINA DE LECTURA DE DATOS DEL PAD BCF PORTA,ATT ;LLAMA LA ATENCION DEL PAD CALL BIGDELAY ;ESPERA UN POCO MOVLW 0X01 ;MANDA UN 01 AL PAD PARA RESETEARLO MOVWF TX_D CALL TX_RX CALL BIGDELAY ;ESPERA OTRO POCO MOVLW 0X42 ;MANDA UN 42 PARA PEDIR LOS DATOS DEL PAD MOVWF TX_D CALL TX_RX ; SIMULTANEAMENTE SE RECIBE EL TIPO DE PAD CONECTADO ; 0X41=PAD DIGITAL/ 0X23=NEGCOM/ 0X73=ANALOGICO ROJO ; 0X53=ANALOGICO VERDE/ 0X23=RATON PSX ;**** PROXIMAMENTE SE DEBERIA HACER COMPATIBILIDAD***** CALL BIGDELAY ;ESPERA UN POCO CALL TX_RX ; SE ENVIA UN DATO VACIO FF ;SIMULTANEAMENTE SE RECIBE UN 0X5A INDICANDO QUE SE VA A TRANSMITIR CALL BIGDELAY ;SE ESPERA OTRO POCO MAS CALL TX_RX ;SE RECIBE EL PRIMER BYTE UTIL MOVF BYTE,W MOVWF BYTE1 ;Y SE GUARDA EN EL REGISTRO BYTE1 CALL BIGDELAY ;OTRA PAUSA CALL TX_RX ;SE RECIBE EL SEGUNDO BYTE UTIL MOVF BYTE,W MOVWF BYTE2 ;Y SE GUARDA EN EL REGISTRO BYTE2 CALL BIGDELAY ;OTRA PEQUEÑA PAUSA BSF PORTA,ATT ;SE DEJA LIBRE EL PAD, SE LE LIBERA DE ATENCION RETURN ; CRONOCGRAMA DEL PROTOCOLO PARA MANDAR Y RECIBIR UN BYTE ; BIT0 BIT1 BIT2 BIT3 BIT4 BIT5 BIT6 BIT7 ;clock---___---___---___---___---___---___---___---___------------ ;data ---000000111111222222333333444444555555666666777777--------- ; * * * * * * * * ;comm ---000000111111222222333333444444555555666666777777--------- ;ack ------------------------------------------------------___--- ; |-4µS-| TX_RX: ;RUTINA QUE TRANSMITE Y RECIBE SIMULTANEAMENTE UN BYTE AL PAD MOVLW 0X08 ;PONE EL NUMERO DE BIT A TRANSMITIR EN EL CONTADOR 3 MOVWF CONT3 LOOP_1: BCF PORTA,CLK ;PONE A NIVEL BAJO LA LINEA DE RELOG BTFSC TX_D,0 ;PONE EL VALOR ADECUADO EN LA LINEA COMM BSF PORTA,COMM BTFSS TX_D,0 BCF PORTA,COMM RRF TX_D,F ;ROTA EL BYTE A MANDAR RRF BYTE,F ;ROTA EL BYTE A RECIBIR NOP ;ESPERA SIN HACER NADA AL MENOS 1.5 uS NOP NOP NOP NOP NOP BCF BYTE,7 BSF PORTA,CLK ;PONE A UNO LA LINEA DE RELOG BTFSC PORTA,DATA ;LEE EL DATO PRESENTE EN LA LINEA DATA BSF BYTE,7 ; BSF PORTA,CLK ;PONE A UNO LA LINEA DE RELOG NOP ;ESPERA SI HACER NADA AL MENOS 1.5uD NOP NOP NOP NOP NOP DECFSZ CONT3,F ;COMPRUEBA SI ERA EL ULTIMO BIT GOTO LOOP_1 ;SI NO ES EL ULTIMO LEE EL SIGUIENTE MOVLW 0XFF ;SI ES EL ULTIMO CARGA FF EN EL REGISTRO A TRANSMITIR MOVWF TX_D BSF PORTA,COMM ;Y DEJA LA LINEA COMM A NIVEL ALTO RETURN ; CONTENIDO DE LOS BYTES TRANSMITIDOS POR EL PAD DIGITAL Y ANALOGICO ROJO ; BIT7 BIT6 BIT5 BIT4 BIT3 BIT2 BIT1 BIT0 ;BYTE1 IZQDA ABAJO DRCHA ARRBA STAR - - SELECT ;BITE2 (|_|) (X) (O) (/\) R1 L1 R2 L2 ; CONTENIDO DEL BYTE DE TRANSMISION AL AMIGA EN MODO CD32 ; BIT7 BIT6 BIT5 BIT4 BIT3 BIT2 BIT1 BIT0 ;CD32TX PLAY << >> VERDE AMRLL ROJO ;EQU START L1 R1 (|_|) (/\) (X) ;EL BOTON AZUL NO ES NECESARIO TRANSMITIRLO QUE EQUIVALE A (O) JOYOUT: MOVLW 0XFF MOVWF OUT BTFSS BYTE1,4 ;SI SE PULSA ARRIBA BCF OUT,UP BTFSS BYTE1,5 ;SI SE PULSA DERECHA BCF OUT,RIGHT BTFSS BYTE1,6 ;SI SE PULSA ABAJO BCF OUT,DOWN BTFSS BYTE1,7 ;SI SE PULSA IZQUIERDA BCF OUT,LEFT BTFSS BYTE2,1 ;SI SE PULSA R2 CALL AUTOFIRE BTFSS BYTE2,5 ;SI SE PULSA (O) BCF OUT,FIRE1 BTFSS BYTE2,6 ;SI SE PULSA (X) BCF OUT,FIRE0 MOVF OUT,W MOVWF PORTB RETURN AUTOFIRE: DECFSZ FIREVEL,F RETURN BCF BYTE2,6 MOVLW 0X04 ;ESTE VALOR AJUSTA LA VELOCIDAD DE AUTOFIRE -=+VEL MOVWF FIREVEL RETURN ; PREP32: ;RUTINA TRADUCTORA DE PSX A PROTOCOLO CD32 BSF CD32TX,6 BSF CD32TX,7 BTFSS BYTE1,3 ;SI SE PULSA STAR BCF CD32TX,5 ;EQUIVALE A PLAY/PAUSA BTFSS BYTE2,2 ;SI SE PULSA L1 BCF CD32TX,4 ;EQUVALE A << BTFSS BYTE2,3 ;SI SE PULSA R1 BCF CD32TX,3 ;EQUVALE A >> BTFSS BYTE2,4 ;SI SE PULSA TRIANGULO BCF CD32TX,1 ;EQUVALE A AMARILLO BTFSS BYTE2,7 ;SI SE PULSA CUADRADO BCF CD32TX,2 ;EQUIVALE A VERDE BTFSS BYTE2,6 ;SI SE PULSA (X) BCF CD32TX,0 ;EQUIVALE A ROJO BTFSC BYTE1,3 ;SI NO SE PULSA STAR BSF CD32TX,5 ;EQUIVALE A PLAY/PAUSA BTFSC BYTE2,2 ;SI NO SE PULSA L1 BSF CD32TX,4 ;EQUVALE A << BTFSC BYTE2,3 ;SI NO SE PULSA R1 BSF CD32TX,3 ;EQUVALE A >> BTFSC BYTE2,4 ;SI NO SE PULSA TRIANGULO BSF CD32TX,1 ;EQUVALE A AMARILLO BTFSC BYTE2,7 ;SI NO SE PULSA CUADRADO BSF CD32TX,2 ;EQUIVALE A VERDE BTFSC BYTE2,6 ;SI NO SE PULSA (X) BSF CD32TX,0 ;EQUIVALE A ROJO MOVF CD32TX,W MOVWF CD32TXB RETURN PUERTOS: ;ASIGNACION DE LAS PATILLAS DE I/O BSF STATUS,RP0 BSF PORTA,DATA BCF PORTA,COMM BCF PORTA,CLK BCF PORTA,ATT BCF PORTB,FIRE0 BCF PORTB,FIRE1 BSF PORTB,FIRE2 BCF PORTB,UP BCF PORTB,DOWN BCF PORTB,LEFT BCF PORTB,RIGHT BCF OPTION,INTEDG BSF OPTION,RBPU BCF STATUS,RP0 RETURN DEFECTO: ;ASIGNACION DE VALORES POR DEFECTO A REGISTROS Y PATILLAS ;INICIALIZACION DE INTERRUPCIONES BSF PORTA,ATT BSF PORTA,CLK BSF PORTA,COMM MOVLW 0X02 MOVWF FIREVEL BCF INTCON,INTF BSF INTCON,GIE BSF INTCON,INTE RETURN DELAY: MOVWF CONT1 LOOP1: DECFSZ CONT1,F GOTO LOOP1 RETURN BIGDELAY: MOVLW 0X0A MOVWF CONT2 MOVLW 0X0A LOOP2: CALL DELAY DECFSZ CONT2,F GOTO LOOP2 RETURN END