rzkenableinterrupts.s

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

;/*
;* File				:	RZKEnableInterrupts.s
;*
;* Description		:	Contains a routine to enable interrupts
;* 
;* Copyright 2004 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 
;*/
;	.INCLUDE	"toolsmith.inc"

	.RZK_TOOLSMITH :	.equ 1

			.def _RZKEnableInterrupts		
;			.RZK_TOOLSMITH	.equ 1
			.assume	adl=1
;/* Function		:	RZKEnableInterrupts
;*
;* Description		:	Enables interrupts
;* 
;* Inputs			:	Interrupt mask.
;*							
;* Outputs			:	None
;*							
;*
;* Dependencies		:	None.
;*/
_RZKEnableInterrupts:
	.IF	.RZK_TOOLSMITH
					PUSH IX
					LD IX, 0
					ADD IX, SP
					LD HL, (IX+6)
					BIT 2,L
					JP Z, Enabled
					EI
	ELSE
					BIT 2,E
					JP Z, Enabled
					EI
	ENDIF
		Enabled:
	.IF	.RZK_TOOLSMITH
					LD	SP,IX
					POP IX
					RET
	ELSE
					RET
	ENDIF