📄 wnl.lst
字号:
526 00A6 stopset_1_1:
527 00A6 1080 R sz r_setalm
528 00A7 2800 R jmp stopset_2
529 00A8 1F00 R clr set_flag
530 00A9 0003 ret
531 00AA stopset_2:
532 00AA
533 00AA 1F00 R clr r_setalm
534 00AB 2800 R jmp dealkey_kr_setalm0
535 00AC
536 00AC
537 00AC ;;-----------------------------------------------
538 00AC SBR_TRANSMITCOMMAND:
539 00AC 3800 R SNZ F_TCOMMANDFLAG
"File: WNL.ASM Holtek Cross-Assembler Version 2.86 Page 10
540 00AD 0003 RET
541 00AE L_DELAY500MS:
542 00AE 3800 R SNZ F_DELAY500MS
543 00AF 2800 R JMP L_RESET38A5
544 00B0 0F05 MOV A,05H
545 00B1 0200 R SUB A,R_DELAYTIME
546 00B2 3C0A SZ C
547 00B3 0003 RET
548 00B4 1F00 R CLR R_DELAYTIME
549 00B5 2800 R JMP L_INTIALCLK
550 00B6 L_RESET38A5:
551 00B6 0FE0 MOV A,0E0H
552 00B7 0592 ORM A,PA
553 00B8 0F1F MOV A,1FH
554 00B9 0693 ANDM A,PAC ;;SETTTING P_CLK,P_DATA,P_REST OUTPUT, AND OUTPUT HIGH LEVEL
555 00BA 0FDF MOV A,0DFH
556 00BB 0692 ANDM A,PA ;;SETTING P_REST(PA.5) OUTPUT LOW LEVEL ,RESET HT38A6
557 00BC 2000 R CALL SBR_DELAY33MS ;;DELAY 3.3MS
558 00BD 0F20 MOV A,20H
559 00BE 0592 ORM A,PA ;;SETTING P_REST(PA.5) HIGH LEVEL,REST HT38A5 CHIP
560 00BF 3000 R SET F_DELAY500MS
561 00C0 2800 R JMP L_DELAY500MS
562 00C1 L_INTIALCLK:
563 00C1 ; CLR EMI ;;CLOSE MAIN INTERRUPT
564 00C1 1F00 R CLR R_COMMANDPARITY
565 00C2 3400 R CLR F_DELAY500MS
566 00C3 0FBF MOV A,0BFH
567 00C4 0692 ANDM A,PA ;;SETTING P_CLK(PA.6) LOW LEVEL
568 00C5 2000 R CALL SBR_DELAY33MS ;;DELAY 3.3MS
569 00C6
570 00C6 0F09 MOV A,09H
571 00C7 0080 R MOV R_COMMANDCOUNT,A ;;TRANSMIT 9 BITS COMMAND
572 00C8 MLP_TRANSMITCOMMAND:
573 00C8 1780 R SDZ R_COMMANDCOUNT
574 00C9 2800 R JMP L_TRANSMITCOMMAND ;;TRANSMIT COMMAND
575 00CA ; JMP L_TRANSMITPARITYFLAG
576 00CA L_TRANSMITPARITYFLAG: ;;TRANSMIT PARITY BIT
577 00CA 3000 R SET F_TRANFINISH
578 00CB 3C00 R SZ R_COMMANDPARITY.0
579 00CC 2800 R JMP L_TRAN_HIGHLEVEL
580 00CD 2800 R JMP L_TRAN_LOWLEVEL
581 00CE L_TRANSMITCOMMAND:
582 00CE 340A CLR C
583 00CF 1B80 R RRC R_COMMANDBAK
584 00D0 3C0A SZ C
585 00D1 2800 R JMP L_TRAN_HIGHLEVEL
586 00D2 L_TRAN_LOWLEVEL:
587 00D2 0F7F MOV A,07FH
588 00D3 0692 ANDM A,PA ;;SETTING P_DATA(PA.7) LOW LEVEL
589 00D4 2800 R JMP L_TRAN_CLOCK
590 00D5 L_TRAN_HIGHLEVEL:
591 00D5 1480 R INC R_COMMANDPARITY
592 00D6 0F80 MOV A,80H
593 00D7 0592 ORM A,PA ;;SETTING P_DATA(PA.7) HIGH LEVEL
594 00D8 2800 R JMP L_TRAN_CLOCK
595 00D9 L_TRAN_CLOCK:
596 00D9 0FBF MOV A,0BFH
597 00DA 0692 ANDM A,PA ;;SETTING P_CLK(PA.6) LOW LEVEL
598 00DB 2000 R CALL SBR_DELAY033MS ;;DELAY 1MS
599 00DC 0F40 MOV A,40H
"File: WNL.ASM Holtek Cross-Assembler Version 2.86 Page 11
600 00DD 0592 ORM A,PA ;;SETTING P_CLK(PA.6) HIGH LEVEL
601 00DE 2000 R CALL SBR_DELAY033MS
602 00DF 3800 R SNZ F_TRANFINISH
603 00E0 2800 R JMP MLP_TRANSMITCOMMAND
604 00E1 MLP_TRANSMITCOMMANDEND:
605 00E1 3400 R CLR F_TRANFINISH
606 00E2 3400 R CLR F_TCOMMANDFLAG
607 00E3 0FE0 MOV A,0E0H
608 00E4 0593 ORM A,PAC ;;SETTING P_RES,P_CLK,P_DATA PIN INPUT
609 00E5 ; RETI
610 00E5 0003 RET
611 00E6 ;;**********************************************************
612 00E6 sub_checkwork:
613 00E6 3C00 R sz nowork
614 00E7 2800 R jmp checkwork_1
615 00E8 3C94 sz pwork ;;PWORK EQU PB1,PB1 INPUT AND NONE PULL-HIGH
616 00E9 0003 ret ;;PB1 BE USED TO TEST IF OR NOT VDD OF SYSTEM
617 00EA 2000 R call delay5ms
618 00EB 3C94 sz pwork
619 00EC 0003 ret
620 00ED 3000 R set nowork
621 00EE
622 00EE 0FFF mov a,0ffh ;; pa no pull high
623 00EF 0093 mov pac,a
624 00F0 0092 mov pa,a
625 00F1 0F02 mov a,02h
626 00F2 0095 mov pbc,a
627 00F3 0094 mov pb,a
628 00F4
629 00F4 0F00 mov a,0h
630 00F5 0096 mov pc,a
631 00F6 0098 mov pd,a
632 00F7 009A mov pe,a
633 00F8 3414 clr pbuzzer ;;PBUZZER EQU PB0
634 00F9 ; clr b_buzzer
635 00F9 3400 R clr F_TCOMMANDFLAG
636 00FA
637 00FA 1F00 R clr set_flag
638 00FB 1F00 R clr r_setalm
639 00FC 0003 ret
640 00FD
641 00FD checkwork_1:
642 00FD 3894 snz pwork
643 00FE 0003 ret
644 00FF 2000 R call delay5ms
645 0100 3894 snz pwork
646 0101 0003 ret
647 0102 3400 R clr nowork
648 0103 3014 set pbuzzer
649 0104 3000 R set b_workbuzzer
650 0105 0F02 mov a,02h
651 0106 0095 mov pbc,a
652 0107 0FF2 mov a,0f2h
653 0108 0094 mov pb,a
654 0109 0FE0 mov a,0e0h
655 010A 0093 mov pac,a
656 010B 0FFF mov a,0ffh
657 010C 0092 mov pa,a
658 010D
659 010D 0003 ret
"File: WNL.ASM Holtek Cross-Assembler Version 2.86 Page 12
660 010E ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
661 010E ;;DELAY 5MS
662 010E delay5ms:
663 010E 0F01 mov a,1
664 010F 0080 R mov temp1,a
665 0110 sub_delay:
666 0110 1F00 R clr temp
667 0111 1780 R sdz temp
668 0112 2800 R jmp $-1
669 0113 1780 R sdz temp1
670 0114 2800 R jmp $-4
671 0115 0003 ret
672 0116 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
673 0116 ;;DELAY 500MS
674 0116 SBR_DELAY500MS:
675 0116 0FFF MOV A,0FFH
676 0117 0080 R MOV TEMP,A
677 0118 0FC9 MOV A,0C9H
678 0119 0080 R MOV TEMP1,A
679 011A 0F03 MOV A,03H
680 011B 0080 R MOV TEMP2,A
681 011C MLP_DELAY500MS:
682 011C 1780 R SDZ TEMP
683 011D 2800 R JMP MLP_DELAY500MS
684 011E 1780 R SDZ TEMP1
685 011F 2800 R JMP MLP_DELAY500MS
686 0120 1780 R SDZ TEMP2
687 0121 2800 R JMP MLP_DELAY500MS
688 0122 0003 RET
689 0123 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
690 0123 ;;DELAY 3.3MS
691 0123 SBR_DELAY33MS:
692 0123 0F65 MOV A,65H
693 0124 0080 R MOV TEMP,A
694 0125 0F0C MOV A,0CH
695 0126 0080 R MOV TEMP1,A
696 0127 MLP_DELAY33MS:
697 0127 1780 R SDZ TEMP
698 0128 2800 R JMP MLP_DELAY33MS
699 0129 1780 R SDZ TEMP1
700 012A 2800 R JMP MLP_DELAY33MS
701 012B 0003 RET
702 012C ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
703 012C ;;DELAY 0.33MS
704 012C SBR_DELAY033MS:
705 012C 0F6F MOV A,6FH
706 012D 0080 R MOV temp,a
707 012E MLP_DELAY1MS:
708 012E 1780 R SDZ temp
709 012F 2800 R JMP $-1
710 0130 0003 RET
711 0131
712 0131 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
713 0131
714 0131 main1_1:
715 0131 3000 R set flash1
716 0132 3400 R clr dot1
717 0133 3400 R clr dot2
718 0134 2800 R jmp sub_getbitnum4
719 0135
"File: WNL.ASM Holtek Cross-Assembler Version 2.86 Page 13
720 0135 sub_main1:
721 0135 1080 R sz r_setalm
722 0136 0003 ret
723 0137 1080 R sz set_flag
724 0138 2800 R jmp main1_2
725 0139 3800 R snz b_05s2
726 013A 0003 ret
727 013B 3400 R clr b_05s2
728 013C 3800 R snz flash1
729 013D 2800 R jmp main1_1
730 013E main1_2:
731 013E 3400 R clr flash1
732 013F
733 013F 3000 R set dot1
734 0140 3000 R set dot2
735 0141 2800 R jmp sub_getbitnum4
736 0142 ;;*****************************************************************8
737 0142 sub_main:
738 0142 ;snz b_f250ms1
739 0142 ;ret
740 0142 ;clr b_f250ms1
741 0142 main_xxx:
742 0142
743 0142 2000 R call sub_getbitnum
744 0143 2000 R call sub_runled
745 0144
746 0144 0700 R mov a,bitnum2a
747 0145 0580 R orm a,bitnum2
748 0146 0700 R mov a,bitnum1a
749 0147 0580 R orm a,bitnum1
750 0148 0700 R mov a,bitnum3a
751 0149 0580 R orm a,bitnum3
752 014A
753 014A 1080 R sz r_setalm
754 014B 2800 R jmp main_alarm ;;set alarm mode
755 014C
756 014C 3C00 R sz flash
757 014D 2800 R jmp main_clock_flash ;; flash
758 014E main_clock_1:
759 014E 3000 R set flash
760 014F main_clock_2:
761 014F
762 014F 2000 R call sub_gethournum
763 0150 0700 R mov a,r_temper
764 0151 0A0A sub a,10
765 0152 3C0A sz c
766 0153 2800 R jmp main_clock_2_1
767 0154 0F0A mov a,10
768 0155 0200 R sub a,r_temper
769 0156 0DA0 or a,0a0h
770 0157 2800 R jmp $+2
771 0158 main_clock_2_1:
772 0158 2000 R call sub_hex2t
773 0159
774 0159 0080 R mov r_numtemp,a
775 015A
776 015A 0700 R mov a,year
777 015B 2000 R call sub_hex2t
778 015C 0080 R mov r_numyear,a
779 015D
"File: WNL.ASM Holtek Cross-Assembler Version 2.86 Page 14
780 015D
781 015D 0700 R mov a,min
782 015E 2000 R call sub_hex2t
783 015F 0080 R mov r_nummin,a
784 0160
785 0160 0700 R mov a,nmonth_1
786 0161 2000 R call sub_hex2t
787 0162
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -