adctoportd.asm

READ ABOUT ADC0 CHANNEL IN PIC18F452 AND WRITE DE RESULT IN PORTD

	      List p=18f452


		include "p18f452.inc"
;***********************************************	
		CBLOCK	0X20
		TIMEA
		TIMEB
		TIMEC
		REG_L
		REG_H
		ENDC

	
		ORG 0x0000
		BRA 	INICIO
INICIO
		movlw	0xFF		; ESTABLECE FRECUENCIA DEL PWM
		clrf	TRISD		
		CLRF	PORTD
		movlw	b'10001110'	;PUERTO DIGITAL Y AN0.
		movwf	ADCON1
LOOP    CALL Analog
		CALL MEDIO_SEG
	    GOTO LOOP


		movlw	b'10001110'	;PUERTO DIGITAL Y AN0.
		movwf	ADCON1

Analog
		MOVLW b'01000001'
		MOVF ADCON0
;;;;;;;;;
DELAY
;;;;;;;;
		BSF ADCON0,GO
WAIT    BTFSC ADCON0,GO
		BRA WAIT
		MOVF ADRESL,W
		MOVWF REG_L
		MOVWF PORTD

		RETURN





;*************************
;*****MEDIO_SEG**********
;*************************
MEDIO_SEG

		nop
		movlw	0x03
		movwf	TIMEC

CCCC1	movlw	0xDA
		movwf	TIMEB
		
BBBB1	movlw	0xFF
		movwf	TIMEA

AAAA1	decfsz	TIMEA,F
		goto		AAAA1
		decfsz	TIMEB,F
		goto		BBBB1
		decfsz	TIMEC,F
		goto		CCCC1
		nop
		return
;*************************
		END