META FORTRAN  X08.09		21-OCT-87	02:17:06	PAGE      1
SPECOMDMP        

    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C FILE NAME SPEDMP
    	C
0001	      PROGRAM SPEDMP
    	C
    	C       PROGRAMMET DUMPAR SPECOM P] PB:[200,142]SPECOM.DMP
    	C       F\RST KOPIERAS SPECOM TILL EN INTERN BUFFER
    	C       SEDAN S[TTES FLAGGA 46
    	C       SEDAN DUMPAS KOPIAN TILL FILEN
    	C
    	C
    	C       B-E TAPPER      85-10-19
    	C
    	C
0002	      INTEGER COMBUF(3842)            <HELA SPECOM
0003	      COMMON/SPECOM/COMBUF
    	C
0004	      INTEGER INTBUF(3842)            <INTERNAL BUFFER FOR SPECOM
    	C
0005	      INTEGER SPICOM(170)     <0-523
0006	      EQUIVALENCE(INTBUF(1),SPICOM(1))
    	C       SPECOM 000000-R
    	C
0007	      INTEGER QELMTS          <524-525
0008	      EQUIVALENCE(INTBUF(171),QELMTS)
    	C       QELMTS 000524-R
    	C
0009	      INTEGER QLENGT          <526-527
0010	      EQUIVALENCE(INTBUF(172),QLENGT)
    	C       QLENGT 000526-R
    	C
0011	      INTEGER QHHEAD(3)       <530-535
0012	      EQUIVALENCE(INTBUF(173),QHHEAD(1))
    	C       QHHEAD 000530-R
    	C
0013	      INTEGER QLHEAD(3)       <536-543
0014	      EQUIVALENCE(INTBUF(176),QLHEAD(1))
    	C       QLHEAD 000536-R
META FORTRAN  X08.09		21-OCT-87	02:17:06	PAGE      2
SPECOMDMP        

    	C
0015	      INTEGER QUECOM(1764)    <544-7453
0016	      EQUIVALENCE(INTBUF(179),QUECOM(1))
    	C       QUECOM 000544-R
    	C
0017	      INTEGER QPRES(36)       <7454-7563
0018	      EQUIVALENCE(INTBUF(1943),QPRES(1))
    	C       QPRES  007454-R
    	C
0019	      INTEGER UBABCO(76)      <7564-10013
0020	      EQUIVALENCE(INTBUF(1979),UBABCO(1))
    	C       UBABCO 007564-R 
    	C
0021	      INTEGER SCARCO(26)      <10014-10077
0022	      EQUIVALENCE(INTBUF(2055),SCARCO(1))
    	C       SCARCO 010014-R
    	C
0023	      INTEGER LATECO(103)     <10100-10415
0024	      EQUIVALENCE(INTBUF(2081),LATECO(1))
    	C       LATECO 010100-R
    	C
0025	      INTEGER NODUCO(113)     <10416-10757
0026	      EQUIVALENCE(INTBUF(2184),NODUCO(1))
    	C       NODUCO 010416-R
    	C
0027	      INTEGER BUSCO(61)       <10760-11151
0028	      EQUIVALENCE(INTBUF(2297),BUSCO(1))
    	C       BUSCO  010760-R
    	C
0029	      INTEGER XTRCO(151)      <11152-11627
0030	      EQUIVALENCE(INTBUF(2358),XTRCO(1))
    	C       XTRCO  011152-R
    	C
0031	      INTEGER OPRCO(189)      <11630-12421
0032	      EQUIVALENCE(INTBUF(2509),OPRCO(1))
    	C       OPRCO  011630-R
    	C
0033	      INTEGER STACO(9)        <12422-12443
META FORTRAN  X08.09		21-OCT-87	02:17:06	PAGE      3
SPECOMDMP        

0034	      EQUIVALENCE(INTBUF(2698),STACO(1))
    	C       STACO  012422-R 
    	C
0035	      INTEGER RADCO(1110)     <12444-16717
0036	      EQUIVALENCE(INTBUF(2707),RADCO(1))
    	C       RADCO  012444-R
    	C
0037	      INTEGER NQDCO(3)        <16720-16725
0038	      EQUIVALENCE(INTBUF(3817),NQDCO(1))
    	C       NQDCO  016720-R
    	C
0039	      INTEGER RESCO(20)       <16726-16775
0040	      EQUIVALENCE(INTBUF(3820),RESCO(1))
    	C       RESCO  016726-R
    	C
0041	      INTEGER PSTCO(3)        <16776-17003
0042	      EQUIVALENCE(INTBUF(3840),PSTCO(1))
    	C       PSTCO  016776-R
    	C
    	C
    	C
    	C       Task  image  size  : 3872. words
    	C       Task address limits: 000000 017003
    	C       R/W mem  limits: 000000 017003 017004 07684.
    	C
    	C SPECOM:(RW,D,GBL,REL,OVR) 000000 017004 07684.
    	C                           000000 017004 07684. SPECOM DATOPROLB.OLB;12
    	C       SPECOM 000000-R
    	C       QELMTS 000524-R
    	C       QLENGT 000526-R
    	C       QHHEAD 000530-R
    	C       QLHEAD 000536-R
    	C       QUECOM 000544-R
    	C       QPRES  007454-R
    	C       UBABCO 007564-R 
    	C       SCARCO 010014-R
    	C       LATECO 010100-R
    	C       NODUCO 010416-R
META FORTRAN  X08.09		21-OCT-87	02:17:06	PAGE      4
SPECOMDMP        

    	C       BUSCO  010760-R
    	C       XTRCO  011152-R
    	C       OPRCO  011630-R
    	C       STACO  012422-R 
    	C       RADCO  012444-R
    	C       NQDCO  016720-R
    	C       RESCO  016726-R
    	C       PSTCO  016776-R
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
    	C       COPYTEXTER
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
    	C       SPICOM TOTAL 170. WORDS, REPT 5., EACH 34. WORDS
    	C
*	COPY TEXT FILE:    DR0:[361,15]SPICOM.CPY;5    19-OCT-85 17:14
    	C& SC:[361,15]SPICOM.CPY &=A
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C*      END OF COPY TEXT FILE
0072	      EQUIVALENCE(ASPIPT(1),SPICOM(1))
    	C
*	COPY TEXT FILE:    DR0:[361,15]SPICOM.CPY;5    19-OCT-85 17:14
    	C& SC:[361,15]SPICOM.CPY &=B
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C*      END OF COPY TEXT FILE
0102	      EQUIVALENCE(BSPIPT(1),SPICOM(35))
    	C
*	COPY TEXT FILE:    DR0:[361,15]SPICOM.CPY;5    19-OCT-85 17:14
    	C& SC:[361,15]SPICOM.CPY &=C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C*      END OF COPY TEXT FILE
0132	      EQUIVALENCE(CSPIPT(1),SPICOM(69))
    	C
*	COPY TEXT FILE:    DR0:[361,15]SPICOM.CPY;5    19-OCT-85 17:14
    	C& SC:[361,15]SPICOM.CPY &=D
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
META FORTRAN  X08.09		21-OCT-87	02:17:06	PAGE      5
SPECOMDMP        

    	C*      END OF COPY TEXT FILE
0162	      EQUIVALENCE(DSPIPT(1),SPICOM(103))
    	C
*	COPY TEXT FILE:    DR0:[361,15]SPICOM.CPY;5    19-OCT-85 17:14
    	C& SC:[361,15]SPICOM.CPY &=E
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C*      END OF COPY TEXT FILE
0192	      EQUIVALENCE(ESPIPT(1),SPICOM(137))
    	C
*	COPY TEXT FILE:    DR0:[361,15]SPICOM.CPY;5    19-OCT-85 17:14
    	C& SC:[361,15]SPICOM.CPY &=X
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C*      END OF COPY TEXT FILE
    	C
    	C
    	C
    	C
    	C       OPRCOM TOTAL 189. WORDS, REPT 9., EACH 21. WORDS
    	C
    	C
    	C
*	COPY TEXT FILE:    DR0:[361,15]OPRCOM.CPY;5    19-OCT-85 17:25
    	C& SC:[361,15]OPRCOM.CPY &=F
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C*      END OF COPY TEXT FILE
0235	      EQUIVALENCE(FOPRPT(1),OPRCO(1))
    	C
*	COPY TEXT FILE:    DR0:[361,15]OPRCOM.CPY;5    19-OCT-85 17:25
    	C& SC:[361,15]OPRCOM.CPY &=G
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C*      END OF COPY TEXT FILE
0249	      EQUIVALENCE(GOPRPT(1),OPRCO(22))
    	C
*	COPY TEXT FILE:    DR0:[361,15]OPRCOM.CPY;5    19-OCT-85 17:25
    	C& SC:[361,15]OPRCOM.CPY &=H
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C*      END OF COPY TEXT FILE
0263	      EQUIVALENCE(HOPRPT(1),OPRCO(43))
META FORTRAN  X08.09		21-OCT-87	02:17:06	PAGE      6
SPECOMDMP        

    	C
*	COPY TEXT FILE:    DR0:[361,15]OPRCOM.CPY;5    19-OCT-85 17:25
    	C& SC:[361,15]OPRCOM.CPY &=I
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C*      END OF COPY TEXT FILE
0277	      EQUIVALENCE(IOPRPT(1),OPRCO(64))
    	C
*	COPY TEXT FILE:    DR0:[361,15]OPRCOM.CPY;5    19-OCT-85 17:25
    	C& SC:[361,15]OPRCOM.CPY &=J
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C*      END OF COPY TEXT FILE
0291	      EQUIVALENCE(JOPRPT(1),OPRCO(85))
    	C
*	COPY TEXT FILE:    DR0:[361,15]OPRCOM.CPY;5    19-OCT-85 17:25
    	C& SC:[361,15]OPRCOM.CPY &=K
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C*      END OF COPY TEXT FILE
0305	      EQUIVALENCE(KOPRPT(1),OPRCO(106))
    	C
*	COPY TEXT FILE:    DR0:[361,15]OPRCOM.CPY;5    19-OCT-85 17:25
    	C& SC:[361,15]OPRCOM.CPY &=L
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C*      END OF COPY TEXT FILE
0319	      EQUIVALENCE(LOPRPT(1),OPRCO(127))
    	C
*	COPY TEXT FILE:    DR0:[361,15]OPRCOM.CPY;5    19-OCT-85 17:25
    	C& SC:[361,15]OPRCOM.CPY &=M
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C*      END OF COPY TEXT FILE
0333	      EQUIVALENCE(MOPRPT(1),OPRCO(148))
    	C
*	COPY TEXT FILE:    DR0:[361,15]OPRCOM.CPY;5    19-OCT-85 17:25
    	C& SC:[361,15]OPRCOM.CPY &=N
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C*      END OF COPY TEXT FILE
0347	      EQUIVALENCE(NOPRPT(1),OPRCO(169))
    	C
    	C
META FORTRAN  X08.09		21-OCT-87	02:17:06	PAGE      7
SPECOMDMP        

*	COPY TEXT FILE:    DR0:[361,15]OPRCOM.CPY;5    19-OCT-85 17:25
    	C& SC:[361,15]OPRCOM.CPY &=X
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C*      END OF COPY TEXT FILE
    	C
    	C
    	C       OPRCOM TOTAL 1110. WORDS, REPT 15., EACH 74. WORDS
    	C
    	C
    	C
*	COPY TEXT FILE:    DR0:[361,15]RADCOM.CPY;5    19-OCT-85 17:25
    	C& SC:[361,15]RADCOM.CPY &=A
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C*      END OF COPY TEXT FILE
0378	      EQUIVALENCE(ARADPT(1),RADCO(1))
    	C
*	COPY TEXT FILE:    DR0:[361,15]RADCOM.CPY;5    19-OCT-85 17:25
    	C& SC:[361,15]RADCOM.CPY &=B
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C*      END OF COPY TEXT FILE
0396	      EQUIVALENCE(BRADPT(1),RADCO(75))
    	C
*	COPY TEXT FILE:    DR0:[361,15]RADCOM.CPY;5    19-OCT-85 17:25
    	C& SC:[361,15]RADCOM.CPY &=C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C*      END OF COPY TEXT FILE
0414	      EQUIVALENCE(CRADPT(1),RADCO(149))
    	C
*	COPY TEXT FILE:    DR0:[361,15]RADCOM.CPY;5    19-OCT-85 17:25
    	C& SC:[361,15]RADCOM.CPY &=D
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C*      END OF COPY TEXT FILE
0432	      EQUIVALENCE(DRADPT(1),RADCO(223))
    	C
*	COPY TEXT FILE:    DR0:[361,15]RADCOM.CPY;5    19-OCT-85 17:25
    	C& SC:[361,15]RADCOM.CPY &=E
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C*      END OF COPY TEXT FILE
META FORTRAN  X08.09		21-OCT-87	02:17:06	PAGE      8
SPECOMDMP        

0450	      EQUIVALENCE(ERADPT(1),RADCO(297))
    	C
*	COPY TEXT FILE:    DR0:[361,15]RADCOM.CPY;5    19-OCT-85 17:25
    	C& SC:[361,15]RADCOM.CPY &=F
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C*      END OF COPY TEXT FILE
0468	      EQUIVALENCE(FRADPT(1),RADCO(371))
    	C
*	COPY TEXT FILE:    DR0:[361,15]RADCOM.CPY;5    19-OCT-85 17:25
    	C& SC:[361,15]RADCOM.CPY &=G
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C*      END OF COPY TEXT FILE
0486	      EQUIVALENCE(GRADPT(1),RADCO(445))
    	C
*	COPY TEXT FILE:    DR0:[361,15]RADCOM.CPY;5    19-OCT-85 17:25
    	C& SC:[361,15]RADCOM.CPY &=H
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C*      END OF COPY TEXT FILE
0504	      EQUIVALENCE(HRADPT(1),RADCO(519))
    	C
*	COPY TEXT FILE:    DR0:[361,15]RADCOM.CPY;5    19-OCT-85 17:25
    	C& SC:[361,15]RADCOM.CPY &=I
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C*      END OF COPY TEXT FILE
0522	      EQUIVALENCE(IRADPT(1),RADCO(593))
    	C
*	COPY TEXT FILE:    DR0:[361,15]RADCOM.CPY;5    19-OCT-85 17:25
    	C& SC:[361,15]RADCOM.CPY &=J
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C*      END OF COPY TEXT FILE
0540	      EQUIVALENCE(JRADPT(1),RADCO(667))
    	C
*	COPY TEXT FILE:    DR0:[361,15]RADCOM.CPY;5    19-OCT-85 17:25
    	C& SC:[361,15]RADCOM.CPY &=K
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C*      END OF COPY TEXT FILE
0558	      EQUIVALENCE(KRADPT(1),RADCO(741))
    	C
META FORTRAN  X08.09		21-OCT-87	02:17:06	PAGE      9
SPECOMDMP        

*	COPY TEXT FILE:    DR0:[361,15]RADCOM.CPY;5    19-OCT-85 17:25
    	C& SC:[361,15]RADCOM.CPY &=L
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C*      END OF COPY TEXT FILE
0576	      EQUIVALENCE(LRADPT(1),RADCO(815))
    	C
*	COPY TEXT FILE:    DR0:[361,15]RADCOM.CPY;5    19-OCT-85 17:25
    	C& SC:[361,15]RADCOM.CPY &=M
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C*      END OF COPY TEXT FILE
0594	      EQUIVALENCE(MRADPT(1),RADCO(889))
    	C
*	COPY TEXT FILE:    DR0:[361,15]RADCOM.CPY;5    19-OCT-85 17:25
    	C& SC:[361,15]RADCOM.CPY &=N
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C*      END OF COPY TEXT FILE
0612	      EQUIVALENCE(NRADPT(1),RADCO(963))
    	C
*	COPY TEXT FILE:    DR0:[361,15]RADCOM.CPY;5    19-OCT-85 17:25
    	C& SC:[361,15]RADCOM.CPY &=O
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C*      END OF COPY TEXT FILE
0630	      EQUIVALENCE(ORADPT(1),RADCO(1037))
    	C
*	COPY TEXT FILE:    DR0:[361,15]RADCOM.CPY;5    19-OCT-85 17:25
    	C& SC:[361,15]RADCOM.CPY &=X
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C*      END OF COPY TEXT FILE
    	C
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
    	C       INTERNA VARIABLER
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
0648	      INTEGER YEA
0649	      INTEGER MON
META FORTRAN  X08.09		21-OCT-87	02:17:06	PAGE     10
SPECOMDMP        

0650	      INTEGER DAT
0651	      BYTE    DATBUF(6)               <DATE BUFFER
0652	      INTEGER IDATUM(2)
0653	      BYTE    TIMBUF(8)               <TIME BUFFER
    	C
0654	      INTEGER SPEDUMPFLAG
0655	      DATA    SPEDUMPFLAG/47/         <ACCORDING TO [361,10]FLAGCON.PAS
    	C
0656	      INTEGER RECNUM
    	C
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
    	C       STYRSEKTION
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
    	C
0657	      CALL MOVE01(7684,COMBUF,INTBUF)         <COPY COMMON (MOVB)
0658	      CALL SETEF(SPEDUMPFLAG)                 <COPY DONE SET SPEDUMPFLAG
    	C       
0659	      OPEN(UNIT=6,NAME='PB:[200,142]SPECOM.DMP',TYPE='NEW')
    	C
0660	      CALL IDATE(MON,DAT,YEA)
    	C
0661	      IDATUM(1)=YEA
0662	      IDATUM(2)=100*MON+DAT
0663	      CALL DECUT2(6,0,IDATUM,DATBUF)
    	C
0664	      CALL TIME(TIMBUF)
    	C
    	C
0665	      WRITE(6,10)DATBUF,TIMBUF
0666	10    FORMAT('1DUMP OF SPECOM ',6A1,' Kl. ',8A1//)
    	C
    	C
0667	      'DOLOOP' RECNUM=1,5
    	C
META FORTRAN  X08.09		21-OCT-87	02:17:06	PAGE     11
SPECOMDMP        

0668	      .   'CASE' RECNUM
0669	      .   'WHEN' 1
0671	      .   .   CALL MOVE01(68,ASPIPT,XSPIPT)
0673	      .   'WHEN' 2
0675	      .   .   CALL MOVE01(68,BSPIPT,XSPIPT)
0677	      .   'WHEN' 3
0679	      .   .   CALL MOVE01(68,CSPIPT,XSPIPT)
0681	      .   'WHEN' 4
0683	      .   .   CALL MOVE01(68,DSPIPT,XSPIPT)
0685	      .   'WHEN' 5
0687	      .   .   CALL MOVE01(68,ESPIPT,XSPIPT)
0689	      .   'ENDCASE'
    	C
    	C
0691	      .   'PERFORM' SPIDMP
    	C
0694	      'ENDLOOP'
    	C
    	C
0695	      WRITE(6,200)QELMTS
0696	200   FORMAT(1X/1X,'DUMP OF QELMTS , LEN IS 1 WORD'/
    	     *1X,(10(I7,1X)/))
    	C       QELMTS 000524-R
    	C
0697	      WRITE(6,300)QLENGT
0698	300   FORMAT(1X/1X,'DUMP OF QLENGT , LEN IS 1 WORDS WORD'/
    	     *1X,(10(I7,1X)/))
    	C       QLENGT 000526-R
    	C
0699	      WRITE(6,400)QHHEAD
0700	400   FORMAT(1X/1X,'DUMP OF QHHEAD , LEN IS 3 WORDS'/
    	     *1X,(10(I7,1X)/))
    	C       QHHEAD 000530-R
    	C
0701	      WRITE(6,500)QLHEAD
0702	500   FORMAT(1X/1X,'DUMP OF QLHEAD , LEN IS 3 WORDS'/
    	     *1X,(10(I7,1X)/))
    	C       QLHEAD 000536-R
META FORTRAN  X08.09		21-OCT-87	02:17:06	PAGE     12
SPECOMDMP        

    	C
0703	      WRITE(6,600)QUECOM
0704	600   FORMAT(1X/1X,'DUMP OF QUECOM , LEN IS 1764 WORDS'/
    	     *1X,(10(I7,1X)/))
    	C       QUECOM 000544-R
    	C
0705	      WRITE(6,700)QPRES
0706	700   FORMAT(1X/1X,'DUMP OF QPRES , LEN IS 36 WORDS'/
    	     *1X,(10(I7,1X)/))
    	C       QPRES  007454-R
    	C
0707	      WRITE(6,800)UBABCO
0708	800   FORMAT(1X/1X,'DUMP OF UBABCO , LEN IS 76 WORDS'/
    	     *1X,(10(I7,1X)/))
    	C       UBABCO 007564-R 
    	C
0709	      WRITE(6,900)SCARCO
0710	900   FORMAT(1X/1X,'DUMP OF SCARCO , LEN IS 26 WORDS'/
    	     *1X,(10(I7,1X)/))
    	C       SCARCO 010014-R
    	C
0711	      WRITE(6,1000)LATECO
0712	1000  FORMAT(1X/1X,'DUMP OF LATECO , LEN IS 103 WORDS'/
    	     *1X,(10(I7,1X)/))
    	C       LATECO 010100-R
    	C
0713	      WRITE(6,1100)NODUCO
0714	1100  FORMAT(1X/1X,'DUMP OF NODUCO , LEN IS 113 WORDS'/
    	     *1X,(10(I7,1X)/))
    	C       NODUCO 010416-R
    	C
0715	      WRITE(6,1200)BUSCO
0716	1200  FORMAT(1X/1X,'DUMP OF BUSCO , LEN IS 61 WORDS'/
    	     *1X,(10(I7,1X)/))
    	C       BUSCO  010760-R
    	C
0717	      WRITE(6,1300)XTRCO
0718	1300  FORMAT(1X/1X,'DUMP OF XTRCO , LEN IS 151 WORDS'/
META FORTRAN  X08.09		21-OCT-87	02:17:06	PAGE     13
SPECOMDMP        

    	     *1X,(10(I7,1X)/))
    	C       XTRCO  011152-R
    	C
    	C
0719	      'DOLOOP' RECNUM=1,9
    	C
    	C
0720	      .   'CASE' RECNUM
0721	      .   'WHEN' 1
0723	      .   .   CALL MOVE01(42,FOPRPT,XOPRPT)
0725	      .   'WHEN' 2
0727	      .   .   CALL MOVE01(42,GOPRPT,XOPRPT)
0729	      .   'WHEN' 3
0731	      .   .   CALL MOVE01(42,HOPRPT,XOPRPT)
0733	      .   'WHEN' 4
0735	      .   .   CALL MOVE01(42,IOPRPT,XOPRPT)
0737	      .   'WHEN' 5
0739	      .   .   CALL MOVE01(42,JOPRPT,XOPRPT)
0741	      .   'WHEN' 6
0743	      .   .   CALL MOVE01(42,KOPRPT,XOPRPT)
0745	      .   'WHEN' 7
0747	      .   .   CALL MOVE01(42,LOPRPT,XOPRPT)
0749	      .   'WHEN' 8
0751	      .   .   CALL MOVE01(42,MOPRPT,XOPRPT)
0753	      .   'WHEN' 9
0755	      .   .   CALL MOVE01(42,NOPRPT,XOPRPT)
0757	      .   'ENDCASE'
    	C
    	C
    	C
0759	      .   'PERFORM' OPRDMP
    	C
0762	      'ENDLOOP'
    	C
    	C
    	C
0763	      WRITE(6,1500)STACO
0764	1500  FORMAT(1X/1X,'DUMP OF STACO , LEN IS 9 WORDS'/
META FORTRAN  X08.09		21-OCT-87	02:17:06	PAGE     14
SPECOMDMP        

    	     *1X,(10(I7,1X)/))
    	C       STACO  012422-R 
    	C
    	C
0765	      'DOLOOP' RECNUM=1,15
    	C
    	C
0766	      .   'CASE' RECNUM
0767	      .   'WHEN' 1
0769	      .   .   CALL MOVE01(148,ARADPT,XRADPT)
0771	      .   'WHEN' 2
0773	      .   .   CALL MOVE01(148,BRADPT,XRADPT)
0775	      .   'WHEN' 3
0777	      .   .   CALL MOVE01(148,CRADPT,XRADPT)
0779	      .   'WHEN' 4
0781	      .   .   CALL MOVE01(148,DRADPT,XRADPT)
0783	      .   'WHEN' 5
0785	      .   .   CALL MOVE01(148,ERADPT,XRADPT)
0787	      .   'WHEN' 6
0789	      .   .   CALL MOVE01(148,FRADPT,XRADPT)
0791	      .   'WHEN' 7
0793	      .   .   CALL MOVE01(148,GRADPT,XRADPT)
0795	      .   'WHEN' 8
0797	      .   .   CALL MOVE01(148,HRADPT,XRADPT)
0799	      .   'WHEN' 9
0801	      .   .   CALL MOVE01(148,IRADPT,XRADPT)
0803	      .   'WHEN' 10
0805	      .   .   CALL MOVE01(148,JRADPT,XRADPT)
0807	      .   'WHEN' 11
0809	      .   .   CALL MOVE01(148,KRADPT,XRADPT)
0811	      .   'WHEN' 12
0813	      .   .   CALL MOVE01(148,LRADPT,XRADPT)
0815	      .   'WHEN' 13
0817	      .   .   CALL MOVE01(148,MRADPT,XRADPT)
0819	      .   'WHEN' 14
0821	      .   .   CALL MOVE01(148,NRADPT,XRADPT)
0823	      .   'WHEN' 15
0825	      .   .   CALL MOVE01(148,ORADPT,XRADPT)
META FORTRAN  X08.09		21-OCT-87	02:17:06	PAGE     15
SPECOMDMP        

0827	      .   'ENDCASE'
    	C
    	C
    	C
0829	      .   'PERFORM' RADDMP
    	C
0832	      'ENDLOOP'
    	C
    	C
0833	      WRITE(6,1700)NQDCO
0834	1700  FORMAT(1X/1X,'DUMP OF NQDCO , LEN IS 3 WORDS'/
    	     *1X,(10(I7,1X)/))
    	C       NQDCO  016720-R
    	C
0835	      WRITE(6,1800)RESCO
0836	1800  FORMAT(1X/1X,'DUMP OF RESCO , LEN IS 20 WORDS'/
    	     *1X,(10(I7,1X)/))
    	C       RESCO  016726-R
    	C
0837	      WRITE(6,1900)PSTCO
0838	1900  FORMAT(1X/1X,'DUMP OF PSTCO , LEN IS 3 WORDS'/
    	     *1X,(10(I7,1X)/))
    	C       PSTCO  016776-R
    	C
    	C
    	C
    	C
    	C
    	C
    	C
    	C
    	C
    	C
    	C
0839	      CLOSE(UNIT=6,DISP='KEEP')
    	C
0840	      CALL EXIT
    	C
META FORTRAN  X08.09		21-OCT-87	02:17:06	PAGE     16
SPECOMDMP        

    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
    	C       SEKTION F\R ATT SKRIVA ETT ELEMENT I SPICOM-DELEN AV SPECOM P] FIL
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
0843	      'SECTION' SPIDMP
    	C
    	C       SPECOM 000000-R
    	C
0844	      .   WRITE(6,100)RECNUM
0845	100   .   FORMAT(1X/1X,'DUMP OF SPICOM , RECORD NUMBER ',I4/)
    	C
0846	      .   WRITE(6,101)XID,XCAR,XDUTY,XFIX,XTIME
0847	101   .   FORMAT(1X,'ID:',6A1,' CAR:',I3,' DUTY:',6A1,
    	     *.   ' FIX:',10A1,' TID:',I4)
    	C
    	C
0848	      .   WRITE(6,102)XG1ID,XG1CAR,XG2ID,XG2CAR
0849	102   .   FORMAT(1X,'G1ID:',6A1,' G1CAR:',I3,' G2ID:',6A1,' G2CAR:',I3)
    	C
    	C
0850	      .   WRITE(6,103)XNID,XNCAR,XNDID,XNFIX,XNTIME
0851	103   .   FORMAT(1X,'NID:',6A1,' NCAR:',I3,' NDUTY:',6A1,
    	     *.   ' NFIX:',10A1,' NTID:',I4)
    	C
    	C
    	C
0852	      'ENDSECT'
    	C
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
    	C       SEKTION F\R ATT SKRIVA ETT ELEMENT I RADCO-DELEN AV SPECOM P] FIL
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
META FORTRAN  X08.09		21-OCT-87	02:17:06	PAGE     17
SPECOMDMP        

0855	      'SECTION' RADDMP
    	C
    	C       RADCO  012444-R
    	C
0856	      .   WRITE(6,1600)RECNUM
0857	1600  .   FORMAT(1X/1X,'DUMP OF RADCO , RECORD NUMBER ',I4/)
    	C
    	C
    	C
0858	      .   WRITE(6,1601)XAPNT,XB1PNT,XB2PNT,XPTYP,XPNUM,XDUM
0859	1601  .   FORMAT(1X,'APNT:',O7,' B1PNT:',O7,' B2PNT:',O7,
    	     *.   ' P-TYP:',I2,' P-NUM:',I2,' BIMASK:',O7)
    	C
    	C
0860	      .   WRITE(6,1602)XAPDAT
0861	1602  .   FORMAT(1X,'A-PORT DATA:',I3,2X,I3,2X,O7,2X,I7)
    	C
    	C
0862	      .   WRITE(6,1603)XBPDAT
0863	1603  .   FORMAT(1X,'B-PORT DATA:',I3,2X,I3,2X,O7,2X,I7/
    	     *.   (1X,12X,I3,2X,I3,2X,O7,2X,I7/))
    	C
    	C
    	C
    	C
    	C
    	C
0864	      'ENDSECT'
    	C
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
    	C       SEKTION F\R ATT SKRIVA ETT ELEMENT I OPRCO-DELEN AV SPECOM P] FIL
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
0867	      'SECTION' OPRDMP
    	C
META FORTRAN  X08.09		21-OCT-87	02:17:06	PAGE     18
SPECOMDMP        

    	C       OPRCO  011630-R
    	C
0868	      .   WRITE(6,1400)RECNUM
0869	1400  .   FORMAT(1X/1X,'DUMP OF OPRCO , RECORD NUMBER ',I4/)
    	C
    	C
0870	      .   WRITE(6,1401)XFLAG,XCTYPE,XKTYPE,XCHANN
0871	1401  .   FORMAT(1X,'FLAG:',I3,' CALL TYPE:',I3,' KEYB. TYPE:',I3,
    	     *.   ' CHANNEL:',I3)
    	C
    	C
0872	      .   WRITE(6,1402)XCARS,XNXFUN
0873	1402  .   FORMAT(1X,'CARS:',8(2X,I3)/1X,5X,8(2X,I3)/
    	     *.   1X,'NEXT FUNCTION:',I3)
    	C
    	C
0874	      'ENDSECT'
    	C
    	C
0876	      END



ERRORS DETECTED:      0
SC:SPECOMDMP,SC:SPECOMDMP.MLS/-SP=SC:SPECOMDMP