Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/srfmln.list
There are no other files named srfmln.list in the archive.
SRFMLN MACRO M1110 13-OCT-79 11:16 PAGE 3
1 .TITLE SRFMLN
2 .IDENT /V01.01/
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 FORMAT BINARY LINE ID AS AN ASCII STRING
26 ;
27 ;
28 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
29 ;
30 ; IDENT HISTORY:
31 ;
32 ; 1.00 10-FEB-78
33 ; VERSION 2.0 RELEASE
34 ; 1.01 4-SEP-79 ALAN D. PECKHAM
35 ; NO CHANGE - LIDDAT HAS BEEN ALTERED
36 ;
SRFMLN MACRO M1110 13-OCT-79 11:16 PAGE 4
38 ;
39 ;======================================================================;
40 ;++
41 ; +-------------------------------------------------+
42 ; I I
43 ; I S R F M L N I
44 ; I - - - - - - I
45 ; I I
46 ; +-------------------------------------------------+
47 ;
48 ; FUNCTION:
49 ;
50 ; SERVICE MODULE TO FORMAT BINARY LINE ID AS AN ASCII STRING
51 ;
52 ; INPUT:
53 ;
54 ; R0 - ADDRESS OF FOUR BYTE BINARY LINE ID
55 ;
56 ; OUTPUT:
57 ;
58 ; C-BIT - CLEAR IF NO RESOURCE ERROR, SET IF RESOURCE ERROR
59 ; R0 - IF SUCCESS, ADDRESS OF MEMORY BLOCK CONTAINING CONVERTED LINE ID
60 ; R1 - IF SUCCESS OR RESOURCE ERROR, ZERO; OTHERWISE, ERROR CODE
61 ;
62 ; REQUIREMENTS:
63 ;
64 ; INPUT VIA LIDDAT:
65 ;
66 ; LIDBLK - TABLE OF ENTRIES CONTAINING LINE DEVICE TYPE NUMBER,
67 ; DEVICE TYPE STRING ADDRESS AND LENGTH
68 ; LIDEND - END ADDRESS OF LIDBLK TABLE
69 ; L.DNAD - OFFSET OF DEVICE NAME ADDRESS IN TABLE ENTRY
70 ; L.DNLN - OFFSET OF DEVICE NAME LENGTH IN TABLE ENTRY
71 ; L.DTYP - OFFSET OF DEVICE TYPE NUMBER IN TABLE ENTRY
72 ; L.ELEN - LENGTH OF TABLE ENTRY
73 ;
74 ; INPUT VIA LIMDAT:
75 ;
76 ; LIMBLK - SYMBOL FOR LINE ID TEMPORARY MEMORY BLOCK BEGINNING
77 ; LOCK - CLEAR IF MEMORY BLOCK IN USE, SET IF NOT
78 ;
79 ; CONTROL BLOCK SYMBOLS:
80 ;
81 ; CE$LID - ERROR CODE FOR INVALID LINE ID
82 ;
83 ; EFFECTS:
84 ;
85 ; OUTPUT VIA LIMDAT:
86 ;
87 ; LENGTH - LENGTH OF LINE ID PUT INTO BLOCK
88 ; LINEID - LINE ID
89 ; LOCK - SET IF BLOCK USED
90 ;
91 ; NOTES:
92 ;
93 ; ALWAYS INCLUDES ALL THREE NUMERIC FIELDS, EVEN IF ZERO. MAXIMUM
94 ; VALUE OF ANY FIELD IS OCTAL 77.
SRFMLN MACRO M1110 13-OCT-79 11:16 PAGE 4-1
95 ;
96 ; LOCK IS SET BY THIS MODULE AND MUST BE CLEARED BY CALLER. OFFSETS
97 ; OF FIELDS ARE DEFINED FOR CALLER BY MACRO LIMDF.
98 ;
99 ;--
100 ;======================================================================;
101 ;
102 ; EXTERNAL MACROS
103 ;
104 .MCALL PROC,SAVSTK,RESSTK,CONDF,LIDMDF,LIMMDF
105 ;
106 ; EXTERNAL SYMBOLS
107 ;
108 000000 CONDF ;CONTROL BLOCK SYMBOLS
109 ;
110 ; READ-ONLY STORAGE
111 ;
112 000000 LIDMDF ;LINE ID MEMORY
113 ;
114 ; READ/WRITE STORAGE
115 ;
116 000000 LIMMDF ;LINE ID TEMPORARY MEMORY BLOCK
SRFMLN MACRO M1110 13-OCT-79 11:16 PAGE 5
118 ;
119 ; PROCEDURE BODY
120 ;
121 000000 PROC SRFMLN
122 000000 SAVSTK <R3,R4> ;SAVE REGISTERS
123 000004 010003 MOV R0,R3 ;SAVE LINE ID ADDRESS
124 000006 112300 MOVB (R3)+,R0 ;GET LINE ID TYPE
125 000010 012704 000050' MOV #LIDBLK,R4 ;ADDRESS OF LINE ID DATABASE
126 000014 WHILE ; MORE ENTRIES AND NO TYPE MATCH
127 000014 FALSE HIS R4,#LIDEND
128 000022 FALSEB EQ R0,L.DTYP(R4)
129 000030 DO
130 000030 062704 000010 ADD #L.ELEN,R4 ;MOVE UP TO NEXT ENTRY
131 000034 ENDWHILE
132 000036 IF ; TYPE MATCH AND NO EXTRA BITS IN NUMBERS
133 000036 FALSE HIS R4,#LIDEND
134 000044 111300 MOVB (R3),R0 ;GET 1ST NUMBER
135 000046 156300 000001 BISB 1(R3),R0 ;AND 2ND
136 000052 156300 000002 BISB 2(R3),R0 ;AND 3RD
137 000056 FALSE SET #^C77,R0
138 000064 THEN
139 000064 IF ; LINE ID TEMPORARY MEMORY BLOCK AVAILABLE
140 000064 FALSEB SET LOCK
141 000072 THEN
142 000072 012702 000004' MOV #LINEID,R2 ;SET UP "TO" POINTER
143 000076 016400 000000 MOV L.DNAD(R4),R0 ;ADDRESS OF LINE ID STRING
144 000102 116401 000002 MOVB L.DNLN(R4),R1 ;LENGTH OF STRING
145 000106 CALL MOVE ;MOVE SPEC IN
146 000112 012704 000003 MOV #3,R4 ;THREE NUMBERS TO DO
147 000116 WHILE ; COUNTER > 0
148 000116 FALSE LE R4
149 000122 DO
150 000122 005304 DEC R4 ;DECREMENT COUNTER
151 000124 112722 000137 MOVB #'_,(R2)+ ;PUT IN AN UNDERBAR
152 000130 112300 MOVB (R3)+,R0 ;GET A NUMBER
153 000132 IF ; NUMBER > 7
154 000132 FALSE LE R0,#7
155 000140 THEN
156 000140 006200 ASR R0 ;GET RID OF LOW THREE BITS
157 000142 006200 ASR R0
158 000144 006200 ASR R0
159 000146 062700 000060 ADD #'0,R0 ;CONVERT TO ASCII
160 000152 110022 MOVB R0,(R2)+ ;PUT INTO OUTPUT STRING
161 000154 016300 177777 MOV -1(R3),R0 ;RESTORE NUMBER
162 000160 142700 177770 BICB #^C7,R0 ;GET RID OF COMPLETED BITS
163 000164 ENDIF
164 000164 062700 000060 ADD #'0,R0 ;CONVERT TO ASCII
165 000170 110022 MOVB R0,(R2)+ ;PUT INTO OUTPUT STRING
166 000172 ENDWHILE
167 000174 162702 000004' SUB #LINEID,R2 ;CALCULATE LENGTH OF LINE ID
168 000200 110267 000003' MOVB R2,LENGTH ;AND PUT IT IN BLOCK
169 000204 105267 000002' INCB LOCK ;SET LOCK
170 000210 012700 000000' MOV #LIMBLK,R0 ;ADDRESS OF BLOCK FOR CALLER
171 000214 000241 CLC ;NO RESOURCE ERROR
172 000216 ELSE
173 000220 005001 CLR R1 ;NO ERROR CODE
174 000222 000261 SEC ;RESOURCE ERROR
SRFMLN MACRO M1110 13-OCT-79 11:16 PAGE 5-1
175 000224 ENDIF
176 000224 ELSE
177 000226 012701 177766 MOV #CE$LID,R1 ;BAD LINE ID
178 000232 000241 CLC ;NO RESOURCE ERROR
179 000234 ENDIF
180 000234 RESSTK <R4,R3> ;RESTORE REGISTERS
181 000240 ENDPROC
182 000001 .END
SRFMLN MACRO M1110 13-OCT-79 11:16 PAGE 5-2
SYMBOL TABLE
ADA 000016R 002 C$LEN = 000026 C.TASK= 000016 F$EXHO= 000000 G$$TPP= 000000
ADL 000007R 002 C$NOPN= 000031 C.TYPE= 000016 F$GTCM= 000001 G$$TSS= 000000
ADLA 000026R 002 C$NORD= 000032 C.WAIT= 000020 F$INCM= 000000 G$$TTK= 000000
ADLV 000011R 002 C$OPCL= 000066 DA = 000010 F$INLU= 000001 I$$RAR= 000000
ADMC 000023R 002 C$OPCO= 000034 DL = 000004 F$IRLU= 000000 I$$RDN= 000000
ADP 000000R 002 C$OPIN= 000041 DLA = 000020 F$LKLU= 000010 KDP = 000034
ADQ 000014R 002 C$OPIR= 000056 DLV = 000004 F$LNLU= 000002 KDZ = 000036
ADTE 000031R 002 C$OPLK= 000051 DMC = 000014 F$LNSR= 000001 KL = 000040
ADU 000002R 002 C$OPLN= 000045 DP = 000000 F$LOAD= 000000 K$$CNT= 177546
ADUP 000020R 002 C$OPOR= 000057 DQ = 000006 F$LOGD= 000001 K$$CSR= 177546
ADUV 000004R 002 C$OPOT= 000042 DTE = 000024 F$LOOP= 000001 K$$LDC= 000000
ADV 000034R 002 C$ORD = 000145 DU = 000002 F$NTCM= 000000 K$$TPS= 000074
ADZ 000036R 002 C$PROC= 000200 DUP = 000012 F$OPCL= 000001 LDA = 000002
AKDP 000040R 002 C$RCBK= 000047 DUV = 000002 F$OPCO= 000000 LDL = 000002
AKDZ 000043R 002 C$RCEV= 000050 DV = 000026 F$OPIN= 000000 LDLA = 000003
AKL 000046R 002 C$RCIN= 000062 DV$LOD= 000002 F$OPIR= 000000 LDLV = 000003
A$$CHK= 000000 C$RCMA= 000146 DV$NET= 000001 F$OPLK= 000005 LDMC = 000003
A$$CPS= 000000 C$RCMS= 000054 DZ = 000030 F$OPLN= 000002 LDP = 000002
A$$TRP= 000000 C$RDBK= 000043 D$$BUG= 177514 F$OPLO= 000000 LDQ = 000002
CE$ACP= 177753 C$RDCM= 000035 D$$ISK= 000000 F$OPOR= 000000 LDTE = 000003
CE$ADR= 177776 C$RDIN= 000040 D$$L11= 000001 F$OPOT= 000000 LDU = 000002
CE$CON= 177770 C$RDIS= 000040 FL$BOO= 000001 F$ORLU= 000000 LDUP = 000003
CE$DIS= 177771 C$RDRC= 000060 FL$DUM= 000001 F$OTLU= 000001 LDUV = 000003
CE$EOF= 177767 C$RLBF= 000001 FL$LOA= 000001 F$RCBK= 000002 LDV = 000002
CE$FAI= 177774 C$RLCB= 000002 FL$LOO= 000001 F$RCEV= 000001 LDZ = 000002
CE$FIL= 177756 C$RLCI= 000000 FR$LCC= 000001 F$RCIN= 000000 LD$LP = 000000
CE$FUN= 177777 C$STBK= 000055 FR$LCS= 000001 F$RCMA= 000000 LENGTH 000003R 003
CE$GEN= 177774 C$STPR= 000037 FR$LNC= 000001 F$RCMS= 000002 LIDBLK 000050R 002
CE$IND= 177757 C$STPS= 000037 FR$LNL= 000001 F$RDBK= 000000 LIDEND 000250R 002
CE$IO = 177760 C$TRBK= 000046 FR$LNS= 000001 F$RDCM= 000000 LIMBLK 000000R 003
CE$LEN= 177775 C$TRIN= 000063 FR$RMC= 000001 F$RDIN= 000001 LINEID 000004R 003
CE$LID= 177766 C$TRMA= 000145 FR$RML= 000001 F$RDIS= 000012 LKDP = 000003
CE$LST= 177752 C$TRMS= 000053 FR$RMS= 000001 F$RDRC= 000000 LKDZ = 000003
CE$NOD= 177765 C$WRBK= 000044 FS$HOS= 000001 F$RECO= 000001 LKL = 000002
CE$NSD= 177755 C$WRCL= 000065 FS$INT= 000000 F$RLBF= 000001 LOCK 000002R 003
CE$NST= 177754 C$WRCM= 000036 FS$LLP= 000001 F$RLCB= 000001 L$$ASG= 000000
CE$NWE= 177773 C$WRRC= 000061 FS$LOF= 000001 F$STBK= 000000 L$$DRV= 000000
CE$OBJ= 177750 C$ZRCN= 000064 FS$LOG= 000001 F$STPR= 000001 L$$P11= 000001
CE$OPN= 177761 C$$CKP= 000000 FS$LST= 000001 F$STPS= 000006 L$$11R= 000000
CE$OVR= 177764 C$$ORE= 000400 FS$NET= 000001 F$TEST= 000001 L.DLGL= 000003
CE$PAR= 177763 C$$RSH= 177564 FS$NST= 000000 F$TRAC= 000000 L.DNAD= 000000
CE$PRO= 177751 C.ADDR= 000014 FS$PAS= 000001 F$TRBK= 000001 L.DNLN= 000002
CE$REJ= 177772 C.BKNM= 000014 FT$CNS= 000000 F$TRIG= 000001 L.DTYP= 000004
CE$TMO= 177762 C.CTXT= 000004 FT$NOD= 000001 F$TRIN= 000000 L.ELEN= 000010
CS$ACK= 000002 C.FUNC= 000006 FT$TSK= 000001 F$TRMA= 000000 L.MCTL= 000005
CS$LKE= 000001 C.LEN = 000012 F$ALBF= 000001 F$TRMS= 000002 L.MLIN= 000006
CS$LNA= 000002 C.LINE= 000014 F$ALCB= 000001 F$WRBK= 000000 L.MSTA= 000007
CS$LOG= 000003 C.LKNM= 000020 F$CB = 000017 F$WRCL= 000001 MOVE = ****** GX
CS$NCH= 000003 C.LUN = 000020 F$CLCL= 000001 F$WRCM= 000000 M$$CRB= 000124
CS$SUC= 000001 C.MODE= 000021 F$CLCO= 000000 F$WRRC= 000000 M$$CRX= 000000
C$ALBF= 000032 C.PRID= 000017 F$CLFL= 000000 F$ZERO= 000001 M$$FCS= 000000
C$ALCB= 000033 C.PROC= 000007 F$CLLK= 000006 F$ZRCN= 000001 M$$OVR= 000000
C$CLCL= 000067 C.PROM= 000016 F$CLLN= 000002 F$$LVL= 000001 NO = 000000
C$CLCO= 000003 C.PTR = 000000 F$DPOS= 000001 F$150 = 000002 N$$USR= 000001
C$CLFL= 000004 C.RET = 000010 F$DUMP= 000000 F$300 = 000012 P$$P45= 000000
C$CLLK= 000052 C.SAVE= 000022 F$EVNT= 000001 F$50 = 000002 RI$LCC= 000001
C$CLLN= 000005 C.SERV= 000002 F$EXAM= 000001 F$550 = 000002 RI$LCS= 000002
SRFMLN MACRO M1110 13-OCT-79 11:16 PAGE 5-3
SYMBOL TABLE
RI$LNC= 000007 R$$K11= 000001 SP$LOF= 000012 T$$KMG= 000000 $$S770= 000077
RI$LNL= 000006 R$$SND= 000000 SP$LST= 000001 T$$MIN= 000000 $$S771= 000013
RI$LNS= 000010 R$$11M= 000000 SP$NDM= 000014 V$$CTR= 001000 $$S772= 000077
RI$RMC= 000004 SP$DHO= 000003 SP$NDO= 000013 X$$DBT= 000000 $$S773= 000012
RI$RML= 000003 SP$DRP= 000007 SP$NST= 000006 YES = 000001 $$S774= 000077
RI$RMS= 000005 SP$DTP= 000010 SP$RRP= 000004 $$CSTA= 000000 $$S775= 000011
RI$ZLC= 000011 SP$LHO= 000002 SP$RTP= 000005 $$PRST= 000014 $$S776= 000000
RI$ZLN= 000013 SP$LLP= 000011 SRFMLN 000000RG $$STIX= 000777 $$S777= 000000
RI$ZRM= 000012 SP$LNM= 000016 S$$WRG= 000000 $$STNM= 000000 $$TRNM= 000000
R$$DER= 000000 SP$LNO= 000015 S$$YSZ= 001600
. ABS. 000000 000
000242 001
LIDDAT 000250 002
LIMDAT 000024 003
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 10094 WORDS ( 40 PAGES)
DYNAMIC MEMORY: 11116 WORDS ( 42 PAGES)
ELAPSED TIME: 00:00:44
SRFMLN,[135,30]SRFMLN/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,SRFMLN
SRFMLN CREATED BY MACRO ON 13-OCT-79 AT 11:16 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
ADA 000016 R #4-112 4-112 4-112
ADL 000007 R #4-112 4-112 4-112
ADLA 000026 R #4-112 4-112 4-112
ADLV 000011 R #4-112 4-112 4-112
ADMC 000023 R #4-112 4-112 4-112
ADP 000000 R #4-112 4-112 4-112
ADQ 000014 R #4-112 4-112 4-112
ADTE 000031 R #4-112 4-112 4-112
ADU 000002 R #4-112 4-112 4-112
ADUP 000020 R #4-112 4-112 4-112
ADUV 000004 R #4-112 4-112 4-112
ADV 000034 R #4-112 4-112 4-112
ADZ 000036 R #4-112 4-112 4-112
AKDP 000040 R #4-112 4-112 4-112
AKDZ 000043 R #4-112 4-112 4-112
AKL 000046 R #4-112 4-112 4-112
CE$LID = 177766 5-177
DA = 000010 4-112
DL = 000004 4-112
DLA = 000020 4-112
DLV = 000004 4-112
DMC = 000014 4-112
DP = 000000 4-112
DQ = 000006 4-112
DTE = 000024 4-112
DU = 000002 4-112
DUP = 000012 4-112
DUV = 000002 4-112
DV = 000026 4-112
DV$LOD = 000002 #4-112 4-112 4-112 4-112 4-112 4-112 4-112 4-112 4-112
4-112 4-112 4-112 4-112 4-112
DV$NET = 000001 #4-112 4-112 4-112 4-112 4-112 4-112 4-112 4-112 4-112
4-112 4-112 4-112 4-112 4-112 4-112 4-112
DZ = 000030 4-112
F$TRAC = 000000 5-121 5-121 5-181 5-181
I$$AS = ****** 5-121
KDP = 000034 4-112
KDZ = 000036 4-112
KL = 000040 4-112
LDA = 000002 #4-112 4-112
LDL = 000002 #4-112 4-112
LDLA = 000003 #4-112 4-112
LDLV = 000003 #4-112 4-112
LDMC = 000003 #4-112 4-112
LDP = 000002 #4-112 4-112
LDQ = 000002 #4-112 4-112
LDTE = 000003 #4-112 4-112
LDU = 000002 #4-112 4-112
LDUP = 000003 #4-112 4-112
LDUV = 000003 #4-112 4-112
LDV = 000002 #4-112 4-112
LDZ = 000002 #4-112 4-112
SRFMLN CREATED BY MACRO ON 13-OCT-79 AT 11:16 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
LENGTH 000003 R #4-116 *5-168
LIDBLK 000050 R #4-112 5-125
LIDEND 000250 R #4-112 5-127 5-133
LIMBLK 000000 R #4-116 5-170
LINEID 000004 R #4-116 5-142 5-167
LKDP = 000003 #4-112 4-112
LKDZ = 000003 #4-112 4-112
LKL = 000002 #4-112 4-112
LOCK 000002 R #4-116 5-140 *5-169
L.DLGL = 000003 #4-112
L.DNAD = 000000 #4-112 5-143
L.DNLN = 000002 #4-112 5-144
L.DTYP = 000004 #4-112 5-128
L.ELEN = 000010 #4-112 5-130
L.MCTL = 000005 #4-112
L.MLIN = 000006 #4-112
L.MSTA = 000007 #4-112
MOVE = ****** GX 5-145
R$$11D = ****** 5-121
R$$11M = 000000 5-121
SRFMLN 000000 RG #5-121
$$CSTA = 000000 #5-121
$$PRST = 000014 #5-121 *5-126 #5-126 5-132 #5-132 5-139 #5-139 *5-147 #5-147
*5-153 #5-153
$$SLST = ****** 5-121 5-126 5-127 5-127 5-128 5-128 5-129 5-131 5-131
5-133 5-133 5-137 5-137 5-138 5-140 5-140 5-141 5-147
5-148 5-148 5-149 5-154 5-154 5-155 5-163 5-166 5-166
5-172 5-172 5-175 5-176 5-176 5-179 5-181
$$STIX = 000777 #5-121 *5-126 *5-126 #5-126 *5-126 *5-126 #5-126 5-131 #5-131
5-131 5-131 #5-131 5-131 5-132 5-132 #5-132 5-132 5-132
#5-132 5-139 5-139 #5-139 5-139 5-139 #5-139 *5-147 *5-147
#5-147 *5-147 *5-147 #5-147 *5-153 *5-153 #5-153 *5-153 *5-153
#5-153 5-163 #5-163 5-163 5-163 #5-163 5-163 5-166 #5-166
5-166 5-166 #5-166 5-166 5-175 #5-175 5-175 5-175 #5-175
5-175 5-179 #5-179 5-179 5-179 #5-179 5-179
$$STNM = 000000 #5-121 *5-126 #5-126 *5-126 *5-126 5-127 5-128 5-129 5-131
5-131 #5-131 5-132 #5-132 5-132 5-133 5-137 5-138 5-139
#5-139 5-139 5-140 5-141 *5-147 #5-147 *5-147 *5-147 5-148
5-149 *5-153 #5-153 *5-153 5-154 5-155 *5-163 #5-163 *5-166
5-166 #5-166 5-172 5-172 5-175 #5-175 5-176 5-176 5-179
#5-179
$$S770 = 000077 #5-153 5-163
$$S771 = 000013 #5-153 5-163
$$S772 = 000077 #5-147 5-166
$$S773 = 000012 #5-147 5-166
$$S774 = 000077 #5-139 5-175
$$S775 = 000011 #5-139 5-175
$$S776 = 000000 #5-126 5-131 #5-132 5-179
$$S777 = 000000 #5-126 5-131 #5-132 5-179
$$TRNM = 000000 #5-121 *5-126 #5-126 5-127 5-128 5-129 5-131 #5-131 5-132
#5-132 5-133 5-137 5-138 5-139 #5-139 5-140 5-141 *5-147
#5-147 5-148 5-149 *5-153 #5-153 5-154 5-155 *5-163 #5-163
SRFMLN CREATED BY MACRO ON 13-OCT-79 AT 11:16 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
5-166 #5-166 5-172 #5-172 5-175 #5-175 5-176 #5-176 5-179
#5-179
SRFMLN CREATED BY MACRO ON 13-OCT-79 AT 11:16 PAGE 4
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL #5-145
CASE #5-121
CONDF #4-104 #4-108
DEVDF #4-112 4-112
DO #5-121 5-129 5-149
DVTMDF #4-112 #4-112 #4-112
ELSE #5-121 5-172 5-176
ENDCAS #5-121
ENDIF #5-121 #5-131 #5-163 #5-166 #5-175 #5-179
ENDPRO #5-121 5-181
ENDWHI #5-121 5-131 5-166
FALSE #5-121 5-127 5-133 5-137 5-148 5-154
FALSEB #5-121 5-128 5-140
IF #5-121 #5-126 #5-132 #5-139 #5-147 #5-153
JMPPRO #5-121
LIDMDF #4-104 #4-112
LIMMDF #4-104 #4-116
ONCASE #5-121
PROC #4-104 5-121
PROCLC #5-121
RESSTK #4-104 5-180
SAVSTK #4-104 5-122
SWSTK$ #5-121
THEN #5-121 5-129 5-138 5-141 5-149 5-155
TRUE #5-121
TRUEB #5-121
WHILE #5-121 #5-126 #5-147
XXX #4-112 4-112 4-112 4-112 4-112 4-112 4-112 4-112 4-112 4-112
4-112 4-112 4-112 4-112 4-112 4-112 4-112 #4-112 4-112 4-112
4-112 4-112 4-112 4-112 4-112 4-112 4-112 4-112 4-112 4-112
4-112 4-112 4-112 4-112
$$BGND #5-121 #5-127 #5-128 #5-133 #5-137 #5-140 #5-148 #5-154
$$BGNN #5-121 5-127 5-128 5-131 5-133 5-137 5-140 5-148 5-154 5-166
5-172 5-176
$$ELSE #5-121 5-172 5-176
$$GEN1 #5-121 #5-121 #5-126 #5-127 #5-128 #5-129 #5-131 #5-131 #5-133 #5-137
#5-138 #5-140 #5-140 #5-141 #5-147 #5-148 #5-148 #5-149 #5-154 #5-155
#5-163 #5-166 #5-166 #5-172 #5-172 #5-175 #5-176 #5-176 #5-179 #5-181
$$GEN2 #5-121 #5-127 #5-128 #5-133 #5-137 #5-154
$$GNAB #5-121 5-127 5-128 5-133 5-148 5-154
$$GNBT #5-121 5-137 5-140
$$GNCM #5-121 #5-127 #5-128 #5-133 #5-137 #5-140 #5-148 #5-154
$$INMC #5-121 5-121
$$INSY #5-121 5-121
$$LAB #5-121 5-126 5-129 5-131 5-138 5-141 5-147 5-149 5-155 5-163
5-166 5-172 5-175 5-176 5-179
$$POP #5-121 5-131 5-131 5-163 5-163 5-166 5-166 5-175 5-175 5-179
5-179
$$POPI #5-121 5-131 5-131 5-163 5-163 5-166 5-166 5-175 5-175 5-179
5-179
$$PUSH #5-121 #5-126 #5-126 #5-132 #5-132 #5-139 #5-139 #5-147 #5-147 #5-153
#5-153
SRFMLN CREATED BY MACRO ON 13-OCT-79 AT 11:16 PAGE 5
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
$$STSM #5-121 #5-126 #5-126 #5-132 #5-132 #5-139 #5-139 #5-147 #5-147 #5-153
#5-153
$$SYS #5-121
$$TRCE #5-121 5-121 5-181