8031实现AD转换的程序.doc

ORG 2000H AJMP MAIN ORG 200BH AJMP MT3 ORG 2013HAJMP EXCH ORG 201BHAJMP CHA ORG 203CHMAIN: MOV A,#0FFH MOV P2,#8FH MOVX R0,A MOV P2,#9FH MOVX R0,A MOV P2,#0AFH MOVX R0,A MOV P2,#0BFH MOVX R0,A MOV P2,#0CFH MOVX R0,A MOV 30H,#00H MOV 31H,#00H MOV 32H,#00H MOV SP,#66H JB P1.3,CN JB P1.4,VPRG1 AJMP TPRGVPRG1: AJMP VPRGCN: JB P1.4,CPRGNPRG: MOV TMOD,#0DHMT1: MOV TH0,#00H MOV TL0,#00H SETB TR0 MOV R2,#78HT1D2S: MOV R3,#05HTM: MOV R4,#0F9HTMM: NOP NOP DJNZ R4,TMM DJNZ R3,TM NOP NOP DJNZ R2,T1D2S CLR TR0 CLR C MOV A,TH0 RRC A MOV B,A MOV A,TL0 RRC A MOV 33H,A CLR C MOV A,B RRC A MOV B,A MOV A,33H RRC A MOV 33H,A MOV 30H,#00H MOV 31H,#00H MOV 32H,#00H ACALL ADD10 MOV B,33H ACALL ADD10 ACALL LED10 AJMP MT1CPRG: MOV TMOD,#6DH MOV TH0,#00H MOV TL0,#00H SETB TR0 MOV TH1,#0FFH MOV TL1,#0FFH SETB EA SETB ET1 SETB TR1CC: NOP AJMP CCCHA: CLR TR1 CLR TR0 MOV A,TL0 MOV 20H,A MOV A,TH0 MOV 21H,A MOV TL0,#00H MOV TH0,#00H SETB TR0 MOV 30H,#00H MOV 31H,#00H MOV 32H,#00H MOV 33H,#00H CLR C MOV A,21H RRC A MOV B,A MOV A,20H RRC A MOV 33H,A ACALL ADD10 MOV B,33H ACALL ADD10 ACALL LED SETB TR1 RETISAM: MOV P2,#0DFH MOVX R0,A MOV R7,#1EHAD: DJNZ R7,AD MOVX A,R0 RETVPRG: MOV R1,#35H MOV R6,#0AHVSA: ACALL SAM MOV R1,A INC R1 ACALL T10MS DJNZ R6,VSA MOV R0,#36H MOV R2,#09HQQ: MOV A,R0 CJNE A,35H,YY AJMP NEXTYY: JC NEXT XCH A,35H MOV R0,ANEXT: INC R0 DJNZ R2,QQ MOV R2,#08H MOV R0,#37HQQQ: MOV A,R0 CJNE A,36H,YYY AJMP NNEXTNNEXT: INC R0 DJNZ R2,QQQ MOV 36H,#00H MOV R0,#38H MOV R2,#07HADD08: MOV A,R0 ADD A,37H MOV 37H,A MOV A,36H ADDC A,#00H MOV 36H,A INC R0 DJNZ R2,ADD08 MOV 30H,#00H MOV 31H,#00H MOV 32H,#00H MOV B,36H ACALL ADD10 MOV B,37H ACALL ADD10 MOV A,30H ANL A,#0FH CJNE A,#04H,SSWY AJMP LED100SSWY: JC LED100 MOV A,30H ADD A,#10H DA A MOV 30H,A MOV A,31H ADDC A,#00H DA A MOV 31H,ALED100: MOV P2,#0AFH MOV A,31H SWAP A ANL A,#0FH JNZ VB MOV A,#0FFH MOVX R0,A AJMP VSVB: ACALL OUTVS: MOV P2,#0BFH MOV A,31H ANL A,#0FH ACALL OUTD MOV A,30H SWAP A ANL A,#0FH MOV P2,#0CFH ACALL OUT MOV R6,#59HT08: ACALL T10MS DJNZ R6,T08 AJMP VPRGTPRG: SETB IT1 MOV A,P1 ANL A,#07H MOV B,#03H MUL AB ADD A,#40H MOV R7,A CJNE A,#4CH,TPRGW MOV 20H,#00H MOV 21H,#00H MOV 22H,#00H MOV 23H,#00H AJMP TEXTTPRGW: JNC TPRG MOV R1,A MOV R1,#00H INC R1 MOV R1,#OOH INC R1 MOV R1,#OOH ACALL LEDGZ11: MOV TMOD,#0DH MOV TH0,#0FFH MOV TLO,#0FFH SETB TR0 SETB ET0 SETB EX1 SETB EAMT2: MOV A,R7 CJNE A,#4CH,MT2 AJMP TEXTMT3: MOV A,R7 MOV R1,A MOV A,R1 ADD A,#01H DA A MOV R1,A INC R1 MOV A,R1 ADDC A,#00H DA A MOV R1,A INC R1 MOV A,R1 ADDC A,#00H DA A MOV R1,A MOV 32H,R1 DEC R1 MOV 31H,R1 DEC R1 MOV 30H,R1 ACALL LED MOV TH0,#0FFH MOV TL0,#0FFH RETIEXCH: CLR EA CLR EX1 CLR ET0 CLR TR0 MOV A,P1 ANL A,#07H MOV B,#03H MUL AB ADD A,#40H MOV R7,A CJNE A,#4CH,TPR AJMP GZ1 DEC SP AJMP TEXTTPR: JNC EXCH MOV R1,A MOV 30H,R1 INC R1 MOV 31H,R1 INC R1 MOV 32H,R1 ACALL LEDGZ1: SETB TR0 SETB ET0 SETB EX0 SETB EA MOV A,R7 RETI DEC SP AJMP MT2TEXT: CLR EA CLR EX1 CLR ET0 CLR TR0 MOV 30H,#00H MOV 31H,#00H MOV 32H,#00H MOV B,21H ACALL ADD10 MOV B,20H ACALL ADD10 ACALL LED4 SETB EX1 SETB EATEXT1: MOV A,P1 ANL A,#07H MOV B,#03H MUL AB ADD A,#40H CJNE A,#4CH,XR2 AJMP TEXT2XR2: MOV R7,A MOV R1,A MOV 30H,R1 INC R1 MOV 31H,R1 INC R1 MOV 32H,R1 ACALL LED AJMP GZ11TEXT2: CLR EA CLR EX1 CLR ET0 CLR TR0 MOV A,P1 ANL A,#0C0H CJNE A, #0C0H,0P1 AJMP TEXT10P1: ACALL T10MS ACALL T10MS MOV A,P1 ANL A,#0C0H CJNE A,#0C0H,0P2 AJMP TEXT10P2: CLR EA CLR EX1 JB P1.7,0P3TE: JNB P1.7,TE ACALL T1OMS ACALL T10MS AJMP ADD10P3: JB P1.6,TEXT1TEX: JNB P1.6,TEX ACALL T10MS ACALL T10MS MOV A,21H CJNE A,#27H,SUB MOV A,20H CJNE A,#0FH,SUB JNB 1EH,SUB AJMP TEXTSUB: MOV A,22H ADD A,#0FFH MOV 22H,A MOV A,23H ADDC A,#0FFH MOV 23H,A AJMP OPLADD1: MOV A,21H CJNE A,#27H,ADD MOV A,20H CJNE A,#0FH,ADD JB 1EH,ADD AJMP TEXTADD: MOV A,22H ADD A,#01H MOV 22H,A MOV A,23H ADDC A,#00H MOV 23H,A0PL: JNB 1EH,CHAN MOV A,22H CPL A ADD A,#01H MOV 20H,A MOV A,23H CPL A ADDC A,#00H MOV 21H,A AJMP CHCHAN: MOV 20H,22H MOV 21H,23HCH: MOV 30H,#00H MOV 31H,#00H MOV 32H,#00H MOV B,21H ACALL ADD10 MOV B,20H ACALL LED4 SETB EX1 SETB EA AJMP TEXTLED4: JNB 1EH,LE MOV P2,#8FH MOV A,#0BFH MOVX R0,A AJMP LE1LE: MOV P2,#8FH MOV A,#0FFH MOVX R0,ALE1: MOV P2,#9FH MOV A,31H SWAP A ANL A,#0FH JNZ Q SETB F0 MOV A,#0FFH MOVX R0,A AJMP ZBQ: ACALL OUT CLR F0ZB: MOV P2,#0AFH MOV A,31H ANL A,#0FH JNZ BB JNB F0,BB MOV A,#0FFH MOVX R0,A AJMP SBB: ACALL OUT CLR F0S: MOV A,30H SWAP A ANL A,#0FH JNZ SS JNB F0,SS MOV P2,#0BFH MOV A,#0FFH MOVX R0,A AJMP GSS: MOV P2,#0BFH ACALL OUTG: MOV P2,#OCFH MOV A,30H ANL A,#0FH ACALL OUT RETADD10: MOV R6,#08HAT1: MOV A,B RLC A MOV B,A MOV A,30H ADDC A,30H DA A MOV 30H,A MOV A,31H ADDC A,31H DA A MOV 31H,A MOV A,32H ADDC A,32H DA A MOV 32H,A DJNZ R6,AT1 RET LED10: MOV P2,#8FH MOV A,32H ANL A,#0FH JNZ NW MOV A,#0FFH MOVX R0,A SETB F0 AJMP NQNW: ACALL OUT CLR F0NQ: MOV P2,#9FH MOV A,31H SWAP A ANL A,#0FH JNZ NQQ JNB F0,NQQ MOV A,#0FFH MOV R0,A AJMP NBNQQ: ACALL OUT CLR F0NB: MOV P2,#0AF MOV A,31H ANL A,#0FH JNZ NBB JNB F0,NBB MOV A,#0FFH MOVX R0,A AJMP NSNBB: ACALL OUTNS: MOV P2,#0BFH MOV A,30H SWAP A ANL A,#0FH MOV P2,#0CFH ACALL OUT RETLED: MOV P2,#8FH MOV A,32H ANL A,#0FH JZN TW MOV A,#0FFH MOVX R0,A SETB F0 AJMP TQTW: ACALL OUT CLR F0TQ: MOV P2,#9FH MOV A,31H SWAP A ANL A,#0FH JNZ TQQ JNB F0,TQQ MOV A,#OFFH MOVX R0,A AJMP TBTQQ: ACALL OUT CLR F0TB: MOV P2,#0AFH MOV A,31H ANL A,#0FH JNZ TBB JNB F0,TBB MOV A,#0FFH MOVX R0,A AJMP TSTBB: ACAL