         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
CURAD:=BANKBASE:=STARTADR:=TOS;                                <<*1391>>12064000
CHARFLAG:=TRUE;  << SET TRUE TO ENABLE CHAR ALWAYS >>          <<*1391>>12076000
    BEGIN                          << 3=DSTENTRY        >>     <<*1391>>12154000
      FORMATTING'DSEG := TRUE;                                 <<*1391>>12154200
      DSTENTRY(MBENTNO',SKIP);                                 <<*1391>>12154400
    END;                                                       <<*1391>>12154600
  IF VM'INUSE THEN USE'PSEUDO'DST := TRUE;                     <<*1391>>12277000
  IF VM'INUSE THEN USE'PSEUDO'DST := TRUE;                     <<*1391>>12325000
  FORMATTING'DSEG := FALSE;                                    <<*1391>>12325500
equate maxdsttype = 26;                                                 12522000
STACKADDR := DSTTOADDR(DSTNO);                                 <<*1391>>12527000
    USE'PSEUDO'DST := FALSE;                                   <<*1391>>12785000
begin               << 19= Port Dictionary >>                           12830010
  move pbuf := "(PORT DICTIONARY TABLE)";                               12830020
  printline;                                                            12830030
end;                                                                    12830040
begin               << 20= PortDST >>                                   12830050
  move pbuf := "(PortDST)";                                             12830060
  printline;                                                            12830070
  dumpportdst(dstno);                                                   12830080
  skip := 2;                                                            12830090
end;                                                                    12830100
begin               << 21= Port AFT Mapping XDS >>                      12830110
  move pbuf := "(Port AFT mapping Table)";                              12830120
  printline;                                                            12830130
end;                                                                    12830140
begin               << 22= Buffer Control Block >>                      12830150
  move pbuf := "(Xport BuffCB DST)";                                    12830160
  printline;                                                            12830170
  dumpportdst(dstno);                                                   12830180
  skip := 2;                                                            12830190
end;                                                                    12830200
begin               << 23= ADS Buffer DST >>                            12830210
  move pbuf := "(Xport Buffer DST)";                                    12830220
  printline;                                                            12830230
end;                                                                    12830240
begin               << 24= SNA HSCB table >>                            12830250
  move pbuf :=  "(SNA HSCB table)";                                     12830260
  printline;                                                            12830270
end;                                                                    12830280
begin               << 25= BSC IMF screen XDS >>                        12830290
  move pbuf := "(BSC IMF screen XDS)";                                  12830300
  printline;                                                            12830310
end;                                                                    12830320
begin               << 26= SNA IMF screen XDS >>                        12830330
  move pbuf := "(SNA IMF screen XDS)";                                  12830340
  printline;                                                            12830350
end;                                                                    12830360
begin               << 27= ADS PTOP buffer DST >>                       12830370
  move pbuf := "(ADS PTOP BUFFER DST)";                                 12830380
  printline;                                                            12830390
end;                                                                    12830400
begin               << 28= ADS RFA & RBDA buffer DST >>                 12830410
  move pbuf := "(ADS RFA & RBDA BUFFER DST)";                           12830420
  printline;                                                            12830430
end;                                                                    12830440
begin               << 29= ADS Local Socket Info XDS >>                 12830450
  move pbuf := "(ADS LOCAL SOCKET XDS)";                                12830460
  printline;                                                            12830470
end;                                                                    12830480
  << CHARFLAG:=FALSE >>  << COMMENT THIS OUT >>                <<*1391>>13052000
                                                               <<*1391>>13148000
<< CHARFLAG:= FALSE >>  << COMMENT THIS OUT >>                 <<*1391>>13428000
          IF VM'INUSE AND                                      <<*1391>>14576000
              MBBANK > LOGICAL(MAX'REAL'MEM&DLSR(16)) THEN     <<*1391>>14576400
            MOVE BBUF(42) := "VIRTUAL"                         <<*1391>>14576800
          ELSE                                                 <<*1391>>14577200
            BEGIN                                              <<*1391>>14577600
            PUTNUMP(MBBANK);     << BANK >>                    <<*1391>>14578000
            PUTNUM (MBADDR);     << OFFSET IN BANK >>          <<*1391>>14578400
            END;                                               <<*1391>>14578800
         IF WORK1 > WORK3 THEN GOTO SETTRUE;                   <<*9365>>15756000
         IF WORK2 > WORK3 THEN GOTO SETTRUE;                   <<*9365>>15758000
GET'PNAME(INDX,BBUF(41));                                      <<*2018>>16724100
IF BBUF(41) >= "A" AND BBUF <= "Z" THEN                        <<*2018>>16724200
  BEGIN                                                        <<*2018>>16724300
  @PBUF := @BBUF + 31;                                         <<*2018>>16724500
  PUTNUMP(INDX);                                               <<*2018>>16724600
  MOVE BBUF := "PROGRAM NAME FOR CSTX BLOCK INDEX";            <<*2018>>16724650
  MOVE BBUF(37) := ":   ";                                     <<*2018>>16724660
  PRINTLINE;                                                   <<*2018>>16724700
  END                                                          <<*2018>>16724800
ELSE BLANKBUF;                                                 <<*2018>>16724900
USE'PSEUDO'DST := FALSE;                                       <<*1391>>17099000
  IF VM'INUSE THEN USE'PSEUDO'DST := TRUE;                     <<*1391>>17249000
  IF MACHINEID = TIOGA OR MACHINEID = MICROMOUSE THEN                   18408500
  LOADNUM( BB1(95), NOT(CORE(DOUBLE(%1421)))) << U-CODE BUG >>          18408600
  ELSE                                                                  18408700
   <<6>> MOVE BT(118) := "MICRO 3000XE";                                18452500
   <<7>> MOVE BT(118) := "  MICRO 3000";                                18452600
    <<5>>   LOAD'MM'MISC;                 <<MIGHTY MOUSE>>              18542000
    <<6>>   LOAD'MM'MISC;                 <<TIOGA>>                     18542500
    <<7>>   LOAD'MM'MISC;                 <<MICRO/3000>>                18543000
     MOVE DBUFFER(25):=                                        <<*1391>>19802000
        "****** STACKS ******";                                <<*1391>>19804000
     WORK2:=CORE(SCRATCH)-1;        <<NUMBER OF PCB INTRIES>>  <<*9327>>19846000
      dst'entry (index) := Core ( DOUBLE(Core(2D)) +           <<*1391>>22138000
            MOVE PBUF := " PORT DICTIONARY TABLE ";                     22716000
            MOVE PBUF:=" IOWAITPORT MAP TABLE ";                        22962000
   IF NOT DUPLICATIVE THEN PRINTLINE;                          <<*1391>>23236000
   BLANKBUF;                                                   <<*1737>>23237000
  PRINT(DBUFFER,0,0);                                          <<*1391>>23246050
  MOVE BBUF := "PROCESSING DUMP";                              <<*1391>>23246100
  PRINT(DBUFFER,-15,0);                                        <<*1391>>23246200
  BLANKBUF;                                                    <<*1391>>23246300
$EDIT VOID=23342000                                                     23248000
                                                               <<*1409>>23482020
<< CHECK THE SYSTEM VERSION.  THIS PROGRAM (DPAN4) WILL NOT >> <<*1409>>23482040
<< CORRECTLY FORMAT MPE III DUMPS.  THE BANK MARKER IS      >> <<*1409>>23482060
<< TO DETERMINE WHICH SYSTEM WAS DUMPED.  IF THE WRONG DUMP >> <<*1409>>23482080
<< IS TO BE PROCESSED, THEN IF DPAN4 IS BEING RUN FROM AN   >> <<*1409>>23482100
<< INTERACTIVE SESSION, A WARNING IS ISSUED AND THE PROGRAM >> <<*1409>>23482120
<< ATTEMPTS TO CONTINUE.  FOR NON-INTERACTIVE EXECUTIONS,   >> <<*1409>>23482140
<< THE PROGRAM WILL TERMINATE.                              >> <<*1409>>23482160
   IF CORE(%200001D)<=0 AND CORE(3D)<>0 AND PARM<>30 THEN      <<*1409>>23482180
   BEGIN                                                       <<*1409>>23482200
                                                               <<*1409>>23482220
      MOVE BBUF := "*** DUMP TO BE PROCESSED IS NOT AN ";      <<*1409>>23482240
      MOVE BBUF(35) := "MPE V/E SYSTEM!!";                     <<*1409>>23482260
      IF PARM = 10 THEN   << INTERACTIVE, WARN AND ATTEMPT  >> <<*1409>>23482280
      BEGIN               << TO CONTINUE.                   >> <<*1409>>23482300
                                                               <<*1409>>23482320
         PRINTIT;                                              <<*1409>>23482340
         MOVE BBUF :=                                          <<*1409>>23482360
            "DPAN2 SHOULD BE USED TO PROCESS MPE III SYSTEMS"; <<*1409>>23482380
         PRINTIT;                                              <<*1409>>23482400
         MOVE BBUF :=                                          <<*1409>>23482420
            "(MPE VERSION B.01.02 OR OLDER).  YOU MAY ";       <<*1409>>23482440
         PRINTIT;                                              <<*1409>>23482460
         MOVE BBUF :=                                          <<*1409>>23482480
            "CONTINUE EXECUTION TO FORMAT THOSE DUMP PARTS";   <<*1409>>23482500
         PRINTIT;                                              <<*1409>>23482520
         MOVE BBUF :=                                          <<*1409>>23482540
            "COMMON TO MPE IV AND EARLIER EXECUTIONS. PROCEED";<<*1409>>23482560
         PRINTIT;                                              <<*1409>>23482580
         MOVE BBUF :=                                          <<*1409>>23482600
            "AT YOUR OWN RISK.";                               <<*1409>>23482620
         PRINTIT;                                              <<*1409>>23482640
                                                               <<*1409>>23482660
      END                                                      <<*1409>>23482680
      ELSE                                                     <<*1409>>23482700
      BEGIN                << NOT INTERACTIVE -> ABORT.     >> <<*1409>>23482720
                                                               <<*1409>>23482740
         PRINTLINE;                                            <<*1409>>23482760
         MOVE BBUF :=                                          <<*1409>>23482780
           "USE DPAN2 TO PROCESS MPE III (MPE VERSION B.01.02";<<*1409>>23482800
         PRINTLINE;                                            <<*1409>>23482820
         MOVE BBUF :=                                          <<*1409>>23482840
            "OR OLDER) DUMPS. THIS DUMP PROCESSING IS ABORTED";<<*1409>>23482860
         PRINTLINE;                                            <<*1409>>23482880
         TERMINATE                                             <<*1409>>23482900
                                                               <<*1409>>23482920
      END;                                                     <<*1409>>23482940
                                                               <<*1409>>23482960
   END;                                                        <<*1409>>23482980
  IF NOT DUPLICATIVE THEN PRINT'LOADMAP;                       <<*1901>>23647000
