         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
    TMAGTAPE  = 24,        <<MAG TAPE TYPE>>                   <<D9109>>00387000
        NO'DST'MSG=146,     <<SYSTEM CATALOG MESSAGE #>>       <<D9240>>05381000
        SYS'MSG'CAT'SET=1,  <<SYSTEM CATALOG MESSAGE SET #>>   <<D9240>>05382000
   DOUBLE ARRAY D'SEGID(*)=DST;                                <<D9240>>05485000
  IOUNFREEZE'(D'SEGID);                                        <<D9240>>05560000
  SETSYSDB;                                                    <<D9240>>05565000
                                                               <<D9240>>05611000
                                                               <<D9240>>05612000
                                                               <<D9240>>05613000
                                                               <<D9240>>05614000
                                                               <<D9240>>05771000
                                                               <<D9240>>05772000
                                                               <<D9240>>05773000
                                                               <<D9240>>05774000
                                                               <<D9240>>05846000
                                                               <<D9240>>05847000
                                                               <<D9240>>05848000
                                                               <<D9240>>05849000
  IF J = 0  THEN << NO DATA SEGMENT WAS OBTAINED>>             <<D9240>>05926000
    BEGIN                                                      <<D9240>>05927000
       IOMESSAGE(SYS'MSG'CAT'SET,NO'DST'MSG,,,,,,,CONSOLE);    <<D9240>>05928000
       RESETDB(-1);                                            <<D9240>>05929000
    END                                                        <<D9240>>05930000
  ELSE           << DATA SEGMENT WAS OBTAINED>>                <<D9240>>05931000
    BEGIN                                                      <<D9240>>05932000
      RESETDB(-1);                                             <<D9240>>05933000
                                                               <<D9240>>05950000
                                                               <<D9240>>05955000
    IOFREEZE'(D'SEGID);                                        <<D9240>>05995000
    BANK := absolute(I+2);                                     <<D9240>>06020000
    end;           << J, DATA SEGMENT, NOT EQUAL 0>>           <<D9240>>06060000
$EDIT VOID=06325000                                            << 9477>>06320000
COMMENT                                                        << 9477>>06320250
************************************************************** << 9477>>06320500
* THE FOLLOWING EQUATES ARE USED IN BOTH NRIO AND MESSAGE    * << 9477>>06320750
* CHANGES MUST BE MADE IN BOTH ROUTINES.                     * << 9477>>06321000
************************************************************** << 9477>>06321250
                                                               << 9477>>06321500
IO MESSAGE DST HEADER ENTRY FORMAT:                            << 9477>>06321750
                                                               << 9477>>06322000
            |----------------------------------------|         << 9477>>06322250
ENTRY 0+ 0  |      NUMBER OF CONFIGURED ENTRIES      |         << 9477>>06322500
            |----------------------------------------|         << 9477>>06322750
       + 1  |         ENTRY LENGTH IN WORDS          |         << 9477>>06323000
            |----------------------------------------|         << 9477>>06323250
       + 2  |      NUMBER OF UNASSIGNED ENTRIES      |         << 9477>>06323500
            |----------------------------------------|         << 9477>>06323750
       + 3  | TABLE RELATIVE INDEX TO 1ST UNASSIGNED |         << 9477>>06324000
            |----------------------------------------|         << 9477>>06324250
       + 4  | TABLE RELATIVE INDEX TO LAST FREE ENTRY|         << 9477>>06324500
            |----------------------------------------|         << 9477>>06324750
                                                               << 9477>>06325000
;                                                              << 9477>>06325250
EQUATE                                                         << 9477>>06325500
  NUM'ENTRIES =0,  !# OF CONFIGURED ENTRIES                    << 9477>>06325750
  ENTRY'LENGTH=1,  !ENTRY LENGTH IN WORDS                      << 9477>>06326000
  NUM'FREE    =2,  !# OF UNASSIGNED ENTRIES                    << 9477>>06326250
  FIRST'FREE  =3,  !TABLE RELATIVE INDEX TO 1ST UNASSIGNED     << 9477>>06326500
  LAST'FREE   =4,  !TABLE RELATIVE INDEX TO LAST FREE ENTRY    << 9477>>06326750
  HEADER'SIZE =LAST'FREE+1,  !SIZE OF MESSAGE TABLE HEADER     << 9477>>06327000
                                                               << 9477>>06327250
  NUM'MSG'BUFS=32; !NUMBER OF MESSAGE BUFFERS IN MSG DST       << 9477>>06327500
TOS := @BUF'HDR;                                               << 9477>>06655000
TOS := IOMSGDST;                                               << 9477>>06655250
TOS := 0;                                                      << 9477>>06660000
TOS := HEADER'SIZE;                                            << 9477>>06660250
if BUF'HDR(LAST'FREE) = 0 then                                 << 9477>>06680000
  BUF'HDR(FIRST'FREE):=BUF'HDR(LAST'FREE):=                    << 9477>>06690000
    DST'ARRAY(CURRENT'INDEX);                                  << 9477>>06690250
  TOS := IOMSGDST;                                             << 9477>>06715000
  TOS := BUF'HDR(LAST'FREE);                                   << 9477>>06715250
  TOS := @DST'ARRAY(CURRENT'INDEX);                            << 9477>>06720000
  TOS := 1;                                                    << 9477>>06720250
  BUF'HDR(LAST'FREE) := DST'ARRAY(CURRENT'INDEX);              << 9477>>06740000
                                                               << 9477>>06745250
<< BUMP NUMBER OF AVAILABLE ENTRIES BY 1>>                     << 9477>>06745500
BUF'HDR(NUM'FREE):=BUF'HDR(NUM'FREE)+1;                        << 9477>>06745750
TOS := IOMSGDST;                                               << 9477>>06760000
TOS := 0;                                                      << 9477>>06760250
TOS := @BUF'HDR;                                               << 9477>>06765000
TOS := HEADER'SIZE;                                            << 9477>>06765250
BUF'HDR := 0;                                                  << 9477>>06775000
                                                               << 9477>>06775250
TOS := IOMSGDST;                                               << 9477>>06775500
TOS := BUF'HDR(LAST'FREE);                                     << 9477>>06775750
TOS := @BUF'HDR;                                               << 9477>>06776000
TOS := 1;                                                      << 9477>>06776250
TOS := @BUF'HDR;                                               << 9477>>07005000
TOS := IOMSGDST;                                               << 9477>>07005250
TOS := 0;                                                      << 9477>>07010000
TOS := HEADER'SIZE;                                            << 9477>>07010250
IF BUF'HDR(NUM'FREE) <2 THEN                                   << 9477>>07030000
<<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@>><<D9109>>08802500
   VERSION = %0014;  <<LEFT BYTE - UPDATE, RIGHT BYTE - FIX>>           08805000
<<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@>><<D9109>>08807500
   FN,BLOCKSIZE,LOGDEVICE,DEVICETYPE,RECSIZE,FILECODE,                  10105000
   NUMEXTENT,BLOCKFACTOR;                                               10110000
$EDIT VOID=14640000                                            <<D9109>>14640000
      IF LDTDEVICE.(10:6)=TMAGTAPE THEN                        <<D9109>>14671000
         SP0.(9:4):=DEVINFO(3).(13:3)                          <<D9109>>14672000
      ELSE                                                     <<D9109>>14673000
         SP0.(9:4):=DEVINFO(3).(12:4);                         <<D9109>>14674000
              DEVTIPE,LDNFORGETDEVINFO,,                                14830000
