perm filename BKEVAL[IL,LSP] blob sn#126001 filedate 1974-10-20 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(LAP BKEVAL LSUBR)
C00004 ENDMK
CāŠ—;
(LAP BKEVAL LSUBR)
	(PUSH P 6)
	(336000 0 (SPECIAL #%IOCHANS%#))	~SKIPN
	(JRST 0 L2)
	(CALL 0(E SUBFUN1*RSETERX))	~Restore input channel.
	(CALL 0(E SUBFUN2*RSETERX))	~Restore output channel.
	(332000 0  (SPECIAL %SCANSETFLAG%))	~SKIPE
	(CALL 0(E SCANPOP))
	(CALL 0 (E TYIRGB))
L2	(POP P 6)
	(MOVE 1 6)
	(MOVE 2 P)
L1	(POP 2 1 2)
	(341000 1 L1)
	(PUSH 2 (C 0 0 RET))
	(ADD P (C 1 0 1))
	(JCALL 16 (E EVAL))
RET	(PUSH P 1)
	(336000 0 (SPECIAL #%IOCHANS%#))	~SKIPN
	(JRST 0 L3)
	(403000 1 2)		~SETZB A,B
	(CALL 2 (E INC))	~Reset I/O to TTY.
	(403000 1 2)		~SETZB A,B
	(CALL 2 (E OUTC))	~Reset I/O to TTY.
	(332000 0  (SPECIAL %SCANSETFLAG%))	~SKIPE
	(CALL 0(E SCANPUSH))
	(CALL 0 (E TYIGBL))
L3	(POP P 1)
	(POPJ P 0)
	NIL