Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/sropln.list
There are no other files named sropln.list in the archive.
SROPLN MACRO M1110 13-OCT-79 12:37 PAGE 3
1 .TITLE SROPLN
2 .IDENT /V01.00/
3 ;
4 ; COPYRIGHT (C) 1978 BY
5 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
6 ;
7 ;
8 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
9 ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
10 ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
11 ; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
12 ; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
13 ; TRANSFERRED.
14 ;
15 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
16 ; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
17 ; CORPORATION.
18 ;
19 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
20 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
21 ;
22 ;
23 ; MODULE DESCRIPTION:
24 ;
25 ; NCU SERVICE MODULE TO OPEN A LINE
26 ;
27 ;
28 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
29 ;
30 ; IDENT HISTORY:
31 ;
32 ; 1.00 10-FEB-78
33 ; VERSION 2.0 RELEASE
34 ;
SROPLN MACRO M1110 13-OCT-79 12:37 PAGE 4
36 ;
37 ;======================================================================;
38 ;++
39 ; +-------------------------------------------------+
40 ; I I
41 ; I S R O P L N I
42 ; I - - - - - - I
43 ; I I
44 ; +-------------------------------------------------+
45 ;
46 ; FUNCTION:
47 ;
48 ; SERVICE MODULE TO OPEN A LINE
49 ;
50 ; INPUT:
51 ;
52 ; R5 - ADDRESS OF CONTROL BLOCK REQUESTING OPEN
53 ; C.LINE - FOUR BYTE BINARY LINE ID OF LINE TO OPEN
54 ; C.MODE - MODE TO OPEN LINE IN; CLEAR FOR NORMAL MODE, SET FOR
55 ; MAINTENANCE MODE
56 ; C.WAIT - MAXIMUM NUMBER OF SECONDS TO WAIT FOR A RECEIVE
57 ; C.SERV - ON INITIALIZATION ENTRY, ZERO; ON COMPLETION ENTRY,
58 ; ADDRESS OF LINE ID TEMPORARY MEMORY
59 ;
60 ; OUTPUT:
61 ;
62 ; C-BIT - CLEAR IF PROCESSED, SET IF NOT
63 ; C.LUN - ON FINAL RETURN, LOGICAL UNIT LINE OPENED ON
64 ; C.RET - RETURN CODE, LOW BYTE IS SERVICE RETURN CODE, ON ERROR
65 ; HIGH BYTE IS SYSTEM RETURN CODE
66 ; C.SERV - ON FINAL RETURN, ZERO; ON WAITING FOR COMPLETION, ADDRESS
67 ; OF LINE ID TEMPORARY MEMORY
68 ;
69 ; REQUIREMENTS:
70 ;
71 ; INPUT VIA LNUDAT:
72 ;
73 ; LNUTAB - LINE LOGICAL UNIT DATABASE
74 ; INUSE - IN USE FLAG, CLEAR IF LUN AVAILABLE, SET IF IN USE
75 ; LUN - LOGICAL UNIT NUMBER
76 ; LNUEND - END OF LINE LOGICAL UNIT DATABASE
77 ;
78 ; LINE ID TEMPORARY MEMORY SYMBOLS:
79 ;
80 ; LENGTH - OFFSET OF LENGTH OF LINE ID
81 ; LINEID - OFFSET OF LINE ID
82 ; LOCK - OFFSET OF LOCK
83 ; STATE - OFFSET OF STATE
84 ;
85 ; CONTROL BLOCK SYMBOLS:
86 ;
87 ; C.LINE - OFFSET OF LINE ID FIELD
88 ; C.LUN - OFFSET OF LOGICAL UNIT NUMBER FIELD
89 ; C.MODE - OFFSET OF LINE MODE FIELD
90 ; C.RET - OFFSET OF RETURN CODE FIELD
91 ; C.SERV - OFFSET OF SERVICE CONTEXT FIELD
92 ; C.WAIT - OFFSET OF WAIT FIELD
SROPLN MACRO M1110 13-OCT-79 12:37 PAGE 4-1
93 ; CE$FAI - FAILURE RETURN CODE
94 ; CE$LID - INVALID LINE ID RETURN CODE
95 ; CS$SUC - SUCCESS RETURN CODE
96 ;
97 ; LINE DATABASE SYMBOLS:
98 ;
99 ; ENTLEN - LENGTH OF AN ENTRY
100 ; INUSE - OFFSET OF IN USE FLAG IN ENTRY
101 ; LUN - OFFSET OF LOGICAL UNIT NUMBER IN ENTRY
102 ;
103 ; LINE FUNCTION CODE SYMBOLS:
104 ;
105 ; LF.OPN - OPEN LINE
106 ;
107 ; SYSTEM ERROR CODE SYMBOLS:
108 ;
109 ; IE.NSF - NO SUCH LINE (FLINE?)
110 ;
111 ; EFFECTS:
112 ;
113 ; OUTPUT VIA LNUDAT:
114 ;
115 ; LNUTAB - UPDATED LINE DATABASE ENTRY
116 ; INUSE - SET IF ENTRY USED, CLEAR IF NOT
117 ;
118 ;--
119 ;======================================================================;
120 ;
121 ;
122 ; EXTERNAL MACROS
123 ;
124 .MCALL PROC,CONDF,LNUDF,LNUMDF,SAVSTK,RESSTK,QIO$S,LFDF,LIMDF
125 ;
126 ; DEFINE EXTERNAL SYMBOLS
127 ;
128 000000 CONDF ;CONTROL BLOCK SYMBOLS
129 000000 LNUDF ;LINE SYMBOLS
130 000000 LFDF ;LINE QIO FUNCTON CODES
131 000000 LIMDF ;LINE ID TEMPORARY MEMORY SYMBOLS
132 ;
133 ; DEFINE READ/WRITE MEMORY
134 ;
135 000000 LNUMDF ;LINE LOGICAL UNIT MEMORY
SROPLN MACRO M1110 13-OCT-79 12:37 PAGE 5
137 ;
138 ; PROCEDURE BODY
139 ;
140 000000 PROC SROPLN
141 000000 SAVSTK <R3> ;SAVE REGISTER
142 000002 IF ; SERVICE CONTEXT = 0
143 000002 FALSE SET C.SERV(R5)
144 000010 THEN
145 000010 012703 000000' MOV #LNUTAB,R3 ;ADDRESS OF FIRST LINE LUN TABLE ENTRY
146 000014 WHILE ; CURRENT ADDRESS < END AND LUN IN USE
147 000014 FALSE HIS R3,#LNUEND
148 000022 FALSEB CLEAR INUSE(R3)
149 000030 DO
150 000030 062703 000002 ADD #ENTLEN,R3 ;MOVE TO NEXT ENTRY
151 000034 ENDWHILE
152 000036 IF ; ADDRESS OUT OF TABLE
153 000036 FALSE LO R3,#LNUEND
154 000044 THEN
155 000044 000261 SEC ;NO UNIT AVAILABLE RIGHT NOW
156 000046 ELSE
157 000050 012700 000014 MOV #C.LINE,R0 ;OFFSET OF LINE ID IN CONTROL BLOCK
158 000054 060500 ADD R5,R0 ;MAKE IT POINT TO LINE ID
159 000056 CALL SRFMLN ;FORMAT A LINE NAME
160 000062 IF ; NO RESOURCE ERROR
161 000062 FALSE CS
162 000064 THEN
163 000064 IF ; INVALID LINE ID
164 000064 FALSE CLEAR R1
165 000070 THEN
166 000070 110165 000010 MOVB R1,C.RET(R5) ;SET ERROR RETURN CODE
167 000074 000241 CLC ;PROCESSING COMPLETE
168 000076 ELSE
169 000100 SAVSTK <R0,R3,R4> ;SAVE REGISTERS
170 000106 116001 000003 MOVB LENGTH(R0),R1 ;GET LENGTH OF LINE ID
171 000112 062700 000004 ADD #LINEID,R0 ;POINT TO LINE ID
172 000116 012702 000010 MOV #C.RET,R2 ;OFFSET OF SPACE FOR I/O STATUS BLOCK
173 000122 060502 ADD R5,R2 ;MAKE IT A POINTER
174 000124 116304 000001 MOVB LUN(R3),R4 ;LOGICAL UNIT TO OPEN ON
175 000130 116503 000021 MOVB C.MODE(R5),R3 ;LINE MODE
176 000134 000303 SWAB R3 ;MODE IN HIGH BYTE
177 000136 105003 CLRB R3 ;CLEAN UP LOW BYTE
178 000140 156503 000020 BISB C.WAIT(R5),R3 ;NUMBER OF SECONDS TO WAIT FOR TIMEOUT
179 000144 QIO$S #LF.OPN,R4,,,R2,#SRAST,<R0,R1,R3>
180 000204 RESSTK <R4,R3,R0> ;RESTORE REGISTERS
181 000212 IF ; QUEUED SUCCESSFULLY
182 000212 FALSE CS
183 000214 THEN
184 000214 010360 000000 MOV R3,STATE(R0) ;SAVE ENTRY ADDRESS IN LINE ID MEMORY
185 000220 010065 000002 MOV R0,C.SERV(R5) ;REMEMBER WHERE LINE ID MEMORY IS
186 000224 105263 000000 INCB INUSE(R3) ;MARK LUN AS IN USE
187 000230 000241 CLC ;PROCESSING COMPLETE
188 000232 ELSE
189 000234 105060 000002 CLRB LOCK(R0) ;RELEASE LINE ID MEMORY
190 000240 CALL SRQDRF ;PROCESS QIO DIRECTIVE FAILURE
191 000244 ENDIF
192 000244 ENDIF
193 000244 ENDIF
SROPLN MACRO M1110 13-OCT-79 12:37 PAGE 5-1
194 000244 ENDIF
195 000244 ELSE
196 000246 016500 000002 MOV C.SERV(R5),R0 ;ADDRESS OF LINE ID MEMORY
197 000252 016003 000000 MOV STATE(R0),R3 ;ADDRESS OF LUN TABLE ENTRY
198 000256 105060 000002 CLRB LOCK(R0) ;RELEASE LINE ID MEMORY
199 000262 IF ; OPEN SUCCESSFUL
200 000262 FALSEB LT C.RET(R5)
201 000270 THEN
202 000270 112765 000001 000010 MOVB #CS$SUC,C.RET(R5) ;SET SUCCESS RETURN
203 000276 116365 000001 000020 MOVB LUN(R3),C.LUN(R5) ;PASS BACK THE LUN
204 000304 ELSE
205 000306 116565 000010 000011 MOVB C.RET(R5),C.RET+1(R5) ;KEEP THE REAL FAILURE REASON
206 000314 IF ; FAILURE = INVALID LINE ID
207 000314 FALSEB NE C.RET(R5),#IE.NSF
208 000324 THEN
209 000324 112765 177766 000010 MOVB #CE$LID,C.RET(R5) ;INVALID LINE ID
210 000332 ELSE
211 000334 112765 177774 000010 MOVB #CE$FAI,C.RET(R5) ;SET REGULAR FAIL RETURN
212 000342 ENDIF
213 000342 105063 000000 CLRB INUSE(R3) ;LUN ENTRY NO LONGER IN USE
214 000346 ENDIF
215 000346 005065 000002 CLR C.SERV(R5) ;CLEAR SERVICE CONTEXT AND C-BIT
216 000352 ENDIF
217 000352 RESSTK <R3> ;RESTORE REGISTER
218 000354 ENDPROC
219 000001 .END
SROPLN MACRO M1110 13-OCT-79 12:37 PAGE 5-2
SYMBOL TABLE
A$$CHK= 000000 C$RCBK= 000047 FL$LOO= 000001 F$RCEV= 000001 LNUTAB 000000R 002
A$$CPS= 000000 C$RCEV= 000050 FR$LCC= 000001 F$RCIN= 000000 LOCK 000002
A$$TRP= 000000 C$RCIN= 000062 FR$LCS= 000001 F$RCMA= 000000 LUN = 000001
BLKFLG= 000003 C$RCMA= 000146 FR$LNC= 000001 F$RCMS= 000002 L$$ASG= 000000
CE$ACP= 177753 C$RCMS= 000054 FR$LNL= 000001 F$RDBK= 000000 L$$DRV= 000000
CE$ADR= 177776 C$RDBK= 000043 FR$LNS= 000001 F$RDCM= 000000 L$$P11= 000001
CE$CON= 177770 C$RDCM= 000035 FR$RMC= 000001 F$RDIN= 000001 L$$11R= 000000
CE$DIS= 177771 C$RDIN= 000040 FR$RML= 000001 F$RDIS= 000012 M$$CRB= 000124
CE$EOF= 177767 C$RDIS= 000040 FR$RMS= 000001 F$RDRC= 000000 M$$CRX= 000000
CE$FAI= 177774 C$RDRC= 000060 FS$HOS= 000001 F$RECO= 000001 M$$FCS= 000000
CE$FIL= 177756 C$RLBF= 000001 FS$INT= 000000 F$RLBF= 000001 M$$OVR= 000000
CE$FUN= 177777 C$RLCB= 000002 FS$LLP= 000001 F$RLCB= 000001 NCOLUN= 000016
CE$GEN= 177774 C$RLCI= 000000 FS$LOF= 000001 F$STBK= 000000 NETLUN= 000003
CE$IND= 177757 C$STBK= 000055 FS$LOG= 000001 F$STPR= 000001 NO = 000000
CE$IO = 177760 C$STPR= 000037 FS$LST= 000001 F$STPS= 000006 N$$USR= 000001
CE$LEN= 177775 C$STPS= 000037 FS$NET= 000001 F$TEST= 000001 P$$P45= 000000
CE$LID= 177766 C$TRBK= 000046 FS$NST= 000000 F$TRAC= 000000 RI$LCC= 000001
CE$LST= 177752 C$TRIN= 000063 FS$PAS= 000001 F$TRBK= 000001 RI$LCS= 000002
CE$NOD= 177765 C$TRMA= 000145 FT$CNS= 000000 F$TRIG= 000001 RI$LNC= 000007
CE$NSD= 177755 C$TRMS= 000053 FT$NOD= 000001 F$TRIN= 000000 RI$LNL= 000006
CE$NST= 177754 C$WRBK= 000044 FT$TSK= 000001 F$TRMA= 000000 RI$LNS= 000010
CE$NWE= 177773 C$WRCL= 000065 F$ALBF= 000001 F$TRMS= 000002 RI$RMC= 000004
CE$OBJ= 177750 C$WRCM= 000036 F$ALCB= 000001 F$WRBK= 000000 RI$RML= 000003
CE$OPN= 177761 C$WRRC= 000061 F$CB = 000017 F$WRCL= 000001 RI$RMS= 000005
CE$OVR= 177764 C$ZRCN= 000064 F$CLCL= 000001 F$WRCM= 000000 RI$ZLC= 000011
CE$PAR= 177763 C$$CKP= 000000 F$CLCO= 000000 F$WRRC= 000000 RI$ZLN= 000013
CE$PRO= 177751 C$$ORE= 000400 F$CLFL= 000000 F$ZERO= 000001 RI$ZRM= 000012
CE$REJ= 177772 C$$RSH= 177564 F$CLLK= 000006 F$ZRCN= 000001 R$$DER= 000000
CE$TMO= 177762 C.ADDR= 000014 F$CLLN= 000002 F$$LVL= 000001 R$$K11= 000001
CMILUN= 000002 C.BKNM= 000014 F$DPOS= 000001 F$150 = 000002 R$$SND= 000000
CMOLUN= 000001 C.CTXT= 000004 F$DUMP= 000000 F$300 = 000012 R$$11M= 000000
CS$ACK= 000002 C.FUNC= 000006 F$EVNT= 000001 F$50 = 000002 SERBIT= 000001
CS$LKE= 000001 C.LEN = 000012 F$EXAM= 000001 F$550 = 000002 SERFLG= 000001
CS$LNA= 000002 C.LINE= 000014 F$EXHO= 000000 G$$TPP= 000000 SP$DHO= 000003
CS$LOG= 000003 C.LKNM= 000020 F$GTCM= 000001 G$$TSS= 000000 SP$DRP= 000007
CS$NCH= 000003 C.LUN = 000020 F$INCM= 000000 G$$TTK= 000000 SP$DTP= 000010
CS$SUC= 000001 C.MODE= 000021 F$INLU= 000001 IE.NSF= ****** GX SP$LHO= 000002
C$ALBF= 000032 C.PRID= 000017 F$IRLU= 000000 INUSE = 000000 SP$LLP= 000011
C$ALCB= 000033 C.PROC= 000007 F$LKLU= 000010 I$$RAR= 000000 SP$LNM= 000016
C$CLCL= 000067 C.PROM= 000016 F$LNLU= 000002 I$$RDN= 000000 SP$LNO= 000015
C$CLCO= 000003 C.PTR = 000000 F$LNSR= 000001 K$$CNT= 177546 SP$LOF= 000012
C$CLFL= 000004 C.RET = 000010 F$LOAD= 000000 K$$CSR= 177546 SP$LST= 000001
C$CLLK= 000052 C.SAVE= 000022 F$LOGD= 000001 K$$LDC= 000000 SP$NDM= 000014
C$CLLN= 000005 C.SERV= 000002 F$LOOP= 000001 K$$TPS= 000074 SP$NDO= 000013
C$LEN = 000026 C.TASK= 000016 F$NTCM= 000000 LD$LP = 000000 SP$NST= 000006
C$NOPN= 000031 C.TYPE= 000016 F$OPCL= 000001 LENGTH 000003 SP$RRP= 000004
C$NORD= 000032 C.WAIT= 000020 F$OPCO= 000000 LF.CLS= 016210 SP$RTP= 000005
C$OPCL= 000066 D$$BUG= 177514 F$OPIN= 000000 LF.OFF= 017010 SRAST = ****** GX
C$OPCO= 000034 D$$ISK= 000000 F$OPIR= 000000 LF.ON = 017000 SRFMLN= ****** GX
C$OPIN= 000041 D$$L11= 000001 F$OPLK= 000005 LF.OPN= 015400 SROPLN 000000RG
C$OPIR= 000056 ENTLEN= 000002 F$OPLN= 000002 LF.RAS= 017020 SRQDRF= ****** GX
C$OPLK= 000051 FILLUN= 000014 F$OPLO= 000000 LF.RD = 015000 STATE 000000
C$OPLN= 000045 FLGGRP= 000000 F$OPOR= 000000 LF.WRT= 014400 S$$WRG= 000000
C$OPOR= 000057 FLGMSK= 000003 F$OPOT= 000000 LINEID 000004 S$$YSZ= 001600
C$OPOT= 000042 FL$BOO= 000001 F$ORLU= 000000 LINLUN= 000017 TEMFLG= 000030
C$ORD = 000145 FL$DUM= 000001 F$OTLU= 000001 LNKLUN= 000004 TIMBIT= 000002
C$PROC= 000200 FL$LOA= 000001 F$RCBK= 000002 LNUEND 000004R 002 TIMFLG= 000002
SROPLN MACRO M1110 13-OCT-79 12:37 PAGE 5-3
SYMBOL TABLE
T$$KMG= 000000 $$CSTA= 000000 $$S766= 000011 $$S772= 000011 $$S776= 000000
T$$MIN= 000000 $$LUN = 000021 $$S767= 000014 $$S773= 000016 $$S777= 000000
V$$CTR= 001000 $$PRST= 000017 $$S770= 000077 $$S774= 000011 $$TRNM= 000000
X$$DBT= 000000 $$STIX= 000777 $$S771= 000013 $$S775= 000010 $$$ARG= 000002
YES = 000001 $$STNM= 000000
. ABS. 000024 000
000356 001
LNUDAT 000004 002
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 10051 WORDS ( 40 PAGES)
DYNAMIC MEMORY: 11116 WORDS ( 42 PAGES)
ELAPSED TIME: 00:01:11
SROPLN,[135,30]SROPLN/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,SROPLN
SROPLN CREATED BY MACRO ON 13-OCT-79 AT 12:38 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
CE$FAI = 177774 5-211
CE$LID = 177766 5-209
CS$SUC = 000001 5-202
C.LINE = 000014 5-157
C.LUN = 000020 *5-203
C.MODE = 000021 5-175
C.RET = 000010 *5-166 5-172 5-200 *5-202 5-205 *5-205 5-207 *5-209 *5-211
C.SERV = 000002 5-143 *5-185 5-196 *5-215
C.WAIT = 000020 5-178
ENTLEN = 000002 #4-129 5-150
FL$BOO = 000001 #4-135 4-135
FL$DUM = 000001 #4-135 4-135
FL$LOA = 000001 #4-135 4-135
FL$LOO = 000001 #4-135 4-135
FR$LCC = 000001 #4-135 4-135
FR$LCS = 000001 #4-135 4-135
FR$LNC = 000001 #4-135 4-135
FR$LNL = 000001 #4-135 4-135
FR$LNS = 000001 #4-135 4-135
FR$RMC = 000001 #4-135 4-135
FR$RML = 000001 #4-135 4-135
FR$RMS = 000001 #4-135 4-135
FS$HOS = 000001 #4-135 4-135
FS$INT = 000000 #4-135 4-135 4-135 4-135
FS$LLP = 000001 #4-135 4-135
FS$LOF = 000001 #4-135 4-135
FS$LOG = 000001 #4-135 4-135
FS$LST = 000001 #4-135 4-135
FS$NET = 000001 #4-135 4-135
FS$NST = 000000 #4-135 4-135
FS$PAS = 000001 #4-135 4-135
FT$CNS = 000000 #4-135 4-135
FT$NOD = 000001 #4-135 4-135
FT$TSK = 000001 #4-135 4-135
F$ALBF = 000001 #4-135
F$ALCB = 000001 #4-135
F$CB = 000017 #4-135
F$CLCL = 000001 #4-135 4-135 #4-135
F$CLCO = 000000 #4-135
F$CLFL = 000000 #4-135
F$CLLK = 000006 #4-135 4-135 #4-135 4-135 #4-135 4-135 #4-135 4-135 #4-135
4-135 #4-135 4-135 #4-135
F$CLLN = 000002 #4-135 4-135 #4-135 4-135 #4-135
F$DPOS = 000001 #4-135 4-135
F$DUMP = 000000 #4-135 4-135
F$EVNT = 000001 #4-135 4-135
F$EXAM = 000001 #4-135 4-135
F$EXHO = 000000 #4-135
F$GTCM = 000001 #4-135 4-135
F$INCM = 000000 #4-135 4-135
F$INLU = 000001 #4-135
F$IRLU = 000000 #4-135
SROPLN CREATED BY MACRO ON 13-OCT-79 AT 12:38 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
F$LKLU = 000010 #4-135
F$LNLU = 000002 #4-135 4-135
F$LNSR = 000001 #4-135 4-135
F$LOAD = 000000 #4-135 4-135
F$LOGD = 000001 #4-135 4-135
F$LOOP = 000001 #4-135 4-135
F$NTCM = 000000 #4-135 4-135
F$OPCL = 000001 #4-135 4-135 #4-135
F$OPCO = 000000 #4-135
F$OPIN = 000000 #4-135
F$OPIR = 000000 #4-135
F$OPLK = 000005 #4-135 4-135 #4-135 4-135 #4-135 4-135 #4-135 4-135 #4-135
4-135 #4-135
F$OPLN = 000002 #4-135 4-135 #4-135 4-135 #4-135
F$OPLO = 000000 #4-135
F$OPOR = 000000 #4-135
F$OPOT = 000000 #4-135
F$ORLU = 000000 #4-135
F$OTLU = 000001 #4-135
F$RCBK = 000002 #4-135 4-135 #4-135 4-135 #4-135
F$RCEV = 000001 #4-135 4-135 #4-135
F$RCIN = 000000 #4-135
F$RCMA = 000000 #4-135
F$RCMS = 000002 #4-135 4-135 #4-135
F$RDBK = 000000 #4-135
F$RDCM = 000000 #4-135
F$RDIN = 000001 #4-135 4-135
F$RDIS = 000012 #4-135 4-135 #4-135 4-135 #4-135 4-135 #4-135 4-135 #4-135
4-135 #4-135 4-135 #4-135 4-135 #4-135 4-135 #4-135 4-135
#4-135
F$RDRC = 000000 #4-135
F$RECO = 000001 #4-135 4-135 #4-135
F$RLBF = 000001 #4-135
F$RLCB = 000001 #4-135
F$STBK = 000000 #4-135
F$STPR = 000001 #4-135 4-135
F$STPS = 000006 #4-135 4-135 #4-135 4-135 #4-135 4-135 #4-135 4-135 #4-135
4-135 #4-135 4-135 #4-135
F$TEST = 000001 #4-135 4-135
F$TRAC = 000000 #4-135 5-140 5-140 5-218 5-218
F$TRBK = 000001 #4-135 4-135 #4-135
F$TRIG = 000001 #4-135 4-135
F$TRIN = 000000 #4-135
F$TRMA = 000000 #4-135
F$TRMS = 000002 #4-135 4-135 #4-135
F$WRBK = 000000 #4-135
F$WRCL = 000001 #4-135 4-135 #4-135
F$WRCM = 000000 #4-135
F$WRRC = 000000 #4-135
F$ZERO = 000001 #4-135 4-135
F$ZRCN = 000001 #4-135 4-135 #4-135
F$150 = 000002 #4-135
SROPLN CREATED BY MACRO ON 13-OCT-79 AT 12:38 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
F$300 = 000012 #4-135
F$50 = 000002 #4-135
F$550 = 000002 #4-135
IE.NSF = ****** GX 5-207
INUSE = 000000 #4-129 5-148 *5-186 *5-213
I$$AS = ****** 5-140
LENGTH 000003 #4-131 5-170
LF.OPN = 015400 5-179
LINEID 000004 #4-131 5-171
LINLUN = 000017 4-135
LNUEND 000004 R #4-135 5-147 5-153
LNUTAB 000000 R #4-135 5-145
LOCK 000002 #4-131 *5-189 *5-198
LUN = 000001 #4-129 5-174 5-203
NO = 000000 #4-135 4-135 4-135 4-135 4-135 4-135 4-135 4-135 4-135
4-135 4-135 4-135 4-135 4-135 4-135 4-135 4-135 4-135
4-135 4-135 4-135 4-135 4-135 4-135 4-135 4-135 4-135
4-135 4-135 4-135 4-135 4-135 4-135 4-135 4-135 4-135
4-135 4-135 4-135
R$$11D = ****** 5-140
R$$11M = 000000 5-140
SRAST = ****** GX 5-179
SRFMLN = ****** GX 5-159
SROPLN 000000 RG #5-140
SRQDRF = ****** GX 5-190
STATE 000000 #4-131 *5-184 5-197
YES = 000001 #4-135 4-135 4-135 4-135 4-135 4-135 4-135 4-135 4-135
4-135 4-135 4-135 4-135 4-135 4-135 4-135 4-135 4-135
4-135 4-135 4-135 4-135 4-135 4-135 4-135 4-135 4-135
4-135 4-135 4-135 4-135 4-135 4-135 4-135 4-135 4-135
4-135 4-135 4-135 4-135 4-135
$$CSTA = 000000 #5-140
$$LUN = 000021 #4-135 4-135 4-135 #4-135 4-135 4-135 #4-135
$$PRST = 000017 #5-140 *5-142 #5-142 *5-146 #5-146 5-152 #5-152 5-160 #5-160
5-163 #5-163 *5-181 #5-181 5-199 #5-199 *5-206 #5-206
$$SLST = ****** 5-140 5-143 5-143 5-144 5-146 5-147 5-147 5-148 5-148
5-149 5-151 5-151 5-153 5-153 5-154 5-156 5-156 5-161
5-162 5-164 5-164 5-165 5-168 5-168 5-182 5-183 5-188
5-188 5-191 5-192 5-193 5-194 5-195 5-195 5-200 5-200
5-201 5-204 5-204 5-207 5-207 5-208 5-210 5-210 5-212
5-214 5-216 5-218
$$STIX = 000777 #5-140 *5-142 *5-142 #5-142 *5-142 *5-142 #5-142 *5-146 *5-146
#5-146 *5-146 *5-146 #5-146 5-151 #5-151 5-151 5-151 #5-151
5-151 5-152 5-152 #5-152 5-152 5-152 #5-152 5-160 5-160
#5-160 5-160 5-160 #5-160 5-163 5-163 #5-163 5-163 5-163
#5-163 *5-181 *5-181 #5-181 *5-181 *5-181 #5-181 5-191 #5-191
5-191 5-191 #5-191 5-191 5-192 #5-192 5-192 5-192 #5-192
5-192 5-193 #5-193 5-193 5-193 #5-193 5-193 5-194 #5-194
5-194 5-194 #5-194 5-194 5-199 5-199 #5-199 5-199 5-199
#5-199 *5-206 *5-206 #5-206 *5-206 *5-206 #5-206 5-212 #5-212
5-212 5-212 #5-212 5-212 5-214 #5-214 5-214 5-214 #5-214
5-214 5-216 #5-216 5-216 5-216 #5-216 5-216
SROPLN CREATED BY MACRO ON 13-OCT-79 AT 12:38 PAGE 4
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
$$STNM = 000000 #5-140 *5-142 #5-142 *5-142 5-143 5-144 *5-146 #5-146 *5-146
*5-146 5-147 5-148 5-149 5-151 5-151 #5-151 5-152 #5-152
5-152 5-153 5-154 5-156 5-156 5-160 #5-160 5-160 5-161
5-162 5-163 #5-163 5-163 5-164 5-165 5-168 5-168 *5-181
#5-181 *5-181 5-182 5-183 5-188 5-188 5-191 #5-191 5-192
#5-192 5-193 #5-193 5-194 #5-194 5-195 5-195 5-199 #5-199
5-199 5-200 5-201 *5-204 5-204 *5-206 #5-206 *5-206 5-207
5-208 *5-210 5-210 *5-212 #5-212 5-214 #5-214 5-216 #5-216
$$S766 = 000011 #5-181 5-191
$$S767 = 000014 #5-181 5-191
$$S770 = 000077 #5-163 5-192
$$S771 = 000013 #5-163 5-192
$$S772 = 000011 #5-160 5-193 #5-206 5-212
$$S773 = 000016 #5-160 5-193 #5-206 5-212
$$S774 = 000011 #5-146 5-151 #5-152 5-194 #5-199 5-214
$$S775 = 000010 #5-146 5-151 #5-152 5-194 #5-199 5-214
$$S776 = 000000 #5-142 5-216
$$S777 = 000000 #5-142 5-216
$$TRNM = 000000 #5-140 *5-142 #5-142 5-143 5-144 *5-146 #5-146 5-147 5-148
5-149 5-151 #5-151 5-152 #5-152 5-153 5-154 5-156 #5-156
5-160 #5-160 5-161 5-162 5-163 #5-163 5-164 5-165 5-168
#5-168 *5-181 #5-181 5-182 5-183 5-188 #5-188 5-191 #5-191
5-192 #5-192 5-193 #5-193 5-194 #5-194 5-195 #5-195 5-199
#5-199 5-200 5-201 5-204 #5-204 *5-206 #5-206 5-207 5-208
5-210 #5-210 *5-212 #5-212 5-214 #5-214 5-216 #5-216
$$$ARG = 000002 #5-179 5-179 #5-179 5-179 #5-179 5-179 #5-179 5-179 5-179
#5-179 5-179 5-179 5-179 5-179 5-179 5-179 5-179 5-179
5-179 5-179 #5-179 5-179 5-179 5-179 5-179 5-179 5-179
5-179 5-179 5-179 5-179 #5-179 5-179 5-179 5-179 5-179
5-179 5-179 5-179 5-179 5-179 5-179
SROPLN CREATED BY MACRO ON 13-OCT-79 AT 12:38 PAGE 5
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL #5-159 #5-190
CASE #5-140
CONDF #4-124 #4-128
CONFIG #4-135 #4-135
DIR$ #5-179 #5-179
DO #5-140 5-149
ELSE #5-140 5-156 5-168 5-188 5-195 5-204 5-210
ENDCAS #5-140
ENDIF #5-140 #5-151 #5-191 #5-192 #5-193 #5-194 #5-212 #5-214 #5-216
ENDPRO #5-140 5-218
ENDWHI #5-140 #5-151
FALSE #5-140 5-143 5-147 5-153 5-161 5-164 5-182
FALSEB #5-140 #5-148 #5-200 #5-207
IF #5-140 #5-142 #5-146 #5-152 #5-160 #5-163 #5-181 #5-199 #5-206
JMPPRO #5-140
LFDF #4-124 4-130
LIMDF #4-124 4-131
LNUDF #4-124 4-129
LNUMDF #4-124 4-135
MOV$ #5-179 5-179 5-179 5-179 #5-179 5-179 5-179 #5-179 5-179 5-179
MVB$ #5-179 5-179
ONCASE #5-140
PROC #4-124 5-140
PROCLC #5-140
PROFLG #4-135 #4-135 #4-135 #4-135 #4-135 #4-135 #4-135 #4-135 #4-135 #4-135
#4-135 #4-135 #4-135 #4-135 #4-135 #4-135 #4-135 #4-135 #4-135 #4-135
#4-135 #4-135 #4-135 #4-135 #4-135 #4-135 #4-135 #4-135 #4-135 #4-135
#4-135 #4-135 #4-135 #4-135 #4-135 #4-135 #4-135 #4-135 #4-135 #4-135
#4-135
QDPB$S #5-179 #5-179
QIO$S #4-124 5-179
RESSTK #4-124 #5-180 #5-217
RVP$ #5-179 5-179 5-179 5-179
SAVSTK #4-124 #5-141 #5-169
SRDF #4-135 4-135
SWSTK$ #5-140
THEN #5-140 #5-144 #5-149 #5-154 #5-162 #5-165 #5-183 #5-201 #5-208
TRUE #5-140
TRUEB #5-140
WHILE #5-140 5-146
$$BGND #5-140 5-143 5-147 5-148 5-153 5-161 5-164 5-182 5-200 5-207
$$BGNN #5-140 5-143 5-147 5-148 5-151 5-153 5-156 5-161 5-164 5-168
5-182 5-188 5-195 5-200 5-204 5-207 5-210
$$ELSE #5-140 5-156 5-168 5-188 5-195 5-204 5-210
$$GEN1 #5-140 5-140 5-143 5-143 5-144 5-146 5-147 5-148 5-148 5-149
5-151 5-151 5-153 5-154 5-156 5-156 5-161 5-162 5-164 5-164
5-165 5-168 5-168 5-182 5-183 5-188 5-188 5-191 5-192 5-193
5-194 5-195 5-195 5-200 5-200 5-201 5-204 5-204 5-207 5-208
5-210 5-210 5-212 5-214 5-216 5-218
$$GEN2 #5-140 5-147 5-153 5-207
$$GNAB #5-140 5-147 5-153 5-161 5-182 5-200 5-207
$$GNBT #5-140 #5-143 #5-148 #5-164
SROPLN CREATED BY MACRO ON 13-OCT-79 AT 12:38 PAGE 6
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
$$GNCM #5-140 #5-143 #5-147 #5-148 #5-153 #5-161 #5-164 #5-182 #5-200 #5-207
$$INMC #5-140 #5-140
$$INSY #5-140 #5-140
$$LAB #5-140 5-144 5-146 5-149 5-151 5-154 5-156 5-162 5-165 5-168
5-183 5-188 5-191 5-192 5-193 5-194 5-195 5-201 5-204 5-208
5-210 5-212 5-214 5-216
$$POP #5-140 5-151 5-151 5-191 5-191 5-192 5-192 5-193 5-193 5-194
5-194 5-212 5-212 5-214 5-214 5-216 5-216
$$POPI #5-140 #5-151 #5-151 #5-191 #5-191 #5-192 #5-192 #5-193 #5-193 #5-194
#5-194 #5-212 #5-212 #5-214 #5-214 #5-216 #5-216
$$PUSH #5-140 #5-142 #5-142 #5-146 #5-146 #5-152 #5-152 #5-160 #5-160 #5-163
#5-163 #5-181 #5-181 #5-199 #5-199 #5-206 #5-206
$$STSM #5-140 #5-142 #5-142 #5-146 #5-146 #5-152 #5-152 #5-160 #5-160 #5-163
#5-163 #5-181 #5-181 #5-199 #5-199 #5-206 #5-206
$$SYS #5-140
$$TRCE #5-140 5-140 5-218