PGROUP	Group	PROG
DGROUP	Group	DATA


DATA	Segment	Public	'DATA'

public	brkflag

brkflag	DW	0

DATA	ends

PROG	Segment	Para	Public	'PROG'

public	TrapBrea

assume cs:PGROUP,DS:DGROUP

TrapBrea	proc	near

	push	ds
	push	cs
	pop	ds
	mov	dx,offset PGROUP:Bret
	mov	ah,25h
	mov	al,23h
	int	21h
	pop	ds
	ret

TrapBrea	endp 

Bret	proc	far

	push	ds
	push	ax
	mov	ax,DGROUP
	mov	ds,ax
	mov	brkflag,1
	pop	ax
	pop	ds
	iret

Bret	endp
PROG	ends

	end