51单片机汇编语言万年历完美版.txt

1、;* BY- ;* ;* ;-RCK BIT P0.5SCK BIT P0.4DAT BIT P0.7RST BIT P0.6BUZZER BIT P1.3 ;BYTE EQU 40H;GEWEI EQU 41H; SHIWEI EQU 42H;BAIWEI EQU 43H;QIANWEI EQU 44H;TEMP1 EQU 45HTEMP2 EQU 46HCOUNT EQU 47H ;KTIME EQU 49H TEMP EQU 50HDMS EQU 51H;DSECOND EQU 52H;DMIN EQU 53H;CLKMIN EQU 54H ;CLKHOUR EQU 55H;CLKF E

2、QU 56H;- ORG 0000HAJMP MAIN ORG 000BH;0AJMP T0_INTORG 001BH;1AJMP T1_INT;*;-MAIN:MOV R4,#00 ;MOV R5,#50 ;MOV R6,#15 ; MOV R0,#14H ;2013MOV R1,#0DH MOV R2,#6 ;6MOV R3,#18 ;18MOV COUNT,#0HMOVA,#5 ;A0MOVCLKMIN,#0HMOVCLKHOUR,#0HMOVCLKF,#0HMOV SP,#60HMOV TMOD,#11H ;01 MOV TH0, #03CHMOV TL0, #0B0H ;50000

3、usMOV TH1, #0D8HMOV TL1, #0F0H ;1000us=1MS SETB ET0 ;SETB ET1SETB EA ;SETB PT0 ;SETB EX0 ;SETB EX1 SETB IT0 ;SETB IT1SETB TR0 ;-START:MOVDPTR,#TABLELJMPKEYSCAN ;-MARK2:LJMPKEYSCAN ;KEYCLK:MOVA,CLKF;s12JNZKEYCLKF;CLKF ;SHOWCLKFSHOWCLKF1KEYCLK1:LCALLSHOWCLK ;LCALLS4; ;İs4JZMARK2 ;LCALLS8;s8MOVA,CLKFJN

4、ZKEYCLKF;SHOWCLKF1LCALLS16; ;s16CJNE A,#7EH,KEYCLK1 ; KEYCLK2:LCALLSCLKMIN ;MOVA,CLKMIN;MOVTEMP,ALCALLKEYSUB1;s8s12LCALLKEYADD1MOVA,TEMPSUBBA,#60;59JCREMAIN0MOVTEMP,#0REMAIN0:MOVA,TEMPMOVCLKMIN,ALCALLS16;s16CJNE A,#7EH,KEYCLK2 ;KEYCLK3:LCALLSCLKHOUR;MOVA,CLKHOURMOVTEMP,A;LCALLKEYSUB2LCALLKEYADD2MOVA

5、,TEMPSUBBA,#24;24JCREMAIN1MOVTEMP,#0;240REMAIN1:MOVA,TEMPMOVCLKHOUR,ALCALLS16CJNE A,#7EH,KEYCLK3 ;3KEYCLK4:LCALLSHOWCLK;LCALLS4;JZKEYSCANLCALLS8;MOVA,CLKF;CLKFJNZKEYCLKF;KEYCLKFGOON:LCALLS16;CJNEA,#7EH,KEYCLK4;AJMPKEYCLK2;KEYCLK2KEYCLKF:LCALLSHOWCLK1;LCALLS4;󣩼JZKEYSCAN;LCALLS8;迪MOVA,CLKFJZKE

6、YCLK4; ;KEYCLK4 LCALLS16;İs16CJNEA,#7EH,KEYCLKF;AJMPKEYCLK2;KEYCLK2;-MARK3:LJMP MARK1 ;-KEYSCAN:LCALLHOURMINUTE ;PUSHACC ;s12As12LCALLS4;s4JZKEYSCAN1 MOVA,CLKF ;JZGOMOVA,R6 ;R6-CJNEA,CLKHOUR,GOMOVA,R5;R5-CJNEA,CLKMIN,GOLCALLSOUND ;-GO:POPACC; popA=0LCALLS12 ;JZMARK3 ; LCALLS16;s16CJNE A,#7EH,KEYSCAN

7、; SMINUTE:LCALLMINUTE ;s16MOVTEMP,R5;LCALLKEYADD1 ;s8 LCALL KEYSUB1;s8 MOVA,TEMPSUBBA,#60;60JCREMAIN2MOVTEMP,#0REMAIN2:MOVR5,TEMP;LCALLS16CJNE A,#7EH,SMINUTE;s16SHOUR: LCALLHOUR;MOVTEMP,R6;R6 LCALLKEYADD2LCALL KEYSUB2MOVA,TEMPSUBBA,#24;24JCREMAIN3MOVTEMP,#0REMAIN3:MOVR6,TEMPLCALLS16 ;s16CJNE A,#7EH,

8、SHOURAJMPKEYSCAN;-;-KEYSCAN1:LCALLSHOWSECOND;s4LCALLS4;JZKEYSCAN2;LCALLS12;JZMARK1LCALLS16;s16CJNE A,#7EH,KEYSCAN1SMS:LCALLMS;MOVA,COUNT ;MOVTEMP,ALCALLKEYADD1LCALL KEYSUB1MOVA,TEMPSUBBA,#60;60JCREMAIN4MOVTEMP,#0MOVA,TEMPREMAIN4:MOVA,TEMPMOVCOUNT,ALCALLS16 ;s16CJNE A,#7EH,SMS;s16SSECOND: LCALLSECOND

9、 ;s16MOVTEMP,R4 ;LCALLKEYADD2 LCALL KEYSUB2MOVA,TEMPSUBBA,#60;60JCREMAIN9MOVTEMP,#0REMAIN9:MOVR4,TEMPLCALLS16 ;s16CJNE A,#7EH,SSECOND ;AJMPKEYSCAN1;-MARK1:LJMPKEYCLK;-KEYSCAN2:LCALLSHOWDAY ;LCALLS4 ;JZKEYSCAN3;LCALLS12;JZMARK1LCALLS16;s16CJNE A,#7EH,KEYSCAN2SDAY:LCALLDAY;MOV TEMP,R3 ; R2LCALLKEYADD1

10、;裬LCALL KEYSUB1MOVA,TEMPSUBBA,#32;31JCREMAIN5MOVTEMP,#0REMAIN5:MOVR3,TEMPLCALLS16 ;s16CJNE A,#7EH,SDAY;s16SSMOUNTH:LCALLMOUNTH;s16MOV TEMP,R2LCALLKEYADD2LCALL KEYSUB2MOVA,TEMPSUBBA,#13;12JCREMAIN6MOVTEMP,#0REMAIN6:MOV R2,TEMPLCALLS16;s16CJNE A,#7EH,SSMOUNTH;AJMPKEYSCAN2;-;-KEYSCAN3:LCALLSHOWYEAR;LCA

11、LLS4JZSHOW0;LCALLS12JZMARK1LCALLS16CJNE A,#7EH,KEYSCAN3SYEAR1:LCALLYEAR1MOVTEMP,R1LCALLKEYADD1LCALL KEYSUB1MOVA,TEMPSUBBA,#100;99JCREMAIN7MOVTEMP,#0REMAIN7:MOVR1,TEMPLCALLS16 ; CJNE A,#7EH,SYEAR1SYEAR2: LCALLYEAR2MOVTEMP,R0LCALLKEYADD2LCALL KEYSUB2MOVA,TEMPSUBBA,#100;99JCREMAIN8MOVTEMP,#0REMAIN8:MOV

12、R0,TEMPLCALLS16CJNE A,#7EH,SYEAR2AJMPKEYSCAN3;-MARK:LJMPKEYSCAN ;-SHOW0:MOV DMS,#0;0MOV DMIN,#0MOV DSECOND,#0LCALLSHOWDD ; 0LCALLS4JZMARKLCALLS16CJNEA,#7EH,SHOW0 ;0SETBTR1;1SHOWD:LCALLSHOWDD;s16仯LCALLS4;İJZMARK;LCALLS16;s16CJNEA,#7EH,SHOWD ;s16CLRTR1;1SHOWTING:LCALLSHOWDD;LCALLS4;İJZMARKLCALLS16CJNE

13、A,#7EH,SHOWTING ;s16 SETBTR1;SHOWTING1:LCALLSHOWDD;仯LCALLS4JZMARKLCALLS16CJNEA,#7EH,SHOWTING1;s16CLRTR1SHOWTING2:LCALLSHOWDDLCALLS4JZMARKLCALLS16CJNEA,#7EH,SHOWTING2AJMPSHOW0;s16 ;-;*;-;74hc595,;-SENDBYTE: MOV BYTE,A; MOV A, #1;1 ANL A,BYTE; JNZ SEND CLR DAT; 00 CLR SCK; SETB SCK AJMP LOOP; 7SEND: S

14、ETB DAT;01 CLR SCK SETB SCK ;-LOOP: MOV R7,#7 MOV A, #1LOOP1: RL A MOV B,A ANL A,BYTE JNZ SEND1SEND0: CLR DAT;0 AJMP SUOCUNSEND1: SETB DAT;1 AJMP SUOCUN SUOCUN: CLR SCK SETB SCK MOV A,B DJNZ R7,LOOP1 CLR RCK SETB RCK RET ;-DISPLAY: ACALL JISUANDISPLAY1: MOV P0,#00H MOV A,GEWEI ACALL SENDBYTE ORL P0,

15、#08H; MOV R7,#10H LCALL DLY ;- MOV P0,#00H MOV R7,#03H LCALL DLY MOV A,SHIWEI ACALL SENDBYTE ORL P0,#04H; MOV R7,#10H LCALL DLY ;- MOV P0,#00H MOV R7,#03H LCALL DLY MOV A,BAIWEI ACALL SENDBYTE ORL P0,#02H; MOV R7,#10H LCALL DLY ;- MOV P0,#00H MOV R7,#03H LCALL DLY MOV A,QIANWEI ACALL SENDBYTE ORL P0

16、,#01H; MOV R7,#10H LCALL DLY ;- RET ; -;- JISUAN: MOV A,TEMP1 MOV B,#10 DIV AB MOV TEMP1,B MOVC A,A+DPTR MOV SHIWEI,A MOV A,TEMP1 MOVC A,A+DPTR MOV GEWEI,A MOV A,TEMP2 MOV B,#10 DIV AB MOV TEMP2,B MOVC A,A+DPTR MOV QIANWEI,A MOV A,TEMP2 MOVC A,A+DPTR MOV BAIWEI,A RET ;-;-;-DISPLAY4: ACALL JISUAN MOV

17、 P0,#00H MOV A,BAIWEI ACALL SENDBYTE ORL P0,#02H MOV R7,#03H LCALL DLY ;- MOV P0,#00H MOV R7,#03H LCALL DLY MOV A,QIANWEI ACALL SENDBYTE ORL P0,#01H MOV R7,#03H LCALL DLY ;- RET;-;-DISPLAY2: LCALL JISUAN MOV P0,#00H MOV A,GEWEI LCALL SENDBYTE ORL P0,#08H MOV R7,#03H LCALL DLY ;- MOV P0,#00H MOV R7,#

18、03H LCALL DLY MOV A,SHIWEI LCALL SENDBYTE ORL P0,#04H MOV R7,#03H LCALL DLY ;- MOV P0,#00H MOV R7,#03H LCALL DLY RET;-;-HOURMINUTE: MOV TEMP2,R6 MOV TEMP1,R5 LCALL JISUAN ORL BAIWEI,#01H ;- LCALLDISPLAY1 RET ;SHOWSECOND: MOV TEMP2,R4 MOV A,COUNT MOV TEMP1,A LCALLJISUAN ORLBAIWEI,#01H LCALL DISPLAY1

19、RET ; SHOWYEAR: MOV TEMP2,R0 MOV TEMP1,R1 LCALL DISPLAY RETSHOWDAY: MOV TEMP2,R2 MOV TEMP1,R3 LCALL DISPLAY RETSHOWCLK: MOVTEMP2,CLKHOUR MOVTEMP1,CLKMIN LCALLJISUAN ORLBAIWEI,#01H LCALLDISPLAY1 RETSHOWCLK1: MOVTEMP2,CLKHOUR MOVTEMP1,CLKMIN LCALLJISUAN ORLBAIWEI,#01H ORLGEWEI,#01H LCALLDISPLAY1 RET;-

20、;-MS:MOVTEMP1,COUNTLCALLDISPLAY2RETSECOND:MOVTEMP2,R4LCALLDISPLAY4RETMINUTE:MOVTEMP1,R5LCALLDISPLAY2RETHOUR:MOVTEMP2,R6LCALLDISPLAY4RETDAY:MOVTEMP1,R3LCALLDISPLAY2RETMOUNTH:MOVTEMP2,R2LCALLDISPLAY4RETYEAR1:MOVTEMP1,R1LCALLDISPLAY2RETYEAR2:MOVTEMP2,R0LCALLDISPLAY4RETSCLKMIN:MOVTEMP1,CLKMINLCALLDISPLA

21、Y2RETSCLKHOUR:MOVTEMP2,CLKHOURLCALLDISPLAY4RET;-;躯;-;S16: MOV P2,#0FFH CLR P2.7 JB P2.0,S16END MOV R7,#18H LCALL DLY JNB P2.0,$ ; MOV A,#7EHS16END: RET;S4: MOV P2,#0FFH CLR P2.7 JB P2.3,S4END MOV R7,#18H LCALL DLY JNB P2.3,$ ; MOV A,#0H;A=0S4END: RET;s12S12: MOV P2,#0FFH CLR P2.7 JB P2.1,S12END MOV

22、R7,#18H LCALL DLY JNB P2.1,$ ; MOV A,#0;A=0S12END: RET;裬S8: MOV P2,#0FFH CLR P2.7 JB P2.2,S8END MOV R7,#18H LCALL DLY JNB P2.2,$ ; MOV A,CLKF CPLA;A=1 MOVCLKF,AS8END: RET;-;-KEYADD2: MOV P2,#0FFH CLR P2.7 JB P2.2,ADDEND2 MOV R7,#18H LCALL DLYJT1: JNB P2.2,KT1 INC TEMP AJMP ADDEND2KT1: INC KTIME MOV

23、R7,#10H LCALL DLY; MOV A,KTIME CJNE A,#30,JT1 ADD2: INC TEMP MOVA,TEMP CJNEA,#99,ON2 MOVTEMP,#0ON2: MOV R7,TEMP MOV TEMP2,R7 LCALL DISPLAY4 MOV R7,#30H LCALL DLY JNB P2.2,ADD2 ADDEND2: RET KEYADD1: MOV P2,#0FFH CLR P2.7 JB P2.2,ADDEND1 MOV R7,#18H LCALL DLYJT2: JNB P2.2,KT2 INC TEMP AJMP ADDEND1;KT2

24、: INC KTIME MOV R7,#10H LCALL DLY MOV A,KTIME CJNE A,#30,JT2 ADD1: INC TEMP MOVA,TEMP CJNEA,#99,ON3 MOVTEMP,#0ON3: MOV R7,TEMP MOV TEMP1,R7 LCALL DISPLAY2 MOV R7,#30H LCALL DLY JNB P2.2,ADD1 ADDEND1: RET;-;KEYSUB2: MOV P2,#0FFH CLR P2.7 JB P2.1,SUBEND2 MOV R7,#18H LCALL DLYJT3: JNB P2.1,KT3 DEC TEMP

25、 AJMP SUBEND2KT3: INC KTIME MOV R7,#10H ; LCALL DLY MOV A,KTIME CJNE A,#30,JT3 SUB2: DEC TEMP MOVA,TEMP CJNEA,#0,ON MOVTEMP,#99ON: MOV R7,TEMP MOV TEMP2,R7 LCALL DISPLAY4 MOV R7,#30H LCALL DLY JNB P2.1,SUB2 SUBEND2: RET ;-KEYSUB1: MOV P2,#0FFH CLR P2.7 JB P2.1,SUBEND1 MOV R7,#18H LCALL DLYJT4: JNB P

26、2.1,KT4 DEC TEMP AJMP SUBEND2KT4: INC KTIME MOV R7,#10H ; LCALL DLY MOV A,KTIME CJNE A,#30,JT4 SUB1: DEC TEMP; MOVA,TEMP CJNEA,#0,ON1 MOVTEMP,#99ON1: MOV R7,TEMP MOV TEMP1,R7 LCALL DISPLAY2 MOV R7,#30H LCALL DLY JNB P2.1,SUB1 SUBEND1: RET ;-SOUND: CLR BUZZER MOV R7,#5H LCALL DLY SETB BUZZER MOV R7,#

27、04H LCALL DLY RET;-;-DLY:PUSH 07HDY1:PUSH 07HDY2:PUSH 07HDY3:DJNZ R7,DY3POP 07HDJNZ R7,DY2POP 07HDJNZ R7,DY1POP 07HDJNZ R7,DLYRET;-;-T0_INT: MOV TH0,#3CH ; MOV TL0,#0B0H ;3CB0=15536;65536-15536=50000INC COUNTMOV A,COUNT CJNE A,#20,T0INTR ;50000*20=1S20 MOV COUNT,#0;20COUNT INC R4 CJNE R4,#60,T0INTR

28、; MOV R4,#0;R50 INC R5 CJNE R5,#60,T0INTR; ; MOV R5,#0;R50 INC R6 CJNE R6,#24,T0INTR;MOV R6,#0;R00 CJNE R2,#2,JBOS ;2orLCALL JLEAP ; orCJNE A,#0,J29 CJNE R3,#28,INCR3 ;28 MOV R3,#1INC R2CJNE R2,#12,T0INTRMOV R2,#1 INC R0AJMP T0INTRJ29: CJNE R3,#29,INCR3 ; 29MOV R3,#1INC R2CJNE R2,#12,T0INTRMOV R2,#1

29、 INC R0AJMP T0INTRJBOS: LCALL JMOUNTH ;MOV A,B CJNE A,#0,JBIGCJNE R3,#30,INCR3 ;30MOV R3,#1INC R2CJNE R2,#12,T0INTRMOV R2,#1 INC R0AJMP T0INTRJBIG: CJNE R3,#31,INCR3 ;31MOV R3,#1INC R2CJNE R2,#12,T0INTRMOV R2,#1 INC R0AJMP T0INTRINCR3: INC R3T0INTR: RETI;-;-JLEAP: MOV B,#4 ; ;4 MOV A,R1 DIV AB MOV A

30、,B CJNE A, #0,UNLEAP MOV A,#1 ; AJMP LEAPENDUNLEAP: MOV A,#0LEAPEND: RET;-;-JMOUNTH: MOV A,R2 CJNE A,#4,JMOUNTH6 AJMP SMOUNTHJMOUNTH6: CJNE A,#6, JMOUNTH9 ;4.6.9.11 AJMP SMOUNTHJMOUNTH9: CJNE A,#9,JMOUNTH11 AJMP SMOUNTHJMOUNTH11: CJNE A,#11, BMOUNTH AJMP SMOUNTHBMOUNTH: MOV B,#1 ; AJMP JENDSMOUNTH:

31、MOV B,#0JEND: RET;-;1;-T1_INT:MOV TH1, #0D8HMOV TL1, #0F0H INCDMSMOVA,DMSCJNEA,#100,T1_INTENDMOVDMS,#0INCDSECONDMOVA,DSECONDCJNEA,#60,T1_INTENDMOVDSECOND,#0INCDMINMOVA,DMINCJNEA,#10,T1_INTENDMOVDMIN,#0 ;10T1_INTEND:RETI;-;-SHOWDD:MOVA,DMSMOVB,#10DIVABMOVCA,A+DPTRMOVGEWEI,AMOVA,DSECONDMOVB,#10DIVABMOVTEMP,BMOVCA,A+DPTRMOVBAIWEI,AMOVA,TEMPMOVCA,A+DPTRORLA,#01HMOVSHIWEI,AMOVA,DMINMOVCA,A+DPTRORLA,#01HMOVQIANWEI,ALCALLDISPLAY1RET;-;-TABLE: DB 0xfc,0x60,0xda,0xf2,0x66,0xb6,0xbe,0xe0,0xfe,0xf6 ; 09 END