SUBROUTINE DECOM(MAP)
C
C     =U22LB.DECOM     BY G. BURGESS
C
      LOGICAL*1 SYS(32)
      INTEGER*2 MAP(358),ITB(6)
      REAL*8 TIME
      COMMON /CCA/ WORK(500)
      EQUIVALENCE(WORK(1),SYS(1))
      EQUIVALENCE(WORK(300),IDEC),(WORK(301),OUTDEC(1))
      EQUIVALENCE(WORK(404),NDEC),(WORK(405),OUTDC1(1))
      INTEGER EDR1
      COMMON /EDR/ EDR1
      INTEGER*2 OUTDEC(21),OUTDC1(27)
      INTEGER*2 TABLE(223)/ 100,101,102,103,104,105,106,107,108,109,110,
     *  111,112,113,114,115,300,301,302,303,304,305,306,307,308,309,310,
     *  311,312,313,314,315,316,317,318,319,320,321,322,323,324,325,326,
     *  327,328,329,117,118,119,500,501,502,503,504,505,506,507,508,509,
     *  510,511,512,513,514,121,122,123,124,200,201,202,203,204,205,206,
     *  207,208,209,126,127,128,129,400,401,402,403,404,405,406,407,408,
     *  409,410,411,412,413,414,415,416,417,418,419,420,421,422,423,424,
     *  425,426,427,428,429,430,431,432,433,434,435,436,437,438,439,440,
     *  441,442,443,444,445,446,447,448,449,450,451,452,453,454,455,456,
     *  457,458,459,131,132,133,134,135,136,137,138,139,140,141,142,143,
     *  144,145,330,331,332,333,334,335,336,337,338,339,340,341,342,343,
     *  344,345,346,347,348,349,350,351,352,353,354,355,356,357,358,359,
     *  147,148,149,600,601,602,603,604,605,606,607,608,609,610,611,612,
     *  613,614,151,152,153,154,210,211,212,213,214,215,216,217,218,219,
     *  156,157,158,159/
      INTEGER*2 INDEC(21)/620,621,622,623,624,625,626,627,
     *  660,661,662,663,664,665,666,667,668,669,670,671,672/
      INTEGER*2 INDEC1(27)/172,174,175,176,177,178,179,181,182,183,184,
     *  185,186,189,190,191,197,200,201,202,203,204,205,620,621,622,623/
      IF(.NOT.SYS(31))GO TO 110
      WRITE(6,100)
      WRITE(6,160) TABLE
  110 CONTINUE
      IDEC=21
      DO 50 I=1,IDEC
       DO 10 N=1,223
        M=N+134
        IF (MAP(M).EQ.INDEC(I))GO TO 20
   10  CONTINUE
       OUTDEC(I)=0
       GO TO 50
   20  CONTINUE
       OUTDEC(I)=TABLE(N)
   50 CONTINUE
      NDEC=27
      DO 60 I=1,NDEC
       DO 70 N=1,223
        M=N+134
        IF (MAP(M).EQ.INDEC1(I))GO TO 75
   70  CONTINUE
       OUTDC1(I)=0
       GO TO 60
   75  OUTDC1(I)=TABLE(N)
   60 CONTINUE
      CALL TSET(EDR1+8,IYR,TIME,DUM,DUM)
      CALL SETIME(IYR,TIME,ITB)
      WRITE(6,150) ITB
      IF (SYS(31)) WRITE(6,160) (MAP(I),I=135,357)
      RETURN
  100 FORMAT(' ','MJS77 ENGINEERING TELEMETRY FORMAT STRUCTURE')
 150  FORMAT(' RECIEVED NEW ENGINEERING DECOMUTATION MAP AT TIME '
     1      ,I2,I4,3(':',I2),'.',I3)
 160  FORMAT(20(1X,I4))
      END