📄 万年历.lis
字号:
05F2 ; }
05F2 L33:
05F2 .dbline 117
05F2 ; }
05F2 L31:
05F2 .dbline 119
05F2 ;
05F2 ; }
05F2 L27:
05F2 .dbline 120
05F2 ; }
05F2 L25:
05F2 .dbline 121
05F2 L23:
05F2 .dbline -2
05F2 L22:
05F2 0E940000 xcall pop_lset
05F6 .dbline 0 ; func end
05F6 1895 reti
05F8 .dbend
05F8 .dbfunc e time _time fV
.even
05F8 _time::
05F8 2297 sbiw R28,2
05FA .dbline -1
05FA .dbline 124
05FA ; }
05FA ; }
05FA ; void time(void)
05FA ; {
05FA .dbline 125
05FA ; if(data==0x70)
05FA 80910000 lds R24,_data
05FE 8037 cpi R24,112
0600 C1F4 brne L36
0602 .dbline 126
0602 ; {
0602 .dbline 127
0602 ; delay_nms(20);
0602 04E1 ldi R16,20
0604 10E0 ldi R17,0
0606 0E940000 xcall _delay_nms
060A .dbline 128
060A ; if(data==0x70)
060A 80910000 lds R24,_data
060E 8037 cpi R24,112
0610 81F4 brne L38
0612 .dbline 129
0612 ; {
0612 .dbline 130
0612 ; count++;
0612 80910200 lds R24,_count
0616 8F5F subi R24,255 ; addi 1
0618 80930200 sts _count,R24
061C .dbline 131
061C ; if(count>8)
061C 88E0 ldi R24,8
061E 20900200 lds R2,_count
0622 8215 cp R24,R2
0624 30F4 brsh L40
0626 .dbline 132
0626 ; { count=0;
0626 .dbline 132
0626 2224 clr R2
0628 20920200 sts _count,R2
062C .dbline 133
062C ; ocmj_write(0xf4);//清屏
062C 04EF ldi R16,244
062E 0E940000 xcall _ocmj_write
0632 .dbline 134
0632 ; }
0632 L40:
0632 .dbline 135
0632 ; }
0632 L38:
0632 .dbline 136
0632 ; }
0632 L36:
0632 .dbline 138
0632 ; /*******************年设置*****************************/
0632 ; if(count==1)
0632 80910200 lds R24,_count
0636 8130 cpi R24,1
0638 11F5 brne L42
063A .dbline 139
063A ; {
063A .dbline 140
063A ; hz_tran(0,3,"年设置");
063A 80E0 ldi R24,<L44
063C 90E0 ldi R25,>L44
063E 9983 std y+1,R25
0640 8883 std y+0,R24
0642 23E0 ldi R18,3
0644 0027 clr R16
0646 0E940000 xcall _hz_tran
064A .dbline 141
064A ; if(data==0x79)
064A 80910000 lds R24,_data
064E 8937 cpi R24,121
0650 49F4 brne L45
0652 .dbline 143
0652 ;
0652 ; {
0652 .dbline 144
0652 ; year++;
0652 80911500 lds R24,_year
0656 90911600 lds R25,_year+1
065A 0196 adiw R24,1
065C 90931600 sts _year+1,R25
0660 80931500 sts _year,R24
0664 .dbline 145
0664 ; }
0664 L45:
0664 .dbline 146
0664 ; if(data==0x7B)
0664 80910000 lds R24,_data
0668 8B37 cpi R24,123
066A 49F4 brne L47
066C .dbline 147
066C ; {
066C .dbline 148
066C ; year--;
066C 80911500 lds R24,_year
0670 90911600 lds R25,_year+1
0674 0197 sbiw R24,1
0676 90931600 sts _year+1,R25
067A 80931500 sts _year,R24
067E .dbline 149
067E ; }
067E L47:
067E .dbline 153
067E ;
067E ;
067E ;
067E ; }
067E L42:
067E .dbline 155
067E ; /*******************月设置*****************************/
067E ; if(count==2)
067E 80910200 lds R24,_count
0682 8230 cpi R24,2
0684 39F5 brne L49
0686 .dbline 156
0686 ; {hz_tran(0,3,"月设置");
0686 .dbline 156
0686 80E0 ldi R24,<L51
0688 90E0 ldi R25,>L51
068A 9983 std y+1,R25
068C 8883 std y+0,R24
068E 23E0 ldi R18,3
0690 0027 clr R16
0692 0E940000 xcall _hz_tran
0696 .dbline 157
0696 ; if(data==0x79)
0696 80910000 lds R24,_data
069A 8937 cpi R24,121
069C 69F4 brne L52
069E .dbline 158
069E ; {
069E .dbline 159
069E ; month++;
069E 80911300 lds R24,_month
06A2 8F5F subi R24,255 ; addi 1
06A4 80931300 sts _month,R24
06A8 .dbline 160
06A8 ; if(month>12)
06A8 8CE0 ldi R24,12
06AA 20901300 lds R2,_month
06AE 8215 cp R24,R2
06B0 18F4 brsh L54
06B2 .dbline 161
06B2 ; {month=1;}
06B2 .dbline 161
06B2 81E0 ldi R24,1
06B4 80931300 sts _month,R24
06B8 .dbline 161
06B8 L54:
06B8 .dbline 162
06B8 ; }
06B8 L52:
06B8 .dbline 163
06B8 ; if(data==0x7B)
06B8 80910000 lds R24,_data
06BC 8B37 cpi R24,123
06BE 51F4 brne L56
06C0 .dbline 164
06C0 ; {
06C0 .dbline 165
06C0 ; month--;
06C0 80911300 lds R24,_month
06C4 8150 subi R24,1
06C6 80931300 sts _month,R24
06CA .dbline 166
06CA ; if(month==0)
06CA 8823 tst R24
06CC 19F4 brne L58
06CE .dbline 167
06CE ; {month=12;}
06CE .dbline 167
06CE 8CE0 ldi R24,12
06D0 80931300 sts _month,R24
06D4 .dbline 167
06D4 L58:
06D4 .dbline 168
06D4 ; }
06D4 L56:
06D4 .dbline 171
06D4 ;
06D4 ;
06D4 ; }
06D4 L49:
06D4 .dbline 173
06D4 ; /*******************日设置*****************************/
06D4 ; if(count==3)
06D4 80910200 lds R24,_count
06D8 8330 cpi R24,3
06DA 59F5 brne L60
06DC .dbline 174
06DC ; {
06DC .dbline 175
06DC ; hz_tran(0,3,"日设置");
06DC 80E0 ldi R24,<L62
06DE 90E0 ldi R25,>L62
06E0 9983 std y+1,R25
06E2 8883 std y+0,R24
06E4 23E0 ldi R18,3
06E6 0027 clr R16
06E8 0E940000 xcall _hz_tran
06EC .dbline 176
06EC ; if(data==0x79)
06EC 80910000 lds R24,_data
06F0 8937 cpi R24,121
06F2 79F4 brne L63
06F4 .dbline 177
06F4 ; {
06F4 .dbline 178
06F4 ; day++;
06F4 80911200 lds R24,_day
06F8 8F5F subi R24,255 ; addi 1
06FA 80931200 sts _day,R24
06FE .dbline 179
06FE ; if(day>get_days(month))
06FE 00911300 lds R16,_month
0702 BEDE xcall _get_days
0704 20901200 lds R2,_day
0708 0215 cp R16,R2
070A 18F4 brsh L65
070C .dbline 180
070C ; {day=1;}
070C .dbline 180
070C 81E0 ldi R24,1
070E 80931200 sts _day,R24
0712 .dbline 180
0712 L65:
0712 .dbline 181
0712 ; }
0712 L63:
0712 .dbline 182
0712 ; if(data==0x7B)
0712 80910000 lds R24,_data
0716 8B37 cpi R24,123
0718 61F4 brne L67
071A .dbline 183
071A ; {
071A .dbline 184
071A ; day--;
071A 80911200 lds R24,_day
071E 8150 subi R24,1
0720 80931200 sts _day,R24
0724 .dbline 185
0724 ; if(day==0)
0724 8823 tst R24
0726 29F4 brne L69
0728 .dbline 186
0728 ; {day=get_days(month);}
0728 .dbline 186
0728 00911300 lds R16,_month
072C A9DE xcall _get_days
072E 00931200 sts _day,R16
0732 .dbline 186
0732 L69:
0732 .dbline 187
0732 ; }
0732 L67:
0732 .dbline 190
0732 ;
0732 ;
0732 ; }
0732 L60:
0732 .dbline 193
0732 ;
0732 ; /*******************星期设置*****************************/
0732 ; if(count==4)
0732 80910200 lds R24,_count
0736 8430 cpi R24,4
0738 39F5 brne L71
073A .dbline 194
073A ; {
073A .dbline 195
073A ; hz_tran(0,3,"星期设置");
073A 80E0 ldi R24,<L73
073C 90E0 ldi R25,>L73
073E 9983 std y+1,R25
0740 8883 std y+0,R24
0742 23E0 ldi R18,3
0744 0027 clr R16
0746 0E940000 xcall _hz_tran
074A .dbline 196
074A ; if(data==0x79)
074A 80910000 lds R24,_data
074E 8937 cpi R24,121
0750 69F4 brne L74
0752 .dbline 197
0752 ; {
0752 .dbline 198
0752 ; week++;
0752 80911100 lds R24,_week
0756 8F5F subi R24,255 ; addi 1
0758 80931100 sts _week,R24
075C .dbline 199
075C ; if(week>7)
075C 87E0 ldi R24,7
075E 20901100 lds R2,_week
0762 8215 cp R24,R2
0764 18F4 brsh L76
0766 .dbline 200
0766 ; {week=1;}
0766 .dbline 200
0766 81E0 ldi R24,1
0768 80931100 sts _week,R24
076C .dbline 200
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -