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

(Source file text) 

---

.SBTTL	
STERES: TERMINAL RESET

.INCLUDE SYS:MACLIB.MA
.INCLUDE SYS:CURLIB.MA

/
***** STERES *****
/82-09-17/JBU,17-12-82/VHE
/(L,AC,MQ)=?,?,?
/CALL STERES
/(L,AC,MQ)=?,0,?
/
******************

/GESENDETES SIGNAL: ESC c


OPEN	"STERE","F"

.ENTRY	STERES

	DEFMER MERK$,COUNT1$,COUNT2$

STERES,	OPNSUB	RT:STERX$

	CLA
	VATAD SPHSR
	DCA MERK$
	TAD MERK$
	SNA CLA
	JMP STER3$
	TAD (CTRL)
	TYPECL

STER3$:	VADCA SPHSR
	VATAD ADM3A
	SNA CLA
	JMP STERX$		/KEIN VT100

	TYPECL (ESC)
	TYPECL	<"c>

	CLA
	TAD (-31.)		/VERZOEGERUNG VON 3 SEKUNDEN
	DCA COUNT1$

STER1$:	ISZ COUNT1$
	SKP
	JMP STER2$
	TAD (1000)
	DCA COUNT2$
	CAL
	ISZ COUNT2$
	JMP .-2
	JMP STER1$

STER2$:	DCAADD VA:SPHSR,MERK$
STERX$:	V
	JMP I STERES

CLOSE	"STERE"

ENDPR

---