Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

COMMENT    VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	DEFAULT VARIABLES FOR SPROUT OPTIONS
C00008 ENDMK
C;

COMMENT DEFAULT VARIABLES FOR SPROUT OPTIONS;
EXTERNAL INTEGER DEFSSS, COMMENT STRING STACK;
	DEFPSS,		COMMENT SYSTEM STACK;
	DEFPRI,		COMMENT PRIORITY;
	DEFQNT;		COMMENT QUANTUM;

COMMENT OPTIONS FOR SPROUT;
DEFINE QUANTUM(X)= "((X) LSH 18)",
	STRINGSTACK(X)="((X) LSH 14)",
	PSTACK(X)="((X) LSH 8)",
	PRIORITY(X)="((X) LSH 4)",
	SUSPHIM="'10",
	SUSPME="'2",
	RUNME="'1";

COMMENT OPTIONS FOR CAUSE;
DEFINE DONTSAVE="1",
   	TELLALL="2",
	RESCHEDULE="4";

COMMENT OPTIONS FOR INTERROGATE;
DEFINE RETAIN ="1",
	WAIT="2",
	SAYWHICH="'10";
COMMENT RESULT CODES WHICH USER EVENT PROCEDURES MAY LIKE;
DEFINE	NOJOY='400000,
	MULTIN='200000;

DEFINE EVENTTYPE="EVTYPI";

COMMENT PIECES OF AN EVENT TYPE DATUM;
DEFINE 	NOTCQ(ET)="MEMORY[DATUM(ET,INTEGER),LIST]",
 	WAITQ(ET)="MEMORY[DATUM(ET,INTEGER)+1,LIST]",
 	USER1(ET)="MEMORY[DATUM(ET,INTEGER)+4]",
 	USER2(ET)="MEMORY[DATUM(ET,INTEGER)+5]";


COMMENT OPTIONS FOR RESUME;
DEFINE	NOTNOW=1,
	READYME='4,
	KILLME='10,
	IRUN='14;

COMMENT STATUS CODES;
DEFINE RUNNING=-1,
	READY=1,
	SUSPENDED=0,
	TERMINATED=2;

COMMENT USEFUL MACROS FOR INTERRUPTS;

DEFINE INTSWWINX=0,
	INTSWDINX=1,
	INTSHWINX=2,
	INTSHDINX=3,
	INTTTYINX=4,
	INTPTOINX=5,
	INTMAILINX=6,
	INTPTIINX=8,
	INTPARINX=9,
	INTCLKINX=10,
	INTINRINX=11,
	INTINSINX=12,
	INTIMSINX=13,
	INTINPINX=14,
	INTTTIINX=15,
	INTPOVINX=19,
	INTILMINX=22,
	INTNXMINX=23,
	INTFOVINX=29,
	INTOVINX=32;



DEFINE AUTOPOLL(X)="REQUIRE X POLLINGINTERVAL";
DEFINE NOAUTOPOLLING="AUTOPOLL(0)";
EXTERNAL INTEGER NOPOLL;
DEFINE POLLON="NOPOLL_0";
DEFINE POLLOFF="NOPOLL_1";

DEFINE SCHEDULEONCLOCKINTERRUPTS=
	"BEGIN
	INTMAP(INTCLKINX,CLKMOD,0);
	ENABLE(INTCLKINX);
	END";

DEFINE DEFERREDCAUSEONINTERRUPT(INX,TYP,NOT,OPT)=
	"INTMAP(INX,DFRINT,DFCPKT(0,TYP,NOT,OPT))";
COMMENT NOTE THAT THIS DOES NOT DO AN ENABLE;


COMMENT NOTE ALSO THAT YOU SHOULD DO AN INTSET(INTPROCESSITEM,OPTS)
	BEFORE TRYING TO USE DEFERRED CAUSES;