carta ingles

Prender un led con un 16F84A por RB0, de lo mas sencillo

Código
GeSHi (asm):
; 02-06-06
; Ejemplo 01
; Prender un led
; PIC 16f84a
; MPLAB 7.30
; PROTEUS 6.9 SP3
; Veguepic
LIST P=16F84A, ; usar PIC 16F84A
#include
__CONFIG _CP_OFF&_PWRTE_ON&_WDT_OFF&_XT_OSC ; code protec off
; power up timer on
; watchdog off
; osc XT
ORG 0
BSF STATUS,5 ; activa la pagina 1
MOVLW B'00000' ;carga 00000 en W
MOVWF TRISA ; puerto a todos salidas
MOVLW B'00000000' ; carga 00000000 en W
MOVWF TRISB ; puerto b todos salidaS
BCF STATUS,5 ; volvemos a la pagina 0
BCF PORTB,0 ; ponemos a 0 RB0
BCF PORTB,1 ; ponemos a 0 RB1
BCF PORTB,2 ; ponemos a 0 RB2
BCF PORTB,3 ; ponemos a 0 RB3
BCF PORTB,4 ; ponemos a 0 RB4
BCF PORTB,5 ; ponemos a 0 RB5
BCF PORTB,6 ; ponemos a 0 RB6
BCFPORTB,7 ; ponemos a 0 RB7
; luego haremos todos juntos
INICIO ; etiqueta
BSF PORTB,0 ; pone a 1 RB0
GOTO INICIO ; va a inicio
END ; fin de programa

Prender y apagar un led cada 0.5 segundos con un 16F84A por RB0

Código
GeSHi (asm):
; 02-06-06
; Ejemplo 02
; Prende y apagar un led cada 0.5 seg
; PIC 16f84a
; MPLAB 7.30
; PROTEUS 6.9 SP3
; Veguepic
LIST P=16F84A, ; usar PIC 16F84A#include
__CONFIG _CP_OFF&_PWRTE_ON&_WDT_OFF&_XT_OSC ; code protec off
; power up timer on
; watchdog off
; osc XT
PDel0 equ 0C
PDel1 equ 0D

ORG 0
BSF STATUS,5 ; activa la pagina 1
MOVLW B'00000' ; carga 00000 en W
MOVWF TRISA ; puerto a todos salidas
MOVLW B'00000000' ; carga 00000000 en W
MOVWF TRISB ; puerto b todos salidaS
BCF STATUS,5 ; volvemos a la pagina 0
MOVLW B'00000000'; ponemos a cero el
MOVWF PORTB ; el puerto b
; usando esta opcion se ahorran
; 6 bytes en comparacion con el
; ejemplo 01
INICIO ; etiqueta

BSF PORTB,0 ; pone a 1 RB0
CALL DEMORA ; llama a demora de 0,5 seg
BCF PORTB,0 ; pone a 0 RB0
CALL DEMORA ; llama a demora de 0,5 seg
GOTO INICIO ; va a inicio
;------------------------------------------------------------; La demora a sidogenerada con el programa PDEL
; Delay 250000 ciclos
;------------------------------------------------------------DEMORA movlw .197 ; 1 set numero de repeticion (B)
movwf PDel0 ; 1
PLoop1 movlw .253 ; 1 set numero de repeticion (A)
movwf PDel1 ; 1
PLoop2 clrwdt ; 1 clear watchdog
clrwdt ; 1 ciclo delay
decfsz PDel1,1 ; 1 + (1) es el tiempo 0 ? (A)
goto PLoop2 ; 2 no, loop
decfsz PDel0,1 ; 1 +(1) es el tiempo 0 ? (B)
goto PLoop1 ; 2 no, loop
PDelL1 goto PDelL2 ; 2 ciclos delay
PDelL2
return ; 2+2 Fin.
;--------------------------------------END ; fin de programa

Prender y apagar 4 leds cada segundo (RB0 a RB3). 0,5 segundos prendido y 0,5 segundos apagado
con un 16F84A
Código
GeSHi (asm):
; 03-06-06
; Ejemplo 03
; Prender y apagar un 4 leds cada 1 seg

; PIC 16f84a
;MPLAB 7.30
; PROTEUS 6.9 SP3
; Veguepic
LIST P=16F84A, ; usar PIC 16F84A
#include
__CONFIG _CP_OFF&_PWRTE_ON&_WDT_OFF&_XT_OSC ; code protec off
; power up timer on
; watchdog off
; osc XT
PDel0 equ 0C
PDel1 equ 0D

ORG 0
BSF STATUS,5 ; activa la pagina 1
MOVLW B'00000' ; carga 00000 en W
MOVWF TRISA ; puerto a todos salidas
MOVLW B'00000000' ; carga 00000000 en W
MOVWF TRISB ;puerto b todos salidaS
BCF STATUS,5 ; volvemos a la pagina 0
MOVLW B'00000000' ; ponemos a cero el
MOVWF PORTB ; el puerto b
; usando esta opcion se ahorran
; 6 bytes en comparacion con el
; ejemplo 01
INICIO ; etiqueta
MOVLW B'00001111' ; prendemos leds RB0 a RB3
MOVWF PORTB ; cargamos el puerto b
CALL DEMORA ; llama a demora de 0,5 seg
MOVLW B'00000000' ; apagamos leds RB0 a RB3
MOVWFPORTB ; cargamos el puerto b
CALL DEMORA ; llama a demora de 0,5 seg

GOTO INICIO ; va a inicio
;------------------------------------------------------------; La demora a sido generada con el programa PDEL
; Delay 500000 ciclos
;------------------------------------------------------------DEMORA movlw .239 ; 1 set numero de repeticion (B)
movwf PDel0 ; 1 |
PLoop1 movlw .232 ; 1 set...