基于單片機的防酒后駕駛控制系統(tǒng)設(shè)計程序

1、<p>　　ORG 0000H</p><p>　　AJMP START </p><p>　　ORG 0030H</p><p>　　START:MOV R7,#60H</p><p>　　MOV R0,#20H ;初始化端口</p><p>　　CLR A &l

2、t;/p><p>　　LOOP:MOV @R0,A</p><p><b>　　INC R0</b></p><p>　　DJNZ R7,LOOP </p><p>　　ACALL TEST </p><p>　　MOV B,#51 </p><p>　　

3、DIV AB </p><p>　　MOV A,#10</p><p>　　MUL AB </p><p>　　MOV R6,A </p><p>　　MOV R7,B </p><p>　　ACALL DIV16 </p><p&

4、gt;　　MOV 7EH,R6 </p><p>　　MOV A,R2 </p><p>　　MOV B,#10</p><p><b>　　MUL AB</b></p><p><b>　　MOV R6,A</b></p><p><b

5、>　　MOV R7,B</b></p><p>　　ACALL DIV16</p><p>　　MOV 30H,R6</p><p>　　ACALL DTR</p><p><b>　　CLR C</b></p><p>　　MOV 31H,#100</p&g

6、t;<p>　　MOV A,30H</p><p>　　SUBB A,31H</p><p><b>　　JNC J0</b></p><p><b>　　NOP</b></p><p>　　SETB P1.6</p><p>　　SETB P1.7&

7、lt;/p><p>　　ACALL DELAY</p><p>　　AJMP START</p><p>　　J0: NOP ;延時程序</p><p>　　SETB P2.0</p><p>　　ACALL DELAY</p><p>　　AJMP START<

8、/p><p>　　DELAY: MOV R1,#20 </p><p>　　Y1: MOV R2,#100</p><p>　　Y2: MOV R3,#228</p><p>　　DJNZ R3,$</p><p>　　DJNZ R2,Y2</p>&

9、lt;p>　　DJNZ R1,Y1</p><p><b>　　RET </b></p><p><b>　　;雙字節(jié)除法程序</b></p><p>　　;子程序名：DIV16</p><p>　　;功能:雙字節(jié)二進制無符號數(shù)除法</p><p>　　;入口

10、參數(shù)：被除數(shù)在R2,R3,R4,R5中，除數(shù)在R6,R7中</p><p>　　;出口參數(shù)：雙字節(jié)商在R2,R3中</p><p>　　DIV16:MOV R5,#0</p><p>　　MOV R4,#51</p><p>　　MOV R3,#0</p><p>　　MOV R2,#0</p>

11、<p>　　MOV R1,#16</p><p>　　LP1: CLR C</p><p><b>　　MOV A,R6</b></p><p><b>　　RLC A</b></p><p><b>　　MOV R6,A</b></p>&

12、lt;p><b>　　MOV A,R7</b></p><p><b>　　RLC A</b></p><p><b>　　MOV R7,A</b></p><p><b>　　MOV A,R2</b></p><p><b>　　

13、RLC A</b></p><p><b>　　MOV R2,A</b></p><p><b>　　MOV A,R3</b></p><p><b>　　RLC A</b></p><p><b>　　MOV R3,A</b><

14、;/p><p><b>　　MOV A,R2</b></p><p><b>　　CLR C</b></p><p>　　SUBB A,R4</p><p><b>　　JC NEXT</b></p><p><b>　　MOV R0,A

15、</b></p><p><b>　　MOV A,R3</b></p><p>　　SUBB A,R5</p><p><b>　　JC NEXT</b></p><p><b>　　INC R6</b></p><p><

16、b>　　MOV R3,A</b></p><p>　　MOV A,R0</p><p>　　MOV R2,A</p><p><b>　　RET</b></p><p>　　TEST: MOV R0,#50H ;十個數(shù)首地址</p><p>　　MOV R7,#0A

17、H ;采樣10次</p><p>　　CY_10:MOV DPTR,#0DFF3H</p><p>　　MOV A,#03H</p><p>　　MOVX @DPTR,A</p><p>　　MOV R6,#40H</p><p><b>　　KLA:NOP</b></p>&

18、lt;p>　　DJNZ R6,KLA</p><p>　　MOVX A,@DPTR</p><p>　　MOV @R0,A</p><p><b>　　INC R0</b></p><p>　　DJNZ R7,CY_10</p><p>　　LCALL FMAX;去最大值</p>

19、;<p>　　LCALL FMIN;去最小值</p><p>　　LCALL AVG ;求平均值 </p><p><b>　　MOV A,4CH</b></p><p>　　MOV 60H,A;送目標(biāo)單元</p><p>　　LCALL CHAA;數(shù)據(jù)處理子程序</p><p>　

20、　MOV 1CH,61H</p><p>　　LCALL CHAB</p><p><b>　　MOV A,1DH</b></p><p>　　;*50后取高八位，入口60H，出口61h</p><p>　　CHAA: MOV B,#32H</p><p><b>　　MOV A,60H

21、</b></p><p><b>　　MUL AB</b></p><p><b>　　MOV 61H,B</b></p><p><b>　　RET</b></p><p>　　;二到十轉(zhuǎn)換,入口1CH,出口1DH</p><p>　　CH

22、AB: MOV R7,#08H</p><p>　　MOV 1DH,#00H</p><p><b>　　LP:CLR C</b></p><p><b>　　MOV A,1CH</b></p><p><b>　　RLC A</b></p><p>

23、<b>　　MOV 1CH,A</b></p><p><b>　　MOV A,1DH</b></p><p>　　ADDC A,1DH</p><p><b>　　DA A</b></p><p><b>　　MOV 1DH,A</b></p>

24、;<p>　　DJNZ R7,LP</p><p><b>　　RET</b></p><p>　　FMAX:MOV R7,#09H ;求最大的數(shù)</p><p>　　MOV R0,#50H</p><p>　　LP31: MOV A,@R0</p><p><b&g

25、t;　　INC R0</b></p><p><b>　　CLR C</b></p><p>　　SUBB A,@R0</p><p><b>　　JC DONE</b></p><p><b>　　MOV A,@R0</b></p><p>

26、;<b>　　DEC R0</b></p><p><b>　　XCH A,@R0</b></p><p><b>　　INC R0 </b></p><p><b>　　MOV @R0,A</b></p><p>　　DONE:DJNZ R7,LP31&

27、lt;/p><p><b>　　RET </b></p><p>　　FMIN:MOV R7,#08H ;求最小的數(shù)</p><p>　　MOV R0,#50H</p><p>　　LP2: MOV A,@R0</p><p><b>　　INC R0</b></p>

28、;<p><b>　　CLR C</b></p><p>　　SUBB A,@R0</p><p><b>　　JNC DONE1</b></p><p><b>　　MOV A,@R0</b></p><p><b>　　DEC R0</b>

29、;</p><p><b>　　XCH A,@R0</b></p><p><b>　　INC R0 </b></p><p><b>　　MOV @R0,A</b></p><p>　　DONE1:DJNZ R7,LP2</p><p><b&g

30、t;　　RET</b></p><p>　　AVG:MOV R7,#08H ;求平均值</p><p>　　MOV R0,#50H</p><p>　　MOV R3,#00H</p><p>　　MOV R4,#00H</p><p>　　LP3:MOV A,@R0</p><

31、p><b>　　ADD A,R4</b></p><p><b>　　MOV R4,A</b></p><p><b>　　MOV A,R3</b></p><p>　　ADDC A,#00H</p><p><b>　　MOV R3,A</b>&l

32、t;/p><p><b>　　INC R0</b></p><p>　　DJNZ R7,LP3</p><p>　　MOV R7,#03H </p><p>　　LP4:CLR C</p><p><b>　　MOV A,R3</b></p><p>&

33、lt;b>　　RRC A</b></p><p><b>　　MOV R3,A</b></p><p><b>　　MOV A,R4</b></p><p><b>　　RRC A</b></p><p><b>　　MOV R4,A</b&g

34、t;</p><p>　　DJNZ R7,LP4</p><p>　　MOV 4cH,R4</p><p><b>　　RET</b></p><p>　　DIV16:MOV R5,#0</p><p>　　MOV R4,#51</p><p>　　MOV R3,#0

35、</p><p>　　MOV R2,#0</p><p>　　MOV R1,#16</p><p>　　LP1: CLR C</p><p><b>　　MOV A,R6</b></p><p><b>　　RLC A</b></p><p&g

36、t;<b>　　MOV R6,A</b></p><p><b>　　MOV A,R7</b></p><p><b>　　RLC A</b></p><p><b>　　MOV R7,A</b></p><p><b>　　MOV A

37、,R2</b></p><p><b>　　RLC A</b></p><p><b>　　MOV R2,A</b></p><p><b>　　MOV A,R3</b></p><p><b>　　RLC A</b></p>

38、;<p><b>　　MOV R3,A</b></p><p><b>　　MOV A,R2</b></p><p><b>　　CLR C</b></p><p>　　SUBB A,R4</p><p><b>　　JC NEXT</b

39、></p><p><b>　　MOV R0,A</b></p><p><b>　　MOV A,R3</b></p><p>　　SUBB A,R5</p><p><b>　　JC NEXT</b></p><p><b>

40、　　INC R6</b></p><p><b>　　MOV R3,A</b></p><p>　　MOV A,R0</p><p>　　MOV R2,A</p><p>　　NEXT:DJNZ R1,LP1</p><p><b>　　RET</b&g

41、t;</p><p><b>　　; 顯示程序</b></p><p><b>　　;子程序名：DTR</b></p><p>　　;功能：7279選擇0方式驅(qū)動數(shù)碼管顯示</p><p><b>　　;參數(shù)入口：40H</b></p><p>　　DT

42、R:MOV R5,#05H </p><p>　　MOV R0,#40H</p><p>　　MOV R1,#95H</p><p>　　LP1:CLR P1.4</p><p>　　MOV R6,#0CH</p><p>　　LP2:DJNZ R6,LP2</p><p>&l

43、t;b>　　MOV A,R1</b></p><p>　　ACALL STFS</p><p>　　MOV R6,#04H</p><p>　　LP3:DJNZ R6,LP3</p><p>　　MOV A,@R0</p><p>　　ADD A,#0DH</p><p

44、>　　MOVC A,@A+PC</p><p>　　ACALL STFS</p><p>　　MOV R6,#02H</p><p>　　LP4:DJNZ R6,LP4</p><p>　　SETB P1.4</p><p><b>　　INC R0</b></p>

45、<p><b>　　DEC R1</b></p><p>　　DJNZ R5,LP1</p><p><b>　　RET</b></p><p>　　TAB: DB 7EH,30H,6DH,79H,33H,5BH,5FH,70H,7FH,7BH</p><p>　　DB 77

46、H,1FH,4EH,3DH,4FH,47H,00H,67H</p><p>　　/*********************發(fā)送一字節(jié)子程序**********************************/</p><p>　　STFS:MOV R7,#08H</p><p>　　STF1:RLC A</p><p>　　MOV P1.2

47、,C</p><p><b>　　SETB P1.3</b></p><p>　　MOV R6,#06H</p><p><b>　　DJNZ R6,$</b></p><p><b>　　CLR P1.3</b></p><p>　　MOV R6,#0

48、6H</p><p><b>　　DJNZ R6,$</b></p><p>　　DJNZ R7,STF1</p><p><b>　　RET</b></p><p>　　CS BIT P1.4</p><p>　　CLK BIT P1.3</p>&l