stdlib		segment	para public 'slcode'
		assume	cs:stdlib
;
;
; Member-	Checks to see if a character is in a set.
;
; inputs:
;
;	ES:DI-  Points at the set (at its mask byte).
;	AL-	Character to check.
;
; outputs:
;	zero flag is set if the character is not in the set.
;	zero flag is clear if the character is in the set.
;
;
		public	sl_member
;
sl_member	proc	far
		push	ax
		push	bx
;
		mov	bl, al
                mov	bh, 0
		mov	al, es:[di]		;Get mask byte
		test	al, es:8[di][bx]	;See if char is in set.
;
		pop	bx
		pop	ax
		ret
sl_member	endp
;
;
stdlib		ends
		end