SUCHEN  ASM;
;	J|rg B|ttge
;	FA 35/241
;	Friedensstra~e 10
;	O-6822 SCHWARZA
;
;	DIESES FAST VOLL VERSCHIEBLICHE
;	PROGRAMM SUCHT NACH EINER
;	ZEICHENKETTE . WERDEN 2 PARA-
;	METER ANGEGEBEN , WIRD DIESE
;	ALS ASCII-CODE GESUCHT , BEI
;	3 PARAMETERN ALS HEX-DUMP .
;
;	ABBRUCH MIT <BRK> MOEGLICH.
;
;	REIHENFOLGE DER PARAMETER :
;	ANF.ADRESSE ENDADRESSE
;
;
;	MAX. ANZAHL DER HEX-DUMPS : 10
;
;	MAX. ZEICHENZAHL : 40
;
;
;	HINWEIS: DIREKTEN SPRUNG 'JP L6'
;		 AM ENDE BEACHTEN!
;
;
;
;
	ORG	0BC00H
;
PV1:	EQU	0F003H
ARGN:	EQU	0B781H
ARG1:	EQU	ARGN+1
ARG2:	EQU	ARG1+2
ARG3:	EQU	ARG2+2
ARG4:	EQU	ARG3+2
ARG5:	EQU	ARG4+2
ARG6:	EQU	ARG5+2
ARG7:	EQU	ARG6+2
ARG8:	EQU	ARG7+2
ARG9:	EQU	ARG8+2
ARG10:	EQU	ARG9+2
HOR:	EQU	0B7D3H
;
;
	DEFW	07F7FH
	DEFM	'SUCH'
	DEFB	001H
	XOR	A
	LD	(HOR+2),A
	LD	HL,REAK
	LD	(0B7A4H),HL
	CALL	PV1
	DEFB	015H
	LD 	(0B7C6H),DE
	CP	003H
	PUSH	AF
	JR	Z,L1
	CP	002H
	JR	Z,L1
FEHL:	CALL	PV1
	DEFB	19H
	RET
;
L1:	CALL 	PV1
	DEFB	23H
	DEFB	010H
	DEFW	020AH
	DEFW	020AH
	DEFM	'TEXT :'
	DEFW	0020AH
	DEFW	020AH
	DEFB	0BH
	DEFB	000H
	EXX
	CALL	PV1
	DEFB	017H	;INLIN
	LD	(HOR),DE
	POP	AF
	JR	NZ,L2
	CALL	PV1
	DEFB	022H
	JR	C,FEHL
	LD	A,(ARGN)
	LD	B,A
	LD	DE,(HOR)
	LD	HL,ARG1
L3:	LD	A,(HL)
	LD	(DE),A
	INC	DE
	INC	HL
	INC	HL
	DJNZ	L3
	XOR	A
	LD	(DE),A
L2:	EXX
L6:	EX	DE,HL
	SBC	HL,DE
	PUSH	HL
	POP	BC	;LAENGE
	EX	DE,HL	;ANFANG
SUCH:	LD	DE,(HOR)
	LD	A,(DE)
	CPIR
	JR	Z,L5
END:	LD	A,(HOR+2)
	CP	0FFH
	JR	Z,ENDE
	CALL	PV1
	DEFB	023H
	DEFB	0AH
	DEFB	002H
	DEFM	'IN DIESEM ADRESSBEREI'
	DEFM	'CH NICHT VORHANDEN'
	DEFW	020AH
	DEFB	00H
NORM:	LD	HL,0E260H
	LD	(0B7A4H),HL
	RET
;
ENDE:	CALL	PV1
	DEFB	23H
	DEFW	020AH
	DEFW	020AH
	DEFM	'SUCHEN WURDE BEENDET'
	DEFW	020AH
	DEFB	0
	JR	NORM
;
L5:	INC	DE
	LD	A,(DE)
	CPI
	JR	Z,L5
	LD	A,(DE)
	CP	000H
	JR	Z,ANZ
	LD	A,B
	CP	00H
	JR	NZ,SUCH
	LD	A,C
	CP	00H
	JR	NZ,SUCH
	JR	END
ANZ:	PUSH	HL
	EX	DE,HL
	LD	DE,(HOR)
	SBC	HL,DE
	EX	DE,HL
	POP	HL
	SBC	HL,DE
	CALL	PV1
	DEFB	023H
	DEFB	0AH
	DEFB	002H
	DEFM	'TEXT BEGINNT AUF : '
	DEFB	00H
	DEC	HL
	CALL	PV1
	DEFB	1AH
	LD	A,0FFH
	LD	(HOR+2),A
	CALL	PV1
	DEFB	2AH
	JR	C,ENDE
;
	INC	HL
	LD	DE,(0B7C6H)
	JP	L6
;
REAK:	PUSH	HL
	PUSH	AF
	CALL	PV1
	DEFB	04H
	POP	AF
	POP	HL
	LD	DE,0500H
	RET
;
&Н
REAK:шМ
ANZ:бМ
L5:АМ
ENDE:ЉМ
NORM:rМ
END:iМ
SUCH:cМ
L6:bМ
L2:YМ
L3:'М
L1:"М
FEHL:гЗ	POP	AF
	POP	HL
	LD	DE,0500H
	RET
;
&Н
REAK:шМ
ANZ:бМ
L5:АМ
ENDE:ЉМ
NORM:rМ
END:iМ
SUCH:cМ
L6:bМ
L2:YМ
L3:'М
L1:"М
FEHL:гЗ