;	INTERRUPT WAIT/RELEASE LOGIC (PEND, RELEASE)
;
	NAM	IXPEND
;
	ENT	I$PEND,I$RLSE
;
	EXT	CXTCB
;
	ICL	DOSPARM.MU	;02.39
;
I$PEND:	XCHG		; HL = TCB SAVE AREA ADDRESS
	LHLD	CXTCB	; CURRENT TCB
	XCHG
	MOV	M,E
	INX	H
	MOV	M,D	; TCB SAVED
	LDAX	D	; GET STATUS
	ORI	TCBINT	; SAY WAITING INTERRUPT SERVICE
	STAX	D
	RET		; RETURN TO USER!!!!
;
I$RLSE:	MOV	E,M	; HL = TCB SAVE AREA AGAIN
	INX	H
	MOV	D,M	; TCB GOTTEN
	LDAX	D
	ANI	0FFH-TCBINT	; TURN OFF
	STAX	D
	RET		; NOT SURE WHAT ELSE HE HAS TO DO
;
	END
