BUF1 EQU 60H ;缓冲单元1
BUF2 EQU 46H ;缓冲单元2
SBF EQU 47H ;秒存储单元
MBF EQU 48H ;分存储单元
HBF EQU 49H ;时存储单元
TMCOUNT EQU 50H
VMAX EQU 55H ;设定的最大压力存储单元
VMIN EQU 56H ;设定的最小压力存储单元
CCOUNT EQU 57H ;来车次数记载单元
ST BIT P3.5 ;传感器发动信号线
EOC BIT P3.4 ;传感器转化信号线
OE BIT P3.3 ;传感器输出使能信号线
SOUND BIT P3.2 ;扬声器
ORG 0000H
LJMP MAIN
ORG 000BH
LJMP INTM0 ;中止0进口地址
ORG 001BH
LJMP INTM1 ;中止1进口地址
ORG 1000H
MAIN:
MOV TMOD,#11H
MOV TH1,#3CH ;守时器1守时50ms
MOV TL1,#0B0H
MOV TH0,#3CH ;守时器0守时50ms
MOV TL0,#0B0H
SETB EA
SETB ET1
SETB ET0
MOV P2,#00H
MOV BUF2,#00H
MOV BUF1,#00H
MOV CCOUNT,#00H
SETB P3.0
CLR P3.1
CLR P3.4
CLR P3.3
CLR P3.6
CLR P3.7
CLR PSW.5
CLR PSW.1
MOV VMAX,#180 ;对应的显现为3.6
MOV VMIN,#101 ;对应的现实为2
;程序开端部分
START: LCALL INPUT_TIME ;首要调用时刻输入子程序
NEXT1: LCALL KEY_SCAN ;键盘扫描以判别下一次案子是时刻重设仍是确认按键
CJNE A,#0FH,NEXT2
JMP START
NEXT2: CJNE A,#0EH, NEXT3 ;时刻设定是否确认，假如按的是=则标明时刻确认，一起要开端计时时刻运转。
SETB TR1 ;发动守时器1开端计时
LCALL ADC_START ;调用传感器数据收集程序
JMP $
NEXT3: JMP NEXT1
INPUT_TIME: ;时刻输入子程序
LCALL KEY_SCAN
MOV 40H,A
LCALL KEY_SCAN
MOV 41H,A
LCALL KEY_SCAN
MOV 42H,A
LCALL KEY_SCAN
MOV 43H,A ;输入时和分时刻，因为时和分都是2位数故要按键4次
TIME_SAVE: ;时刻保存部分
MOV SBF,1
MOV A,42H
SWAP A
ORL A,43H
MOV MBF,A
MOV A,40H
SWAP A
ORL A,41H
MOV HBF,A ;输入的时刻要进行数据整合然后放到对应的存储单元里
MOV DPTR,#LEDSEG
MOV TMCOUNT,#180
TIME_SHOW: ;时刻显现部分，经过这部分能够看看所设的时刻格局是否正确
SETB P2.5 ;在时刻显现这部分整体思路时先选定位码，然后在输出段码
MOV A,#1 ;然后可做到时刻显现
MOVC A,@A+DPTR
MOV P0,A
LCALL DELAYDIS
CLR P2.5
SETB P2.4
MOV A,#0
MOVC A,@A+DPTR
MOV P0,A
LCALL DELAYDIS
CLR P2.4
SETB P2.3
MOV A,43H
MOVC A,@A+DPTR
XRL A,#80H
MOV P0,A
LCALL DELAYDIS
CLR P2.3
SETB P2.2
MOV A,42H
MOVC A,@A+DPTR
MOV P0,A
LCALL DELAYDIS
CLR P2.2
SETB P2.1
MOV A,41H
MOVC A,@A+DPTR
XRL A,#80H
MOV P0,A
LCALL DELAYDIS
CLR P2.1
SETB P2.0
MOV A,40H
MOVC A,@A+DPTR
MOV P0,A
LCALL DELAYDIS
CLR P2.0
DJNZ TMCOUNT,TIME_SHOW
RET
ADC_START : ;传感器数据收集部分，经过对外部的模仿量转化为数字量，然后判别外部
CLR ST ;状况，
SETB ST ;思路是这样的。因为传感器选用的是5v电源。所以量程是0~5v
CLR ST ;因为传感器的位数是8位所以收集的最大数值为255，所以一个单位对应的
HERE: SETB EOC ;模仿量位5/255即1/51.所以在这里设模仿量为3.6标明车来，模仿量为
JNB EOC,HERE ;2.0标明车脱离，整体思路便是这样。
SETB OE
MOV P0,#0FFH
MOV A,P0
CLR OE
MOV 51H,A ;收集的模仿值保存到51H这个单元里
MOV A,51H ;将二进制数值转化为对应量程的十进制标明
MOV B ,#51
DIV AB
MOV 52H, A
MOV A, #5
XCH A, B
DIV AB
MOV 53H, A
MOV A, B
MOV 54H, A
CLR C
;下面进行数值比较。当显现高于3.8时标明列车开来。
;当显现小于1.0且列车已来过即呈现过数值大于3.8时标明列车已脱离
JNB PSW.5,BJMAX
CLR C
MOV A,51H
SUBB A,VMIN
JNC TIME_DELAY ;若大于最小值则跳到收集的数据显现部分，假如小于则
;标明车现已脱离，这是进行复原以等候下一辆车到来。
CLR PSW.5
MOV P2,#00H
SETB P3.0
CLR P3.1
SETB PSW.1
; CLR TR0
LJMP QUIT
BJMAX: MOV A,51H ;与设定的最大值进行比较
SUBB A,VMAX
JC SHOW_CJ ;若小于最大值则跳到数值显现部分，若大于最大值，此刻便显现当时时刻和车来次数
SETB PSW.5
INC 57H
SETB TR0
CLR P3.0
SETB P3.1
SETB P3.6 ;使电动机开端正向滚动
CLR P3.7
TIME_DELAY:LCALL TIME_DISP ;不只要显现当时时刻此刻还要报警和正告灯显现即黄灯亮。
LJMP QUIT
SHOW_CJ: MOV DPTR,#LEDSEG
SETBP2.2
MOVA,54H
MOVCA,@A+DPTR
MOVP0,A
LCALLDELAYDIS
CLRP2.2
SETBP2.1
MOVA,53H
MOVCA,@A+DPTR
MOVP0,A
LCALLDELAYDIS
CLRP2.1
SETBP2.0
MOVA,52H
MOVCA,@A+DPTR
XRL A,#80H
MOVP0,A
LCALLDELAYDIS
CLRP2.0
QUIT: LJMP ADC_START
RET
TIME_DISP: ;车来时当时时刻显现
MOV A,SBF
ANL A,#0FH
MOV 45H,A
MOV A,SBF
SWAP A
ANL A,#0FH
MOV 44H,A
MOV A,MBF
ANL A,#0FH
MOV 43H,A
MOV A,MBF
SWAP A
ANL A,#0FH
MOV 42H,A
MOV A,HBF
ANL A,#0FH
MOV 41H,A
MOV A,HBF
SWAP A
ANL A,#0FH
MOV 40H,A
MOV DPTR,#LEDSEG
SETB P2.7
MOV A,CCOUNT
MOVC A,@A+DPTR
MOV P0,A
LCALL DELAYDIS
CLR P2.7
SETB P2.5
MOV A,45H
MOVC A,@A+DPTR
MOV P0,A
LCALL DELAYDIS
CLR P2.5
SETB P2.4
MOV A,44H
MOVC A,@A+DPTR
MOV P0,A
LCALL DELAYDIS
CLR P2.4
SETB P2.3
MOV A,43H
MOVC A,@A+DPTR
XRL A,#80H
MOV P0,A
LCALL DELAYDIS
CLR P2.3
SETB P2.2
MOV A,42H
MOVC A,@A+DPTR
MOV P0,A
LCALL DELAYDIS
CLR P2.2
SETB P2.1
MOV A,41H
MOVC A,@A+DPTR
XRL A,#80H
MOV P0,A
LCALL DELAYDIS
CLR P2.1
SETB P2.0
MOV A,40H
MOVC A,@A+DPTR
MOV P0,A
LCALL DELAYDIS
CLR P2.0
RET
LEDSEG: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0BFH ;0,1,2,3,4,5,6,7,8,9
DELAYDIS:MOV R6,#4 ;延时程序1
D1: MOV R7,#250
DJNZR7,$
DJNZR6,D1
RET
INTM1: MOV TH1,#3CH ;中止1程序
MOV TL1,#0B0H
INC BUF2
MOV A,BUF2
CJNE A,#20,QUITINTM1 ;假如等于20则正好1秒到
MOV BUF2,#00H
MOV A,SBF
ADD A,#1
DA A
MOV SBF,A
CJNE A,#60H,QUITINTM1
MOV SBF,#00H
MOV A,MBF
ADD A,#1
DA A
MOV MBF,A
CJNE A,#60H,QUITINTM1
MOV MBF,#00H
MOV A,HBF
ADD A,#1
DA A
MOV HBF,A
CJNE A,#24H,QUITINTM1
MOV HBF,#00H
QUITINTM1:
RETI
INTM0: ;中止0程序
MOV TH0,#3CH ;守时器0守时50ms
MOV TL0,#0B0H
JB PSW.1 ,MOTOR
CPL P3.2
JMP ENDINTM0
MOTOR: SETB P3.7
CLR P3.6
INC BUF1
MOV A,BUF1
CJNE A,#150,ENDINTM0 ;假如等于则正好1秒到
MOV BUF1,#00H
CLR P3.6
CLR P3.7
CLR PSW.1
CLR TR0
ENDINTM0:RETI
KEY_SCAN:MOV R0,#0F7H ;键盘扫描程序
MOV R1,#00H
WC1: MOV A,R0
MOV P1,A
MOV A,P1
MOV R2,A
SETB C
MOV R3,#04H
WC2:RLC A
JNC KEY
WC3:INC R1
DJNZ R3,WC2
MOV A,R0
SETB C
RRC A
MOV R0,A
JC WC1
LJMP KEY_SCAN
KEY:LCALL DTENMS
MOV A,P1
XRL A,R2
JNZ WC3
WC4:MOV A,P1
XRL A,R2
JZ WC4
MOV A,R1
MOV DPTR,#TAB
MOVC A,@A+DPTR
RET
DTENMS:MOV R6,#6
DD1:MOV R7,#248
DJNZ R7,$
DJNZ R6,DD1
RET
TAB:DB 07H,08H,09H,09H,04H,05H,06H,06H,01H,02H,03H,03H,00H,00H,0EH,0FH ;对应方位的数据
END
