relayandscr.asm

这是一个有关C8051F020单片机的实验教学材料,相信对于单片机的研究人员会有很大的帮助.

//-----------------------------------------------------------------------------
// 版权归新华龙电子公司所有
//-----------------------------------------------------------------------------
//
//文件名：	RELAYANDSCR.ASM
//
//编写人：	LC
//
//编写时间：2005/03/10
//
//目标器件: C8051F02x
//
//编译工具: Silicon Laboratories IDE
//
//程序说明:	此程序是驱动继电器和光耦

//P54--MUSIC	P55--RELAY		P56--PHOT0		P57--PHOT1

//------------------------------------------------------------------------------------
// Includes
//------------------------------------------------------------------------------------
$include (c8051f020.inc)                    // SFR declarations

	ORG		0
	AJMP	main
	ORG		0100H

;延时子程序
Delay:
    MOV   R7, #04h			
Delay1:
    MOV   R6, #80h
Delay0:
    MOV   R5, #00h
    DJNZ  R5, $
    DJNZ  R6, Delay0
    DJNZ  R7, Delay1
	RET

//------------------------------------------------------------------------------------
// MAIN Routine
//------------------------------------------------------------------------------------
main:
	;无效看门狗
	MOV		WDTCN,#0deH
	MOV		WDTCN,#0adH
	LCALL	PORT_Init
	MOV		A,P5
	ANL		A,#00H		;关PHOTO1和步进电机
	ORL		A,#60H		;关RELAY和PHOTO0
	MOV		P5,A
LOOP:
	;PHOTO1
	MOV		A,P5
	ORL		A,#80H
	MOV		P5,A		;开
	LCALL	Delay
	MOV		A,P5
	ANL		A,#7FH
	MOV		P5,A		;关
	LCALL	Delay
	;RELAY
	MOV		A,P5
	ANL		A,#0DFH
	MOV		P5,A		;开
	LCALL	Delay
	MOV		A,P5
	ORL		A,#20H
	MOV		P5,A		;关
	LCALL	Delay
	;PHOTO0
	MOV		A,P5
	ANL		A,#0BFH
	MOV		P5,A		;开
	LCALL	Delay
	MOV		A,P5
	ORL		A,#40H
	MOV		P5,A		;关
	LCALL	Delay
	LJMP	LOOP
	RET

;初始化I/O
PORT_Init:
	MOV		XBR2,#40H		;使能交叉开关和弱拉
	ORL		P74OUT,#08H		;P5高4位为推挽输出，其余口为开漏输出
	RET
	END