1 |
294 |
jeremybenn |
-- MACRO.DFS
|
2 |
|
|
-- THIS FILE CONTAINS THE MACRO DEFINITIONS USED IN THE ACVC TESTS.
|
3 |
|
|
-- THESE DEFINITIONS ARE USED BY THE ACVC TEST PRE-PROCESSOR,
|
4 |
|
|
-- MACROSUB. MACROSUB WILL CALCULATE VALUES FOR THOSE MACRO SYMBOLS
|
5 |
|
|
-- WHOSE DEFINITIONS DEPEND ON THE VALUE OF MAX_IN_LEN (NAMELY, THE
|
6 |
|
|
-- VALUES OF THE MACRO SYMBOLS BIG_ID1, BIG_ID2, BIG_ID3, BIG_ID4,
|
7 |
|
|
-- BIG_STRING1, BIG_STRING2, MAX_STRING_LITERAL, BIG_INT_LIT, BIG_REAL_LIT,
|
8 |
|
|
-- AND BLANKS). THEREFORE, ANY VALUES GIVEN IN THIS FILE FOR THOSE
|
9 |
|
|
-- MACRO SYMBOLS WILL BE IGNORED BY MACROSUB.
|
10 |
|
|
|
11 |
|
|
-- NOTE: AS REQUIRED BY THE MACROSUB PROGRAM, THE FIRST MACRO DEFINED
|
12 |
|
|
-- IN THIS FILE IS $MAX_IN_LEN. THE NEXT 5 MACRO DEFINITIONS
|
13 |
|
|
-- ARE FOR THOSE MACRO SYMBOLS THAT DEPEND ON THE VALUE OF
|
14 |
|
|
-- MAX_IN_LEN. THESE ARE IN ALPHABETIC ORDER. FOLLOWING THESE
|
15 |
|
|
-- ARE 36 MORE DEFINITIONS, ALSO IN ALPHABETIC ORDER.
|
16 |
|
|
|
17 |
|
|
-- EACH DEFINITION IS ACCORDING TO THE FOLLOWING FORMAT:
|
18 |
|
|
|
19 |
|
|
-- A. A NUMBER OF LINES PRECEDED BY THE ADA COMMENT DELIMITER, --.
|
20 |
|
|
-- THE FIRST OF THESE LINES CONTAINS THE MACRO SYMBOL AS IT APPEARS
|
21 |
|
|
-- IN THE TEST FILES (WITH THE DOLLAR SIGN). THE NEXT FEW "COMMENT"
|
22 |
|
|
-- LINES CONTAIN A DESCRIPTION OF THE VALUE TO BE SUBSTITUTED.
|
23 |
|
|
-- THE REMAINING "COMMENT" LINES, THE FIRST OF WHICH BEGINS WITH THE
|
24 |
|
|
-- WORDS "USED IN: " (NO QUOTES), CONTAIN A LIST OF THE TEST FILES
|
25 |
|
|
-- (WITHOUT THE .TST EXTENSION) IN WHICH THE MACRO SYMBOL APPEARS.
|
26 |
|
|
-- EACH TEST FILE NAME IS PRECEDED BY ONE OR MORE BLANKS.
|
27 |
|
|
-- B. A LINE, WITHOUT THE COMMENT DELIMITER, CONSISTING OF THE
|
28 |
|
|
-- IDENTIFIER (WITHOUT THE DOLLAR SIGN) OF THE MACRO SYMBOL,
|
29 |
|
|
-- FOLLOWED BY A SPACE OR TAB, FOLLOWED BY THE VALUE TO BE
|
30 |
|
|
-- SUBSTITUTED. IN THE DISTRIBUTION FILE, A SAMPLE VALUE IS
|
31 |
|
|
-- PROVIDED; THIS VALUE MUST BE REPLACED BY A VALUE APPROPRIATE TO
|
32 |
|
|
-- THE IMPLEMENTATION.
|
33 |
|
|
|
34 |
|
|
-- DEFINITIONS ARE SEPARATED BY ONE OR MORE EMPTY LINES.
|
35 |
|
|
-- THE LIST OF DEFINITIONS BEGINS AFTER THE FOLLOWING EMPTY LINE.
|
36 |
|
|
|
37 |
|
|
-- $MAX_IN_LEN
|
38 |
|
|
-- AN INTEGER LITERAL GIVING THE MAXIMUM LENGTH PERMITTED BY THE
|
39 |
|
|
-- COMPILER FOR A LINE OF ADA SOURCE CODE (NOT INCLUDING AN END-OF-LINE
|
40 |
|
|
-- CHARACTER).
|
41 |
|
|
-- USED IN: A26007A
|
42 |
|
|
MAX_IN_LEN 200
|
43 |
|
|
|
44 |
|
|
-- $MAX_STRING_LITERAL
|
45 |
|
|
-- A STRING LITERAL CONSISTING OF $MAX_IN_LEN CHARACTERS (INCLUDING THE
|
46 |
|
|
-- QUOTE CHARACTERS).
|
47 |
|
|
-- USED IN: A26007A
|
48 |
|
|
MAX_STRING_LITERAL "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
|
49 |
|
|
|
50 |
|
|
-- $BIG_ID1
|
51 |
|
|
-- AN IDENTIFIER IN WHICH THE NUMBER OF CHARACTERS IS $MAX_IN_LEN.
|
52 |
|
|
-- THE MACROSUB PROGRAM WILL SUPPLY AN IDENTIFIER IN WHICH THE
|
53 |
|
|
-- LAST CHARACTER IS '1' AND ALL OTHERS ARE 'A'.
|
54 |
|
|
-- USED IN: C23003A C23003B C23003G C23003I
|
55 |
|
|
-- C35502D C35502F
|
56 |
|
|
BIG_ID1 AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA1
|
57 |
|
|
|
58 |
|
|
-- $BIG_ID2
|
59 |
|
|
-- AN IDENTIFIER IN WHICH THE NUMBER OF CHARACTERS IS $MAX_IN_LEN,
|
60 |
|
|
-- DIFFERING FROM $BIG_ID1 ONLY IN THE LAST CHARACTER. THE MACROSUB
|
61 |
|
|
-- PROGRAM WILL USE '2' AS THE LAST CHARACTER.
|
62 |
|
|
-- USED IN: C23003A C23003B B23003F C23003G C23003I
|
63 |
|
|
BIG_ID2 AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2
|
64 |
|
|
|
65 |
|
|
-- $BIG_ID3
|
66 |
|
|
-- AN IDENTIFIER IN WHICH THE NUMBER OF CHARACTERS IS $MAX_IN_LEN.
|
67 |
|
|
-- MACROSUB WILL USE '3' AS THE "MIDDLE" CHARACTER; ALL OTHERS ARE 'A'.
|
68 |
|
|
-- USED IN: C23003A C23003B C23003G C23003I
|
69 |
|
|
BIG_ID3 AAAAAAAAAAAAAAAAAAAAAAAAAAAAA3AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
70 |
|
|
|
71 |
|
|
-- $BIG_ID4
|
72 |
|
|
-- AN IDENTIFIER IN WHICH THE NUMBER OF CHARACTERS IS $MAX_IN_LEN,
|
73 |
|
|
-- DIFFERING FROM $BIG_ID3 ONLY IN THE MIDDLE CHARACTER. MACROSUB
|
74 |
|
|
-- WILL USE '4' AS THE MIDDLE CHARACTER.
|
75 |
|
|
-- USED IN: C23003A C23003B C23003G C23003I
|
76 |
|
|
BIG_ID4 AAAAAAAAAAAAAAAAAAAAAAAAAAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
77 |
|
|
|
78 |
|
|
-- $BIG_STRING1
|
79 |
|
|
-- A STRING LITERAL (WITH QUOTES) WHOSE CATENATION WITH $BIG_STRING2
|
80 |
|
|
-- ($BIG_STRING1 & $BIG_STRING2) PRODUCES THE IMAGE OF $BIG_ID1.
|
81 |
|
|
-- USED IN: C35502D C35502F
|
82 |
|
|
BIG_STRING1 "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
|
83 |
|
|
|
84 |
|
|
-- $BIG_STRING2
|
85 |
|
|
-- A STRING LITERAL (WITH QUOTES) WHOSE CATENATION WITH $BIG_STRING1
|
86 |
|
|
-- ($BIG_STRING1 & $BIG_STRING2) PRODUCES THE IMAGE OF $BIG_ID1.
|
87 |
|
|
-- USED IN: C35502D C35502F
|
88 |
|
|
BIG_STRING2 "AAAAAAAAAAAAAAAAAAAAAAAAAAAAA1"
|
89 |
|
|
|
90 |
|
|
-- $BLANKS
|
91 |
|
|
-- A SEQUENCE OF ($MAX_IN_LEN - 20) BLANKS.
|
92 |
|
|
-- USED IN: B22001A B22001B B22001C B22001D B22001E B22001F
|
93 |
|
|
-- B22001G B22001I B22001J B22001K B22001L B22001M
|
94 |
|
|
-- B22001N
|
95 |
|
|
-- < LIMITS OF SAMPLE SHOWN BY ANGLE BRACKETS >
|
96 |
|
|
BLANKS
|
97 |
|
|
|
98 |
|
|
-- $ACC_SIZE
|
99 |
|
|
-- AN INTEGER LITERAL WHOSE VALUE IS THE MINIMUM NUMBER OF BITS
|
100 |
|
|
-- SUFFICIENT TO HOLD ANY VALUE OF AN ACCESS TYPE.
|
101 |
|
|
-- USED IN: CD2A83C BD2A02A
|
102 |
|
|
ACC_SIZE ACATS4GNATBIT
|
103 |
|
|
|
104 |
|
|
-- $ALIGNMENT
|
105 |
|
|
-- A VALUE THAT IS LEGITIMATE FOR USE IN A RECORD ALIGNMENT CLAUSE.
|
106 |
|
|
-- USED IN: CD4041A BD4006A
|
107 |
|
|
ALIGNMENT 4
|
108 |
|
|
|
109 |
|
|
-- $COUNT_LAST
|
110 |
|
|
-- AN INTEGER LITERAL WHOSE VALUE IS TEXT_IO.COUNT'LAST.
|
111 |
|
|
-- USED IN: CE3002B
|
112 |
|
|
COUNT_LAST 2147483647
|
113 |
|
|
|
114 |
|
|
-- $ENTRY_ADDRESS
|
115 |
|
|
-- AN EXPRESSION YIELDING A LEGAL ADDRESS FOR A TASK ENTRY
|
116 |
|
|
-- (I.E., FOR AN INTERRUPT) FOR THIS IMPLEMENTATION.
|
117 |
|
|
-- USED IN: SPPRT13SP
|
118 |
|
|
ENTRY_ADDRESS ENTRY_ADDR
|
119 |
|
|
|
120 |
|
|
-- $ENTRY_ADDRESS1
|
121 |
|
|
-- AN EXPRESSION YIELDING A LEGAL ADDRESS FOR A TASK ENTRY
|
122 |
|
|
-- (I.E., FOR AN INTERRUPT) FOR THIS IMPLEMENTATION. THE ADDRESS
|
123 |
|
|
-- MUST BE DISTINCT FROM THAT USED IN $ENTRY_ADDRESS.
|
124 |
|
|
-- USED IN: SPPRT13SP
|
125 |
|
|
ENTRY_ADDRESS1 ENTRY_ADDR1
|
126 |
|
|
|
127 |
|
|
-- $ENTRY_ADDRESS2
|
128 |
|
|
-- AN EXPRESSION YIELDING A LEGAL ADDRESS FOR A TASK ENTRY
|
129 |
|
|
-- (I.E., FOR AN INTERRUPT) FOR THIS IMPLEMENTATION. THE ADDRESS
|
130 |
|
|
-- MUST BE DISTINCT FROM THOSE USED IN $ENTRY_ADDRESS
|
131 |
|
|
-- AND $ENTRY_ADDRESS1.
|
132 |
|
|
-- USED IN: SPPRT13SP
|
133 |
|
|
ENTRY_ADDRESS2 ENTRY_ADDR2
|
134 |
|
|
|
135 |
|
|
-- $FIELD_LAST
|
136 |
|
|
-- AN INTEGER LITERAL WHOSE VALUE IS TEXT_IO.FIELD'LAST.
|
137 |
|
|
-- USED IN: CE3002C
|
138 |
|
|
FIELD_LAST 255
|
139 |
|
|
|
140 |
|
|
-- $FORM_STRING
|
141 |
|
|
-- A STRING LITERAL SPECIFYING THAT THE EXTERNAL FILE MEETS BOTH
|
142 |
|
|
-- CONDITIONS: (1) THERE IS A VALUE OF TYPE TEXT_IO.COUNT THAT IS NOT
|
143 |
|
|
-- AN APPROPRIATE LINE-LENGTH FOR THE FILE, (2) THERE IS A VALUE
|
144 |
|
|
-- OF TYPE TEXT_IO.COUNT THAT IS NOT AN APPROPRIATE PAGE-LENGTH
|
145 |
|
|
-- FOR THE FILE.
|
146 |
|
|
-- IF IT IS NOT POSSIBLE TO SATISFY BOTH CONDITIONS, THEN SUBSTITUTE
|
147 |
|
|
-- A STRING LITERAL SPECIFYING THAT THE EXTERNAL FILE SATISFIES ONE
|
148 |
|
|
-- OF THE CONDITIONS. IF IT IS NOT POSSIBLE TO SATISFY EITHER CONDITION,
|
149 |
|
|
-- THEN SUBSTITUTE THE NULL STRING ("").
|
150 |
|
|
-- USED IN: CE3304A
|
151 |
|
|
FORM_STRING ""
|
152 |
|
|
|
153 |
|
|
-- $FORM_STRING2
|
154 |
|
|
-- A STRING LITERAL SPECIFYING THAT THE CAPACITY OF THE FILE IS
|
155 |
|
|
-- RESTRICTED TO 4096 CHARACTERS OR LESS. IF THE IMPLEMENTATION
|
156 |
|
|
-- CANNOT RESTRICT FILE CAPACITY, $FORM_STRING2 SHOULD EQUAL
|
157 |
|
|
-- "CANNOT_RESTRICT_FILE_CAPACITY".
|
158 |
|
|
-- USED IN: CE2203A CE2403A
|
159 |
|
|
FORM_STRING2 "CANNOT_RESTRICT_FILE_CAPACITY"
|
160 |
|
|
|
161 |
|
|
-- $GREATER_THAN_DURATION
|
162 |
|
|
-- A REAL LITERAL WHOSE VALUE (NOT SUBJECT TO ROUND-OFF ERROR
|
163 |
|
|
-- IF POSSIBLE) LIES BETWEEN DURATION'BASE'LAST AND DURATION'LAST. IF
|
164 |
|
|
-- NO SUCH VALUES EXIST, USE A VALUE IN DURATION'RANGE.
|
165 |
|
|
-- USED IN: C96005B
|
166 |
|
|
GREATER_THAN_DURATION 86_000.0
|
167 |
|
|
|
168 |
|
|
|
169 |
|
|
|
170 |
|
|
|
171 |
|
|
-- $ILLEGAL_EXTERNAL_FILE_NAME1
|
172 |
|
|
-- AN ILLEGAL EXTERNAL FILE NAME (E.G., TOO LONG, CONTAINING INVALID
|
173 |
|
|
-- CHARACTERS, CONTAINING WILD-CARD CHARACTERS, OR SPECIFYING A
|
174 |
|
|
-- NONEXISTENT DIRECTORY).
|
175 |
|
|
-- USED IN: CE2102C CE2102H CE2103A CE2103B CE3102B CE3107A
|
176 |
|
|
ILLEGAL_EXTERNAL_FILE_NAME1 /NODIRECTORY/FILENAME
|
177 |
|
|
|
178 |
|
|
-- $ILLEGAL_EXTERNAL_FILE_NAME2
|
179 |
|
|
-- AN ILLEGAL EXTERNAL FILE NAME, DIFFERENT FROM $ILLEGAL_EXTERNAL_FILE_NAME1.
|
180 |
|
|
-- USED IN: CE2102C CE2102H CE2103A CE2103B CE3102B
|
181 |
|
|
ILLEGAL_EXTERNAL_FILE_NAME2 /@@/@@/@@\@@\@@\@@
|
182 |
|
|
|
183 |
|
|
-- $INAPPROPRIATE_LINE_LENGTH
|
184 |
|
|
-- A LITERAL OF TYPE COUNT THAT IS INAPPROPRIATE AS THE LINE-LENGTH
|
185 |
|
|
-- FOR THE EXTERNAL FILE. IF THERE IS NO SUCH VALUE, THEN USE -1.
|
186 |
|
|
-- USED IN: CE3304A
|
187 |
|
|
INAPPROPRIATE_LINE_LENGTH -1
|
188 |
|
|
|
189 |
|
|
-- $INAPPROPRIATE_PAGE_LENGTH
|
190 |
|
|
-- A LITERAL OF TYPE COUNT THAT IS INAPPROPRIATE AS THE PAGE-LENGTH
|
191 |
|
|
-- FOR THE EXTERNAL FILE. IF THERE IS NO SUCH VALUE, THEN USE -1.
|
192 |
|
|
-- USED IN: CE3304A
|
193 |
|
|
INAPPROPRIATE_PAGE_LENGTH -1
|
194 |
|
|
|
195 |
|
|
-- $INTEGER_FIRST
|
196 |
|
|
-- AN INTEGER LITERAL, WITH SIGN, WHOSE VALUE IS INTEGER'FIRST.
|
197 |
|
|
-- THE LITERAL MUST NOT INCLUDE UNDERSCORES OR LEADING OR TRAILING
|
198 |
|
|
-- BLANKS.
|
199 |
|
|
-- USED IN: C35503F B54B01B
|
200 |
|
|
INTEGER_FIRST -2147483648
|
201 |
|
|
|
202 |
|
|
-- $INTEGER_LAST
|
203 |
|
|
-- AN INTEGER LITERAL WHOSE VALUE IS INTEGER'LAST. THE LITERAL MUST
|
204 |
|
|
-- NOT INCLUDE UNDERSCORES OR LEADING OR TRAILING BLANKS.
|
205 |
|
|
-- USED IN: C35503F B54B01B
|
206 |
|
|
INTEGER_LAST 2147483647
|
207 |
|
|
|
208 |
|
|
|
209 |
|
|
-- $LESS_THAN_DURATION
|
210 |
|
|
-- A REAL LITERAL (WITH SIGN) WHOSE VALUE (NOT SUBJECT TO
|
211 |
|
|
-- ROUND-OFF ERROR IF POSSIBLE) LIES BETWEEN DURATION'BASE'FIRST AND
|
212 |
|
|
-- DURATION'FIRST. IF NO SUCH VALUES EXIST, USE A VALUE IN
|
213 |
|
|
-- DURATION'RANGE.
|
214 |
|
|
-- USED IN: C96005B
|
215 |
|
|
LESS_THAN_DURATION -86_400.0
|
216 |
|
|
|
217 |
|
|
|
218 |
|
|
-- $MACHINE_CODE_STATEMENT
|
219 |
|
|
-- A VALID MACHINE CODE STATEMENT AS SPECIFIED IN THE PACKAGE
|
220 |
|
|
-- MACHINE_CODE. IF THE IMPLEMENTATION DOES NOT SUPPORT MACHINE
|
221 |
|
|
-- CODE THEN USE THE ADA NULL STATEMENT (I.E. NULL; ).
|
222 |
|
|
-- USED IN: AD8011A BD8001A BD8002A BD8004A BD8004B
|
223 |
|
|
MACHINE_CODE_STATEMENT Asm_Insn'(Asm ("ACATS4GNATINSN"));
|
224 |
|
|
|
225 |
|
|
-- $MAX_INT
|
226 |
|
|
-- AN INTEGER LITERAL WHOSE VALUE IS SYSTEM.MAX_INT.
|
227 |
|
|
-- THE LITERAL MUST NOT INCLUDE UNDERSCORES OR LEADING OR TRAILING
|
228 |
|
|
-- BLANKS.
|
229 |
|
|
-- USED IN: C35503D C35503F C4A007A
|
230 |
|
|
MAX_INT 9223372036854775807
|
231 |
|
|
|
232 |
|
|
|
233 |
|
|
-- $MIN_INT
|
234 |
|
|
-- AN INTEGER LITERAL, WITH SIGN, WHOSE VALUE IS SYSTEM.MIN_INT.
|
235 |
|
|
-- THE LITERAL MUST NOT CONTAIN UNDERSCORES OR LEADING OR TRAILING
|
236 |
|
|
-- BLANKS.
|
237 |
|
|
-- USED IN: C35503D C35503F
|
238 |
|
|
MIN_INT -9223372036854775808
|
239 |
|
|
|
240 |
|
|
-- $NAME
|
241 |
|
|
-- THE NAME OF A PREDEFINED INTEGER TYPE OTHER THAN INTEGER,
|
242 |
|
|
-- SHORT_INTEGER, OR LONG_INTEGER.
|
243 |
|
|
-- (IMPLEMENTATIONS WHICH HAVE NO SUCH TYPES SHOULD USE AN UNDEFINED
|
244 |
|
|
-- IDENTIFIER SUCH AS NO_SUCH_TYPE_AVAILABLE.)
|
245 |
|
|
-- USED IN: C45231D CD7101G
|
246 |
|
|
NAME LONG_LONG_INTEGER
|
247 |
|
|
|
248 |
|
|
-- $OPTIONAL_DISC
|
249 |
|
|
-- A DISCRIMINANT USED AS THE DISCRIMINANT PART OF $RECORD_NAME.
|
250 |
|
|
-- IF MACHINE CODE INSERTIONS ARE NOT SUPPORTED THEN SUBSTITUTE
|
251 |
|
|
-- NO_SUCH_MACHINE_CODE_DISC.
|
252 |
|
|
-- USED IN: BD8002A
|
253 |
|
|
OPTIONAL_DISC
|
254 |
|
|
|
255 |
|
|
-- $RECORD_DEFINITION
|
256 |
|
|
-- THE RECORD TYPE DEFINITION (WITH FINAL SEMICOLON) FOR THE TYPE THAT
|
257 |
|
|
-- WAS USED IN THE MACRO $RECORD_NAME, AS DECLARED IN PACKAGE
|
258 |
|
|
-- MACHINE_CODE. IF THE IMPLEMENTATION DOES NOT SUPPORT MACHINE CODE,
|
259 |
|
|
-- THEN USE A NULL RECORD DEFINITION
|
260 |
|
|
-- USED IN: BD8002A
|
261 |
|
|
RECORD_DEFINITION RECORD ASM : STRING (1..4); END RECORD;
|
262 |
|
|
|
263 |
|
|
-- $RECORD_NAME
|
264 |
|
|
-- A VALID RECORD TYPE NAME THAT IS DEFINED IN PACKAGE MACHINE_CODE.
|
265 |
|
|
-- IF THE IMPLEMENTATION DOES NOT SUPPORT MACHINE CODE THEN
|
266 |
|
|
-- USE THE NAME "NO_SUCH_MACHINE_CODE_TYPE"
|
267 |
|
|
-- USED IN: BD8002A
|
268 |
|
|
RECORD_NAME Asm_Insn
|
269 |
|
|
|
270 |
|
|
-- $TASK_SIZE
|
271 |
|
|
-- AN INTEGER LITERAL WHOSE VALUE IS THE NUMBER OF BITS REQUIRED TO
|
272 |
|
|
-- HOLD A TASK OBJECT.
|
273 |
|
|
-- USED IN: CD2A91C
|
274 |
|
|
TASK_SIZE ACATS4GNATBIT
|
275 |
|
|
|
276 |
|
|
-- $TASK_STORAGE_SIZE
|
277 |
|
|
-- THE NUMBER OF STORAGE UNITS REQUIRED FOR A TASK ACTIVATION.
|
278 |
|
|
-- USED IN: BD2C01D BD2C02A BD2C03A C87B62D CD1009K CD1009T
|
279 |
|
|
-- CD1009U CD1C03E CD1C06A CD2C11A CC1225A CD2C11D
|
280 |
|
|
TASK_STORAGE_SIZE 1024
|
281 |
|
|
|
282 |
|
|
-- $VARIABLE_ADDRESS
|
283 |
|
|
-- AN EXPRESSION YIELDING A LEGAL ADDRESS FOR A VARIABLE FOR THIS
|
284 |
|
|
-- IMPLEMENTATION.
|
285 |
|
|
-- USED IN: SPPRT13SP
|
286 |
|
|
VARIABLE_ADDRESS VAR_ADDR
|
287 |
|
|
|
288 |
|
|
-- $VARIABLE_ADDRESS1
|
289 |
|
|
-- AN EXPRESSION YIELDING A LEGAL ADDRESS FOR A VARIABLE FOR THIS
|
290 |
|
|
-- IMPLEMENTATION. THE ADDRESS MUST BE DISTINCT FROM THAT USED IN
|
291 |
|
|
-- THE MACRO $VARIABLE_ADDRESS.
|
292 |
|
|
-- USED IN: SPPRT13SP
|
293 |
|
|
VARIABLE_ADDRESS1 VAR_ADDR1
|
294 |
|
|
|
295 |
|
|
-- $VARIABLE_ADDRESS2
|
296 |
|
|
-- AN EXPRESSION YIELDING A LEGAL ADDRESS FOR A VARIABLE FOR THIS
|
297 |
|
|
-- IMPLEMENTATION. THE ADDRESS MUST BE DISTINCT FROM THOSE USED IN
|
298 |
|
|
-- THE MACROS $VARIABLE_ADDRESS AND $VARIABLE_ADDRESS1.
|
299 |
|
|
-- USED IN: SPPRT13SP
|
300 |
|
|
VARIABLE_ADDRESS2 VAR_ADDR2
|
301 |
|
|
|