; AUTOR: JUANCHOPOLO
; FILE: C:FINAL.ASM
; VERSION: XXXXXXXXXXXXXXXXXXXXXXXXXX
; FECHA INICIO: XXXXXXXXXXXXXXXXXXXXXX
; FECHA FINA:   XXXXXXXXXXXXXXXXXXXXXX
; DRSCRIPCION: XX  XXXXXXXXX  XXXXXXXXX  XXXXXXXXXXXX  XXXXXXXXXX  XXXXXXXXX  XXXXXXXX
;            
;        
;*****************************************

                    TITLE "GRUA"
                    LIST P= 16F887
                    #include <p16f887.inc>
                    errorlevel -302
   
;*****************************************
;*****************************************
;BIT DE CONFIGURACION

 
        __CONFIG _CONFIG1, _HS_OSC & _WDT_OFF & _PWRTE_ON & _MCLRE_ON & _CP_OFF & _CPD_OFF &  _BOR_ON & _IESO_ON & _FCMEN_ON & _LVP_OFF  & _DEBUG_OFF           

 

;*****************************************
; REGISTROS
;
STATUS EQU 03
PORTA  EQU 05
PORTB  EQU 06
PORTC  EQU 07
PORTD  EQU 08
PORTE  EQU 09

TRISA  EQU 0X85
TRISB  EQU 0X86
TRISC  EQU 0X87
TRISD  EQU 0X88
TRISE  EQU 0X89

WPUB   EQU 0X95
ANSEL  EQU 0X188
ANSELH EQU 0X189

OSCOON  EQU 0X8F
OSCTUNE EQU 0X90
PSTRCON EQU 0X9D

;*****************************************
;VARIABLES

VAR01 EQU 20
VAR02 EQU 21
VAR03 EQU 22
CONT  EQU 23

TECLA1 EQU 24
TECLA2 EQU 25
TECLA3 EQU 26
TECLA4 EQU 27

;*****************************************

          ORG 0X00

          GOTO INICIO

;*****************************************

;               ZONA PROHIBIDA ¡

;******************************************

        ORG 0X30

INICIO

;*****************************************
;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
      
 ;       MOVLW 0X67
 ;       MOVWF OSCOON
 ;       MOVLW 0X00
 ;       MOVWF OSCTUNE
 ;       MOVLW 0X1F
 ;       MOVWF PSTRCON
 ;       MOVLW 0X00
 ;       MOVWF ANSEL
 ;       MOVWF ANSELH
 
         CALL CONFIG_PORTD
        ;CALL CONFIG_PORTC
        BCF STATUS,0X05

sigue:
       MOVLW 0X01
       MOVWF PORTD
       ;MOVWF PORTC
       CALL DELAY_5S

      MOVLW 0X02
      MOVWF PORTD
      ;MOVWF PORTC
      CALL DELAY_5S 

      MOVLW 0X03
       MOVWF PORTD
       ;MOVWF PORTC
       CALL DELAY_5S

     MOVLW 0X04
       MOVWF PORTD
       ;MOVWF PORTC
       CALL DELAY_5S

      goto sigue     
      

           
          
      
;*****************************************
; PUERTO D DE SALIDA
;*****************************************
CONFIG_PORTD
        BANKSEL PORTD;
        CLRF PORTD ; init PORTD
        BANKSEL TRISD
        MOVLW 0X00
        MOVWF TRISD
      
        RETURN

;*****************************************
; PUERTO D DE ENTRADA
;*****************************************

CONFIG_PORTC
        BANKSEL PORTC;
        CLRF PORTC ; init PORTC
        BANKSEL TRISC
        MOVLW 0X00
        MOVWF TRISC
      
        RETURN
;*****************************************
DELAY_5S
               MOVLW 0X04
               MOVWF VAR01
WWWW           MOVLW 0X0A7
               MOVWF VAR02
YYYY           MOVLW 0X054
               MOVWF VAR03
XXXX           DECFSZ VAR03,1
               GOTO XXXX 
               DECFSZ VAR02
               GOTO YYYY
               DECFSZ VAR01
               GOTO WWWW
               NOP
               NOP
               RETURN
 
;******************************************

             
           END