Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/ntidli.list
There are no other files named ntidli.list in the archive.
NTIDLI MACRO M1110 07-DEC-79 17:02
TABLE OF CONTENTS
4- 36 DATA
5- 90 NODE INFO INITIALIZATION
NTIDLI MACRO M1110 07-DEC-79 17:02 PAGE 3
1 .IIF NDF L$$SI1, .TITLE NTIDLI
2 .IIF DF L$$SI1, .TITLE LSIDLI
3 .IDENT /V01.00/
4
5 ;
6 ; COPYRIGHT (C) 1978 BY
7 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
8 ;
9 ;
10 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
11 ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
12 ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
13 ; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
14 ; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
15 ; TRANSFERRED.
16 ;
17 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
18 ; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
19 ; CORPORATION.
20 ;
21 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
22 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
23 ;
24 ; MODULE DESCRIPTION:
25 ;
26 ; NTINIT - COPY DOWN-LINE SYSTEM LOAD INFORMATION INTO LOW CORE
27 ;
28 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
29 ;
30 ; IDENT HISTORY:
31 ;
32 ; 1.00 27-FEB-78
33 ; VERSION 2.0 RELEASE
34 ;
NTIDLI MACRO M1110 07-DEC-79 17:02 PAGE 4
DATA
36 .SBTTL DATA
37
38 ;
39 ; LIBRARY MACROS
40 ;
41 .MCALL NHWDF$,SVTK$,DIR$,TCBDF$,PCBDF$
42
43 000000 NHWDF$ ;DEFINE THE HARDWARE REGISTERS
44
45 ;
46 ; LOCAL COPY OF DOWN-LINE LOAD INFORMATION
47 ;
48 000000 INFO: .BLKW 7
49
50 ;
51 ; KT11 DATA FOR UNMAPPED SYSTEM (!!!)
52 ;
53 .IF NDF M$$MGE
54 .IF NDF L$$SI1
55 $KT11$ = 0 ; SPECIAL SYMBOL
56 TCBDF$ ; DEFINE T.PCB
57 PCBDF$ ; DEFINE P.REL
58 KISAR0 = 172340 ; PAGE ADDRESS REGISTER
59 KISDR0 = 172300 ; PAGE DESCRIPTOR REGISTER
60 SR0 = 177572 ; KT11 CONTROL REGISTER
61 KISAR4 = 172350
62 KISAR6 = 172354
63 KISAR7 = 172356
64 SST: SVTK$ SSTAB,1 ; LOOK ONLY FOR NXM
65 NOSST: SVTK$ ; DISABLE ALL TRAPPING
66 SSTAB: .WORD NXM
67 TAB1: .WORD KISAR6 ; APR TO USE TO SIZE MEMORY
68 .WORD KISAR6 ; AS A FUNCTION OF NTINIT'S
69 .WORD KISAR6 ; LOCATION IN MEMORY
70 .WORD KISAR6
71 .WORD KISAR6
72 .WORD KISAR4
73 .WORD KISAR4
74 TAB2: .WORD 140000 ; VIRTUAL ADDRESS ASSOCIATED
75 .WORD 140000 ; WITH CORRESPONDING ENTRY
76 .WORD 140000 ; FROM TAB1
77 .WORD 140000
78 .WORD 140000
79 .WORD 100000
80 .WORD 100000
81 .ENDC
82 .ENDC
83
84
85 ;
86 ; START OF PURE CODE
87 ;
88 000016 .PSECT
NTIDLI MACRO M1110 07-DEC-79 17:02 PAGE 5
NODE INFO INITIALIZATION
90 .SBTTL NODE INFO INITIALIZATION
91
92 ;+
93 ; $NIDLI - DOWN-LINE LOAD INITIALIZATION
94 ;
95 ; PLEASE NOTE THAT THIS CODE IS ALWAYS ASSEMBLED FOR AN RSX-11S SYSTEM.
96 ; IT SHOULD NEVER BE CALLED (OR INCLUDED) ON AN RSX-11M SYSTEM.
97 ;
98 ; INPUTS:
99 ; IF "$SYSIZ+3,$SYSIZ+4" CONTAINS A -1, THEN THE
100 ; TOP 100 BYTES OF PHYSICAL MEMORY CONTAINS:
101 ;
102 ; .BLKW 1 ;THE NODE NUMBER (OR ZERO)
103 ; .BLKW 3 ;THE NODE NAME (OR ZERO)
104 ; .BLKW 3 ;THE HOST NAME (OR ZERO)
105 ;
106 ; OUTPUTS:
107 ; THE NODE NUMBER IS PLACED IN "$NSPNM" IN CETAB
108 ; THE NODE NAME IS PLACED IN "$NTNAM" IN CETAB
109 ; THE HOST NODE NAME IS PLACED IN "$HOST" IN CETAB
110 ; R0,R1 = DESTROYED
111 ;-
112
113 .ENABL LSB
114 000016 012700 000004G $NIDLI::MOV #$SYSIZ+4,R0 ; POINT AT SYSTEM IMAGE'S LBN
115 000022 022710 177777 CMP #-1,(R0) ; WERE WE DOWN-LINE SYSTEM LOADED ?
116 000026 001045 BNE 30$ ; NO ..
117 000030 121040 CMPB (R0),-(R0) ; MAYBE ?
118 000032 001043 BNE 30$ ; NO ..
119 000034 106010 RORB (R0) ; MAKE SURE WE DON'T DO THIS TWICE
120
121 .IF NDF,M$$MGE
122 MOV $SYSIZ,R1 ;GET ADDRESS (END OF MEMORY)/100
123 DEC R1 ;POINT AT LAST 100 BYTES
124 .IF DF $KT11$
125 DIR$ #SST ; SEE IF WE WERE LOADED INTO
126 ; CLR -(SP) ; A MAPPED MACHINE
127 MOV #KISDR0,R4 ; IN WHICH CASE THE DOWN-LINE
128 MOV #8.,R3 ; LOAD INFO IS OUTSIDE THE FIRST
129 CLR R0 ; 28K OF REAL MEMORY !
130 2$: MOV R0,KISAR0-KISDR0(R4) ; SETUP MEMORY BIAS
131 MOV #77406,(R4)+ ; MAKE IT 4K READ/WRITE
132 ADD #200,R0 ; ADD 4K TO BIAS
133 DEC R3 ; LOOP 8. TIMES
134 BNE 2$
135 MOV #7600,@#KISAR7 ; MAP THE I/O PAGE
136 DIR$ #NOSST ; NO MORE SST'S
137 CALL KT11 ; FIND TOP OF MEMORY
138 BR 6$ ; AND RETRIEVE INFO FROM THERE
139 NXM: CMP (SP)+,(SP)+ ; DISCARD TRAP DATA FROM STACK
140 DIR$ #NOSST ; NO MORE SST'S
141 .ENDC
142 .REPT 6 ;MULTIPLY BY 100 OCTAL TO CONVERT
143 ASL R1 ; TO REAL ADDRESS OF DOWN
144 .ENDR ; LINE LOAD INFORMATION
145 CALL COPY ; COPY THE INFO
146 .IFF
NTIDLI MACRO M1110 07-DEC-79 17:02 PAGE 5-1
NODE INFO INITIALIZATION
147 000036 SWSTK$ 6$ ;GO TO SYSTEM STATE (RETURN TO 6$)
148 000042 016701 000000G MOV $SYSIZ,R1 ;GET BIAS OF BLOCK AFTER LAST
149 000046 005301 DEC R1 ;POINT AT LAST 100 BYTES
150 000050 010167 172354 MOV R1,BUFUMP ;SET APR
151 000054 012701 140000 MOV #.BASEB,R1 ;POINT AT DOWN-LINE LOAD NODE INFO
152 000060 000431 BR COPY ; COPY THE INFO
153 .ENDC
154
155 000062 012701 000000' 6$: MOV #INFO,R1 ; POINT AT LOCAL COPY OF INFO
156 000066 012100 MOV (R1)+,R0 ;IS THERE A NODE NUMBER PRESENT?
157 000070 001402 BEQ 10$ ;BR IF NO
158 000072 010067 000000G MOV R0,$NSPNM ;SET IT IN CETAB
159
160 000076 012100 10$: MOV (R1)+,R0 ;IS THERE A NODE NAME PRESENT?
161 000100 001407 BEQ 15$ ;BR IF NO
162 000102 010067 000000G MOV R0,$NTNAM ;SET IT IN CETAB
163 000106 012167 000002G MOV (R1)+,$NTNAM+2 ;ALSO SECOND WORD
164 000112 012167 000004G MOV (R1)+,$NTNAM+4 ;ALSO THIRD WORD
165 000116 000401 BR 20$ ;AND CHECK NEXT FIELD
166 000120 022121 15$: CMP (R1)+,(R1)+ ;POINT AT NEXT FIELD
167
168 000122 012100 20$: MOV (R1)+,R0 ;IS THERE A HOST NAME PRESENT?
169 000124 001406 BEQ 30$ ;BR IF NO
170 000126 012702 000000G MOV #$HOST,R2 ;GET HOST NAME'S ADDRESS WITHIN CEX
171 000132 001403 BEQ 30$ ; .. NOT IN CETAB YET
172 000134 010022 MOV R0,(R2)+ ;STORE THREE WORDS
173 000136 012122 MOV (R1)+,(R2)+ ;
174 000140 011112 MOV (R1),(R2) ;
175
176 000142 30$: RETURN ;FINISHED
177 .DSABL LSB
178
179 ;
180 ; MAKE A LOCAL COPY OF THE DOWN-LINE LOAD INFO
181 ;
182 000144 012700 000000' COPY: MOV #INFO,R0 ; COPY 7 WORDS
183 000150 012702 000007 MOV #7,R2 ; FROM (R1) TO INFO
184 000154 012120 10$: MOV (R1)+,(R0)+
185 000156 005302 DEC R2
186 000160 001375 BNE 10$
187 000162 RETURN
NTIDLI MACRO M1110 07-DEC-79 17:02 PAGE 6
NODE INFO INITIALIZATION
189 ;+
190 ; KT11 - SIZE MEMORY USING KT11 AND RETRIEVE DOWN-LINE LOAD DATA FROM
191 ; REAL TOP OF MEMORY, NOT 28K-32
192 ;-
193 .IF DF $KT11$
194 KT11: MOV $TKTCB,R0 ; GET OUR TCB ADDRESS
195 MOV T.PCB(R0),R1 ; OUR PCB ADDRESS
196 MOV P.REL(R1),R2 ; THEN OUR STARTING ADDRESS
197 .REPT 5
198 ROL R2 ; CONVERT TO AN APR NUMBER
199 .ENDR
200 BIC #^C<16>,R2 ; MAKE IT A WORD INDEX
201 MTPS #PR6 ;;; LOCK OUT THE DEVICES
202 MOV #4,R0 ;;; POINT AT NXM VECTOR
203 MOV (R0)+,-(SP) ;;; SAVE IT
204 MOV (R0),-(SP) ;;;
205 MOV #PR6,(R0) ;;; SETUP NEW CONTENTS
206 MOV #20$,-(R0) ;;;
207 INCB @#SR0 ;;; ENABLE THE KT11
208 MOV TAB1(R2),R0 ;;; GET APR TO USE
209 MOV TAB2(R2),R1 ;;; AND VIRTUAL ADDRESS
210 MOV #1001,(R0) ;;; START AT 16K
211 10$: TST (R1) ;;; FIND SIZE OF REAL MEMORY
212 ADD #200,(R0) ;;; ADVANCE BY 4K WORDS
213 CMP #7601,(R0) ;;; ARE WE PAST 124K ?
214 BNE 10$ ;;; NO .. KEEP LOOKING
215 BR 30$ ;;; YES ..
216 20$: CMP (SP)+,(SP)+ ;;; DISCARD NXM DATA FROM STACK
217 30$: SUB #2,(R0) ;;; GIVING TOP-32
218 CALL COPY ;;; MAKE A LOCAL COPY
219 MOV (SP)+,@#6 ;;; RESTORE NXM VECTOR
220 MOV (SP)+,@#4 ;;;
221 CLRB @#SR0 ;;; DISABLE THE KT11
222 MTPS #0 ;;; RE-ENABLE THE DEVICES
223 RETURN
224 .ENDC
NTIDLI MACRO M1110 07-DEC-79 17:02 PAGE 7
NODE INFO INITIALIZATION
226 000001 .END
NTIDLI MACRO M1110 07-DEC-79 17:02 PAGE 7-1
SYMBOL TABLE
A$$CHK= 000000 G$$TPP= 000000 L$$P11= 000001 PR1 = 000040 S$$WRG= 000000
A$$CPS= 000000 G$$TSS= 000000 L$$11R= 000000 PR2 = 000100 S$$YSZ= 007600
A$$PRI= 000000 G$$TTK= 000000 MPAR = 172100 PR3 = 000140 TPS = 177564
A$$TRP= 000000 G$$WRD= 000000 MPCSR = 177746 PR4 = 000200 T$$KMG= 000000
BUFUMP= 172354 INFO 000000R M$$CRB= 000124 PR5 = 000240 T$$MIN= 000000
CMODE = 140000 I$$RAR= 000000 M$$CRX= 000000 PR6 = 000300 UBMPR = 170200
COPY 000144R I$$RDN= 000000 M$$FCS= 000000 PR7 = 000340 UISAR0= 177640
C$$CKP= 000000 KISAR0= 172340 M$$MGE= 000000 PS = 177776 UISAR1= 177642
C$$ORE= 000400 KISAR6= 172354 M$$OVR= 000000 P$$P45= 000000 V$$CTR= 001000
C$$RSH= 177564 K$$CNT= 177546 N$$LDV= 000001 P$$WRD= 000000 X$$DBT= 000000
D$$BUG= 177514 K$$CSR= 177546 N$$MOV= 000010 Q$$OPT= 000010 $HOST = ****** GX
D$$ISK= 000000 K$$LDC= 000000 N$$SYS= 000001 R$$DER= 000000 $NIDLI 000016RG
D$$L11= 000001 K$$TPS= 000074 N$$USR= 000001 R$$K11= 000001 $NSPNM= ****** GX
D$$YNC= 000000 LD$LP = 000000 PIRQ = 177772 R$$SND= 000000 $NTNAM= ****** GX
D$$YNM= 000000 L$$ASG= 000000 PMODE = 030000 R$$11M= 000000 $SYSIZ= ****** GX
E$$XPR= 000000 L$$DRV= 000000 PR0 = 000000 SWR = 177570 .BASEB= 140000
F$$LVL= 000001
. ABS. 000000 000
000164 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 3504 WORDS ( 14 PAGES)
DYNAMIC MEMORY: 4780 WORDS ( 18 PAGES)
ELAPSED TIME: 00:00:17
NTIDLI,[132,34]NTIDLI/CR/-SP=[130,10]NETLIB/ML,RSXMC4/PA:1,[132,10]NTIDLI
NTIDLI CREATED BY MACRO ON 7-DEC-79 AT 17:02 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
BUFUMP = 172354 #4-43 *5-150
CMODE = 140000 #4-43
COPY 000144 R 5-152 #5-182
INFO 000000 R #4-48 5-155 5-182
I$$AS = ****** 4-43
KISAR0 = 172340 #4-43
KISAR6 = 172354 #4-43
L$$SI1 = ****** 3-1 3-2
MPAR = 172100 #4-43
MPCSR = 177746 #4-43
M$$MGE = 000000 4-43 4-53 5-121
PIRQ = 177772 #4-43
PMODE = 030000 #4-43
PR0 = 000000 #4-43
PR1 = 000040 #4-43
PR2 = 000100 #4-43
PR3 = 000140 #4-43
PR4 = 000200 #4-43
PR5 = 000240 #4-43
PR6 = 000300 #4-43
PR7 = 000340 #4-43
PS = 177776 #4-43
R$$11D = ****** 4-43
SWR = 177570 #4-43
TPS = 177564 #4-43
UBMPR = 170200 #4-43
UISAR0 = 177640 #4-43
UISAR1 = 177642 #4-43
$HOST = ****** GX 5-170
$KT11$ = ****** 6-193
$NIDLI 000016 RG #5-114
$NSPNM = ****** GX *5-158
$NTNAM = ****** GX *5-162 *5-163 *5-164
$SYSIZ = ****** GX 5-114 5-148
.BASEB = 140000 #4-43 5-151
NTIDLI CREATED BY MACRO ON 7-DEC-79 AT 17:02 PAGE 2
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL 5-147
DIR$ #4-41
NHWDF$ #4-41 #4-43
PCBDF$ #4-41
RETURN 5-176 5-187
SVTK$ #4-41
SWSTK$ #5-147
TCBDF$ #4-41