CSEG AT 43H
JMP ADC




MOV ADCF,#00011111b ;SET TO USE P1.X AS ADC INPUT

MOV A,#00100000B ; ADCON CONFIGURE , A/D ENABLE
ORL A,ADCON
MOV ADCON,A

MOV A,#30 ;CLOCK PRESCALER fADC=fosc/(4*PRS(4:0))
ORL A,ADCLK ;
MOV ADCLK,A
MOV A,#00000000B ;SELECTION OF CHANNEL TO CONVERT
ORL A,ADCON
MOV ADCON,A

MOV A,#00001000B ;START CONVERTION IN NON PRECISION MODE
ORL A,ADCON
MOV ADCON,A

MOV TIMES,#0
MOV TIMES+1,#0
MOV TIMES+2,#0
MOV TIMES+3,#0
MOV TIMES+4,#0

SETB EADC
SETB EA


main:

..........
..........
.........
.........

jmp main





;---------------------------------------
;***********A/D CONVERTER***************
;---------------------------------------
ADC:
PUSH ACC
PUSH PSW



MOV A,#11101111b ;CLEAR ADC INTERRUPT
ANL A,ADCON
MOV ADCON,A

MOV A,ADDH
MOV B,ADDL

cjne a,#0ah,continue1
mov a,#0bh
continue1:

CJNE R0,#0,NEXT1
MOV TIMES,A

MOV A,#11111000B ;CLEAR CHANNELS OF ADC
ANL A,ADCON
MOV ADCON,A

MOV A,#00000001B ;SELECTION OF CHANNEL TO CONVERT
ORL A,ADCON
MOV ADCON,A

NEXT1: CJNE R0,#1,NEXT2
MOV TIMES+1,A

MOV A,#11111000B ;CLEAR CHANNELS OF ADC
ANL A,ADCON
MOV ADCON,A

MOV A,#00000010B ;SELECTION OF CHANNEL TO CONVERT
ORL A,ADCON
MOV ADCON,A

NEXT2: CJNE R0,#2,NEXT3
MOV TIMES+2,A

MOV A,#11111000B ;CLEAR CHANNELS OF ADC
ANL A,ADCON
MOV ADCON,A

MOV A,#00000011B ;SELECTION OF CHANNEL TO CONVERT
ORL A,ADCON
MOV ADCON,A

NEXT3: CJNE R0,#3,NEXT4
MOV TIMES+3,A

MOV A,#11111000B ;CLEAR CHANNELS OF ADC
ANL A,ADCON
MOV ADCON,A

MOV A,#00000100B ;SELECTION OF CHANNEL TO CONVERT
ORL A,ADCON
MOV ADCON,A

NEXT4: CJNE R0,#4,EXIT
MOV TIMES+4,A

MOV A,#11111000B ;CLEAR CHANNELS OF ADC
ANL A,ADCON
MOV ADCON,A

MOV A,#00000000B ;SELECTION OF CHANNEL TO CONVERT
ORL A,ADCON
MOV ADCON,A

MOV R0,#0FFH

EXIT: INC R0


MOV A,#00001000B ;START CONVERTION IN NON PRECISION MODE
ORL A,ADCON
MOV ADCON,A

POP PSW
POP ACC
RETI