         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
<<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@>><<D9126>>00162500
<<                                                           >><<D9126>>00163500
INTEGER VERSION:=%07;            << MAINLINE VERSION NUMBER. >><<D9462>>00165000
<<                                                           >><<D9126>>00166500
<<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@>><<D9126>>00167500
POINTER                                                        <<D9260>>00316000
   GLOBALBASE = 6;                                             <<D9260>>00317000
                                                               <<D9260>>00318000
DEFINE                                                         <<D9260>>00319000
   GTRAPLABEL = GLOBALBASE(2)#;                                <<D9260>>00319500
   STYPE'A9140      =  0,  <<SUBTYPE FOR LINUS CARTRIDGE TAPE>><<D9126>>00580000
   STYPE'A9144      =  3,<<SUBTYPE FOR BUFFALO CARTRIDGE TAPE>><<D9126>>00582000
   STYPE7970        =  0,                                      <<D9126>>00587000
   RECORDCOUNT:=0,COUNT;                                       <<D9188>>00805000
  119, 6, "PROMPT",                                            <<D9188>>01405010
          ">PROMPT <STRING>#",                                 <<D9188>>01405020
          " PRINTS STRING ON CONSOLE AND THEN WAITS FOR#",     <<D9188>>01405030
          " OPERATOR TO PRESS RETURN KEY BEFORE CONTINUING##", <<D9188>>01405040
   PROMPT(0:17):="SOFTDUMP COMMAND>#";                         <<D9126>>02065000
BYTE ARRAY                                                     <<D9317>>02086000
   BAD'IDENTIFY(0:47):=                                        <<D9317>>02087000
     "DUMP DEVICE AT DRT#   , UNIT#  DOES NOT IDENTIFY";       <<D9317>>02088000
 TRYAGAIN3(0:40):="new media, then type ""DUMP"" in response#";<<D9188>>02315000
  TRYAGAIN4(0:35):="to the prompt ""SOFTDUMP COMMAND>"".#";    <<D9188>>02325000
BYTE ARRAY                                                     <<D9188>>02327000
  HALTMESSAGE1(0:45):=                                         <<D9188>>02328000
    "SOFTDUMP ""HALT"" COMMAND ABOUT TO BE EXECUTED.#";        <<D9188>>02329000
BYTE ARRAY                                                     <<D9188>>02330000
  HALTMESSAGE2(0:59):=                                         <<D9188>>02331000
    "MOUNT DUMP MEDIA, PLACE DRIVE ON-LINE,",                  <<D9188>>02332000
    " AND THEN TYPE ""RUN"".#";                                <<D9188>>02333000
BYTE ARRAY                                                     <<D9188>>02333200
  CONTINUEMESSAGE(0:55):=                                      <<D9188>>02333500
    "PRESS THE RETURN KEY TO CONTINUE EXECUTION OF SOFTDUMP.#";<<D9188>>02333800
BYTE ARRAY                                                     <<D9283>>02333850
  NON'SERIAL'MSG1(0:29) :=                                     <<D9283>>02333900
    "DUMP MEDIA IS NOT SERIALIZED.#";                          <<D9283>>02333950
BYTE ARRAY                                                     <<D9283>>02334000
  NON'SERIAL'MSG2(0:45) :=                                     <<D9283>>02334050
    "Please mount serialized media and then type ""#";         <<D9283>>02334100
BYTE ARRAY                                                     <<D9283>>02334150
  NON'SERIAL'MSG3(0:4) :=                                      <<D9283>>02334200
    "DUMP#";                                                   <<D9283>>02334250
BYTE ARRAY                                                     <<D9283>>02334300
  NON'SERIAL'MSG4(0:2) :=                                      <<D9283>>02334350
    """#";                                                     <<D9283>>02334400
BYTE ARRAY                                                     <<D9283>>02334450
  NON'SERIAL'MSG5(0:12) :=                                     <<D9283>>02334500
    "in response #";                                           <<D9283>>02334550
                                                               <<D9260>>03101000
PROCEDURE STARTIDLE;                                           <<D9260>>03102000
   OPTION EXTERNAL;                                            <<D9260>>03103000
$EDIT VOID=03145000                                            <<D9126>>03120000
                                                               <<D9260>>03121000
PROCEDURE TESTCONTROLYTRAP;                                    <<D9260>>03122000
   OPTION EXTERNAL;                                            <<D9260>>03123000
   IF GTRAPLABEL <> 0 THEN                                     <<D9260>>03741000
      BEGIN                                                    <<D9260>>03742000
         TESTCONTROLYTRAP;                                     <<D9260>>03742500
         STARTIDLE;              << RE-ARM CTRLY TRAP >>       <<D9260>>03743000
      END;                                                     <<D9260>>03744000
            MOVE COMMANDBUF:=COMMANDBUF WHILE AS;              <<D9188>>05062000
            IF COMMANDBUF <> "PROMPT" THEN                     <<D9188>>05063000
               PRINTSTRING(COMMANDBUF,-RECSIZE);               <<D9188>>05065000
      MOVE COMMANDBUF:=COMMANDBUF WHILE AS,1;                  <<D9283>>05200000
     IF IDENTIFYDEVICE(CTDUMPDEVDRT&LSL(7)                     <<D9317>>09111000
        LOR CTDUMPDEVUNIT,CTDUMPDEVDESC) THEN                  <<D9317>>09112000
         BEGIN                                                 <<D9317>>09113000
            CHANGEDEVICE(,CTDUMPDEVDESC);                      <<D9317>>09115000
            IF < THEN                                          <<D9317>>09120000
               BEGIN  <<NOT A SERIAL DEVICE>>                  <<D9317>>09125000
                  PRINTSTRING(NON'SERIAL'MSG1);                <<D9317>>09130000
                  PRINTSTRING(NON'SERIAL'MSG2,,%320);          <<D9317>>09130050
                  PRINTSTRING(NON'SERIAL'MSG3,,%320);          <<D9317>>09130100
                  PRINTSTRING(NON'SERIAL'MSG4);                <<D9317>>09130150
                  PRINTSTRING(NON'SERIAL'MSG5,,%320);          <<D9317>>09130200
                  PRINTSTRING(TRYAGAIN4);                      <<D9317>>09130250
                  MODE := INTERACTIVE;                         <<D9317>>09130300
                  RETURN;                                      <<D9317>>09135000
               END                                             <<D9317>>09140000
            ELSE IF > THEN                                     <<D9317>>09140050
               BEGIN  <<INVALID DEVICE>>                       <<D9317>>09140100
                  PRINTSTRING(BADEVICE);                       <<D9317>>09140150
                  MODE := INTERACTIVE;                         <<D9317>>09140200
                  RETURN;                                      <<D9317>>09140250
               END;                                            <<D9317>>09140300
         END  <<IDENTIFIED DEVICE>>                            <<D9317>>09140350
      ELSE                                                     <<D9317>>09140400
         BEGIN                                                 <<D9317>>09140450
            ASCII (CTDUMPDEVDRT, -10, BAD'IDENTIFY(21));       <<D9317>>09140500
            ASCII (CTDUMPDEVUNIT, 10, BAD'IDENTIFY(29));       <<D9317>>09140550
            PRINTSTRING(BAD'IDENTIFY,-48);                     <<D9317>>09140600
            MODE := INTERACTIVE;                               <<D9317>>09140650
            RETURN;                                            <<D9317>>09140700
         END;                                                  <<D9317>>09140750
   IF (CTSYSDISCDEVTYP=T'CS'80)                                <<D9126>>09165000
       AND ((CTSYSDISCSUBTYP=STYPE'A9140)                      <<D9126>>09166000
       LOR  (CTSYSDISCSUBTYP=STYPE'A9144))                     <<D9126>>09167000
       <<A LINUS/BUFFALO SECTOR IS 4 TIMES AS LARGE AS A DISC>><<D9126>>09180000
     PERFORMIO(SERIALDEVICE,REWIND);                           <<D9126>>09247000
     PERFORMIO(SERIALDEVICE,REWIND);                           <<D9126>>09287000
   IF    (CTDUMPDEVTYPE=TMAGTAPE)                              <<D9126>>09297000
     AND (CTDUMPDEVSUBTYP=STYPE7970) THEN                      <<D9126>>09297500
      PERFORMIO(SERIALDEVICE,REWIND);                          <<D9126>>09298000
         ELSE IF < THEN                                        <<D9283>>09640050
            BEGIN  <<NOT A SERIAL DEVICE>>                     <<D9283>>09640100
               PRINTSTRING(NON'SERIAL'MSG1);                   <<D9283>>09640150
               PRINTSTRING(NON'SERIAL'MSG2,,%320);             <<D9283>>09640200
               PRINTSTRING(COMMANDBUF,,%320);                  <<D9283>>09640250
               PRINTSTRING(NON'SERIAL'MSG4);                   <<D9283>>09640300
               PRINTSTRING(NON'SERIAL'MSG5,,%320);             <<D9283>>09640350
               PRINTSTRING(TRYAGAIN4);                         <<D9283>>09640400
            END                                                <<D9283>>09640450
         BEGIN                                                 <<D9317>>09676000
            ASCII (DRT, -10, BAD'IDENTIFY(21));                <<D9317>>09677000
            ASCII (UNIT, 10, BAD'IDENTIFY(29));                <<D9317>>09678000
            PRINTSTRING(BAD'IDENTIFY,-48);                     <<D9317>>09680000
         END;                                                  <<D9317>>09681000
   INTEGER TYPE,SUBTYPE;                                       <<D9462>>09925000
   TYPE:=CTSYSDISCDEVTYP;                                      <<D9462>>09928000
   IF TYPE = T13037 THEN                                       <<D9462>>09935000
      BEGIN                                                    <<D9462>>09935500
         IF SUBTYPE = R7905 OR                                 <<D9462>>09936000
            SUBTYPE = R7906 THEN                               <<D9462>>09936500
            TOS := 1                                           <<D9462>>09937000
         ELSE                                                  <<D9462>>09937500
            TOS := 0;                                          <<D9462>>09938000
      END                                                      <<D9462>>09938500
   ELSE                                                        <<D9462>>09939000
      TOS := 0;                                                <<D9462>>09939500
         TOS:=TRUE;                           <<PROMPT>>       <<D9188>>10093000
            BEGIN                             <<HALT>>         <<D9188>>10171000
               PRINTSTRING (HALTMESSAGE1);                     <<D9188>>10172000
               PRINTSTRING (HALTMESSAGE2);                     <<D9188>>10173000
               ASSEMBLE    (HALT 0);                           <<D9188>>10175000
            END;                                               <<D9188>>10176000
            BEGIN                             <<PROMPT>>       <<D9188>>10186000
               PRINTSTRING(COMMANDBUF(7));                     <<D9188>>10187000
               PRINTSTRING(CONTINUEMESSAGE,,%320);             <<D9188>>10188000
               COUNT:=READ(COMMANDBUF,-1);                     <<D9188>>10189000
            END;                                               <<D9188>>10189500
