code	segment
	assume	cs:code,ds:code,es:code
	org	100h
start:
	mov	ah,52h
	int	21h
	mov	ax,es:[bx-02h]		;ＭＣＢチェインの最初のセグメント
	xor	cx,cx			;ＭＣＢの０パラの場合を<free>にした数
	xor	bx,bx			;０
mcb:
	mov	es,ax
	inc	ax
	cmp	word ptr es:[bx+3],bx
	jnz	next
	mov	word ptr es:[bx+1],bx
	inc	cx
next:
	add	ax,es:[bx+3]
	cmp	byte ptr es:[bx],'M'	;Ｍなら続きが有る
	jz	mcb
	xchg	ax,cx
	mov	ah,4ch
	int	21h

code	ends
	end	start