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
Bild 1. Argumente in den Anwenderbereich bringen
|