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