.define .sar2.text.sar2:				! bx, descriptor address				! ax, index	pop	cx	pop	dx		! base address	push	cx	xchg	di,dx		! di = base address, dx is saved di	sub     ax,(bx)	mov     cx,4(bx)	push	dx	imul    cx	pop	dx	add     di,ax	sar     cx,#1	jnb     1f	pop	bx	pop     ax	stosb	mov	di,dx	jmp     (bx)1:	pop	bx	mov	ax,si	mov     si,sp	rep	mov	mov     sp,si	mov	si,ax	mov	di,dx	jmp     (bx)