.define .loi

        ! $Header$
	! #bytes in cx
	! source address in si
.loi:
	pop     bx
	mov     dx,cx
	sar     cx,1
	jnb     1f
	xorb    ah,ah
	lodsb
	push    ax
	jmp     bx
1:
	sub     sp,dx
	mov     di,sp
	rep movs
	jmp     bx