.define .set.text	! #bytes in cx	! bit # in ax.set:	pop     bx              ! return address	xor     dx,dx!ifdef create set	sub	sp,cx	push	bx	push	di	mov     bx,sp	xor	di,di	sar	cx,#11:	mov     4(bx)(di),dx	inc	di	inc	di	loop	1b!endif	mov     bx,#8	div     bx	cmp     ax,di	jae     2f	mov	di,dx	movb	dl,bits(di)	mov     di,sp	add     di,ax	orb     4(di),dl	pop	di	ret2:ESET = 2.extern .error	pop	di	mov     ax,#ESET	call	.error	ret	.databits:	.data1   1,2,4,8,16,32,64,128