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;