📄 wnl.lst
字号:
788 0162 0080 R mov r_numnlmonth,a
789 0163
790 0163 0700 R mov a,month
791 0164 2000 R call sub_hex2t
792 0165 0080 R mov r_nummonth,a
793 0166
794 0166 0700 R mov a,sec
795 0167 2000 R call sub_hex2t
796 0168 0080 R mov r_numsec,a
797 0169
798 0169 0700 R mov a,ndate_1
799 016A 2000 R call sub_hex2t
800 016B 0080 R mov r_numnldate,a
801 016C
802 016C 0700 R mov a,date
803 016D 2000 R call sub_hex2t
804 016E 0080 R mov r_numdate,a
805 016F
806 016F 0700 R mov a,remainday
807 0170 2000 R call sub_hex2t
808 0171 0080 R mov r_numremain,a
809 0172 0700 R mov a,week
810 0173 0080 R mov r_numweek,a
811 0174
812 0174 0003 ret
813 0175 ;;---------------------------------------------------
814 0175 main_clock_flash:
815 0175
816 0175
817 0175 3400 R clr flash
818 0176
819 0176 3C00 R sz autolednum.0
820 0177 2800 R jmp main_clock_flash_x
821 0178 2000 R call sub_getbitnum
822 0179
823 0179 0700 R mov a,bitnum2
824 017A 0CFF xor a,0ffh
825 017B 0600 R and a,bitnum2a
826 017C 0080 R mov bitnum2,a
827 017D 0700 R mov a,bitnum1
828 017E 0CFF xor a,0ffh
829 017F 0600 R and a,bitnum1a
830 0180 0080 R mov bitnum1,a
831 0181 0700 R mov a,bitnum3
832 0182 0CFF xor a,0ffh
833 0183 0600 R and a,bitnum3a
834 0184 0080 R mov bitnum3,a
835 0185 main_clock_flash_x:
836 0185
837 0185 3C00 R sz upfast
838 0186 0003 ret
839 0187 3C00 R sz downfast
"File: WNL.ASM Holtek Cross-Assembler Version 2.86 Page 15
840 0188 0003 ret
841 0189
842 0189 0FFF mov a,0ffh
843 018A 3C00 R sz set_flag.0 ;; year
844 018B 0080 R mov r_numyear,a
845 018C 3C00 R sz set_flag.1 ;; month
846 018D 0080 R mov r_nummonth,a
847 018E 3C00 R sz set_flag.2 ;; date
848 018F 0080 R mov r_numdate,a
849 0190 3C00 R sz set_flag.3 ;; hour
850 0191 0080 R mov r_numhour,a
851 0192 3C00 R sz set_flag.4 ;; min
852 0193 0080 R mov r_nummin,a
853 0194 0003 ret
854 0195
855 0195 main_alarm:
856 0195 3C00 R sz flash
857 0196 2800 R jmp main_alarm_flash
858 0197 main_alarm_1:
859 0197 2000 R call sub_getbitnum4
860 0198 3400 R clr bitnum4.3
861 0199 3000 R set bitnum4.2
862 019A main_alarm_2:
863 019A
864 019A 3000 R set flash
865 019B 0FFF mov a,0ffh
866 019C 0080 R mov r_numyear,a
867 019D 0080 R mov r_numnldate,a
868 019E 0080 R mov r_numnlmonth,a
869 019F 0080 R mov r_numsec,a
870 01A0 0080 R mov r_nummonth,a
871 01A1 0080 R mov r_numtemp,a
872 01A2 0080 R mov r_numdate,a
873 01A3 0FAA mov a,0aah ;; show "--"
874 01A4 3C00 R sz b_alarmflag
875 01A5 0F0B mov a,0bh ;; show "ON"
876 01A6 0080 R mov r_nummonth,a
877 01A7
878 01A7 0700 R mov a,r_almnum
879 01A8 0080 R mov r_numweek,a
880 01A9 2000 R call sub_getalmhournum
881 01AA
882 01AA 0700 R mov a,remainday
883 01AB 2000 R call sub_hex2t
884 01AC 0080 R mov r_numremain,a
885 01AD
886 01AD 0700 R mov a,almmin
887 01AE 2000 R call sub_hex2t
888 01AF 0080 R mov r_nummin,a
889 01B0 0003 ret
890 01B1 main_alarm_flash:
891 01B1 3400 R clr flash
892 01B2 3C00 R sz autolednum.0
893 01B3 2800 R jmp main_alarm_flash_x
894 01B4 2000 R call sub_getbitnum
895 01B5
896 01B5 0700 R mov a,bitnum2
897 01B6 0CFF xor a,0ffh
898 01B7 0600 R and a,bitnum2a
899 01B8 0080 R mov bitnum2,a
"File: WNL.ASM Holtek Cross-Assembler Version 2.86 Page 16
900 01B9 0700 R mov a,bitnum1
901 01BA 0CFF xor a,0ffh
902 01BB 0600 R and a,bitnum1a
903 01BC 0080 R mov bitnum1,a
904 01BD 0700 R mov a,bitnum3
905 01BE 0CFF xor a,0ffh
906 01BF 0600 R and a,bitnum3a
907 01C0 0080 R mov bitnum3,a
908 01C1 main_alarm_flash_x:
909 01C1
910 01C1 3C00 R sz upfast
911 01C2 2800 R jmp main_alarm_flash_2
912 01C3 3C00 R sz downfast
913 01C4 2800 R jmp main_alarm_flash_2
914 01C5
915 01C5 0FFF mov a,0ffh
916 01C6 3C00 R sz r_setalm.1
917 01C7 0080 R mov r_numhour,a
918 01C8 3C00 R sz r_setalm.2
919 01C9 0080 R mov r_nummin,a
920 01CA 3C00 R sz r_setalm.0
921 01CB 0080 R mov r_numweek,a
922 01CC 3C00 R sz r_setalm.3
923 01CD 0080 R mov r_nummonth,a
924 01CE
925 01CE
926 01CE main_alarm_flash_2:
927 01CE 0003 ret
928 01CF
929 01CF ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
930 01CF sub_led:
931 01CF
932 01CF sub_led_1:
933 01CF ;mov a,0ffh
934 01CF ;mov pb,a
935 01CF 0FFF mov a,0ffh
936 01D0 0092 mov pa,a
937 01D1 3294 set pcom5
938 01D2 3314 set pcom6
939 01D3 3394 set pcom7
940 01D4
941 01D4 0096 mov pc,a
942 01D5 0098 mov pd,a
943 01D6 009A mov pe,a
944 01D7 2800 R jmp $+1
945 01D8 2800 R jmp $+1
946 01D9 2800 R jmp $+1
947 01DA 2800 R jmp $+1
948 01DB 2800 R jmp $+1
949 01DC 2800 R jmp $+1
950 01DD
951 01DD
952 01DD
953 01DD
954 01DD 1480 R inc R_comnum
955 01DE 0700 R mov a,R_comnum
956 01DF 0A0C sub a,12
957 01E0 380A snz c
958 01E1 2800 R jmp led_com0
959 01E2 1F00 R clr R_comnum
"File: WNL.ASM Holtek Cross-Assembler Version 2.86 Page 17
960 01E3 ;;-------------------------------------------------------
961 01E3 ;;SCAN COMMON 0
962 01E3 led_com0:
963 01E3 0700 R mov a,R_comnum
964 01E4 1785 sdz acc
965 01E5 2800 R jmp led_com1 ;; com0
966 01E6
967 01E6 1100 R swapa r_numyear ;;SHOW THE SECOND CHARACTER OF YEAR(2)
968 01E7 2000 R call sub_getdisnumb
969 01E8 ; mov r_pcbuf,a
970 01E8 3C00 R sz bitnum2.0
971 01E9 3785 clr acc.7
972 01EA 0096 mov pc,a
973 01EB
974 01EB
975 01EB
976 01EB
977 01EB 1100 R swapa r_numhour
978 01EC 2000 R call sub_getdisnumb ;;SHOW THE HIGH CHARACTER OF HOUR
979 01ED ;mov r_pdbuf,a
980 01ED 0080 R MOV temp1,a
981 01EE 0CC0 XOR A,0C0H
982 01EF 3D0A SZ Z
983 01F0 2800 R JMP L_HOUREQU0
984 01F1 0700 R MOV A,temp1
985 01F2 2800 R JMP L_SHOWHOUR
986 01F3 L_HOUREQU0:
987 01F3 0FFF MOV A,0FFH
988 01F4 L_SHOWHOUR:
989 01F4 3C00 R sz bitnum1.0
990 01F5 3785 clr acc.7
991 01F6 0098 mov pd,a
992 01F7
993 01F7
994 01F7
995 01F7 1100 R swapa r_numtemp ;;SHOW THE HIGH CHARACTER OF TEMPLATE
996 01F8 2000 R call sub_getdisnumb
997 01F9 0080 R MOV temp1,a
998 01FA 0CC0 XOR A,0C0H
999 01FB 3D0A SZ Z
1000 01FC 2800 R JMP L_TEMPERATUREEQU0
1001 01FD 0700 R MOV A,temp1
1002 01FE 2800 R JMP L_SHOWTEMPERATURE
1003 01FF L_TEMPERATUREEQU0:
1004 01FF 0FFF MOV A,0FFH
1005 0200 L_SHOWTEMPERATURE:
1006 0200 3C00 R sz bitnum3.0
1007 0201 3785 clr acc.7
1008 0202
1009 0202 009A mov pe,a
1010 0203 led_com_0:
1011 0203 2800 R jmp $+1
1012 0204 2800 R jmp $+1
1013 0205 2800 R jmp $+1
1014 0206
1015 0206 3412 clr pcom0
1016 0207 0003 ret
1017 0208 ;;---------------------------------------------------------------
1018 0208 ;;SCAN COMMON 1
1019 0208 led_com1:
"File: WNL.ASM Holtek Cross-Assembler Version 2.86 Page 18
1020 0208 1785 sdz acc
1021 0209 2800 R jmp led_com2 ;; com1
1022 020A
1023 020A 0700 R mov a,r_numyear
1024 020B 2000 R call sub_getdisnumb ;;SHOW THE FIRST CHARACTER OF YEAR
1025 020C
1026 020C ;mov r_pcbuf,a
1027 020C 3C00 R sz bitnum2.1
1028 020D 3785 clr acc.7
1029 020E 0096 mov pc,a
1030 020F
1031 020F
1032 020F 0700 R mov a,r_numhour
1033 0210 2000 R call sub_getdisnumb ;;SHOW THE LOW CHARACTER OF HOUR
1034 0211 ;mov r_pdbuf,a
1035 0211 3C00 R sz bitnum1.1
1036 0212 3785 clr acc.7
1037 0213
1038 0213 0098 mov pd,a
1039 0214
1040 0214
1041 0214 0700 R mov a,r_numtemp
1042 0215 2000 R call sub_getdisnumb ;;SHOW THE LOW CHARACTER OF TEMPLATE
1043 0216 3C00 R sz bitnum3.1
1044 0217 3785 clr acc.7
1045 0218
1046 0218 009A mov pe,a
1047 0219 2800 R jmp $+1
1048 021A 2800 R jmp $+1
1049 021B 2800 R jmp $+1
1050 021C
1051 021C 3492 clr pcom1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -