Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-03 - decus/20-0078/libsim/echo.mac
There are 3 other files named echo.mac in the archive. Click here to see a list.
COMMENT * SIMULA specification;
OPTIONS(/E:QUICK,echo);
PROCEDURE echo(fileref,mode); REF(Infile)fileref; INTEGER mode;

COMMENT Provided fileref refers to a TTY file, different values of mode
have the following effects:
mode=0 resests the mode to normal.
mode=1 sets "special editor mode" (See monitor calls manual, TTY).
mode=2 suppresses echoing on the terminal completely.
mode=4 causes all characters to echo exactly as typed (no ^x echo).
Combinations are possible if meaningful, e g 4+1=5.
No effect on other files;

!*;! MACRO-10 code !*;!

	TITLE	echo
	SUBTTL	SIMULA utility, Lars Enderin Nov 1975

;!*** Copyright 1975 by the Swedish Defence Research Institute. ***
;!*** Copying is allowed.					***

	ENTRY	echo
	sall
	search	simmac,simmcr,simrpa
	macinit

echo:	PROC
	WLF	,ZFIKAR(XWAC1)
	IFOFFA	ZFITTY
	GOTO	L9
	HLLZ	OFFSET(ZFICHN)(XWAC1)
	TLO	(GETSTS)
	HRRI	X1
	XCT
	HLL	X1,OFFSET(ZFICHN)(XWAC1)
	TLO	X1,(SETSTS)
	DPB	XWAC2,[POINT	3,X1,29]
	XCT	X1
L9():!	RETURN
	EPROC
	END;