📄 6351.lst
字号:
602 0192 0741 MOV A,AD_LOW
603 0193 00CB MOV METAL_VALE,A
604 0194
605 0194
606 0194 METAL_NEXT:
607 0194 ; CLR TIMER1
608 0194 ; CLR TIMER2
609 0194 ;
610 0194 ;WOOD_NEXT:
611 0194 0F01 MOV A,01H
612 0195 00DB MOV WOOD_CZ,A
613 0196 30C7 SET METAL_F
614 0197 3748 CLR AD_MIN_F
615 0198 2000 R CALL METAL_CHECK
616 0199 0759 MOV A,WOOD_COUNT
617 019A 00DC MOV WOOD_ZZ,A
618 019B 0F02 MOV A,02H
619 019C 00DB MOV WOOD_CZ,A
620 019D 30C7 SET METAL_F
621 019E 3748 CLR AD_MIN_F
622 019F 2000 R CALL METAL_CHECK
623 01A0 0759 MOV A,WOOD_COUNT
624 01A1 035C ADD A,WOOD_ZZ
625 01A2 0A1E SUB A,1EH
626 01A3 380A SNZ C
627 01A4 2800 R JMP N_METAL
628 01A5
629 01A5 3492 CLR METAL_LED
630 01A6
631 01A6 3192 SET BUZZER
632 01A7
633 01A7
634 01A7 METAL_OK_AGAIN:
635 01A7 0F01 MOV A,01H
636 01A8 00DB MOV WOOD_CZ,A
637 01A9 30C7 SET METAL_F
638 01AA 3748 CLR AD_MIN_F
639 01AB 2000 R CALL METAL_CHECK
640 01AC 0759 MOV A,WOOD_COUNT
641 01AD 00DC MOV WOOD_ZZ,A
642 01AE 0F02 MOV A,02H
643 01AF 00DB MOV WOOD_CZ,A
644 01B0 30C7 SET METAL_F
645 01B1 3748 CLR AD_MIN_F
646 01B2 2000 R CALL METAL_CHECK
647 01B3 0759 MOV A,WOOD_COUNT
648 01B4 035C ADD A,WOOD_ZZ
649 01B5 0A2A SUB A,2AH
650 01B6 380A SNZ C
651 01B7 2800 R JMP N_METAL
652 01B8 2800 R JMP METAL_OK_AGAIN
653 01B9
654 01B9
655 01B9
656 01B9
657 01B9
658 01B9
659 01B9
File: 6351.ASM Holtek Cross-Assembler Version 2.86 Page 12
660 01B9
661 01B9
662 01B9
663 01B9
664 01B9 N_METAL:
665 01B9 ; CLR ADMAX_LED
666 01B9 3092 SET METAL_LED
667 01BA 3592 CLR BUZZER
668 01BB METAL_AGAIN:
669 01BB 0001 CLR WDT
670 01BC 39CA SNZ TIMER1.3
671 01BD 2800 R JMP METAL_AGAIN
672 01BE 31C7 SET LOW_V_F
673 01BF 3748 CLR AD_MIN_F
674 01C0 2000 R CALL AD_CONVERT
675 01C1 0741 MOV A,AD_LOW
676 01C2 0244 SUB A,LVOLT_VALE
677 01C3 380A SNZ C
678 01C4 2800 R JMP S_LLED
679 01C5 ; CLR LV_LED
680 01C5 3194 SET LV_LED
681 01C6 2800 R JMP METAL_NEXT
682 01C7 S_LLED:
683 01C7 ; SET LV_LED
684 01C7 3594 CLR LV_LED
685 01C8 2800 R JMP METAL_NEXT
686 01C9 0003 RET
687 01CA
688 01CA
689 01CA
690 01CA
691 01CA
692 01CA WOOD_CHECK:
693 01CA 1F59 CLR WOOD_COUNT
694 01CB 0F28 MOV A,28H
695 01CC 00DA MOV WOOD_NUM,A
696 01CD W_CHECK_AG:
697 01CD 1F4A CLR TIMER1
698 01CE 1F56 CLR TIMER2
699 01CF 3147 SET WOOD_F
700 01D0 3748 CLR AD_MIN_F
701 01D1 2000 R CALL AD_CONVERT
702 01D2 0754 MOV A,WOOD_VALE
703 01D3 0241 SUB A,AD_LOW
704 01D4 380A SNZ C
705 01D5 2800 R JMP NO_WOOD
706 01D6 025B SUB A,WOOD_CZ
707 01D7 380A SNZ C
708 01D8 2800 R JMP NO_WOOD
709 01D9 14D9 INC WOOD_COUNT
710 01DA NO_WOOD:
711 01DA 0001 CLR WDT
712 01DB 384A SNZ TIMER1.0
713 01DC 2800 R JMP NO_WOOD
714 01DD 17DA SDZ WOOD_NUM
715 01DE 2800 R JMP W_CHECK_AG
716 01DF 0003 RET
717 01E0
718 01E0 WOOD_MEASURE:
719 01E0 3412 CLR WOOD_LED
File: 6351.ASM Holtek Cross-Assembler Version 2.86 Page 13
720 01E1 3147 SET WOOD_F
721 01E2 3748 CLR AD_MIN_F
722 01E3 2000 R CALL AD_CONVERT
723 01E4 MOODWOK:
724 01E4 0001 CLR WDT
725 01E5 3A56 SNZ TIMER2.4
726 01E6 2800 R JMP MOODWOK
727 01E7 3012 SET WOOD_LED
728 01E8 3147 SET WOOD_F
729 01E9 3748 CLR AD_MIN_F
730 01EA 2000 R CALL AD_CONVERT
731 01EB 0741 MOV A,AD_LOW
732 01EC 00D4 MOV WOOD_VALE,A
733 01ED 3548 CLR WOOD_ON_F
734 01EE WOOD_NEXT:
735 01EE 0F04 MOV A,04H
736 01EF 00DB MOV WOOD_CZ,A
737 01F0 3748 CLR AD_MIN_F
738 01F1 2000 R CALL WOOD_CHECK
739 01F2 0759 MOV A,WOOD_COUNT
740 01F3 00DC MOV WOOD_ZZ,A
741 01F4 0F03 MOV A,03H
742 01F5 00DB MOV WOOD_CZ,A
743 01F6 3147 SET WOOD_F
744 01F7 3748 CLR AD_MIN_F
745 01F8 ; CLR WOOD_CHECK
746 01F8 2000 R CALL WOOD_CHECK
747 01F9 0759 MOV A, WOOD_COUNT
748 01FA 035C ADD A,WOOD_ZZ
749 01FB 0A20 SUB A,20H
750 01FC 380A SNZ C
751 01FD 2800 R JMP N_WOOD
752 01FE ; SET ADMAX_LED
753 01FE 3412 CLR WOOD_LED
754 01FF ; SET WOOD_ON_F
755 01FF 3192 SET BUZZER
756 0200
757 0200
758 0200 WOOD_OK_AGAIN:
759 0200
760 0200 0F04 MOV A,04H
761 0201 00DB MOV WOOD_CZ,A
762 0202 3748 CLR AD_MIN_F
763 0203 2000 R CALL WOOD_CHECK
764 0204 0759 MOV A,WOOD_COUNT
765 0205 00DC MOV WOOD_ZZ,A
766 0206 0F03 MOV A,03H
767 0207 00DB MOV WOOD_CZ,A
768 0208 3147 SET WOOD_F
769 0209 3748 CLR AD_MIN_F
770 020A ; CLR WOOD_CHECK
771 020A 2000 R CALL WOOD_CHECK
772 020B 0759 MOV A, WOOD_COUNT
773 020C 035C ADD A,WOOD_ZZ
774 020D 0A2A SUB A,2AH
775 020E 380A SNZ C
776 020F 2800 R JMP N_WOOD
777 0210 ; SET ADMAX_LED
778 0210 3412 CLR WOOD_LED
779 0211 ; SET WOOD_ON_F
File: 6351.ASM Holtek Cross-Assembler Version 2.86 Page 14
780 0211 3192 SET BUZZER
781 0212
782 0212
783 0212
784 0212
785 0212
786 0212
787 0212
788 0212 2800 R JMP WOOD_OK_AGAIN
789 0213 N_WOOD:
790 0213 3012 SET WOOD_LED
791 0214 ; CLR ADMAX_LED
792 0214 3592 CLR BUZZER
793 0215 WOOD_AGAIN:
794 0215 0001 CLR WDT
795 0216 38CA SNZ TIMER1.1
796 0217 2800 R JMP WOOD_AGAIN
797 0218 31C7 SET LOW_V_F
798 0219 3748 CLR AD_MIN_F
799 021A 2000 R CALL AD_CONVERT
800 021B 0741 MOV A,AD_LOW
801 021C 0244 SUB A,LVOLT_VALE
802 021D 380A SNZ C
803 021E 2800 R JMP SET_LLED
804 021F 3194 SET LV_LED
805 0220 2800 R JMP WOOD_NEXT
806 0221 SET_LLED:
807 0221 3594 CLR LV_LED
808 0222 2800 R JMP WOOD_NEXT
809 0223 0003 RET
810 0224
811 0224
812 0224 AD_CONVERT:
813 0224 0001 CLR WDT
814 0225 1F57 CLR AD_PJ
815 0226 1F40 CLR TIMER
816 0227 1F41 CLR AD_LOW
817 0228 1F42 CLR AD_HIGH
818 0229 1F43 CLR AD_COUNT
819 022A 3847 SNZ VOLT_F
820 022B 2800 R JMP CONVERT_NEXT1
821 022C 0F19 MOV A,00011001B
822 022D 00A2 MOV ADCR,A
823 022E 2800 R JMP CONVERT_AGAIN
824 022F CONVERT_NEXT1:
825 022F 39C7 SNZ LOW_V_F
826 0230 2800 R JMP CONVERT_NEXT2
827 0231 0F1A MOV A,00011010B
828 0232 00A2 MOV ADCR,A
829 0233 2800 R JMP CONVERT_AGAIN
830 0234 CONVERT_NEXT2:
831 0234 0F18 MOV A,00011000B
832 0235 00A2 MOV ADCR,A
833 0236 0000 NOP
834 0237 0000 NOP
835 0238 CONVERT_AGAIN:
836 0238 37A2 CLR START
837 0239 0000 NOP
838 023A 0000 NOP
839 023B 33A2 SET START
File: 6351.ASM Holtek Cross-Assembler Version 2.86 Page 15
840 023C 0000 NOP
841 023D 0000 NOP
842 023E 0000 NOP
843 023F 37A2 CLR START
844 0240 0000 NOP
845 0241 0000 NOP
846 0242 WAIT_CONVERT:
847 0242 3F22 SZ EOC
848 0243 2800 R JMP WAIT_CONVERT
849 0244 0721 MOV A,ADRH
850 0245 03C1 ADDM A,AD_LOW
851 0246 3C0A SZ C
852 0247 14C2 INC AD_HIGH
853 0248 14C3 INC AD_COUNT
854 0249 39C3 SNZ AD_COUNT.3
855 024A 2800 R JMP AGAIN_CONVERT
856 024B 340A CLR C
857 024C 1BC2 RRC AD_HIGH
858 024D 1BC1 RRC AD_LOW
859 024E 340A CLR C
860 024F 1BC2 RRC AD_HIGH
861 0250 1BC1 RRC AD_LOW
862 0251 340A CLR C
863 0252 1BC2 RRC AD_HIGH
864 0253 1BC1 RRC AD_LOW
865 0254 14D7 INC AD_PJ
866 0255 14D7 INC AD_PJ
867 0256 0741 MOV A,AD_LOW
868 0257 3847 SNZ VOLT_F
869 0258 2800 R JMP PINJUN
870 0259 PINJUN1:
871 0259 0A32 SUB A,32H
872 025A 380A SNZ C
873 025B 2800 R JMP PINJUN
874 025C 14D7 INC AD_PJ
875 025D 2800 R JMP PINJUN1
876 025E PINJUN:
877 025E 3447 CLR VOLT_F
878 025F 35C7 CLR LOW_V_F
879 0260 34C7 CLR METAL_F
880 0261 3547 CLR WOOD_F
881 0262 0003 RET
882 0263 AGAIN_CONVERT:
883 0263 ; SZ VOLT_F
884 0263 ; JMP DLYCON
885 0263 0F01 MOV A,01H
886 0264 00DE MOV DLY_R1,A
887 0265 WMDLY:
888 0265 17DE SDZ DLY_R1
889 0266 2800 R JMP WMDLY
890 0267 2800 R JMP CONVERT_AGAIN
891 0268 DLYCON:
892 0268 0F06 MOV A,06H
893 0269 00DE MOV DLY_R1,A
894 026A 2800 R JMP WMDLY
895 026B ; SNZ TIMER.4
896 026B ; JMP AGAIN_CONVERT
897 026B 2800 R JMP CONVERT_AGAIN
898 026C
File: 6351.ASM Holtek Cross-Assembler Version 2.86 Page 16
0 Errors⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -