Trailing-Edge
-
PDP-10 Archives
-
decuslib20-03
-
decus/20-0078/libsim/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;