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

📄 hhh.asm

📁 基于51单片机Atmel89C554开发的染色机源程序
💻 ASM
📖 第 1 页 / 共 5 页
字号:
        MOV     42H,A
        INC     58H
        CLR     C
        MOV     A,58H
        SUBB    A,#02H
        JC      SWRUNA
        SETB    3EH
        CLR    A
        MOV    42H,A
        MOV    43H,A
        MOV    44H,A
BJA:    JB      58H,BJ1
        SETB    22H
        SETB    31H        ;报警
        LCALL   L595W
        LCALL   MJSQ3
        JC      BJ1
        SETB    58H
        CLR     22H
        CLR     31H
        LCALL   L595W      ;报警
BJ1:    JB      59H,BJD
        SETB    20H
        SETB    30H
        LCALL   L595W      ;排冷
BJD:    LCALL   MJSQ2
        JC      BJ2
        SETB    59H
        CLR     20H
        CLR     30H
        LCALL   L595W
        CLR     58H
        CLR     A          ;排冷
        MOV     43H,A
        MOV     44H,A
BJ2:    LCALL   MJSQ1
        JC     SSWRUN
        CLR    A
        MOV    42H,A
        MOV    43H,A
        CLR    59H
SSWRUN: AJMP   SWRUNA
CSSW1:  JB      40H,CSSW3
        LCALL   RWDJS
        LCALL   CSDIS
        LCALL   BWMB
        LCALL   SJDISA
        SETB    40H
        CLR     41H
        AJMP    CSSW3
CSSW2:  JNB     79H,CSSW1
CSSW3:  MOV     A,40H
        CLR     C
        SUBB    A,#3CH
        JC      CSSW4
        CLR     A
        MOV     40H,A
        LCALL   FZJSQ1
CSSW4:  LCALL   RWDJS
        LCALL   SJDISA
        LCALL   KAY
        LCALL   RDFSZ
        LCALL   AIBIN
        JNB     70H,CCC1
        LCALL   OUT0
        JB      70H,CSSW2
CCC1:   MOV     R6,#02H
        MOV     R7,#06H
        MOV     DPTR,#LCD99
        LCALL   DISHZ
        MOV     R6,#02H
        MOV     R7,#07H
        MOV     DPTR,#LCD99
        LCALL   DISHZ
        SETB    1DH
        SETB    35H
        MOV    R2,#00H
        MOV    R3,#03H
        CLR    3CH
        MOV    R1,#0BDH
        LCALL  INTF
        MOV    R0,#0DAH
        LCALL  FADD
        MOV    R1,#0DAH
        LCALL  FSTR
        MOV    R0,#0DAH
        MOV    R1,#37H
        LCALL  FSUB
        MOV    A,R4
        JNB    ACC.7,CSSEND1
        SETB   1FH            ;加热
        SETB   2FH
        LCALL  L595W
        AJMP   CSSW2
CSSEND1:JB      58H,CSSW11
        SETB    58H
        LCALL    RWDJS
        MOV      R0,#0DAH
        MOV      A,@R0
        MOV      3DH,A
        INC      R0
        MOV      A,@R0
        MOV      3EH,A
        INC      R0
        MOV      A,@R0
        MOV      3FH,A
        CLR     3CH
        MOV     R2,#00H
        MOV     R3,#01H
        MOV     R1,#0B0H
        LCALL   INTF
        MOV     R2,#00H
        MOV     R3,#0AH
        CLR     3CH
        MOV     R1,#0B3H
        LCALL   INTF
        MOV     R0,#0B0H
        MOV     R1,#0B3H
        LCALL   FDIV
        MOV     R1,#34H
        LCALL   FSTR
        MOV     41H,#00H
CSSW11: LCALL   RWDJS
        MOV     R0,#0DAH
        MOV     R1,#37H
        LCALL   FSUB
        MOV     A,R4
        JNB     ACC.7,CSSEND2
        MOV     A,41H
        CLR     C
        SUBB    A,#06H
        JC      CSSW12
        CLR     A
        MOV     41H,A
        MOV     R1,#34H
        MOV     R0,#3DH
        LCALL   FADD
        MOV     R1,#3DH
        LCALL   FSTR
CSSW12: LCALL   RWDJS
        MOV     R0,#0DAH
        MOV     R1,#3DH
        LCALL   FSUB
        MOV     A,R4
        JB      ACC.7,CSSW13
        CLR     1FH
        CLR     2FH
        CLR     18H
        CLR     2EH
        LCALL   L595W
        LJMP    CSSW2
CSSW13: CLR     18H
        CLR     2EH
        SETB    1FH
        SETB    2FH
        LCALL   L595W
        LJMP    CSSW2
CSSEND2:CLR    1FH
        CLR    2FH
        CLR    18H
        CLR    2EH
        LCALL  L595W
        MOV    3DH,37H
        MOV    3EH,38H
        MOV    3FH,39H
        INC    0CH
        CLR    40H
        CLR    43H
        CLR    58H
        CLR     A
        MOV     40H,A
        MOV     41H,A
        MOV     42H,A
        MOV     43H,A
        MOV     44H,A
        MOV     5EH,A
        MOV     5FH,A
        MOV     R0,#82H
        CLR     A
        MOV     @R0,A
        INC     R0
        MOV     @R0,A
        LJMP   GYRUN1
FBASE:  MOV     A,20H
        ANL     A,#0F0H
        SWAP    A
        MOV     30H,A
        MOV     A,20H
        ANL     A,#0FH
        MOV     31H,A
        MOV     A,21H
        ANL     A,#0F0H
        SWAP    A
        MOV     32H,A
        MOV     A,21H
        ANL     A,#0FH
        MOV     33H,A
        LCALL   IDTB
        MOV     A,R3
        MOV     R2,A
        MOV     A,R4
        MOV     R3,A
        CLR     3CH
        MOV     R1,#3DH
        LCALL   INTF
        LCALL   WDXZZ
        MOV     A,R3
        MOV     R2,A
        MOV     A,R4
        MOV     R3,A
        MOV     R1,#0B0H
        LCALL   INTF
        MOV     R0,#3DH
        LCALL   FSUB
        MOV     R1,#3DH
        LCALL   FSTR
        MOV     R2,#00H
        MOV     R3,#0AH
        CLR     3CH
        MOV     R1,#0B0H
        LCALL   INTF
        MOV     R0,#3DH
        LCALL   FDIV
        MOV     R1,#3DH
        LCALL   FSTR
        MOV     AUXR,#02H
        SETB    13H
        CLR     P1.7
        MOV     R0,#13H
        MOVX    A,@R0
        SETB    P1.7
        CLR     13H
        CJNE    A,#09H,FBASE1
        SETB    3FH
        RET
FBASE1: CLR     3FH
        RET
JWMB:   MOV     R1,#0D1H
        MOV     A,@R1
        LCALL   DISA
        MOV     R6,#03H
        MOV     R7,#04H
        LCALL   LCPZF
        INC     R7
        MOV     A,#0EH
        LCALL   LCPZF
        INC     R1
        MOV     A,@R1
        LCALL   DISA
        INC     R7
        LCALL   LCPZF
        INC     R1
        MOV     A,@R1
        LCALL   DISA
        MOV     R6,#05H
        MOV     R7,#09H
        LCALL   LCPZF
        INC     R7
        INC     R1
        MOV     A,@R1
        LCALL   DISA
        LCALL   LCPZF
        INC     R7
        INC     R1
        MOV     A,@R1
        LCALL   DISA
        LCALL   LCPZF
        RET
JWRUN1: JB      44H,JWRUN2
        MOV     R1,#0D0H
        CLR     43H
        LCALL   CSJS
        LCALL   PWM2
        MOV     R0,#82H
        CLR     A
        MOV     @R0,A
        INC     R0
        MOV     @R0,A
        MOV     R1,#0D1H
        MOV     A,@R1
        CJNE    A,#00H,JWRUNG
        INC     R1
        MOV     A,@R1
        CJNE    A,#00H,JWRUNG
        CLR     58H
        LJMP    CSJW1
JWENDZ: LJMP    JWEND
JWRUNG: JB      40H,JJWW1
        LCALL   RWDJS
        LCALL   JWDIS
        LCALL   JWMB
        LCALL   SJDISB
        SETB    40H
        CLR     41H
        AJMP    JJWW1
JWRUN2: SETB    44H
        JNB     79H,JWRUNG
JJWW1:  LCALL   MJSQ
        JC      JWRUN8
        CLR     A
        MOV     40H,A
        LCALL   FZJSQ1
JWRUN8: LCALL   RWDJS
        LCALL   SJDISB
        LCALL   KAY
        LCALL   RDFSZ
        LCALL   AIBIN
        JNB     70H,JJ1
        LCALL   OUT0
        JB      70H,JWRUN2
JJ1:    MOV     R6,#02H
        MOV     R7,#06H
        MOV     DPTR,#LCD99
        LCALL   DISHZ
        MOV     R6,#02H
        MOV     R7,#07H
        MOV     DPTR,#LCD99
        LCALL   DISHZ
        SETB    1DH
        SETB    35H
JWRUNH: JB      45H,JWRUN3
        JB      64H,JWRUN3
        LCALL   RWDJS
        MOV     R0,#0DAH
        MOV     R1,#37H
        LCALL   FSUB
        MOV     A,R4
        JB      ACC.7,JWENDZ
        MOV     A,41H
        CLR     C
        SUBB    A,#06H
        JC      JWRUN3
        CLR     A
        MOV     41H,A
        MOV     R1,#34H
        MOV     R0,#3DH
        LCALL   FSUB
        MOV     R1,#3DH
        LCALL   FSTR
JWRUN3: LCALL   RWDJS
        MOV     R0,#0DAH
        MOV     R1,#3DH
        LCALL   FSUB
        MOV     A,R4
        JNB     ACC.7,JWRUN4
        JB      64H,JWEND
        MOV     R0,#82H
        CLR     A
        MOV     @R0,A      ;停降
        CLR     1FH
        CLR     2FH
        CLR     18H
        CLR     2EH
        LCALL   L595W
        LJMP    JWRUN6
JWRUN4: MOV     R0,#82H
        MOV     A,@R0
        CJNE    A,#2FH,JWRUN5
        CLR     1FH
        CLR     2FH
        SETB    18H
        SETB    2EH
        LCALL   L595W
        AJMP    JWRUN6
JWRUNX: LJMP    JWRUN2
JWRUN5: INC     A
        MOV     @R0,A
JWRUN6: JB      64H,JWRUNX
        CLR     C
        MOV     A,5FH
        SUBB    A,5DH
        MOV     A,5EH
        SUBB    A,5CH
        JC      JWRUN9
        SETB    64H
        MOV     3DH,37H
        MOV     3EH,38H
        MOV     3FH,39H
JWRUN9: LJMP    JWRUN2
JWEND:  MOV     3DH,37H
        MOV     3EH,38H
        MOV     3FH,39H
        SETB    45H
        JNB     64H,JWRUN9
        CLR     1FH
        CLR     2FH
        CLR     18H
        CLR     2EH
        LCALL   L595W
        CLR     40H
        CLR     64H
        CLR     45H
        CLR     44H
        CLR     A
        MOV     40H,A
        MOV     41H,A
        MOV     42H,A
        MOV     43H,A
        MOV     44H,A
        MOV     5EH,A
        MOV     5FH,A
        MOV     R0,#82H
        CLR     A
        MOV     @R0,A
        INC     R0
        MOV     @R0,A
        INC     0CH
        LJMP    GYRUN1
CSJW1:  JB      40H,CSJW3
        LCALL   RWDJS
        LCALL   CJDIS
        LCALL   BWMB
        LCALL   SJDISA
        SETB    40H
        CLR     41H
        AJMP    CSJW3
CSJW2:  JNB     79H,CSJW1
CSJW3:  MOV     A,40H
        CLR     C
        SUBB    A,#3CH
        JC      CSJW4
        CLR     A
        MOV     40H,A
        LCALL   FZJSQ1
CSJW4:  LCALL   RWDJS
        LCALL   SJDISA
        LCALL   KAY
        LCALL   RDFSZ
        LCALL   AIBIN
        JNB    70H,CC1
        LCALL   OUT0
        JB     70H,CSJW2
CC1:    MOV     R6,#02H
        MOV     R7,#06H
        MOV     DPTR,#LCD99
        LCALL   DISHZ
        MOV     R6,#02H
        MOV     R7,#07H
        MOV     DPTR,#LCD99
        LCALL   DISHZ
        SETB    1DH
        SETB    35H
        MOV    R2,#00H
        MOV    R3,#03H
        CLR    3CH
        MOV    R1,#0BDH
        LCALL  INTF
        MOV    R0,#0DAH
        LCALL  FSUB
        MOV    R1,#0DAH
        LCALL  FSTR
        MOV    R0,#0DAH
        MOV    R1,#37H
        LCALL  FSUB
        MOV    A,R4
        JB     ACC.7,CSJEND1
        SETB   18H            ;降
        SETB   2EH
        LCALL  L595W
        LJMP   CSJW2
CSJEND1:JB      58H,CSJW11
        SETB    58H
        LCALL    RWDJS
        MOV      R0,#0DAH
        MOV      A,@R0
        MOV      3DH,A
        INC      R0
        MOV      A,@R0
        MOV      3EH,A
        INC      R0
        MOV      A,@R0
        MOV      3FH,A
        CLR     3CH
        MOV     R2,#00H
        MOV     R3,#01H
        MOV     R1,#0B0H
        LCALL   INTF
        MOV     R2,#00H
        MOV     R3,#0AH
        CLR     3CH
        MOV     R1,#0B3H
        LCALL   INTF
        MOV     R0,#0B0H
        MOV     R1,#0B3H
        LCALL   FDIV
        MOV     R1,#34H
        LCALL   FSTR
        MOV     41H,#00H
CSJW11: LCALL   RWDJS
        MOV     R0,#0DAH
        MOV     R1,#37H
        LCALL   FSUB
        MOV     A,R4
        JB      ACC.7,CSJEND2
        MOV     A,41H
        CLR     C
        SUBB    A,#06H
        JC      CSJW12
        CLR     A
        MOV     41H,A
        MOV     R1,#34H
        MOV     R0,#3DH
        LCALL   FSUB
        MOV     R1,#3DH
        LCALL   FSTR
CSJW12: LCALL   RWDJS
        MOV     R0,#0DAH
        MOV     R1,#3DH
        LCALL   FSUB
        MOV     A,R4
        JNB     ACC.7,CSJW13
        CLR     1FH
        CLR     2FH
        CLR     18H
        CLR     2EH
        LCALL   L595W
        LJMP    CSJW2
CSJW13: CLR     1FH
        CLR     2FH
        SETB    18H
        SETB    2EH
        LCALL   L595W
        LJMP    CSJW2
CSJEND2:CLR    1FH
        CLR    2FH
        CLR    18H
        CLR    2EH
        LCALL  L595W
        MOV    3DH,37H
        MOV    3EH,38H
        MOV    3FH,39H
        CLR     A
        MOV     40H,A
        MOV     41H,A
        MOV     42H,A
        MOV     43H,A
        MOV     44H,A
        MOV     5EH,A
        MOV     5FH,A
        MOV     R0,#82H
        CLR     A
        MOV     @R0,A
        INC     R0
        MOV     @R0,A
        INC    0CH
        CLR    40H
        CLR    58H
        LJMP   GYRUN1
BWRUNF: LJMP    BWRUNA
BWRUN1: JB      44H,BWRUNF
        MOV     R1,#0D1H

⌨️ 快捷键说明

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