📄 wan nian li.lst
字号:
"File: WAN NIAN LI.ASM Holtek Cross-Assembler Version 2.86 Page 1
1 0000 #INCLUDE WANNIANLI.INC
2 0052 ;;************************************************
3 0052 ;;******************MASK OPTION*******************
4 0052 ;;************************************************
5 0052 ;;MCU BODY: HT45R02
6 0052 ;;PRODUCT: 51 PIN COB
7 0052 ;;FSYS: RC MODE(270K=4MHZ)
8 0052 ;;VDD: 5V
9 0052 ;;WAKE-UP: NONE WAKE-UP
10 0052 ;;PULL-HIGH: PA,PC,PD AND PE PORT PULL-HIGH
11 0052 ;;NONE PULL-HIGH: PB PORT NONE PULL-HIGH
12 0052 ;;BZ OUTPUT: PB1,PB0=I/O,I/O
13 0052 ;;WDT: WDT DISABLE
14 0052 ;;CLR WDT: ONE CLEAR INSTRUCTION
15 0052 ;;FS CLOCK SOURCE: RTC OSC
16 0052 ;;LVR: DISABLE
17 0052 ;;TIMER COUNTER CLOCK SOURCE: FSP
18 0052 ;;ESTABLISHED DATE: 2005/08/29
19 0052 ;;LED SHOW SINGLE NUMBER
20 0052 ;;************************************************
21 0052 ;;*******************CODE SECTION*****************
22 0052 ;;************************************************
23 0000 MAIN. SECTION AT 0H 'CODE'
24 0000 ORG 00H
25 0000 2809 JMP MAIN
26 0001 ORG 04H
27 0004 0004 RETI
28 0005 ORG 08H
29 0008 2DCA JMP ISR_TIMER
30 0009 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
31 0009 MAIN:
32 0009 1F0B CLR INTC
33 000A
34 000A ; MOV A,R_TCODE1
35 000A ; XOR A,55H
36 000A ; SNZ Z
37 000A ; JMP L_INI_RAM
38 000A ; MOV A,R_TCODE2
39 000A ; XOR A,0AAH
40 000A ; SZ Z
41 000A ; JMP L_INI_REGISTER
42 000A L_INI_RAM:
43 000A 20D4 CALL INI_RAM
44 000B L_INI_REGISTER:
45 000B 20F5 CALL INI_REGISTER
46 000C 2000 R CALL SBR_TESTLED
47 000D 320E SET TMRC.4
48 000E 300B SET INTC.0
49 000F ;;************************************************
50 000F MLP_MAIN:
51 000F L_PROCESSCLOCK:
52 000F 3800 R SNZ F_SECOND
53 0010 2817 JMP L_PROCESSKEY
54 0011
55 0011 2518 CALL SBR_CLOCK
56 0012 24EA CALL SBR_CHECKALARM
57 0013
"File: WAN NIAN LI.ASM Holtek Cross-Assembler Version 2.86 Page 2
58 0013 2505 CALL SBR_CHECKINTEGERALARM
59 0014 2000 R CALL SBR_CHECKALARMING
60 0015 2000 R CALL SBR_CHECKSTOPALARMING
61 0016
62 0016 2000 R CALL SBR_TRANSMITCOMMANDINTIAL
63 0017 ;;------------------------------------------------
64 0017 L_PROCESSKEY:
65 0017 239A CALL SBR_KEYSCAN
66 0018
67 0018 3C00 R SZ F_VALIDKEY
68 0019 3000 R SET F_BUZZERON ;;KEY TONE
69 001A
70 001A 2560 CALL SBR_STOPADJUSTTIME
71 001B 256B CALL SBR_SETSOLARTERMLEDMODE
72 001C
73 001C 3800 R SNZ F_UPDATEDATE
74 001D 2821 JMP L_CHECKADJUSTALARM
75 001E 2108 CALL SBR_GETLUNARCALENDAR
76 001F 2172 CALL SBR_GETWEEK
77 0020 2193 CALL SBR_GETSOLARTERM
78 0021 ;;************************************************
79 0021 L_CHECKADJUSTALARM:
80 0021
81 0021 1080 R SZ R_SETMODE2
82 0022 2824 JMP L_CHECKADJUSTALNUMBER
83 0023 2883 JMP L_CHECKADJUSTALARMEXIT
84 0024 L_CHECKADJUSTALNUMBER:
85 0024 3800 R SNZ R_SETMODE2.0
86 0025 282B JMP L_SHOWALARMNUMBER
87 0026 3800 R SNZ F_LEDFLASH
88 0027 282B JMP L_SHOWALARMNUMBER
89 0028 0FFF MOV A,0FFH
90 0029 0080 R MOV R_LEDWEEK,A
91 002A 282D JMP L_CHECKADJUSTALHOUR
92 002B L_SHOWALARMNUMBER:
93 002B 0700 R MOV A,R_ALARMNUMBER
94 002C 0080 R MOV R_LEDWEEK,A
95 002D ;;------------------------------------------------
96 002D L_CHECKADJUSTALHOUR:
97 002D 3800 R SNZ R_SETMODE2.1
98 002E 2834 JMP L_SHOWALARMHOUR
99 002F 3800 R SNZ F_LEDFLASH
100 0030 2834 JMP L_SHOWALARMHOUR
101 0031 0FFF MOV A,0FFH
102 0032 0080 R MOV R_LEDHOUR,A
103 0033 2847 JMP L_CHECKADJUSTALMINUTE
104 0034 L_SHOWALARMHOUR:
105 0034 0700 R MOV A,R_ALARMNUMBER
106 0035 0C01 XOR A,01H
107 0036 390A SNZ Z
108 0037 283D JMP L_SHOWALARMHOUR2
109 0038 0700 R MOV A,R_ALARMHOUR1
110 0039 2548 CALL SBR_CONVERTCLOCKMODE
111 003A 22C9 CALL SBR_HEXTODEC
112 003B 0080 R MOV R_LEDHOUR,A
113 003C 2847 JMP L_CHECKADJUSTALMINUTE
114 003D L_SHOWALARMHOUR2:
115 003D 0700 R MOV A,R_ALARMNUMBER
116 003E 0C02 XOR A,02H
117 003F 390A SNZ Z
"File: WAN NIAN LI.ASM Holtek Cross-Assembler Version 2.86 Page 3
118 0040 2846 JMP L_SHOWALARMHOUR3
119 0041 0700 R MOV A,R_ALARMHOUR2
120 0042 2548 CALL SBR_CONVERTCLOCKMODE
121 0043 22C9 CALL SBR_HEXTODEC
122 0044 0080 R MOV R_LEDHOUR,A
123 0045 2847 JMP L_CHECKADJUSTALMINUTE
124 0046 L_SHOWALARMHOUR3:
125 0046 2847 JMP L_CHECKADJUSTALMINUTE
126 0047 ;;------------------------------------------------
127 0047 L_CHECKADJUSTALMINUTE:
128 0047 3800 R SNZ R_SETMODE2.2
129 0048 284E JMP L_SHOWALMINUTE
130 0049 3800 R SNZ F_LEDFLASH
131 004A 284E JMP L_SHOWALMINUTE
132 004B 0FFF MOV A,0FFH
133 004C 0080 R MOV R_LEDMINUTE,A
134 004D 285F JMP L_CHECKADJUSTALARMON_OFF
135 004E L_SHOWALMINUTE:
136 004E 0700 R MOV A,R_ALARMNUMBER
137 004F 0C01 XOR A,01H
138 0050 390A SNZ Z
139 0051 2856 JMP L_SHOWALMINUTE2
140 0052 0700 R MOV A,R_ALARMMINUTE1
141 0053 22C9 CALL SBR_HEXTODEC
142 0054 0080 R MOV R_LEDMINUTE,A
143 0055 285F JMP L_CHECKADJUSTALARMON_OFF
144 0056 L_SHOWALMINUTE2:
145 0056 0700 R MOV A,R_ALARMNUMBER
146 0057 0C02 XOR A,02H
147 0058 390A SNZ Z
148 0059 285E JMP L_SHOWALMINUTE3
149 005A 0700 R MOV A,R_ALARMMINUTE2
150 005B 22C9 CALL SBR_HEXTODEC
151 005C 0080 R MOV R_LEDMINUTE,A
152 005D 285F JMP L_CHECKADJUSTALARMON_OFF
153 005E L_SHOWALMINUTE3:
154 005E 285F JMP L_CHECKADJUSTALARMON_OFF
155 005F ;;------------------------------------------------
156 005F L_CHECKADJUSTALARMON_OFF:
157 005F 3800 R SNZ R_SETMODE2.3
158 0060 2866 JMP L_SHOWALON_OFF
159 0061 3800 R SNZ F_LEDFLASH
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -