.386p
	assume	cs:MY_SEG
MY_SEG	segment	dword 'CODE'

	public	peek
	db	'peek',4
peek	proc	near
	enter	0,0

	mov	ax,[ebp+8]
	mov	fs,ax
	mov	eax,[ebp+12]
	mov	al,fs:[eax]

	leave
	ret
peek	endp

MY_SEG	ends
	end