Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/rsx11s/drgtk.list
There are no other files named drgtk.list in the archive.
DRGTK MACRO M1110 22-AUG-79 07:00 PAGE 3
1 .TITLE DRGTK
2 .IDENT /05/
3
4 ;
5 ; COPYRIGHT (C) 1974, 1978
6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
7 ;
8 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
9 ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
10 ;
11 ; VERSION 05
12 ;
13 ; D. N. CUTLER 27-MAR-74
14 ;
15 ; PREVIOUSLY MODIFIED BY:
16 ;
17 ; D. N. CUTLER
18 ; T. J. MILLER
19 ;
20 ; MODIFIED BY:
21 ;
22 ; T. J. MILLER 2-NOV-77
23 ;
24 ; TM110 -- RETURN PROTECTION UIC WORD.
25 ;
26 ; MACRO LIBRARY CALLS
27 ;
28
29 .MCALL HDRDF$,PCBDF$,TCBDF$
30 000000 HDRDF$ ;DEFINE TASK HEADER OFFSETS
31 000000 PCBDF$ ;DEFINE PARTITION CONTROL BLOCK OFFSETS
32 000000 TCBDF$ ;DEFINE TASK CONTROL BLOCK OFFSETS
33
34 ;+
35 ; **-$DRGTK-GET TASK PARAMETERS
36 ;
37 ; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO FILL A SIXTEEN WORD BUFFER WITH
38 ; TASK PARAMETERS.
39 ;
40 ; DPB FORMAT:
41 ;
42 ; WD. 00 -- DIC(63.),DPB SIZE(2.).
43 ; WD. 01 -- ADDRESS OF A SIXTEEN WORD BUFFER.
44 ;
45 ; BUFFER FORMAT:
46 ;
47 ; WD. 00 -- FIRST HALF OF ISSUING TASK'S NAME.
48 ; WD. 01 -- SECOND HALF OF ISSUING TASK'S NAME.
49 ; WD. 02 -- FIRST HALF OF TASK'S PARTITION NAME.
50 ; WD. 03 -- SECOND HALF OF TASK'S PARTITION NAME.
51 ; WD. 04 -- FIRST HALF OF REQUESTER TASK NAME (NOT SUPPORTED).
52 ; WD. 05 -- SECOND HALF OF REQUESTER TASK NAME (NOT SUPPORTED).
53 ; WD. 06 -- TASK PRIORITY.
54 ; WD. 07 -- CURRENT TASK UIC.
55 ; WD. 10 -- NUMBER OF LOGICAL UNITS.
56 ; WD. 11 -- MACHINE TYPE INDICATOR (NOT SUPPORTED).
57 ; WD. 12 -- STD FLAGS WORD (NOT SUPPORTED).
DRGTK MACRO M1110 22-AUG-79 07:00 PAGE 3-1
58 ; WD. 13 -- ADDRESS OF TASK SST VECTOR TABLE.
59 ; WD. 14 -- SIZE OF TASK SST VECTOR TABLE IN WORDS.
60 ; WD. 15 -- SIZE OF TASK IN BYTES.
61 ; WD. 16 -- SYSTEM TYPE CODE. ; TM110
62 ; WD. 17 -- PROTECTION UIC WORD. ; TM110
63 ; ;**-2
64 ; INPUTS:
65 ;
66 ; R2=ADDRESS OF THE TASK STATUS WORD OF THE CURRENT TASK.
67 ; R3=ADDRESS OF THE SIXTEEN WORD BUFFER IN THE DPB.
68 ; R4=ADDRESS OF THE HEADER OF THE CURRENT TASK.
69 ; R5=ADDRESS OF THE TCB OF THE CURRENT TASK.
70 ;
71 ; OUTPUTS: (DIRECTIVE STATUS AND PS RETURNED TO TASK)
72 ;
73 ; C=0 WITH A DIRECTIVE STATUS OF +1.
74 ;-
75
76
77 .IF DF G$$TTK
78
79 000000 011303 $DRGTK::MOV (R3),R3 ;GET ADDRESS OF 16. WORD BUFFER
80
81
82 .IF DF A$$CHK!M$$MGE
83
84 000002 012701 000040 MOV #16.*2,R1 ;SET LENGTH OF BUFFER IN BYTES
85 000006 CALL $ACHKP ;ADDRESS CHECK PARAMETER BLOCK
86
87 .ENDC
88
89
90 000012 016523 000006 MOV T.NAM(R5),(R3)+ ;INSERT NAME OF TASK
91 000016 016523 000010 MOV T.NAM+2(R5),(R3)+ ;
92 000022 016500 000046 MOV T.PCB(R5),R0 ;GET ADDRESS OF TASK PCB
93 000026 016023 000004 MOV P.NAM(R0),(R3)+ ;INSERT NAME OF PARTITION
94 000032 016023 000006 MOV P.NAM+2(R0),(R3)+ ;
95 000036 022323 CMP (R3)+,(R3)+ ;POINT TO TASK PRIORITY ADDRESS
96 000040 016523 000002 MOV T.PRI(R5),(R3)+ ;INSERT TASK PRIORITY
97
98
99 .IF DF M$$MUP
100
101 MOV H.DUIC(R4),(R3)+ ;INSERT DEFAULT UIC
102
103 .IFF
104
105 000044 016423 000010 MOV H.CUIC(R4),(R3)+ ;INSERT CURRENT UIC
106
107 .ENDC
108
109
110 000050 016423 000074 MOV H.NLUN(R4),(R3)+ ;INSERT NUMBER OF LUNS
111 000054 022323 CMP (R3)+,(R3)+ ;POINT TO TASK SST VECTOR ADDRESS
112 000056 016423 000026 MOV H.TKVA(R4),(R3)+ ;INSERT TASK SST VECTOR ADDRESS
113 000062 016413 000030 MOV H.TKVL(R4),(R3) ;INSERT LENGTH OF SST VECTOR IN WORDS
114 000066 006223 ASR (R3)+ ;CONVERT TO LENGTH IN WORDS
DRGTK MACRO M1110 22-AUG-79 07:00 PAGE 3-2
115 000070 016401 000044 MOV H.WND(R4),R1 ;POINT TO NUMBER OF WINDOW BLOCKS
116 000074 016113 000006 MOV W.BHVR+2(R1),(R3) ;CALCULATE TASK SIZE IN BYTES
117 000100 166113 000004 SUB W.BLVR+2(R1),(R3) ;
118 000104 005223 INC (R3)+ ;
119
120
121 .IF NDF R$$11S
122
123 MOV #1,(R3)+ ;SET CODE FOR RSX-11M ; TM110
124 ;**-1
125 .IFF
126
127 000106 012723 000002 MOV #2,(R3)+ ;SET CODE FOR RSX-11S ; TM110
128 ;**-1
129 .ENDC
130
131
132 000112 016413 000010 MOV H.CUIC(R4),(R3) ;RETURN PROTECTION UIC ; TM110
133 000116 RETURN ;
134
135 .ENDC
136
137
138 000001 .END
DRGTK MACRO M1110 22-AUG-79 07:00 PAGE 3-3
SYMBOL TABLE
AS.DEL= 000010 H.LUN 000076 PS.FXD= 004000 TS.MSG= 020000 T2.DST= 040000
AS.EXT= 000004 H.NLUN 000074 PS.LIO= 001000 TS.NRP= 010000 T2.FXD= 002000
AS.RED= 000001 H.NML 000061 PS.NSF= 000400 TS.OUT= 000400 T2.HLT= 000200
AS.WRT= 000002 H.ODVA 000022 PS.OUT= 100000 TS.RDN= 040000 T2.SPN= 000004
A$$CHK= 000000 H.ODVL 000024 PS.PER= 002000 TS.RUN= 004000 T2.STP= 000020
A$$CPS= 000000 H.OVLY 000054 PS.PIC= 000100 T.ACTL 000052 T2.TIO= 001000
A$$TRP= 000000 H.PFVA 000032 PS.SYS= 000040 T.ASTL 000016 T2.WFR= 000001
A.IOC 000003 H.RCVA 000036 P$$RTY= 000000 T.ATT 000054 T3.ACP= 100000
A.LGTH= 000014 H.RRVA 000062 P$$TPT= 000000 T.CPCB 000004 T3.CAL= 000100
A.MPCT 000011 H.SPRI 000060 P.BLKS 000016 T.DPRI 000040 T3.CLI= 001000
A.PCB 000012 H.TKVA 000026 P.BUSY 000024 T.EFLG 000022 T3.MCR= 004000
A.PCBL 000000 H.TKVL 000030 P.IOC 000003 T.IOC 000003 T3.NET= 000020
A.PRI 000002 H.VEXT 000056 P.LNK 000000 T.LBN 000041 T3.NSD= 000200
A.STAT 000010 H.WND 000044 P.MAIN 000012 T.LDV 000044 T3.PMD= 040000
A.TCB 000004 I$$RDN= 000000 P.NAM 000004 T.LNK 000000 T3.PRV= 010000
A.TCBL 000006 K$$CNT= 177546 P.OWN 000026 T.MXSZ 000050 T3.REM= 020000
C$$ORE= 002000 K$$CSR= 177546 P.PRI 000002 T.NAM 000006 T3.ROV= 000040
G$$TPP= 000000 K$$IEN= 000115 P.REL 000014 T.OFF 000060 T3.RST= 000400
G$$TTK= 000000 K$$LDC= 000001 P.SIZE 000016 T.PCB 000046 T3.SLV= 002000
H$$RTZ= 000074 K$$TPS= 000074 P.STAT 000030 T.PRI 000002 V$$CTR= 001200
H.CSP 000000 L$$ASG= 000000 P.SUB 000010 T.RCVL 000012 V$$RSN= 000031
H.CUIC 000010 L$$DRV= 000000 P.SWSZ 000022 T.RRFL 000064 W.BATT 000006
H.DSW 000046 M$$CRB= 000124 P.TCB 000026 T.SRCT 000063 W.BFPD 000014
H.DUIC 000012 M$$MGE= 000000 P.WAIT 000020 T.STAT 000032 W.BHVR 000004
H.EFLM 000004 M$$NET= 000000 R$$DER= 000000 T.ST2 000034 W.BLGH 000020
H.EFSV 000040 M$$NT2= 000000 R$$EXV= 000000 T.ST3 000036 W.BLPD 000016
H.FCS 000050 N$$LDV= 000001 R$$SND= 000000 T.TCBL 000030 W.BLVR 000002
H.FORT 000052 PS.APR= 000007 R$$11M= 000000 T.UCB 000026 W.BNPD 000015
H.FPSA 000042 PS.CHK= 010000 R$$11S= 000000 T2.ABO= 000100 W.BOFF 000012
H.FPVA 000034 PS.CKP= 040000 S$$YSZ= 001740 T2.AST= 100000 W.BPCB 000000
H.GARD 000072 PS.CKR= 020000 TS.BLK= 170700 T2.BFX= 004000 W.BSIZ 000010
H.HDLN 000002 PS.COM= 000200 TS.CKP= 000200 T2.CAF= 000400 X$$DBT= 000000
H.IPC 000016 PS.DEL= 000010 TS.CKR= 000100 T2.CHK= 020000 $ACHKP= ****** GX
H.IPS 000014 PS.DRV= 000020 TS.EXE= 100000 T2.CKD= 010000 $DRGTK 000000RG
H.ISP 000020
. ABS. 000102 000
000120 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 3418 WORDS ( 14 PAGES)
DYNAMIC MEMORY: 4036 WORDS ( 15 PAGES)
ELAPSED TIME: 00:00:15
[11,24]DRGTK,SY0:[11,34]DRGTK/-SP=[1,1]EXEMC/ML,[11,10]RSXMC/PA:1,DRGTK