name	test01
TEST01_TEXT	segment	byte public 'CODE'
DGROUP	group	_DATA,_BSS
	assume	cs:TEST01_TEXT,ds:DGROUP
TEST01_TEXT	ends
_DATA	segment word public 'DATA'
_d@	label	byte
_DATA	ends
_BSS	segment word public 'BSS'
_b@	label	byte
_BSS	ends
TEST01_TEXT	segment	byte public 'CODE'
_main	proc	far
	push	si
	push	di
	push	bp
	mov	bp,sp
	sub	sp,10
	mov	si,1
	mov	di,2
	mov	word ptr [bp-10],3
	mov	word ptr [bp-8],4
	mov	word ptr [bp-6],5
	mov	word ptr [bp-4],6
	push	word ptr [bp-4]
	push	word ptr [bp-6]
	push	word ptr [bp-8]
	push	word ptr [bp-10]
	push	di
	push	si
	call	far ptr _func01
	add	sp,12
	mov	word ptr [bp-2],ax
	push	word ptr [bp-2]
	push	ds
	mov	ax,offset DGROUP:_s@
	push	ax
	call	far ptr _printf
	add	sp,6
	xor	ax,ax
	mov	sp,bp
	pop	bp
	pop	di
	pop	si
	ret
_main	endp
_func01	proc	far
	push	bp
	mov	bp,sp
	mov	ax,word ptr [bp+6]
	add	ax,word ptr [bp+8]
	add	ax,word ptr [bp+10]
	add	ax,word ptr [bp+12]
	add	ax,word ptr [bp+14]
	add	ax,word ptr [bp+16]
	pop	bp
	ret
_func01	endp
TEST01_TEXT	ends
_DATA	segment word public 'DATA'
_s@	label	byte
	db	114
	db	101
	db	115
	db	117
	db	108
	db	116
	db	32
	db	61
	db	32
	db	37
	db	100
	db	10
	db	0
_DATA	ends
TEST01_TEXT	segment	byte public 'CODE'
	public	_func01
	public	_main
TEST01_TEXT	ends
	extrn	_printf:far
	end