aplicaciones ap

;Sergio Contreras Jiménez 5 BECM
;****encabezado****
list p=16f628A ;list directive to define processor
#include ;processor spesific variable definitions

;****Definiciones para elensamblador****
#define led PORTB,0 ;led ubicado en purto B,bit 0.-

;Sergio Contreras Jiménez 5BECM
;****inicio del micro****
org 0x00 ;aqui comenza el micro.-
goto inicio ;salto a inicio de miprograma
;****vector de interrupcion****
org 0x04 ;atiendo interrupcion.-
goto ISR

;****programa principal****
;****configuracion de puertos****
org 0x05 ;origen del codigo deprograma.-
inicio
bsf STATUS,RP0 ;pasamos de banco 0 a banco 1.-
movlw b'11111110' ;RBO como salida.-
movwf TRISB
bcf STATUS,RP0 ;BANCO 0.-
movlw b'00110001' ;se selecciona TMR1,preescaler de1/8,modo de temporizador.-
movwf T1CON
bcf led ;el led comienza apagado.-
movlw 0x6D ;cargamos 28036 en TMR1 para lograr 300ms.-
movwf TMR1H ;bye alto de TMR1.-
movlw 0x84
movwf TMR1L ;bytebajo de TMR1.-
bsf STATUS,RP0 ;banco 1.-
bsf PIE1,TMR1IE ;activar interrupcion por TMR1.
bsf INTCON,GIE ;habilitacion general de interruptores.-
bsf INTCON,PEIE ;habilitacion de interrupcionpor perifericos.-
bcf STATUS,RP0 ;banco 0.-
;****control de led****
bucle
nop ;aqui el micro puede ejecutar cualquier otra tarea
goto bucle ;sin necesidad de utilizar tiempo en un bucle dedemora.-

;****rutina de servicio de interrupcion****
;****interrupcion por TMR1****
ISR
btfss PIR1,TMR1IF ;consultamos si es por TMR1.-
retfie ;no,salimos de interrupcion.-
btfss led;si,controlamos led.Si esta apagado,pendon y viseversa.-
goto Prendo_led
bcf led ;apago led.-
Actualizo_TMR1 ;actualizo TMR1 para obtener una temporizacion de 300ms.-
movlw 0x6D;cargamos 28036 en TMR1.-
movwf TMR1H ;byte alto de TMR1.-
movlw 0x84
movwf TMR1L ;byte bajo de TMR1.-
goto Fin_ISR ;restauro valores.-
Prendo_led
bsf led ;prendo led.-
goto Actualizo_TMR1...