;
;   Das Programm fur moguri.com, rpal zu suchen
;
;
;				Aki
;
mcb	struc
	mcb_flg		db ?
	mcb_owner	dw ?
	mcb_size	dw ?
mcb	ends

spal	struc
	id		db 'pal98 grb',0
	tone		db 100
	flag		db ?
			db 4 dup (0) ;reserve
	pal		db 16 * 3 dup (?)
spal	ends

_TEXT	segment	byte public 'CODE'
DGROUP	group	_TEXT,_DATA,_BSS
	assume	cs:DGROUP,ds:DGROUP,ss:DGROUP
_TEXT	ends
_DATA	segment word public 'DATA'
_DATA	ends
_BSS	segment word public 'BSS'
_BSS	ends
_TEXT	segment	byte public 'CODE'
_spalsuchen	proc	near
	push	bp
	mov	bp,sp
	push	si
	push	es
	push	ds
		
	mov	ah,52h
	int	21h
	mov	ax,es:[bx-2]
	cld
;	mov	bx,cs
;	mov	ds,bx
	
next1:	mov	es,ax
	inc	ax
	xor	bx,bx
	
	cmp	bx,es:[bx.mcb_owner]
	je	next
	
	mov	di,10h
	mov	cx,10
	mov	si,[bp+4]
	rep	cmpsb
	jz	quit

next:	add	ax,es:[bx.mcb_size]
	mov	cl,'Z'
	cmp	cl,es:[bx.mcb_flg]
	jne	next1
	mov	ax,0h
	
quit:	pop	ds
	pop	es
	pop	si
	pop	bp
		
	ret	

_spalsuchen	endp
_TEXT	ends
_DATA	segment word public 'DATA'
_DATA	ends
_TEXT	segment	byte public 'CODE'
_TEXT	ends
	public	_spalsuchen
	end