	page	,132

cseg	segment 'code'
	assume	cs:cseg
initmem proc	far
	push	ds	; Linkage.
	xor	ax,ax
	push	ax

	cld		; Set auto incr for string ops.
	mov	ax,40h
	mov	ds,ax
	mov	ax,ds:[72h]
	cmp	ax,1234h


	mov	cx,544/16*1024
	mov	es,cx		; ES = 544kb.
	mov	cx,32*1024	; Initialize 32kb.
	xor	di,di		; Offset into ES at which to start.
	rep	stosb		; Init memory.

	ret			; Return to caller.
initmem endp
cseg	ends
	end
