Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/rsx11s/drreq.list
There are no other files named drreq.list in the archive.
DRREQ MACRO M1110 22-AUG-79 07:03 PAGE 3
1 .TITLE DRREQ
2 .IDENT /03/
3
4 ;
5 ; COPYRIGHT (C) 1974, 1976
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 03
12 ;
13 ; D. N. CUTLER 13-SEP-73
14 ;
15 ; PREVIOUSLY MODIFIED BY:
16 ;
17 ; D. N. CUTLER
18 ; T. J. MILLER
19 ;
20 ; MODIFIED BY:
21 ;
22 ; REQUEST TASK DIRECTIVE
23 ;
24 ; MACRO LIBRARY CALLS
25 ;
26
27 .MCALL TCBDF$
28 000000 TCBDF$ ;DEFINE TASK CONTROL BLOCK OFFSETS
29
30 ;+
31 ; **-$DRREQ-REQUEST TASK
32 ;
33 ; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO REQUEST THE EXECUTION
34 ; OF A SPECIFIED TASK.
35 ;
36 ; DPB FORMAT:
37 ;
38 ; WD. 00 -- DIC(11.),DPB SIZE(7.).
39 ; WD. 01 -- FIRST HALF OF TASK NAME.
40 ; WD. 02 -- SECOND HALF OF TASK NAME.
41 ; WD. 03 -- PARTITION NAME-NOT SUPPORTED BUT MUST BE PRESENT.
42 ; WD. 04 -- PARTITION NAME-NOT SUPPORTED BUT BUST BE PRESENT.
43 ; WD. 05 -- REQUEST PRIORITY-NOT SUPPORTED BUT MUST BE PRESENT.
44 ; WD. 06 -- REQUEST UIC.
45 ;
46 ; INPUTS:
47 ;
48 ; R0=ADDRESS OF THE TCB OF THE TASK TO BE REQUESTED.
49 ; R1=ADDRESS OF THE TASK STATUS WORD OF THE TASK TO BE REQUESTED.
50 ; R2=ADDRESS OF THE TASK STATUS WORD OF THE CURRENT TASK.
51 ; R3=ADDRESS OF THE PARTITION NAME IN THE DPB.
52 ; R4=ADDRESS OF THE HEADER OF THE CURRENT TASK.
53 ; R5=ADDRESS OF THE TCB OF THE CURRENT TASK.
54 ;
55 ; OUTPUTS: (DIRECTIVE STATUS AND PS RETURNED TO TASK)
56 ;
57 ; C=0 IF DIRECTIVE IS SUCCESSFULLY COMPLETED.
DRREQ MACRO M1110 22-AUG-79 07:03 PAGE 3-1
58 ; DIRECTIVE STATUS OF +1 IS RETURNED.
59 ; C=1 IF DIRECTIVE IS REJECTED.
60 ; DIRECTIVE STATUS OF 'D.RS1' IS RETURNED IF PARTITION
61 ; CONTROL BLOCK CANNOT BE ALLOCATED.
62 ; DIRECTIVE STATUS OF 'D.RS7' IS RETURNED IF SPECIFIED.
63 ; TASK IS ALREADY ACTIVE.
64 ;-
65
66 000000 016301 000006 $DRREQ::MOV 6(R3),R1 ;GET REQUEST UIC
67
68
69 .IF DF M$$MUP
70
71 CALL $UISET ;ESTABLISH DEFAULT AND CURRENT UIC'S
72
73 .ENDC
74
75
76 000004 016502 000026 MOV T.UCB(R5),R2 ;GET ADDRESS OF REQUESTER TI UCB
77 000010 CALL $TSKRP ;REQUEST TASK EXECUTION
78 000014 103401 BCS 10$ ;IF CS TASK ALREADY ACTIVE
79 000016 RETURN ;RETURN DIRECTIVE STATUS OF +1
80
81
82 .IF DF D$$YNM&M$$MGE
83
84 10$: BEQ 20$ ;IF EQ TASK ALREADY ACTIVE
85 DRSTS D.RS1 ;SET DIRECTIVE STATUS
86 20$: DRSTS D.RS7 ;SET DIRECTIVE STATUS
87
88 .IFF
89
90 000020 10$: DRSTS D.RS7 ;SET DIRECTIVE STATUS
91
92 .ENDC
93
94
95 000001 .END
DRREQ MACRO M1110 22-AUG-79 07:03 PAGE 3-2
SYMBOL TABLE
A$$CHK= 000000 M$$NT2= 000000 TS.RUN= 004000 T.SRCT 000063 T2.WFR= 000001
A$$CPS= 000000 N$$LDV= 000001 T.ACTL 000052 T.STAT 000032 T3.ACP= 100000
A$$TRP= 000000 P$$RTY= 000000 T.ASTL 000016 T.ST2 000034 T3.CAL= 000100
C$$ORE= 002000 P$$TPT= 000000 T.ATT 000054 T.ST3 000036 T3.CLI= 001000
D.RS7 = ****** GX R$$DER= 000000 T.CPCB 000004 T.TCBL 000030 T3.MCR= 004000
G$$TPP= 000000 R$$EXV= 000000 T.DPRI 000040 T.UCB 000026 T3.NET= 000020
G$$TTK= 000000 R$$SND= 000000 T.EFLG 000022 T2.ABO= 000100 T3.NSD= 000200
H$$RTZ= 000074 R$$11M= 000000 T.IOC 000003 T2.AST= 100000 T3.PMD= 040000
I$$RDN= 000000 R$$11S= 000000 T.LBN 000041 T2.BFX= 004000 T3.PRV= 010000
K$$CNT= 177546 S$$YSZ= 001740 T.LDV 000044 T2.CAF= 000400 T3.REM= 020000
K$$CSR= 177546 TS.BLK= 170700 T.LNK 000000 T2.CHK= 020000 T3.ROV= 000040
K$$IEN= 000115 TS.CKP= 000200 T.MXSZ 000050 T2.CKD= 010000 T3.RST= 000400
K$$LDC= 000001 TS.CKR= 000100 T.NAM 000006 T2.DST= 040000 T3.SLV= 002000
K$$TPS= 000074 TS.EXE= 100000 T.OFF 000060 T2.FXD= 002000 V$$CTR= 001200
L$$ASG= 000000 TS.MSG= 020000 T.PCB 000046 T2.HLT= 000200 V$$RSN= 000031
L$$DRV= 000000 TS.NRP= 010000 T.PRI 000002 T2.SPN= 000004 X$$DBT= 000000
M$$CRB= 000124 TS.OUT= 000400 T.RCVL 000012 T2.STP= 000020 $DRREQ 000000RG
M$$MGE= 000000 TS.RDN= 040000 T.RRFL 000064 T2.TIO= 001000 $TSKRP= ****** GX
M$$NET= 000000
. ABS. 000070 000
000022 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 2139 WORDS ( 9 PAGES)
DYNAMIC MEMORY: 2980 WORDS ( 11 PAGES)
ELAPSED TIME: 00:00:12
[11,24]DRREQ,SY0:[11,34]DRREQ/-SP=[1,1]EXEMC/ML,[11,10]RSXMC/PA:1,DRREQ