智能收费系统软件源代码

采用mcs-51单片机时钟频率为6MHZ采用T0工作方式2

OUTBIT  EQU 08002h  ; 位控制口

OUTSEG  EQU 08004h  ; 段控制口

IN        EQU 08001h  ; 键盘读入口

LEDBuf  EQU  60h     ;显示缓冲

Hour    EQU  40h     ；存放时信息计数单元

Minute  EQU  41h      ；存放分信息计数单元

Second  EQU  42h     ； 存放秒信息计数单元

C100us  EQU  43h    

Tick    EQU  10000   

T100us  EQU  256-50  

LGMP  StArt           ；跳转到程序入口

org     000Bh

T0Int:

       PUSH    DPL

       PUSH    DPH

       PUSH    ACC    ；保护断点

       ORL P1, #01H

       ANL P1, #0FEH  ；当车进停车场时由系统产生下降沿脉冲触发硬件电路开始计时

MOV     A, C100us+1

       JNZ     Goon   

       DEC     C100us

Goon:

        DEC     C100us+1

MOV     A, C100us

       ORL     A, C100us+1

       JNZ     Exit         ；判断是否溢出10000次

 MOV     C100us, #high(Tick)

       MOV     C100us+1, #low(Tick) ;从新设置技术单元C100us的初值

INC     Second            ；秒单元加1

       MOV     A, Second

       CJNE    A, #60, Exit         ；判断秒技术单元是否累加到60

 MOV     Second, #0         ；需要向分计数单元进位秒计数单元先清零

       INC     Minute             ；分计数单元加1

       MOV     A, Minute        

       CJNE    A, #60, Exit          ；判断分计数单元是否加到60

 MOV     Minute, #0         ；需要向时计数单元进位分技术单元先清零

       INC     Hour                ；时计数单元加1

Exit:

       POP     DPL

       POP     DPH

       POP     PSW                  ;恢复断点

       RETI

DelAy:               ; 延时子程序

       MOV   r7, #0

DelAyLoop:

       DJNZ  r7, DelAyLoop

       DJNZ  r6, DelAyLoop   ；实现延时

       RET

LEDMAP:              ; 八段管显示码

       dB    3fh, 06h, 5Bh, 4fh, 66h, 6dh, 7dh, 07h

       dB    7fh, 6fh, 77h, 7ch, 39h, 5eh, 79h, 71h

DisplAyLED:

       MOV   r0, #LEDBuf

       MOV   r1, #6         ; 共6个八段管

       MOV   r2, #00100000B ; 从左边开始显示

Loop:

       MOV   DPTR, #OUTBIT

       MOV   A, #0

       MOVX @DPTR, A        ; 关所有八段管

MOV   A, @r0

       MOV   DPTR, #OUTSEG

       MOVX @DPTR,A         ；将要显示的值放到段控制口

       MOV   DPTR, #OUTBIT

       MOV   A, r2

       MOVX  @DPTR, A        ; 显示一位八段管

 MOV   r6, #1

       CAll  DelAy            ;调用延时程序

MOV   A, r2           ; 显示下一位

       RR    A

       MOV   r2, A

INC   r0               ；找到要显示下一位地址

DJNZ  r1, Loop          ；判断是否全部显示

 RET 

ToLED:

       MOV     DPTR, #LEDMAp

       MOVC    A, @A+DPTR      ；查表显示

       RET                   

StArt:

       MOV     TMOD, #02h         ; 模式2, 定时器

       MOV     TH0, #T100us

       MOV     TL0, #T100us          ；给T0赋初值

MOV     IE, #10000010B     ; EA=1, IT0 = 1

MOV     Hour, #0

       MOV     Minute, #0

       MOV     Second, #0          ；将时分秒单元分别清零

       MOV     C100us, #high(Tick)

       MOV     C100us+1, #low(Tick)  ;设定计数初值

       SETB   TR0                ; 启动定时器T0

MLoop:

       MOV     A, Hour  

       MOV     B, #10

       DIV     AB       ；求的时的高位放到A

       CAll    ToLED   ；调用查表程序

       MOV     LEDBuf, A；将显示值放到显示缓冲区

       MOV     A, B

       CAll    ToLED

       ORL     A, #80h    ；得到时的低位值：

       MOV     LEDBuf+1, A；将显示值放到显示缓冲区的下一地址

MOV     A, Minute

       MOV     B, #10

       DIV     AB         ;求的分的高位放到A

       CAll    ToLED      ;调用查表程序

       MOV     LEDBuf+2, A；将显示值放到显示缓冲区下一地址

       MOV     A, B

       CAll    ToLED

       ORL     A, #80h     ；得到时的低位值：

       MOV     LEDBuf+3, A   ；将显示值放到显示缓冲区的下一地址

MOV     A, Second 

       MOV     B, #10

 DIV     AB   

 CAll    ToLED         ;调用查表程序

       MOV     LEDBuf+4, A  ；将显示值放到显示缓冲区的下一地址

       MOV     A, B

       CAll    ToLED         ；调用查表程序

       MOV     LEDBuf+5, A   ；将显示值放到显示缓冲区的下一地址

CAll    DisplAyLED    ；调用显示程序显示所有的结果

       MOV A, Hour

       MOV B, #8

MUL AB     

MOV R3,B         ;计算整小时费用

       MOV A, Minute   

       MOV B, #60

DIV AB

MOV B, #8

MUL AB

MOV A, B      ；计算分费用

ADD A, R3    ；总费用

Ljmp    Mloop

 End