📄 password clock.lst
字号:
662 0208 3494 clr scl
663 0209 0003 ret
664 020A
665 020A ;******************** 读************************
666 020A ht24_read:
667 020A 3014 set sda
668 020B d_1
669 020F 3094 set scl
670 0210 d_1
671 0214 3414 clr sda ;start signal
672 0215
673 0215 3494 clr scl
674 0216 3014 set sda ;1
675 0217 d_1
676 021B 3094 set scl
677 021C d_1
678 0220
679 0220 3494 clr scl
680 0221 3414 clr sda ;0
681 0222 3094 set scl
682 0223 d_1
683 0227
684 0227 3494 clr scl
685 0228 3014 set sda ;1
686 0229 d_1
687 022D
688 022D 3094 set scl
689 022E d_1
690 0232
691 0232 3494 clr scl
692 0233 3414 clr sda ;0
693 0234 3094 set scl
694 0235 d_1
695 0239
696 0239 3494 clr scl
697 023A 3414 clr sda ;a2,a1,a0=0,0,0
698 023B 3094 set scl
699 023C d_1
700 0240
701 0240 3494 clr scl
702 0241 3094 set scl
703 0242 d_1
704 0246
705 0246 3494 clr scl
706 0247 3094 set scl
707 0248 d_1
708 024C
709 024C 3494 clr scl
710 024D 3414 clr sda ;0 write mode
711 024E 3094 set scl
712 024F d_1
713 0253
714 0253 3494 clr scl
715 0254 3014 set sda ;for ack
文件：PASSWORD CLOCK.ASM 盛群编译器版本 2.86 页次13
716 0255 d_1
717 0259 3094 set scl
718 025A d_1
719 025E flel:
720 025E 3C14 sz sda
721 025F 2A0A jmp ht24_read
722 0260 3494 clr scl
723 0261 0F08 mov a,08h
724 0262 00BF mov data_8,a
725 0263 read_address_in:
726 0263 3414 clr sda
727 0264 3FBE sz word_address.7
728 0265 3014 set sda
729 0266 d_1
730 026A 3094 set scl
731 026B d_1
732 026F 3494 clr scl
733 0270 18BE rl word_address
734 0271 17BF sdz data_8
735 0272 2A63 jmp read_address_in
736 0273
737 0273 3014 set sda ;for ack
738 0274 d_1
739 0278 3094 set scl
740 0279 d_1
741 027D
742 027D skco:
743 027D 3C14 sz sda
744 027E 2A7D jmp skco
745 027F 3494 clr scl
746 0280 restart:
747 0280 3014 set sda
748 0281 d_1
749 0285 3094 set scl
750 0286 d_1
751 028A 3414 clr sda ;start signal
752 028B
753 028B 3494 clr scl
754 028C 3014 set sda ;1
755 028D d_1
756 0291 3094 set scl
757 0292 d_1
758 0296
759 0296 3494 clr scl
760 0297 3414 clr sda ;0
761 0298 3094 set scl
762 0299 d_1
763 029D
764 029D 3494 clr scl
765 029E 3014 set sda ;1
766 029F d_1
767 02A3 3094 set scl
768 02A4 d_1
769 02A8
770 02A8 3494 clr scl
771 02A9 3414 clr sda ;0
772 02AA 3094 set scl
773 02AB d_1
774 02AF
775 02AF 3494 clr scl
文件：PASSWORD CLOCK.ASM 盛群编译器版本 2.86 页次14
776 02B0 3414 clr sda ;a2,a1,a0=0
777 02B1 3094 set scl
778 02B2 d_1
779 02B6
780 02B6 3494 clr scl
781 02B7 3094 set scl
782 02B8 d_1
783 02BC
784 02BC 3494 clr scl
785 02BD 3094 set scl
786 02BE d_1
787 02C2
788 02C2 3494 clr scl
789 02C3 3014 set sda ;1 read mode
790 02C4 d_1
791 02C8 3094 set scl
792 02C9 d_1
793 02CD
794 02CD 3494 clr scl
795 02CE 3014 set sda ;for ack
796 02CF d_1
797 02D3 3094 set scl
798 02D4 d_1
799 02D8 ewfp:
800 02D8 3C14 sz sda
801 02D9 2AD8 jmp ewfp
802 02DA 0F08 mov a,08h
803 02DB 00BF mov data_8,a
804 02DC flow_out:
805 02DC 3494 clr scl
806 02DD 3014 set sda ;input I/O
807 02DE d_1
808 02E2 37BC clr read_out.7
809 02E3 3C14 sz sda
810 02E4 33BC set read_out.7
811 02E5 d_1
812 02E9 3094 set scl
813 02EA d_1
814 02EE 18BC rl read_out
815 02EF 17BF sdz data_8
816 02F0 2ADC jmp flow_out
817 02F1
818 02F1 3494 clr scl
819 02F2 3414 clr sda
820 02F3 3094 set scl
821 02F4 d_1
822 02F8 3014 set sda ;stop signal
823 02F9 d_1
824 02FD 0003 ret
825 02FE ;***********************指示灯处理******************************
826 02FE
827 02FE fail_out: ;deal with fail
828 02FE 3112 set pa.2
829 02FF 2358 call delay_200ms
830 0300 2358 call delay_200ms
831 0301 2358 call delay_200ms
832 0302 2358 call delay_200ms
833 0303 2358 call delay_200ms
834 0304 clr_array_data: ;;clrea 8 bit password
835 0304 0F08 mov a,8
文件：PASSWORD CLOCK.ASM 盛群编译器版本 2.86 页次15
836 0305 0080 R mov temp_num,a
837 0306 0F00 R mov a, offset array_data
838 0307 0081 mov mp0, a
839 0308 out:
840 0308 1F00 clr r0
841 0309 1481 inc mp0
842 030A 1780 R sdz temp_num
843 030B 2B08 jmp out
844 030C 0F04 mov a,04h
845 030D 0492 xorm a,pa
846 030E 1F00 R clr delay0
847 030F 0F00 R mov a, offset array_data
848 0310 0081 mov mp0, a
849 0311 282A jmp main_proc
850 0312 ;;-------------------------
851 0312 release_end: ;;绿灯闪一下后红灯亮
852 0312 0F02 mov a,02h
853 0313 0492 xorm a,pa
854 0314 2358 call delay_200ms
855 0315 2358 call delay_200ms
856 0316 0F06 mov a,06h
857 0317 0492 xorm a,pa
858 0318 2358 call delay_200ms
859 0319 2358 call delay_200ms
860 031A 1F00 R clr delay0
861 031B 2B04 jmp clr_array_data
862 031C ;--------------------------
863 031C chang_proc:
864 031C 0F02 mov a,02h
865 031D 0492 xorm a,pa
866 031E
867 031E 1F00 R clr delay
868 031F 0F30 mov a, 030h ;
869 0320 0080 R mov delay1, a
870 0321 $3:
871 0321 1780 R sdz delay
872 0322 2B21 jmp $3
873 0323
874 0323 1780 R sdz delay1
875 0324 2B21 jmp $3
876 0325 1F00 R clr delay1
877 0326 1F00 R clr delay
878 0327
879 0327 1480 R inc delay0
880 0328 0F04 mov a,04h
881 0329 0492 xorm a,pa
882 032A
883 032A 1F00 R clr delay
884 032B 0F30 mov a, 030h ;
885 032C 0080 R mov delay1, a
886 032D $4:
887 032D 1780 R sdz delay
888 032E 2B2D jmp $4
889 032F
890 032F 1780 R sdz delay1
891 0330 2B2D jmp $4
892 0331 1F00 R clr delay1
893 0332 1F00 R clr delay
894 0333
895 0333 0F03 mov a,3
文件：PASSWORD CLOCK.ASM 盛群编译器版本 2.86 页次16
896 0334 0400 R xor a,delay0
897 0335 1085 sz acc
898 0336 2B1C jmp chang_proc
899 0337 0F00 mov a,0
900 0338 0492 xorm a,pa
901 0339 1F00 R clr delay0
902 033A 0003 ret
903 033B
904 033B chang_end:
905 033B 0F06 mov a,06h
906 033C 0492 xorm a,pa
907 033D 1F00 R clr delay
908 033E 0F96 mov a, 196h ;
909 033F 0080 R mov delay1, a
910 0340 $5:
911 0340 1780 R sdz delay
912 0341 2B40 jmp $5
913 0342
914 0342 1780 R sdz delay1
915 0343 2B40 jmp $5
916 0344 0F06 mov a,06h
917 0345 0492 xorm a,pa
918 0346 0003 ret
919 0347 ;======================
920 0347 ok_end:
921 0347 1F00 R clr delay0
922 0348 0F82 mov a,082h
923 0349 0492 xorm a,pa
924 034A 2358 call delay_200ms
925 034B 0F19 mov a,25
926 034C 1480 R inc delay0
927 034D 0400 R xor a,delay0
928 034E 1085 sz acc ;操作成功,open the door
929 034F 2B4A jmp $-5
930 0350 0F80 mov a,080h
931 0351 0492 xorm a,pa ;PA.7为低，open the magnet
932 0352 1F00 R clr delay0
933 0353 0F00 R mov a, offset array_data
934 0354 0081 mov mp0, a
935 0355 282A jmp main_proc
936 0356 ;=========================
937 0356 low_voltage:
938 0356 3112 set pa.2
939 0357 2B57 jmp $ ;;If low_voltage,No aciton
940 0358
941 0358 ;*******************delay program************************
942 0358 delay_200ms:
943 0358 1F00 R clr delay
944 0359 0F96 mov a, 196h
945 035A 0080 R mov delay1, a
946 035B $0:
947 035B 1780 R sdz delay
948 035C 2B5B jmp $0
949 035D
950 035D 1780 R sdz delay1
951 035E 2B5B jmp $0
952 035F 0003 ret
953 0360 ;-----------------------
954 0360 delay30ms:
955 0360 1F00 R clr delay
文件：PASSWORD CLOCK.ASM 盛群编译器版本 2.86 页次17
956 0361 0F30 mov a, 030h
957 0362 0080 R mov delay1, a
958 0363 $1:
959 0363 1780 R sdz delay
960 0364 2B63 jmp $1
961 0365
962 0365 1780 R sdz delay1
963 0366 2B63 jmp $1
964 0367 1F00 R clr delay1
965 0368 1F00 R clr delay
966 0369 0003 ret
967 036A ;*************************************************
968 036A ;*************************************************
969 036A
970 036A ORG 03e0h
971 03E0 manage_clock:
972 03E0 0008 DC 8
973 03E1 0008 DC 8
974 03E2 0008 DC 8
975 03E3 0008 DC 8
976 03E4 0008 DC 8
977 03E5 0008 DC 8
978 03E6 0008 DC 8
979 03E7 0008 DC 8
980 03E8
981 03E8 ORG 03f0h
982 03F0 personal_clock:
983 03F0 0001 DC 1
984 03F1 0002 DC 2
985 03F2 0003 DC 3
986 03F3 0004 DC 4
987 03F4 0005 DC 5
988 03F5 0006 DC 6
989 03F6 0007 DC 7
990 03F7 0008 DC 8
991 03F8
0 Errors⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -