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

(Source file text) 

---

.TITLE
	L I N K - L I B R A R Y
.SBTTL	
STHOLA:UMSPEICHERN EINES GEPACKTEN TEXTES



.INCLUDE SYS:MACLIB.MA


/****STHOLA****
/08.09.81  PMO/20.6.83  PMO
/(L,AC)=?,?
/CALL	STHOLA
/CDF TEXTFELD VON
/TEXTANFANG   VON
/CDF TEXTFELD NACH
/TEXTANFANG   NACH
/TEXTENDE     NACH
/(L,AC)=0,0
/**************



/DAS UNTERPROGRAMM STHOLA WIRD VOM MACRO TEXHOL VERWENDET.

/ES DIENT ZUM UMTRANSPORT VON GEPACKTEN TEXTEN IN ANDERE SPEICHERBEREICHE.
/STHOLA IST ALS ZUSAETZLICHES ARBEITSPROGRAMM FUER SEDITO GEDACHT.



/ES IST UNBEDINGT DARAUF ZU ACHTEN, DASS DIE TEXTLAENGEN
/EINGEHALTEN WERDEN!



OPEN	"STHOLA","F"

.ENTRY STHOLA
DEFMER PNTRV$,PNTRN$,ENTEN$

STHOLA,	OPNSUB RT:THOLR$,THOL3$,PNTRV$,THOL4$,PNTRN$,ENTEN$


THOL3$:	V
	TAD I PNTRV$
THOL4$:	V
	DCA I PNTRN$


	VERGLE AC+ENTEN$,PNTRN$,GT:ENDE$,EQ:ENDE$	/ALLSE UMGESPEICHERT ?

	TAD I PNTRN$		/TEXTENDE ?
	AND (77)
	SNA CLA
	JMP ENDE$

	ISZ PNTRN$
	JMP THOL5$

	TAD THOL4$
	JMS FLDSET		/FELD ERHOEHEN	
	DCA THOL4$

THOL5$:	ISZ PNTRV$	
	JMP THOL3$	

	TAD THOL3$
	JMS FLDSET		/FELD ERHOEHEN
	DCA THOL3$
	JMP THOL3$		/WIEDERHOLUNG

ENDE$:	CAL
THOLR$:	V
	JMP I STHOLA

/---------------------- FELDUMSCHALTUNG ------------------------------------

FLDSET:	V
	TAD (10)
	BSW
	CLL RAR
	SZL
	TAD (200)
	CLL RAL
	BSW
	JMP I FLDSET




CLOSE	"STHOLA"

	ENDPR

---