File: SZUWEI.MA of Tape: Various/Decus/decus-2

(Source file text) 

---

.TITLE	
L I N K - L I B R A R Y
.SBTTL 
SZUWEI:ZUWEISUNGSROUTINE



.INCLUDE SYS:MACLIB.MA


/
***** SZUWEI *****
/11.12.81/JBU ,15.8.83  VH
/(L,AC)=?,ARGUMENT WELCHEM EIN NEUER WERT ZUGEWIESEN WERDEN SOLL
/CALL	SZUWEI
/FELD	LISTEN
/ADRESSE LISTE	ARGUMENTE
/ADRESSE LISTE	BITMUSTER
/RUECKKEHRADR. WENN AC GLEICH EINEM DER ARGUMENTE
/RUECKKEHRADR. WENN AC-INHALT UNGLEICH EINEM DER ARGUMENTE
/(L)=?
/(AC)=BITMUSTER WENN ALTER AC-INHALT IN ARG.-LISTE ENTHALTEN WAR
/(AC)=ALTER INHALT WENN NICHT IN ARG.-LISTE GEFUNDEN
/
******************

/DAS UNTERPROGRAMM SZUWEI WIRD VOM MACRO ZUWEIS VERWENDET

/DIE ROUTINE DIENT ZUM ZUWEISEN EINES BITMUSTERS
/BEIDE LISTEN MUESSEN IN EINEM FELD STEHEN


OPEN	"SZUWEI","F"

.ENTRY	SZUWEI

	DEFMER	LILNG$	,BIMLI$	,ARGLI$	,TEMP1$

SZUWEI,	OPNSUB RT:SZURR$,AC:TEMP1$,FLDSP$,ARGLI$,BIMLI$

	TAD BIMLI$	/LISTENLAENGE ERMITTELN
	CIA
	DCAADD LILNG$,AC+ARGLI$
	DEC BIMLI$	/BITMUSTERADR. -1
	JMP FLDSP$

SZUR1$:	ISZ LILNG$	/LISTE ZUENDE ?
	JMP FLDSP$	/NEIN
	INC SZUWEI,0	/RUECKKEHR, AC IN ARG.-LISTE NICHT GEFUNDEN
	TAD TEMP1$
	JMP SZURR$

FLDSP$:	V
	TAD I ARGLI$
	INC ARGLI$
	INC BIMLI$

	VERGLE AC,TEMP1$,NE:SZUR1$	/ARGUMENT GEFUNDEN ?

	TAD I BIMLI$	/JA, BITMUSTER REINHOLEN
SZURR$:	V
	JMP I SZUWEI	/RUECKSPRUNG


CLOSE	"SZUWEI"

	ENDPR


---