遮天,重生之毒妃梅果小说,小说阅读网

阿少杰

石頭

級(jí)別: 家園常客

發(fā)送短信
加為好友

精華主題: 0
發(fā)帖數(shù)量: 263 個(gè)
工控威望: 557 點(diǎn)
下載積分: 474 分
在線時(shí)間: 106(小時(shí))
注冊(cè)時(shí)間: 2006-10-05
最后登錄: 2018-06-14
查看阿少杰的主題 / 回貼

樓主發(fā)表于: 2009-04-20 19:52

只看樓主 | 小中大

圖片：

共用電控箱系統(tǒng)：以下為源代碼：

;通用電控多套程序(designed by tone.lei at 10:33 11/27/2008)
;(I/O點(diǎn)定義)  p0.0 p0.1 p0.2 p0.3 接撥碼開(kāi)關(guān) R2:撥碼開(kāi)關(guān)暫存器

        S1       EQU    P1.0     ;第1個(gè)信號(hào)
        S2       EQU    P1.1     ;第2個(gè)信號(hào)
        S3       EQU    P1.2     ;第3個(gè)信號(hào)
        S4       EQU    P1.3     ;第4個(gè)信號(hào)
        S5       EQU    P1.4     ;第5個(gè)信號(hào)
        S6       EQU    P1.5     ;第6個(gè)信號(hào)
        S7       EQU    P1.6     ;第7個(gè)信號(hào)
        S8       EQU    P1.7     ;第8個(gè)信號(hào)
        S9       EQU    P3.4     ;第9個(gè)信號(hào)
        S10      EQU    P3.5     ;第10個(gè)信號(hào)
        S11      EQU    P3.6     ;第11個(gè)信號(hào)
        S12      EQU    P3.7     ;第12個(gè)信號(hào)

        START    EQU    P3.0     ;啟動(dòng)信號(hào)
        RESET    EQU    P3.1     ;復(fù)位信號(hào)
        INT0     EQU    P3.2     ;中斷0信號(hào)
        INT1     EQU    P3.3     ;中斷1信號(hào)
        ONE0     EQU    P2.4     ;撥碼開(kāi)關(guān)碼1
        ONE1     EQU    P2.5     ;撥碼開(kāi)關(guān)碼2
        ONE2     EQU    P2.6     ;撥碼開(kāi)關(guān)碼4
        ONE3     EQU    P2.7     ;撥碼開(kāi)關(guān)碼8

        STEP1    EQU    P0.0     ;第1個(gè)輸出點(diǎn)
        STEP2    EQU    P0.1     ;第2個(gè)輸出點(diǎn)
        STEP3    EQU    P0.2     ;第3個(gè)輸出點(diǎn)
        STEP4    EQU    P0.3     ;第4個(gè)輸出點(diǎn)
        STEP5    EQU    P0.4     ;第5個(gè)輸出點(diǎn)
        STEP6    EQU    P0.5     ;第6個(gè)輸出點(diǎn)
        STEP7    EQU    P0.6     ;第7個(gè)輸出點(diǎn)
        STEP8    EQU    P0.7     ;第8個(gè)輸出點(diǎn)

;(主程序開(kāi)始)

        ORG 0000H
        LJMP MAIN
        ORG 0003H
        LJMP INTER0
        ORG 0013H
        LJMP INTER1
        ORG 0030H

MAIN:   JB     ONE0, NEXT1
        JB     ONE1, NEXT2
        JB     ONE2, NEXT3
        MOV    R2, #07H
        LJMP   PRO7
NEXT3:  MOV    R2, #03H
        LJMP   PRO3
NEXT2:  JB     ONE2, NEXT20
        MOV    R2, #05H
        LJMP   PRO5
NEXT20: JB     ONE3, NEXT21
        MOV    R2, #09H
        LJMP   PRO9
NEXT21: MOV    R2, #01H
        LJMP   PRO1
NEXT1:  JB     ONE1, NEXT10
        JB     ONE2, NEXT11
        MOV    R2, #06H
        LJMP   PRO6
NEXT11: MOV    R2, #02H
        LJMP   PRO2
NEXT10: JB     ONE2, NEXT12
        MOV    R2, #04H
        LJMP   PRO4
NEXT12: JB     ONE3, NEXT13
        MOV    R2, #08H
        LJMP   PRO8
NEXT13: MOV    R2, #00H
        LJMP   PRO0

;(程序0執(zhí)行 [電測(cè)機(jī)程序])
PRO0:   ACALL UP
        CLR STEP1         ;啟動(dòng)壓入氣缸
        ACALL DELAY
        ACALL DELAY
        ACALL DELAY
        ACALL DELAY
        CLR STEP2         ;啟動(dòng)折彎氣缸
        ACALL DELAY       ;延時(shí)0.1秒
        ACALL DELAY       ;延時(shí)0.1秒
        ACALL DELAY
        SETB STEP1        ;斷開(kāi)探針氣缸
        ACALL DELAY
        ACALL DELAY
        ACALL DELAY
        SETB STEP2        ;斷開(kāi)舌片氣缸

        AJMP PRO0        ;返回

;(程序1執(zhí)行 [張強(qiáng)之      連線機(jī)程序])
PRO1:   ACALL UP
        CLR STEP1         ;啟動(dòng)推料氣缸
        ACALL S1DEL       ;推料氣缸動(dòng)點(diǎn)延時(shí)
        CLR STEP2         ;啟動(dòng)壓料氣缸
        ACALL S2DEL       ;壓料氣缸動(dòng)點(diǎn)延時(shí)
        ACALL S2DEL       ;壓料氣缸動(dòng)點(diǎn)延時(shí)
        SETB STEP1        ;斷開(kāi)推料氣缸
        SETB STEP2        ;斷開(kāi)壓料氣缸
        ACALL DELAY
        ACALL DELAY
        ACALL DELAY
        LJMP PRO1        ;返回

;(程序2執(zhí)行 [郭金武之PJD電測(cè)機(jī)程序])
PRO2:   ACALL UP
        CLR STEP2         ;啟動(dòng)壓料氣缸
        ACALL DELAY       ;壓料氣缸動(dòng)點(diǎn)延時(shí)
        ACALL DELAY
        ACALL DELAY
        JB INT1,LEDNG       ;LED1  TEST
        JB S10,LEDNG      ;LED2  TEST


        CLR P2.0
        CLR P2.1
        CLR P2.2
        CLR P2.3
        ACALL DELAY
        MOV A,P1          ;將P1口的值讀入暫存器ACC
        XRL A,#55H
        JNZ SHNG          ;檢測(cè)有無(wú)短路
        SETB P2.0
        SETB P2.1
        SETB P2.2
        SETB P2.3
        ACALL DELAY

        CLR STEP1
        ACALL DELAY
        ACALL DELAY
        ACALL DELAY
        JB S1,OPENNG      ;開(kāi)始檢測(cè)導(dǎo)通
        ACALL DEL10
        JB S2,OPENNG
        ACALL DEL10
        JB S3,OPENNG
        ACALL DEL10
        JB S4,OPENNG
        ACALL DEL10
        JB S5,OPENNG
        ACALL DEL10
        JB S6,OPENNG
        ACALL DEL10
        JB S7,OPENNG
        ACALL DEL10
        JB S8,OPENNG
        AJMP PRO2GO

LEDNG:  CLR STEP6
        AJMP PRO2NG
SHNG:   CLR STEP4
        AJMP PRO2NG
OPENNG: CLR STEP3
PRO2NG: JB RESET,PRO2NG
        AJMP RRSETQ
PRO2GO: CLR STEP5
RRSETQ: SETB STEP1
        SETB STEP3
        SETB STEP4
        SETB STEP6
        SETB P2.0
        SETB P2.1
        SETB P2.2
        SETB P2.3
        ACALL DELAY
        ACALL DELAY
        SETB STEP2
        ACALL DELAY
        ACALL DELAY
        SETB STEP5
        AJMP PRO2         ;返回

;(程序3執(zhí)行 [張強(qiáng)之SLS-13SR1B 電測(cè)機(jī)程序])
PRO3:   JNB P3.3,PRO3
PRO3K:  JB P3.3,PRO3K
        ACALL DEL10
        JB P3.3,PRO3K
        CLR P0.1
        ACALL DELAY
        ACALL DELAY
        ACALL DELAY
        ACALL DELAY



        CLR P2.0          ;開(kāi)啟短路測(cè)試
        CLR P2.1
        CLR P2.2
        CLR P2.3
        ACALL DELAY
        MOV A,P1          ;將P1口的值讀入暫存器ACC
        XRL A,#55H
        JNZ PRO3SH        ;檢測(cè)7PIN有無(wú)短路
        JB P3.0,PRO3SH
        JNB P3.1,PRO3SH
        JB P3.4,PRO3SH
        JNB P3.5,PRO3SH
        JB P3.6,PRO3SH
        JNB P3.7,PRO3SH
        SETB P2.0
        SETB P2.1
        SETB P2.2
        SETB P2.3

        CLR P0.0         ;開(kāi)始斷路測(cè)試
        ACALL DELAY
        ACALL DELAY
        ACALL DELAY
        ACALL DELAY
        JB P1.0,PRO3SO
        JB P1.1,PRO3SO
        JB P1.2,PRO3SO
        JB P1.3,PRO3SO
        JB P1.4,PRO3SO
        JB P1.5,PRO3SO
        JB P1.7,PRO3SO
        JB P3.0,PRO3SO
        JB P3.1,PRO3SO
        JB P3.4,PRO3SO
        JB P3.5,PRO3SO
        JB P3.6,PRO3SO
        JB P3.7,PRO3SO
        AJMP PRO3OK

PRO3SH: CLR P0.2
        AJMP PRO3RS

PRO3SO: CLR P0.4
        AJMP PRO3RS

PRO3RS: JB P3.2,PRO3RS
        SETB P0.2
        SETB P0.4
        SETB P2.0
        SETB P2.1
        SETB P2.2
        SETB P2.3
        AJMP PRO3GO
PRO3OK: CLR P0.3
PRO3GO: SETB P0.0
        ACALL DELAY
        SETB P0.1
        ACALL DELAY
        ACALL DELAY
        SETB P0.3
        AJMP PRO3         ;返回

;(程序4執(zhí)行 [楊道軍之SIM-06HA掃料帶程序])
PRO4:   JNB P1.0,PRO4
        MOV P0,#0FFH
PRO4OR1:JB P1.2,PRO4OR1
PRO4OR2:JB P1.4,PRO4OR2
PRO4OR3:JB P1.6,PRO4OR3
PRO4S:  JB P1.0,PRO4S
        ACALL DEL10
        JB P1.0,PRO4S
        CLR P0.2        ;啟動(dòng)推入氣缸
PRO4TR: JB P1.3,PRO4TR
        ACALL DELAY
        ACALL DELAY
        CLR P0.1        ;啟動(dòng)壓氣缸
        ACALL DELAY
        CLR P0.0        ;啟動(dòng)掃料支撐氣缸
        ACALL DELAY
        ACALL DELAY
        ACALL DELAY
        MOV R0,#00H
PRO4A:  CPL P0.3        ;啟動(dòng)掃料氣缸
        JB P0.3,PRO4B
PRO4C:  jb p1.5,PRO4C
PRO4CC: jb p1.7,PRO4CC
        ajmp PRO4D
PRO4B:  jb p1.4,PRO4B
PRO4BB: jb p1.6,PRO4BB
        inc R0
PRO4D:  cjne R0,#7,PRO4A;檢測(cè)掃料次數(shù)如果不夠則繼續(xù)掃料
        SETB P0.3       ;復(fù)位掃料氣缸
        ACALL DELAY
        SETB P0.1       ;復(fù)位壓氣缸
        ACALL DELAY
        SETB P0.0       ;復(fù)位支撐氣缸
        ACALL DELAY
        ACALL DELAY
        SETB P0.2       ;復(fù)位壓氣缸
        AJMP PRO4         ;返回

;(程序5執(zhí)行 [楊道軍之BTP-02SC連線機(jī)程序])

pro5:    jnb p1.0,pro5
pro5s:   jb p1.0,pro5s     ;檢測(cè)啟動(dòng)按鈕是否按下如不是則反復(fù)偵測(cè)狀態(tài)
         lcall del10
         jb p1.0,pro5s

         clr p0.0        ;1  啟動(dòng)推料氣缸
         acall delay
         acall delay

         clr p0.1        ;2  啟動(dòng)壓合氣缸
         acall delay

         clr p0.3        ;3  啟動(dòng)舌片氣缸/復(fù)位推料.壓合氣缸
         setb p0.0
         setb p0.1
         acall delay

         clr p0.2        ;4  啟動(dòng)探針氣缸
         acall delay
         acall delay
         acall delay
         jb p1.2,pro5q1
         ajmp pro5ng
pro5q1:  acall delay
         setb p0.3       ;5  復(fù)位舌片氣缸
         acall delay
         jnb p1.2,pro5q2
         ajmp pro5ng
pro5q2:  setb p0.2       ;6  復(fù)位探針氣缸
         acall delay
         ajmp pro5ok
pro5ng:  setb p0.2
         setb p0.3
         acall delay
         clr p0.4        ;7  NG 排除氣缸
         inc r4
         ajmp pro5rs
pro5ok:  mov r4,#00h
pro5rs:  acall delay
         acall delay
         acall delay
         setb p0.4
         cjne r4,#3,pro5fu
pro5uf:  jb p1.1,pro5uf
         mov r4,#00h
pro5fu:  ajmp main         ;返回

;(程序6執(zhí)行 [XX之      連線機(jī)程序])
PRO6:   ACALL UP
        LJMP MAIN         ;返回

;(程序7執(zhí)行 [XX之      連線機(jī)程序])
PRO7:   ACALL UP
        LJMP MAIN         ;返回

;(程序8執(zhí)行 [XX之      連線機(jī)程序])
PRO8:   ACALL UP
        LJMP MAIN         ;返回

;(程序9執(zhí)行 [XX之      連線機(jī)程序])
PRO9:   ACALL UP
        LJMP MAIN         ;返回

;(中斷0程序)
INTER0: JNB INT0,INTER0
        ACALL DEL10
        JNB INT0,INTER0
TEST0:  JB RESET,TEST0
        RETI

;(中斷1程序)
INTER1: JNB INT1,INTER0
        ACALL DEL10
        JNB INT1,INTER0
TEST1:  JB RESET,TEST1
        RETI

;(啟動(dòng)開(kāi)關(guān)程序)
UP:     JNB START,UP
TEST:   JB START,TEST
        ACALL DEL10
        JB START,TEST
        RET

;(0.1S延時(shí)程序)
DELAY:  MOV R5,#200
DELT1:  MOV R6,#250
        DJNZ R6,$
        DJNZ R5,DELT1
        RET

;(0.01S延時(shí)程序)
DEL10:  MOV R5,#20
DELT2:  MOV R6,#250
        DJNZ R6,$
        DJNZ R5,DELT2
        RET

;(S1信號(hào)延遲輸入)
S1DEL:  JB S1,S1DEL
        ACALL DELAY
        JB S1,S1DEL
        RET

;(S2信號(hào)延遲輸入)
S2DEL:  JB S2,S2DEL
        ACALL DELAY
        JB S2,S2DEL
        RET

;(S3信號(hào)延遲輸入)
S3DEL:  JB S3,S3DEL
        ACALL DELAY
        JB S3,S3DEL
        RET

;(S4信號(hào)延遲輸入)
S4DEL:  JB S4,S4DEL
        ACALL DELAY
        JB S4,S4DEL
        RET

;(S5信號(hào)延遲輸入)
S5DEL:  JB S5,S5DEL
        ACALL DELAY
        JB S5,S5DEL
        RET

;(S6信號(hào)延遲輸入)
S6DEL:  JB S6,S6DEL
        ACALL DELAY
        JB S6,S6DEL
        RET

;(S7信號(hào)延遲輸入)
S7DEL:  JB S7,S7DEL
        ACALL DELAY
        JB S7,S7DEL
        RET

;(S8信號(hào)延遲輸入)
S8DEL:  JB S8,S8DEL
        ACALL DELAY
        JB S8,S8DEL
        RET
;(S9信號(hào)延遲輸入)
S9DEL:  JB S9,S9DEL
        ACALL DELAY
        JB S9,S9DEL
        RET

;(S10信號(hào)延遲輸入)
S10DEL: JB S4,S4DEL
        ACALL DELAY
        JB S4,S4DEL
        RET

;(S11信號(hào)延遲輸入)
S11DEL: JB S11,S11DEL
        ACALL DELAY
        JB S11,S11DEL
        RET

;(S12信號(hào)延遲輸入)
S12DEL: JB S12,S12DEL
        ACALL DELAY
        JB S12,S12DEL
        RET

      END

[ 此帖被阿少杰在2009-04-20 20:03重新編輯 ]