Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0110/ptypkg.req
There are 2 other files named ptypkg.req in the archive. Click here to see a list.
00100	Comment File: PTYPKG.REQ;
00200	
00300	Require "PTYPKG.REL" load!module;
00400	External Integer PSTATUS;
00500	
00600	Comment some useful macros;
00700	
00800	"PTYINP is true when program can do a INPPTY"
00900	Define	PTYINP="PSTATUS land '40000000000 neq 0";
01000	
01100	"PTYOUT is true when program can do a OUTPTY"
01200	Define PTYOUT="PSTATUS land '20000000000 neq 0";
01300	
01400	External String Procedure INPPTY;
01500	
01600	External Procedure OUTPTY(String str);
01700	
01800	External Integer Procedure PTYSTS;
01900	
02000	External Integer Procedure GETPTY;