📄 qckz.lst
字号:
1 ;==========
2 ;================================================================================
3 0000 R0 == 0X00
4 0001 TCC == 0X01
5 0002 PC == 0x02
6 0003 R3 == 0X03
7 0005 PORT5 == 0X05
8 0006 PORT6 == 0X06
9 000F IOCF == 0X0F
10 000E IOCE == 0X0E
11 000D IOCD == 0X0D
12 000F R3F == 0X0F ;不同型号修改
13 0000 C == 0X00
14
15
16 0010 DELAY_C1 == 0X10
17 0012 PWM_C1 == 0X12
18 0013 PWM_C2 == 0X13
19 0014 FLAG == 0X14
20 0015 BA == 0X15
21 0016 BR3 == 0X16
22 0017 T_PARA == 0X17 ;变化周期
23 0018 I_PARA == 0X18 ;状态
24
25
26 0000 DIRECT_F == 0
27 0001 COMP_F == 1
28 0002 AC_FLAG == 2
29 ;===========================================================================
30 0001 TIME_PARA1== 1 ;可修改的时间参数
31 ;============================================================================
32
33 ORG 0X0
34 0000 1401 JMP START
35
36 ;============================================================================
37 ; ORG 0X8 ;中断服务程序
38 ;INTT:
39 ; MOV BA,A
40 ; SWAP BA
41 ; SWAPA R3
42 ; MOV BR3,A
43 ;
44 ; MOV A,R3F ;
45 ; JBS R3F,2
46 ; JMP INT_RETURN
47 ; clr R3F
48 ;
49 ; inc 0x1d
50 ; MOV A,PWM_C2
51 ; SUB A,T_PARA
52 ; JBS 0X03,0X02
53 ; JMP INT_RETURN0
54 ; MOV A,@0
55 ; MOV PWM_C2,A
56 ; MOV PWM_C1,A
57 ; MOV A,@TIME_PARA1 ;所有记数中断开始，严格同步
58 ; MOV DELAY_C1,A
59 ; BS FLAG,DIRECT_F
60 ; JMP INT_RETURN
61
62 ;INT_RETURN0:
63 ; INC PWM_C2 ;
64 ;
65 ;INT_RETURN:
66 ; SWAPA BR3
67 ; MOV R3,A
68 ; SWAPA BA
69 ; RETI
70 ;============================================================================
71
72
73 ;=====================================================================================
74 ;上电后程序通过读拨码开关的状态，决定颜色变化的周期，
75 ;以及开始点亮的初始状态
76 ;P61，P62，P63，决定点亮的初始状态，P65，P66，P67，决定点颜色变化的周期，P64另做选程序用（led,lamp），
77 ;P50,红，P51，绿，P52，蓝
78 ;=====================================================================================
79 0001 10B5 START: CALL INIT ;初始化
80 0002 1899 MOV A,@0X99
81 0003 0057 MOV T_PARA,A
82 /* MOV A,PORT6
83 RRCA PORT6
84 MOV T_PARA,A
85 AND A,@0X07
86 MOV I_PARA,A
87 SWAPA T_PARA
88 AND A,@0X07
89 CALL TRANS
90 MOV T_PARA,A
91
92
93 MOV T_PARA,A
94 MOV A,I_PARA
95 ADD PC,A
96 NOP ;JMP LOOP_T00取消第一个渐暗的状态
97 JMP LOOP_T10
98 JMP LOOP_T20
99 JMP LOOP_T30
100 JMP LOOP_T40
101 JMP LOOP_T50
102 JMP LOOP_T60
103 JMP LOOP_T70
104
105 TRANS: ADD PC,A
106 NOP
107 RETL @0X33
108 RETL @0X66
109 RETL @0X99
110 RETL @0X0CC
111 RETL @0X0FF
112 RETL @0X0FF
113 RETL @0X0FF
114 RETL @0X0FF
115 RETL @0X0FF */
116
117
118
119 0004 1800 LOOP_T00: MOV A,@0B00000000 ;RED GREEN BLUE=0
120 0005 0045 MOV PORT5,A
121
122 0006 0004 LOOP_T0: WDTC
123 0007 109E CALL DELAY
124 0008 10C8 CALL DETECT_AC
125 0009 0E14 JBS FLAG,DIRECT_F
126 000A 1406 JMP LOOP_T0
127 000B 0814 BC FLAG,DIRECT_F
128
129
130 000C 1800 LOOP_T10: MOV A,@0B00000000
131 000D 0045 MOV PORT5,A
132 ;============================================================
133 ;红色由暗渐亮，其他暗
134 ;============================================================
135 000E LOOP_T1:
136 000E 0004 WDTC
137 000F 109E CALL DELAY
138 0010 10C8 CALL DETECT_AC
139 0011 0412 MOV A,PWM_C1
140 0012 0113 SUB A,PWM_C2
141 0013 0E03 JBS 0X03,0
142 0014 141A JMP LT1
143 0015 0AC5 BS PORT5,3
144 0016 0E14 JBS FLAG,DIRECT_F
145 0017 140E JMP LOOP_T1
146 0018 0814 BC FLAG,DIRECT_F
147 0019 141E JMP LOOP_T20
148
149 001A 08C5 LT1: BC PORT5,3
150 001B 0E14 JBS FLAG,DIRECT_F
151 001C 140E JMP LOOP_T1
152 001D 0814 BC FLAG,DIRECT_F
153 ;============================================================
154 ;红的保持亮，绿色由暗渐亮
155 ;============================================================
156 001E LOOP_T20:
157 001E 1808 MOV A,@0B00001000;1
158 001F 0045 MOV PORT5,A
159
160 0020 0004 LOOP_T2: WDTC
161 0021 109E CALL DELAY
162 0022 10C8 CALL DETECT_AC
163 0023 0412 MOV A,PWM_C1
164 0024 0113 SUB A,PWM_C2
165 0025 0E03 JBS 0X03,0
166 0026 142C JMP LT2
167 0027 0A45 BS PORT5,1
168 0028 0E14 JBS FLAG,DIRECT_F
169 0029 1420 JMP LOOP_T2
170 002A 0814 BC FLAG,DIRECT_F
171 002B 1430 JMP LOOP_T30
172
173 002C 0845 LT2: BC PORT5,1
174 002D 0E14 JBS FLAG,DIRECT_F
175 002E 1420 JMP LOOP_T2
176 002F 0814 BC FLAG,DIRECT_F
177
178 ;============================================================
179 ;绿色保持亮，红色色由亮渐暗
180 ;============================================================
181 0030 LOOP_T30:
182 0030 180A MOV A,@0B00001010;1
183 0031 0045 MOV PORT5,A
184
185 0032 0004 LOOP_T3: WDTC
186 0033 109E CALL DELAY
187 0034 10C8 CALL DETECT_AC
188 0035 0412 MOV A,PWM_C1
189 0036 0113 SUB A,PWM_C2
190 0037 0E03 JBS 0X03,0
191 0038 143E JMP LT3
192 0039 08C5 BC PORT5,3
193 003A 0E14 JBS FLAG,DIRECT_F
194 003B 1432 JMP LOOP_T3
195 003C 0814 BC FLAG,DIRECT_F
196 003D 1442 JMP LOOP_T40
197
198 003E 0AC5 LT3: BS PORT5,3
199 003F 0E14 JBS FLAG,DIRECT_F
200 0040 1432 JMP LOOP_T3
201 0041 0814 BC FLAG,DIRECT_F
202
203 ;============================================================
204 ;绿色保持亮，兰色色由暗渐亮
205 ;============================================================
206 0042 1802 LOOP_T40: MOV A,@0B00000010;0
207 0043 0045 MOV PORT5,A
208
209 0044 0004 LOOP_T4: WDTC
210 0045 109E CALL DELAY
211 0046 10C8 CALL DETECT_AC
212 0047 0412 MOV A,PWM_C1
213 0048 0113 SUB A,PWM_C2
214 0049 0E03 JBS 0X03,0
215 004A 1450 JMP LT4
216 004B 0A85 BS PORT5,2
217 004C 0E14 JBS FLAG,DIRECT_F
218 004D 1444 JMP LOOP_T4
219 004E 0814 BC FLAG,DIRECT_F
220 004F 1454 JMP LOOP_T50
221
222 0050 0885 LT4: BC PORT5,2
223 0051 0E14 JBS FLAG,DIRECT_F
224 0052 1444 JMP LOOP_T4
225 0053 0814 BC FLAG,DIRECT_F
226
227 ;;============================================================
228 ;;兰色保持亮，绿色由亮渐暗
229 ;;============================================================
230 0054 1806 LOOP_T50: MOV A,@0B00000110;0
231 0055 0045 MOV PORT5,A
232
233 0056 0004 LOOP_T5: WDTC
234 0057 109E CALL DELAY
235 0058 10C8 CALL DETECT_AC
236 0059 0412 MOV A,PWM_C1
237 005A 0113 SUB A,PWM_C2
238 005B 0E03 JBS 0X03,0
239 005C 1462 JMP LT5
240 005D 0845 BC PORT5,1
241 005E 0E14 JBS FLAG,DIRECT_F
242 005F 1456 JMP LOOP_T5
243 0060 0814 BC FLAG,DIRECT_F
244 0061 1466 JMP LOOP_T60
245
246 0062 0A45 LT5: BS PORT5,1
247 0063 0E14 JBS FLAG,DIRECT_F
248 0064 1456 JMP LOOP_T5
249 0065 0814 BC FLAG,DIRECT_F
250
251 ;;============================================================
252 ;⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -