ORG 0BH
JMP TT0
ORG 0033H
JMP ADCONVER
ORG 100H
START: MOV DACCON,#01FH
MOV SP,#60H
MOV R0,30H
MOV R1,40H
CALL TIMER0
CALL AD_INIT
SETB EA
SETB EADC
TT: ;JB ADC_FLAG,$
MOV DAC0L,@R0
MOV A,@R1
ANL A,#0FH
MOV DAC0H,A
JMP TT
ADCONVER: MOV A,ADCDATAL
MOV @R0,A
MOV A,ADCDATAH
MOV @R1,A
SETB ADC_FLAG
JP: RETI
AD_INIT: MOV ADCCON1,#6Dh ; power up ADC & enable EXC mode
MOV ADCCON2,#CHAN ; select channel to convert
ORL ADCCON2,#10H
RETI
TIMER0: MOV TH0,#0FFH
MOV TL0,#0EEH
MOV TMOD,#01H
SETB EA
SETB ET0
SETB TR0
RETI
TT0: SETB SCONV
MOV TH0,#0FFH
MOV TL0,#0EEH
CLR P2.0
T0_ADC: JB ADC_FLAG,ADC_END
INC R0
INC R1
INC CHAN
MOV A,CHAN
CJNE A,#08H,ADC_END
MOV CHAN,#04
MOV R0,30H
MOV R1,40H
SETB ADC_FLAG
ADC_END: RETI
END
请回复 JINGDONG_LOG@HOTMAIL.COM
万分感激起!!!