Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/rsx11s/drdcp.list
There are no other files named drdcp.list in the archive.
DRDCP MACRO M1110 22-AUG-79 06:58 PAGE 3
1 .TITLE DRDCP
2 .IDENT /04/
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 04
12 ;
13 ; D. N. CUTLER 5-SEP-73
14 ;
15 ; PREVIOUSLY MODIFIED BY:
16 ;
17 ; T. J. MILLER
18 ;
19 ; MODIFIED BY:
20 ;
21 ; T. J. MILLER 6-JUN-77
22 ;
23 ; TM088 -- CLEAR CHECKPOINT PCB WORD ON DISABLE CHECK-
24 ; POINTING.
25 ;
26 ; DISABLE/ENABLE CHECKPOINTING DIRECTIVES
27 ;
28 ; MACRO LIBRARY CALLS
29 ;
30
31 .MCALL TCBDF$
32 000000 TCBDF$ ;DEFINE TASK CONTROL BLOCK OFFSETS
33
34 ;+
35 ; **-$DRDCP-DISABLE CHECKPOINTING
36 ;
37 ; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO DISABLE THE CHECKPOINTABILITY
38 ; OF THE ISSUING TASK.
39 ;
40 ; DPB FORMAT:
41 ;
42 ; WD. 00 -- DIC(95.),DPB SIZE(1.).
43 ;
44 ; INPUTS:
45 ;
46 ; R2=ADDRESS OF THE TASK STATUS WORD OF THE CURRENT TASK.
47 ; R3=ADDRESS OF THE LAST WORD IN THE DPB+2.
48 ; R4=ADDRESS OF THE HEADER OF THE CURRENT TASK.
49 ; R5=ADDRESS OF THE TCB OF THE CURRENT TASK.
50 ;
51 ; OUTPUTS: (DIRECTIVE STATUS AND PS RETURNED TO TASK).
52 ;
53 ; C=0 IF DIRECTIVE IS SUCCESSFULLY COMPLETED.
54 ; DIRECTIVE STATUS OF +1 IS RETURNED.
55 ; C=1 IF DIRECTIVE IS REJECTED.
56 ; DIRECTIVE STATUS OF 'D.RS8' IS RETURNED IF CHECKPOINTING
57 ; IS ALREADY DISABLED FOR ISSUING TASK.
DRDCP MACRO M1110 22-AUG-79 06:58 PAGE 3-1
58 ; DIRECTIVE STATUS OF 'D.RS10' IS RETURNED IF THE ISSUING
59 ; TASK IS NOT CHECKPOINTABLE.
60 ;-
61
62
63 .IF DF C$$CKP&D$$ISK
64
65 .ENABL LSB
66 $DRDCP::BIT #T2.CHK,(R2) ;TASK CHECKPOINTABLE?
67 BNE 20$ ;IF NE NO
68 BIT #T2.CKD,(R2) ;CHECKPOINTING ALREADY DISABLED?
69 BNE 30$ ;IF NE YES
70 BIS #T2.CKD,(R2) ;DISABLE CHECKPOINTING
71 ; TM088
72 ; TM088
73 .IF DF C$$INT ; TM088
74 ; TM088
75 CLR T.CPCB(R5) ;CLEAR CHECKPOINT PCB PTR (ICB LISTHEAD); TM088
76 ; TM088
77 .ENDC ; TM088
78 ; TM088
79 ; TM088
80 10$: RETURN ;RETURN DIRECTIVE STATUS OF +1
81 20$: DRSTS D.RS10 ;SET DIRECTIVE STATUS
82
83 ;+
84 ; **-$DRECP-ENABLE CHECKPOINTING
85 ;
86 ; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO ENABLE THE CHECKPOINTABILITY
87 ; OF THE ISSUING TASK.
88 ;
89 ; DPB FORMAT:
90 ;
91 ; WD. 00 -- DIC(97.),DPB SIZE(1.).
92 ;
93 ; INPUTS:
94 ;
95 ; R2=ADDRESS OF THE TASK STATUS WORD OF THE CURRENT TASK.
96 ; R3=ADDRESS OF THE LAST WORD IN THE DPB+2.
97 ; R4=ADDRESS OF THE HEADER OF THE CURRENT TASK.
98 ; R5=ADDRESS OF THE TCB OF THE CURRENT TASK.
99 ;
100 ; OUTPUTS: (DIRECTIVE STATUS AND PS RETURNED TO TASK)
101 ;
102 ; C=0 IF DIRECTIVE IS SUCCESSFULLY COMPLETED.
103 ; DIRECTIVE STATUS OF +1 IS RETURNED.
104 ; C=1 IF DIRECTIVE IS REJECTED.
105 ; DIRECTIVE STATUS OF 'D.RS8' IS RETURNED IF CHECKPOINTING
106 ; IS ALREADY ENABLED.
107 ;-
108
109 $DRECP::BIT #T2.CKD,(R2) ;CHECKPOINTING ALREADY ENABLED?
110 BEQ 30$ ;IF EQ YES
111 BIC #T2.CKD,(R2) ;ENABLE CHECKPOINTING
112 MOV T.PCB(R5),R0 ;GET ADDRESS OF TASK PARTITION PCB
113 CALLR $NXTSK ;REASSIGN PARTITION IF NECESSARY
114 30$: DRSTS D.RS8 ;SET DIRECTIVE STATUS
DRDCP MACRO M1110 22-AUG-79 06:58 PAGE 3-2
115 .DSABL LSB
116
117 .ENDC
118
119
120 000001 .END
DRDCP MACRO M1110 22-AUG-79 06:58 PAGE 3-3
SYMBOL TABLE
A$$CHK= 000000 M$$NT2= 000000 TS.RUN= 004000 T.SRCT 000063 T2.TIO= 001000
A$$CPS= 000000 N$$LDV= 000001 T.ACTL 000052 T.STAT 000032 T2.WFR= 000001
A$$TRP= 000000 P$$RTY= 000000 T.ASTL 000016 T.ST2 000034 T3.ACP= 100000
C$$ORE= 002000 P$$TPT= 000000 T.ATT 000054 T.ST3 000036 T3.CAL= 000100
G$$TPP= 000000 R$$DER= 000000 T.CPCB 000004 T.TCBL 000030 T3.CLI= 001000
G$$TTK= 000000 R$$EXV= 000000 T.DPRI 000040 T.UCB 000026 T3.MCR= 004000
H$$RTZ= 000074 R$$SND= 000000 T.EFLG 000022 T2.ABO= 000100 T3.NET= 000020
I$$RDN= 000000 R$$11M= 000000 T.IOC 000003 T2.AST= 100000 T3.NSD= 000200
K$$CNT= 177546 R$$11S= 000000 T.LBN 000041 T2.BFX= 004000 T3.PMD= 040000
K$$CSR= 177546 S$$YSZ= 001740 T.LDV 000044 T2.CAF= 000400 T3.PRV= 010000
K$$IEN= 000115 TS.BLK= 170700 T.LNK 000000 T2.CHK= 020000 T3.REM= 020000
K$$LDC= 000001 TS.CKP= 000200 T.MXSZ 000050 T2.CKD= 010000 T3.ROV= 000040
K$$TPS= 000074 TS.CKR= 000100 T.NAM 000006 T2.DST= 040000 T3.RST= 000400
L$$ASG= 000000 TS.EXE= 100000 T.OFF 000060 T2.FXD= 002000 T3.SLV= 002000
L$$DRV= 000000 TS.MSG= 020000 T.PCB 000046 T2.HLT= 000200 V$$CTR= 001200
M$$CRB= 000124 TS.NRP= 010000 T.PRI 000002 T2.SPN= 000004 V$$RSN= 000031
M$$MGE= 000000 TS.OUT= 000400 T.RCVL 000012 T2.STP= 000020 X$$DBT= 000000
M$$NET= 000000 TS.RDN= 040000 T.RRFL 000064
. ABS. 000070 000
000000 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 2119 WORDS ( 9 PAGES)
DYNAMIC MEMORY: 2980 WORDS ( 11 PAGES)
ELAPSED TIME: 00:00:11
[11,24]DRDCP,SY0:[11,34]DRDCP/-SP=[1,1]EXEMC/ML,[11,10]RSXMC/PA:1,DRDCP