MODSUCHASM	ORG	6000H
;
;       23.3.1990 by JC-SOFT
;       **************
;          >MSUCH<
;       **************
;
;       PE:
;       Reg. A --> Strukturbyte
;       PA:
;       Reg. L --> Steckplatz
;       Fl. CY ==> 1 wenn nicht vorh.
;
;
PV1	EQU	0F003H
MODUL	EQU	26H
;
MSUCH	EX	AF
	LD	L,4
MSUCHW	LD 	A,1
	CALL	PV1
	DEFB	MODUL
	EX	AF
	CP	H
	RET	Z
MSUCHF	EX	AF
	LD	A,4
	ADD	L
	LD	L,A
	JR	NZ,MSUCHW
	SCF
	RET
;       MSUCH dient dem Suchen von
;       Modulen im gesamten System.
;       Dabei wird grunds{tzlich das
;       erste Modul mit dem in 'A'
;       stehenden Strukturbyte ge-
;       funden. Soll weitergesucht
;       werden, so ist mit dem
;       Strukturbyte in 'A' und dem
;       letzten Modulschacht in 'L'
;       auf der Marke MSUCH wieder
;       einzuspringen.
;
;                 E n d e
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ