;
; Check fcbs hl^ and de^ have wild cards in the same areas.
; Carry if not.  This checks compatibility between input
; and output wild card specifications.
.wldck::
	push	b
	push	d
	push	h
	mvi	b,11
wldck1:	inx	h
	inx	d
	mov	a,m
	cpi	'?'
	jz	wldck7;		hl^ is wild
	ldax	d
	cpi	'?'
	stc
	jz	wldck9;		de^ wild, hl^ non-wild
	jmp	wldck8
wldck7:	ldax	d;		hl^ is wild
	cpi	'?'
	stc
	jnz	wldck9;		de^ non-wild, hl^ wild
wldck8:	dcr	b
	jnz	wldck1;		check next
	ora	a;		wilds match, clear carry
wldck9:	pop	h
	pop	d
	pop	b
	ret