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

(Source file text) 

---

.TITLE
 L I N K - L I B R A R Y
.SBTTL 
SCRLF :CRLF AUSGEBEN

.INCLUDE SYS:MACLIB.MA


/****** SCRLF *********
/22.10.82   HEBR/20.6.83  VH
/(L,AC)=?,?
/CALL SCRLF
/ANZAHL SCRLF
/(L,AC)=0,0
/*********************


/DIESES UNTERPROGRAMM WIRD VON DEM MACRO CRLF AUFGERUFEN
/ALS PARAMETER HINTER DEM AUFRUF MUSS DIE ANZAHL DER CRLF ANGEGEBEN WERDEN.
/DIE ANZAHL DARF NICHT 0 SEIN !!!

OPEN	"SCRLF","F"

.ENTRY SCRLF
DEFMER TEMP$

SCRLF,	OPNSUB RT:EXIT$,TEMP$

	TAD TEMP$
	CMA IAC
	DCA TEMP$

SCR1$:	TYPECL (CR)

	TYPECL (LF)

	ISZ TEMP$
	JMP SCR1$	/WIEDERHOLUNG

	CAL
EXIT$:	V
	JMP I SCRLF

CLOSE	"SCRLF"

	ENDPR

---