control10mm.asm

包装机控制

        LCALL  L0AEEH
        MOV    62H, R3
        MOV    63H, R2
        MOV    DPTR, #0034H
        INC    0A2H
        MOV    DPTR, #0078H
        INC    0A2H
        MOV    A, 82H
        CJNE   A, #78H, L0823H
        LJMP   L0823H
L0823H:
        RET
L0824H:
        MOV    DPTR, #TABLE
        JB     7EH, L0834H
        MOV    A, 31H
        CJNE   A, #01H, L0834H
        MOV    80H, #0FFH
        SJMP   L083DH
L0834H:
        MOV    A, @R0
        MOVC   A, @A+DPTR
        MOV    80H, A
        JNB    66H, L083DH
        CLR    P0.3
L083DH:
        CLR    P2.4
        LCALL  L08F8H
        SETB   P2.4
        INC    R0
        JB     7EH, L0852H
        MOV    A, 31H
        CJNE   A, #02H, L0852H
        MOV    80H, #0FFH
        SJMP   L0856H
L0852H:
        MOV    A, @R0
        MOVC   A, @A+DPTR
        MOV    80H, A
L0856H:
        CLR    P2.5
        LCALL  L08F8H
        SETB   P2.5
        INC    R0
        JB     7EH, L086BH
        MOV    A, 31H
        CJNE   A, #03H, L086BH
        MOV    80H, #0FFH
        SJMP   L0879H
L086BH:
        MOV    A, @R0
        MOVC   A, @A+DPTR
        MOV    80H, A
        ;MOV    A, 30H
        ;CJNE   A, #03H, L0879H
        ;JB     6AH, L0879H
        ;CLR    P0.3
L0879H:
        CLR    P2.6
        LCALL  L08F8H
        SETB   P2.6
        INC    R0
        JB     7EH, L088EH
        MOV    A, 31H
        CJNE   A, #04H, L088EH
        MOV    80H, #0FFH
        SJMP   L0892H
L088EH:
        MOV    A, @R0
        MOVC   A, @A+DPTR
        MOV    80H, A
L0892H:
        CLR    P2.7
        LCALL  L08F8H
        SETB   P2.7
        MOV    80H, 5AH
        MOV    A, 30H
        JNB    70H, ISPAPERERR
        MOV    C, 7EH
        MOV    P0.1, C
        JB     7EH,L08AAH
        CLR    RD
ISPAPERERR:
        JNB    NOPAPER,L08AAH
        MOV    C,7EH
        MOV    P0.5,C
        JB     7EH, L08AAH
        CLR    RD


L08AAH:
        JNB    64H, L08AFH
        CLR    P0.2

L08AFH:
        CLR    P2.3
        LCALL  L08F8H
        SETB   P2.3
        INC    37H
        MOV    A, 37H
        CJNE   A, #1EH, L08C2H
        MOV    37H, #00H
        CPL    7EH
L08C2H:
        JB     7FH, L08F7H
        JNB    72H, L08F7H
        CLR    72H
        MOV    A, 30H
        CJNE   A, #03H, L08F7H
        JNB    6AH, L08DDH
        MOV    R2, #00H
        MOV    R3, #06H
        LCALL  L0AC6H
        MOV    R6, 04H
        MOV    R7, 05H
L08DDH:
        LCALL  L0AACH
        MOV    A, R4
        ANL    A, #0F0H
        SWAP   A
        MOV    65H, A
        MOV    A, R4
        ANL    A, #0FH
        MOV    66H, A
        MOV    A, R5
        ANL    A, #0F0H
        SWAP   A
        MOV    67H, A
        MOV    A, R5
        ANL    A, #0FH
        MOV    68H, A
        RET
L08F7H:
        RET
L08F8H:
        MOV    35H, #04H
L08FBH:
        MOV    36H, #32H

CHECKMOTOR:
        JB     SWITCH,SWITCHISOPEN
        JNB    T0,CHECKSTART;WAIT FOR FROM 0 TO 1,START MAINMOTOR
        INC    CHECKOPEN
        MOV    A,CHECKOPEN
        CJNE   A,#02H,CHECKSTART
        MOV    CHECKOPEN,#00H
        SETB   SWITCH
        SJMP   IS0TO1
SWITCHISOPEN:
        JB      T0, CHECKSTART
        INC     CHECKSTOP
        MOV     A,CHECKSTOP
        CJNE    A,#02H,CHECKSTART
        MOV     CHECKSTOP,#00H
        CLR     SWITCH
IS1TO0:
                              ; 主机已关，不动作，返回等待
        SETB    STARTTOSTOP;主机开，置位关主机信号，在启动信号到来时停机 。
        SJMP    CHECKSTART
IS0TO1:
        CLR     6EH
        CLR     MAINMOTOR
        ;SETB    P2.2
        ;MOV    CUTCONTH,#00H
        ;MOV    CUTCONTL,#00H
        SETB    MOTORSTATE    ;IS 0 T
        CLR     NOPAPER
        CLR     PAPERERR
        CLR     TOSTOP
        CLR     STARTTOSTOP
        MOV    DELAYNUM,3DH
CHECKSTART:
         NOP
         NOP
L08FEH:
        JB     76H, L096CH
        JNB    P1.0, L0971H
        MOV    6EH, #0FAH
L0907H:
        JNB    P1.0, L0971H
        DJNZ   6EH, L0907H
        SETB   76H
        SETB   P2.2
        JNB    STARTTOSTOP,CHECKRES
        CLR    STARTTOSTOP
        SETB   TOSTOP


CHECKRES:
        SETB   EX1
        SETB   EX0
        JB     79H, L0971H
        JNB    77H, L0971H
        JB     PAPERERR,L0971H
        JNB    74H, L0971H
        CLR    74H
        CLR    71H

        CLR    TR1PULSEADD
        MOV    R6, #00H
        MOV    R7, 6BH
        JB     68H, L0927H
        MOV    R6, #01H
L0927H:

        CLR    69H

        MOV    6BH, #00H
        SETB   68H
        SETB   TR1PULSEADD


L0961H:
        CLR    70H
        CLR    7AH
L0965H:
        LCALL  L0560H
        SETB   72H
        SJMP   L0971H
L096CH:
        JB     P1.0, L0971H
        CLR    76H
L0971H:
        JNB    75H, L098FH
        JB     P1.1, L0994H
        MOV    6EH, #7DH
L097AH:
        JB     P1.1, L0994H
        DJNZ   6EH, L097AH
        CLR    75H
        JNB    77H, L0994H
        LCALL  L0587H
        JNB    71H, L0994H
        CLR    71H
        SJMP   L0994H
L098FH:
        JNB    P1.1, L0994H
        SETB   75H
L0994H:
        DJNZ   36H, L099BH
        DJNZ   35H, L099EH
        RET
L099BH:
        LJMP   L08FEH
L099EH:
        LJMP   L08FBH
        MOV    32H, #0FAH
L09A4H:
        NOP
        NOP
        DJNZ   32H, L09A4H
        RET
L09AAH:
        MOV    32H, #0CH
L09ADH:
        MOV    33H, #0FAH
L09B0H:
        DJNZ   33H, L09B0H
        DJNZ   32H, L09ADH
        RET
L09B7H:
        MOV    32H, #0C8H
        SJMP   L09ADH
        MOV    34H, #0FAH
L09BFH:
        LCALL  L09AAH
        DJNZ   34H, L09BFH
        RET
PAPERPRO:
       CLR   EX1

       SETB   PAPERERR
       SETB   NOPAPER
       SETB   STARTTOSTOP

OUTINT1:
       RETI
       NOP
       NOP
       NOP
       NOP
       RETI
L09C6H:

        CLR    EX0
        JB     P1.2,L09EFH
        SETB   64H
        JB     7FH, L09EFH
        JB     6EH, L09EFH
        SETB   6EH

SAVEDATA:
        PUSH   0E0H
        PUSH   0D0H
        PUSH   00H
        PUSH   02H
        PUSH   03H

        MOV    R0, #48H
        MOV    R2, #30H
        MOV    R3, #08H
        LCALL  L09F0H
        MOV    CUTCONTH,#00H
        MOV    CUTCONTL,#00H
        POP    03H
        POP    02H
        POP    00H
        POP    0D0H
        POP    0E0H

L09EFH:
        SETB   EX0
        RETI
        NOP
        NOP
        RETI
L09F0H:
        LCALL  L0A49H
        MOV    A, #0A0H
        LCALL  L0A67H
        MOV    A, R2
        LCALL  L0A67H
L09FCH:
        MOV    A, @R0
        LCALL  L0A67H
        INC    R0
        DJNZ   R3, L09FCH
        LCALL  L0A58H
        RET
L0A07H:
        LCALL  L0A49H
        MOV    A, #0A0H
        LCALL  L0A67H
        MOV    A, R2
        LCALL  L0A67H
        LCALL  L0A49H
        MOV    A, #0A1H
        LCALL  L0A67H
L0A1BH:
        MOV    R4, #08H
L0A1DH:
        CLR    T1
        NOP
        NOP
        NOP
        SETB   T1
        NOP
        NOP
        MOV    C, WR
        RLC    A
        DJNZ   R4, L0A1DH
        CLR    T1
        CJNE   R3, #01H, L0A34H
        SETB   WR
        SJMP   L0A36H
L0A34H:
        CLR    WR
L0A36H:
        NOP
        NOP
        SETB   T1
        MOV    @R0, A
        INC    R0
        NOP
        CLR    T1
        NOP
        NOP
        SETB   WR
        DJNZ   R3, L0A1BH
        LCALL  L0A58H
        RET
L0A49H:
        CLR    T1
        NOP
        NOP
        SETB   WR
        NOP
        NOP
        SETB   T1
        NOP
        NOP
        CLR    WR
        RET
L0A58H:
        CLR    T1
        NOP
        NOP
        CLR    WR
        NOP
        NOP
        SETB   T1
        NOP
        NOP
        SETB   WR
        RET
L0A67H:
        MOV    R4, #08H
L0A69H:
        CLR    T1
        NOP
        RLC    A
        MOV    WR, C
        NOP
        NOP
        SETB   T1
        DJNZ   R4, L0A69H
        NOP
        CLR    T1
        NOP
        NOP
        SETB   WR
        NOP
        NOP
        SETB   T1
        JB     WR, L0A84H
        RET
L0A84H:
        LCALL  L0A49H
        MOV    A, #0A0H
        SJMP   L0A67H
        RET
L0A8CH:
        MOV    A, R3
        LCALL  L0AA0H
        MOV    R3, A
        MOV    A, R2
        LCALL  L0AA0H
        MOV    0F0H, #64H
        MUL    AB
        ADD    A, R3
        MOV    R3, A
        CLR    A
        ADDC   A, 0F0H
        MOV    R2, A
        RET
L0AA0H:
        MOV    0F0H, #10H
        DIV    AB
        MOV    R4, 0F0H
        MOV    0F0H, #0AH
        MUL    AB
        ADD    A, R4
        RET
L0AACH:
        CLR    A
        MOV    R3, A
        MOV    R4, A
        MOV    R5, A
        MOV    R2, #10H
L0AB2H:
        MOV    A, R7
        RLC    A
        MOV    R7, A
        MOV    A, R6
        RLC    A
        MOV    R6, A
        MOV    A, R5
        ADDC   A, R5
        DA     A
        MOV    R5, A
        MOV    A, R4
        ADDC   A, R4
        DA     A
        MOV    R4, A
        MOV    A, R3
        ADDC   A, R3
        MOV    R3, A
        DJNZ   R2, L0AB2H
        RET
L0AC6H:
        MOV    A, R3
        MOV    0F0H, R7
        MUL    AB
        MOV    R4, 0F0H
        MOV    R5, A
        MOV    A, R3
        MOV    0F0H, R6
        MUL    AB
        ADD    A, R4
        MOV    R4, A
        CLR    A
        ADDC   A, 0F0H
        MOV    R3, A
        MOV    A, R2
        MOV    0F0H, R7
        MUL    AB
        ADD    A, R4
        MOV    R4, A
        MOV    A, R3
        ADDC   A, 0F0H
        MOV    R3, A
        CLR    A
        RLC    A
        XCH    A, R2
        MOV    0F0H, R6
        MUL    AB
        ADD    A, R3
        MOV    R3, A
        MOV    A, R2
        ADDC   A, 0F0H
        MOV    R2, A
        RET
L0AEEH:
        CLR    C
        MOV    A, R3
        SUBB   A, R7
        MOV    A, R2
        SUBB   A, R6
        JC     L0AF8H
        SETB   OV
        RET
L0AF8H:
        DB     75H
L0AF9H:
        MOVX   @DPTR, A
        DB     10H
L0AFBH:
        CLR    C
        MOV    A, R5
        RLC    A
        MOV    R5, A
        MOV    A, R4
        RLC    A
        MOV    R4, A
        MOV    A, R3
        RLC    A
        MOV    R3, A
        XCH    A, R2
        RLC    A
        XCH    A, R2
        MOV    F0, C
        CLR    C
        SUBB   A, R7
        MOV    R1, A
        MOV    A, R2
        SUBB   A, R6
        ANL    C, /F0
        JC     L0B17H
        MOV    R2, A
        MOV    A, R1
        MOV    R3, A
        INC    R5
L0B17H:
        DJNZ   0F0H, L0AFBH
        MOV    A, R4
        MOV    R2, A
        MOV    A, R5
        MOV    R3, A
        CLR    OV
        RET
TABLE:
       DB  0AH,3FH,0A8H,29H,1DH,49H,48H,2FH,08H,09H,0AH,0CCH,01CH,0FDH,0CAH
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A
        MOV    R7, A