Trailing-Edge
-
PDP-10 Archives
-
decus_20tap4_198111
-
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;