stdlib		segment	para public 'slcode'
		assume	cs:stdlib
;
;
; union-	Unions one set with another.
;
; inputs:
;
;	ES:DI-  Points at the destination set (at its mask byte).
;	DX:SI-	Points at the mask byte of the source set.
;
;
;
		public	sl_union
;
sl_union	proc	far
		push	ds
		push	ax
		push	cx
		push	si
		push	di
		mov	ds, dx
;
		mov	al, es:[di]		;Get mask bytes
		mov	ah, [si]
		add	si, 8			;Skip to start of set
                add	di, 8
		mov	cx, 256
unionLp:	test	ah, [si]
		jz	Next
		or	es:[di], al
Next:		inc	si
		inc	di
		loop	unionLp
;
		pop	di
		pop	si
		pop	cx
		pop	ax
		pop	ds
		ret
sl_union	endp
;
;
stdlib		ends
		end