;工業控制程序
;實驗目的:
;1.掌握單片機開發系統的使用
;2.掌握一次性在線仿真調試的全過程
;3.掌單片機如何編程及中斷的應用
;實驗原理:
;在工業控制中,象沖壓、注塑、輕紡、制瓶等生產過程,都是一些斷續生產過程,
;這些斷續生產過程又都是按某種順序有規律地完成預定的動作。對這類斷續生
;產過程的控制稱順序控制。
;例如注塑機要生產一個工件,其工藝過程大致按"合模→注射→延時→開模
; →產伸→產退"這么個時間順序動作。這種順序控制采用單片機是很容易實現的。
;本實驗是以控制注塑機為例而設計的典型時間順序控制實驗。   
   ; 我們把89XX P0口的0-6位依次用發光二極管作為模擬輸出指示,
;共分7道工序,P1.7為聲光報警,P3.4為開工啟動開關,P3.2,P3.3為外部故障輸入模擬開關,
;低電平告警。
;為了問題簡單化,我們設定每道工序只有一位有輸出(高電平燈亮),工作流程表如下:
;P0.7  P0.6  P0.5  P0.4  P0.3  P0.2  P0.1  P0.0  工序  控制字
;0     0     0     0     0     0     0     1     1     01H
;0     0     0     0     0     0     1     0     2     02H
;0     0     0     0     0     1     0     0     3     04H
;0     0     0     0     1     0     0     0     4     08H
;0     0     0     1     0     0     0     0     5     10H
;0     0     1     0     0     0     0     0     6     20H
;0     1     0     0     0     0     0     0     0     40H
;1     0     0     0     0     0     0     0     0     80H
;以上設硬件接線為高電平有效,如果設硬件接線為低電平有效(灌電流,減小CPU功耗),
;LED燈亮,你又如何寫出控制字!請你畫出程序流程圖!

        ORG     0000H		;工業順序控制程序
        AJMP    MIN		;轉主程序
        ORG     0003H		;INT0中斷入口地址
        AJMP    INTA		;轉中斷服務程序
        ORG     0013H		; INT1中斷入口地址
        AJMP    INTB		;轉中斷服務程序
        ORG     0050H		;主程序
MIN: 	MOV	SP,#50H   
	MOV     P0,#0FFH	;關P0口(設高電平LED燈亮)
        MOV     P3,#0FFH	;關P3口(設低電平工作
L0056:  JNB     T0,$		;等開工(P3.4)
        ORL     IE,#85H		;允許INT0,INT1中斷
        ORL     IP,#04H		;設為INT1為優先中斷
L005F:  MOV     P0,#0FEH	;執行工序1
        ACALL   S00E0		;延時
        MOV     P0,#0FDH	; 執行工序2
        ACALL   S00E0		;
        MOV     P0,#0FBH	; 執行工序3
        ACALL   S00E0		;
        MOV     P0,#0F7H	; 執行工序4
        ACALL   S00E0		;
        MOV     P0,#0EFH	; 執行工序5
        ACALL   S00E0		;
        MOV     P0,#0DFH	; 執行工序6
        ACALL   S00E0		;
        MOV     P0,#0BFH	; 執行工序7
        ACALL   S00E0		;
	MOV	P0,#7FH		;執行工序8
        ACALL   S00E0		;
        SJMP    L005F		;循環
        ORG     0090H		;INT0中斷服務程序
INTA:   MOV     B,R2		;保護現場
        MOV     P0,#0FFH	;關輸出
        MOV     20H,#0F0H	;報警聲參數
L0098:  SETB    P1.7		;P1.7輸出報警聲
        ACALL   S00D0		;延時時間比INT1長
        CLR     P1.7			;
        ACALL   S00D0		;
        DJNZ    20H,L0098	;不為零轉
        CLR     P1.7			;
        ACALL   S00E0		;
        JNB     INT0,L0098	;INT0為零繼續報警
        MOV     R2,B		; INT0為1不報警,恢復現場
        SETB    P1.7
	RETI   			;中斷返回
	ORG	00B0H 		; INT1中斷服務程序
INTB:   MOV     B,R2		; 保護現場
        MOV     P1,#0FFH	; 關輸出
        MOV     B,#20H		; 報警聲參數
L00B8:  SETB    P1.7		; P1.7輸出報警聲
        ACALL   S00D6		; 延時時間比INT0短
        CLR     P1.7			;
        ACALL   S00D6		;
        DJNZ    20H,L00B8	; 不為零轉
        CLR     P1.7			;
        ACALL   S00E0		;
        JNB     INT1,L00B8	; INT1為零繼續報警
        MOV     R2,B		; INT1為1不報警,恢復現?	SETB    P1.7
        RETI    		; 中斷返回
		ORG		00D0H
S00D0:  MOV     R2,#07H		;
        ACALL   S00EB		;
        RET     				;
		ORG		00D6H
S00D6:  MOV     R2,#05H		;
        ACALL   S00EB
        RET     
        ORG     00E0H		;
S00E0:  MOV     R2,#25H
        ACALL   S00EB
	RET
        ORG     00EBH		;通用延時子程序
S00EB:  PUSH    02H		;R2(復位后R2即為02H)存放時間常數,進棧保護
L00ED:  PUSH    02H		; R2進棧保護
L00EF:  PUSH    02H		; 進棧
L00F1:  DJNZ    R2,$		;R2不為零等待
        POP     02H		;出棧
        DJNZ    R2,L00EF	; R2不為零轉
        POP     02H		; 出棧
        DJNZ    R2,L00ED	; R2不為零轉
        POP     02H		; 出棧
        DJNZ    R2,S00EB	; R2不為零轉
        RET     		;子程序返回
        END