Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/srinit.list
There are no other files named srinit.list in the archive.
SRINIT MACRO M1110 13-OCT-79 12:31
TABLE OF CONTENTS
9- 423 ASNLUN
SRINIT MACRO M1110 13-OCT-79 12:31 PAGE 3
1 .TITLE SRINIT
2 .NLIST CND
3 .IDENT /V01.05/
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 ; NCU TOP LEVEL SERVICE INITIALIZATION MODULE
27 ;
28 ;
29 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
30 ;
31 ; IDENT HISTORY:
32 ;
33 ; 1.00 10-FEB-78
34 ; VERSION 2.0 RELEASE
35 ;
36 ; 1.01 9-AUG-78 ALAN D. PECKHAM
37 ; CONDITIONALIZE "FINIT$" WHEN NO FILE ACCESS
38 ; 1.02 11-AUG-78 ALAN D. PECKHAM
39 ; REMOVE REFERENCES TO HOST DATA BASE
40 ; DLX IS NOW A REQUIRED DEVICE
41 ; 1.03 15-NOV-78 ALAN D. PECKHAM
42 ; RESTORE REFERENCES TO HOST DATA BASE, DUMMY !!!
43 ; 1.04 4-DEC-78 ALAN D. PECKHAM
44 ; SET DEFAULT HOST TO HOST RETURNED FROM DLX
45 ; 1.05 19-DEC-78 ALAN D. PECKHAM
46 ; REMOVE CODE FROM FIX 1.04 - THE HOST IN NICE.. WILL ONLY BE CHANGED
47 ; DURING THE "SET HOST" COMMAND PROCESSING.
48 ;
SRINIT MACRO M1110 13-OCT-79 12:31 PAGE 4
50 ;
51 ;======================================================================;
52 ;++
53 ; +-------------------------------------------------+
54 ; I I
55 ; I S R I N I T I
56 ; I - - - - - - I
57 ; I I
58 ; +-------------------------------------------------+
59 ;
60 ; FUNCTION:
61 ;
62 ; TOP LEVEL SERVICE INITIALIZATION MODULE
63 ;
64 ; CALLING SEQUENCE: CALL SRINIT
65 ;
66 ; INPUT: NONE
67 ;
68 ; OUTPUT:
69 ;
70 ; R5 - ADDRESS OF INITIAL CONTROL BLOCK
71 ;
72 ; REQUIREMENTS:
73 ;
74 ; TEMPORARY MEMORY:
75 ;
76 ; TEMBLK - FIRST TWO WORDS
77 ;
78 ; CONFIGURATION CONTROLS:
79 ;
80 ; F$INLU - NUMBER OF FILE BLOCK INPUT LOGICAL UNITS TO ASSIGN
81 ; F$IRLU - NUMBER OF FILE RECORD INPUT LOGICAL UNITS TO ASSIGN
82 ; F$LKLU - NUMBER OF LOGICAL LINK LOGICAL UNITS TO ASSIGN
83 ; F$EVNT - SERVICE FLAG FOR EVENT PROCESSOR
84 ; F$LNLU - NUMBER OF LINE LOGICAL UNITS TO ASSIGN
85 ; F$OPIN - SERVICE FLAG FOR OPEN BLOCK INPUT FILE
86 ; F$OPIR - SERVICE FLAG FOR OPEN RECORD INPUT FILE
87 ; F$OPLN - SERVICE FLAG FOR OPEN LINE
88 ; F$OPOR - SERVICE FLAG FOR OPEN RECORD OUTPUT FILE
89 ; F$OPOT - SERVICE FLAG FOR OPEN BLOCK OUTPUT FILE
90 ; F$ORLU - NUMBER OF FILE RECORD OUTPUT LOGICAL UNITS TO ASSIGN
91 ; F$OTLU - NUMBER OF FILE BLOCK OUTPUT LOGICAL UNITS TO ASSIGN
92 ; F$RCIN - SERVICE FLAG FOR RECEIVE INTERNAL DATA
93 ; F$RDCM - SERVICE FLAG FOR READ COMMAND MEDIUM
94 ; F$RECO - OPERATOR REASSIGNABLE COMMAND OUTPUT MEDIUM
95 ; FS$LOF - SERVICE FLAG FOR SET PARAMETER - LINE OFF
96 ; FS$LST - SERVICE FLAG FOR SET PARAMETER - LINE STATE
97 ; FS$PAS - SERVICE FLAG FOR SET PARAMETER - ACCESS PASSWORDS
98 ; F$WRCL - SERVICE FLAG FOR WRITE COMMAND MEDIUM FOR LOGGING
99 ; F$WRCM - SERVICE FLAG FOR WRITE COMMAND MEDIUM
100 ; FS$HOS - SERVICE FLAG FOR SET HOST OPTION
101 ; FS$INT - SERVICE FLAG FOR INTERACTIVE COMMANDS
102 ;
103 ; SERVICE SYMBOLS:
104 ;
105 ; CMILUN - COMMAND INPUT MEDIUM LOGICAL UNIT NUMBER
106 ; CMOLUN - COMMAND OUTPUT MEDIUM LOGICAL UNIT NUMBER
SRINIT MACRO M1110 13-OCT-79 12:31 PAGE 4-1
107 ; FILLUN - BEGINNING FILE LOGICAL UNIT NUMBER
108 ; LINLUN - BEGINNING LINE LOGICAL UNIT NUMBER
109 ; LNKLUN - BEGINNING LOGICAL LINK LOGICAL UNIT NUMBER
110 ; NCOLUN - NETWORK CONTROL LOGICAL UNIT NUMBER
111 ; NETLUN - NETWORK LOGICAL UNIT NUMBER
112 ; TEMFLG - TEMPORARY EVENT FLAG NUMBER
113 ; ;AP0004
114 ; DLX SERVICE SYMBOLS: ;AP0004
115 ; ;AP0004
116 ; NX.NIC - NICE SERVICE QIO FUNCTION ;AP0004
117 ; NX$RNS - READ NODE STATE SUB-FUNCTION ;AP0004
118 ; ;**-5
119 ; EFFECTS:
120 ;
121 ; OUTPUT VIA GNDDAT:
122 ;
123 ; GNDCNT - NUMBER OF GET NETWORK DATA EVENTS PENDING
124 ; GNDSTA - INITIALIZED TO ZERO (IDLE STATE) ;AP0002
125 ;
126 ; OUTPUT VIA GLOBAL SYMBOLS:
127 ;
128 ; HOSDB - NAME OF LOCAL NODE IF DEFAULT HOST DEFAULTED
129 ;
130 ; NOTES:
131 ;
132 ; IF A FAILURE IS ENCOUNTERED THIS ROUTINE DOES NOT RETURN. IT
133 ; EXECUTES A BPT INSTRUCTION WITH THE FOLLOWING INFORMATION IN
134 ; THE REGISTERS:
135 ;
136 ; R0 - LUN (IF APPLICABLE)
137 ; R1 - DSW$
138 ; R2 - OPERATION CODE (SEE BELOW)
139 ; R3 - 1ST WORD OF I/O STATUS BLOCK
140 ; R4 - 2ND WORD OF I/O STATUS BLOCK
141 ;
142 ; THE OPERATIONS ALWAYS PERFORMED ARE:
143 ;
144 ; CODE OPERATION
145 ;
146 ; 1 ASSIGN NETWORK LUN
147 ; 2 OPEN NETWORK
148 ; 4 ESTABLISH NETWORK DATA AST
149 ; 10 READ LOCAL NODE NAME
150 ; 20 ASSIGN LOGICAL LINK LUNS
151 ; 40 ALLOCATE A CONTROL BLOCK
152 ; 100 INITIALIZE SERVICE TIMER
153 ;
154 ; THE OPERATIONS PERFORMED ACCORDING TO CONFIGURATION FLAGS ARE:
155 ;
156 ; CODE OPERATION
157 ;
158 ; 200 ASSIGN FILE LUNS
159 ; 400 ASSIGN COMMAND INPUT LUN
160 ; 1000 ASSIGN COMMAND OUTPUT LUN
161 ; 2000 ASSIGN NETWORK CONTROL LUN
162 ; 4000 ASSIGN DIRECT LINE ACCESS LUNS
163 ; 10000 ESTABLISH INTERNAL RECEIVE DATA AST
SRINIT MACRO M1110 13-OCT-79 12:31 PAGE 4-2
164 ;
165 ;--
166 ;======================================================================;
167 ;
168 ;
169 ; EXTERNAL MACROS
170 ;
171 .MCALL PROC,SRDF,CONFIG,ALUN$S,TEMMDF,GNDMDF,LNDMDF
172 .MCALL OPNW$S,SPAW$S,GLNW$S,SRDA$S,FINIT$
173 .MCALL QIOW$S,DLXDF ;AP0004
177 ;
178 ; DEFINE EXTERNAL SYMBOLS
179 ;
180 000000 CONFIG ;CONFIGURATION CONTROLS
181 000000 SRDF ;SERVICE SYMBOLS
182 000000 DLXDF ;DLX SERVICE SYMBOLS ;AP0004
183 ;
184 ; DEFINE READ/WRITE STORAGE
185 ;
186 000000 TEMMDF ;TEMPORARY MEMORY BLOCK
187 000000 GNDMDF ;GET NETWORK DATA INTERFACE MEMORY
188 000000 LNDMDF ;LOCAL NODE NAME MEMORY
192 ;
193 ; DEFINE LOCAL SYMBOLS
194 ;
195 000000' TMIOSB = TEMBLK ;I/O STATUS BLOCK IN TEMPORARY MEMORY
196 000006 NODLEN = 6. ;MAXIMUM LENGTH OF A NODE NAME
197 000040 BLANK = <' > ;A BLANK
198 ; OPERATION CODES
199 000001 OP$AND = 1 ;ASSIGN NETWORK DATA LUN
200 000002 OP$ONT = 2 ;OPEN NETWORK
201 000004 OP$NAS = 4 ;ESTABLISH NETWORK DATA AST
202 000010 OP$RLD = 10 ;READ LOCAL NODE DATA
203 000020 OP$ALL = 20 ;ASSIGN LOGICAL LINK LUNS
204 000040 OP$ACB = 40 ;ALLOCATE A CONTROL BLOCK
205 000100 OP$IST = 100 ;INITIALIZE SERVICE TIMER
206 000200 OP$AFL = 200 ;ASSIGN FILE LUNS
207 000400 OP$ACI = 400 ;ASSIGN COMMAND INPUT LUN
208 001000 OP$ACO = 1000 ;ASSIGN COMMAND OUTPUT LUN
209 002000 OP$ANC = 2000 ;ASSIGN NETWORK CONTROL LUN
210 004000 OP$ADL = 4000 ;ASSIGN DIRECT LINE ACCESS LUNS
211 010000 OP$IAS = 10000 ;ESTABLISH INTERNAL RECEIVE DATA AST
SRINIT MACRO M1110 13-OCT-79 12:31 PAGE 5
213 ;
214 ; PROCEDURE BODY
215 ;
216 000000 PROC SRINIT
217 000000 000241 CLC ;INITIALIZE SUCCESS
219 ;
220 ; ASSIGN FILE LUNS
221 ;
225 000002 012702 000200 MOV #OP$AFL,R2 ;SET UP OPERATION CODE REGISTER ;**-1
226 000006 012700 000014 MOV #FILLUN,R0 ;BEGINNING FILE LOGICAL UNIT NUMBER
227 000012 012701 000002 MOV #<F$INLU+F$OTLU+F$IRLU+F$ORLU>,R1 ;NUMBER OF FILE LOGICAL UNITS
228 000016 012705 054523 MOV #"SY,R5 ;DEVICE
229 000022 CALL ASNLUN ;ASSIGN THE LUNS
273 ;
274 ; ASSIGN NETWORK CONTROL LUN
275 ;
276 000026 IF ; SUCCESS SO FAR
277 000026 FALSE CS
278 000030 THEN
279 000030 012702 002000 MOV #OP$ANC,R2 ;SET UP OPERATION CODE REGISTER
280 000034 012700 000016 MOV #NCOLUN,R0 ;NETWORK CONTROL LUN
281 000040 012701 000001 MOV #1,R1 ;ONLY ONE TO ASSIGN
282 000044 012705 054116 MOV #"NX,R5 ;DEVICE
283 000050 CALL ASNLUN ;ASSIGN IT
284 000054 ENDIF
287 ;
288 ; ASSIGN DIRECT LINE ACCESS LUNS
289 ;
290 000054 IF ; SUCCESS SO FAR
291 000054 FALSE CS
292 000056 THEN
293 000056 012702 004000 MOV #OP$ADL,R2 ;SET UP OPERATION CODE REGISTER
294 000062 012700 000017 MOV #LINLUN,R0 ;BEGINNING LINE LOGICAL UNIT
295 000066 012701 000002 MOV #F$LNLU,R1 ;LINE LOGICAL UNIT COUNT
296 000072 012705 054116 MOV #"NX,R5 ;DEVICE
297 000076 CALL ASNLUN ;ASSIGN THE LUNS
298 000102 ENDIF
300 ;
301 ; ASSIGN NETWORK LUN
302 ;
303 000102 IF ; SUCCESS SO FAR
304 000102 FALSE CS
305 000104 THEN
306 000104 012702 000001 MOV #OP$AND,R2 ;SET UP OPERATION CODE REGISTER
307 000110 012700 000003 MOV #NETLUN,R0 ;NETWORK LUN
308 000114 012701 000001 MOV #1,R1 ;ONLY ONE TO ASSIGN
309 000120 012705 051516 MOV #"NS,R5 ;DEVICE
310 000124 CALL ASNLUN ;ASSIGN IT
311 000130 ENDIF
312 ;
313 ; OPEN NETWORK
314 ;
315 000130 IF ; SUCCESS SO FAR
316 000130 FALSE CS
317 000132 THEN
318 000132 012702 000002 MOV #OP$ONT,R2 ;SET UP OPERATION CODE REGISTER
319 000136 OPNW$S #NETLUN,#TEMFLG,#TMIOSB,,#F$LKLU ;INITIALIZE WITH NETWORK
SRINIT MACRO M1110 13-OCT-79 12:31 PAGE 5-1
320 000206 IF ; DIRECTIVE SUCCESSFUL AND OPERATION FAILED
321 000206 FALSE CS
322 000210 FALSEB GT TMIOSB
323 000216 THEN
324 000216 000261 SEC ;SET FAILURE
325 000220 ENDIF
326 000220 ENDIF
327 ;
328 ; ESTABLISH NETWORK DATA AST
329 ;
330 000220 IF ; SUCCESS SO FAR
331 000220 FALSE CS
332 000222 THEN
333 000222 012702 000004 MOV #OP$NAS,R2 ;SET UP OPERATION CODE REGISTER
334 000226 SPAW$S #NETLUN,#TEMFLG,#TMIOSB,,#SRNAST ;DECLARE GND AST
335 000276 016767 000002' 000004' MOV TMIOSB+2,GNDCNT ;INITIALIZE GND EVENT COUNTER
336 000304 ENDIF
337 ;
338 ; READ LOCAL NODE NAME
339 ;
340 000304 IF ; SUCCESS SO FAR
341 000304 FALSE CS
342 000306 THEN
343 000306 012702 000010 MOV #OP$RLD,R2 ;SET UP OPERATION CODE REGISTER
344 000312 GLNW$S #NETLUN,,#TMIOSB,,<#NODNAM,#6> ;GET THE NAME
345 000360 IF ; SUCCESS
346 000360 FALSE CS
347 000362 FALSEB LT TMIOSB
348 000370 THEN
349 000370 012700 000006 MOV #NODLEN,R0 ;MAXIMUM LENGTH OF NAME
350 000374 WHILE ; LENGTH > 0 AND CHARACTER = BLANK
351 000374 FALSE LE R0
352 000400 FALSEB NE NODNAM-1(R0),#BLANK
353 000410 DO
354 000410 005300 DEC R0 ;DECREMENT LENGTH
355 000412 ENDWHILE
356 000414 010067 000002' MOV R0,NAMLEN ;SET LENGTH
357 000420 000241 CLC ;SET SUCCESS ;**-10
358 000422 ELSE
359 000424 000261 SEC ;SET FAILURE
360 000426 ENDIF
361 000426 ENDIF
362 ;
363 ; ASSIGN LOGICAL LINK LUNS
364 ;
365 000426 IF ; SUCCESS SO FAR
366 000426 FALSE CS
367 000430 THEN
368 000430 012702 000020 MOV #OP$ALL,R2 ;SET UP OPERATION CODE REGISTER
369 000434 012700 000004 MOV #LNKLUN,R0 ;BEGINNING LINK LOGICAL UNIT
370 000440 012701 000010 MOV #F$LKLU,R1 ;LINK LOGICAL UNIT COUNT
371 000444 012705 051516 MOV #"NS,R5 ;DEVICE
372 000450 CALL ASNLUN ;ASSIGN THE LUNS
373 000454 ENDIF
385 ;
386 ; ALLOCATE A CONTROL BLOCK
387 ;
SRINIT MACRO M1110 13-OCT-79 12:31 PAGE 5-2
388 000454 IF ; SUCCESS SO FAR
389 000454 FALSE CS
390 000456 THEN
391 000456 CALL SRALCI ;ALLOCATE A CONTROL BLOCK
392 000462 010005 MOV R0,R5 ;CHANGE REGISTER
393 000464 012702 000040 MOV #OP$ACB,R2 ;SET OPERATION CODE REGISTER
394 000470 ENDIF
395 ;
396 ; INITIALIZE SERVICE TIMER
397 ;
398 000470 IF ; SUCCESS SO FAR
399 000470 FALSE CS
400 000472 THEN
401 000472 CALL SRSTTM ;INITIALIZE TIMER
402 000476 012702 000100 MOV #OP$IST,R2 ;SET OPERATION CODE REGISTER
403 000502 ENDIF
404 ;
405 ; BLOW UP FOR FAILURES
406 ;
407 000502 IF ; FAILURE
408 000502 FALSE CC
409 000504 THEN
410 000504 016701 000000G MOV $DSW,R1 ;GET DIRECTIVE STATUS WORD
411 000510 016703 000000' MOV TMIOSB,R3 ;AND I/O STATUS BLOCK
412 000514 016704 000002' MOV TMIOSB+2,R4 ;HIGH ORDER WORD, TOO
413 000520 000003 BPT ;AND PULL DOWN THE ROOF...
414 000522 ENDIF
421 000522 ENDPROC
SRINIT MACRO M1110 13-OCT-79 12:31 PAGE 6
ASNLUN
423 .SBTTL ASNLUN
424 ;
425 ;======================================================================;
426 ;++
427 ; +-------------------------------------------------+
428 ; I I
429 ; I A S N L U N I
430 ; I - - - - - - I
431 ; I I
432 ; +-------------------------------------------------+
433 ;
434 ; FUNCTION:
435 ;
436 ; SRINIT LOCAL MODULE TO ASSIGN A LOGICAL UNIT NUMBER
437 ;
438 ; CALLING SEQUENCE: CALL ASNLUN
439 ;
440 ; INPUT:
441 ;
442 ; C-BIT - CLEAR
443 ; R0 - INITIAL LUN TO ASSIGN
444 ; R1 - NUMBER OF LUNS TO ASSIGN, STARTING WITH INITIAL
445 ; R5 - TWO CHARACTER DEVICE NAME
446 ;
447 ; OUTPUT:
448 ;
449 ; C-BIT - CLEAR IF SUCCESSFUL, SET IF NOT
450 ; $DSW - DIRECTIVE STATUS
451 ;
452 ;--
453 ;======================================================================;
454 ;
455 ;
456 ; LOCAL PROCEDURE BODY
457 ;
458 000524 PROCLC ASNLUN
459 000524 WHILE ; SUCCESS AND LOGICAL UNIT COUNT > 0
460 000524 FALSE CS
461 000526 FALSE LE R1
462 000532 DO
463 000532 ALUN$S R0,R5,#0 ;ASSIGN A LOGICAL UNIT NUMBER
464 000546 IF ; SUCCESS
465 000546 FALSE CS
466 000550 THEN
467 000550 005200 INC R0 ;MOVE TO NEXT LOGICAL UNIT NUMBER
468 000552 005301 DEC R1 ;DECREMENT COUNT
469 000554 ENDIF
470 000554 ENDWHILE
471 000556 ENDPROC
548 000001 .END
SRINIT MACRO M1110 13-OCT-79 12:31 PAGE 6-1
SYMBOL TABLE
ASNLUN 000524R F$INLU= 000001 G$$TSS= 000000 NO.FA1= 000001 N.DOT 000005
A$$CHK= 000000 F$IRLU= 000000 G$$TTK= 000000 NO.NCU= 000023 N.DUS 000010
A$$CPS= 000000 F$LKLU= 000010 IE.NDA= 177662 NO.RTL= 000022 N.RAC 000070
A$$TRP= 000000 F$LNLU= 000002 IE.NNT= 177660 NO.TAS= 000000 N.RACC 000066
BLANK = 000040 F$LNSR= 000001 IE.NRJ= 177666 NO.TCL= 000017 N.RDE 000012
BLKFLG= 000003 F$LOAD= 000000 IE.URJ= 177667 NO.TC1= 000005 N.RDEC 000010
CMILUN= 000002 F$LOGD= 000001 IOSB 000000R 003 NO.TLK= 000020 N.RFM 000006
CMOLUN= 000001 F$LOOP= 000001 IS.DAO= 000002 NR$IFC= 000030 N.RGP 000010
CONBLK 000006R 003 F$NTCM= 000000 I$$RAR= 000000 NT.ABO= 000005 N.RID 000034
C$$CKP= 000000 F$OPCL= 000001 I$$RDN= 000000 NT.ABT= 000004 N.RIDC 000032
C$$ORE= 000400 F$OPCO= 000000 K$$CNT= 177546 NT.CON= 000001 N.RND 000000
C$$RSH= 177564 F$OPIN= 000000 K$$CSR= 177546 NT.DSC= 000003 N.RNM 000016
D$$BUG= 177514 F$OPIR= 000000 K$$LDC= 000000 NT.INT= 000002 N.RNMC 000014
D$$ISK= 000000 F$OPLK= 000005 K$$TPS= 000074 NT.LOG= 000011 N.ROT 000007
D$$L11= 000001 F$OPLN= 000002 LD$LP = 000000 NT.MOP= 000010 N.RPS 000056
FILLUN= 000014 F$OPLO= 000000 LINLUN= 000017 NX$DEP= 000046 N.RPSC 000054
FLGGRP= 000000 F$OPOR= 000000 LNKLUN= 000004 NX$EXM= 000050 N.RQL = 000110
FLGMSK= 000003 F$OPOT= 000000 LUNSAV 000151R 003 NX$RCV= 000032 N.RUS 000012
FL$BOO= 000001 F$ORLU= 000000 L$$ASG= 000000 NX$RLC= 000016 N.SDE 000042
FL$DUM= 000001 F$OTLU= 000001 L$$DRV= 000000 NX$RLN= 000012 N.SDEC 000040
FL$LOA= 000001 F$RCBK= 000002 L$$P11= 000001 NX$RLS= 000014 N.SEGZ 000002
FL$LOO= 000001 F$RCEV= 000001 L$$11R= 000000 NX$RNC= 000004 N.SFM 000036
FR$LCC= 000001 F$RCIN= 000000 M$$CRB= 000124 NX$RNN= 000000 N.SGP 000040
FR$LCS= 000001 F$RCMA= 000000 M$$CRX= 000000 NX$RNS= 000002 N.SND 000030
FR$LNC= 000001 F$RCMS= 000002 M$$FCS= 000000 NX$SLH= 000026 N.SNM 000046
FR$LNL= 000001 F$RDBK= 000000 M$$OVR= 000000 NX$SLM= 000042 N.SNMC 000044
FR$LNS= 000001 F$RDCM= 000000 NAMLEN 000002R 004 NX$SLO= 000040 N.SOT 000037
FR$RMC= 000001 F$RDIN= 000001 NCOLUN= 000016 NX$SLS= 000022 N.SUS 000042
FR$RML= 000001 F$RDIS= 000012 NETLUN= 000003 NX$SNH= 000024 OP$ACB= 000040
FR$RMS= 000001 F$RDRC= 000000 NE$ABO= 000046 NX$SNM= 000036 OP$ACI= 000400
FS$HOS= 000001 F$RECO= 000001 NE$ABT= 000011 NX$SNO= 000034 OP$ACO= 001000
FS$INT= 000000 F$RLBF= 000001 NE$ACC= 000042 NX$SNS= 000010 OP$ADL= 004000
FS$LLP= 000001 F$RLCB= 000001 NE$ACT= 000044 NX$XMT= 000030 OP$AFL= 000200
FS$LOF= 000001 F$STBK= 000000 NE$CDI= 000052 NX$ZLC= 000020 OP$ALL= 000020
FS$LOG= 000001 F$STPR= 000001 NE$COM= 000047 NX$ZNC= 000006 OP$ANC= 002000
FS$LST= 000001 F$STPS= 000006 NE$FCF= 000050 NX.NIC= 017050 OP$AND= 000001
FS$NET= 000001 F$TEST= 000001 NE$FMT= 000005 N$XADJ= 000002 OP$IAS= 010000
FS$NST= 000000 F$TRAC= 000000 NE$GEN= 000007 N$XINT= 000003 OP$IST= 000100
FS$PAS= 000001 F$TRBK= 000001 NE$ILS= 000043 N$XLCL= 000001 OP$NAS= 000004
FT$CNS= 000000 F$TRIG= 000001 NE$IMG= 000053 N$XRMT= 000004 OP$ONT= 000002
FT$NOD= 000001 F$TRIN= 000000 NE$MLB= 000006 N$$USR= 000001 OP$RLD= 000010
FT$TSK= 000001 F$TRMA= 000000 NE$NOD= 000002 N.CAC 000120 P$$P45= 000000
F$ALBF= 000001 F$TRMS= 000002 NE$NSD= 000003 N.CACC 000116 R$$DER= 000000
F$ALCB= 000001 F$WRBK= 000000 NE$RES= 000001 N.CBL = 000142 R$$K11= 000001
F$CB = 000017 F$WRCL= 000001 NE$SSR= 000000 N.CDA 000142 R$$SND= 000000
F$CLCL= 000001 F$WRCM= 000000 NE$SSS= 000045 N.CDAC 000140 R$$11M= 000000
F$CLCO= 000000 F$WRRC= 000000 NE$STA= 000051 N.CID 000064 SERBIT= 000001
F$CLFL= 000000 F$ZERO= 000001 NE$TCN= 000040 N.CIDC 000062 SERFLG= 000001
F$CLLK= 000006 F$ZRCN= 000001 NE$TCO= 000041 N.CPS 000106 SRALCI= ****** GX
F$CLLN= 000002 F$$LVL= 000001 NE$TPA= 000010 N.CPSC 000104 SRINIT 000000RG
F$DPOS= 000001 F$150 = 000002 NE$UOB= 000004 N.CTL 000000 SRNAST= ****** GX
F$DUMP= 000000 F$300 = 000012 NO = 000000 N.DDE 000010 SRSTTM= ****** GX
F$EVNT= 000001 F$50 = 000002 NODLEN= 000006 N.DDEC 000006 S$$WRG= 000000
F$EXAM= 000001 F$550 = 000002 NODNAM 000004R 004 N.DFM 000004 S$$YSZ= 001600
F$EXHO= 000000 GNDCNT 000004R 003 NODNUM 000000R 004 N.DGP 000006 TEMBLK 000000R 002
F$GTCM= 000001 GNDSTA 000150R 003 NO.DTR= 000077 N.DNM 000014 TEMBLN= 000032
F$INCM= 000000 G$$TPP= 000000 NO.FAL= 000021 N.DNMC 000012 TEMFLG= 000030
SRINIT MACRO M1110 13-OCT-79 12:31 PAGE 6-2
SYMBOL TABLE
TEMWLN= 000015 T$$MIN= 000000 $$CSTA= 000000 $$S772= 000077 $$S776= 000000
TIMBIT= 000002 V$$CTR= 001000 $$PRST= 000011 $$S773= 000017 $$S777= 000000
TIMFLG= 000002 X$$DBT= 000000 $$STIX= 000777 $$S774= 000077 $$TRNM= 000000
TMIOSB= 000000R 002 YES = 000001 $$STNM= 000000 $$S775= 000010 $$$ARG= 000002
T$$KMG= 000000 $DSW = ****** GX
. ABS. 000142 000
000560 001
TEMDAT 000032 002
GNDDAT 000152 003
LNDDAT 000012 004
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 10564 WORDS ( 42 PAGES)
DYNAMIC MEMORY: 12172 WORDS ( 46 PAGES)
ELAPSED TIME: 00:01:59
SRINIT,[135,30]SRINIT/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,SRINIT
SRINIT CREATED BY MACRO ON 13-OCT-79 AT 12:32 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
ASNLUN 000524 R 5-229 5-283 5-297 5-310 5-372 #6-458
BLANK = 000040 #4-197 5-352
CONBLK 000006 R #4-187
FILLUN = 000014 5-226
FL$BOO = 000001 #4-180 4-180
FL$DUM = 000001 #4-180 4-180
FL$LOA = 000001 #4-180 4-180
FL$LOO = 000001 #4-180 4-180
FR$LCC = 000001 #4-180 4-180
FR$LCS = 000001 #4-180 4-180
FR$LNC = 000001 #4-180 4-180
FR$LNL = 000001 #4-180 4-180
FR$LNS = 000001 #4-180 4-180
FR$RMC = 000001 #4-180 4-180
FR$RML = 000001 #4-180 4-180
FR$RMS = 000001 #4-180 4-180
FS$HOS = 000001 #4-180 4-180
FS$INT = 000000 #4-180 4-180 4-180 4-180 5-374
FS$LLP = 000001 #4-180 4-180
FS$LOF = 000001 #4-180 4-180 5-272
FS$LOG = 000001 #4-180 4-180
FS$LST = 000001 #4-180 4-180 5-272
FS$NET = 000001 #4-180 4-180
FS$NST = 000000 #4-180 4-180
FS$PAS = 000001 #4-180 4-180 5-272
FT$CNS = 000000 #4-180 4-180
FT$NOD = 000001 #4-180 4-180
FT$TSK = 000001 #4-180 4-180
F$ALBF = 000001 #4-180
F$ALCB = 000001 #4-180
F$CB = 000017 #4-180
F$CLCL = 000001 #4-180 4-180 #4-180
F$CLCO = 000000 #4-180
F$CLFL = 000000 #4-180
F$CLLK = 000006 #4-180 4-180 #4-180 4-180 #4-180 4-180 #4-180 4-180 #4-180
4-180 #4-180 4-180 #4-180
F$CLLN = 000002 #4-180 4-180 #4-180 4-180 #4-180
F$DPOS = 000001 #4-180 4-180
F$DUMP = 000000 #4-180 4-180
F$EVNT = 000001 #4-180 4-180
F$EXAM = 000001 #4-180 4-180
F$EXHO = 000000 #4-180
F$GTCM = 000001 #4-180 4-180
F$INCM = 000000 #4-180 4-180
F$INLU = 000001 #4-180 5-227
F$IRLU = 000000 #4-180 5-227
F$LKLU = 000010 #4-180 5-319 5-370
F$LNLU = 000002 #4-180 5-295
F$LNSR = 000001 #4-180 4-180
F$LOAD = 000000 #4-180 4-180
F$LOGD = 000001 #4-180 4-180
F$LOOP = 000001 #4-180 4-180
SRINIT CREATED BY MACRO ON 13-OCT-79 AT 12:32 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
F$NTCM = 000000 #4-180 4-180
F$OPCL = 000001 #4-180 4-180 #4-180
F$OPCO = 000000 #4-180
F$OPIN = 000000 #4-180 5-218 5-222
F$OPIR = 000000 #4-180 5-218 5-222
F$OPLK = 000005 #4-180 4-180 #4-180 4-180 #4-180 4-180 #4-180 4-180 #4-180
4-180 #4-180
F$OPLN = 000002 #4-180 4-180 #4-180 4-180 #4-180 5-286
F$OPLO = 000000 #4-180
F$OPOR = 000000 #4-180 5-218 5-222
F$OPOT = 000000 #4-180 5-218 5-222
F$ORLU = 000000 #4-180 5-227
F$OTLU = 000001 #4-180 5-227
F$RCBK = 000002 #4-180 4-180 #4-180 4-180 #4-180
F$RCEV = 000001 #4-180 4-180 #4-180
F$RCIN = 000000 #4-180 5-261
F$RCMA = 000000 #4-180
F$RCMS = 000002 #4-180 4-180 #4-180
F$RDBK = 000000 #4-180
F$RDCM = 000000 #4-180 5-218 5-222 5-231
F$RDIN = 000001 #4-180 4-180
F$RDIS = 000012 #4-180 4-180 #4-180 4-180 #4-180 4-180 #4-180 4-180 #4-180
4-180 #4-180 4-180 #4-180 4-180 #4-180 4-180 #4-180 4-180
#4-180
F$RDRC = 000000 #4-180
F$RECO = 000001 #4-180 4-180 #4-180 5-245
F$RLBF = 000001 #4-180
F$RLCB = 000001 #4-180
F$STBK = 000000 #4-180
F$STPR = 000001 #4-180 4-180
F$STPS = 000006 #4-180 4-180 #4-180 4-180 #4-180 4-180 #4-180 4-180 #4-180
4-180 #4-180 4-180 #4-180
F$TEST = 000001 #4-180 4-180
F$TRAC = 000000 #4-180 5-216 5-216 5-421 5-421 6-458 6-458 6-471 6-471
F$TRBK = 000001 #4-180 4-180 #4-180
F$TRIG = 000001 #4-180 4-180
F$TRIN = 000000 #4-180
F$TRMA = 000000 #4-180
F$TRMS = 000002 #4-180 4-180 #4-180
F$WRBK = 000000 #4-180
F$WRCL = 000001 #4-180 4-180 #4-180 5-218
F$WRCM = 000000 #4-180 5-218
F$WRRC = 000000 #4-180
F$ZERO = 000001 #4-180 4-180
F$ZRCN = 000001 #4-180 4-180 #4-180
F$150 = 000002 #4-180
F$300 = 000012 #4-180
F$50 = 000002 #4-180
F$550 = 000002 #4-180
GNDCNT 000004 R #4-187 *5-335
GNDSTA 000150 R #4-187
IOSB 000000 R #4-187
SRINIT CREATED BY MACRO ON 13-OCT-79 AT 12:32 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
I$$AS = ****** 4-174 4-189 5-216 5-415 6-458 6-472
LINLUN = 000017 5-294
LNKLUN = 000004 5-369
LUNSAV 000151 R #4-187
NAMLEN 000002 R #4-188 *5-356
NCOLUN = 000016 5-280
NETLUN = 000003 5-307 5-319 5-334 5-344
NO = 000000 #4-180 4-180 4-180 4-180 4-180 4-180 4-180 4-180 4-180
4-180 4-180 4-180 4-180 4-180 4-180 4-180 4-180 4-180
4-180 4-180 4-180 4-180 4-180 4-180 4-180 4-180 4-180
4-180 4-180 4-180 4-180 4-180 4-180 4-180 4-180 4-180
4-180 4-180 4-180
NODLEN = 000006 #4-196 5-349
NODNAM 000004 R #4-188 5-344 5-352
NODNUM 000000 R #4-188
N.CBL = 000142 4-187
OP$ACB = 000040 #4-204 5-393
OP$ACI = 000400 #4-207
OP$ACO = 001000 #4-208
OP$ADL = 004000 #4-210 5-293
OP$AFL = 000200 #4-206 5-225
OP$ALL = 000020 #4-203 5-368
OP$ANC = 002000 #4-209 5-279
OP$AND = 000001 #4-199 5-306
OP$IAS = 010000 #4-211
OP$IST = 000100 #4-205 5-402
OP$NAS = 000004 #4-201 5-333
OP$ONT = 000002 #4-200 5-318
OP$RLD = 000010 #4-202 5-343
R$$11D = ****** 4-174 4-189 5-216 5-415 6-458 6-472
R$$11M = 000000 5-216 6-458
SRALCI = ****** GX 5-391
SRINIT 000000 RG #5-216
SRNAST = ****** GX 5-334
SRSTTM = ****** GX 5-401
TEMBLK 000000 R #4-186 4-195
TEMBLN = 000032 #4-186
TEMFLG = 000030 5-319 5-334
TEMWLN = 000015 #4-186 4-186 4-186
TMIOSB = 000000 R #4-195 5-319 5-322 5-334 5-335 5-344 5-347 5-411 5-412
YES = 000001 #4-180 4-180 4-180 4-180 4-180 4-180 4-180 4-180 4-180
4-180 4-180 4-180 4-180 4-180 4-180 4-180 4-180 4-180
4-180 4-180 4-180 4-180 4-180 4-180 4-180 4-180 4-180
4-180 4-180 4-180 4-180 4-180 4-180 4-180 4-180 4-180
4-180 4-180 4-180 4-180 4-180
$DSW = ****** GX 5-410
$$CSTA = 000000 #5-216 #6-458
$$PRST = 000011 #5-216 5-276 #5-276 5-290 #5-290 5-303 #5-303 5-315 #5-315
5-320 #5-320 5-330 #5-330 5-340 #5-340 5-345 #5-345 *5-350
#5-350 5-365 #5-365 5-388 #5-388 5-398 #5-398 5-407 #5-407
#6-458 6-459 #6-459 6-464 #6-464
$$SLST = ****** 5-216 5-277 5-278 5-284 5-291 5-292 5-298 5-304 5-305
SRINIT CREATED BY MACRO ON 13-OCT-79 AT 12:32 PAGE 4
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
5-311 5-316 5-317 5-321 5-322 5-322 5-323 5-325 5-326
5-331 5-332 5-336 5-341 5-342 5-346 5-347 5-347 5-348
5-350 5-351 5-351 5-352 5-352 5-353 5-355 5-355 5-358
5-358 5-360 5-361 5-366 5-367 5-373 5-389 5-390 5-394
5-399 5-400 5-403 5-408 5-409 5-414 5-421 6-458 6-459
6-460 6-461 6-461 6-462 6-465 6-466 6-469 6-470 6-470
6-471
$$STIX = 000777 #5-216 5-276 5-276 #5-276 5-276 5-276 #5-276 5-284 #5-284
5-284 5-284 #5-284 5-284 5-290 5-290 #5-290 5-290 5-290
#5-290 5-298 #5-298 5-298 5-298 #5-298 5-298 5-303 5-303
#5-303 5-303 5-303 #5-303 5-311 #5-311 5-311 5-311 #5-311
5-311 5-315 5-315 #5-315 5-315 5-315 #5-315 5-320 5-320
#5-320 5-320 5-320 #5-320 5-325 #5-325 5-325 5-325 #5-325
5-325 5-326 #5-326 5-326 5-326 #5-326 5-326 5-330 5-330
#5-330 5-330 5-330 #5-330 5-336 #5-336 5-336 5-336 #5-336
5-336 5-340 5-340 #5-340 5-340 5-340 #5-340 5-345 5-345
#5-345 5-345 5-345 #5-345 *5-350 *5-350 #5-350 *5-350 *5-350
#5-350 5-355 #5-355 5-355 5-355 #5-355 5-355 5-360 #5-360
5-360 5-360 #5-360 5-360 5-361 #5-361 5-361 5-361 #5-361
5-361 5-365 5-365 #5-365 5-365 5-365 #5-365 5-373 #5-373
5-373 5-373 #5-373 5-373 5-388 5-388 #5-388 5-388 5-388
#5-388 5-394 #5-394 5-394 5-394 #5-394 5-394 5-398 5-398
#5-398 5-398 5-398 #5-398 5-403 #5-403 5-403 5-403 #5-403
5-403 5-407 5-407 #5-407 5-407 5-407 #5-407 5-414 #5-414
5-414 5-414 #5-414 5-414 #6-458 6-459 6-459 #6-459 6-459
6-459 #6-459 6-464 6-464 #6-464 6-464 6-464 #6-464 6-469
#6-469 6-469 6-469 #6-469 6-469 6-470 #6-470 6-470 6-470
#6-470 6-470
$$STNM = 000000 #5-216 5-276 #5-276 5-276 5-277 5-278 5-284 #5-284 5-290
#5-290 5-290 5-291 5-292 5-298 #5-298 5-303 #5-303 5-303
5-304 5-305 5-311 #5-311 5-315 #5-315 5-315 5-316 5-317
5-320 #5-320 5-320 5-321 5-322 5-323 5-325 #5-325 5-326
#5-326 5-330 #5-330 5-330 5-331 5-332 *5-336 #5-336 5-340
#5-340 5-340 5-341 5-342 5-345 #5-345 5-345 5-346 5-347
5-348 *5-350 #5-350 *5-350 *5-350 5-351 5-352 5-353 5-355
5-355 #5-355 5-358 5-358 5-360 #5-360 5-361 #5-361 5-365
#5-365 5-365 5-366 5-367 5-373 #5-373 5-388 #5-388 5-388
5-389 5-390 *5-394 #5-394 5-398 #5-398 5-398 5-399 5-400
*5-403 #5-403 5-407 #5-407 5-407 5-408 5-409 5-414 #5-414
#6-458 6-459 #6-459 6-459 6-459 6-460 6-461 6-462 6-464
#6-464 6-464 6-465 6-466 6-469 #6-469 6-470 6-470 #6-470
$$S772 = 000077 #5-350 5-355
$$S773 = 000017 #5-350 5-355
$$S774 = 000077 #5-320 5-325 #5-345 5-360 #6-464 6-469
$$S775 = 000010 #5-320 5-325 #5-345 5-360 #6-464 6-469
$$S776 = 000000 #5-276 5-284 #5-290 5-298 #5-303 5-311 #5-315 5-326 #5-330
5-336 #5-340 5-361 #5-365 5-373 #5-388 5-394 #5-398 5-403
#5-407 5-414 #6-459 6-470
$$S777 = 000000 #5-276 5-284 #5-290 5-298 #5-303 5-311 #5-315 5-326 #5-330
5-336 #5-340 5-361 #5-365 5-373 #5-388 5-394 #5-398 5-403
#5-407 5-414 #6-459 6-470
$$TRNM = 000000 #5-216 5-276 #5-276 5-277 5-278 5-284 #5-284 5-290 #5-290
SRINIT CREATED BY MACRO ON 13-OCT-79 AT 12:32 PAGE 5
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
5-291 5-292 5-298 #5-298 5-303 #5-303 5-304 5-305 5-311
#5-311 5-315 #5-315 5-316 5-317 5-320 #5-320 5-321 5-322
5-323 5-325 #5-325 5-326 #5-326 5-330 #5-330 5-331 5-332
*5-336 #5-336 5-340 #5-340 5-341 5-342 5-345 #5-345 5-346
5-347 5-348 *5-350 #5-350 5-351 5-352 5-353 5-355 #5-355
5-358 #5-358 5-360 #5-360 5-361 #5-361 5-365 #5-365 5-366
5-367 5-373 #5-373 5-388 #5-388 5-389 5-390 *5-394 #5-394
5-398 #5-398 5-399 5-400 *5-403 #5-403 5-407 #5-407 5-408
5-409 5-414 #5-414 #6-458 6-459 #6-459 6-460 6-461 6-462
6-464 #6-464 6-465 6-466 6-469 #6-469 6-470 #6-470
$$$ARG = 000002 #5-319 5-319 #5-319 5-319 5-319 #5-319 5-319 5-319 5-319
5-319 5-319 5-319 5-319 5-319 5-319 5-319 #5-319 5-319
5-319 5-319 5-319 5-319 5-319 5-319 5-319 5-319 5-319
#5-319 5-319 5-319 5-319 5-319 5-319 5-319 5-319 5-319
5-319 5-319 #5-334 5-334 #5-334 5-334 5-334 #5-334 5-334
5-334 5-334 5-334 5-334 5-334 5-334 5-334 5-334 5-334
#5-334 5-334 5-334 5-334 5-334 5-334 5-334 5-334 5-334
5-334 5-334 #5-334 5-334 5-334 5-334 5-334 5-334 5-334
5-334 5-334 5-334 5-334 #5-344 5-344 #5-344 5-344 #5-344
5-344 5-344 #5-344 5-344 5-344 5-344 5-344 5-344 5-344
5-344 5-344 5-344 5-344 #5-344 5-344 5-344 5-344 5-344
5-344 5-344 5-344 5-344 5-344 5-344 #5-344 5-344 5-344
5-344 5-344 5-344 5-344 5-344 5-344 5-344 5-344
SRINIT CREATED BY MACRO ON 13-OCT-79 AT 12:32 PAGE 6
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
ALUN$S #4-171 #6-463
CALL #5-229 #5-283 #5-297 #5-310 #5-372 #5-391 #5-401
CASE #5-216 #6-458
CONFIG #4-171 #4-180
DIR$ #5-319 #5-319 #5-334 #5-334 #5-344 #5-344 #6-463 #6-463
DLXDF #4-173 #4-182
DO #5-216 #5-353 #6-458 #6-462
ELSE #5-216 #5-358 #6-458
ENDCAS #5-216 #6-458
ENDIF #5-216 5-284 5-298 5-311 5-325 5-326 5-336 5-355 5-360 5-361
5-373 5-394 5-403 5-414 #6-458 6-469 6-470
ENDPRO #5-216 5-421 #6-458 6-471
ENDWHI #5-216 5-355 #6-458 6-470
FALSE #5-216 #5-277 #5-291 #5-304 #5-316 #5-321 #5-331 #5-341 #5-346 #5-351
#5-366 #5-389 #5-399 #5-408 #6-458 #6-460 #6-461 #6-465
FALSEB #5-216 #5-322 #5-347 #5-352 #6-458
FINIT$ #4-172
GLNW$S #4-172 5-344
GNDMDF #4-171 4-187
IF #5-216 5-276 5-290 5-303 5-315 5-320 5-330 5-340 5-345 5-350
5-365 5-388 5-398 5-407 #6-458 6-459 6-464
JMPPRO #5-216 #6-458
LNDMDF #4-171 4-188
MOV$ #5-319 5-319 #5-319 5-319 5-319 #5-319 5-319 5-319 #5-334 5-334
#5-334 5-334 5-334 #5-334 5-334 5-334 #5-344 5-344 5-344 #5-344
5-344 5-344 #5-344 5-344 5-344 #6-463 6-463 6-463 6-463
MVB$ #5-319 #5-319 #5-334 #5-334 #5-344 #5-344
NETDF$ #4-187 4-187
ONCASE #5-216 #6-458
OPNW$S #4-172 #5-319
PROC #4-171 5-216
PROCLC #5-216 6-458 #6-458
PROFLG #4-180 4-180 4-180 4-180 4-180 4-180 4-180 4-180 4-180 4-180
4-180 4-180 4-180 4-180 4-180 4-180 4-180 4-180 4-180 4-180
4-180 4-180 4-180 4-180 4-180 4-180 4-180 4-180 4-180 4-180
4-180 4-180 4-180 4-180 4-180 4-180 4-180 4-180 4-180 4-180
4-180
QDPB$S #5-319 #5-319 #5-334 #5-334 #5-344 #5-344
QIOW$S #4-173
RVP$ #5-319 5-319 5-319 5-319 #5-334 5-334 5-334 5-334 #5-344 5-344
5-344 5-344
SPAW$S #4-172 #5-334
SRDA$S #4-172
SRDF #4-171 4-181
SWSTK$ #5-216 #6-458
TEMMDF #4-171 #4-186
THEN #5-216 #5-278 #5-292 #5-305 #5-317 #5-323 #5-332 #5-342 #5-348 #5-353
#5-367 #5-390 #5-400 #5-409 #6-458 #6-462 #6-466
TRUE #5-216 #6-458
TRUEB #5-216 #6-458
WHILE #5-216 #5-350 #6-458 #6-459
$$BGND #5-216 5-277 5-291 5-304 5-316 5-321 5-322 5-331 5-341 5-346
SRINIT CREATED BY MACRO ON 13-OCT-79 AT 12:32 PAGE 7
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
5-347 5-351 5-352 5-366 5-389 5-399 5-408 #6-458 6-460 6-461
6-465
$$BGNN #5-216 5-277 5-291 5-304 5-316 5-321 5-322 5-331 5-341 5-346
5-347 5-351 5-352 5-355 5-358 5-366 5-389 5-399 5-408 #6-458
6-460 6-461 6-465 6-470
$$ELSE #5-216 #5-358 #6-458
$$GEN1 #5-216 5-216 5-277 5-278 5-284 5-291 5-292 5-298 5-304 5-305
5-311 5-316 5-317 5-321 5-322 5-322 5-323 5-325 5-326 5-331
5-332 5-336 5-341 5-342 5-346 5-347 5-347 5-348 5-350 5-351
5-351 5-352 5-353 5-355 5-355 5-358 5-358 5-360 5-361 5-366
5-367 5-373 5-389 5-390 5-394 5-399 5-400 5-403 5-408 5-409
5-414 5-421 #6-458 6-458 6-459 6-460 6-461 6-461 6-462 6-465
6-466 6-469 6-470 6-470 6-471
$$GEN2 #5-216 5-352 #6-458
$$GNAB #5-216 5-277 5-291 5-304 5-316 5-321 5-322 5-331 5-341 5-346
5-347 5-351 5-352 5-366 5-389 5-399 5-408 #6-458 6-460 6-461
6-465
$$GNBT #5-216 #6-458
$$GNCM #5-216 #5-277 #5-291 #5-304 #5-316 #5-321 #5-322 #5-331 #5-341 #5-346
#5-347 #5-351 #5-352 #5-366 #5-389 #5-399 #5-408 #6-458 #6-460 #6-461
#6-465
$$INMC #5-216 5-216 #6-458 6-458
$$INSY #5-216 5-216 #6-458 6-458
$$LAB #5-216 #5-278 #5-284 #5-292 #5-298 #5-305 #5-311 #5-317 #5-323 #5-325
#5-326 #5-332 #5-336 #5-342 #5-348 #5-350 #5-353 #5-355 #5-358 #5-360
#5-361 #5-367 #5-373 #5-390 #5-394 #5-400 #5-403 #5-409 #5-414 #6-458
#6-459 #6-462 #6-466 #6-469 #6-470
$$POP #5-216 #5-284 #5-284 #5-298 #5-298 #5-311 #5-311 #5-325 #5-325 #5-326
#5-326 #5-336 #5-336 #5-355 #5-355 #5-360 #5-360 #5-361 #5-361 #5-373
#5-373 #5-394 #5-394 #5-403 #5-403 #5-414 #5-414 #6-458 #6-469 #6-469
#6-470 #6-470
$$POPI #5-216 #5-284 #5-284 #5-298 #5-298 #5-311 #5-311 #5-325 #5-325 #5-326
#5-326 #5-336 #5-336 #5-355 #5-355 #5-360 #5-360 #5-361 #5-361 #5-373
#5-373 #5-394 #5-394 #5-403 #5-403 #5-414 #5-414 #6-458 #6-469 #6-469
#6-470 #6-470
$$PUSH #5-216 5-276 5-276 5-290 5-290 5-303 5-303 5-315 5-315 5-320
5-320 5-330 5-330 5-340 5-340 5-345 5-345 5-350 5-350 5-365
5-365 5-388 5-388 5-398 5-398 5-407 5-407 #6-458 6-459 6-459
6-464 6-464
$$STSM #5-216 5-276 5-276 5-290 5-290 5-303 5-303 5-315 5-315 5-320
5-320 5-330 5-330 5-340 5-340 5-345 5-345 5-350 5-350 5-365
5-365 5-388 5-388 5-398 5-398 5-407 5-407 #6-458 6-459 6-459
6-464 6-464
$$SYS #5-216 #6-458
$$TRCE #5-216 5-216 5-421 #6-458 6-458 6-471