单片机—多任务编程

;================================================================LedPort               Equ           P2SegPort               Equ           P0Timer1                Equ           0FB23HSec400Chg             Bit           30HSec10Chg              Bit           31HSecChg                Bit           32HMinChg                Bit           33HSec400                Data          34HSec10                 Data          35HSecond                Data          36HTemp                  Data          37HRelieve               Data          38HTemp1                 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,#40Delay1:               Mov           R7,#0Delay2:               Djnz          R7,Delay2                      Djnz          R6,Delay1                      Ret;================================================================ SegDisplay:           Mov           Dptr,#TableSegLoop:                                   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,DoSec400MainLoop1:            Jbc           Sec10Chg,DoSec10MainLoop2:            Jbc           SecChg,DoSecondMainLoop3:            Jbc           MinChg,DoMinute                      Ajmp          MainLoop0DoSec400:                      Sjmp          MainLoop1DoSec10:                      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          MainLoop2DoSecond:                                                 Mov           LedPort,Temp1                      Mov           A,Temp1                      Rl            A                      Mov           Temp1,A                      Sjmp          MainLoop3DoMinute:                      Sjmp          MainLoop0                     ;================================================================                      End 

-电子元器件采购网（www.ruidan.com）是本土元器件目录分销商，采用“小批量、现货、样品”销售模式，致力于满足客户多型号、高质量、快速交付的采购需求。 自建高效智能仓储，拥有自营库存超过50,000种，提供一站式正品现货采购、个性化解决方案、选型替代等多元化服务。