page	,132

sseg	segment stack 'stack'
	db	64 dup('stack   ')
sseg	ends

dseg	segment 'data'
dseg	ends

cseg	segment 'code'
	assume	cs:cseg,ds:dseg,ss:sseg,es:dseg
p1	proc	far
	push	ds	; Linkage.
	xor	ax,ax
	push	ax

	ret		; Return to caller.
p1	endp
cseg	ends
	end