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       (pr,al,rl)
 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       (pr,al,rl)
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       (pr,al),(pr),fill(0)
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       (pr,al,rl)
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       (pr,al,rl)
262           desc9a    bb|0,ql
263           arg       0,6
264           arg       lp|tctally
265 
266           ldq       lp|tctally
267           mlr       (pr,al,rl),(pr),fill(0)
268           desc9a    bb|0,ql
269           desc9a    bp|0(1),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),fill(0)     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