;	“模仿式”	實驗一 工業順序控制（INT0.INT1綜合實驗）


;文件名:B01.ASM

;掌握工業順序控制的簡單編程,中斷的使用
	ORG 0000H
	SJMP MAIN
	ORG 0013H
	LJMP INT1
        
MAIN:	MOV P1,#00H
	ORL P3,#00H
PO11:	JNB P3.4,PO11		;開工嗎?
	ORL IE,#84H
	ORL IP,#04H
	MOV PSW,#00H		;初始化
	MOV SP,#53H
PO12:	MOV P1,#01H		;第一道工序
	ACALL PO1BH
	MOV P1,#02H		;第二道工序
	ACALL PO1BH
	MOV P1,#04H		;第三道工序
	ACALL PO1BH
	MOV P1,#08H		;第四道工序
	ACALL PO1BH
	MOV P1,#11H		;第五道工序
	ACALL PO1BH
	MOV P1,#22H		;第六道工序
	ACALL PO1BH
	MOV P1,#44H		;第七道工序
	ACALL PO1BH
	SJMP PO12
        
INT1:	MOV B,R2		;保護現場
PO17:	MOV P1,#00H		;關輸出
	MOV 20H,#0A0H		;振蕩次數
PO18:	SETB P1.7		;振蕩
	ACALL PO1A		;延時
	CLR P1.7		;停止
	ACALL PO1A		;延時
	DJNZ 20H,PO18		;不為零轉
	CLR P1.7
	ACALL PO1A
	JNB P3.3,PO17		;故障消除嗎?
	MOV R2,B		;恢復現場
	RETI
        

        
PO1A:	MOV R2,#06H		;延時2
	ACALL DELY
	RET
        
PO1BH:	MOV R2,#30H		;延時3
	ACALL DELY
	RET
        
DELY:	PUSH 02H		;延時子程序
DEL2:	PUSH 02H
DEL3:	PUSH 02H
DEL4:	DJNZ R2,DEL4
	POP 02H
	DJNZ R2,DEL3
	POP 02H
	DJNZ R2,DEL2
	POP 02H
	DJNZ R2,DELY
	RET