;**********************************************************
ADC0809 EQU 0FEFFH

ORG 0000H
LJMP 0030H
ORG 0003H
LJMP S_INT0
ORG 000BH
LJMP S_T0

ORG 0030H
MOV IE,#00H
SETB IT1
SETB IT0 ;將兩外部中斷均設為脈沖觸發
MOV SP,#5FH
SETB EX0
SETB PX0
SETB EA ;開外部中斷0，并使之為高優先級,可保證外部中斷1及時反應
MOV TMOD,#01H ;定時器16位
MOV TH0,#0FCH
MOV TL0,#18H ;定時器0賦初始值。定時1ms
SETB ET0 ;啟動定時器0,其中包含采樣程序
SETB TR0
MOV P1,0FFH
MOV P2,0FFH
;MOV 30H,#0FFH

MAIN:
MOV A,30H
SUBB A,#0EFH
JC UNACTION
CLR P1.0
LCALL RET_T
UNACTION:
SETB P1.0
RET_T:
JMP MAIN

S_T0:
MOV TH0,#0FCH
MOV TL0,#1CH
PUSH A
MOV DPTR,#ADC0809
MOV A,#ADC0809
MOVX @DPTR,A  
POP A
RETI

S_INT0:
MOV DPTR ,#ADC0809
MOVX A,@DPTR
MOV P1,A
MOV 30H,A
LCALL DELAY
SETB P1.7
MOVX A,@DPTR

MOV 31H,A
LCALL DELAY
CLR P1.7
RETI

DELAY:
MOV R0,#50
LOOP:
DJNZ R0,LOOP
RET