Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap1_198111 - decus/20-0002/iomod.hdr
There is 1 other file named iomod.hdr in the archive. Click here to see a list.
COMMENT    VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	REQUIRE "" DELIMITERS
C00006 ENDMK
C;

REQUIRE "" DELIMITERS;

EXTERNAL STRING SIMPLE PROCEDURE REQSTR(STRING REQ);

EXTERNAL BOOLEAN SIMPLE PROCEDURE ASK(STRING S);

EXTERNAL INTEGER SIMPLE PROCEDURE REQINT(STRING S);


EXTERNAL PROCEDURE OPENFILE(REFERENCE INTEGER CH;
	VALUE STRING FIDREQ;INTEGER  M,IB,OB;REFERENCE INTEGER EOFF);

EXTERNAL INTEGER OUCH,OEOF;
EXTERNAL SIMPLE PROCEDURE WRITEON(STRING S;INTEGER OPF(0));

EXTERNAL SIMPLE PROCEDURE WRITE(STRING S;INTEGER OPF(0));

IFCR DECLARATION(BITDEF) THENC
DEFINE BITDEF(BITID,V,XX)"[]" = [
	DEFINE BITID "<>" = <V>;
	ASSIGNC XX "" = CVPS(BITID)&ON;
	DEFINE XX (I) "" = ((I) LAND (&CVPS(V)&))
];
ENDC

BITDEF(UROUTB,(1 LSH 35));
BITDEF(RTNSTR,'200000000000);
BITDEF(TTYYES,'100000000000);
BITDEF(TTYNOT,'040000000000);
BITDEF(CHNSPC,'020000000000);
BITDEF(CHNNOT,'010000000000);

DEFINE TTYONLY "<>" = <CHNNOT>;
DEFINE TTYALWAYS "<>" = <TTYYES>;
DEFINE TTYNOFILE "<>" = <TTYYES+CHNNOT>;
DEFINE FILEONLY "<>" = <TTYNOT>;


EXTERNAL SIMPLE PROCEDURE INIOUTPUT(INTEGER CTL(0);STRING FID(NULL));
DEFINE INITIALIZEOUTPUT""=INIOUTPUT;

EXTERNAL SIMPLE PROCEDURE CLOUTPUT;
DEFINE CLOSEOUTPUT "<>" =<CLOUTPUT>;

REQUIRE "IOMOD.REL[S,RHT]" LOADMODULE;
REQUIRE UNSTACKDELIMITERS;