单片机电子时钟汇编语言程序

1、51单片机架构下时钟控制程序；KEYA A键功能程序开启/关闭定时器;KEYB ;KEYC ;KEYP ;KEY EB键功能程序 C键功能程序 D键功能程序 E犍功能程序时值加1分值加1秒值加112/24时值转换；BEEP_BL整点报时;P（）显示接口iMtJaJ?*KEYAEQU P3.0；单片机控制设直KEYBEQU P3.1;单片机控制设宣KEYCEQU P3.2;单片机控制设直KEYPEQU P33;单片机控制设直KEYEEQU P3.4;单片机控制i殳直BEEPEQU P3.7;单片机控制设直ORG0000HAJMPMAIN;转到系统初始化程序ORGOOOBHAJMPP1TO；转到定

2、时器0中断服务程序ORG01 OOHMAIN: MOVSP,#6（）H;确立堆栈区MOVTMOP.#01H；设疋疋时器o为工作方式1MOVTLO,#0DCH;装计数器初值MOVTHO,#0BHCLR21H.0CLRTRO；TR0SV,定时关闭SETBEA；EA直“1”，中断总允许SETBETO;已卫）直”1,定时器0中断；允许MOV30H,#10H；循环次数MOV7EH,#()AH;P.点显示初始化MOVRO,#79HMOVRl,#05HPP： MOVR0,#0BHINCROPJNZRl,PPMOVRO,#31H; 时、分、秒值存涪单兀清零MOVRl,#()6HQ00: MOVR0,#()0H

3、INCRODJNZRl,Q00；A键功能于程序*KEYA: CPL TROSETBAJMP21H.0LOOP；开启/关闭定时器；返回JSSJ*LOOP: LCALLDIR；调显示于程序LCALLKEY;调键扫描于程序L(X)P1:JB20H.0,KEYA； A犍是否按下，是跳转到A键功能程序开启/关闭定时器JB20H.1,KEYB；Bm是否按下，是跳转到B键功能程序 时值加1JB20H.2,KEYC；C键是否按下，是跳转到C键功能程序 分值加1JB20H.3,KEYD；n键是否按下，是跳转到n键功能程序秒值加1JB20H.4,KEYE；E键是否按下，是跳捷到E键功能程序12/24时值转换LCA

4、LLPIR14MP LOOP ;跳转到监控程序B 4 JJrsJ* * *KEYB： JBTRO,KEYB1；定时器是否运行，是跳转JNB21H.0,KEYB2MOVRO,#36H；时值存储单兀地址送R（）LCALLPAAD1；调加1于程序MOVA,R3；时值加1后的值送累加器ALCALLBE EP_BL；整点报时XRLA,#12H；时值是否到12时JNZKEYBO9BACK: XRLA,#24H;判是否到24时JNZKEYB1；时值是否到24时,否返回LCALLCLRO；时值存储单兀清零KEYB():JB20H.4,KEYB1;是否启用12时值,否返回LCALLCLRO;时值存储单元清零KE

5、YB 1: MOV7DH,35HMOV7EH,36HKEYB2: LMPLOOP;返回监控程序;C键功能于程序 #*#*：*KEYC：JB 8CH, KEYCI ;定时器是否运行，否跳转JNB21H.0,KEYC2MOVR(),#34H;分值存储单兀地址送ROLCALLPAAP1调加1于程序MOVA,R3;分值加1后的值送累加器AXRLA,#60H ;JNZKEYCI分值是否到60分，否返回LCALLCLRO分值存储单兀清零KEYCI： MOV7CH,34HMOV7BH,33HKEYC2: LJMPLOOP返回监控程序；n键功能于程序 *KEYD：JB8CH,KEYP1；定时器是否运行，否跳转

6、JNB21H.0,KEYP2MOVRO,#32H;秒值存储单兀地址送R0LCALLPAAP1;调加1于程序MOVA,R3;秒值加1后的值送R0XRLA,#60HJNZKEYP1; 秒值是否到60秒，否返回LCALLCLRO；秒值存储单兀清0KEYD1: MOV79H,31HMOV7AH,32HKEYP2: LJMPLOOP; 返回监控程序；中断服务程序*PITO： PUSHPSW;中断服务程序，现场保护PUSHASETBRSO;选第三组通用寄存器SETBRSIMOVTLO,# ()DCH;计教器重新加载MOVTHO,#0BHMOVA,30H;循环次数减1DECAMOV30H,AJNZRETO；

7、不满16次，转RET0返回MOV30H,#1()H；满16次开始计时操作MOVRO,#32H；秒显不单兀地址ACALLDAAD1； 秒加1MOVA,R3 ;加1后秒值在R3中XRL#6（）H ；判是否到60秒JNZRETO9不到转RET0返回ACALLCLRO9到60秒显不单兀清0MOVRO,#34H;分显示单元地址ACALLDAAD1; 分加1MOVA,R3 ;加1后分值在R3中XRLA,#60H ;判是否到60分JNZRETO不到转RET0返回ACALLCLRO9到6()分显不单兀清0MOVRO,#36H ；时显示单元地址ACALLPAAD1； 时加1MOVA,R3; 加1后时值在R3中L

8、CALLBE EP_BL;整点报时XRLA,#12H;时值是否到12时JNZKEYB39XRLA,#24H ;判是否到24时JNZRETO不到转RET0返回ACALLCLRO到24时显示单兀清0KEYB3:JB20H.4, RETO;是否启用12时值，否返回ACALLCLRO9时值存储单兀清零RETO: CLRRSO9返回第0组通用寄存器CLRRSIPOPA；现场恢复POPPSWMOV79H,31H;时、分、秒值放缓冲区MOV7AH,32HMOV7BH,33HMOV7CH,34HMOV7PH,35HMOV7EH,36HRETI中断返回于程序 *PAADkMOVA,R0；加1于程序，十位迭ADE

9、CROSWAPA； 十位教占高4位ORLA,R0 ；个位数占低4位APPA,#01H ;加1DAA;十迸制调整MOVR3,A;全值暂存R3中ANLA,#0FH ;屏蔽十位数，取出个位数MOVR(),A;个位值送显示缓冲单元MOVA,R3INCROANLA,#0F0H;屏蔽个位数取出十位数SWAPA; 使十位数占低四位MOVR0,A; 十位教送缓冲单元RET9返回CLRO: CLRA9清缓冲单元于程序MOVR(),A; 十位缓冲单元清”()”DECMOVRETROR0,A;个位教缓冲单元清0”; 返回 *KEY： LCALLKEYCHULI;调键值处理于程序JZEXIT没有犍按下转到返回LCAL

10、LDIRLCALLDIR;调显示去抖动LCALLKEYCHULI;调键值处理于程序JZEXIT没有犍按下转到返回MOVB,20H;保存键值KEYSF: LCALLKEYCHULI;调键值处理于程序JZKEY19键释放，转到恢垣键值LCALLDIR;调显示于程序延时AJMPKEYSF9等到键释放KEY1: MOV20H,B;犍值送20H单元保存EXIT: RET返回KEYCHUL1: PUSHPSW;保护现场CLRRSI改变寄存器组号SETBRSOMOVPh#0FFH ;先向P1 口写1MOVA,Pl;P1 口值送累加器ACPLAA值取反ANLA,#0FH ;保存Pl 口的低4位MOV20H,A

11、;A值送20H保存CLRRSI改变寄存器组号CLRRSOPOPPSW； 恢复现场RET;显示于程序*#*DIR： PUSHPSW恢复现场SETBRSI改变寄存器组号CLRRSOMOVRO,#79H;逹立显示缓冲区首地址MOVR3,#0FBH ；设直位控码LPO: MOVP2,R3;送位控码MOVA,R0；缓冲区值送累加器APISP1: APPA,#1BHMOVCA,A+PC；取段控码并送A中PISP2: MOVPO,A;送段控码MOVR2,#09H ;设直延时循环次数ACALLDEY;延时点亮INCRO缓冲区地址加1MOVA,R3;位控码送AJNBACC.l,HERE ;是否到最高位，是转到返回IBACC.5,LP2RLARLA不到向显示器高位移位LP2:RLAMOVR3,A;位控值保存到R4中AJMPLPO；继续扫描HERE：CLRRSO；改变寄存器组号CLRRSIPOPPSW； 恢复现场RET返回PBB： PBOCOHDB0F9HDB0A4HDBOBOHPB99HPB92HPB82HPB0F8HDBBOHDB90HDBOCHDBOFFH点 g:ft* * * * * *BEEP_BL: MOVR6,#100BLkCALLBL2CPLBEEPDJNZR6,BL1