Ingeniería al día: abril 2009

codigo para un sensor de temperatura (sensor LM35) y lo muestra en 3 display 7segmento.
para lo del LCD simplemente cambia la parte del 7seg. por un rutina de LCD, la manera de programar un LCD la provee Densytron en sus datasheet.

Sensor de Temperatura

Publish at Scribd or explore others: School Work How-to-Guides & Manu wireless fisica

Suma BCD

list p=16f877
include "p16f877.inc"

datoA equ 0x20;
datoB equ 0x30;
aux equ 0x21;
aux1 equ 0x22;
aux2 equ 0x23;
ac equ 0x24;
result equ 0x1A0;

org 0x00
goto inicio
org 0x05
inicio movf datoA,w ;
andlw b'00001111';
movwf aux2 ;
movf datoB,w ;
andlw b'00001111';
addwf aux2,f ;
movlw b'00001010';
subwf aux2,w ;
btfsc STATUS,Z ;
goto igual_1 ;
btfsc STATUS,C ;
goto acarreo_1 ;
sigue_1 movf datoA,w ;
andlw b'11110000';
movwf aux1 ;
swapf aux1,f ;
movf datoB,w ;
andlw b'11110000';
movwf aux ;
swapf aux,w ;
addwf aux1,f ;
movf ac,w ;
addwf aux1,f ;
movlw b'00001010';
subwf aux1,w ;
btfsc STATUS,Z ;
goto igual_2 ;
btfsc STATUS,C ;
goto acarreo_2 ;
bcf STATUS,C ;
clrf ac ;
sigue_2 movf aux2,w ;
bsf STATUS,RP0;
bsf STATUS,RP1;
movwf result ;
bcf STATUS,RP0;
bcf STATUS,RP1;
swapf aux1,w ;
bsf STATUS,RP0;
bsf STATUS,RP1;
addwf result ;
goto fin ;

igual_1 clrf aux2 ;
movlw .1 ;
movwf ac ;
goto sigue_1 ;

acarreo_1 movwf aux2 ;
movlw .1 ;
movwf ac ;
goto sigue_1 ;

igual_2 clrf aux1 ;
movlw .1 ;
movwf ac ;
goto sigue_2 ;

acarreo_2 movwf aux1 ;
movlw .1 ;
movwf ac ;
goto sigue_2 ;

fin NOP
end

PROGRAMA QUE SUMA DOS NUMEROS DE 32 BITS

TITLE: PROGRAMA QUE SUMA DOS NUMEROS DE 32 BITS

CONT EQU 00H ;ENCABEZADO
N1_32 EQU 30H
N2_32 EQU 34H
RE_32 EQU 38H
INICIO EQU 0000H

ORG INICIO ;INICIO DEL PROGRAMA
MOV R7, #CONT
MOV R0, #N1_32
MOV R2, #N2_32
MOV R3, #RE_32

CICLO_SUMA: MOV R1,R2
MOV A,@R0
ADDC A,@R1
MOV R1,R3
MOV @R1,A
INC R0
INC R2
INC R3
DJNZ R7, CICLO_SUMA
END ;FIN DEL PROGRAMA

Programa que hace girar un motor de paso a un angulo deseado

lab1_1

Publish at Scribd or explore others: Research

Programa que permite dividir dos números A y B de 16 bits

;Programa que permite dividir dos números A y B de 16 bits que de como resultado
;un cociente y un resto

list p=16f877
include "p16f877.inc"

cblock 0x20
divisor_l ; Definiciòn
divisor_h ; del bloque
dividendo_l ; de las
dividendo_h ; variables
cociente_l ; a
cociente_h ; utilizar
resto_l ;
resto_h ;
endc ;fin de definicón

org 0x00; Vector reset
goto inicio;

org 0x05 ;Salva el vector de interrupción
inicio clrf cociente_l ;Inicializa
clrf cociente_h ;las variables
clrf resto_l ;
clrf resto_h ;
ciclo clrf STATUS ;
movf divisor_l,w ;carga menos peso del divisor
subwf dividendo_l,f ;lo resta menos peso del dividendo
movf divisor_h,w ;carga el mayor peso del divisor
btfss STATUS,C ;Hubo acarreo?
addlw 1 ;si,
subwf dividendo_h,f ;lo resta con el mayor peso de dividendo
btfsc STATUS,C ;hubo acarreo?
goto mayor ;si, el dividendo es mayor que el divisor
movlw 0x00 ;carga cero para ver si son iguales
subwf dividendo_l,w ;
btfsc STATUS,Z ;
goto sigue ;
goto menor ;
sigue movlw 0x00 ;
subwf dividendo_h,w ;
btfsc STATUS,Z ;
goto igual ;
goto menor ;

menor movf dividendo_l,w ;
movwf resto_l ;
movf dividendo_h,w ;
movwf resto_h ;
goto fin ;

mayor incf cociente_l,f ;
btfss STATUS,C ;
goto acarreo ;
goto ciclo ;
acarreo movlw 1 ;
addwf cociente_h,f ;
goto ciclo ;

igual incf cociente_l,f ;
btfss STATUS,C ;
goto acarr1 ;
goto fin ;
acarr1 movlw 1 ;
addwf cociente_h,f ;
goto fin ;

fin NOP
NOP
end ;

Division de 8 bits

result_1 equ 0x22
resto_1 equ 0x23
aux1 equ 0x24

org 0x00
goto inicio

org 0x06
inicio call div_10
nop
nop
goto fin
;*****************************************
;SUBRUTINA PARA DIVIDIR ENTRE 10
div_10 movf dato_A,w
xorlw 0x00
sigue1 movwf aux1
movlw .10
subwf aux1,w
btfsc STATUS,Z
goto igual_1
btfsc STATUS,C
goto mayor_1

menor_1 movf aux1,w
movwf resto_1
goto stop

mayor_1 movwf aux1
incf result_1
goto sigue1

igual_1 incf result_1
goto stop

stop return

fin nop
end

Progama que sea capaz de leer la información que le llega a dos puertos del pic16f877

;disene un progama que sea capaz de leer la información que le llega a dos puertos del pic16f877
;una palabra de 16bits cada 30ms y que luego la envie a una registro de desplazamiento(16 bits)
;conectado al puerto serial y a la ves sea capaz de leer el dato enviado al regitro de desplazamiento
;si el dato recibido es distinto del que se leyo en los puerto, el programa se detendra. Nota:
;configure el (los)timers y el puerto(velocidad y modo de comunicación a criterio)

;LUIS TORRES C.I.: 15.903.815

list p=16f877
include "p16f877.inc"

; *************************************************************************************************
; * Bloque de definición de variables *
; *************************************************************************************************
cblock 0x20

dato_A
dato_B
dato_1
dato_2
PCLATH_temp
STATUS_temp
W_temp

endc

org 0x00
goto inicio ; salva el vector interuupción
ORG 0X04
GOTO INTERR

;**************************************************************************************************
; PROGRAMA PRINCIPAL *
;**************************************************************************************************
org 0x09
inicio call initD ; inicializa el puerto D
call initB ; inicializa el puerto B
MOVLW 0x36 ; número de incrementos del timer msb
MOVWF TMR1H ; inicializa la cuenta de TMR1
MOVLW 0X00 ; número de incrementos del timer lsb
MOVWF TMR1L ; inicializa la cuenta de TMR1
BCF PIR1,TMR1IF ; limpia bandera de sobreflujo
MOVLW 0x31 ; dato de configuración para el timer1
MOVWF T1CON ; modo temporizador, preescalador 1/8, habilita timer 1
BSF INTCON,GIE ; Habilita interrupciones globales
BSF STATUS,RP0 ; banco 1
BSF PIE1,TMR1IE ; Habilita interrupcion
BCF STATUS,RP0 ; banco 0

trans BSF STATUS,RP0 ; banco 1
BCF TXSTA,BRGH ; pone bit BRGH=0 (velocidad baja)
MOVLW 0x17 ; valor para 9600 Bauds (Fosc=14.7456 Mhz)
MOVWF SPBRG ; configura 9600 Bauds
BCF TXSTA,SYNC ; limpia bit SYNC (modo asíncrono)
BSF TXSTA,TXEN ; pone bit TXEN=1 (habilita transmisión)
BCF STATUS,RP0 ; regresa al banco 0
BSF RCSTA,SPEN ; pone bit SPEN=1 (habilita puerto serie)
BSF RCSTA,CREN ; Habilita recepción

envia_1 BSF STATUS,RP0 ; banco 1
esp_1 BTFSS TXSTA,TRMT ; checa si el buffer de transmisión
GOTO esp_1 ; si está ocupado espera
BCF STATUS,RP0 ; regresa al banco 0
MOVF PORTB,W ; rescata dato a enviar
MOVWF TXREG ; lo envía
recib_1 BTFSS PIR1,RCIF ; checa el buffer de recepción
GOTO recib_1 ; si no hay dato listo espera
MOVF RCREG,W ; si hay dato, lo lee
MOVWF dato_1 ; lo almacena en dato
MOVF dato_A,W
SUBWF dato_1,W ; es igual?
BTFSS STATUS,Z ;
GOTO fin ; si es igual termina

envia_2 BSF STATUS,RP0 ; banco 1
esp_2 BTFSS TXSTA,TRMT ; checa si el buffer de transmisión
GOTO esp_2 ; si está ocupado espera
BCF STATUS,RP0 ; regresa al banco 0
MOVF dato_B,W ; rescata dato a enviar
MOVWF TXREG ; lo envía
recib_2 BTFSS PIR1,RCIF ; checa el buffer de recepción
GOTO recib_2 ; si no hay dato listo espera
MOVF RCREG,W ; si hay dato, lo lee
MOVWF dato_2 ; lo almacena en dato
MOVF dato_B,W
SUBWF dato_2,W ; es igual?
BTFSS STATUS,Z ;
GOTO fin ; si es igual termina
GOTO envia_1 ; repite
GOTO fin ; ciclo infinito

;**************************************************************************************************
; Subrutina de inicialización del puerto B: *
;**************************************************************************************************
initB CLRF STATUS ;Selecciona Banco 0
CLRF PORTB ;Inicializa latches de datos de PORTB
BSF STATUS,RP0 ;Selecciona Banco 1
MOVLW 0xFF ;configura RB7,...,RB4
MOVWF TRISB ;y RB3,RB2,RB1 como salidas
BCF OPTION_REG,7 ;Conecta todas las resistencias Pull-Up
BCF STATUS,RP0 ;regresa al Banco 0
RETURN
;**************************************************************************************************
; Subrutina de inicialización del puerto D: *
;**************************************************************************************************
initD CLRF STATUS ;Selecciona Banco 0
CLRF PORTD ;Inicializa latches de datos de PORTD
BSF STATUS,RP0 ;Selecciona Banco 1
MOVLW 0xFF ;configura RD7,...,RD4
MOVWF TRISD ;y RD3,RD2,RD1 como salidas
BCF STATUS,RP0 ;regresa al Banco 0
RETURN
;**************************************************************************************************
; Subrutina que atiende la interrupción de timer0 * *
;**************************************************************************************************
INTERR movwf W_temp ; Salva el registro W en en un registro temporal
swapf STATUS,W ; Copia STATUS en W (usa SWAP para no alterarlo al copiarlo)
clrf STATUS ; Banco cero, sin importar banco actual
movwf STATUS_temp ; Salva STATUS en STATUS_temp (Banco 0)
movf PCLATH,W ; sólo se requiere si se están usando las páginas 1,2,y/o 3
movwf PCLATH_temp ; salva PCLATH
clrf PCLATH ; página 0 sin importar página actual
BCF PIR1,TMR1IF ;

MOVF PORTB,W ;
MOVWF dato_A ; GUARDA LA MITAD DE LA PALABRA

MOVF PORTD,W ; GUARDA LOS SIGUIENTES 8 BITS DE LA PALABRA
MOVWF dato_B ;

MOVLW 0x36 ; número de incrementos del timer msb
MOVWF TMR1H ; inicializa la cuenta de TMR1
MOVLW 0X00 ; número de incrementos del timer lsb
MOVWF TMR1L ; inicializa la cuenta de TMR1
BSF PIR1,TMR1IF ;
BCF PIR1,TMR1IF ; limpia bandera de sobreflujo
movf PCLATH_temp,W ; rescata PCLATH
movwf PCLATH ; si se usan las paginas 1,2 y/o 3
swapf STATUS_temp,W ; rescata el STATUS original
movwf STATUS ; restablece banco original
swapf W_temp,F ; rescata el W original
swapf W_temp,W ; sin alterar el STATUS ya rescatado.
retfie

fin NOP
end

ONVERSION DE UN NUMERO BCD EN SU RESPECTIVO CODIGO 7 SEG

TITLE:CONVERSION DE UN NUMERO BCD EN SU RESPECTIVO CODIGO 7 SEG

BCD EQU 80H
7SEG EQU 81H
INICIO EQU 0000H

ORG INICIO

CICLO: MOV R0, #BCD
MOV A,@R0
CALL BCD_7SEG
INC R0
MOV @RO,A

BCD_7SEG: MOV DPTR,#TABLA_7S
MOVC A,@A+DPTR
RET

TABLA_7S: DB 3FH,06H,5BH,4FH,66H
DB 6DH,3CH,07H,7FH,67H

END