📄 5-1.lst
字号:
0106 B40D0D 219 CJNE A, #13D, Clock_End
0109 752701 220 MOV Mon, #01D
010C 0528 221 INC Year
010E E528 222 MOV A, Year
0110 B46403 223 CJNE A, #100D, Clock_End
0113 752800 224 MOV Year, #00D
0116 1206CD 225 Clock_End:LCALL FL_OUT
0119 22 226 RET
227 ;-----------------------------------------------------------------------------------------
011A 1F1C1F1E 228 MOU_12: DB 31D, 28D, 31D, 30D, 31D,30D
011E 1F1E
0120 1F1F1E1F 229 DB 31D, 31D, 30D,31D, 30D,31D
0124 1E1F
230 ;-----------------------------------------------------------------------------------------
0126 1D1C1C1C 231 Year_D: DB 29D, 28D, 28D, 28D, 29D, 28D, 28D, 28D, 29D, 28D
012A 1D1C1C1C
012E 1D1C
0130 1C1C1D1C 232 DB 28D, 28D, 29D, 28D, 28D, 28D, 29D, 28D, 28D, 28D
0134 1C1C1D1C
0138 1C1C
013A 1D1C1C1C 233 DB 29D, 28D, 28D, 28D, 29D, 28D, 28D, 28D, 29D, 28D
013E 1D1C1C1C
0142 1D1C
0144 1C1C1D1C 234 DB 28D, 28D, 29D, 28D, 28D, 28D, 29D, 28D, 28D, 28D
0148 1C1C1D1C
014C 1C1C
235 ;-----------------------------------------------------------------------------------------
014E 236 Week_Auto:
014E E528 237 MOV A, Year
0150 75F005 238 MOV B, #05
0153 A4 239 MUL AB
0154 ACF0 240 MOV R4, B
0156 FD 241 MOV R5, A
0157 7F04 242 MOV R7, #04
0159 120324 243 LCALL MUL_2
015C 900198 244 MOV DPTR, #Mon_Asc
A51 MACRO ASSEMBLER 5-1 09/12/2004 21:30:19 PAGE 5
015F E527 245 MOV A,Mon
0161 14 246 DEC A
0162 93 247 MOVC A, @A+DPTR
0163 2B 248 ADD A, R3
249 ;*********************
0164 8526F0 250 MOV B, Day
0167 25F0 251 ADD A, B
0169 FB 252 MOV R3, A ;R3=GS2
253 ;*******JB Mon<=2 ******
016A E527 254 MOV A, Mon
016C B40203 255 CJNE A, #02D, Week_1
016F 02017E 256 LJMP Week_2
0172 400A 257 Week_1: JC Week_2
0174 EB 258 Week_3: MOV A, R3
0175 75F007 259 MOV B, #07
0178 84 260 DIV AB
0179 E5F0 261 MOV A, B
017B 020190 262 LJMP Week_4
017E 263 Week_2: ;*****JB Year=4N ******
017E E528 264 MOV A, Year
0180 75F004 265 MOV B, #04
0183 84 266 DIV AB
0184 E5F0 267 MOV A, B
0186 70EC 268 JNZ Week_3
0188 EB 269 MOV A, R3
0189 14 270 DEC A
018A 75F007 271 MOV B, #07
018D 84 272 DIV AB
018E E5F0 273 MOV A, B
0190 F52A 274 Week_4: MOV Week, A
0192 7003 275 JNZ Week_End
0194 752A07 276 MOV Week, #07H
0197 22 277 Week_End:RET
278 ;-----------------------------------------------------------------------------------------
0198 06020205 279 Mon_Asc: DB 6D, 2D, 2D, 5D, 0D, 3D, 5D, 1D, 4D, 6D, 2D, 4D
019C 00030501
01A0 04060204
280 ;-----------------------------------------------------------------------------------------
01A4 200C2A 281 AL_Out: JB HA_OVER, AL_Out_End
01A7 7F08 282 MOV R7, #8D
01A9 793A 283 MOV R1, #AL8_M
01AB 7824 284 AL_CH_1: MOV R0, #MIN
01AD 7E02 285 MOV R6, #02D ;MIN Hour
01AF E6 286 AL_L: MOV A, @R0
01B0 87F0 287 MOV B, @R1
01B2 B5F016 288 CJNE A, B, AL_CH
01B5 08 289 INC R0
01B6 19 290 DEC R1
01B7 DEF6 291 DJNZ R6, AL_L
01B9 EF 292 MOV A, R7
01BA 14 293 DEC A
01BB 7813 294 MOV R0, #AL1
01BD 28 295 ADD A, R0
01BE F8 296 MOV R0, A
01BF E6 297 MOV A, @R0
01C0 A2E0 298 MOV C, ACC.0
01C2 B3 299 CPL C
01C3 8200 300 ANL C, FL_250ms
01C5 B3 301 CPL C
01C6 92B7 302 MOV Beep_F, C
01C8 120619 303 LCALL Beep_OUT
01CB C3 304 AL_CH: CLR C
01CC E9 305 MOV A, R1
01CD 9E 306 SUBB A, R6
01CE F9 307 MOV R1, A
01CF DFDA 308 DJNZ R7, AL_CH_1
A51 MACRO ASSEMBLER 5-1 09/12/2004 21:30:19 PAGE 6
01D1 309 AL_Out_End:
01D1 22 310 RET
311 ;-----------------------------------------------------------------------------------------
01D2 E50F 312 REBack: MOV A, Stat_Work
01D4 601D 313 JZ REBack_End
01D6 200608 314 JB AL1_F, KA1
01D9 85231B 315 MOV Ret_Timer, SEC
01DC D206 316 SETB AL1_F
01DE 0201F3 317 LJMP REBack_End
01E1 E51B 318 KA1: MOV A, Ret_Timer
01E3 2405 319 ADD A,#05D
01E5 75F03C 320 MOV B,#60D
01E8 84 321 DIV AB
01E9 E523 322 MOV A,SEC
01EB B5F005 323 CJNE A, B, REBack_End
01EE C206 324 CLR AL1_F
01F0 750F00 325 MOV Stat_Work, #00D
01F3 326 REBack_End:
01F3 22 327 RET
328 ;-----------------------------------------------------------------------------------------
01F4 E508 329 Key_Jmp: MOV A, Key_Data
01F6 6029 330 JZ Key_Jmp_End
01F8 85231B 331 MOV Ret_Timer, SEC
01FB B4010D 332 CJNE A, #01D, KK1
01FE E50F 333 MOV A, Stat_Work
0200 04 334 INC A ;K1_Key
0201 B40902 335 CJNE A, #9D, KKA1
0204 7400 336 MOV A, #00D
0206 F50F 337 KKA1: MOV Stat_Work, A
0208 020221 338 LJMP Key_Jmp_End
020B E50F 339 KK1: MOV A,Stat_Work ;K2_Key
020D 700D 340 JNZ KK2
020F E510 341 MOV A,Stat_Led
0211 04 342 INC A
0212 B40502 343 CJNE A, #05D, KKA2
0215 7400 344 MOV A, #00D
0217 F510 345 KKA2: MOV Stat_Led, A
0219 020221 346 LJMP Key_Jmp_End
021C 120222 347 KK2: LCALL ALL1
021F F4 348 CPL A
0220 F6 349 MOV @R0, A
0221 350 Key_Jmp_End:
0221 22 351 RET
352 ;-----------------------------------------------------------------------------------------
0222 7813 353 ALL1: MOV R0, #AL1
0224 E50F 354 MOV A, Stat_Work
0226 14 355 DEC A
0227 28 356 ADD A, R0
0228 F8 357 MOV R0, A
0229 E6 358 MOV A, @R0
022A 22 359 RET
360 ;-----------------------------------------------------------------------------------------
022B E50F 361 Led_Jmp: MOV A, Stat_Work
022D 700B 362 JNZ Led_AL1
022F E510 363 MOV A, Stat_Led
0231 12036D 364 LCALL Led_T_D
0234 852A3D 365 MOV Led1, Week
0237 02024E 366 LJMP Led_Jmp_End
023A 120222 367 Led_AL1: LCALL ALL1
023D 753D16 368 MOV Led1, #F_Led
0240 7003 369 JNZ LE_T2
0242 753D17 370 MOV Led1, #N_Led
0245 200003 371 LE_T2: JB FL_250ms, LE_T4
0248 753D14 372 MOV Led1, #Blk_Led
024B 12005E 373 LE_T4: LCALL AL_Led
024E 374 Led_Jmp_End:
A51 MACRO ASSEMBLER 5-1 09/12/2004 21:30:19 PAGE 7
024E 1202A5 375 LCALL Led
0251 22 376 RET
377 ;-----------------------------------------------------------------------------------------
0252 E525 378 Time_24: MOV A, Hour
0254 1202A0 379 LCALL BCD_8
0257 F53E 380 MOV Led2, A
0259 7003 381 JNZ TIM4
025B 753E14 382 MOV Led2, #Blk_Led
025E 85F03F 383 TIM4: MOV Led3, B
0261 200106 384 JB FL_500ms, TIM1
0264 E5F0 385 MOV A, B
0266 240A 386 ADD A, #10D
0268 F53F 387 MOV Led3, A
026A 12026E 388 TIM1: LCALL Led_Min
026D 389 Time_12_End:
026D 22 390 RET
391 ;-----------------------------------------------------------------------------------------
026E E524 392 Led_Min: MOV A, MIN
0270 1202A0 393 LCALL BCD_8
0273 200102 394 JB FL_500ms, TIM2
0276 240A 395 ADD A, #10D
0278 F540 396 TIM2: MOV Led4, A
027A 85F041 397 MOV Led5, B
027D 22 398 RET
399 ;-----------------------------------------------------------------------------------------
027E E527 400 Date_Led: MOV A, Mon
0280 1202A0 401 LCALL BCD_8
0283 F53E 402 MOV Led2, A
0285 7003 403 JNZ DA1
0287 753E14 404 MOV Led2, #Blk_Led
028A E5F0 405 DA1: MOV A, B
028C 240A 406 ADD A, #10D
028E F53F 407 MOV Led3, A
0290 E526 408 MOV A, Day
0292 1202A0 409 LCALL BCD_8
0295 F540 410 MOV Led4, A
0297 7003 411 JNZ DA2
0299 754014 412 MOV Led4, #Blk_Led
029C 85F041 413 DA2: MOV Led5, B
029F 414 Date_Led_End:
029F 22 415 RET
416 ;-----------------------------------------------------------------------------------------
02A0 75F00A 417 BCD_8: MOV B, #10D
02A3 84 418 DIV AB
02A4 22 419 RET
02A5 759000 420 Led: MOV P1, #0
02A8 9002EE 421 MOV DPTR, #Led_Asc
422 ;***************************Led1
02AB E53D 423 MOV A, Led1
02AD 93 424 MOVC A, @A+DPTR
02AE F590 425 MOV P1, A
02B0 C2B5 426 CLR Led_1
02B2 12030A 427 LCALL Timer_1ms
02B5 12030A 428 LCALL Timer_1ms
02B8 D2B5 429 SETB Led_1
02BA E53E 430 Led_Led2: MOV A, Led2
02BC 93 431 MOVC A, @A+DPTR
02BD F590 432 MOV P1, A
02BF C2B4 433 CLR Led_2
02C1 12030A 434 LCALL Timer_1ms
02C4 D2B4 435 SETB Led_2
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -