	ifndef	??version
?debug	macro
	endm
	endif
	?debug	S "foo.c"
_TEXT	segment	byte public 'CODE'
DGROUP	group	_DATA,_BSS
	assume	cs:_TEXT,ds:DGROUP,ss:DGROUP
_TEXT	ends
_DATA	segment word public 'DATA'
d@	label	byte
d@w	label	word
_DATA	ends
_BSS	segment word public 'BSS'
b@	label	byte
b@w	label	word
	?debug	C E9513B411605666F6F2E63
_BSS	ends
_TEXT	segment	byte public 'CODE'
;	?debug	L 16
_foo	proc	near
	push	bp
	mov	bp,sp
;	?debug	L 19
	mov	dx,word ptr [bp+6]
	mov	ax,word ptr [bp+4]
	mov	cl,24
	call	far ptr LXRSH@
	mov	dx,word ptr [bp+6]
	xor	al,dl
	push	ax
	mov	dx,word ptr [bp+6]
	mov	ax,word ptr [bp+4]
	mov	cl,8
	call	far ptr LXRSH@
	pop	dx
	xor	dl,al
	xor	dl,byte ptr [bp+4]
	mov	dh,0
	mov	bx,dx
	shl	bx,1
	mov	ax,word ptr DGROUP:_Hashtab[bx]
	jmp	short @1
@1:
;	?debug	L 20
	pop	bp
	ret	
_foo	endp
;	?debug	L 24
_oldhash_ip	proc	near
	push	bp
	mov	bp,sp
	sub	sp,2
;	?debug	L 29
	mov	ax,word ptr [bp+6]
	mov	word ptr [bp-2],ax
;	?debug	L 30
	mov	ax,word ptr [bp+4]
	xor	word ptr [bp-2],ax
;	?debug	L 31
	mov	ax,word ptr [bp-2]
	mov	bx,5
	xor	dx,dx
	div	bx
	mov	ax,dx
	jmp	short @2
@2:
;	?debug	L 32
	mov	sp,bp
	pop	bp
	ret	
_oldhash_ip	endp
_TEXT	ends
_BSS	segment word public 'BSS'
_Hashtab	label	word
	db	512 dup (?)
_BSS	ends
	?debug	C E9
_DATA	segment word public 'DATA'
s@	label	byte
_DATA	ends
	extrn	LXRSH@:far
_TEXT	segment	byte public 'CODE'
_TEXT	ends
	public	_oldhash_ip
	public	_Hashtab
	public	_foo
	end
