LIST        P=16F84A

INCLUDE     "P16F84A.INC"          
CBLOCK      OXOC                                                
CONT        LOOP, LOOP1, LOOP2     
ENDC                              

ORG         00                     
GOTO        INICIO                 
ORG         05      
; SECCION PARA LAS SUBRUTINAS
RETARDO     MOVLW       D'70'      
            MOVWF       LOOP       
CICLO2      MOVLW       D'50'      
            MOVWF       LOOP1      
CICLO1      MOVLW       D'70'      
            MOVWF       LOOP2      
            DECFSZ      LOOP2      
            GOTO        $-1        
            DECFSZ      LOOP1
            GOTO        CICLO1
            DECFSZ      LOOP
            GOTO        CICLO2
            RETURN                 
INTERM      MOVLW       OXFF       
            MOVWF       PORTB      
            CALL        RETARDO
            GOTO        LEER       
APAGUE      CLRF        PORTB      
            GOTO        LEER       
 
; CONFIGURACION DE PUERTOS
INICIO      BANKSEL     TRISA      
            CLRF        TRISB      
            MOVLW       B'1111'    
            MOVWF       TRISA      
            BANSKSEL    PORTB