TITLE	$AT
	ENTRY	$AT
;
;	Standardroutine zum Transfer von Argumenten
;	(Parameter 3,4,... eines Unterprogramms) in den
;	Anwenderbereich.
;
;	Bei Aufruf enthaelt HL die Zieladresse,
;	BC die Adresse der Parameterliste und A die
;	Anzahl der zu transferierenden Parameter.
;
$AT:	EX	DE,HL		; HL in DE sichern
	LD	H,B
	LD	L,C		; Adresse der Parameterliste nach HL
AT1:	LD	C,(HL)
	INC	HL
	LD	B,(HL)		; Parameteradresse nach BC
	INC	HL
	EX	DE,HL		; Adresse des Anwenderbereichs nach HL
	LD	(HL),C
	INC	HL
	LD	(HL),B		; Parameteradresse transferieren
	INC	HL
	EX	DE,HL		; HL = Adresse des naechsten Parameters
	DEC	A		; Zaehler dekrementieren
	JP	NZ,AT1
	RET
;
	END