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

.sect .text
.csa2:
				! si, descriptor address
				! bx, index
	mov     dx,(si)         ! default
	sub     bx,2(si)
	cmp     bx,4(si)
	ja      1f
	sal     bx,1
	mov     bx,6(bx)(si)
	test    bx,bx
	jnz     2f
1:
	mov     bx,dx
	test    bx,bx
	jnz     2f
.extern ECASE
.extern .fat
	mov     ax,ECASE
	push    ax
	jmp     .fat
2:
	jmp     bx