;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
;***************************************************************************************************
;
; Emcabezado del PIC
;
LIST P=16F873
#INCLUDE "P16F873.INC"
__CONFIG _CP_ALL & _DEBUG_OFF & _PWRTE_ON & _CPD_OFF & _WDT_OFF & _BODEN_OFF & _LVP_OFF & _XT_OSC
ERRORLEVEL -302,-306
RADIX HEX
;
;
;
;***************************************************************************************************
;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
;
CBLOCK 20
TEMP
ENDC
;
;***************************************************************************************************
;***************************************************************************************************
;
ORG 0 ; El programa comienza en la dirección 0.
GOTO INICIO
ORG 5
;
;***************************************************************************************************
;***************************************************************************************************
;
INICIO ;BANCO 1
bsf STATUS,RP0 ; Acceso al Banco 1.
movlw 0X06
movwf ADCON1
CLRF TRISA ;PUERTO A como salida
CLRF TRISB
CLRF TRISC
BCF STATUS,RP0
CLRF PORTC
;***************************************************************************************************
VISU
MOVLW 0X00;8
MOVWF PORTB
MOVLW 0X01
MOVWF PORTC
CALL RETARDO
CLRF PORTC
MOVLW 0X79;1
MOVWF PORTB
MOVLW 0X02
MOVWF PORTC
CALL RETARDO
CLRF PORTC
MOVLW 0X40;0
MOVWF PORTB
MOVLW 0X04
MOVWF PORTC
CALL RETARDO
CLRF PORTC
MOVLW 0X30;3
MOVWF PORTB
MOVLW 0X08
MOVWF PORTC
CALL RETARDO
CLRF PORTC
GOTO VISU
;***************************************************************************************************
;***************************************************************************************************
RETARDO
CLRF TEMP ;2 MILISEGUNDOS
NOP
DECFSZ TEMP,F
GOTO $-2
NOP
DECFSZ TEMP,F
GOTO $-2
RETURN
;***************************************************************************************************
;***************************************************************************************************
;***************************************************************************************************
;***************************************************************************************************
END ; Fin del programa.