📄 时钟备份.sdi
字号:
03E2,C2 8C,, clr tr0
03E4,E5 49,, mov a,49h
03E6,B4 0B 21,, cjne a,#11,dddd
03E9,05 37,ddddd,ddddd: INC day0
03EB,E5 36,, mov a,day1
03ED,B4 03 29,, cjne a,#3,dayy
03F0,E5 37,, MOV A,day0
03F2,B4 02 2E,, CJNE A,#2,key4over
03F5,75 37 01,, mov day0,#1
03F8,75 36 00,, mov day1,#00h
03FB,02 04 23,, ljmp key4over
03FE,02 04 6B,key5ljmp,key5ljmp:ljmp key5
0401,85 42 38,dd,dd: mov week,42h
0404,75 42 08,, mov 42h,#8
0407,02 03 CA,, ljmp ddd
040A,85 49 37,dddd,dddd: mov day0,49h
040D,85 4A 36,, mov day1,4ah
0410,75 49 0B,, mov 49h,#11
0413,75 4A 0B,, mov 4ah,#11
0416,02 03 E9,, ljmp ddddd
0419,E5 37,dayy,dayy: mov a,day0
041B,B4 0A 05,, cjne a,#10,key4over
041E,75 37 00,, MOV day0,#00H
0421,05 36,, INC day1
0423,20 B3 03,key4over,key4over:JB P3.3,key44
0426,02 04 23,, lJMP key4over
,,,
,,,
0429,20 B4 3F,key44,key44: jb p3.4,key5;日减1
042C,12 06 13,, call DELAY5MS
042F,20 B4 39,, jb p3.4,key5
0432,C2 8C,, clr tr0
0434,E5 49,, mov a,49h
0436,B4 0B 13,, cjne a,#11,d2
0439,E5 37,d3,d3: mov a,day0
043B,B4 00 25,, cjne a,#0,d4
043E,E5 36,, mov a,day1
0440,B4 00 18,, cjne a,#0,d0
0443,75 37 01,, mov day0,#1
0446,75 36 03,, mov day1,#3
0449,02 04 65,, ljmp key44over
044C,85 49 37,d2,d2: mov day0,49h
044F,85 4A 36,, mov day1,4ah
0452,75 49 0B,, mov 49h,#11
0455,75 4A 0B,, mov 4ah,#11
0458,02 04 39,, ljmp d3
045B,75 37 09,d0,d0: mov day0,#9
045E,15 36,, dec day1
0460,02 04 65,, ljmp key44over
0463,15 37,d4,d4: dec day0
0465,20 B4 03,key44over,key44over:JB P3.4,key5
0468,02 04 65,, lJMP key44over
,,,
,,,
,,,;月调整程序
046B,E5 3F,key5,key5: mov a,hh;月调整加１
046D,B4 06 57,, cjne a,#6,key6ljmp
0470,E5 49,, mov a,49h
0472,B4 0B 34,, cjne a,#11,mm
0475,E5 4B,mmm,mmm: mov a,4bh
0477,C5 35,, xch a,munth0
0479,F5 4B,, mov 4bh,a
047B,E5 4C,, mov a,4ch
047D,C5 34,, xch a,munth1
047F,F5 4C,, mov 4ch,a
0481,20 B3 56,, jb p3.3,key55
0484,12 06 13,, CALL DELAY5MS
0487,12 06 13,, call delay5ms
048A,20 B3 4D,, jb p3.3,key55
048D,C2 8C,, clr tr0
048F,E5 4B,, mov a,4bh
0491,B4 0B 24,, cjne a,#11,mmmm
0494,05 35,mmmmm,mmmmm: INC munth0
0496,E5 34,, mov a,munth1
0498,B4 01 2F,, cjne a,#1,munthh
049B,E5 35,, MOV A,munth0
049D,B4 03 34,, CJNE A,#3,key5over
04A0,75 35 01,, mov munth0,#1
04A3,75 34 00,, mov munth1,#00h
04A6,02 04 D4,, ljmp key5over
04A9,85 49 37,mm,mm: mov day0,49h
04AC,85 4A 36,, mov day1,4ah
04AF,75 49 0B,, mov 49h,#11
04B2,75 4A 0B,, mov 4ah,#11
04B5,02 04 75,, ljmp mmm
04B8,85 4B 35,mmmm,mmmm: mov munth0,4bh
04BB,85 4C 34,, mov munth1,4ch
04BE,75 4B 0B,, mov 4bh,#11
04C1,75 4C 0B,, mov 4ch,#11
04C4,02 04 94,, ljmp mmmmm
04C7,02 05 1C,key6ljmp,key6ljmp:ljmp key6
04CA,E5 35,munthh,munthh: mov a,munth0
04CC,B4 0A 05,, cjne a,#10,key5over
04CF,75 35 00,, MOV munth0,#00H
04D2,05 34,, INC munth1
04D4,20 B3 03,key5over,key5over:JB P3.3,key55
04D7,02 04 D4,, lJMP key5over
,,,
,,,
04DA,20 B4 3F,key55,key55: jb p3.4,key6;月减1
04DD,12 06 13,, call DELAY5MS
04E0,20 B4 39,, jb p3.4, KEY6
04E3,C2 8C,, clr tr0
04E5,E5 4B,, mov a,4bh
04E7,B4 0B 13,, cjne a,#11,m0
04EA,E5 35,m1,m1: mov a,munth0
04EC,B4 00 25,, cjne a,#0,m2
04EF,E5 34,, mov a,munth1
04F1,B4 00 18,, cjne a,#0,m3
04F4,75 35 02,, mov munth0,#2
04F7,75 34 01,, mov munth1,#1
04FA,02 05 16,, ljmp key55over
04FD,85 4B 35,m0,m0: mov munth0,4bh
0500,85 4C 34,, mov munth1,4ch
0503,75 4B 0B,, mov 4bh,#11
0506,75 4C 0B,, mov 4ch,#11
0509,02 04 EA,, ljmp m1
050C,75 35 09,m3,m3: mov munth0,#9
050F,15 34,, dec munth1
0511,02 05 16,, ljmp key55over
0514,15 35,m2,m2: dec munth0
0516,20 B4 03,key55over,key55over:JB P3.4,key6
0519,02 05 16,, lJMP key55over
,,,
,,,
,,,;年调整程序
051C,E5 3F,key6,key6: mov a,hh;年加１
051E,B4 07 47,, cjne a,#7,loop4ljmp
0521,E5 4B,, mov a,4bh
0523,B4 0B 33,, cjne a,#11,yy
0526,E5 4D,yyy,yyy: mov a,4dh
0528,C5 33,, xch a,year0
052A,F5 4D,, mov 4dh,a
052C,E5 4E,, mov a,4eh
052E,C5 32,, xch a,year1
0530,F5 4E,, mov 4eh,a
0532,20 B3 4B,, jb p3.3,key66
0535,12 06 13,, call DELAY5MS
0538,20 B3 45,, JB P3.3,key66
053B,C2 8C,, clr tr0
053D,E5 4D,, mov a,4dh
053F,B4 0B 29,, cjne a,#11,yyyy
0542,05 33,yyyyy,yyyyy: INC year0
0544,E5 33,, MOV A,year0
0546,B4 0A 31,, CJNE A,#10,key6over
0549,75 33 00,, MOV year0,#00H
054C,05 32,, inc year1
054E,E5 32,, mov a,year1
0550,B4 0A 66,, cjne a,#10,key66over
0553,75 32 00,, MOV year1,#00H
0556,02 05 7A,, ljmp key6over
0559,85 4B 35,yy,yy: mov munth0,4bh
055C,85 4C 34,, mov munth1,4ch
055F,75 4B 0B,, mov 4bh,#11
0562,75 4C 0B,, mov 4ch,#11
0565,02 05 26,, ljmp yyy
0568,02 05 BF,loop4ljmp,loop4ljmp:ljmp loop4
056B,85 4D 33,yyyy,yyyy: mov year0,4dh
056E,85 4E 32,, mov year1,4eh
0571,75 4D 0B,, mov 4dh,#11
0574,75 4E 0B,, mov 4eh,#11
0577,02 05 42,, ljmp yyyyy
057A,20 B3 03,key6over,key6over:JB P3.3,key66
057D,02 05 7A,, lJMP key6over
,,,
,,,
0580,20 B4 3C,key66,key66: jb p3.4,loop4;年减1
0583,12 06 13,, call DELAY5MS
0586,20 B4 36,, jb p3.4, loop4
0589,C2 8C,, clr tr0
058B,E5 4D,, mov a,4dh
058D,B4 0B 13,, cjne a,#11,y1
0590,E5 33,y2,y2: mov a,year0
0592,B4 00 22,, cjne a,#0,y3
0595,75 33 09,, mov year0,#9
0598,E5 32,, mov a,year1
059A,B4 00 15,, cjne a,#0,y4
059D,75 32 09,, mov year1,#9
05A0,02 05 B9,, ljmp key66over
05A3,85 4D 33,y1,y1: mov year0,4dh
05A6,85 4E 32,, mov year1,4eh
05A9,75 4D 0B,, mov 4dh,#11
05AC,75 4E 0B,, mov 4eh,#11
05AF,02 05 90,, ljmp y2
05B2,15 32,y4,y4: dec year1
05B4,02 05 B9,, ljmp key66over
05B7,15 33,y3,y3: dec year0
05B9,20 B4 03,key66over,key66over:JB P3.4,loop4
05BC,02 05 B9,, lJMP key66over
,,,
,,,
05BF,D2 8C,loop4,loop4: setb tr0
05C1,02 00 72,, ljmp disp
,,,
,,,
05C4,,LCDRESET,LCDRESET: ;初始化程序
05C4,12 06 13,, CALL DELAY5MS ;延时15MS
05C7,12 06 13,, CALL DELAY5MS
05CA,12 06 13,, CALL DELAY5MS
05CD,74 38,, MOV A,#38H ;显示模式设置(不检测忙信号)
05CF,12 05 FA,, CALL LCDWCN ;共三次
05D2,12 06 13,, CALL DELAY5MS
05D5,74 38,, MOV A,#38H
05D7,12 05 FA,, CALL LCDWCN
05DA,12 06 13,, CALL DELAY5MS
05DD,74 38,, MOV A,#38H
05DF,12 05 FA,, CALL LCDWCN
,,,
05E2,74 38,, MOV A,#38H ;显示模式设置(以后均检测忙信号)
05E4,12 05 F7,, CALL LCDWC
05E7,74 0C,, MOV A,#0CH ;显示关闭
05E9,12 05 F7,, CALL LCDWC
05EC,74 06,, MOV A,#06H ;显示清屏
05EE,12 05 F7,, CALL LCDWC
05F1,74 80,, MOV A,#80H
05F3,12 05 F7,, CALL LCDWC
05F6,22,, RET
05F7,,LCDWC,LCDWC: ;送控制字子程序(检测忙信号)
05F7,12 06 07,, CALL WAITIDLE
05FA,,LCDWCN,LCDWCN: ;送控制字子程序(不检测忙信号)
05FA,90 04 00,, MOV DPTR,#CSADDR ;CS=1 RS=0 RW=0
05FD,F0,, MOVX @DPTR,A
05FE,22,, RET
05FF,,LCDWD,LCDWD: ;写字符子程序
05FF,12 06 07,, CALL WAITIDLE
0602,90 14 00,, MOV DPTR,#CSADDR+RSADDR ;CS=1 RS=1 RW=0
0605,F0,, MOVX @DPTR,A
0606,22,, RET
0607,,WAITIDLE,WAITIDLE:
0607,C0 E0,, PUSH ACC ;正常读写操作之前必须检测LCD控制器状态
0609,90 24 00,, MOV DPTR,#CSADDR+RWADDR ;CS=1 RS=0 RW=1
060C,E0,WTD_PA,WTD_PA: MOVX A,@DPTR ;DB7: 0 LCD控制器空闲
060D,20 E7 FC,, JB ACC.7,WTD_PA ; 1 LCD控制器忙
0610,D0 E0,, POP ACC
0612,22,, RET
0613,,DELAY5MS,DELAY5MS:
0613,79 19,, MOV R1,#25 ;延时子程序(5MS)
0615,7A 64,DL5_PA,DL5_PA: MOV R2,#100
0617,DA FE,, DJNZ R2,$
0619,D9 FA,, DJNZ R1,DL5_PA
061B,22,, RET
061C,,DELAY400MS,DELAY400MS:
061C,78 14,, MOV R0,#20 ;延时子程序(400MS)
061E,79 64,DL4_PA,DL4_PA: MOV R1,#100
0620,7A 64,DL4_PB,DL4_PB: MOV R2,#100
0622,DA FE,, DJNZ R2,$
0624,D9 FA,, DJNZ R1,DL4_PB
0626,D8 F6,, DJNZ R0,DL4_PA
0628,22,, RET
,,,
,,,
0629,C0 E0,TIMER01,TIMER01: PUSH ACC
062B,C0 D0,, PUSH PSW
062D,75 8C B0,, MOV TH0,#0B0H
0630,75 8A 3C,, MOV TL0,#3CH
0633,05 31,, inc num
0635,E5 31,, mov a,num
0637,B4 14 70,, cjne a,#20,ljmploop1
063A,75 31 00,, mov num,#00h
063D,E5 43,, mov a,43h
063F,B4 0B 6B,, cjne a,#11,ljmpsec_1
0642,05 3E,sec_2,sec_2: INC sec0
0644,E5 3E,, MOV A,sec0
0646,B4 0A 61,, CJNE A,#10,ljmploop1
0649,75 3E 00,, MOV sec0,#00H
064C,05 3D,, INC sec1
064E,E5 3D,, MOV A,sec1
0650,B4 06 57,, CJNE A,#6,ljmploop1
0653,75 3D 00,, MOV sec1,#00H
0656,E5 45,, mov a,45h
0658,B4 0B 55,, cjne a,#11,ljmpmin_1
065B,05 3C,min_2,min_2: INC min0
065D,E5 3C,, MOV A,min0
065F,B4 0A 48,, CJNE A,#10,ljmploop1
0662,75 3C 00,, MOV min0,#00H
0665,05 3B,, INC min1
0667,E5 3B,, MOV A,min1
0669,B4 06 3E,, CJNE A,#06,ljmploop1
066C,75 3B 00,, MOV min1,#00H
066F,05 3A,, inc hour0
0671,E5 39,, mov a,hour1
0673,B4 02 3D,, cjne a,#2,hourr
0676,E5 3A,, mov a,hour0
0678,B4 04 2F,, cjne a,#4,ljmploop1
067B,75 3A 00,, mov hour0,#00h
067E,75 39 00,, mov hour1,#00h
0681,05 38,, inc week
0683,E5 38,, mov a,week
0685,B4 07 03,, cjne a,#7,day
0688,75 38 00,, mov week,#00h
068B,05 37,day,day: inc day0
068D,E5 34,, mov a,munth1
068F,B4 00 63,, cjne a,#0,zz1
0692,E5 35,, mov a,munth0
0694,B4 01 33,, cjne a,#1,munth2
0697,E5 36,dmunth,dmunth: MOV A,DAY1
0699,B4 03 21,, CJNE A,#3,zz3
069C,E5 37,, mov a,day0
069E,B4 02 09,, cjne a,#2,ljmploop1
06A1,75 36 00,, mov day1,#0
06A4,75 37 01,, mov day0,#1
06A7,02 07 67,, ljmp munthadd
06AA,02 07 95,ljmploop1,ljmploop1:ljmp loop1
06AD,02 07 9A,ljmpsec_1,ljmpsec_1:ljmp sec_1
06B0,02 07 A9,ljmpmin_1,ljmpmin_1:ljmp min_1
06B3,E5 3A,hourr,hourr: mov a,hour0
06B5,B4 0A F2,, cjne a,#10,ljmploop1
06B8,75 3A 00,, mov hour0,#00h
06BB,05 39,, inc hour1
,,,
06BD,E5 37,zz3,zz3: mov a,day0
06BF,B4 0A E8,, cjne a,#10,ljmploop1
06C2,75 37 00,, mov day0,#0
06C5,05 36,, inc day1
06C7,02 07 95,, ljmp loop1
,,,
06CA,B4 02 22,munth2,munth2: cjne a,#2,munth3
06CD,E5 32,, mov a,year1
06CF,75 F0 0A,, mov b,#10
06D2,A4,, mul ab
06D3,25 33,, add a,year0
06D5,75 F0 04,, mov b,#4
06D8,84,, div ab
06D9,E5 F0,, mov a,b
06DB,60 43,, jz yunnian
06DD,E5 36,, mov a,day1
06DF,B4 02 51,, cjne a,#2,zz4
06E2,E5 37,, mov a,day0
06E4,B4 09 C3,, cjne a,#9,ljmploop1
06E7,75 36 00,, mov day1,#0
06EA,75 37 01,, mov day0,#1
06ED,05 35,, inc munth0
06EF,B4 03 0B,munth3,munth3: cjne a,#3,munth4
06F2,02 06 97,, ljmp dmunth
06F5,E5 35,zz1,zz1: mov a,munth0
06F7,B4 00 64,, cjne a,#0,munth11
06FA,02 06 97,, ljmp dmunth
06FD,B4 04 40,munth4,munth4: cjne a,#4,munth5
0700,E5 36,smunth,smunth: MOV A,DAY1
0702,B4 03 0E,, CJNE A,#3,zzz3
0705,E5 37,, mov a,day0
0707,B4 01 A0,, cjne a,#1,ljmploop1
070A,75 36 00,, mov day1,#0
070D,75 37 01,, mov day0,#1
0710,02 07 67,, ljmp munthadd
0713,E5 37,zzz3,zzz3: mov a,day0
0715,B4 0A 7D,, cjne a,#10,loop1
0718,75 37 00,, mov day0,#0
071B,05 36,, inc day1
071D,02 07 95,, ljmp loop1
0720,E5 36,yunnian,yunnian:mov a,day1
0722,B4 02 0E,, cjne a,#2,zz4
0725,E5 37,, mov a,day0
0727,B4 0A 6B,, cjne a,#10,loop1
072A,75 36 00,, mov day1,#0
072D,75 37 01,, mov day0,#1
0730,02 07 67,, ljmp munthadd
0733,E5 37,zz4,zz4: mov a,day0
0735,B4 0A 5D,, cjne a,#10,loop1
0738,05 36,, inc day1
073A,75 37 00,, mov day0,#0
073D,02 07 95,, ljmp loop1
0740,B4 05 03,munth5,munth5:cjne a,#5,munth6
0743,02 06 97,, ljmp dmunth
0746,B4 06 03,munth6,munth6:cjne a,#6,munth7
0749,02 07 00,, ljmp smunth
074C,B4 07 03,munth7,munth7:cjne a,#7,munth8
074F,02 06 97,, ljmp dmunth
0752,B4 08 03,munth8,munth8:cjne a,#8,munth9
0755,02 06 97,, ljmp dmunth
0758,B4 09 9A,munth9,munth9:cjne a,#9,zz1
075B,02 07 00,, ljmp smunth
,,,
075E,B4 01 03,munth11,munth11:cjne a,#1,munth12
0761,02 07 00,, ljmp smunth
0764,02 06 97,munth12,munth12:ljmp dmunth
,,,
0767,05 35,munthadd,munthadd:inc munth0
0769,E5 34,, mov a,munth1
076B,B4 00 0D,, cjne a,#0,zz6
076E,E5 35,, mov a,munth0
0770,B4 0A 22,, cjne a,#10,loop1
0773,05 34,, inc munth1
0775,75 35 00,, mov munth0,#0
0778,02 07 95,, ljmp loop1
077B,E5 35,zz6,zz6: mov a,munth0
077D,B4 03 15,, cjne a,#3,loop1
0780,75 35 01,, mov munth0,#1
0783,75 34 00,, mov munth1,#0
0786,05 33,, inc year0
0788,E5 33,, mov a,year0
078A,B4 0A 08,, cjne a,#10,loop1
078D,75 33 00,, mov year0,#0
0790,05 32,, inc year1
0792,02 07 95,, ljmp loop1
,,,
,,,
0795,D0 D0,LOOP1,LOOP1: POP PSW
0797,D0 E0,, POP ACC
0799,32,, RETI
079A,85 43 3E,sec_1,sec_1: mov sec0,43h
079D,85 44 3D,, mov sec1,44h
07A0,75 43 0B,, mov 43h,#11
07A3,75 44 0B,, mov 44h,#11
07A6,02 06 42,, ljmp sec_2
07A9,85 45 3C,min_1,min_1: mov min0,45h
07AC,85 46 3B,, mov min1,46h
07AF,75 45 0B,, mov 45h,#11
07B2,75 46 0B,, mov 46h,#11
07B5,02 06 5B,, ljmp min_2
07B8,30 31 32 33,TAB,TAB:DB '0','1','2','3','4','5','6','7','8','9',' ',' ';
07C4,4D 54 57 54,WEEK1,WEEK1:DB 'M','T','W','T','F','S','S',' ',' ';
07CD,6F 75 65 68,WEEK2,WEEK2:DB 'o','u','e','h','r','a','u',' ',' ';
07D6,6E 65 64 75,WEEK3,WEEK3:DB 'n','e','d','u','i','t','n',' ',' ';
000E,,, END
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -