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