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