Autor Tema: Ayuda inicio (Leído 32932 veces)

LabPIC · « **Respuesta #30 en:** 15 de Junio de 2006, 13:11:26 »

Código: ASM

;* Rutina de Pausa para tiempos largos
;* (Adecuada para un reloj de 4 Mhz)
;**************************************************************************
;Define constantes Para 20 milisegundos
N     EQU 0x1A
M     EQU 0x0
cont1 EQU 0x20
cont2 EQU 0x21
;inicia rutina
pau   MOVLW N ;(1) Carga dato N
      MOVWF cont1 ;(1) inicializa contador1 ciclo externo
rep1  MOVLW M ;(1) Carga dato M
      MOVWF cont2 ;(1) inicializa contador2 ciclo interno
rep2  DECFSZ cont2,1 ;(1,2)Decrementa contador2 y escapa si cero
      GOTO rep2 ;(2) si no es cero, repite ciclo interno
      DECFSZ cont1,1 ;(1,2)Decrementa contador1 y escapa si cero
      GOTO rep1 ;(2) si no es cero repite ciclo externo
esc   RETURN ;(2) regresa de esta subrutina
end

La duración de esta rutina en ciclos de reloj será

T_sub = 2+1+1+N*[1+1+(M-1)*(1+2)+2+1+2]+1-2+2+2 ciclos

Lo cual se puede simplificar como sigue

T_sub = [N*(3M+4)+7] T_cy

Donde T_cy es la duración en segundos de un ciclo de instrucción.

Cálculo de N.- Para lograr que la duración de la subrutina presentada sea de 20
milisegundos es necesario elegir adecuadamente el valor de la constante N.

Para una frecuencia de 4 Mhz T_cy = 1 µseg, entonces T_sub máximo =0.197639 seg.

Si deseamos T_sub = 20 mseg, haciendo M=256, despejando N

N = (T_sub/T_cy – 7)/(3M+4)

Sustituyendo valores N= 25.89 » 1Ah. (debido a la aproximación la rutina realmente
dura 20.08 mseg.

Espero y te sea de ayuda, cualquier duda o comentario pues unicamente lo posteas.

Saludos LabPIC

picto · « **Respuesta #31 en:** 15 de Junio de 2006, 13:42:03 »

Código: [Seleccionar]

ORG	0	

bsf STATUS,RP0			; activamos banco 1, poniendo RP0 a 1 y RP1 a 0
bcf STATUS,RP1			; activamos banco 1, poniendo RP0 a 1 y RP1 a 0
N     EQU 0x1A
M     EQU 0x0
cont1 EQU 0x20
cont2 EQU 0x21

Movlw 07h				; pongo en digital el puerto A.
movwf ADCON1
MOVLW	0X00			; carga 00000 en W
MOVWF	TRISA			; puerto A todos salidas
MOVLW	0X00			; carga 00000 en W
MOVWF	TRISB			; puerto B todos salidas
MOVLW	0X00	  		; carga 00000 en W
MOVWF	TRISC			; puerto C todos salidas
MOVLW	0XFF			; carga 1111 en W
MOVWF	TRISE			; puerto E todo entradas

bcf STATUS,RP0 			; volvemos al banco 0 poniendo RP0 a 0 y RP1 a 0
bcf STATUS,RP1			; volvemos al banco 0 poniendo RP0 a 0 y RP1 a 0


CLRF PORTA				;inicializamos a 0 el puerto A
CLRF PORTB				;inicializamos a 0 el puerto B
CLRF PORTC				;inicializamos a 0 el puerto C


DEMORA
pau   MOVLW N ;(1) Carga dato N
      MOVWF cont1 ;(1) inicializa contador1 ciclo externo
rep1  MOVLW M ;(1) Carga dato M
      MOVWF cont2 ;(1) inicializa contador2 ciclo interno
rep2  DECFSZ cont2,1 ;(1,2)Decrementa contador2 y escapa si cero
      GOTO rep2 ;(2) si no es cero, repite ciclo interno
      DECFSZ cont1,1 ;(1,2)Decrementa contador1 y escapa si cero
      GOTO rep1 ;(2) si no es cero repite ciclo externo
esc   RETURN ;(2) regresa de esta subrutina
	  END      

INICO

ESPERAR					;etiqueta
btfss   PORTE,0      	;si RE0 es 1 saltara el goto, si es 0 pasará a GOTO ESPERAR 
CALL DEMORA
goto ESPERAR			;salta a la etiqueta esperar	


enciende
movlw 0XFF			;cargo todo a 1 en W
movwf PORTB			;pongo a 1 todo el puerto B
movwf PORTA			;pongo a 1 todo el puerto A.
movwf PORTC 		;pongo a 1 todo el puerto C.
btfsc PORTE,0      	;si RE0 está a 0 saltara el goto, si es 1 pasará a GOTO  
CALL DEMORA
goto enciende 		;salta a la etiqueta apaga

CLRF PORTA				;inicializamos a 0 el puerto A
CLRF PORTB				;inicializamos a 0 el puerto B
CLRF PORTC				;inicializamos a 0 el puerto C
goto ESPERAR
END

Hay algo que estoy haciendo mal, porque ahora el proteus cuando pulso el pulsador no me activa a 1 los puertos A,B y C.

LabPIC · « **Respuesta #32 en:** 15 de Junio de 2006, 14:01:47 »

Quita el END de la subrutina de DEMORA, unicamente puede haber uno, y este es al final de todo el programa.

Saludos LabPIC

LabPIC · « **Respuesta #33 en:** 15 de Junio de 2006, 14:07:00 »

Cambia esta parte esta alreves:

Citar

ESPERAR ;etiqueta
btfss PORTE,0;si RE0 es 1 saltara el goto, si es 0 pasará a GOTO ESPERAR
goto ESPERAR;salta a la etiqueta esperar
CALL DEMORA

De igual manera

Citar

enciende
movlw 0XFF;cargo todo a 1 en W
movwf PORTB;pongo a 1 todo el puerto B
movwf PORTA;pongo a 1 todo el puerto A.
movwf PORTC;pongo a 1 todo el puerto C.
btfsc PORTE,0;si RE0 está a 0 saltara el goto, si es 1 pasará a GOTO
goto enciende;salta a la etiqueta apaga
CALL DEMORA

Saludos LabPIC

LabPIC · « **Respuesta #34 en:** 15 de Junio de 2006, 21:08:49 »

Código: ASM

LIST P=PIC16F873A       ; PIC16F873A
 
                #include "P16F873A.INC" ; 
 
                cblock 0x20             ;
                cont1                   ;
                cont2                   ;
                N                       ;
                M                       ;
                endc
 
                org     0x00            ;Vector de reset        
                goto    INICIO          ;
                org     0x05            ;Página 0 de memoria de programa
 
INICIO          BSF     STATUS,RP0      ;Banco 1
                BCF     STATUS,RP1      ;Banco 1
                MOVLW   0x07            ;
                MOVWF   ADCON1          ;Puerto A como Digital
                CLRF    TRISA           ;Puerto A como salidas
                CLRF    TRISB           ;Puerto B como salidas
                CLRF    TRISC           ;Puerto C como salidas
                MOVLW   b'11101111'     ;
                MOVWF   TRISE           ;Puerto E como entradas
 
ESPERAR         BCF     STATUS,RP0      ;Banco 0
                BCF     STATUS,RP1      ;Banco 0
checa           btfss   PORTE,0         ;si RE0 es 1 saltara el goto, si es 0 pasará a ESPERAR         
                goto    ESPERAR         ;salta a la etiqueta esperar    
                CALL    DEMORA          ;Limpiado del rebote
chec1           BTFSS   PORTE,0         ;checa nuevamente si RE0=1
                GOTO    checa           ;si RA1=0 falsa alarma, vuelve a checar
 
enciende        movlw   0XFF            ;cargo todo a 1 en W
                movwf   PORTA           ;pongo a 1 todo el puerto B
                movwf   PORTB           ;pongo a 1 todo el puerto A.
                movwf   PORTC           ;pongo a 1 todo el puerto C.
                btfsc   PORTE,0         ;si RE0 está a 0 saltara el goto, si es 1 pasará a GOTO  
                goto    enciende        ;salta a la etiqueta apaga
                CALL    DEMORA
 
 
DEMORA          MOVLW   N               ;Carga dato N
                MOVWF   cont1           ;Inicializa contador1 ciclo externo
rep1            MOVLW   M               ;Carga dato M
                MOVWF   cont2           ;Inicializa contador2 ciclo interno
rep2            DECFSZ  cont2,1         ;Decrementa contador2 y escapa si cero
                GOTO    rep2            ;si no es cero, repite ciclo interno
                DECFSZ  cont1,1         ;Decrementa contador1 y escapa si cero
                GOTO    rep1            ;Si no es cero repite ciclo externo
esc             RETURN                  ;Regresa de esta subrutina
end

picto te dejo el codigo con algunas correcciones, espero y te sea de ayuda.

Saludos LabPIC

BrunoF · « **Respuesta #35 en:** 15 de Junio de 2006, 21:12:28 »

Hola picto, bueno...nunca dejes que una rutina llegue hasta el END.Podes obtener resultados indeseados. Cuando no queres que el micro haga nada mas, simplemente pone:

LOOP goto LOOP

por ej. eso es suficiente para que el micro se quede estancado alli de manera segura.

Cita de: picto en 15 de Junio de 2006, 10:48:35

Cita de: BrunoF en 15 de Junio de 2006, 10:05:14
Hola, estas checkeando el PORTC,0 cuando en realidad deberia ser el PORTE,0
Cambia:

btfss PORTC,0 ;si RE0 es 1 saltara el goto, si es 0 pasará a GOTO ESPERAR

Por
btfss PORTE,0 ;si RE0 es 1 saltara el goto, si es 0 pasará a GOTO ESPERAR

Saludos.

Bruno, antes lo tenía en PORTE,0 pero no hacúia nada y he pegado el código de las pruebas´. PEro ya lo he solucionado!

Por cierto, es normal que con el MPlab al compilar me salgan todos estos errores?

No son errores, si tenes un error, no se crea el archivo .hex.

Message[301] C:\ARCHIVOS DE PROGRAMA\MICROCHIP\MPASM SUITE\P16F877A.INC 36 : MESSAGE: (Processor-header file mismatch. Verify selected processor.) <- Tenes configurado un modelo de PIC en el MPLAB distinto al que estas trabajando. Anda en el MPLAB a la pestaña Configure--> Select Device y selecciona el que estes usando.

Warning[205] : Found directive in column 1. (ORG) -> Todas las directivas deben ir a partir de la segunda columna de codigo, es decir, hace un TAB antes de poner una instruccion.

Warning[203] : Found opcode in column 1. (bsf) -> Todas las instrucciones deben ir a partir de la segunda columna de codigo, es decir, hace un TAB antes de poner una instruccion.

Message[302] : Register in operand not in bank 0. Ensure that bank bits are correct.
Te indica que estas haciendo referencia a un registro que no esta ubicado en el BANCO 0 del pic. Es simplemente para recordarte que verifiques que has pasado al banco correcto antes de trabajar con dicho registro.

Saludos.

LabPIC · « **Respuesta #36 en:** 15 de Junio de 2006, 21:14:21 »

__CONFIG _CP_OFF & _WDT_OFF & _BODEN_OFF & _PWRTE_OFF & _HS_OSC & _WRT_ENABLE_ON & _LVP_OFF & _CPD_OFF

Esta es la configuración de bits del PIC.

Saludos LabPIC

BrunoF · « **Respuesta #37 en:** 15 de Junio de 2006, 21:17:33 »

LabPIC, esta instruccion de tu programa:

chec1 BTFSS PORTA,0 ;checa nuevamente si RA0=1

deberia ser:

chec1 BTFSS PORTE,0 ;checa nuevamente si RE0=1

Saludos.

LabPIC · « **Respuesta #38 en:** 15 de Junio de 2006, 21:20:25 »

Tienes razon BrunoF

, una disculpa ando un poco despistado.

Saludos LabPIC

pibe · « **Respuesta #39 en:** 16 de Junio de 2006, 02:59:07 »

Esto está mal:

MOVLW b'11111111' ;

MOVWF TRISE

El bit 4 debe estar a 0 para ser entradas salidas digitales, sino estas habilitando el puerto E para modo PSP.

picto · « **Respuesta #40 en:** 16 de Junio de 2006, 04:53:15 »

Hola amigos, vamos por partes. Antes de probar el código que habeis colocado (muchas gracias) os pongo el código que he colocado al final para probar (sin demora) y lo he montado para ver como funciona.

La idea para empezar y aprender es es que cuando pulse el pulsador se iluminen todos los leds coenctados a los puertos A,B y C y si lo dejo de pulsar se apaguen.

He montado el circuito con este código (ahora me faltra depurarlo con lo que habeis puesto más arriba) y lo que pasa que cuando pulso el pulsador y lo dejo apretado el led parpadea muy rápido y lo que quiero es que se quede encendido hasta que yo deje de pulsar.

Esto es lo que he programado en el pic cuando lo he montado:

Código: [Seleccionar]

__CONFIG _CP_OFF&_PWRTE_ON&_WDT_OFF&_XT_OSC	; code protec off
												; power up timer on
												; watchdog off
												; osc XT
		
	ORG	0	
	bsf		STATUS,RP0			; activamos banco 1, poniendo RP0 a 1 y RP1 a 0
	bcf 	STATUS,RP1			; activamos banco 1, poniendo RP0 a 1 y RP1 a 0
	Movlw 	07h				; pongo en digital el puerto A
	movwf 	ADCON1			; pongo en digiatl el puerto A
	MOVLW	0X00			; carga 00000 en W
	MOVWF	TRISA			; puerto A todos salidas
	MOVLW	0X00			; carga 00000 en W
	MOVWF	TRISB			; puerto B todos salidas
	MOVLW	0X00	  		; carga 00000 en W
	MOVWF	TRISC			; puerto C todos salidas
	MOVLW	0XFF			; carga 1111 en W
	MOVWF	TRISE			; puerto E todo entradas
	bcf 	STATUS,RP0 			; volvemos al banco 0 poniendo RP0 a 0 y RP1 a 0
	bcf 	STATUS,RP1			; volvemos al banco 0 poniendo RP0 a 0 y RP1 a 0

	espera_apaga			;etiqueta
	CLRF 	PORTA				;inicializamos a 0 el puerto A
	CLRF 	PORTB				;inicializamos a 0 el puerto B
	CLRF 	PORTC				;inicializamos a 0 el puerto C
	btfss 	PORTE,0      		;si RE0 es 1 saltara el goto, si es 0 pasará a esperar y apagar 
	Goto  	espera_apaga		;salta a la etiqueta ESPERAR

	enciende
	movlw 	0XFF			;cargo todo a 1 en W
	movwf 	PORTB			;pongo a 1 todo el puerto B
	movwf 	PORTA			;pongo a 1 todo el puerto A.
	movwf 	PORTC 		;pongo a 1 todo el puerto C.
	btfss 	PORTE,0      	;si RE0 está a 1 saltara el goto espera_apaga, si es 0 pasará a GOTO enciende 
	goto    espera_apaga	;al estar RE0 a 0 salta a espera_apaga 
	goto 	enciende		;al estar RE0 a 1 salta a la etiqueta enciende

end

picto · « **Respuesta #41 en:** 16 de Junio de 2006, 05:07:53 »

Cita de: pibe en 16 de Junio de 2006, 02:59:07

Esto está mal:

MOVLW b'11111111' ;

MOVWF TRISE

El bit 4 debe estar a 0 para ser entradas salidas digitales, sino estas habilitando el puerto E para modo PSP.

Lo cambio por MOVLW b'11101111' ok?

picto · « **Respuesta #42 en:** 16 de Junio de 2006, 05:46:15 »

He vuelto a compilar el HEX y lo he graabdo al PIC y ya hace lo que quería. Al pulsar se enciende el led, el dejar d epulsar se apaga, y si lo dejo pulsado se queda permanentemente encendido.

Lo raro que lo he hecho sin lo del antirrebotes y funciona....

Ahora voy a ir más allá.

Cada vez que pulse me encenderá 1 led, es decir 1 pulso= Patilla RA0 ON, segundo pulso RA1= ON así sucesivamente hasta llegar a RC7.

Que nervios.

Todoe sto gracias a vosotros

BrunoF · « **Respuesta #43 en:** 16 de Junio de 2006, 05:55:27 »

Hola picto, si haces eso que decis, vas a ver el problema de no poner el antirrebote

Si no pones el antirrebote te va a contar mas de un pulso cuando presiones el pulsador y mas de uno nuevamente cuando lo sueltes.
Saludos.

pibe · « **Respuesta #44 en:** 16 de Junio de 2006, 06:20:54 »

EAAAA !!

FELICIDADES!

Es el primer pasito a este apasionante mundo...ya verás que es como una droga; no lo podrás dejar

Por lo pronto acostúmbrate a poner esto en el encabezado de cada programa que hagas usando este micro (incluso sería interesante lo grabes como .asm para que lo tengas como plantilla):

   LIST p=16f877a      ; esto lo cambias si usas otro micro
   #include <p16f877a.inc>   ;y esto también
    __config _CP_OFF & _XT_OSC & _WDT_OFF & _PWRTE_ON & _LVP_OFF & BODEN_OFF

; Esto es para suprimir los mensajes de warning del MPLAB ( a veces son molestos)
   ERRORLEVEL -302      ;suppress "not in bank 0" message
   ERRORLEVEL -203      ;suppress message
   ERRORLEVEL -305      ;suppress message
   ERRORLEVEL -205      ;suppress message

org 00h ; Vector de reset (aqui viene el micro cuando arranca)
goto Inicio ; Y inmediatamente lo mandamos a Inicio
org 04h ; Vector de interrupciones
goto interrupciones ; para uso futuro si usas interrupciones
org 05h ; Aqui le dices al micro en que posicion de memoria comienza lo ;que sigue

   Inicio
; Aqui escribe tu programa principal
;
;

interrupciones
; Aqui escribes tu programas de interrupciones si lo tienes, sino no pasa nada. Es para usos ;futuros.
retfie

end ; aqui termina

TODOPIC

Autor Tema: Ayuda inicio (Leído 32932 veces)

LabPIC

Re: Ayuda inicio

picto

Re: Ayuda inicio

LabPIC

Re: Ayuda inicio

LabPIC

Re: Ayuda inicio

LabPIC

Re: Ayuda inicio

BrunoF

Re: Ayuda inicio

LabPIC

Re: Ayuda inicio

BrunoF

Re: Ayuda inicio

LabPIC

Re: Ayuda inicio

pibe

Re: Ayuda inicio

picto

Re: Ayuda inicio

picto

Re: Ayuda inicio

picto

Re: Ayuda inicio

BrunoF

Re: Ayuda inicio

pibe

Re: Ayuda inicio