📄 ctrol_clk.lst
字号:
784 00784 022C 5CC4 lds disp1,09h
785 00785 022D 4145 dec* disp2
786 00786 022E BA3E jc dis_ad_end
787 00787 022F 5CC5 lds disp2,09h
788 00788 0230 4146 dec* disp3
789 00789 0231 D23E jmp dis_ad_end
00790 dis1:
791 00791 0232 6C48 lda dis_d_flag
792 00792 0233 2543 add* disp0
793 00793 0234 5543 daa* disp0
794 00794 0235 AA3E jnc dis_ad_end
795 00795 0236 4044 inc* disp1
796 00796 0237 5544 daa* disp1
797 00797 0238 AA3E jnc dis_ad_end
798 00798 0239 4045 inc* disp2
799 00799 023A 5545 daa* disp2
800 00800 023B AA3E jnc dis_ad_end
801 00801 023C 4046 inc* disp3
802 00802 023D 0000 nop
00803 dis_ad_end:
804 00804 023E F400 rts
00805 ;*****************************************
00806 second_add:
807 00807 023F 4A56 maf reg_cf
808 00808 0240 EA08 plc 08h
809 00809 0241 E908 sie* 08h
810 00810 0242 6C51 lda set_time0
811 00811 0243 A26B jnz second_end1
0812
813 00813 0244 4053 inc* half_sec
814 00814 0245 8262 jb0 second_end3
0815
816 00816 0246 404B inc* t_sec0
817 00817 0247 554B daa* t_sec0
818 00818 0248 AA62 jnc second_end3
819 00819 0249 4050 inc* t_sec1
820 00820 024A 5B74 lds 74h,06h
821 00821 024B 2C50 eor t_sec1
822 00822 024C A262 jnz second_end3
823 00823 024D 5850 lds t_sec1,00h
0824
825 00825 024E 404C inc* t_minute0
826 00826 024F 554C daa* t_minute0
827 00827 0250 AA62 jnc second_end3
828 00828 0251 404D inc* t_minute1
829 00829 0252 5B74 lds 74h,06h
830 00830 0253 2C4D eor t_minute1
831 00831 0254 A262 jnz second_end3
832 00832 0255 584D lds t_minute1,00h
0833
834 00834 0256 404E inc* t_hour0
835 00835 0257 554E daa* t_hour0
836 00836 0258 AA5A jnc second_a0
837 00837 0259 404F inc* t_hour1
0838
00839 second_a0:
840 00840 025A 5A74 lds 74h,04h
841 00841 025B 2C4E eor t_hour0
842 00842 025C A262 jnz second_end3
843 00843 025D 5974 lds 74h,02h
844 00844 025E 2C4F eor t_hour1
845 00845 025F A262 jnz second_end3
846 00846 0260 584E lds t_hour0,00h
847 00847 0261 584F lds t_hour1,00h
00848 second_end3:
849 00849 0262 6C5F lda dis_time_f0
850 00850 0263 B265 jz second_end
00851 second_end2:
852 00852 0264 C27F call disp_time
00853 second_end:
854 00854 0265 6D56 mra reg_cf
855 00855 0266 6C55 lda check_csf
856 00856 0267 8269 jb0 f_csf
857 00857 0268 EE80 slow
00858 f_csf:
859 00859 0269 6C54 lda reg_ac
860 00860 026A F400 rts
00861 second_end1:
862 00862 026B 4774 ipc 74h
863 00863 026C 8A7C jb1 check_touch
00864 second_end4:
865 00865 026D 4060 inc* dis_time_f1
866 00866 026E 6C52 lda set_time1
867 00867 026F 8276 jb0 show_hour
868 00868 0270 6C60 lda dis_time_f1
869 00869 0271 8264 jb0 second_end2
870 00870 0272 5877 lds 77h,00h
871 00871 0273 060F lcp 01h,07h
872 00872 0274 0617 lcp 02h,07h
00873 ;lds 77h,01h
00874 ;lcp 05h,07h
875 00875 0275 D265 jmp second_end
00876 show_hour:
877 00877 0276 6C60 lda dis_time_f1
878 00878 0277 8264 jb0 second_end2
879 00879 0278 5877 lds 77h,00h
880 00880 0279 061F lcp 03h,07h
881 00881 027A 0627 lcp 04h,07h
00882 ;lds 77h,01h
00883 ;lcp 05h,07h
884 00884 027B D265 jmp second_end
00885 check_touch:
886 00886 027C 6C4A lda key_signal
887 00887 027D 826D jb0 second_end4
888 00888 027E D265 jmp second_end
00889 ;*****************************************
00890 disp_time:
891 00891 027F 1D30 mvh addr_l
892 00892 0280 1E30 mvu addr_l
893 00893 0281 1C4C mvl t_minute0
894 00894 0282 0808 lcd 01h,@hl
895 00895 0283 1C4D mvl t_minute1
896 00896 0284 0810 lcd 02h,@hl
897 00897 0285 1C4E mvl t_hour0
898 00898 0286 0818 lcd 03h,@hl
899 00899 0287 1C4F mvl t_hour1
900 00900 0288 0820 lcd 04h,@hl
901 00901 0289 6C53 lda half_sec
902 00902 028A 828E jb0 disp_t0
903 00903 028B 5874 lds 74h,00h
904 00904 028C 062C lcp 05h,04h
905 00905 028D D290 jmp disp_tend
00906 disp_t0:
907 00907 028E 58F4 lds 74h,01h
908 00908 028F 062C lcp 05h,04h
00909 disp_tend:
0910
911 00911 0290 F400 rts
00912 ;*****************************************
00913 disp_set_time:
914 00914 0291 6C51 lda set_time0
915 00915 0292 B29D jz stime_end0
0916
917 00917 0293 6C52 lda set_time1
918 00918 0294 8299 jb0 dis_hour
919 00919 0295 5874 lds 74h,00h
920 00920 0296 060C lcp 01h,04h
921 00921 0297 0614 lcp 02h,04h
922 00922 0298 D29C jmp stime_end
00923 dis_hour:
924 00924 0299 5874 lds 74h,00h
925 00925 029A 061C lcp 03h,04h
926 00926 029B 0624 lcp 04h,04h
00927 stime_end:
928 00928 029C C2AE call delay0
00929 stime_end0:
930 00930 029D F400 rts
00931 ;*****************************************
00932 latch_d: ; 51.2 ms
933 00933 029E 5AF5 lds 75h,05h
00934 latch_d0:
935 00935 029F 4774 ipc 74h
936 00936 02A0 9AA2 jb3 latch_d1
937 00937 02A1 D2A7 jmp lat_delay
00938 latch_d1:
939 00939 02A2 C2CF call delay5
940 00940 02A3 4175 dec* 75h
941 00941 02A4 A29F jnz latch_d0
942 00942 02A5 58C9 lds f_back,01h
943 00943 02A6 D2AD jmp latch_end
00944 lat_delay:
945 00945 02A7 0000 nop
946 00946 02A8 0000 nop
947 00947 02A9 C2CF call delay5
948 00948 02AA 4175 dec* 75h
949 00949 02AB A2A7 jnz lat_delay
950 00950 02AC 5849 lds f_back,00h
00951 latch_end:
952 00952 02AD F400 rts
0953
00954 ;*****************************************
00955 ;*********delay=
00956 delay0:
957 00957 02AE EA02 plc 02h
958 00958 02AF E802 she 02h
959 00959 02B0 E387 tmsx 110000111b
960 00960 02B1 FF00 halt
00961 rts
00962 ;*********************************
00963 ;*********delay=216.32 us ********
00964 delay1:
965 00965 02B2 C2BD call delay2
966 00966 02B3 0000 nop
967 00967 02B4 0000 nop
968 00968 02B5 0000 nop
969 00969 02B6 0000 nop
970 00970 02B7 0000 nop
971 00971 02B8 0000 nop
972 00972 02B9 0000 nop
973 00973 02BA 0000 nop
974 00974 02BB 0000 nop
00975 ; ori* 00h,04h
00976 ; lcp 00h,00h
977 00977 02BC F400 rts
00978 ;**********************************
00979 ;****** delay=3.36*a(b+1)+2.24 us
00980 delay2:
981 00981 02BD 5AF5 lds 75h,05h ;a
00982 del1:
983 00983 02BE 5DF4 lds 74h,0bh ;b
00984 del0:
985 00985 02BF 0000 nop
986 00986 02C0 4174 dec* 74h
987 00987 02C1 A2BF jnz del0
988 00988 02C2 4175 dec* 75h
989 00989 02C3 A2BE jnz del1
990 00990 02C4 F400 rts
00991 ;***********************************
00992 ;*********** delay=80ms **************
00993 delay3:
0994
995 00995 02C5 EA02 plc 02h
996 00996 02C6 E802 she 02h
997 00997 02C7 E354 tmsx 101010100b
998 00998 02C8 FF00 halt
999 00999 02C9 F400 rts
01000 ;***********************************
01001 ;*********** delay=438ms ***********
01002 delay4:
1003 01003 02CA EA02 plc 02h
1004 01004 02CB E802 she 02h
1005 01005 02CC E385 tmsx 110000101b
1006 01006 02CD FF00 halt
1007 01007 02CE F400 rts
01008 ;***********************************
01009 ;*********** delay=9.52ms ***********
01010 delay5:
1011 01011 02CF EA02 plc 02h
1012 01012 02D0 E802 she 02h
1013 01013 02D1 E309 tmsx 100001001b
1014 01014 02D2 FF00 halt
1015 01015 02D3 0000 nop
1016 01016 02D4 F400 rts
01017 ;***********************************
01018 ;*********** delay=15 ms ***********
01019 delay6:
1020 01020 02D5 EA02 plc 02h
1021 01021 02D6 E802 she 02h
1022 01022 02D7 E30F tmsx 100001111b
1023 01023 02D8 FF00 halt
1024 01024 02D9 F400 rts
01025 .endc
1026
01027 .table
01028 DATA 00H,bfh
01029 DATA 01H,86H
01030 DATA 02H,dbh
01031 DATA 03H,cfh
01032 DATA 04H,e6h
01033 DATA 05H,edh
01034 DATA 06H,fdh
01035 DATA 07H,a7h
01036 DATA 08H,ffh
01037 DATA 09H,efh
01038 .endt
1039
0 Error(s), 0 Warning(s)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -