?? main.lst
字號:
0097 12010E 108 lcall digital
009A D51FEB 109 djnz 1fh,beep1_1
009D C295 110 clr beep
009F 22 111 ret
112
113 ;*****************************************************
114 ;長鳴一聲
115 ;*****************************************************
116
00A0 751F1E 117 beep2: mov 1fh,#1eh
00A3 D295 118 setb beep
00A5 12010E 119 beep2_1: lcall digital
00A8 12010E 120 lcall digital
00AB 12010E 121 lcall digital
00AE 12010E 122 lcall digital
00B1 12010E 123 lcall digital
00B4 12010E 124 lcall digital
A51 MACRO ASSEMBLER MAIN 11/17/2007 23:49:28 PAGE 3
00B7 D51FEB 125 djnz 1fh,beep2_1
00BA C295 126 clr beep
00BC 22 127 ret
128
129 ;*****************************************************
130 ;短鳴兩聲
131 ;*****************************************************
132
00BD 751F04 133 beep3: mov 1fh,#04h
00C0 D295 134 setb beep
00C2 12010E 135 beep3_1: lcall digital
00C5 12010E 136 lcall digital
00C8 12010E 137 lcall digital
00CB 12010E 138 lcall digital
00CE 12010E 139 lcall digital
00D1 12010E 140 lcall digital
00D4 D51FEB 141 djnz 1fh,beep3_1
00D7 C295 142 clr beep
00D9 751F04 143 mov 1fh,#04h
00DC 12010E 144 beep3_2: lcall digital
00DF 12010E 145 lcall digital
00E2 12010E 146 lcall digital
00E5 12010E 147 lcall digital
00E8 12010E 148 lcall digital
00EB 12010E 149 lcall digital
00EE D51FEB 150 djnz 1fh,beep3_2
00F1 D295 151 setb beep
00F3 751F04 152 mov 1fh,#04h
00F6 12010E 153 beep3_3: lcall digital
00F9 12010E 154 lcall digital
00FC 12010E 155 lcall digital
00FF 12010E 156 lcall digital
0102 12010E 157 lcall digital
0105 12010E 158 lcall digital
0108 D51FEB 159 djnz 1fh,beep3_3
010B C295 160 clr beep
010D 22 161 ret
162
163 ;*****************************************************
164 ;數碼管顯示
165 ;*****************************************************
166
010E E508 167 digital: mov a,digital_bit ;根據顯示位置讀取不同的顯示內容
0110 20E018 168 jb acc.0,digital_check0
0113 20E11A 169 jb acc.1,digital_check1
0116 20E21D 170 jb acc.2,digital_check2
0119 20E323 171 jb acc.3,digital_check3
011C 20E428 172 jb acc.4,digital_check4
011F 20E52F 173 jb acc.5,digital_check5
0122 20E636 174 jb acc.6,digital_check6
0125 20E73C 175 jb acc.7,digital_check7
0128 11A0 176 call beep2
012A 22 177 ret
012B 7810 178 digital_check0: mov r0,#digital_byte
012D E6 179 mov a,@r0 ;秒
012E 803B 180 jmp digital_display
0130 7810 181 digital_check1: mov r0,#digital_byte
0132 08 182 inc r0
0133 E6 183 mov a,@r0
0134 8035 184 jmp digital_display
0136 7810 185 digital_check2: mov r0,#digital_byte ;分
0138 08 186 inc r0
0139 08 187 inc r0
013A E6 188 mov a,@r0
013B D2E4 189 setb acc.4 ;加小數點
013D 802C 190 jmp digital_display
A51 MACRO ASSEMBLER MAIN 11/17/2007 23:49:28 PAGE 4
013F 7410 191 digital_check3: mov a,#digital_byte
0141 2403 192 add a,#3
0143 F8 193 mov r0,a
0144 E6 194 mov a,@r0
0145 8024 195 jmp digital_display
0147 7410 196 digital_check4: mov a,#digital_byte ;時
0149 2404 197 add a,#4
014B F8 198 mov r0,a
014C E6 199 mov a,@r0
014D D2E4 200 setb acc.4 ;加小數點
014F 801A 201 jmp digital_display
0151 7410 202 digital_check5: mov a,#digital_byte
0153 2405 203 add a,#5
0155 F8 204 mov r0,a
0156 E6 205 mov a,@r0
0157 5483 206 anl a,#83h ;屏蔽無效位
0159 8010 207 jmp digital_display
015B 7410 208 digital_check6: mov a,#digital_byte
015D 2406 209 add a,#6
015F F8 210 mov r0,a
0160 7420 211 mov a,#20h
0162 8007 212 jmp digital_display
0164 7410 213 digital_check7: mov a,#digital_byte
0166 2407 214 add a,#7
0168 F8 215 mov r0,a
0169 7420 216 mov a,#20h
217
016B C0E0 218 digital_display: push acc
016D E50A 219 mov a,digital_flash_time
016F 547F 220 anl a,#7fh ;最高位表示顯示狀態:1為顯示;0
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -