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

(Source file text) 

---

.TITLE	
L I N K - L I B R A R Y
.SBTTL	
SWAIT :WARTEN, WENN CTRL-ZEICHEN EINGEGEBEN

.INCLUDE SYS:MACLIB.MA

/
****SWAIT*****
/04.09.81  PMO,15.8.83  VH
/(L,AC)=?,?
/CALL	SWAIT
/ADRESSE BEI CTR-F
/(L,AC)=0,0
/
**************

/DAS UNTERPROGRAMM SWAIT WIRD VOM MACRO WAIT VERWENDET

/ES DIENT ZUM ANHALTEN EINES AUSDRUCKES AUF DEM TTY UND DEM LPT
/DER AUSDRUCK KANN DURCH 	CTR D	GESTOPPT
/		   DURCH	CTR E	FORTGESETZT (NORMALER AUSTRITT)
/		   DURCH	CTR F   BEENDET (VORZEITIGER AUSTRITT)
/				WERDEN

/AUSWAHL TTY,LPT DURCH 	SPHSR=0	NUR TTY
/			SPHSR=1	TTY+LPT

OPEN	"SWAIT","F"

.ENTRY	SWAIT

SWAIT,	OPNSUB RT:SWAIR$

	KSF
	JMP SWAI1$
	KRB
	TAD (-^"D)
	SNA
	JMP SWAID$
	TAD (^"D-^"F)
	SNA
	JMP SWAIR$

SWAI1$:	INC SWAIT,0
SWAIR$:	V
	CAL
	JMP I SWAIT			/RUECKSPRUNG
SWAID$:	TYPE TTY,0,<SPACE>
	TYPE TTY,0,<"^>
	TYPE TTY,0,<"D>
	TYPE TTY,0,<":>

SWAD1$:	LIES TTY
	TAD (-^"E)
	SNA
	JMP SWAIE$
	TAD (^"E-^"F)
	SNA
	JMP SWAIR$
	JMP SWAD1$
SWAIE$:	.REPT 4
	RUBOUT
	.ENDR
	JMP SWAI1$


CLOSE	"SWAIT"

	ENDPR

---