
	include	masmdefs.hsm
	include	model.hsm

codedef PEEKL
datadef

cstart  PEEKL
cpublic peekl

	push	si

	mov	bx,es
	les	si,dword ptr @ab[bp]	
	mov	ax,es:[si]
	mov	dx,es:[si+2]
	mov	es,bx

	pop	si

creturn peekl
cend    PEEKL

        end
