单片机-多任务编程汇编语言编程 -

标题: 单片机-多任务编程汇编语言编程 [打印本页]

作者: xiaos 时间: 2015-4-4 02:30
标题: 单片机-多任务编程汇编语言编程

;================================================================
LedPort             Equ          P2
SegPort             Equ          P0
Timer1             Equ          0FB23H
Sec400Chg          Bit          30H
Sec10Chg             Bit          31H
SecChg             Bit          32H
MinChg             Bit          33H
Sec400             Data       34H
Sec10                Data       35H
Second             Data       36H
Temp                Data       37H
Relieve             Data       38H
Temp1                Data       39H
;================================================================
                  Org          0000H
                  Ajmp       Main
;================================================================
InitSysT:          Mov          Relieve,#50
         Mov          TMod,#00100000B
                  Mov          TL1,#Low(Timer1)
                  Mov          TH1,#High(Timer1)
                  Setb       EA
                  Setb       ET1
                  Setb       TR1

                  Mov          Sec400,#40
                  Mov          Sec10,#10
                  Mov          Second,#60
                  Clr          Sec400Chg
                  Clr          Sec10Chg
                  Clr          SecChg
                  Clr          MinChg
                  Ret
;================================================================
                  Org          001BH
                  Mov          TL1,#Low(Timer1)
                  Mov          TH1,#High(TImer1)
                  AJmp       CTC1Entry

CTC1Entry:          Setb       Sec400Chg
                  Djnz       Sec400,T1IntOut
                  Mov          Sec400,#40

                  Setb       Sec10Chg
                  Inc          Sec10HEX
                  Djnz       Sec10,T1IntOut
                  Mov          Sec10,#10

                  Setb       SecChg
                  Djnz       Second,T1IntOut
                  Mov          Second,#60
                  Setb       MinChg

T1IntOut:          RetI
;================================================================
Delay:             Mov          R6,#40
Delay1:             Mov          R7,#0
Delay2:             Djnz       R7,Delay2
                  Djnz       R6,Delay1
                  Ret
;================================================================
SegDisplay:          Mov          Dptr,#Table
SegLoop:
                  Movc       A,@A+Dptr
                  Mov          SegPort,A
                  Ret
;----------------------------------------------------------------
Table:             DB          11000000B
                  DB          11111001B
                  DB          10100100B
                  DB          10110000B
                  DB          10011001B
                  DB          10010010B
                  DB          10000010B
                  DB          11011000B
                  DB          10000000B
                  DB          10010000B
;================================================================
Main:                MOv          Temp1,#11111110B
                  Mov          Temp,#0
                  Acall       InitSysT

MainLoop0:          Jbc          Sec400Chg,DoSec400
MainLoop1:          Jbc          Sec10Chg,DoSec10
MainLoop2:          Jbc          SecChg,DoSecond
MainLoop3:          Jbc          MinChg,DoMinute
                  Ajmp       MainLoop0
DoSec400:
                  Sjmp       MainLoop1
DoSec10:
                  Mov          A,Temp
                  Acall       SegDisplay
                  Djnz       Relieve,L3
                  Mov          Relieve,#50
                  Inc          Temp
                  Mov          A,Temp
                  Cjne       A,#9,MainLoop2
                  Mov          Temp,#0
L3:                Sjmp       MainLoop2
DoSecond:
                  Mov          LedPort,Temp1
                  Mov          A,Temp1
                  Rl          A
                  Mov          Temp1,A
                  Sjmp       MainLoop3
DoMinute:
                  Sjmp       MainLoop0
;================================================================
                  End

欢迎光临 (http://www.51hei.com/bbs/)