1 " ***********************************************************
2 " * *
3 " * Copyright, C Honeywell Bull Inc., 1988 *
4 " * *
5 " * Copyright, C Honeywell Information Systems Inc., 1982 *
6 " * *
7 " * Copyright c 1972 by Massachusetts Institute of *
8 " * Technology and Honeywell Information Systems, Inc. *
9 " * *
10 " ***********************************************************
11 name inputs_
12 entry next
13 entry nxtnb
14 entry next_statement
15 entry next_statement_nolist
16 entry run_statement
17 entry run_statement_nolist
18 entry ascii_literal
19 entry getid
20 entry getname
21 entry get_ptr
22
23 " Input routines for ALM.
24 " Modified 3/23/77 by Noel I. Morris for macro processing.
25 " Modified 7/16/76 by N. I. Morris to use EIS.
26 " Modified 740821 by PG to treat input chars as bit 9 instead of bit 7.
27 " Modified on 07/29/73 at 02:57:04 by R F Mabee.
28 " Fixed code sequence that pops stack without returning, March 1973, R F Mabee.
29 " Changed short return sequence to use macro, 11 November 1972, R F Mabee.
30 " 23 July 1972 - made inputs_$next_statement count lines for xref. R F Mabee.
31 " Changed to call alm_include_file_ at end of file instead of prnter_$no_end_card.
32 " This is for include file processing. 19 May 1972, R F Mabee.
33 "^L
34 equ brk,0
35 equ sym,4
36 equ begin_line,48
37 equ tpass2,50
38 equ binlin,65
39 equ source_printed,283
40
41 bool inl,012
42 bool isp,040
43 bool icomma,54
44 bool ipoint,56
45 bool inum,60
46 bool irpb,76
47 bool ilet,101
48
49 include segnfo
50
51 include stack_header
52 "^L
53 use static_data
54 even
55 bpsave: its -1,1
56 x7save: dec 0
57 char: bss ,1
58 tctally: bss ,1
59
60 use text_section
61
62 join /text/text_section/link/static_data
63
64 " ^L
65
66 get_ptr: eppbb eb_data_$segnfo+source,*
67 spribb ap|2,* return source pointer
68 lda eb_data_$curr_char_no
69 ldq eb_data_$segnfo+srclen
70 sta ap|4,* return curr_char_no
71 stq ap|6,* return source length
72 stz ap|8,* set sw for at nl
73 lda eb_data_$varcom+brk
74 cmpa eb_data_$codtab+inl if this is so, mexp must
75 tnz return be told that there are
76 lda =o400000,du no args on line.
77 sta ap|8,*
78
79 short_return
80
81 " ^L
82
83 next: tsx7 set_char
84 tsx7 get_char
85 return: short_return
86
87
88
89 nxtnb: lda eb_data_$varcom+brk
90 cmpa eb_data_$codtab+inl
91 tze return
92
93 mornb: tsx7 set_char
94 tct pralrl
95 desc9a bb|0,ql
96 arg nxtnbtab
97 arg lp|tctally
98
99 ada lp|tctally
100 ana =o77777777
101 sta eb_data_$curr_char_no
102
103 tsx7 set_char get one more
104 tsx7 get_char
105 cmpa eb_data_$codtab+isp
106 tze mornb
107 tra return
108
109 " ^L
110
111 run_statement_nolist:
112 lda =o400000,du get "1"b
113 sta eb_data_$varcom+source_printed suppress printing of source
114 tra run_statement
115
116 next_statement_nolist:
117 lda =o400000,du
118 sta eb_data_$varcom+source_printed
119 next_statement:
120 ldaq eb_data_$varcom+brk
121 next_statement_loop:
122 cmpa eb_data_$codtab+inl
123 tze check_nl
124
125 run_statement:
126 tsx7 set_char
127 tct pralrl
128 desc9a bb|0,ql
129 arg nxtsttab
130 arg lp|tctally
131
132 ada lp|tctally
133 ana =o77777777
134 sta eb_data_$curr_char_no
135
136 tsx7 set_char
137 tsx7 get_char
138 tra next_statement_loop
139
140 check_nl: cmpq =o12,dl
141 tnz return
142 szn eb_data_$varcom+source_printed
143 tnz printed
144 szn eb_data_$varcom+tpass2
145 tze printed1 " Don't try to print listing during pass1.
146 save "save because we are going to call out
147 call prwrd_$source_only
148 eppbp sp|0
149 eppsp sp|16,* undo the save
150 spribp sb|stack_header.stack_end_ptr
151 printed1: szn eb_data_$macro_linect
152 tze printed
153 aos eb_data_$macro_linect
154 printed: ldq eb_data_$curr_char_no
155 stq eb_data_$varcom+begin_line
156 stz eb_data_$varcom+source_printed
157 szn eb_data_$include_control " if not in macro expansion
158 tmi *+2
159 aos eb_data_$varcom+binlin " inputs_ always counts lines.
160 tra return
161
162
163
164 ascii_literal:
165 tsx7 set_char
166 tsx7 get_char
167 tra check_nl
168
169 " ^L
170
171 get_char: mrl pral,pr,fill0
172 desc9a bb|0,1
173 desc9a lp|char,4
174
175 ldq lp|char
176 aos eb_data_$curr_char_no
177 anq =o777,dl just one char, please
178 canq =o600,dl if ascii
179 tze 3,ic then top bits are off
180 lda eb_data_$codtab else pretend it's ascii NUL char
181 tra 2,ic
182 lda eb_data_$codtab,ql
183 staq eb_data_$varcom+brk
184 tra 0,7
185
186
187
188 set_char: lda eb_data_$curr_char_no
189 ldq eb_data_$segnfo+srclen
190 sbq eb_data_$curr_char_no
191 tmoz source_eof
192
193 eppbb eb_data_$segnfo+source,*
194 tra 0,7
195
196
197
198 source_eof:
199 " We have run out of this segment
200 " Try to revert from include file.
201 " alm_include_file_$pop will not return
202 " if there is nothing more to read.
203 stx7 lp|x7save " This is necessary because save uses index 7 and bp.
204 spribp lp|bpsave
205 save " Save because we are going to make a call
206 call alm_include_file_$pop
207 eppbp sp|0
208 eppsp sp|16,* " Undo the save
209 spribp sb|stack_header.stack_end_ptr
210 ldx7 lp|x7save
211 eppbp lp|bpsave,*
212 tra set_char " Try whole read again.
213
214 " ^L
215
216 getid: eax6 getidtab
217 tra getid_work
218
219 getname: eax6 getnametab
220 tra getid_work
221
222
223
224 getid_work:
225 eppbp eb_data_$varcom+sym get address of sym where we will return results
226
227 ldaq eb_data_$varcom+brk get the current character
228 cmpa eb_data_$codtab+inl check for end of statement
229 tze clear return if so
230 cmpa eb_data_$codtab+isp check for space as last break
231 tnz chk_sym if not, get next char and continue
232
233 tsx7 set_char
234 tct pralrl
235 desc9a bb|0,ql
236 arg nxtnbtab
237 arg lp|tctally
238
239 ada lp|tctally
240 ana =o77777777
241 sta eb_data_$curr_char_no
242
243 chk_sym: tsx7 set_char
244 tsx7 get_char
245 cmpa eb_data_$codtab+ilet check for legal first char letter or . or _
246 tze putin "
247 cmpa eb_data_$codtab+ipoint "
248 tze putin "
249 cmpx6 getnametab,du check if we came in through getname
250 tnz clear if not we have the terminator already
251 cmpa eb_data_$codtab+inl make sure we are not at end of statement
252 tze return
253
254 putin: tsx7 set_char
255 sba 1,dl back up 1 char
256 adq 1,dl
257 cmpq 31,dl scan only 31 chars
258 tmoz *+2
259 ldq 31,dl
260
261 tct pralrl
262 desc9a bb|0,ql
263 arg 0,6
264 arg lp|tctally
265
266 ldq lp|tctally
267 mlr pralrl,pr,fill0
268 desc9a bb|0,ql
269 desc9a bp|01,31
270 qls 27
271 stbq bp|0,40 insert count
272
273 ada lp|tctally
274 ana =o77777777
275 sta eb_data_$curr_char_no
276
277 tra next
278
279
280 clear: mlr ,pr,fill0 clear sym
281 desc9a *,0
282 desc9a bp|0,32
283
284 tra return
285
286 " ^L
287
288 nxtnbtab:
289 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
290 vfd 9/1,9/0,9/1,9/1,9/0,9/1,9/1,9/1
291 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
292 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
293
294 vfd 9/0,9/1,9/1,9/1,9/1,9/0,9/1,9/1
295 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
296 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
297 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
298
299 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
300 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
301 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
302 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
303
304 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
305 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
306 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
307 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
308
309 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
310 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
311 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
312 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
313
314 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
315 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
316 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
317 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
318
319 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
320 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
321 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
322 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
323
324 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
325 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
326 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
327 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
328
329 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
330 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
331 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
332 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
333
334 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
335 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
336 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
337 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
338
339 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
340 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
341 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
342 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
343
344 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
345 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
346 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
347 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
348
349 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
350 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
351 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
352 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
353
354 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
355 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
356 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
357 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
358
359 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
360 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
361 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
362 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
363
364 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
365 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
366 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
367 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
368
369
370 " ^L
371
372 nxtsttab:
373 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
374 vfd 9/0,9/0,9/1,9/0,9/0,9/1,9/0,9/0
375 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
376 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
377
378 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
379 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
380 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
381 vfd 9/0,9/0,9/0,9/1,9/0,9/0,9/0,9/0
382
383 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
384 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
385 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
386 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
387
388 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
389 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
390 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
391 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
392
393 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
394 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
395 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
396 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
397
398 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
399 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
400 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
401 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
402
403 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
404 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
405 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
406 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
407
408 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
409 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
410 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
411 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
412
413 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
414 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
415 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
416 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
417
418 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
419 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
420 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
421 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
422
423 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
424 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
425 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
426 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
427
428 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
429 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
430 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
431 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
432
433 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
434 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
435 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
436 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
437
438 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
439 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
440 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
441 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
442
443 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
444 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
445 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
446 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
447
448 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
449 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
450 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
451 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
452
453
454 " ^L
455
456 getidtab:
457 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
458 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
459 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
460 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
461
462 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
463 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/0,9/1
464 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
465 vfd 9/0,9/0,9/1,9/1,9/1,9/1,9/1,9/1
466
467 vfd 9/1,9/0,9/0,9/0,9/0,9/0,9/0,9/0
468 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
469 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
470 vfd 9/0,9/0,9/0,9/1,9/1,9/1,9/1,9/0
471
472 vfd 9/1,9/0,9/0,9/0,9/0,9/0,9/0,9/0
473 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
474 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
475 vfd 9/0,9/0,9/0,9/1,9/1,9/1,9/1,9/1
476
477 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
478 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
479 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
480 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
481
482 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
483 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
484 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
485 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
486
487 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
488 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
489 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
490 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
491
492 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
493 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
494 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
495 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
496
497 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
498 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
499 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
500 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
501
502 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
503 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
504 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
505 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
506
507 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
508 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
509 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
510 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
511
512 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
513 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
514 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
515 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
516
517 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
518 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
519 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
520 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
521
522 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
523 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
524 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
525 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
526
527 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
528 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
529 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
530 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
531
532 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
533 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
534 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
535 vfd 9/1,9/1,9/1,9/1,9/1,9/1,9/1,9/1
536
537
538 " ^L
539
540 getnametab:
541 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
542 vfd 9/0,9/1,9/1,9/0,9/1,9/1,9/0,9/0
543 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
544 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
545
546 vfd 9/1,9/0,9/0,9/0,9/0,9/1,9/0,9/0
547 vfd 9/0,9/0,9/0,9/0,9/1,9/0,9/0,9/0
548 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
549 vfd 9/0,9/0,9/0,9/1,9/0,9/0,9/1,9/0
550
551 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
552 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
553 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
554 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
555
556 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
557 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
558 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
559 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
560
561 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
562 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
563 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
564 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
565
566 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
567 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
568 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
569 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
570
571 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
572 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
573 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
574 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
575
576 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
577 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
578 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
579 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
580
581 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
582 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
583 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
584 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
585
586 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
587 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
588 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
589 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
590
591 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
592 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
593 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
594 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
595
596 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
597 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
598 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
599 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
600
601 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
602 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
603 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
604 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
605
606 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
607 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
608 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
609 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
610
611 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
612 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
613 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
614 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
615
616 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
617 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
618 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
619 vfd 9/0,9/0,9/0,9/0,9/0,9/0,9/0,9/0
620
621
622 end