dataper_api_intr.s

zilog的实时操作系统RZK,可以移植到多种处理器上

;/*
; * File       : DataPer_API_Intr.s
; * Description: This file contains the data persistence APIs related
; *              to interrupts
; * Created on : 3-FEB-2005
; *
; * Copyright 2004-2005 ZiLOG Inc.  ALL RIGHTS RESERVED.
; *
; * This file contains unpublished confidential and proprietary information
; * of ZiLOG, Inc.
; * NO PART OF THIS WORK MAY BE DUPLICATED, STORED, PUBLISHED OR DISCLOSED 
; * IN ANY FORM WITHOUT THE PRIOR WRITTEN CONSENT OF ZiLOG, INC.
; * This is not a license and no use of any kind of this work is authorized
; * in the absence of a written license granted by ZiLOG, Inc. in ZiLOG's 
; * sole discretion 
; */

	.RZK_TOOLSMITH :	.equ 1

	segment DATA

	.def _Per_DI
	.def _Per_EI
	.assume	adl=1
;/*
; * Function : Per_DI
; * Description : disables the interrupts.
; * Inputs : None
; * Inputs : Interrupt Mask
; * Dependecies : None
; */
_Per_DI:

	PUSH AF
	LD A, I
	JP V, ENABLED_PER_DI
	LD HL, 0h
	DI
	POP AF
	RET
ENABLED_PER_DI:	
	LD HL,0h
	SET 2,L
	DI
	POP AF
	RET

;/*
; * Function : Per_EI
; * Description : enables the interrupts if interrupts were enabled before
; *               calling Per_DI
; * Inputs : None
; * Inputs : Interrupt Mask
; * Dependecies : None
; */
_Per_EI:
	PUSH IX
	LD IX, 0
	ADD IX, SP
	LD HL, (IX+6)
	BIT 2,L
	JP Z, ENABLED_PER_EI
	EI
ENABLED_PER_EI:
	LD	SP,IX
	POP IX
	RET