         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
                DISCREQTBPTR = %17,                            <<I9928>>05275000
EQUATE VDT'SIZE           = 23,     <<MAX # IN THIS ARRAY>>    <<F2390>>05330000
       VDT'NUM'DISCS      = 11,     <<# OF KNOWN VALID DISC>>  <<F2390>>05345000
       VDT'NUM'TAPES      = 4,      <<# OF KNOWN VALID TAPE>>  <<N2298>>05350000
       CS80'7936'SUBTYPE  = 9,      <<EAGLET>>                 <<N2298>>05406000
       CS80'7937'SUBTYPE  =10,      <<EAGLE>>                  <<N2298>>05407000
       CS80'7957'SUBTYPE  = 11,     <<FALSTAFF II>>            <<F2390>>05416000
       CS80'7958'SUBTYPE  = 12,     <<FALSTAFF II>>            <<F2390>>05417000
       CS80'3540'SUBTYPE  = 6,      <<MERLIN>>                 <<N2298>>05421000
   I := I+VDT'ENTRY'SIZE;  <<ENTRY 8>>                         <<N2298>>06845100
   VDT(I)     := CS80'DISC'TYPE;                               <<N2298>>06845200
   VDT(I).NMI := 1;                                            <<N2298>>06845300
   VDT(I+1)   := CS80'7936'SUBTYPE;                            <<N2298>>06845400
                                                               <<N2298>>06845500
   I := I+VDT'ENTRY'SIZE;  <<ENTRY 9>>                         <<N2298>>06845600
   VDT(I)     := CS80'DISC'TYPE;                               <<N2298>>06845700
   VDT(I).NMI := 1;                                            <<N2298>>06845800
   VDT(I+1)   := CS80'7937'SUBTYPE;                            <<N2298>>06845900
                                                               <<N2298>>06846000
   I := I+VDT'ENTRY'SIZE;  <<ENTRY 10>>                        <<F2390>>06847100
   VDT(I)     := CS80'DISC'TYPE;                               <<F2390>>06847200
   VDT(I).NMI := 1;                                            <<F2390>>06847300
   VDT(I+1)   := CS80'7957'SUBTYPE;                            <<F2390>>06847400
                                                               <<F2390>>06847500
   I := I+VDT'ENTRY'SIZE;  <<ENTRY 11>>                        <<F2390>>06847600
   VDT(I)     := CS80'DISC'TYPE;                               <<F2390>>06847700
   VDT(I).NMI := 1;                                            <<F2390>>06847800
   VDT(I+1)   := CS80'7958'SUBTYPE;                            <<F2390>>06847900
                                                               <<F2390>>06848000
   I := I+VDT'ENTRY'SIZE;  <<ENTRY 4>>                         <<N2298>>06965100
   VDT(I)     := CS80'TAPE'TYPE;                               <<N2298>>06965200
   VDT(I).NMI := 1;                                            <<N2298>>06965300
   VDT(I+1)   := CS80'3540'SUBTYPE;                            <<N2298>>06965400
         TOS := @NAMEBUF;                                      <<S2157>>10500100
         TOS := MEASPROCXDSNUM;                                <<S2157>>10500200
         TOS := PIN * CLASS15'SUB0SIZE;                        <<S2157>>10500300
         TOS := 1;                                             <<S2157>>10500400
         ASMB (MFDS 1; CAB; DEL);                              <<S2157>>10500500
         IF PROCESSTYPE = CIPROCESS THEN                       <<S2157>>10500600
            BEGIN                                              <<S2157>>10500700
            TOS := @CINAME;                                    <<S2157>>10500800
            TOS := 1;                                          <<S2157>>10500900
            END                                                <<S2157>>10501000
         ELSE             << SYSTEM PROCESS >>                 <<S2157>>10501100
            BEGIN                                              <<S2157>>10501200
            TOS := @SPNAME;                                    <<S2157>>10501300
            TOS := IF NAMEBUF = 0 << NO NAME >>                <<S2157>>10501400
                   OR NAMEBUF = " " << BAD NAME >> THEN 1      <<S2157>>10501410
                   ELSE 0;   << ALREADY HAS A NAME >>          <<S2157>>10501420
            END;                                               <<S2157>>10501600
         ASMB (MTDS 4);                                        <<S2157>>10501700
$EDIT VOID = 10530000                                          <<S2157>>10505000
