PGROUP	Group	PROGDGROUP	Group	DATADATA	Segment	Public	'DATA'public	brkflagbrkflag	DW	0DATA	endsPROG	Segment	Para	Public	'PROG'public	TrapBreaassume cs:PGROUP,DS:DGROUPTrapBrea	proc	near	push	ds	push	cs	pop	ds	mov	dx,offset PGROUP:Bret	mov	ah,25h	mov	al,23h	int	21h	pop	ds	retTrapBrea	endp Bret	proc	far	push	ds	push	ax	mov	ax,DGROUP	mov	ds,ax	mov	brkflag,1	pop	ax	pop	ds	iretBret	endpPROG	ends	end