.sect .text; .sect .rom; .sect .data; .sect .bss
.define .csb4

.sect .text
.csb4:
				!bx: descriptor address
				!ax, dx:  index
	push	(bx)		! default
	mov	cx,2(bx)	! count (ignore high order word, the descriptor
				! would not fit anyway)
1:
	add	bx,6
	dec     cx
	jl      4f
	cmp     ax,(bx)
	jne     1b
	cmp	dx,2(bx)
	jne     1b
	pop	cx
	mov	bx,4(bx)
2:
	test    bx,bx
	jnz     3f
.extern ECASE
.extern .fat
	mov     ax,ECASE
	push    ax
	jmp     .fat
3:
	jmp	bx
4:
	pop	bx
	jmp	2b