#; $Header: /cvsup/minix/src/lib/ack/libp/bts.e,v 1.1 2005/10/10 15:27:46 beng Exp $;; (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.;;          This product is part of the Amsterdam Compiler Kit.;; Permission to use, sell, duplicate or disclose this software must be; obtained in writing. Requests for such permissions may be sent to;;      Dr. Andrew S. Tanenbaum;      Wiskundig Seminarium;      Vrije Universiteit;      Postbox 7161;      1007 MC Amsterdam;      The Netherlands;; ; Author: J.W. Stevenson */ mes 2,_EM_WSIZE,_EM_PSIZE#define	SIZE	0#define	HIGH	_EM_WSIZE#define	LOWB	2*_EM_WSIZE#define	BASE	3*_EM_WSIZE; _bts is called with four parameters:;	- the initial set (BASE);	- low bound of range of bits (LOWB);	- high bound of range of bits (HIGH);	- set size in bytes (SIZE) exp $_bts pro $_bts,0 lal BASE	; address of initial set lol SIZE los _EM_WSIZE	; load initial set1 lol LOWB	; low bound lol HIGH	; high bound bgt *2		; while low <= high lol LOWB lol SIZE set ?		; create [low] lol SIZE ior ?		; merge with initial set inl LOWB	; increment low bound bra *1		; loop back2 lal BASE lol SIZE sts _EM_WSIZE	; store result over initial set ret 0 end ?