Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/nsobj.list
There are no other files named nsobj.list in the archive.
NSOBJ MACRO M1110 13-OCT-79 10:25
TABLE OF CONTENTS
3- 101 $MPOBJ - NSP OBJECT NUMBER VALIDATION
NSOBJ MACRO M1110 13-OCT-79 10:25 PAGE 2
1 .TITLE NSOBJ
2 .IDENT /V01.03/
3
4 ;
5 ; COPYRIGHT (C) 1978 BY
6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
7 ;
8 ;
9 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
10 ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
11 ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
12 ; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
13 ; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
14 ; TRANSFERRED.
15 ;
16 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
17 ; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
18 ; CORPORATION.
19 ;
20 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
21 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
22 ;
23 ;
24 ; MODULE DESCRIPTION:
25 ;
26 ; ACP OBJECT TYPE MAPPING ROUTINE
27 ;
28 ;
29 ;
30 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
31 ;
32 ; IDENT HISTORY:
33 ;
34 ; 1.00 10-FEB-78
35 ; VERSION 2.0 RELEASE
36 ;
37 ; AP0001 21-DEC-77 ALAN D. PECKHAM
38 ; ADD SYSTEM INTERFACE OBJECTS
39 ; SR0002 7-JUL-78 SCOTT G. ROBINSON
40 ; ADD PROVISIONAL OSI TASK
41 ; AP0003 17-SEP-79 ALAN D. PECKHAM
42 ; REMOVE UNUSED OBJECT TYPES
43 ; REWORK TO USE PROCESS ID INSTEAD OF PDV INDEX
44
45 ; LOCAL MACRO DEFINITION
46 ;
47 ;
48 ; PUSH AND POP STACK INSTRUCTIONS
49 ;
50
51 .MACRO PUSH S
52 .IRP SS,<S>
53 MOV SS,-(SP)
54 .ENDR
55 .ENDM PUSH
56
57 .MACRO POP D
NSOBJ MACRO M1110 13-OCT-79 10:25 PAGE 2-1
58 .IRP DD,<D>
59 MOV (SP)+,DD
60 .ENDR
61 .ENDM POP
62 ; ;AP0003
63 ; OBJECT TYPE DEFINITION MACRO ;AP0003
64 ; ;AP0003
65 .MACRO OBJECT TYPE,PROCESS,TASK ;AP0003
66 .WORD 'TYPE' ;AP0003
67 .RAD50 /'PROCESS'/ ;AP0003
68 .IIF B <'PROCESS'>, .WORD 0 ;AP0003
69 .RAD50 /'TASK'/ ;AP0003
70 .NCHR $$$LNG,<'TASK'> ;AP0003
71 .IIF LE <$$$LNG-0>, .WORD 0 ;AP0003
72 .IIF LE <$$$LNG-3>, .WORD 0 ;AP0003
73 .ENDM OBJECT ;AP0003
74
75 ;
76 ; GLOBAL DATA
77 ;
78 ;
79 ; OBJECT-TO-TASK MAPPING TABLE
80 ;
81
82 000000 OBJTB: OBJECT 1,,<FAL2..> ;VERSION 1 FILE ACCESS LISTENER ;AP0003
83 000010 OBJECT 2,NRD ;NODE UNIT RECORD SERVICES ;AP0003
84 000020 OBJECT 3,ATS ;ATS GENERIC DIALOG MANAGER ;AP0003
85 000030 OBJECT 5,,<TCL...> ;VERSION 1 TASK CONTROL SERVICER ;AP0003
86 000040 OBJECT 7,NRM ;NODE RESOURCE MANAGER ;AP0003
87 000050 OBJECT 17,,<TCL2..> ;VERSION 2 TASK CONTROL SERVICER ;AP0003
88 000060 OBJECT 20,,<LSN...> ;TALK UTILITY ;AP0003
89 000070 OBJECT 21,,<FAL2..> ;VERSION 2 FILE ACCESS LISTENER ;AP0003
90 ;**-13
91 .IF NDF R$$11S
92 000100 OBJECT 22,,<HLD2..> ;REMOTE TASK LOADER ;AP0003
93 .ENDC ;**-2
94
95 000110 OBJECT 23,,<NICE..> ;NETWORK CONTROL EXECUTER ;AP0003
96 000114' $NCUNM == .-4 ;AP0003
97 000120 OBJECT 47,,<POSI..> ;PROVISIONAL OPERATOR SERVICES FOR DN200 ;AP0003
98 000130 OBJECT 77,DTR,<DTR...> ;DECNET TEST RECEIVER ;AP0003
99 000140 000000 .WORD 0 ;AP0003
NSOBJ MACRO M1110 13-OCT-79 10:25 PAGE 3
$MPOBJ - NSP OBJECT NUMBER VALIDATION
101 .SBTTL $MPOBJ - NSP OBJECT NUMBER VALIDATION
102
103 ;+
104 ;** - $MPOBJ - NSP OBJECT NUMBER VALIDATION
105 ;
106 ; THIS ROUTINE VALIDATES THE OBJECT NUMBER FROM AN INCOMING DESTINATION
107 ; DESCRIPTOR AND MAPS IT TO THE APPROPRIATE PDV INDEX.
108 ;
109 ; INPUT:
110 ;
111 ; R1 (LOWER BYTE) = OBJECT TYPE
112 ;
113 ; OUTPUTS:
114 ;
115 ; C-BIT CLEAR - VALID OBJECT TYPE
116 ; R0 = ADDRESS OF OBJECT NAME STRING
117 ; R1 = MUI PDV INDEX
118 ;
119 ; C-BIT SET - INVALID OBJECT TYPE
120 ; R1 IS DESTROYED
121 ;-
122
123 000142 010246 $MPOBJ::MOV R2,-(SP) ;AP0003
124 000144 110102 MOVB R1,R2 ;IF OBJECT TYPE IS ZERO ;AP0003
125 000146 001414 BEQ 60$ ;THEN USER INTERFACE HANDLES. ;AP0003
126 000150 012700 177772' MOV #OBJTB-6,R0 ;GET MAPPING TABLE ADDRESS ;AP0003
127 000154 162700 177772 10$: SUB #-6,R0 ;(SETS CARRY) ;AP0003
128 000160 012001 MOV (R0)+,R1 ;THIS IS OBJECT + FLAGS ;AP0003
129 000162 001410 BEQ 80$ ;GO AWAY WITH CS IF NO MORE. ;AP0003
130 000164 120102 CMPB R1,R2 ;IF THIS IS THE ONE ;AP0003
131 000166 001372 BNE 10$ ;THEN ;AP0003
132 000170 012002 MOV (R0)+,R2 ;GET PDV IDENTIFIER ;AP0003
133 000172 CALL $PDVID ;AND CHECK IF IT EXISTS. ;AP0003
134 000176 103001 BCC 70$ ;IF NOT ;AP0003
135 000200 005002 60$: CLR R2 ;THEN NO PDV INDEX. ;AP0003
136 000202 010201 70$: MOV R2,R1 ;AP0003
137 000204 012602 80$: MOV (SP)+,R2 ;AP0003
138 000206 RETURN ;AP0003
139 ;**-19
140 000001 .END
NSOBJ MACRO M1110 13-OCT-79 10:25 PAGE 3-1
SYMBOL TABLE
A$$CHK= 000000 E$$XPR= 000000 K$$TPS= 000074 N$$LDV= 000001 R$$11M= 000000
A$$CPS= 000000 F$$LVL= 000001 LD$LP = 000000 N$$MOV= 000010 S$$WRG= 000000
A$$PRI= 000000 G$$TPP= 000000 L$$ASG= 000000 N$$SYS= 000001 S$$YSZ= 007600
A$$TRP= 000000 G$$TSS= 000000 L$$DRV= 000000 N$$USR= 000001 T$$KMG= 000000
C$$CKP= 000000 G$$TTK= 000000 L$$P11= 000001 OBJTB 000000R T$$MIN= 000000
C$$ORE= 000400 G$$WRD= 000000 L$$11R= 000000 P$$P45= 000000 V$$CTR= 001000
C$$RSH= 177564 I$$RAR= 000000 M$$CRB= 000124 P$$WRD= 000000 X$$DBT= 000000
D$$BUG= 177514 I$$RDN= 000000 M$$CRX= 000000 Q$$OPT= 000010 $MPOBJ 000142RG
D$$ISK= 000000 K$$CNT= 177546 M$$FCS= 000000 R$$DER= 000000 $NCUNM= 000114RG
D$$L11= 000001 K$$CSR= 177546 M$$MGE= 000000 R$$K11= 000001 $PDVID= ****** GX
D$$YNC= 000000 K$$LDC= 000000 M$$OVR= 000000 R$$SND= 000000 $$$LNG= 000006
D$$YNM= 000000
. ABS. 000000 000
000210 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 1674 WORDS ( 7 PAGES)
DYNAMIC MEMORY: 2668 WORDS ( 10 PAGES)
ELAPSED TIME: 00:00:11
NSOBJ,[131,34]NSOBJ/CR/-SP=[130,10]RSXMC4/PA:1,[131,10]NSOBJ
NSOBJ CREATED BY MACRO ON 13-OCT-79 AT 10:25 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
OBJTB 000000 R #2-82 3-126
R$$11S = ****** 2-91
$MPOBJ 000142 RG #3-123
$NCUNM = 000114 RG #2-96
$PDVID = ****** GX 3-133
$$$LNG = 000006 #2-82 2-82 2-82 #2-83 2-83 2-83 #2-84 2-84 2-84
#2-85 2-85 2-85 #2-86 2-86 2-86 #2-87 2-87 2-87
#2-88 2-88 2-88 #2-89 2-89 2-89 #2-92 2-92 2-92
#2-95 2-95 2-95 #2-97 2-97 2-97 #2-98 2-98 2-98
NSOBJ CREATED BY MACRO ON 13-OCT-79 AT 10:25 PAGE 2
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL 3-133
OBJECT #2-65 2-82 2-83 2-84 2-85 2-86 2-87 2-88 2-89 2-92
2-95 2-97 2-98
POP #2-57
PUSH #2-51
RETURN 3-138