;routines to emultate lattice c peek and poke 
include dos.mac 
PSEG 
	public _peek 
_peek	proc near 
	push 	bp 
	mov	bp,sp 
	push	es 
	push 	ds 
	push 	si 
	push 	di 
	cld 
	mov 	ax,ds 
	mov 	es,ax 
	mov 	ds,[bp+4] 
	mov 	si,[bp+6] 
	mov 	di,[bp+8] 
	mov 	cx,[bp+10] 
	cli 
	rep 	movsb 
	sti 
	pop 	di 
	pop 	si 
	pop 	ds 
	pop 	es 
	pop	bp 
	ret 
_peek	endp 
	public _poke 
_poke	proc near 
	push 	bp 
	mov	bp,sp 
	push	es 
	push 	ds 
	push 	si 
	push 	di 
	cld 
	mov es,[bp+4] 
	mov di,[bp+6] 
	mov si,[bp+8] 
	mov cx,[bp+10] 
	cli 
	rep movsb 
	sti 
	pop di 
	pop si 
	pop ds 
	pop es 
	mov bp,sp 
	pop	bp 
	ret 
_poke	endp 
ENDPS 
END