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

(Source file text) 

---

.SBTTL	
SCURSO: CURSOR SAVE + RESTORE

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


/
***** SCURSO *****
/82-06-28/JBU,16-12-82/VHE
/(L,AC,MQ)=?,?,?
/CALL SCURSO, A
/(L,AC,MQ)=?,0,?
/
******************

/SCURSO WIRD VOM MACRO "CURSOR" VERWENDET.

/WENN A = "7	: CURSOR SAVE
/     A = "8	: CURSOR RESTORE


OPEN	"SCURS","F"
.ENTRY	SCURSO

	DEFMER	HISP1$,MERK$

SCURSO,	OPNSUB	RT:SCURX$, HISP1$

	CAL
	VATAD SPHSR
	DCA MERK$
	TAD MERK$
	SNA CLA
	JMP SCUR1$
	CRLF

SCUR1$:	VADCA SPHSR
	VATAD ADM3A
	SNA CLA
	JMP SCUR2$		/KEIN VT100

	TYPECL (ESC)
	TAD HISP1$
	TYPECL

SCUR2$:	DCAADD VA:SPHSR,MERK$
SCURX$:	V
	JMP I SCURSO

CLOSE	"SCURS"

ENDPR

---