$PAGE "DOMRJEDIT: Format MRJE DIT"                                      30664000
$CONTROL SEGMENT=TABLESMR                                               30666000
COMMENT                                                                 30668000
                                                                        30670000
Purpose:                                                                30672000
                                                                        30674000
Input parameters:                                                       30676000
                                                                        30678000
Output parameters:                                                      30680000
                                                                        30682000
Globals Referenced:                                                     30684000
                                                                        30686000
Globals Altered:                                                        30688000
                                                                        30690000
Data Structures:                                                        30692000
                                                                        30694000
Algorithm:                                                              30696000
                                                                        30698000
;                                                                       30700000
PROCEDURE DO'MRJE'DITS;                                       <<MRJE>>  30702000
BEGIN                                                         <<MRJE>>  30704000
                                                              <<MRJE>>  30706000
DOUBLE SCRATCH,DITPTR,LPDTBASE;                                         30708000
LOGICAL ARRAY SCR0(*)=SCRATCH;                                <<MRJE>>  30710000
LOGICAL ARRAY SCR1(*)=SCR0(1);                                <<MRJE>>  30712000
LOGICAL WORK1,SIZE,DTYPE;                                     <<MRJE>>  30714000
INTEGER INDX,LDEV,MAX'LDEV;                                   <<MRJE>>  30716000
                                                              <<MRJE>>  30718000
<< START OF PRINTING THE MRJE DITS >>                         <<MRJE>>  30720000
                                                              <<MRJE>>  30722000
<< TEST FOR MRJE INSTALLED >>                                 <<MRJE>>  30724000
                                                              <<MRJE>>  30726000
 SCRATCH := %1000D + %375D;  << ABS MEM FOR CONSMRJE PLABEL>> <<MRJE>>  30728000
 IF CORE( SCRATCH ) = 0 THEN RETURN;  << MRJE NOT INSTALLED>> <<MRJE>>  30730000
                                                              <<MRJE>>  30732000
<< GET HIGHEST LDEV >>                                        <<MRJE>>  30734000
LPDTBASE := DSTTOADDR(%15);                                             30736000
 MAX'LDEV := CORE( LPDTBASE);                                           30738000
                                                              <<MRJE>>  30740000
 FOR LDEV := 1 UNTIL MAX'LDEV DO                              <<MRJE>>  30742000
  BEGIN                                                       <<MRJE>>  30744000
                                                              <<MRJE>>  30746000
   WORK1:=CORE(LPDTBASE+DOUBLE(LDEV*4));                                30748000
   IF INTEGER(WORK1) <0 THEN                                  <<MRJE>>  30750000
      GO NOT'MRJE'DEVICE;  << VIRTUAL DEV >>                  <<MRJE>>  30752000
  DITPTR:=DOUBLE(CORE(LPDTBASE+DOUBLE(LDEV*4+2)))+%1000D;               30754000
  SCRATCH:=DOUBLE(CORE(DITPTR+4D))+%1000D;                              30756000
   WORK1:=CORE(SCRATCH+5D);<<DLT WORD 5/DITSIZE/DEVTYPE>>     <<MRJE>>  30758000
   SIZE:=WORK1.(0:8);                                         <<MRJE>>  30760000
   DTYPE:=WORK1.(8:8);                                        <<MRJE>>  30762000
   IF DTYPE <> 22 THEN GO NOT'MRJE'DEVICE;                    <<MRJE>>  30764000
   MOVE BBUF := "(MRJE DEVICE)";                               <<01791>>30766000
   PRINTLINE;                                                 <<MRJE>>  30768000
   SKIPLINES(1);                                              <<MRJE>>  30770000
   MOVE BBUF(12):="UNIT";                                     <<MRJE>>  30772000
   @PBUF:=@BBUF+17;                                           <<MRJE>>  30774000
   WORK1:=CORE(DITPTR+10D);                                   <<MRJE>>  30776000
   WORK1:=WORK1.(8:8);                                        <<MRJE>>  30778000
   ASCII(WORK1,10,PBUF);                                      <<MRJE>>  30780000
   @PBUF:=@BBUF+32;                                           <<MRJE>>  30782000
   MOVE BBUF(20):="LOGICAL DEV";                              <<MRJE>>  30784000
   ASCII(LDEV,10,PBUF);                                       <<MRJE>>  30786000
   MOVE BBUF(37):="FLAGS =";                                  <<MRJE>>  30788000
   @PBUF:=@BBUF+45;                                           <<MRJE>>  30790000
   WORK1:=CORE(DITPTR);                                       <<MRJE>>  30792000
   PUTNUM(WORK1);<<FLAGS>>                                    <<MRJE>>  30794000
   MOVE BBUF(55):="NEXT DIT =";                               <<MRJE>>  30796000
   WORK1:=CORE(DITPTR+1D);                                    <<MRJE>>  30798000
   @PBUF:=@BBUF+66;                                           <<MRJE>>  30800000
   PUTNUM(WORK1);<<NEXT DIT>>                                 <<MRJE>>  30802000
   MOVE BBUF(74):="DLTP =";                                   <<MRJE>>  30804000
   WORK1:=CORE(DITPTR+4D);                                    <<MRJE>>  30806000
   @PBUF:=@BBUF+81;                                           <<MRJE>>  30808000
   PUTNUM(WORK1);<<DLTP>>                                     <<MRJE>>  30810000
   MOVE BBUF(104):="IOQP =";                                  <<MRJE>>  30812000
   WORK1:=CORE(DITPTR+2D);                                    <<MRJE>>  30814000
   @PBUF:=@BBUF+111;                                          <<MRJE>>  30816000
   PUTNUM(WORK1);<<IOQP>>                                     <<MRJE>>  30818000
   PRINTLINE;                                                 <<MRJE>>  30820000
   SKIPLINES(1);                                              <<MRJE>>  30822000
   IF SIZE=0 THEN RETURN;                                     <<MRJE>>  30824000
   SCRATCH:=DITPTR-%1000D;                                    <<MRJE>>  30826000
                                                               <<03752>>30828000
<< NOW PRINT THE ACTUAL DIT >>                                 <<03752>>30830000
   PRINT'OCTAL'DIT( DITPTR, SCR1, INTEGER( SIZE ));            <<03752>>30832000
                                                               <<03752>>30834000
   SKIPLINES(2);                                              <<MRJE>>  30836000
 NOT'MRJE'DEVICE:                                             <<MRJE>>  30838000
   END;   << END OF LDEV FOR-LOOP >>                          <<MRJE>>  30840000
                                                              <<MRJE>>  30842000
 BBUF:=" ";                                                   <<MRJE>>  30844000
 MOVE BBUF(1):=BBUF,(40);                                     <<MRJE>>  30846000
END  << DO'MRJE'DIT >>;                                       <<MRJE>>  30848000
