Enviar Solicitud De Regalo

list p=16F84A
#INCLUDE P16F84A.inc

reg1 equ 0x0b
reg2 equ 0x0d
reg3 equ 0x0e
pulsador equ 0

CONTADOR equ 0x0c
reset org 0x00
goto INICIO
org 0x05display:
addwf PCL,1
retlw b'0111111'
retlw b'0000110'
retlw b'1011011'
retlw b'1001111'
retlw b'1100110'
retlw b'1101101'retlw b'1111101'
retlw b'0000001'
retlw b'1111111'
retlw b'1100111'
clrf CONTADOR
retlw b'00111110'
INICIO
bsf STATUS,5;movlw b'00011111'
movwf TRISA
movlw b'00000000'
movwf TRISB
bcf STATUS,5
movlw b'00111111'
movwf PORTB
clrfCONTADOR
TEST
btfss PORTA,pulsador
goto TEST
call delay
btfss PORTA,pulsador
goto TEST
incf CONTADOR,1
movfw CONTADORcall display
movwf PORTB
btfsc PORTA,pulsador
goto $-1
call delay
btfsc PORTA,pulsador
goto $-4
goto TESTdelay
clrf reg1
clrf reg2
movlw b'11111111'
movwf reg3
bucle
decfsz reg1,f
goto bucle
decfsz reg2,f
goto bucle
decfszreg3,f
goto bucle
return

end











;-----------------------------------------------------------------------------------------------

list p=16F84A#include P16F84A.inc
Contador equ 0x0C ; Registro para almacenar conteo
Contador1 equ 0x0D ; Registro utilizado en demora.-
Contador2 equ 0x0E ; Registro utilizado en demora.-
Pulsador equ 0 ;Definimos Pulsador como el bit 7, en este caso sera para PORTB

Reset org 0x00 ; Aqui comienza el micro.-
goto Inicio ; Salto a inicio de mi programa.-
org 0x05 ; Origen del código de...