📄 5-1.lst
字号:
02C6 E53F 436 Led_Led3: MOV A, Led3
02C8 93 437 MOVC A, @A+DPTR
02C9 F590 438 MOV P1, A
02CB C2B3 439 CLR Led_3
02CD 12030A 440 LCALL Timer_1ms
A51 MACRO ASSEMBLER 5-1 09/12/2004 21:30:19 PAGE 8
02D0 D2B3 441 SETB Led_3
02D2 E540 442 Led_Led4: MOV A, Led4
02D4 93 443 MOVC A, @A+DPTR
02D5 F590 444 MOV P1, A
02D7 C2B2 445 CLR Led_4
02D9 12030A 446 LCALL Timer_1ms
02DC D2B2 447 SETB Led_4
02DE E541 448 Led_Led5: MOV A, Led5
02E0 93 449 MOVC A, @A+DPTR
02E1 F590 450 MOV P1, A
02E3 C2B1 451 CLR Led_5
02E5 12030A 452 LCALL Timer_1ms
02E8 D2B1 453 SETB Led_5
02EA 759000 454 Led_End: MOV P1, #0
02ED 22 455 RET
456 ;-----------------------------------------------------------------------------------------
457 ;字段顺序：bafhcdeg
02EE EE 458 Led_Asc: DB 11101110B ;0
02EF 88 459 DB 10001000B ;1
02F0 C7 460 DB 11000111B ;2
02F1 CD 461 DB 11001101B ;3
02F2 A9 462 DB 10101001B ;4
02F3 6D 463 DB 01101101B ;5
02F4 6F 464 DB 01101111B ;6
02F5 C8 465 DB 11001000B ;7
02F6 EF 466 DB 11101111B ;8
02F7 ED 467 DB 11101101B ;9
02F8 FE 468 DB 11111110B ;0. =>10D
02F9 98 469 DB 10011000B ;1.
02FA D7 470 DB 11010111B ;2.
02FB DD 471 DB 11011101B ;3.
02FC B9 472 DB 10111001B ;4.
02FD 7D 473 DB 01111101B ;5.
02FE 7F 474 DB 01111111B ;6.
02FF D8 475 DB 11011000B ;7.
0300 FF 476 DB 11111111B ;8.
0301 FD 477 DB 11111101B ;9.
0302 00 478 DB 00000000B ;BLACK=>20D
0303 10 479 DB 00010000B ;DOT=>21D
0304 26 480 DB 00100110B ;L=>22D
0305 AB 481 DB 10101011B ;H=>23D
0306 AE 482 DB 10101110B ;U=>24D
0307 27 483 DB 00100111B ;T=>25D
0308 2F 484 DB 00101111B ;B=>26D
0309 8F 485 DB 10001111B ;D=>27D
486 ;-----------------------------------------------------------------------------------------
030A 751130 487 Timer_1ms:MOV T_1ms, #030H
030D D511FD 488 R2_1: DJNZ T_1ms, R2_1
0310 22 489 RET
490 ;-----------------------------------------------------------------------------------------
0311 491 Timer_20ms:
0311 751232 492 MOV T_20M, #050D
0314 1200BB 493 R2_2: LCALL Clock
0317 1202A5 494 LCALL Led
031A D512F7 495 DJNZ T_20M, R2_2
031D 12014E 496 LCALL Week_Auto
0320 1201A4 497 LCALL AL_Out
0323 22 498 RET
499 ;R4R5/R7=R3
500 ;-----------------------------------------------------------------------------------------
0324 501 MUL_2:
0324 C3 502 D457: CLR C
0325 EC 503 MOV A, R4
0326 9F 504 SUBB A, R7
0327 4003 505 JC DV50
0329 D2D2 506 SETB OV
A51 MACRO ASSEMBLER 5-1 09/12/2004 21:30:19 PAGE 9
032B 22 507 RET
032C 7E08 508 DV50: MOV R6, #8 ;求平均值（R4R5／R7－→R3）
032E ED 509 DV51: MOV A, R5
032F 33 510 RLC A
0330 FD 511 MOV R5, A
0331 EC 512 MOV A, R4
0332 33 513 RLC A
0333 FC 514 MOV R4, A
0334 92D5 515 MOV F0, C
0336 C3 516 CLR C
0337 9F 517 SUBB A, R7
0338 B0D5 518 ANL C, /F0
033A 4001 519 JC DV52
033C FC 520 MOV R4, A
033D B3 521 DV52: CPL C
033E EB 522 MOV A, R3
033F 33 523 RLC A
0340 FB 524 MOV R3, A
0341 DEEB 525 DJNZ R6, DV51
0343 EC 526 MOV A, R4 ;四舍五入
0344 2400 527 ADD A, #0 ;R4
0346 4003 528 JC DV53
0348 9F 529 SUBB A, R7
0349 4001 530 JC DV54
034B 0B 531 DV53: INC R3
034C C2D2 532 DV54: CLR OV
034E 22 533 RET
534 ;-----------------------------------------------------------------------------------------
034F 7F78 535 Clr_Ram: MOV R7, #78H
0351 780B 536 MOV R0, #0BH
0353 E4 537 CLR A
0354 08 538 CR: INC R0
0355 F6 539 MOV @R0, A
0356 DFFC 540 DJNZ R7, CR
0358 22 541 RET
542 ;-----------------------------------------------------------------------------------------
0359 543 Set_Clk_AL:
0359 300208 544 JNB Set_Clk_F, SEE1
035C 12049C 545 LCALL Set_Clock
035F C202 546 CLR Set_Clk_F
0361 02036C 547 LJMP SEE2
0364 300305 548 SEE1: JNB Set_AL4_F, SEE2
0367 1203BE 549 LCALL Set_AL4
036A C203 550 CLR Set_AL4_F
036C 22 551 SEE2: RET
552 ;-----------------------------------------------------------------------------------------
036D 900375 553 Led_T_D: MOV DPTR, #Led_Ord_2
0370 75F002 554 MOV B, #02H
0373 A4 555 MUL AB
0374 73 556 JMP @A+DPTR
0375 020384 557 Led_Ord_2:LJMP Led_K0_1
0378 020390 558 LJMP Led_K1_1
037B 020396 559 LJMP Led_K2_1
037E 0203A2 560 LJMP Led_K3_1
0381 0203A8 561 LJMP Led_K4_1
0384 120652 562 Led_K0_1:LCALL TIME_12
0387 300503 563 JNB FL_3S, LK_1
038A 12027E 564 LCALL Date_Led
038D 0203BD 565 LK_1: LJMP Led_Jmp_4_End
0390 120652 566 Led_K1_1:LCALL TIME_12
0393 0203BD 567 LJMP Led_Jmp_4_End
0396 120252 568 Led_K2_1:LCALL Time_24
0399 300503 569 JNB FL_3S, LK_2
039C 12027E 570 LCALL Date_Led
039F 0203BD 571 LK_2: LJMP Led_Jmp_4_End
03A2 120252 572 Led_K3_1:LCALL Time_24
A51 MACRO ASSEMBLER 5-1 09/12/2004 21:30:19 PAGE 10
03A5 0203BD 573 LJMP Led_Jmp_4_End
03A8 753D14 574 Led_K4_1:MOV Led1, #Blk_Led
03AB 753E14 575 MOV Led2, #Blk_Led
03AE 753F15 576 MOV Led3, #DOT_Led
03B1 E523 577 MOV A, SEC
03B3 1202A0 578 LCALL BCD_8
03B6 240A 579 ADD A, #10D
03B8 F540 580 MOV Led4, A
03BA 85F041 581 MOV Led5, B
03BD 582 Led_Jmp_4_End:
03BD 22 583 RET
584 ;-----------------------------------------------------------------------------------------
03BE 750D01 585 Set_AL4: MOV K1_Data, #01D
03C1 750E01 586 MOV K2_Data, #01D
03C4 C20A 587 CLR Set_Over
03C6 120443 588 LCALL Led_AL
03C9 120746 589 LCALL Key_Bord
03CC 120760 590 LCALL SF_Key
03CF 750800 591 MOV Key_Data, #0
03D2 753C00 592 MOV Frist, #0
03D5 1200BB 593 Set_AL42: LCALL Clock
03D8 12014E 594 LCALL Week_Auto
03DB 120443 595 LCALL Led_AL
03DE 120746 596 LCALL Key_Bord
03E1 120706 597 LCALL Key_Del
03E4 1203F4 598 LCALL Key_AL
03E7 300AEB 599 JNB Set_Over, Set_AL42
03EA E4 600 CLR A
03EB F50D 601 MOV K1_Data, A
03ED F50E 602 MOV K2_Data, A
03EF F508 603 MOV Key_Data, A
03F1 F53C 604 MOV Frist, A
03F3 22 605 RET
606 ;-----------------------------------------------------------------------------------------
03F4 E508 607 Key_AL: MOV A, Key_Data
03F6 7001 608 JNZ $+3
03F8 22 609 RET
610 ;-----------------------------------------------------------------------------------------
03F9 B4010D 611 CJNE A, #01D, K2_AL
03FC 050D 612 INC K1_Data ;(1-9)
03FE E50D 613 MOV A, K1_Data
0400 B41326 614 CJNE A, #19D, K2_AL_End
0403 750D01 615 MOV K1_Data, #01D
0406 020429 616 LJMP K2_AL_End
0409 E50D 617 K2_AL: MOV A, K1_Data
040B B41205 618 CJNE A, #018D, K2E
040E D20A 619 SETB Set_Over
0410 020429 620 LJMP K2_AL_End
0413 782B 621 K2E: MOV R0, #AL1_H
0415 14 622 DEC A
0416 28 623 ADD A, R0
0417 F8 624 MOV R0, A
0418 06 625 INC @R0
0419 12042A 626 LCALL JJ_Bit
041C 75F018 627 MOV B, #24D
041F 7003 628 JNZ KE3
0421 75F03C 629 MOV B,#60D
0424 E6 630 KE3: MOV A, @R0
0425 84 631 DIV AB
0426 E5F0 632 MOV A, B
0428 F6 633 MOV @R0, A
0429 634 K2_AL_End:
0429 22 635 RET
636 ;-----------------------------------------------------------------------------------------
042A E50D 637 JJ_Bit: MOV A, K1_Data
042C 75F002 638 MOV B, #02D
A51 MACRO ASSEMBLER 5-1 09/12/2004 21:30:19 PAGE 11
042F 84 639 DIV AB
0430 E5F0 640 MOV A, B ;(A=1,0)
0432 22 641 RET
642 ;-----------------------------------------------------------------------------------------
0433 753E00 643 Led_Out1:MOV Led2, #00H
0436 753F18 644 MOV Led3, #U_Led
0439 754019 645 MOV Led4, #T_Led
043C 754114 646 MOV Led5, #Blk_Led
043F 753D14 647 MOV Led1, #Blk_Led
0442 22 648 RET
649 ;-----------------------------------------------------------------------------------------
0443 E50D 650 Led_AL: MOV A, K1_Data
0445 B41106 651 CJNE A, #017D, LO1
0448 120635 652 LCALL Beep_Timer
044B 020498 653 LJMP Led_AL_End
044E B41206 654 LO1: CJNE A, #18D, LD1
0451 120433 655 LCALL Led_Out1
0454 020498 656 LJMP Led_AL_End
0457 04 657 LD1: INC A
0458 75F002 658 MOV B, #02D
045B 84 659 DIV AB
045C F53D 660 MOV Led1, A
045E 14 661 DEC A
045F 23 662 RL A
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -