简易电动车 程序.docVIP

PAGE PAGE 20 附：程序清单 ;PCON EQU 87H ;***********LCM103 LCM101 TEST ************* ;MCS-51:89C2051,89C51,89C52;fo=2.45MHz ;/CS=P1.4 /WR=P1.3 DATA=P1.2 ************* ;RAM 20H:COMMAND CODE ******************** ;RAM 21H: LCD ADDR*** ;RAM 25H: LCD DATA*** ORG 0000H AJMP MAIN ORG 000BH AJMP wto ORG 0013H AJMP PINT1 ORG 0030H MAIN: ;ACALL STOP CLR P3.0 MOV P2,#0F0H acall ql acall start ;ACALL DELAY ;ACALL LLL ;ACALL RDNBYT ;MOV 31H,41H ;MOV 32H,42H ;MOV 33H,43H ;MOV 2FH,#08H ;ACALL WRNBYT ;ACALL DELAY1 ;ACALL START main2: MOV SP,#5FH MOV TMOD,#52H MOV TL0,#06H MOV TH0,#06H MOV IE,#82H SETB IT1 MAIN3: ACALL KEY1 ;按键控制，前进，清零，翻页 ;============ CLR P2.0 SETB P2.1 ACALL CHUAN1 ZHI: MOV A,TL1 ;直道行驶 CLR C SUBB A,#30 ;230=S=(TH1,TL1)*14/6 JNC WAN ACALL KUAI AJMP ZHI ;=========================== ;弯道行驶 ;============================= WAN: SETB 20H.2 ;弯道标志位 ;CLR P2.3 ;SETB P2.2 CLR P2.1 SETB P2.0 MOV 5DH,#02H DJNZ 5DH,$ CLR P2.0 SETB P2.1 ACALL MAN ;到达弯道 JB 20H.3,ZHANG ajmp wan ;==================== ;障碍物行驶 ;=================== ZHANG: mov 20h,#00h clr p2.3 setb p2.2 CLR P2.1 SETB P2.0 MOV 5EH,#50 S50: MOV 5DH,#0FFH DJNZ 5DH,$ DJNZ 5EH,S50 CLR P2.0 SETB P3.0 mov 3fh,#05 ;定时器5秒程序 ffdd: jnb 20h.0, $ clr 20h.0 CPL P3.0 djnz 3fh,FFDD clr p2.3 SETB