Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-05 - 43,50337/23/getch.mac
There is 1 other file named getch.mac in the archive. Click here to see a list.
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;