📄 password clock3.lst
字号:
580 016D 3494 clr scl
581 016E 3094 set scl
582 016F d_1
583 0173
584 0173 3494 clr scl
585 0174 3414 clr sda ;0 write mode
586 0175 3094 set scl
587 0176 d_1
588 017A
589 017A 3494 clr scl
590 017B 3014 set sda ;1 for ack, 设为输入口，接收应答信号
591 017C d_1
592 0180 3094 set scl ;read_modify_write
593 0181 d_1
594 0185
595 0185 skch:
文件：PASSWORD CLOCK3.ASM 盛群编译器版本 2.86 页次11
596 0185 3C14 sz sda ;应答信号
597 0186 2985 jmp skch
598 0187 3494 clr scl
599 0188 0F08 mov a,08h
600 0189 00B3 mov data_8,a ;一个字节八位
601 018A write_address_in:
602 018A 3414 clr sda
603 018B 3FB2 sz word_address.7
604 018C 3014 set sda
605 018D d_1
606 0191 3094 set scl
607 0192 d_1
608 0196
609 0196 3494 clr scl
610 0197 18B2 rl word_address
611 0198 17B3 sdz data_8
612 0199 298A jmp write_address_in
613 019A 3014 set sda
614 019B d_1
615 019F 3094 set scl
616 01A0 d_1
617 01A4
618 01A4 wdow:
619 01A4 3C14 sz sda
620 01A5 29A4 jmp wdow
621 01A6 3494 clr scl
622 01A7 0F08 mov a,08h
623 01A8 00B3 mov data_8,a
624 01A9 write_data_in:
625 01A9 3414 clr sda
626 01AA 3FB1 sz write_in.7
627 01AB 3014 set sda
628 01AC d_1
629 01B0 3094 set scl
630 01B1 d_1
631 01B5
632 01B5 3494 clr scl
633 01B6 18B1 rl write_in
634 01B7 17B3 sdz data_8
635 01B8 29A9 jmp write_data_in
636 01B9
637 01B9 3414 clr sda
638 01BA 3094 set scl
639 01BB d_1
640 01BF 3494 clr scl
641 01C0 3094 set scl
642 01C1 d_1
643 01C5 3014 set sda ;停止信号
644 01C6 d_1
645 01CA 3494 clr scl
646 01CB 0003 ret
647 01CC
648 01CC ;******************** 读************************
649 01CC ht24_read:
650 01CC 3014 set sda
651 01CD d_1
652 01D1 3094 set scl
653 01D2 d_1
654 01D6 3414 clr sda ;开始信号
655 01D7
文件：PASSWORD CLOCK3.ASM 盛群编译器版本 2.86 页次12
656 01D7 3494 clr scl
657 01D8 3014 set sda ;1
658 01D9 d_1
659 01DD 3094 set scl
660 01DE d_1
661 01E2
662 01E2 3494 clr scl
663 01E3 3414 clr sda ;0
664 01E4 3094 set scl
665 01E5 d_1
666 01E9
667 01E9 3494 clr scl
668 01EA 3014 set sda ;1
669 01EB d_1
670 01EF
671 01EF 3094 set scl
672 01F0 d_1
673 01F4
674 01F4 3494 clr scl
675 01F5 3414 clr sda ;0
676 01F6 3094 set scl
677 01F7 d_1
678 01FB
679 01FB 3494 clr scl
680 01FC 3414 clr sda ;a2,a1,a0=0,0,0
681 01FD 3094 set scl
682 01FE d_1
683 0202
684 0202 3494 clr scl
685 0203 3094 set scl
686 0204 d_1
687 0208
688 0208 3494 clr scl
689 0209 3094 set scl
690 020A d_1
691 020E
692 020E 3494 clr scl
693 020F 3414 clr sda ;0 write mode
694 0210 3094 set scl
695 0211 d_1
696 0215
697 0215 3494 clr scl
698 0216 3014 set sda ;for ack
699 0217 d_1
700 021B 3094 set scl
701 021C d_1
702 0220 flel:
703 0220 3C14 sz sda
704 0221 29CC jmp ht24_read
705 0222 3494 clr scl
706 0223 0F08 mov a,08h
707 0224 00B3 mov data_8,a
708 0225 read_address_in:
709 0225 3414 clr sda
710 0226 3FB2 sz word_address.7
711 0227 3014 set sda
712 0228 d_1
713 022C 3094 set scl
714 022D d_1
715 0231 3494 clr scl
文件：PASSWORD CLOCK3.ASM 盛群编译器版本 2.86 页次13
716 0232 18B2 rl word_address
717 0233 17B3 sdz data_8
718 0234 2A25 jmp read_address_in
719 0235
720 0235 3014 set sda ;for ack
721 0236 d_1
722 023A 3094 set scl
723 023B d_1
724 023F
725 023F skco:
726 023F 3C14 sz sda
727 0240 2A3F jmp skco
728 0241 3494 clr scl
729 0242 restart:
730 0242 3014 set sda
731 0243 d_1
732 0247 3094 set scl
733 0248 d_1
734 024C 3414 clr sda ;起始信号
735 024D
736 024D 3494 clr scl
737 024E 3014 set sda ;1
738 024F d_1
739 0253 3094 set scl
740 0254 d_1
741 0258
742 0258 3494 clr scl
743 0259 3414 clr sda ;0
744 025A 3094 set scl
745 025B d_1
746 025F
747 025F 3494 clr scl
748 0260 3014 set sda ;1
749 0261 d_1
750 0265 3094 set scl
751 0266 d_1
752 026A
753 026A 3494 clr scl
754 026B 3414 clr sda ;0
755 026C 3094 set scl
756 026D d_1
757 0271
758 0271 3494 clr scl
759 0272 3414 clr sda ;a2,a1,a0=0
760 0273 3094 set scl
761 0274 d_1
762 0278
763 0278 3494 clr scl
764 0279 3094 set scl
765 027A d_1
766 027E
767 027E 3494 clr scl
768 027F 3094 set scl
769 0280 d_1
770 0284
771 0284 3494 clr scl
772 0285 3014 set sda ;1 read mode
773 0286 d_1
774 028A 3094 set scl
775 028B d_1
文件：PASSWORD CLOCK3.ASM 盛群编译器版本 2.86 页次14
776 028F
777 028F 3494 clr scl
778 0290 3014 set sda ;for ack
779 0291 d_1
780 0295 3094 set scl
781 0296 d_1
782 029A ewfp:
783 029A 3C14 sz sda
784 029B 2A9A jmp ewfp
785 029C 0F08 mov a,08h
786 029D 00B3 mov data_8,a
787 029E flow_out:
788 029E 3494 clr scl
789 029F 3014 set sda ;设定为输入口
790 02A0 d_1
791 02A4 37B0 clr read_out.7
792 02A5 3C14 sz sda
793 02A6 33B0 set read_out.7
794 02A7 d_1
795 02AB 3094 set scl
796 02AC d_1
797 02B0 18B0 rl read_out
798 02B1 17B3 sdz data_8
799 02B2 2A9E jmp flow_out
800 02B3
801 02B3 3494 clr scl
802 02B4 3414 clr sda
803 02B5 3094 set scl
804 02B6 d_1
805 02BA 3014 set sda ;停止信号
806 02BB d_1
807 02BF 0003 ret
808 02C0 ;-----------------------
809 02C0 code_compare:
810 02C0 0731 mov a,write_in ;将读出数据与原密码比较
811 02C1 0430 xor a,read_out
812 02C2 390A snz z
813 02C3 2AC5 jmp fail_out
814 02C4 2AC9 jmp ok_end
815 02C5
816 02C5 fail_out: ;操作失败
817 02C5 3112 set pa.2
818 02C6 22CD call delay_5ms
819 02C7 3512 clr pa.2
820 02C8 2829 jmp main_proc
821 02C9 ok_end:
822 02C9 ;jmp open_door ;操作成功,open the door
823 02C9 ;---------------------------------------------
824 02C9 green_led_proc:
825 02C9 3092 set pa.1
826 02CA 22CD call delay_5ms
827 02CB 3492 clr pa.1
828 02CC 2829 jmp main_proc
829 02CD
830 02CD ;************************************************
831 02CD delay_5ms:
832 02CD 1F00 R clr delay0
833 02CE 0F05 mov a, 05h ;65 120ms
834 02CF 0080 R mov delay1, a
835 02D0 $0:
文件：PASSWORD CLOCK3.ASM 盛群编译器版本 2.86 页次15
836 02D0 1780 R sdz delay0
837 02D1 2AD0 jmp $0
838 02D2
839 02D2 1780 R sdz delay1
840 02D3 2AD0 jmp $0
841 02D4 0003 ret
842 02D5 ;*************************************************
843 02D5 ;*************************************************
844 02D5
845 02D5 ORG 03e0h
846 03E0 manage_clock:
847 03E0 0008 DC 8
848 03E1 0008 DC 8
849 03E2 0008 DC 8
850 03E3 0008 DC 8
851 03E4 0008 DC 8
852 03E5 0008 DC 8
853 03E6 0008 DC 8
854 03E7 0008 DC 8
855 03E8
856 03E8 ORG 03f0h
857 03F0 personal_clock:
858 03F0 0001 DC 1
859 03F1 0002 DC 2
860 03F2 0003 DC 3
861 03F3 0004 DC 4
862 03F4 0005 DC 5
863 03F5 0006 DC 6
864 03F6 0007 DC 7
865 03F7 0008 DC 8
866 03F8
0 Errors⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -