⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 control10mm.asm

📁 包装机控制
💻 ASM
📖 第 1 页 / 共 4 页
字号:
;change:when 52/53=10*4,setb 71h,60/61h invalid
;P0             EQU    80H
;SP             EQU    81H
;DPL            EQU    82H
;DPH            EQU    83H
;PCON           EQU    87H
;TCON           EQU    88H
;TMOD           EQU    89H
;TL0            EQU    8AH
;TL1            EQU    8BH
;TH0            EQU    8CH
;TH1            EQU    8DH
;P1             EQU    90H
;SCON           EQU    98H
;SBUF           EQU    99H
;P2             EQU    00A0H
;IE             EQU    00A8H
;P3             EQU    00B0H
;IP             EQU    00B8H
;PSW            EQU    00D0H
;ACC            EQU    00E0H
;B              EQU    00F0H
;
;IT0            EQU    88H
;IE0            EQU    89H
;IT1            EQU    8AH
;IE1            EQU    8BH
;TR0            EQU    8CH
;TF0            EQU    8DH
;TR1            EQU    8EH
;TF1            EQU    8FH
;RI             EQU    98H
;TI             EQU    99H
;RB8            EQU    9AH
;TB8            EQU    9BH
;REN            EQU    9CH
;SM2            EQU    9DH
;SM1            EQU    9EH
;SM0            EQU    9FH
;EX0            EQU    00A8H
;ET0            EQU    00A9H
;EX1            EQU    00AAH
;ET1            EQU    00ABH
;ES             EQU    00ACH
;EA             EQU    00AFH
RXD            EQU    00B0H
TXD            EQU    00B1H
INT0           EQU    00B2H
INT1           EQU    00B3H
T0             EQU    00B4H
T1             EQU    00B5H
WR             EQU    00B6H
RD             EQU    00B7H
;PX0            EQU    00B8H
;PT0            EQU    00B9H
;PX1            EQU    00BAH
;PT1            EQU    00BBH
;PS             EQU    00BCH
;P              EQU    00D0H
;OV             EQU    00D2H
;RS0            EQU    00D3H
;RS1            EQU    00D4H
;F0             EQU    00D5H
;AC             EQU    00D6H
;CY             EQU    00D7H
CHECKOPEN      EQU    38H
CHECKSTOP      EQU    39H
DELAYNUM       EQU    3AH
DELAYTIMER     EQU    3BH
CUTNUM0        EQU    1AH
CUTNUM1        EQU     1BH
CUTNUM2        EQU     1CH
CUTNUM3        EQU     1DH
CUTCONTH       EQU     1EH
CUTCONTL        EQU    1FH

MAINMOTOR      EQU    P2.1
SWITCH         EQU    50H
TOSTOP         EQU    51H
MOTORSTATE     EQU    52H
STARTTOSTOP    EQU   53H
NOPAPER        EQU    54H
PAPERERR       EQU    55H
CUTBIT         EQU    57H
TR1PULSEADD    EQU    56H

        ORG    0000H
        SJMP   L0030H
        ORG    0003H
        LJMP   L09C6H
        ORG    000BH
        LJMP   L05A9H
        ORG    0013H
        LJMP   PAPERPRO
        ORG    001BH
        LJMP   L06A1H

L0030H:
        CLR    P2.0
        
        CLR    TR1PULSEADD
        SETB   MAINMOTOR
        CLR    MOTORSTATE
        CLR    TOSTOP
        CLR    STARTTOSTOP
        CLR    NOPAPER
        CLR    PAPERERR
        CLR    7FH
        CLR    7EH
        CLR    7DH
        CLR    7CH
        CLR    7AH
        CLR    79H
        CLR    69H
        CLR    6EH
        CLR    78H
        CLR    6DH
        SETB   74H
        CLR    73H
        CLR    72H
        CLR    70H
        SETB   6FH
        CLR    6CH
        CLR    6AH
        CLR    67H
        CLR    66H
        CLR    65H
        CLR    64H
        CLR    71H
        MOV    C,T0
        MOV    SWITCH,C

        MOV    C, P1.0
        MOV    76H, C
        MOV    C, P1.1
        MOV    75H, C
        CLR    RD
        LCALL  L09B7H
        LCALL  L09B7H
        SETB   RD
        MOV    A, #00H
        MOV    CHECKOPEN,A
        MOV    CHECKSTOP,A
        MOV    37H, A
        MOV    30H, A
        MOV    31H, A
        MOV    5AH, #0FFH
        MOV    5DH, A

        MOV    5FH, A
        MOV    6BH, A
        SETB   68H
        MOV    64H, A
        MOV    65H, A
        MOV    66H, A
        MOV    67H, A
        MOV    68H, A




        MOV    6CH, A
        MOV    56H, #0AH
        MOV    57H, A
        MOV    58H, A
        MOV    59H, A
        MOV    51H, A
        MOV    6DH, A
        MOV    CUTNUM0,#0EH
        MOV    CUTNUM1,#0DH
        MOV    CUTNUM2,A
        MOV    CUTNUM3,A
        MOV     CUTCONTH,A
        MOV    CUTCONTL,A

        MOV    R0, #40H
        MOV    R2, #10H
        MOV    R3, #04H
        LCALL  L0A07H
        MOV    40H, #0FH
        MOV    A, 41H
        CLR    C
        SUBB   A, #0AH
        JC     L00C0H
        MOV    41H, #02H
        SJMP   L00CAH
L00C0H:
        CLR    C
        MOV    A, 41H
        SUBB   A, #02H
        JNC    L00CAH
        MOV    41H, #02H
L00CAH:
        MOV    A, 42H
        CLR    C
        SUBB   A, #0AH
        JC     L00D4H
        MOV    42H, #00H
L00D4H:
        MOV    A, 43H
        CLR    C
        SUBB   A, #0AH
        JC     L00DEH
        MOV    43H, #00H
L00DEH:
        MOV    R0, #44H
        MOV    R2, #14H
        MOV    R3, #04H
        LCALL  L0A07H
        MOV    44H, #0FH
        MOV    A, 45H
        CLR    C
        SUBB   A, #0AH
        JC     L00F4H
        MOV    45H, #00H
L00F4H:
        MOV    A, 46H
        CLR    C
        SUBB   A, #0AH
        JC     L00FEH
        MOV    46H, #00H
L00FEH:
        MOV    A, 47H
        CLR    C
        SUBB   A, #0AH
        JC     L0108H
        MOV    47H, #00H
L0108H:


        MOV    R0,#CUTNUM0     ;DELAYTIME
        MOV    R2,#1CH
        MOV    R3,#04H
        LCALL  L0A07H
        MOV    CUTNUM0,#0EH
        MOV    CUTNUM1,#0DH
        MOV    A,CUTNUM2
        CLR    C
        SUBB   A,#0AH
        JC     CHECKCUTNUM3
        MOV    CUTNUM2,#00H
 CHECKCUTNUM3:
        MOV    A,CUTNUM3
        CLR    C
        SUBB   A,#0AH
        JC     CHECKDELAYTIME
        MOV    CUTNUM3,#00H


CHECKDELAYTIME:

        MOV    R0,#3CH     ;DELAYTIME
        MOV    R2,#18H
        MOV    R3,#04H
        LCALL  L0A07H
        MOV    3FH,#00H
        MOV    3CH,#0FH

CHECK3DH:
        MOV    A, 3DH
        CLR    C
        SUBB   A, #0AH
        JC     CHECKLEAST
        MOV    3DH, #01H
CHECKLEAST:
        MOV   A,3DH
        JNZ   OTHERS
        MOV   3DH,#01H


OTHERS:
        MOV    3EH, #00H
        MOV    3FH,#00H



L012EH:
        LCALL  L0795H
        MOV    R0, #48H
        MOV    R2, #30H
        MOV    R3, #08H
        LCALL  L0A07H
        MOV    48H, #0CH
        MOV    A, 49H
        CLR    C
        SUBB   A, #0AH
        JC     L0144H
        MOV    49H, #00H
L0144H:
        MOV    A, 4AH
        CLR    C
        SUBB   A, #0AH
        JC     L014EH
        MOV    4AH, #00H
L014EH:
        MOV    A, 4BH
        CLR    C
        SUBB   A, #0AH
        JC     L0158H
        MOV    4BH, #00H
L0158H:
        MOV    A, 4CH
        CLR    C
        SUBB   A, #0AH
        JC     L0162H
        MOV    4CH, #00H
L0162H:
        MOV    A, 4DH
        CLR    C
        SUBB   A, #0AH
        JC     L016CH
        MOV    4DH, #00H
L016CH:
        MOV    A, 4EH
        CLR    C
        SUBB   A, #0AH
        JC     L0176H
        MOV    4EH, #00H
L0176H:
        MOV    A, 4FH
        CLR    C
        SUBB   A, #0AH
        JC     L0180H
        MOV    4FH, #00H
L0180H:
        MOV    89H, #11H
        SETB   PX0
        SETB   EA
        SETB   77H
        SETB   EX0
        SETB   EX1
        SETB   ET0
        SETB   ET1
        MOV    TH1,#08DH
        MOV    TL1,#0EFH
        SETB   TR1
        MOV    DPTR, #0034H
        INC    0A2H
        MOV    DPTR, #0078H
        INC    0A2H
        MOV    A, 82H
        CJNE   A, #78H, L01A1H
        LJMP   L01A1H

L01A1H:
        MOV    A, 30H
        CJNE   A, #00H, L01AAH
        MOV    R0, #4CH
        SJMP   L01D9H
L01AAH:
        CJNE   A, #01H, L01B1H
        MOV    R0, #40H
        SJMP   L01D9H
L01B1H:
        CJNE   A, #02H, L01BFH
        JB     67H, L01BBH
        MOV    R0, #44H
        SJMP   L01D9H
L01BBH:
        MOV    R0, #56H
        SJMP   L01D9H
L01BFH:
        CJNE   A, #03H, L01C6H

        MOV    R0,#CUTNUM0
        SJMP   L01D9H
L01C6H:
        CJNE   A,#04H,L01D7H
        MOV    R0,#3CH
        SJMP   L01D9H
L01D7H:
        MOV    R0, #48H
L01D9H:
        LCALL  L0824H
        JB     INT0, L01E1H
        JB     P1.2,L01E1H
        SETB   64H
L01E1H:
        JNB    64H, L01ECH
        INC    6DH
        MOV    A, 6DH
        JNZ    L01ECH
        CLR    64H
L01ECH:
        JB     RD, L01FBH
        INC    5DH
        MOV    A, 5DH
        CJNE   A, #0AH, L01FBH
        MOV    5DH, #00H
        SETB   RD
L01FBH:
        JNB    69H, L020AH
        INC    51H
        MOV    A, 51H
        CJNE   A, #64H, L020AH
        MOV    51H, #00H
        CLR    69H
L020AH:
        JB     78H, L027FH
        JB     7DH, L026EH
        MOV    A, 90H
        ANL    A, #0F8H
        CJNE   A, #0F8H, L021CH
        MOV    64H, #00H
        LJMP   L01A1H
L021CH:
        INC    5FH
        MOV    A, 5FH
        CJNE   A, #0AH, L027CH
        MOV    5FH, #00H
        MOV    A, 90H
        ANL    A, #0F8H
        CJNE   A, #0F8H, L0233H
        MOV    64H, #00H
        LJMP   L01A1H
L0233H:
        JNB    6FH, L0245H
        JB     P1.6, L0245H
        INC    64H
        MOV    A, 64H
        CJNE   A, #0AH, L027CH
        MOV    64H, #00H
        SJMP   L0262H
L0245H:
        JB     P1.7, L0262H
        INC    64H
        MOV    A, 64H

        CJNE   A, #01H, L025CH
        MOV    A, 5AH
        CPL    0E0H.4
        MOV    5AH, A
        CLR    RD
        MOV    A, 64H
L025CH:
        CJNE   A, #0CH, L027CH
        MOV    64H, #00H
L0262H:
        MOV    5EH, 90H
        CLR    7CH
        LCALL  L028BH
        SETB   7DH
        CLR    RD
L026EH:
        INC    5FH
        MOV    A, 5FH
        CJNE   A, #0AH, L0288H
        MOV    5FH, #00H
        CLR    7DH
        SETB   78H
L027CH:
        LJMP   L01A1H
L027FH:
        MOV    A, 90H
        ANL    A, #0F8H
        CJNE   A, #0F8H, L0288H
        CLR    78H
L0288H:
        LJMP   L01A1H
L028BH:
        CLR    66H
        MOV    A, 5EH
        JB     0E0H.7, L0295H
        LJMP   L0529H
L0295H:
        JB     0E0H.6, L029BH
        LJMP   L02AEH
L029BH:
        JB     0E0H.5, L02A1H
        LJMP   L0359H
L02A1H:
        JB     0E0H.4, L02A7H
        LJMP   L03A9H
L02A7H:
        JB     0E0H.3, L02ADH
        LJMP   L0473H
L02ADH:
        RET
L02AEH:
        JNB    6FH, L02D2H
        SETB   STARTTOSTOP
        CLR    NOPAPER
        SETB   P2.2
        MOV    CUTCONTH,#00H
        MOV    CUTCONTL,#00H
        MOV    DELAYNUM,3DH
        CLR    6FH
        SETB   7FH
        CLR    69H
        CLR    TR0
        CLR    P2.0

        SETB   7BH
        CLR    7AH
        CLR    77H
        CLR    70H
        CLR    73H
        SETB   RD
        CLR    6CH
        CLR    6AH
        CLR    67H
        MOV    30H, #00H

L02D2H:



L031EH:
        INC    30H
        MOV    A, 30H
        CJNE   A, #01H, L0327H
        SJMP   L032FH
L0327H:
        CJNE   A, #05H, L0333H
        MOV    30H, #00H
        MOV    31H, #00H
        SETB   6FH
        SETB   77H
        MOV    5AH, #0FFH
        MOV    R0,#3CH
        MOV    R2,#18H
        MOV    R3,#02H
        LCALL  L09F0H
        LCALL  L0795H
        CLR    7FH
        RET

L032FH:
        MOV    31H,#02H
        MOV    5AH, #0F7H
        RET
L0333H:
        CJNE   A, #02H, L0342H
        MOV    31H,#02H
        MOV    5AH, #7FH
        MOV    R0, #40H
        MOV    R2, #10H
        MOV    R3, #04H
        LCALL  L09F0H
L0342H:
        CJNE   A, #03H, L0358H
        MOV    31H,#03H
        MOV    5AH, #0FDH
        MOV    R0, #44H
        MOV    R2, #14H
        MOV    R3, #04H
        LCALL  L09F0H
L0358H:
        CJNE   A,#04H,OUTSET
        MOV    31H,#02H
        MOV    5AH,#0DFH
        MOV    R0,#CUTNUM0
        MOV    R2,#1CH
        MOV    R3,#04H
        LCALL  L09F0H
 OUTSET:
        RET
L0359H:
        JNB    7FH, L0367H
        INC    31H
        MOV    A,30H
        CJNE   A,#03H,NEXTSEL
        MOV    A,31H
        CJNE   A,#05H,OUTTIMESEL
        MOV    31H,#03H
        SJMP   OUTTIMESEL
 NEXTSEL:
        CJNE   A,#04H,LAST
        MOV    A,31H
        CJNE   A, #03H, OUTTIMESEL
        MOV    31H, #02H
OUTTIMESEL:
        RET
LAST:

        MOV    A, 31H
        CJNE   A, #05H, L0366H
        MOV    31H, #02H
L0366H:
        RET
L0367H:
        CLR    70H
        CLR    73H
        CLR    69H
        INC    30H
        MOV    A, 30H
        CJNE   A, #01H, L0378H
        ANL    5AH, #0F7H
        RET
L0378H:
        CJNE   A, #02H, L0382H
        ORL    5AH, #0EEH
        ANL    5AH, #7FH
        RET
L0382H:
        CLR    67H
        CJNE   A, #03H, L038EH
        ORL    5AH, #0EEH
        ANL    5AH, #0FDH
        RET
L038EH:

        CJNE   A, #04H, L039BH
        ORL    5AH, #0EEH
        ANL    5AH, #0DFH
        RET
L039BH:
        CLR    6CH
        CLR    6AH
        MOV    30H, #00H
        ORL    5AH, #0EEH
        RET
L03A6H:
        LJMP   L042FH
L03A9H:
        JNB    7FH, L03A6H
        MOV    A, 30H
        CJNE   A, #01H, L03DEH
        MOV    A, 31H
        CJNE   A, #02H, L03C1H
        INC    41H
        MOV    A, 41H
        CJNE   A, #0AH, L03C0H
        MOV    41H, #02H
L03C0H:
        RET
L03C1H:
        CJNE   A, #03H, L03CFH
        INC    42H
        MOV    A, 42H
        CJNE   A, #0AH, L03CEH
        MOV    42H, #00H
L03CEH:
        RET
L03CFH:
        CJNE   A, #04H, L03DDH
        INC    43H
        MOV    A, 43H
        CJNE   A, #0AH, L03DCH
        MOV    43H, #00H
L03DCH:
        RET
L03DDH:
        RET
L03DEH:
        CJNE   A, #02H, L040DH
        MOV    A, 31H
        CJNE   A, #02H, L03F1H
        INC    45H
        MOV    A, 45H
        CJNE   A, #0AH, L03F0H
        MOV    45H, #00H
L03F0H:
        RET
L03F1H:
        CJNE   A, #03H, L03FFH
        INC    46H
        MOV    A, 46H
        CJNE   A, #0AH, L03FEH
        MOV    46H, #00H
L03FEH:
        RET
L03FFH:
        CJNE   A, #04H, L040CH
        INC    47H
        MOV    A, 47H

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -