rzkdisableinterrupts.s

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

;/*
;* File				:	RZKDisableInterrupts.s
;*
;* Description		:	Contains a routine to disable 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 _RZKDisableInterrupts					
		.assume	adl=1
;		.RZK_TOOLSMITH	.equ 1
			
;/* Function		:	RZKDisableInterrupts
;*
;* Description		:	Disables interrupts
;* 
;* Inputs			:	None.
;*							
;* Outputs			:	Interrupt mask
;*							
;*
;* Dependencies		:	None.
;*/
_RZKDisableInterrupts:

	.IF	.RZK_TOOLSMITH
				PUSH AF
				LD A, I
				JP V, ENABLED
				LD HL, 0h
				DI
				POP AF
				RET
	ELSE
				LD A,I
				JP V, ENABLED
				LD HL,0h
				DI
				RET
	ENDIF

		ENABLED:	
	.IF	.RZK_TOOLSMITH
				LD HL,0h
				SET 2,L
				DI
				POP AF
				RET
	ELSE		
				LD HL,0h
				SET 2,L
				DI
				RET
	ENDIF

	END