📄 6351.lst
字号:
300 00A0 2800 R JMP VOLTDF
301 00A1 3747 CLR V_DOWN_F
302 00A2
303 00A2 074C MOV A,AD_PRE
304 00A3 00C6 MOV AD_MIN,A
305 00A4
306 00A4 VOLTDF:
307 00A4 0741 MOV A,AD_LOW
308 00A5 0249 SUB A,VAC_LVALE
309 00A6 3C0A SZ C
310 00A7 2800 R JMP FIND_VOLTC
311 00A8 0749 MOV A,VAC_LVALE
312 00A9 00C6 MOV AD_MIN,A
313 00AA FIND_VOLTC:
314 00AA 0746 MOV A,AD_MIN
315 00AB 0249 SUB A,VAC_LVALE
316 00AC 380A SNZ C
317 00AD 2800 R JMP FIND_VOLTE
318 00AE 0749 MOV A,VAC_LVALE
319 00AF 00C6 MOV AD_MIN,A
320 00B0 FIND_VOLTE:
321 00B0 0741 MOV A,AD_LOW
322 00B1 00CC MOV AD_PRE,A
323 00B2 2800 R JMP FIND_VOLT
324 00B3 FIND_VOLTA:
325 00B3 3347 SET V_DOWN_F
326 00B4 36C7 CLR V_RISE_F
327 00B5 0749 MOV A,VAC_LVALE
328 00B6 0246 SUB A,AD_MIN
329 00B7 380A SNZ C
330 00B8 2800 R JMP FIND_VOLTB
331 00B9 0749 MOV A,VAC_LVALE
332 00BA 00C6 MOV AD_MIN,A
333 00BB FIND_VOLTB:
334 00BB 0741 MOV A,AD_LOW
335 00BC 00CC MOV AD_PRE,A
336 00BD FIND_VOLT:
337 00BD 3512 CLR VOLT_LED
338 00BE 3612 CLR ADMAX_LED
339 00BF 3592 CLR BUZZER
340 00C0 ; MOV A,AD_LOW
341 00C0 ; MOV AD_PRE,A
342 00C0 3047 SET VOLT_F
343 00C1 3748 CLR AD_MIN_F
344 00C2 2000 R CALL AD_CONVERT
345 00C3 0741 MOV A,AD_LOW
346 00C4 0249 SUB A,VAC_LVALE
347 00C5 380A SNZ C
348 00C6 2800 R JMP FIND_VOLTA
349 00C7 3612 CLR ADMAX_LED
350 00C8 3112 SET VOLT_LED
351 00C9 1F4A CLR TIMER1
352 00CA
353 00CA 0741 MOV A,AD_LOW
354 00CB 024C SUB A,AD_PRE
355 00CC 380A SNZ C
356 00CD 2800 R JMP V_DOWN
357 00CE 0257 SUB A,AD_PJ
358 00CF 380A SNZ C
359 00D0 2800 R JMP DO_AD
File: 6351.ASM Holtek Cross-Assembler Version 2.86 Page 7
360 00D1 32C7 SET V_RISE_F
361 00D2 0741 MOV A,AD_LOW
362 00D3 0245 SUB A,AD_MAX
363 00D4 380A SNZ C
364 00D5 2800 R JMP VAC_RISE
365 00D6 1F5D CLR AD_MAX_PRE
366 00D7 0741 MOV A,AD_LOW
367 00D8 340A CLR C
368 00D9 03C5 ADDM A,AD_MAX
369 00DA 3C0A SZ C
370 00DB 14DD INC AD_MAX_PRE
371 00DC 1BDD RRC AD_MAX_PRE
372 00DD 1BC5 RRC AD_MAX
373 00DE ; MOV AD_MAX,A
374 00DE VAC_RISE:
375 00DE 3B47 SNZ V_DOWN_F
376 00DF 2800 R JMP DO_AD
377 00E0 3747 CLR V_DOWN_F
378 00E1 0746 MOV A,AD_MIN
379 00E2 024C SUB A,AD_PRE
380 00E3 3C0A SZ C
381 00E4 2800 R JMP DO_AD
382 00E5 0745 MOV A,AD_MAX
383 00E6 024C SUB A,AD_PRE
384 00E7 380A SNZ C
385 00E8 2800 R JMP VAC_R_J
386 00E9 0A03 SUB A,03H
387 00EA 380A SNZ C
388 00EB 2800 R JMP VAC_R_J
389 00EC 074C MOV A,AD_PRE
390 00ED 00C6 MOV AD_MIN,A
391 00EE 2800 R JMP DO_AD
392 00EF VAC_R_J:
393 00EF 0745 MOV A,AD_MAX
394 00F0 0A03 SUB A,03H
395 00F1 00C6 MOV AD_MIN,A
396 00F2 2800 R JMP DO_AD
397 00F3 V_DOWN:
398 00F3
399 00F3 V_DMW:
400 00F3 074C MOV A,AD_PRE
401 00F4 0241 SUB A,AD_LOW
402 00F5 0257 SUB A,AD_PJ
403 00F6 380A SNZ C
404 00F7 2800 R JMP DO_AD
405 00F8 3347 SET V_DOWN_F
406 00F9 3AC7 SNZ V_RISE_F
407 00FA 2800 R JMP DO_AD
408 00FB 36C7 CLR V_RISE_F;电压由上升转为下降
409 00FC 3E48 SZ MAX_FST_F
410 00FD 2800 R JMP V_DMWA
411 00FE 1F5D CLR AD_MAX_PRE
412 00FF 074C MOV A,AD_PRE
413 0100 340A CLR C
414 0101 03C5 ADDM A,AD_MAX
415 0102 3C0A SZ C
416 0103 14DD INC AD_MAX_PRE
417 0104 1BDD RRC AD_MAX_PRE
418 0105 1BC5 RRC AD_MAX
419 0106
File: 6351.ASM Holtek Cross-Assembler Version 2.86 Page 8
420 0106 2800 R JMP DO_AD
421 0107 V_DMWA:
422 0107 074C MOV A,AD_PRE
423 0108 00C5 MOV AD_MAX,A
424 0109 3648 CLR MAX_FST_F
425 010A 2800 R JMP DO_AD
426 010B DOO_AD:
427 010B 0FFF MOV A,0FFH
428 010C 00D1 MOV BUZZ_R1,A
429 010D 3212 SET ADMAX_LED
430 010E 3512 CLR VOLT_LED
431 010F 32C8 SET VOLTMAX_F
432 0110 2800 R JMP VAD_UP3
433 0111 DO_AD:
434 0111 36C8 CLR VOLTMAX_F
435 0112 1F51 CLR BUZZ_R1
436 0113 0746 MOV A,AD_MIN
437 0114 0241 SUB A,AD_LOW
438 0115 3C0A SZ C
439 0116 2800 R JMP VAD_UP3
440 0117 0745 MOV A,AD_MAX
441 0118 0246 SUB A,AD_MIN
442 0119 0A04 SUB A,04H
443 011A 380A SNZ C
444 011B 2800 R JMP DOO_AD
445 011C 3512 CLR VOLT_LED
446 011D 3612 CLR ADMAX_LED
447 011E 30D1 SET BUZZ_R1.1
448 011F 2800 R JMP DOADDO
449 0120
450 0120 SETR11A:
451 0120 0741 MOV A,AD_LOW
452 0121 0246 SUB A,AD_MIN
453 0122 SETUPA:
454 0122 0A01 SUB A,01H
455 0123 380A SNZ C
456 0124 2800 R JMP VAD_UP3
457 0125 14D1 INC BUZZ_R1
458 0126 2800 R JMP SETUPA
459 0127
460 0127 ; JMP SETR11
461 0127 DOADDO:
462 0127 0745 MOV A,AD_MAX
463 0128 0246 SUB A,AD_MIN
464 0129 00CE MOV AD_SUB,A
465 012A 0A08 SUB A,08H
466 012B 380A SNZ C
467 012C 2800 R JMP SETR11
468 012D 340A CLR C
469 012E 1BCE RRC AD_SUB
470 012F 340A CLR C
471 0130 1BCE RRC AD_SUB
472 0131 340A CLR C
473 0132 1BCE RRC AD_SUB
474 0133 0741 MOV A,AD_LOW
475 0134 0246 SUB A,AD_MIN
476 0135 VAD_UP1:
477 0135 024E SUB A,AD_SUB
478 0136 380A SNZ C
479 0137 2800 R JMP VAD_UP2
File: 6351.ASM Holtek Cross-Assembler Version 2.86 Page 9
480 0138 1AD1 RLC BUZZ_R1
481 0139 ; SET C
482 0139 ; RLC BUZZ_R1
483 0139 2800 R JMP VAD_UP1
484 013A SETR11:
485 013A 0FFF MOV A,0FFH
486 013B 00D1 MOV BUZZ_R1,A
487 013C ;SET BUZZ_R1.1
488 013C VAD_UP2:
489 013C 0751 MOV A,BUZZ_R1
490 013D 390A SNZ Z
491 013E 3051 SET BUZZ_R1.0
492 013F ; SET BUZZ_R1.1
493 013F
494 013F VAD_UP3:
495 013F 0751 MOV A,BUZZ_R1
496 0140 0A40 SUB A,40H
497 0141 380A SNZ C
498 0142 2800 R JMP QADMAX
499 0143 3212 SET ADMAX_LED
500 0144 3512 CLR VOLT_LED
501 0145 32C8 SET VOLTMAX_F
502 0146 2800 R JMP ADMAX1
503 0147 QADMAX:
504 0147 3512 CLR VOLT_LED
505 0148 3612 CLR ADMAX_LED
506 0149 ADMAX1:
507 0149 0F08 MOV A,08
508 014A 00D5 MOV TEMP,A
509 014B SOUD_LOP:
510 014B ; CLR C
511 014B 1BD1 RRC BUZZ_R1
512 014C ; RRC BUZZ_R2
513 014C 380A SNZ C
514 014D 2800 R JMP CLR_BUZZ
515 014E 3192 SET BUZZER
516 014F 3EC8 SZ VOLTMAX_F
517 0150 2800 R JMP SET_BUZZ
518 0151 3612 CLR ADMAX_LED
519 0152 3112 SET VOLT_LED
520 0153 2800 R JMP SET_BUZZ
521 0154 CLR_BUZZ:
522 0154 3592 CLR BUZZER
523 0155 3EC8 SZ VOLTMAX_F
524 0156 2800 R JMP SET_BUZZ
525 0157 3612 CLR ADMAX_LED
526 0158 3512 CLR VOLT_LED
527 0159 ; JMP DOAD_END
528 0159 SET_BUZZ:
529 0159 ; SET BUZZER
530 0159 DOAD_END:
531 0159 VAD_WAIT:
532 0159 0001 CLR WDT
533 015A 38D6 SNZ TIMER2.1
534 015B 2800 R JMP VAD_WAIT
535 015C 1F56 CLR TIMER2
536 015D
537 015D 17D5 SDZ TEMP
538 015E 2800 R JMP SOUD_LOP
539 015F 0741 MOV A,AD_LOW
File: 6351.ASM Holtek Cross-Assembler Version 2.86 Page 10
540 0160 00CC MOV AD_PRE,A
541 0161 1F4A CLR TIMER1
542 0162 1F56 CLR TIMER2
543 0163 36C8 CLR VOLTMAX_F
544 0164 35C8 CLR BUZZ_OFF
545 0165 31C7 SET LOW_V_F
546 0166 3748 CLR AD_MIN_F
547 0167 ; CLR AD_MIN_F
548 0167 2000 R CALL AD_CONVERT
549 0168 0741 MOV A,AD_LOW
550 0169 0244 SUB A,LVOLT_VALE
551 016A 380A SNZ C
552 016B 2800 R JMP SET_LOWLED
553 016C 3194 SET LV_LED
554 016D 2800 R JMP FIND_VOLT
555 016E SET_LOWLED:
556 016E 3594 CLR LV_LED
557 016F 2800 R JMP FIND_VOLT
558 0170 0003 RET
559 0171
560 0171
561 0171
562 0171
563 0171 METAL_CHECK:
564 0171 1F59 CLR WOOD_COUNT
565 0172 0F28 MOV A,28H
566 0173 00DA MOV WOOD_NUM,A
567 0174 M_CHECK_AG:
568 0174 1F4A CLR TIMER1
569 0175 1F56 CLR TIMER2
570 0176 30C7 SET METAL_F
571 0177 3748 CLR AD_MIN_F
572 0178 2000 R CALL AD_CONVERT
573 0179 074B MOV A,METAL_VALE
574 017A 0241 SUB A,AD_LOW
575 017B 380A SNZ C
576 017C 2800 R JMP NOT_METALD
577 017D 025B SUB A,WOOD_CZ
578 017E 380A SNZ C
579 017F 2800 R JMP NOT_METALD
580 0180 14D9 INC WOOD_COUNT
581 0181 NOT_METALD:
582 0181 384A SNZ TIMER1.0
583 0182 2800 R JMP NOT_METALD
584 0183 17DA SDZ WOOD_NUM
585 0184 2800 R JMP M_CHECK_AG
586 0185 0003 RET
587 0186
588 0186 METAL_MEASURE:
589 0186 3492 CLR METAL_LED
590 0187 1F4A CLR TIMER1
591 0188 30C7 SET METAL_F
592 0189 3748 CLR AD_MIN_F
593 018A 2000 R CALL AD_CONVERT
594 018B METALWOK:
595 018B 0001 CLR WDT
596 018C 3A56 SNZ TIMER2.4
597 018D 2800 R JMP METALWOK
598 018E 3092 SET METAL_LED
599 018F 30C7 SET METAL_F
File: 6351.ASM Holtek Cross-Assembler Version 2.86 Page 11
600 0190 3748 CLR AD_MIN_F
601 0191 2000 R CALL AD_CONVERT
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -