Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-07 - 43,50450/exemc.req
There are no other files named exemc.req in the archive.
00100	% EXEMC.REQ VERSION 1.0 % SWITCHES NOLIST;
00200	REQUIRE 'RSXMC.REQ' SOURCE;
00300	%
00400		RSX-11M SYSTEM DATA STRUCTURES AND SYMBOLIC DEFINITIONS
00500	
00600	AUTHOR:
00700		K. E. GORLEN
00800		RM. 2017, BG. 12A
00900		DIVISION OF COMPUTER RESEARCH AND TECHNOLOGY
01000		NATIONAL INSTITUTES OF HEALTH
01100		BETHESDA, MD. 20014
01200		PHONE: (301) 496-5361
01300		MARCH 28, 1977
01400	
01500	SEE RSXMAC.DOC FOR DOCUMENTATION.
01600	
01700	%
01800	!
01900	! ?ADBDF$ -- ATTACHMENT DESCRIPTOR BLOCK OFFSET DEFINITIONS
02000	!
02100	MACRO ?ADBDF$(ADB)=
02200	    MACRO
02300		?A.PCBL=((ADB)+#00) $QUOTE $,
02400		?A.PRI =((ADB)+#02)<0,8> $QUOTE $,
02500		?A.IOC =((ADB)+#02)<8,8> $QUOTE $,
02600		?A.TCB =((ADB)+#04) $QUOTE $,
02700		?A.TCBL=((ADB)+#06) $QUOTE $,
02800		?A.STAT=((ADB)+#10)<0,8> $QUOTE $,
02900		?A.MPCT=((ADB)+#10)<8,8> $QUOTE $,
03000		?A.PCB =((ADB)+#12) $QUOTE $,
03100		?A.LGTH=#14 $QUOTE $,
03200		?AS.DEL=3,1 $QUOTE $,
03300		?AS.EXT=2,1 $QUOTE $,
03400		?AS.WRT=1,1 $QUOTE $,
03500		?AS.RED=0,1 $QUOTE $;
03600	    UNDECLARE $QUOTE $QUOTE ?ADBDF$;
03700	    MACRO ?ADBDF$[]=UNDECLARE ?.......... $QUOTE $ $;
03800	!
03900	! ?DCBDF$ -- DEVICE CONTROL BLOCK OFFSET DEFINITIONS
04000	!
04100	MACRO ?DCBDF$(DCB)=
04200	    MACRO
04300		?D.LNK =((DCB)+#00) $QUOTE $,
04400		?D.UCB =((DCB)+#02) $QUOTE $,
04500		?D.NAM =((DCB)+#04) $QUOTE $,
04600		?D.UNIT=((DCB)+#06) $QUOTE $,
04700		?D.UCBL=((DCB)+#10) $QUOTE $,
04800		?D.DSP =((DCB)+#12) $QUOTE $,
04900		?D.MSK =((DCB)+#14) $QUOTE $,
05000		?D.PCB =((DCB)+#34) $QUOTE $,
05100		?D.VINI=(.?D.DSP)[0] $QUOTE $,
05200		?D.VCAN=(.?D.DSP)[1] $QUOTE $,
05300		?D.VOUT=(.?D.DSP)[2] $QUOTE $,
05400		?D.VPWF=(.?D.DSP)[3] $QUOTE $;
05500	    UNDECLARE $QUOTE $QUOTE ?DCBDF$;
05600	    MACRO ?DCBDF$[]=UNDECLARE ?.......... $QUOTE $ $;
05700	!
05800	! ?HDRDF$ -- TASK HEADER OFFSET DEFINITIONS
05900	!
06000	MACRO ?HDRDF$(HDR)=
06100	    MACRO
06200		?H.CSP =((HDR)+#00) $QUOTE $,
06300		?H.HDLN=((HDR)+#02) $QUOTE $,
06400		?H.EFLM=((HDR)+#04) $QUOTE $,
06500		?H.CUIC=((HDR)+#10) $QUOTE $,
06600		?H.DUIC=((HDR)+#12) $QUOTE $,
06700		?H.IPS =((HDR)+#14) $QUOTE $,
06800		?H.IPC =((HDR)+#16) $QUOTE $,
06900		?H.ISP =((HDR)+#20) $QUOTE $,
07000		?H.ODVA=((HDR)+#22) $QUOTE $,
07100		?H.ODVL=((HDR)+#24) $QUOTE $,
07200		?H.TKVA=((HDR)+#26) $QUOTE $,
07300		?H.TKVL=((HDR)+#30) $QUOTE $,
07400		?H.PFVA=((HDR)+#32) $QUOTE $,
07500		?H.FPVA=((HDR)+#34) $QUOTE $,
07600		?H.RCVA=((HDR)+#36) $QUOTE $,
07700		?H.EFSV=((HDR)+#40) $QUOTE $,
07800		?H.FPSA=((HDR)+#42) $QUOTE $,
07900		?H.WND =((HDR)+#44) $QUOTE $,
08000		?H.DSW =((HDR)+#46) $QUOTE $,
08100		?H.FCS =((HDR)+#50) $QUOTE $,
08200		?H.FORT=((HDR)+#52) $QUOTE $,
08300		?H.OVLY=((HDR)+#54) $QUOTE $,
08400		?H.VEXT=((HDR)+#56) $QUOTE $,
08500		?H.SPRI=((HDR)+#60)<0,8> $QUOTE $,
08600		?H.NML =((HDR)+#60)<8,8> $QUOTE $,
08700		?H.RRVA=((HDR)+#62) $QUOTE $,
08800		?H.GARD=((HDR)+#72) $QUOTE $,
08900		?H.NLUN=((HDR)+#74) $QUOTE $,
09000		?H.LUN =((HDR)+#76) $QUOTE $;
09100	    UNDECLARE $QUOTE $QUOTE ?HDRDF$;
09200	    MACRO ?HDRDF$[]=UNDECLARE ?.......... $QUOTE $ $;
09300	!
09400	! ?PCBDF$ -- PARTITION CONTROL BLOCK OFFSET DEFINITIONS
09500	!
09600	MACRO ?PCBDF$(PCB)=
09700	    MACRO
09800		?P.LNK =((PCB)+#00) $QUOTE $,
09900		?P.PRI =((PCB)+#02)<0,8> $QUOTE $,
10000		?P.IOC =((PCB)+#02)<8,8> $QUOTE $,
10100		?P.NAM =((PCB)+#04) $QUOTE $,
10200		?P.SUB =((PCB)+#10) $QUOTE $,
10300		?P.MAIN=((PCB)+#12) $QUOTE $,
10400		?P.REL =((PCB)+#14) $QUOTE $,
10500		?P.BLKS=((PCB)+#16) $QUOTE $,
10600		?P.SIZE=((PCB)+#16) $QUOTE $,
10700		?P.WAIT=((PCB)+#20) $QUOTE $,
10800		?P.SWSZ=((PCB)+#22) $QUOTE $,
10900		?P.BUSY=((PCB)+#24) $QUOTE $,
11000		?P.OWN =((PCB)+#26) $QUOTE $,
11100		?P.TCB =((PCB)+#26) $QUOTE $,
11200		?P.STAT=((PCB)+#30) $QUOTE $,
11300		?P.HDR =(IF ?M$$MGE((1)) THEN ?P.STAT+2 ELSE ?P.REL) $QUOTE $,
11400		?P.PRO =(?P.STAT+2 ?M$$MGE(+2)) $QUOTE $,
11500		?P.ATT =(?P.PRO+2) $QUOTE $,
11600		?P.LGTH=(#32 ?M$$MGE(+2) ?P$$LAS(+6)) $QUOTE $,
11700		?PS.OUT=15,1 $QUOTE $,
11800		?PS.CKP=14,1 $QUOTE $,
11900		?PS.CKR=13,1 $QUOTE $,
12000		?PS.CHK=12,1 $QUOTE $,
12100		?PS.FXD=11,1 $QUOTE $,
12200		?PS.PER=10,1 $QUOTE $,
12300		?PS.LIO=9,1 $QUOTE $,
12400		?PS.NSF=8,1 $QUOTE $,
12500		?PS.COM=7,1 $QUOTE $,
12600		?PS.PIC=6,1 $QUOTE $,
12700		?PS.SYS=5,1 $QUOTE $,
12800		?PS.DRV=4,1 $QUOTE $,
12900		?PS.DEL=3,1 $QUOTE $,
13000		?PS.APR=0,3 $QUOTE $;
13100	    UNDECLARE $QUOTE $QUOTE ?PCBDF$;
13200	    MACRO ?PCBDF$[]=UNDECLARE ?.......... $QUOTE $ $;
13300	!
13400	! ?SCBDF$ -- STATUS CONTROL BLOCK OFFSET DEFINITIONS
13500	!
13600	MACRO ?SCBDF$(SCB)=
13700	    MACRO
13800		?S.RCNT=((SCB)-#06)<0,8> $QUOTE $,
13900		?S.ROFF=((SCB)-#06)<8,8> $QUOTE $,
14000		?S.BMSV=((SCB)-#04) $QUOTE $,
14100		?S.BMSK=((SCB)-#02) $QUOTE $,
14200		?S.LHD =((SCB)+#00) $QUOTE $,
14300		?S.PRI =((SCB)+#04)<0,8> $QUOTE $,
14400		?S.VCT =((SCB)+#04)<8,8> $QUOTE $,
14500		?S.CTM =((SCB)+#06)<0,8> $QUOTE $,
14600		?S.ITM =((SCB)+#06)<8,8> $QUOTE $,
14700		?S.CON =((SCB)+#10)<0,8> $QUOTE $,
14800		?S.STS =((SCB)+#10)<8,8> $QUOTE $,
14900		?S.CSR =((SCB)+#12) $QUOTE $,
15000		?S.PKT =((SCB)+#14) $QUOTE $,
15100		?S.FRK =((SCB)+#16) $QUOTE $;
15200	    UNDECLARE $QUOTE $QUOTE ?SCBDF$;
15300	    MACRO ?SCBDF$[]=UNDECLARE ?.......... $QUOTE $ $;
15400	!
15500	! ?TCBDF$ -- TASK CONTROL BLOCK OFFSET DEFINITIONS
15600	!
15700	MACRO ?TCBDF$(TCB)=
15800	    MACRO
15900		?T.LNK =((TCB)+#00) $QUOTE $,
16000		?T.PRI =((TCB)+#02)<0,8> $QUOTE $,
16100		?T.IOC =((TCB)+#02)<8,8> $QUOTE $,
16200		?T.CPCB=((TCB)+#04) $QUOTE $,
16300		?T.NAM =((TCB)+#06) $QUOTE $,
16400		?T.RCVL=((TCB)+#12) $QUOTE $,
16500		?T.ASTL=((TCB)+#16) $QUOTE $,
16600		?T.EFLG=((TCB)+#22) $QUOTE $,
16700		?T.UCB =((TCB)+#26) $QUOTE $,
16800		?T.TCBL=((TCB)+#30) $QUOTE $,
16900		?T.STAT=((TCB)+#32) $QUOTE $,
17000		?T.ST2 =((TCB)+#34) $QUOTE $,
17100		?T.ST3 =((TCB)+#36) $QUOTE $,
17200		?T.DPRI=((TCB)+#40)<0,8> $QUOTE $,
17300		?T.LBN =((TCB)+#41) $QUOTE $,
17400		?T.LDV =((TCB)+#44) $QUOTE $,
17500		?T.PCB =((TCB)+#46) $QUOTE $,
17600		?T.MXSZ=((TCB)+#50) $QUOTE $,
17700		?T.ACTL=((TCB)+#52) $QUOTE $,
17800		?T.ATT =((TCB)+#54) $QUOTE $,
17900		?T.OFF =((TCB)+#60) $QUOTE $,
18000		?T.SRCT=((TCB)+#62)<8,8> $QUOTE $,
18100		?T.RRFL=((TCB)+#64) $QUOTE $,
18200		?T.LGTH=(#54 ?P$$LAS(+#14)) $QUOTE $,
18300		?T.EXT =0 $QUOTE $,
18400		?TS.EXE=15,1 $QUOTE $,
18500		?TS.RDN=14,1 $QUOTE $,
18600		?TS.MSG=13,1 $QUOTE $,
18700		?TS.NRP=12,1 $QUOTE $,
18800		?TS.OUT=8,1 $QUOTE $,
18900		?TS.CKP=7,1 $QUOTE $,
19000		?TS.CKR=6,1 $QUOTE $,
19100		?TS.BLK=?TS.CKP,?TS.CKR,?TS.EXE,?TS.MSG,?TS.NRP,?TS.OUT,?TS.RDN $QUOTE $,
19200		?T2.AST=15,1 $QUOTE $,
19300		?T2.DST=14,1 $QUOTE $,
19400		?T2.CHK=13,1 $QUOTE $,
19500		?T2.CKD=12,1 $QUOTE $,
19600		?T2.BFX=11,1 $QUOTE $,
19700		?T2.FXD=10,1 $QUOTE $,
19800		?T2.TIO=9,1 $QUOTE $,
19900		?T2.CAF=8,1 $QUOTE $,
20000		?T2.HLT=7,1 $QUOTE $,
20100		?T2.ABO=6,1 $QUOTE $,
20200		?T2.STP=4,1 $QUOTE $,
20300		?T2.SPN=2,1 $QUOTE $,
20400		?T2.WFR=0,1 $QUOTE $,
20500		?T3.ACP=15,1 $QUOTE $,
20600		?T3.PMD=14,1 $QUOTE $,
20700		?T3.REM=13,1 $QUOTE $,
20800		?T3.PRV=12,1 $QUOTE $,
20900		?T3.MCR=11,1 $QUOTE $,
21000		?T3.SLV=10,1 $QUOTE $,
21100		?T3.CTL=9,1 $QUOTE $,
21200		?T3.RST=8,1 $QUOTE $,
21300		?T3.NSD=7,1 $QUOTE $,
21400		?T3.CAL=6,1 $QUOTE $,
21500		?T3.ROV=5,1 $QUOTE $,
21600		?T3.NET=4,1 $QUOTE $;
21700	    UNDECLARE $QUOTE $QUOTE ?TCBDF$;
21800	    MACRO ?TCBDF$[]=UNDECLARE ?.......... $QUOTE $ $;
21900	!
22000	! ?UCBDF$ -- UNIT CONTROL BLOCK OFFSET DEFINITIONS
22100	!
22200	MACRO ?UCBDF$(UCB)=
22300	    MACRO
22400		?U.LUIC=((UCB)-#04) $QUOTE $,
22500		?U.OWN =((UCB)-#02) $QUOTE $,
22600		?U.DCB =((UCB)+#00) $QUOTE $,
22700		?U.RED =((UCB)+#02) $QUOTE $,
22800		?U.CTL =((UCB)+#04)<0,8> $QUOTE $,
22900		?U.STS =((UCB)+#04)<8,8> $QUOTE $,
23000		?U.UNIT=((UCB)+#06)<0,8> $QUOTE $,
23100		?U.ST2 =((UCB)+#06)<8,8> $QUOTE $,
23200		?U.CW1 =((UCB)+#10) $QUOTE $,
23300		?U.CW2 =((UCB)+#12) $QUOTE $,
23400		?U.CW3 =((UCB)+#14) $QUOTE $,
23500		?U.CW4 =((UCB)+#16) $QUOTE $,
23600		?U.SCB =((UCB)+#20) $QUOTE $,
23700		?U.ATT =((UCB)+#22) $QUOTE $,
23800		?U.BUF =((UCB)+#24) $QUOTE $,
23900		?U.CNT =((UCB)+#30) $QUOTE $,
24000		?U.ACP =(?U.CNT+#02) $QUOTE $,
24100		?U.VCB =(?U.CNT+#04) $QUOTE $,
24200		?U.CBF =(?U.CNT+#02) $QUOTE $,
24300		?U.UIC =(?U.CNT+9*2) $QUOTE $,
24400		?DV.REC=0,1 $QUOTE $,
24500		?DV.CCL=1,1 $QUOTE $,
24600		?DV.TTY=2,1 $QUOTE $,
24700		?DV.DIR=3,1 $QUOTE $,
24800		?DV.SDI=4,1 $QUOTE $,
24900		?DV.SQD=5,1 $QUOTE $,
25000		?DV.MXD=9,1 $QUOTE $,
25100		?DV.UMD=10,1 $QUOTE $,
25200		?DV.SWL=11,1 $QUOTE $,
25300		?DV.PSE=12,1 $QUOTE $,
25400		?DV.COM=13,1 $QUOTE $,
25500		?DV.F11=14,1 $QUOTE $,
25600		?DV.MNT=15,1 $QUOTE $,
25700		?U2.DH1=15,1 $QUOTE $,
25800		?U2.DJ1=14,1 $QUOTE $,
25900		?U2.RMT=13,1 $QUOTE $,
26000		?U2.L8S=12,1 $QUOTE $,
26100		?U2.NEC=11,1 $QUOTE $,
26200		?U2.CRT=10,1 $QUOTE $,
26300		?U2.ESC=9,1 $QUOTE $,
26400		?U2.LOG=8,1 $QUOTE $,
26500		?U2.SLV=7,1 $QUOTE $,
26600		?U2.DZ1=6,1 $QUOTE $,
26700		?U2.HLD=5,1 $QUOTE $,
26800		?U2.AT.=4,1 $QUOTE $,
26900		?U2.PRV=3,1 $QUOTE $,
27000		?U2.L3S=2,1 $QUOTE $,
27100		?U2.VT5=1,1 $QUOTE $,
27200		?U2.LWC=0,1 $QUOTE $,
27300		?U2.R04=15,1 $QUOTE $,
27400		?U2.7CH=12,1 $QUOTE $,
27500		?UC.ALG=7,1 $QUOTE $,
27600		?UC.NPR=6,1 $QUOTE $,
27700		?UC.QUE=5,1 $QUOTE $,
27800		?UC.PWF=4,1 $QUOTE $,
27900		?UC.ATT=3,1 $QUOTE $,
28000		?UC.KIL=2,1 $QUOTE $,
28100		?UC.LGH=0,2 $QUOTE $,
28200		?US.BSY=7,1 $QUOTE $,
28300		?US.MNT=6,1 $QUOTE $,
28400		?US.FOR=5,1 $QUOTE $,
28500		?US.MDM=4,1 $QUOTE $,
28600		?US.ABO=0,1 $QUOTE $,
28700		?US.MDE=1,1 $QUOTE $,
28800		?US.WCK=3,1 $QUOTE $,
28900		?US.DSB=3,1 $QUOTE $,
29000		?US.CRW=2,1 $QUOTE $,
29100		?US.ECH=1,1 $QUOTE $,
29200		?US.OUT=0,1 $QUOTE $,
29300		?US.FRK=1,1 $QUOTE $,
29400		?US.SHR=0,1 $QUOTE $,
29500		?US.LAB=2,1 $QUOTE $,
29600		?US.OFL=0,1 $QUOTE $,
29700		?US.RED=1,1 $QUOTE $,
29800		?US.PUB=2,1 $QUOTE $,
29900		?US.UMD=3,1 $QUOTE $;
30000	    UNDECLARE $QUOTE $QUOTE ?UCBDF$;
30100	    MACRO ?UCBDF$[]=UNDECLARE ?.......... $QUOTE $ $;
30200	!
30300	! ?WBKDF$ -- WINDOW BLOCK OFFSET DEFINITIONS
30400	!
30500	MACRO ?WBKDF$(WBK)=
30600	    MACRO
30700		?W.BPCB=((WBK)+#00) $QUOTE $,
30800		?W.BLVR=((WBK)+#02) $QUOTE $,
30900		?W.BHVR=((WBK)+#04) $QUOTE $,
31000		?W.BATT=((WBK)+#06) $QUOTE $,
31100		?W.BSIZ=((WBK)+#10) $QUOTE $,
31200		?W.BOFF=((WBK)+#12) $QUOTE $,
31300		?W.BFPD=((WBK)+#14)<0,8> $QUOTE $,
31400		?W.BNPD=((WBK)+#14)<8,8> $QUOTE $,
31500		?W.BLPD=((WBK)+#16) $QUOTE $,
31600		?W.BLGH=#20 $QUOTE $;
31700	    UNDECLARE $QUOTE $QUOTE ?WBKDF$;
31800	    MACRO ?WBKDF$[]=UNDECLARE ?.......... $QUOTE $ $;
31900	SWITCHES LIST;