📄 wl-6622.lst
字号:
241 0007C 08A3 bc FLAG_A,ON_OFF_F
242 0007D 0E06 JBS R6,ON_OFF
243 0007E 0AA3 BS FLAG_A,ON_OFF_F
244 0007F 0E46 JBS R6,ADD_KEY
245 00080 0A63 BS FLAG_A,UP_KEY_F
246 00081 0A23 BS FLAG_A,SAME_KEY
247 00082 0B63 BS FLAG_A,BEEP_FLAG
248 00083 09A3 BC FLAG_A,FLASH_LED
249 00084 0012 RET
250 ;--------------------
251 00085 HANDL_ON_OFF_P:
252 00085 08A3 BC FLAG_A,ON_OFF_F
253 00086 0F23 JBS FLAG_A,ON_FLAG
254 00087 148A JMP TO_SET_ON
255 00088 0923 BC FLAG_A,ON_FLAG
256 00089 0012 RET
257 0008A TO_SET_ON:
258 0008A 0B23 BS FLAG_A, ON_FLAG
259 0008B 00D3 CLR KEY_TEMP_RAM
260 0008C 0012 RET
261 ;---------------------
262 0008D WORK_KEY:
263 0008D 0E01 JBS TCC,0
264 0008E 085E BC FLAG_T1,TIME_OUT_FG
265 0008F 0E01 JBS TCC,0
266 00090 105D call beep_p
267 00091 149A JMP WORK_KEY_START
268 00092 0C5E JBC FLAG_T1,TIME_OUT_FG
269 00093 149A JMP WORK_KEY_START
270 00094 0A5E BS FLAG_T1,TIME_OUT_FG
271 00095 0561 INC TIME_OUT_RAM
272 00096 0FA1 JBS TIME_OUT_RAM,6
273 00097 149A JMP WORK_KEY_START
274 00098 0560 INC TIME_OUT_RAM1
275 00099 00E1 CLR TIME_OUT_RAM
276 0009A WORK_KEY_START:
277 0009A 0FC1 JBS TCC,7
278 0009B 14DF JMP Work_key_END
279 0009C 09C1 BC TCC,7
280 0009D 0BD0 BS FLAG_T,AD_IN_FG ;128*256*4=120MS
281 ;----------------------------------
282 0009E 1073 CALL SCAN_KEY
283 0009F 0EA3 JBS FLAG_A,ON_OFF_F
284 000A0 14A2 JMP SETING_ADD
285 000A1 1085 CALL HANDL_ON_OFF_P
286
287 000A2 SETING_ADD:
288 000A2 0F23 JBS FLAG_A,ON_FLAG
289 000A3 14B0 JMP WORK_ON0;LED_DISPLAY
290 000A4 0E63 JBS FLAG_A,UP_KEY_F
291 000A5 14C0 JMP LED_DISPLAY
292 000A6 0863 BC FLAG_A,UP_KEY_F
293 000A7 0413 MOV A,KEY_TEMP_RAM
294 000A8 1B03 xor a,@3;4
295 000A9 0E83 JBS STATUS,Z
296 000AA 14AE JMP WORK_KEY4
297 000AB 1800 MOV A,@0X00;4
298 000AC 0053 MOV KEY_TEMP_RAM,A
299 000AD 14C0 JMP LED_DISPLAY
300 000AE WORK_KEY4:
301 000AE 0553 inc KEY_TEMP_RAM;2008-5-21 22:05
302 000AF 14C0 JMP LED_DISPLAY
303 ;----------------------------------
304 000B0 WORK_ON0:
305 000B0 00E2 CLR KEY_TIME
306 000B1 0D23 JBC FLAG_A,ON_FLAG
307 000B2 14DF JMP WORK_KEY_END
308 000B3 WORK_ON1:
309 000B3 0986 BC R6,6;for stop program
310 000B4 0A05 bS R5,green_led
311 000B5 0A45 BS R5,blue_led
312 000B6 0A85 BS R5,yellow_led
313 ; BC R5,BUZZER
314 000B7 0BC6 BS R6,red_led
315 000B8 0000 NOP
316 000B9 0946 BC R6,5
317 000BA 1800 MOV A,@0X00;01;2008-5-21 22:05
318 000BB 0053 MOV KEY_TEMP_RAM,A
319 000BC 14DF JMP WORK_KEY_END
320 000BD WORK_ON:
321 000BD 0B23 BS FLAG_A,ON_FLAG
322 000BE 1800 MOV A , @0X00;01;2008-5-21 22:00
323 000BF 0053 MOV KEY_TEMP_RAM , A ;180
324 ;-------------------------------
325 000C0 LED_DISPLAY:
326 000C0 0F23 JBS FLAG_A,ON_FLAG
327 000C1 14DF JMP WORK_KEY_END
328 000C2 07E4 jz flash_time
329 000C3 14DF jmp WORK_KEY_END
330 000C4 18FA mov a,@0fah
331 000C5 0064 mov flash_time,a
332 ;CLR R5
333 000C6 0A05 bS R5,green_led
334 000C7 0A45 BS R5,blue_led
335 000C8 0A85 BS R5,yellow_led
336 ; BC R5,BUZZER
337 000C9 0BC6 BS R6,red_led
338 000CA 0FA3 jbs flag_a,FLASH_LED
339 000CB 14D0 jmp to_set_on1
340 000CC 0FE3 jbs flag_a,led_on
341 000CD 14D0 jmp to_set_on1
342 000CE 09E3 bc flag_a,led_on
343 000CF 0012 ret
344 000D0 to_set_on1:
345 000D0 0BE3 bs flag_a,led_on;C
346 000D1 0803 BC STATUS,C
347 000D2 06D3 RLC KEY_TEMP_RAM
348 000D3 0413 MOV A,KEY_TEMP_RAM
349 000D4 03C2 ADD PC,A
350 000D5 09C6 BC R6,red_led ;200
351 000D6 14DD JMP WORK_KEY_END1
352 000D7 0805 BC R5,green_led ;180
353 000D8 14DD JMP WORK_KEY_END1
354 000D9 0845 BC R5,blue_led ;160
355 000DA 14DD JMP WORK_KEY_END1
356 ; BC R5,yellow_led ;140
357 000DB 0805 BC R5,GREEN_LED
358 000DC 09C6 BC R6,RED_LED
359 ; JMP WORK_KEY_END1
360 ; BS R5,3 ;120
361 000DD WORK_KEY_END1:
362 000DD 0803 BC STATUS,C
363 000DE 0653 RRC KEY_TEMP_RAM
364 000DF WORK_KEY_END:
365 000DF 0012 RET
366 ;***************************************
367 ;Temperature_in
368 ;***************************************
369 000E0 Temperature_in:
370 000E0 0FD0 JBS FLAG_T , AD_IN_FG
371 000E1 14E7 JMP Temperature_in_END
372 000E2 09D0 BC FLAG_T , AD_IN_FG
373 000E3 10F7 CALL Deactivate_RC
374 000E4 180F MOV A , @0B00001111
375 000E5 0006 IOW IOC6
376 000E6 10E9 CALL Accumulation_RC ;CH1
377 000E7 Temperature_in_END:
378 000E7 0000 nop
379 000E8 0012 RET
380 ;***************************************
381 ;Accumulation_RC
382 ;***************************************
383 000E9 Accumulation_RC: ;7US
384 000E9 0803 BC STATUS , C
385 000EA 00D2 CLR RC_TIMEL_RAM
386 000EB 00D8 CLR RC_TIMEH_RAM
387 000EC Accumulation_RC1:
388 000EC 0552 INC RC_TIMEL_RAM ;1US
389 000ED 0C83 JBC STATUS , Z ;1US
390 000EE 0558 INC RC_TIMEH_RAM ;1US
391 000EF 0C83 JBC STATUS , Z ;1US
392 000F0 14F4 JMP ACC_END_PROTECT
393 000F1 0E86 JBS R6,2 ;1US
394 000F2 14EC JMP Accumulation_RC1 ;2US
395 000F3 ACC_END:
396 000F3 0012 RET
397 000F4 ACC_END_PROTECT:;FOR 断开保护
398 000F4 0986 BC R6,6
399 000F5 0946 BC R6,5
400 000F6 0012 RET
401 ;***************************************
402 ;Deactivate_RC
403 ;***************************************
404 000F7 Deactivate_RC:
405 000F7 0B06 BS R6,4
406 000F8 0000 NOP
407 000F9 0886 BC R6,2
408 000FA 0000 NOP
409 000FB 181B MOV A,@0B00011011
410 000FC 0006 IOW IOC6
411 000FD 0886 BC R6 ,2
412 000FE 18FF MOV A , @0X0FF
413 000FF 005B MOV DLEAY_RAM,A
414 00100 LOOP_DLEAY:
415 00100 01DB DEC DLEAY_RAM
416 00101 041B MOV A , DLEAY_RAM
417 00102 0E83 JBS STATUS , Z
418 00103 1500 JMP LOOP_DLEAY
419 00104 181F MOV A , @0B00011111
420 00105 0006 IOW IOC6
421 00106 0012 RET
422 ;***************************************
423 ;***************************************
424 00107 MAIN:
425
426 00107 10E0 CALL Temperature_in
427 00108 108D CALL WORK_KEY
428 00109 100A CALL Temperature_OUT
429
430 0010A 1507 JMP MAIN
431 0010B RESET:
432 0010B 180F MOV A , @0X0F
433 0010C 005F MOV CLR_RAM , A
434 0010D 1810 MOV A , @0X10
435 0010E 0044 MOV RSR , A ;清寄存器
436 0010F CLR_RAM1:
437 0010F 1800 MOV A , @0X00
438 00110 0040 MOV R0 , A
439 00111 0544 INC RSR
440 00112 01DF DEC CLR_RAM
441 00113 041F MOV A , CLR_RAM
442 00114 0E83 JBS STATUS , Z
443 00115 150F JMP CLR_RAM1
444 00116 00E0 CLR TIME_OUT_RAM1
445 00117 00E1 CLR TIME_OUT_RAM
446 00118 00E2 CLR KEY_TIME
447 00119 00E3 CLR FLAG_A
448
449 0011A 00CF CLR RF
450 0011B 1800 MOV A , @0X00
451 0011C 0005 IOW IOC5
452 0011D 181F MOV A , @0B00011111
453 0011E 0006 IOW IOC6
454 ; CLR R5
455 0011F 0A05 bS R5,green_led
456 00120 0A45 BS R5,blue_led
457 00121 0A85 BS R5,yellow_led
458 ; BC R5,BUZZER
459 00122 00C6 CLR R6
460 00123 0BC6 BS R6,red_led
461 00124 1830 MOV A,@0X30
462 00125 000B IOW IOCB
463 00126 1800 MOV A,@0B00000000
464 00127 000C IOW IOCC
465 00128 18F8 MOV A,@0B11111000
466 00129 000D IOW IOCD
467 0012A 1800 MOV A,@0X00
468 0012B 000E IOW IOCE
469 0012C 000F IOW IOCF
470
471 0012D 1807 MOV A,@0B00000111
472 0012E 0002 CONTW ;1:225 TCC
473 0012F 0B63 BS FLAG_A,BEEP_FLAG
474 00130 18E0 mov a,@0e0h
475 00131 0064 mov flash_time,a
476 00132 1507 JMP MAIN
477
478 ;***************************************
479 ;**********************************
0 Error(s), 0 Warning(s), 0 User Message(s)⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -