perm filename GETCH.MAC[SIM,SYS] blob sn#460076 filedate 1979-07-20 generic text, type T, neo UTF8
COMMENT! SIMULA specification;
OPTIONS(/E:QUICK,getch);
CHARACTER PROCEDURE getch;;

!;! MACRO-10 code !

	TITLE	getch
	SUBTTL	SIMULA utility, Lars Enderin Dec 1975

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

COMMENT	/
	Gets one character from the TTY.
	Calling sequence:
	MOVEI	XTAC,Xtop	;!Xtop gets the value
	PUSHJ	XPDP,getch
/
	XTAC==2
	XPDP==17
	ENTRY	getch
getch:	INCHRW	(XTAC)
	POPJ	XPDP,
	END;