📄 password clock9.lst
字号:
624 01C8 3094 set scl
625 01C9 d_1
626 01CD
627 01CD 3494 clr scl
628 01CE 18BE rl word_address
629 01CF 17BF sdz data_8
630 01D0 29C1 jmp write_address_in
631 01D1 3014 set sda
632 01D2 d_1
633 01D6 3094 set scl
634 01D7 d_1
635 01DB
636 01DB wdow:
637 01DB 3C14 sz sda
638 01DC 29DB jmp wdow
639 01DD 3494 clr scl
640 01DE 0F08 mov a,08h
641 01DF 00BF mov data_8,a
642 01E0 write_data_in:
643 01E0 3414 clr sda
644 01E1 3FBD sz write_in.7
645 01E2 3014 set sda
646 01E3 d_1
647 01E7 3094 set scl
648 01E8 d_1
649 01EC
650 01EC 3494 clr scl
651 01ED 18BD rl write_in
652 01EE 17BF sdz data_8
653 01EF 29E0 jmp write_data_in
654 01F0
655 01F0 3414 clr sda
文件：PASSWORD CLOCK9.ASM 盛群编译器版本 2.86 页次12
656 01F1 3094 set scl
657 01F2 d_1
658 01F6 3494 clr scl
659 01F7 3094 set scl
660 01F8 d_1
661 01FC 3014 set sda ;停止信号
662 01FD d_1
663 0201 3494 clr scl
664 0202 0003 ret
665 0203
666 0203 ;******************** 读************************
667 0203 ht24_read:
668 0203 3014 set sda
669 0204 d_1
670 0208 3094 set scl
671 0209 d_1
672 020D 3414 clr sda ;开始信号
673 020E
674 020E 3494 clr scl
675 020F 3014 set sda ;1
676 0210 d_1
677 0214 3094 set scl
678 0215 d_1
679 0219
680 0219 3494 clr scl
681 021A 3414 clr sda ;0
682 021B 3094 set scl
683 021C d_1
684 0220
685 0220 3494 clr scl
686 0221 3014 set sda ;1
687 0222 d_1
688 0226
689 0226 3094 set scl
690 0227 d_1
691 022B
692 022B 3494 clr scl
693 022C 3414 clr sda ;0
694 022D 3094 set scl
695 022E d_1
696 0232
697 0232 3494 clr scl
698 0233 3414 clr sda ;a2,a1,a0=0,0,0
699 0234 3094 set scl
700 0235 d_1
701 0239
702 0239 3494 clr scl
703 023A 3094 set scl
704 023B d_1
705 023F
706 023F 3494 clr scl
707 0240 3094 set scl
708 0241 d_1
709 0245
710 0245 3494 clr scl
711 0246 3414 clr sda ;0 write mode
712 0247 3094 set scl
713 0248 d_1
714 024C
715 024C 3494 clr scl
文件：PASSWORD CLOCK9.ASM 盛群编译器版本 2.86 页次13
716 024D 3014 set sda ;for ack
717 024E d_1
718 0252 3094 set scl
719 0253 d_1
720 0257 flel:
721 0257 3C14 sz sda
722 0258 2A03 jmp ht24_read
723 0259 3494 clr scl
724 025A 0F08 mov a,08h
725 025B 00BF mov data_8,a
726 025C read_address_in:
727 025C 3414 clr sda
728 025D 3FBE sz word_address.7
729 025E 3014 set sda
730 025F d_1
731 0263 3094 set scl
732 0264 d_1
733 0268 3494 clr scl
734 0269 18BE rl word_address
735 026A 17BF sdz data_8
736 026B 2A5C jmp read_address_in
737 026C
738 026C 3014 set sda ;for ack
739 026D d_1
740 0271 3094 set scl
741 0272 d_1
742 0276
743 0276 skco:
744 0276 3C14 sz sda
745 0277 2A76 jmp skco
746 0278 3494 clr scl
747 0279 restart:
748 0279 3014 set sda
749 027A d_1
750 027E 3094 set scl
751 027F d_1
752 0283 3414 clr sda ;起始信号
753 0284
754 0284 3494 clr scl
755 0285 3014 set sda ;1
756 0286 d_1
757 028A 3094 set scl
758 028B d_1
759 028F
760 028F 3494 clr scl
761 0290 3414 clr sda ;0
762 0291 3094 set scl
763 0292 d_1
764 0296
765 0296 3494 clr scl
766 0297 3014 set sda ;1
767 0298 d_1
768 029C 3094 set scl
769 029D d_1
770 02A1
771 02A1 3494 clr scl
772 02A2 3414 clr sda ;0
773 02A3 3094 set scl
774 02A4 d_1
775 02A8
文件：PASSWORD CLOCK9.ASM 盛群编译器版本 2.86 页次14
776 02A8 3494 clr scl
777 02A9 3414 clr sda ;a2,a1,a0=0
778 02AA 3094 set scl
779 02AB d_1
780 02AF
781 02AF 3494 clr scl
782 02B0 3094 set scl
783 02B1 d_1
784 02B5
785 02B5 3494 clr scl
786 02B6 3094 set scl
787 02B7 d_1
788 02BB
789 02BB 3494 clr scl
790 02BC 3014 set sda ;1 read mode
791 02BD d_1
792 02C1 3094 set scl
793 02C2 d_1
794 02C6
795 02C6 3494 clr scl
796 02C7 3014 set sda ;for ack
797 02C8 d_1
798 02CC 3094 set scl
799 02CD d_1
800 02D1 ewfp:
801 02D1 3C14 sz sda
802 02D2 2AD1 jmp ewfp
803 02D3 0F08 mov a,08h
804 02D4 00BF mov data_8,a
805 02D5 flow_out:
806 02D5 3494 clr scl
807 02D6 3014 set sda ;设定为输入口
808 02D7 d_1
809 02DB 37BC clr read_out.7
810 02DC 3C14 sz sda
811 02DD 33BC set read_out.7
812 02DE d_1
813 02E2 3094 set scl
814 02E3 d_1
815 02E7 18BC rl read_out
816 02E8 17BF sdz data_8
817 02E9 2AD5 jmp flow_out
818 02EA
819 02EA 3494 clr scl
820 02EB 3414 clr sda
821 02EC 3094 set scl
822 02ED d_1
823 02F1 3014 set sda ;停止信号
824 02F2 d_1
825 02F6 0003 ret
826 02F7 ;*******************************************************
827 02F7 ;;code_compare:
828 02F7 ;; mov a,write_in ;将读出数据与原密码比较
829 02F7 ;; xor a,read_out
830 02F7 ;; snz z
831 02F7 ;; jmp fail_out
832 02F7 ;; jmp ok_end
833 02F7
834 02F7 fail_out: ;操作失败
835 02F7 3112 set pa.2
文件：PASSWORD CLOCK9.ASM 盛群编译器版本 2.86 页次15
836 02F8 2321 call delay_200ms
837 02F9 2321 call delay_200ms
838 02FA 2321 call delay_200ms
839 02FB 2321 call delay_200ms
840 02FC 2321 call delay_200ms
841 02FD clr_array_data:
842 02FD 0F08 mov a,8
843 02FE 0080 R mov temp_num,a
844 02FF 0F00 R mov a, offset array_data
845 0300 0081 mov mp0, a
846 0301 out:
847 0301 1F00 clr r0
848 0302 1481 inc mp0
849 0303 1780 R sdz temp_num
850 0304 2B01 jmp out
851 0305 3512 clr pa.2
852 0306 0F00 R mov a, offset array_data
853 0307 0081 mov mp0, a
854 0308 282A jmp main_proc
855 0309
856 0309 release_end:
857 0309 3092 set pa.1
858 030A 2321 call delay_200ms
859 030B 2321 call delay_200ms
860 030C 3492 clr pa.1
861 030D 3112 set pa.2
862 030E 2321 call delay_200ms
863 030F 2321 call delay_200ms
864 0310 2AFD jmp clr_array_data
865 0311 ;======================
866 0311 ok_end:
867 0311 1F00 R clr delay0
868 0312 0F82 mov a,082h
869 0313 0492 xorm a,pa
870 0314 2321 call delay_200ms
871 0315 0F0A mov a,10
872 0316 1480 R inc delay0
873 0317 0400 R xor a,delay0
874 0318 1085 sz acc ;操作成功,open the door
875 0319 2B14 jmp $-5
876 031A 0F80 mov a,080h
877 031B 0492 xorm a,pa
878 031C 0F00 R mov a, offset array_data
879 031D 0081 mov mp0, a
880 031E 282A jmp main_proc
881 031F ;=========================
882 031F low_voltage:
883 031F 3112 set pa.2
884 0320 2B20 jmp $
885 0321 ;************************************************
886 0321 delay_200ms:
887 0321 1F00 R clr delay
888 0322 0F96 mov a, 196h ;
889 0323 0080 R mov delay1, a
890 0324 $0:
891 0324 1780 R sdz delay
892 0325 2B24 jmp $0
893 0326
894 0326 1780 R sdz delay1
895 0327 2B24 jmp $0
文件：PASSWORD CLOCK9.ASM 盛群编译器版本 2.86 页次16
896 0328 0003 ret
897 0329 ;===========================
898 0329 delay30ms:
899 0329 1F00 R clr delay
900 032A 0F30 mov a, 030h ;65 120ms
901 032B 0080 R mov delay1, a
902 032C $1:
903 032C 1780 R sdz delay
904 032D 2B2C jmp $1
905 032E
906 032E 1780 R sdz delay1
907 032F 2B2C jmp $1
908 0330 0003 ret
909 0331 ;*************************************************
910 0331 ;*************************************************
911 0331
912 0331 ORG 03e0h
913 03E0 manage_clock:
914 03E0 0008 DC 8
915 03E1 0008 DC 8
916 03E2 0008 DC 8
917 03E3 0008 DC 8
918 03E4 0008 DC 8
919 03E5 0008 DC 8
920 03E6 0008 DC 8
921 03E7 0008 DC 8
922 03E8
923 03E8 ORG 03f0h
924 03F0 personal_clock:
925 03F0 0001 DC 1
926 03F1 0002 DC 2
927 03F2 0003 DC 3
928 03F3 0004 DC 4
929 03F4 0005 DC 5
930 03F5 0006 DC 6
931 03F6 0007 DC 7
932 03F7 0008 DC 8
933 03F8
0 Errors⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -