;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