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