Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/nticex.list
There are no other files named nticex.list in the archive.
NTICEX MACRO M1110 13-OCT-79 10:42
TABLE OF CONTENTS
4- 35 DATA
5- 73 SET CEX FUNCTION
6- 129 LOCAL INITIALIZATION
NTICEX MACRO M1110 13-OCT-79 10:42 PAGE 3
1 .TITLE NTICEX
2 .IDENT /V01.00/
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 ; MODULE DESCRIPTION:
24 ;
25 ; NTINIT - "SET CEX" PROCESSING
26 ;
27 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
28 ;
29 ; IDENT HISTORY:
30 ;
31 ; 1.00 27-FEB-78
32 ; VERSION 2.0 RELEASE
33 ;
NTICEX MACRO M1110 13-OCT-79 10:42 PAGE 4
DATA
35 .SBTTL DATA
36
37
38 ;
39 ; AT THE MOMENT, ASSUME THAT IF MEMORY MANAGEMENT IS IN EFFECT, THAT
40 ; THE MACHINE IS AN 11/70 (ONLY AFFECTS UMR LOADING CODE).
41 ;
42 000000 .IIF DF,M$$MGE, M$$EXT=0 ;ALWAYS ASSEMBLE FOR THE 11/70
43
44 ;
45 ; LIBRARY MACROS
46 ;
47 .MCALL DIR$,CLEF$S,WTSE$S,RQST$,SDAT$,EMSG$R,NTLER$
48 .MCALL HWDDF$,NHWDF$
49
50 000000 HWDDF$ ;HARDWARE REGISTER DEFINITIONS ($FMASK)
51 000000 NHWDF$ ;HARDWARE REGISTER DEFINITIONS
52
53
54 ;
55 ; LOCAL (IMPURE) DATA
56 ;
57 000000 .PSECT DATA,D
58
59 ;
60 ; ERROR MESSAGES
61 ;
62 .IF NDF,R$$11S
63 .ENABL LC
64 000000 NTLER$ 10,NONE,$NIERR,,,<Clearing Cex>
65 .DSABL LC
66 .ENDC
67
68 ;
69 ; START OF PURE CODE
70 ;
71 000000 .PSECT
NTICEX MACRO M1110 13-OCT-79 10:42 PAGE 5
SET CEX FUNCTION
73 .SBTTL SET CEX FUNCTION
74
75 ;+
76 ; $NICEX - SET CEX FUNCTION ENTRY POINT
77 ;
78 ; THE SAME ENTRY POINT GLOBAL IS DEFINED FOR BOTH RSX11M AND RSX11S
79 ; SYSTEMS.
80 ;
81 ; INPUTS:
82 ; ON AN RSX11M SYSTEM ONLY, FE.CEX IN "$FMASK" INDICATES
83 ; WHETHER CEX IS ALREADY LOADED (1) OR NOT (0).
84 ; ON AN RSX11S SYSTEM, CEX IS ASSUMED TO BE ALREADY
85 ; LOADED.
86 ; LS.CXO IN "$NIFNC" INDICATES WHETHER THE FUNCTION IS
87 ; LOAD CEX ONLY (0) OR ALSO PERFORM LOCAL ON (1).
88 ;
89 ; OUTPUTS:
90 ; CEX IS LOADED, UMR'S ARE LOADED, CSR'S ARE CHECKED, AND
91 ; KMC'S ARE LOADED, AND THE TIMERS ARE STARTED, AS
92 ; NECESSARY.
93 ; ON AN RSX11M SYSTEM WHERE CEX IS NOT YET LOADED, NTL IS
94 ; CALLED TO PERFORM INITIALIZATION, AND A "MARKED FOR
95 ; LOAD" AND "MARKED FOR ENABLE" SCAN IS PERFORMED.
96 ; ON AN RSX11M SYSTEM WHERE CEX IS ALREADY LOADED, LOCAL
97 ; INITIALIZATION IS PERFORMED.
98 ; ON AN RSX11S SYSTEM, LOCAL INITIALIZATION ONLY IS
99 ; PERFORMED (FALL THROUGH TO LOCAL INIT CODE).
100 ; CARRY IS SET IF LOAD OR INITIALIZATION FAILED.
101 ;-
102
103 000000 $NICEX::.IF NDF,R$$11S ;*-THE FOLLOWING IS RSX11M CODE-*
104
105 000000 032767 000000G 000000G BIT #FE.CEX,$FMASK ;IS CEX LOADED ALREADY?
106 000006 001041 BNE NTILIN ;BR IF YES, PERFORM LOCAL INITIALIZE
107 000010 012767 000000C 000000G MOV #LS.CEX+LS.NTI,$NTLFC ;SET NTL FUNCTION CODE
108 000016 CALL $NINTL ;SEND DATA TO NTL
109 000022 103422 BCS 20$ ;BR ON ERROR (NO NTL)
110 000024 005767 000000G TST $NTLFC ;WHAT WAS NTL'S RESPONSE
111 000030 000261 SEC ; ASSUME FAILURE
112 000032 100416 BMI 20$ ;BR IF BAD RESPONSE
113 000034 032767 000000G 000000G BIT #LS.TOP,$NTLFC ; COPY TOP-LOADING FLAG
114 000042 001402 BEQ 10$ ; FROM NTL'S ANSWER
115 000044 105267 000001G INCB $NIFLG+1 ; TO HIGH BYTE OF $NIFLG
116 000050 10$: CALL $NITIM ;START THE TIMERS IF NECESSARY
117 000054 CALL $NIMFL ;PERFORM MARKED FOR LOAD SCAN
118 000060 103404 BCS 30$ ;BR IF LOAD FAIL, REMOVE CEX
119 000062 CALL $NIMFE ;PERFORM MARKED FOR ENABLE SCAN
120 000066 000241 CLC ;LOAD AND INIT WORKED
121 000070 20$: RETURN ;RETURN TO MAIN LINE CODE
122
123 000072 012767 000000G 000000G 30$: MOV #LX.CEX,$NTLFC ;IF LOAD ERROR, REMOVE CEX
124 000100 CALL $NINTL ;LET NTL DO IT
125 000104 EMSG$R 10 ;TELL USER AND RETURN W/ CARRY SET
126
127 .ENDC ;*-END OF RSX11M CODE-*
NTICEX MACRO M1110 13-OCT-79 10:42 PAGE 6
LOCAL INITIALIZATION
129 .SBTTL LOCAL INITIALIZATION
130
131 ;+
132 ; NTILIN - LOCAL INITIALIZATION
133 ;
134 ; LOAD UMR'S, VALIDATE CSR'S, AND LOAD KMC MICRO-CODE, AS NEEDED
135 ;
136 ; THIS ROUTINE REQUIRES THE GLOBAL ADDRESSES "$NIUMR", "$NICSR", AND
137 ; "$NIKMC" TO BE DEFINED. ANY OF THESE ROUTINES MAY BE EXCLUDED FROM
138 ; THE TASK BUILD IF IT IS KNOWN THAT THEY WILL NOT BE CALLED (IF
139 ; EXCLUDED, THE SYMBOLS SHOULD BE GLOBALLY DEFINED AS FOLLOWS:
140 ; $NIUMR=177777, $NICSR=0, $NIKMC=0). ALSO, ON AN RSX11-S SYSTEM,
141 ; THE GLOBAL "$NIDLI" SHOULD BE DEFINED (ZERO IF MODULE IS EXCLUDED).
142 ;
143 ; INPUTS:
144 ; $NTLPT = ADDRESS (BIAS) OF NTL DATA CONTROL BLOCK
145 ; BLOCK+2 = ADDRESS OF UMR CONTROL BLOCK (0 IF NONE)
146 ; BLOCK+.CXCSR = ADDRESS (BIAS) OF CSR CHECK LIST (0 IF NONE)
147 ; BLOCK+.CXKMC = ADDRESS (BIAS) OF KMC LOAD LIST (0 IF NONE)
148 ;
149 ; OUTPUTS:
150 ; "$NIDLI" IS CALLED TO INIT DOWN-LINE LOAD PARAMETERS (11S ONLY)
151 ; IF BLOCK+2 IS NON-ZERO, "$NIUMR" IS CALLED
152 ; IF BLOCK+.CXCSR IS NON-ZERO, "$NICSR" IS CALLED
153 ; IF BLOCK+.CXKMC IS NON-ZERO, "$NIKMC" IS CALLED
154 ; IF AN ERROR OCCURS IN ANY OF THESE, THE INITIALIZATION FAILED
155 ; IF THE INITIALIZATION SUCCEEDED, THE TIMERS ARE STARTED
156 ; CARRY IS SET IF INITIALIZATION FAILED
157 ;-
158
159 000112 NTILIN::.IF DF,R$$11S ;*-CODE FOR AN RSX11S SYSTEM-*
160 MOV #$NIDLI,R0 ;GET DOWN-LINE LOAD INITIALIZER
161 BEQ 5$ ;BR IF NO SUCH MODULE
162 CALL (R0) ;PERFORM DOWN-LINE LOAD INIT
163 5$: .ENDC ;*-END RSX11S CODE-*
164
165
166 .IF DF,M$$MGE ;** CODE FOR A MAPPED SYSTEM **
167
168 000112 SWSTK$ 10$ ;M-ENTER KERNEL MODE
169 000116 016767 000000G 172354 MOV $NTLPT,BUFUMP ;;M-MAP TO THE NETLDR DATA BLOCK
170
171 .IF DF,M$$EXT
172 000124 016766 140002 000006 MOV .BASEB+2,6(SP) ;;M-RETURN UMR BLOCK ADDRESS IN R2
173 .ENDC
174
175 000132 016766 140000G 000010 MOV .BASEB+.CXCSR,10(SP) ;;M-RETURN CSR CHECK BLOCK ADDRESS IN R3
176 000140 016766 140000G 000004 MOV .BASEB+.CXKMC,4(SP) ;;M-AND KMC CONTROL BLOCK BIAS IN R1
177 000146 RETURN ;;M-BACK TO USER MODE AT 10$
178
179
180
181 000150 10$: .IF DF,M$$EXT
182 000150 005702 TST R2 ;M-IS THERE A UMR BLOCK ?
183 000152 001402 BEQ 20$ ;M-IF EQ, NO
184 000154 CALL $NIUMR ;M-LOAD THE UMR'S
185 000160 20$: .ENDC
NTICEX MACRO M1110 13-OCT-79 10:42 PAGE 6-1
LOCAL INITIALIZATION
186
187 .IFF ;** CODE FOR AN UNMAPPED SYSTEM **
188
189 MOV $NTLPT,R1 ;U-GET DATA BLOCK ADDRESS
190 MOV .CXCSR(R1),R3 ;U-GET ADDRESS OF CSR CHECK LIST
191 MOV .CXKMC(R1),R1 ;U-GET KMC CONTROL BLOCK ADDRESS
192
193 .ENDC ;** COMMON TO MAPPED AND UNMAPPED **
194
195
196 000160 012700 000000G MOV #$NICSR,R0 ;GET CSR CHECK ROUTINE ADDRESS
197 000164 001402 BEQ 25$ ;BR IF NO SUCH ROUTINE
198 000166 CALL (R0) ;CHECK CSR VALIDITY
199 000170 103410 BCS 40$ ;BR IF CSR CHECK FAILED
200
201 000172 012700 000000G 25$: MOV #$NIKMC,R0 ;GET KMC LOADER ROUTINE ADDRESS
202 000176 001402 BEQ 30$ ;BR IF NO SUCH ROUTINE
203 000200 CALL (R0) ;GO LOAD KMC'S
204 000202 103403 BCS 40$ ;BR IF KMC LOAD ERROR
205
206 000204 30$: CALL $NITIM ;GO START TIMERS
207 000210 000241 CLC ;GOOD FINISH
208
209 000212 40$: RETURN
NTICEX MACRO M1110 13-OCT-79 10:42 PAGE 7
LOCAL INITIALIZATION
211 000001 .END
NTICEX MACRO M1110 13-OCT-79 10:42 PAGE 7-1
SYMBOL TABLE
A$$CHK= 000000 FE.PLA= 000020 L$$ASG= 000000 PR7 = 000340 UISAR7= 177656
A$$CPS= 000000 F$$LVL= 000001 L$$DRV= 000000 PS = 177776 UISDR0= 177600
A$$PRI= 000000 G$$TPP= 000000 L$$P11= 000001 P$$P45= 000000 UISDR4= 177610
A$$TRP= 000000 G$$TSS= 000000 L$$11R= 000000 P$$WRD= 000000 UISDR5= 177612
BUFUMP= 172354 G$$TTK= 000000 MPAR = 172100 Q$$OPT= 000010 UISDR6= 177614
CMODE = 140000 G$$WRD= 000000 MPCSR = 177746 R$$DER= 000000 UISDR7= 177616
C$$CKP= 000000 I$$RAR= 000000 M$$CRB= 000124 R$$K11= 000001 V$$CTR= 001000
C$$ORE= 000400 I$$RDN= 000000 M$$CRX= 000000 R$$SND= 000000 X$$DBT= 000000
C$$RSH= 177564 KDSAR0= 172360 M$$EXT= 000000 R$$11M= 000000 $ERR10 000000RG 002
D$$BUG= 177514 KDSDR0= 172320 M$$FCS= 000000 SISDR0= 172200 $FMASK= ****** GX
D$$ISK= 000000 KISAR0= 172340 M$$MGE= 000000 SR0 = 177572 $NICEX 000000RG
D$$L11= 000001 KISAR5= 172352 M$$OVR= 000000 SR3 = 172516 $NICSR= ****** GX
D$$YNC= 000000 KISAR6= 172354 NTILIN 000112RG SWR = 177570 $NIERR= ****** GX
D$$YNM= 000000 KISAR7= 172356 N$$LDV= 000001 S$$WRG= 000000 $NIFLG= ****** GX
E$$XPR= 000000 KISDR0= 172300 N$$MOV= 000010 S$$YSZ= 007600 $NIKMC= ****** GX
FE.CAL= 000040 KISDR6= 172314 N$$SYS= 000001 TPS = 177564 $NIMFE= ****** GX
FE.CEX= ****** GX KISDR7= 172316 N$$USR= 000001 T$$KMG= 000000 $NIMFL= ****** GX
FE.DRV= 000010 K$$CNT= 177546 PIRQ = 177772 T$$MIN= 000000 $NINTL= ****** GX
FE.EXP= 000200 K$$CSR= 177546 PMODE = 030000 UBMPR = 170200 $NITIM= ****** GX
FE.EXT= 000001 K$$LDC= 000000 PR0 = 000000 UDSAR0= 177660 $NIUMR= ****** GX
FE.EXV= 000004 K$$TPS= 000074 PR1 = 000040 UDSDR0= 177620 $NTLFC= ****** GX
FE.LSI= 000400 LD$LP = 000000 PR2 = 000100 UISAR0= 177640 $NTLPT= ****** GX
FE.MUP= 000002 LS.CEX= ****** GX PR3 = 000140 UISAR1= 177642 .BASEB= 140000
FE.MXT= 040000 LS.NTI= ****** GX PR4 = 000200 UISAR4= 177650 .CXCSR= ****** GX
FE.NLG= 100000 LS.TOP= ****** GX PR5 = 000240 UISAR5= 177652 .CXKMC= ****** GX
FE.PKT= 000100 LX.CEX= ****** GX PR6 = 000300 UISAR6= 177654
. ABS. 000000 000
000214 001
DATA 000026 002
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 4387 WORDS ( 18 PAGES)
DYNAMIC MEMORY: 5836 WORDS ( 22 PAGES)
ELAPSED TIME: 00:00:19
NTICEX,[132,34]NTICEX/CR/-SP=[130,10]NETLIB/ML,RSXMC7/PA:1,[132,10]NTICEX
NTICEX CREATED BY MACRO ON 13-OCT-79 AT 10:42 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
BUFUMP = 172354 #4-51 *6-169
CMODE = 140000 #4-51
FE.CEX = ****** GX 5-105
I$$AS = ****** 4-51
KISAR0 = 172340 #4-51
KISAR6 = 172354 #4-51
LS.CEX = ****** GX 5-107
LS.NTI = ****** GX 5-107
LS.TOP = ****** GX 5-113
LX.CEX = ****** GX 5-123
MPAR = 172100 #4-51
MPCSR = 177746 #4-51
M$$EXT = 000000 #4-42 6-171 6-181
M$$MGE = 000000 4-42 4-51 6-166
NTILIN 000112 RG 5-106 #6-159
PIRQ = 177772 #4-51
PMODE = 030000 #4-51
PR0 = 000000 #4-51
PR1 = 000040 #4-51
PR2 = 000100 #4-51
PR3 = 000140 #4-51
PR4 = 000200 #4-51
PR5 = 000240 #4-51
PR6 = 000300 #4-51
PR7 = 000340 #4-51
PS = 177776 #4-51
R$$11D = ****** 4-51
R$$11S = ****** 4-62 5-103 6-159
SWR = 177570 #4-51
TPS = 177564 #4-51
UBMPR = 170200 #4-51
UISAR0 = 177640 #4-51
UISAR1 = 177642 #4-51
$ERR10 000000 RG #4-64 5-125
$FMASK = ****** GX 5-105
$NICEX 000000 RG #5-103
$NICSR = ****** GX 6-196
$NIERR = ****** GX 4-64
$NIFLG = ****** GX *5-115
$NIKMC = ****** GX 6-201
$NIMFE = ****** GX 5-119
$NIMFL = ****** GX 5-117
$NINTL = ****** GX 5-108 5-124
$NITIM = ****** GX 5-116 6-206
$NIUMR = ****** GX 6-184
$NTLFC = ****** GX *5-107 5-110 5-113 *5-123
$NTLPT = ****** GX 6-169
.BASEB = 140000 #4-51 6-172 6-175 6-176
.CXCSR = ****** GX 6-175
.CXKMC = ****** GX 6-176
NTICEX CREATED BY MACRO ON 13-OCT-79 AT 10:42 PAGE 2
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL 5-108 5-116 5-117 5-119 5-124 6-168 6-184 6-198 6-203 6-206
CLEF$S #4-47
DIR$ #4-47
EMSG$R #4-47 #5-125
HWDDF$ #4-48 4-50
NHWDF$ #4-48 4-51
NTLER$ #4-47 4-64
RETURN #5-121 #6-177 #6-209
RQST$ #4-47
SDAT$ #4-47
SWSTK$ #6-168
WTSE$S #4-47