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

(Source file text) 

---

.TITLE
	L I N K - L I B R A R Y
.SBTTL 
SSPACE:SPACES AUSGEBEN

.INCLUDE SYS:MACLIB.MA


/****** SSPACE *******
/22.10.81   HEBR/20.6.83  VH
/(L,AC)=?,ANZAHL
/CIF SSPACE
/JMS SSPACE
/(L,AC)=0,0
/*********************

/DIESES UNTERPROGRAMM WIRD VON DEN MACROS MSPACE UND FUELL AUFGERUFEN
/DIE ANZAHL DER SPACES WERDEN IM AKKU UEBERGEBEN


OPEN	"SSPACE","F"

.ENTRY SSPACE
DEFMER TEMP$

SSPACE,	OPNSUB RT:EXIT$,AC:TEMP$

	TAD TEMP$
	CMA
	DCA TEMP$

MSPA1$:	ISZ TEMP$
	SKP
	JMP ENDE$
	TYPECL (SPACE)
	JMP MSPA1$	/WIEDERHOLUNG

ENDE$:	CAL
EXIT$:	V
	JMP I SSPACE


CLOSE	"SSPACE"

	ENDPR

---