
	.section	".text",#alloc,#execinstr
	.align	8
	.skip	16

	! block 0

	.global	impcor_
	.type	impcor_,2
impcor_:
	save	%sp,-336,%sp
	st	%i5,[%fp+88]
	st	%i4,[%fp+84]
	st	%i3,[%fp+80]
	st	%i2,[%fp+76]
	st	%i1,[%fp+72]
	st	%i0,[%fp+68]

	! block 1
.L392:
	sethi	%hi(lascal_+1660),%l0
	or	%l0,%lo(lascal_+1660),%l0
	st	%l0,[%fp-4]
	sethi	%hi(amber_+636),%l0
	or	%l0,%lo(amber_+636),%l0
	st	%l0,[%fp-40]
	sethi	%hi(readst_-116),%l0
	or	%l0,%lo(readst_-116),%l0
	st	%l0,[%fp-44]
	sethi	%hi(GPB.impcor.i4buff-13204),%l0
	or	%l0,%lo(GPB.impcor.i4buff-13204),%l0
	st	%l0,[%fp-8]
	sethi	%hi(proton_-124),%l0
	or	%l0,%lo(proton_-124),%l0
	st	%l0,[%fp-28]
	sethi	%hi(rawdat_+8196),%l0
	or	%l0,%lo(rawdat_+8196),%l0
	st	%l0,[%fp-24]
	sethi	%hi(readst_+3588),%l0
	or	%l0,%lo(readst_+3588),%l0
	st	%l0,[%fp-48]
	sethi	%hi(rawdat_+4100),%l0
	or	%l0,%lo(rawdat_+4100),%l0
	st	%l0,[%fp-20]
	sethi	%hi(lashed_),%l0
	or	%l0,%lo(lashed_),%l0
	st	%l0,[%fp-12]
	sethi	%hi(proton_+2788),%l0
	or	%l0,%lo(proton_+2788),%l0
	st	%l0,[%fp-32]
	sethi	%hi(rawdat_+4),%l0
	or	%l0,%lo(rawdat_+4),%l0
	st	%l0,[%fp-16]
	sethi	%hi(amber_-36),%l0
	or	%l0,%lo(amber_-36),%l0
	st	%l0,[%fp-36]

	! block 2
.L14:

! File impcor.f:
!    1	* Thu Oct 24 09:57:38 EDT 1991 /leverrier/h1/ksg/src/test impcor.f
!    2	C   Tue Oct 15 17:43:07 EDT 1991 /plas5/h1/vgr/src/imp impcor
!    3	* Thu Oct 4 11:07:46 EDT 1990 /plas0/h1/pam/src/test impcor.f
!    4	* Thu May 31 13:42:36 EDT 1990 /plas0/h1/pam/src/test impcor.f
!    5	* Mon Jul 31 11:19:25 EDT 1989 /plasma/h1/pam/src/test impcor.f
!    6	* Fri May 20 14:24:12 EDT 1988 /usr4/pam/src/test impcor.f
!    7	* Thu Feb 25 11:20:19 EST 1988 /usr4/mcw/src/test impcor.f
!    8	c	gsg jr OCT 24, 1991 changed all write to unit 6 to unit 0 standard error out
!    9	cMEMBER NAME  impcor.f 
!   10	      SUBROUTINE IMPCOR(EOD,NPY,NPD,NPH,NPM,BUFL,IKL,narg)
!   11	      LOGICAL EOD,BUFL,BADDAT
!   12	C SPECTRUM SPECIFICATION
!   13	      COMMON /TYPSSN/ TYPE, PSEL, SN ,TSPIN
!   14	      INTEGER TYPE,PSEL,SN
!   15	C SPECTRUM COUNTS AND CURRENTS
!   16	      COMMON /PROTON/ QPLUS(2,14,26),IPLUS(2,14,26)
!   17	      COMMON /AMBER/ QMINUS(8,21),IMINUS(8,21)
!   18	      REAL IPLUS,IMINUS
!   19	C SPECTRUM EVENT TIME
!   20	      COMMON /TIME/ YEAR,DOY,HOUROD,MINUTE,SECOND,MILSOD,SEQCLK
!   21	      INTEGER YEAR,DOY,HOUROD,SEQCLK
!   22	C    HEADER RECORD IMAGE.
!   23	      COMMON /LASHED/IMFHED,LAHEDU(149)
!   24	C    CALIBRATION MODE SPECTRUM IMAGE.
!   25	      COMMON /LASCAL/ LCYR,LCDY,LCHR,LCMN,SECLC,LCSPEC(287)
!   26	     1   ,LCDAT(124),CURENS(256)
!   27	C    IMAGE OF CURRENT SPECTRUM.
!   28	      COMMON /RAWDAT/ IMPNUM,LENGTH,UBYCOA(1024),COMCUR(1024),CCUR(1024)
!   29	      INTEGER UBYCOA
!   30	C BLOCK HEADER
!   31	      COMMON /BLOHED/ BHIMP, BHRUN, BHFILE, BHAVSQ, BHAVSP, BHSPSD,
!   32	     2    LLRWNO,WNOATS,TABLEN,BLKNUM,NOBLKS,KTABLE
!   33	      INTEGER BHIMP,BHRUN,BHFILE,WNOATS,TABLEN,BLKNUM
!   34	C BAT7 INTERFACE
!   35	          character*4  DDNAME 
!   36	          character*3 origin
!   37	      INTEGER TRMODE,TAPDEN,UNAME,BLOCKS,COUNT,USENSE,RETRY
!   38	      LOGICAL*4 BATEOT,EQUICH,ERRSKI,PERERR,TAPMAR,STATUS(192),TWHAT(16)
!   39	       LOGICAL *4 VOLSER (8)
!   40	       LOGICAL *4 DACHEK 
!   41	       LOGICAL *4 DACOCH 
!   42	       LOGICAL *4 LOPFIP 
!   43	       LOGICAL *4 REWIND 
!   44	                  EQUIVALENCE (COUNT , TWHAT (1))
!   45	                  EQUIVALENCE (TAPMAR, TWHAT (5))
!   46	                  EQUIVALENCE (BATEOT, TWHAT (6))
!   47	                  EQUIVALENCE (PERERR, TWHAT (7))
!   48	                  EQUIVALENCE (DACOCH, TWHAT (8))
!   49	                  EQUIVALENCE (DACHEK, TWHAT (9))
!   50	                  EQUIVALENCE (EQUICH, TWHAT (10))
!   51	                  EQUIVALENCE (ERRSKI, TWHAT (11))
!   52	                  EQUIVALENCE (LOPFIP, TWHAT (12))
!   53	                  EQUIVALENCE (USENSE, TWHAT (13))
!   54	       INTEGER *4 BUFLEN 
!   55	      INTEGER *4 I4BUFF (3300, 2)
!   56	C SPECTRUM HEADER AREA
!   57	      COMMON /COMMSH/SHATYP,SHALOR,SHAMOD,SHACOS,SHASTS,SHPSEL,SHASN,
!   58	     1 SHACOI,SHADOY,SHAMS,SHARSC,SHAPST,SHASTW,SHAKST,SHAMSQ,SHATSP,
!   59	     2 SHASRP,SHASPP,SHATEM,SHANPT,SHANPS,SHATQF,SHABIR,SHAFDQ,SHANSS,
!   60	     3 SHADQF(9),SHAFLN,SHALEN,SHAWFS,SHASOT,SHAEOT,SHDPP(6),SHAAPP(13),
!   61	     4 SHYEAR,SHYR,SHDOY
!   62	       real shasrp
!   63	c          ncvrt is the number of conversion errors made when using icvtf
!   64	      integer ncvrt
!   65	      INTEGER SHATYP,SHALOR,SHADOY,SHAMS,SHARSC,SHAKST,SHATSP,SHASPP,
!   66	     1 SHATEM,SHAWFS,SHDPP,SHAAPP,SHYEAR,SHYR,SHDOY,shamsq
!   67	      INTEGER*2 SHAMOD,SHACOS,SHASTS,SHPSEL,SHASN,SHACOI,SHAPST,SHASTW,
!   68	     1 SHANPT,SHANPS,SHATQF,SHABIR,SHAFDQ,SHANSS,SHAFLN,SHALEN,SHASOT,
!   69	     2 SHAEOT
!   70	C ===============: READST APPENDAGE :=================
!   71	       COMMON /READST/ IMODE,PROSEL,PROMAT(2,14,26),ELEMAT(168),ITIME(7)
!   72	       COMMON /PROC/ JMODE,ICMST,ISTS,IPSEL,ISN,GAMUT(1024)
!   73	       COMMON /TP/ ITYPE,COUNTS(1024)
!   74	       INTEGER PROSEL,COUNTS
!   75	C DECLARATIONS
!   76	      INTEGER ACCTAB
!   77	      INTEGER ACTAB2,ACTAB4,ACCTAP,ANGLE8,ANGL14,BLOCK,CURBUF,ELSSEN,
!   78	     1 ENGY21,ENGY26,        PSELP,PSELP7,ROUTER
!   79	      INTEGER IK, MPYEAR, MPDOY, MPMSEC
!   80	      LOGICAL EODATA, BUFDUD, DOUTAM, lfirst
!   81	      REAL*8 CURREN
!   82	C
!   83	C
!   84	      data baddat/.false./,  lfirst/.true./
!   85	      data buflen/12000/
!   86	      data retry/1/, block/0/
!   87	      data ddname/'ft22'/
!   88	c
!   89	      if (.not. lfirst) go to 5

	sethi	%hi(GPB.impcor.lfirst),%l0
	or	%l0,%lo(GPB.impcor.lfirst),%l0
	ld	[%l0+0],%l0
	mov	0,%l1
	cmp	%l0,%l1
	mov	0,%l0
	be,a	1f
	mov	1,%l0
1:
	cmp	%l0,%g0
	be	.L22
	nop

	! block 3
.L23:
	ba	.L24
	nop

	! block 4
.L22:

!   90	      lfirst = .false.

	mov	0,%l1
	sethi	%hi(GPB.impcor.lfirst),%l0
	or	%l0,%lo(GPB.impcor.lfirst),%l0
	st	%l1,[%l0+0]

!   91	c ****** read character input (should be 'sun' or 'ibm' according to
!   92	c ****** what computer the file was generated on) to determine if
!   93	c ****** any conversion of real numbers must be done
!   94	      read (15, 2673) origin

	sethi	%hi(GPB.impcor.IO.26+24),%l0
	or	%l0,%lo(GPB.impcor.IO.26+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impcor.IO.26),%l0
	or	%l0,%lo(GPB.impcor.IO.26),%l0
	mov	%l0,%o0
	call	__s_rsFe_nv
	nop
	sethi	%hi(.L_cseg0),%l0
	or	%l0,%lo(.L_cseg0),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(GPB.impcor.origin),%l2
	or	%l2,%lo(GPB.impcor.origin),%l2
	mov	3,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_in_nv
	nop
	call	__e_rsfe
	nop

!   95	 2673 format (a3)
!   96	      write (0,*) "This input file was generated on the **",origin,

	sethi	%hi(GPB.impcor.IO.27),%l0
	or	%l0,%lo(GPB.impcor.IO.27),%l0
	mov	%l0,%o0
	call	__s_wsle_nv
	nop
	add	%fp,-87,%l0
	sethi	%hi(.L_cseg2),%l1
	or	%l1,%lo(.L_cseg2),%l1
	mov	39,%l2
	mov	39,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__s_copy
	nop
	sethi	%hi(.L_cseg0),%l0
	or	%l0,%lo(.L_cseg0),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	add	%fp,-87,%l2
	mov	39,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_l_out
	nop
	sethi	%hi(.L_cseg0),%l0
	or	%l0,%lo(.L_cseg0),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(GPB.impcor.origin),%l2
	or	%l2,%lo(GPB.impcor.origin),%l2
	mov	3,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_l_out
	nop
	add	%fp,-100,%l0
	sethi	%hi(.L_cseg3),%l1
	or	%l1,%lo(.L_cseg3),%l1
	mov	12,%l2
	mov	12,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__s_copy
	nop
	sethi	%hi(.L_cseg0),%l0
	or	%l0,%lo(.L_cseg0),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	add	%fp,-100,%l2
	mov	12,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_l_out
	nop
	call	__e_wsle
	nop

	! block 5
.L24:

!   97	     *      "** computer."
!   98	C
!   99	c *** CALL NUMP(NARG) ******************** this call now obsolete
!  100	c ******** now impcor MUST be called with 8 arguments, the last one being
!  101	c********* the value of "narg". Formerly, one could call impcor with, for
!  102	c********* instance, one argument: 'call impcor(eod)'; the equivalent call
!  103	c********* is now: 'call impcor(eod,0,0,0,0,0,0,1)'
!  104	    5 continue


!  105	      IF (NARG-1) 500,21,11

	ld	[%fp+96],%l0
	ld	[%l0+0],%l0
	add	%l0,-1,%l0
	st	%l0,[%fp-104]
	ld	[%fp-104],%l0
	cmp	%l0,0
	bg	.L30
	nop

	! block 6
.L31:
	ld	[%fp-104],%l0
	cmp	%l0,0
	bl	.L28
	nop

	! block 7
.L32:
	ba	.L29
	nop

	! block 8
.L30:

!  106	   11 IF (NARG-3)  22,23,12

	ld	[%fp+96],%l0
	ld	[%l0+0],%l0
	add	%l0,-3,%l0
	st	%l0,[%fp-108]
	ld	[%fp-108],%l0
	cmp	%l0,0
	bg	.L35
	nop

	! block 9
.L36:
	ld	[%fp-108],%l0
	cmp	%l0,0
	bl	.L33
	nop

	! block 10
.L37:
	ba	.L34
	nop

	! block 11
.L35:

!  107	   12 IF (NARG-5)  24,25,13

	ld	[%fp+96],%l0
	ld	[%l0+0],%l0
	add	%l0,-5,%l0
	st	%l0,[%fp-112]
	ld	[%fp-112],%l0
	cmp	%l0,0
	bg	.L40
	nop

	! block 12
.L41:
	ld	[%fp-112],%l0
	cmp	%l0,0
	bl	.L38
	nop

	! block 13
.L42:
	ba	.L39
	nop

	! block 14
.L40:

!  108	   13 IF (NARG-7)  26,27,27

	ld	[%fp+96],%l0
	ld	[%l0+0],%l0
	add	%l0,-7,%l0
	cmp	%l0,0
	bl	.L43
	nop

	! block 15
.L45:
.L44:

!  109	   27 IK = IKL

	ld	[%fp+92],%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impcor.ik),%l0
	or	%l0,%lo(GPB.impcor.ik),%l0
	st	%l1,[%l0+0]

	! block 16
.L43:

!  110	   26 BUFDUD = BUFL

	ld	[%fp+88],%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impcor.bufdud),%l0
	or	%l0,%lo(GPB.impcor.bufdud),%l0
	st	%l1,[%l0+0]

	! block 17
.L39:

!  111	   25 MPMIN = NPM

	ld	[%fp+84],%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impcor.mpmin),%l0
	or	%l0,%lo(GPB.impcor.mpmin),%l0
	st	%l1,[%l0+0]

	! block 18
.L38:

!  112	   24 MPHOUR = NPH

	ld	[%fp+80],%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impcor.mphour),%l0
	or	%l0,%lo(GPB.impcor.mphour),%l0
	st	%l1,[%l0+0]

!  113	      MPMSEC = 60000*(MPMIN+60*MPHOUR)

	sethi	%hi(GPB.impcor.mpmin),%l0
	or	%l0,%lo(GPB.impcor.mpmin),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impcor.mphour),%l0
	or	%l0,%lo(GPB.impcor.mphour),%l0
	ld	[%l0+0],%l0
	sll	%l0,6,%l2
	sll	%l0,2,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,16,%l2
	sll	%l0,5,%l1
	sub	%l2,%l1,%l2
	sll	%l0,7,%l1
	sub	%l2,%l1,%l2
	sll	%l0,8,%l1
	sub	%l2,%l1,%l2
	sll	%l0,10,%l1
	sub	%l2,%l1,%l2
	sll	%l0,12,%l1
	sub	%l2,%l1,%l1
	sethi	%hi(GPB.impcor.mpmsec),%l0
	or	%l0,%lo(GPB.impcor.mpmsec),%l0
	st	%l1,[%l0+0]

	! block 19
.L34:

!  114	   23 MPDOY = NPD

	ld	[%fp+76],%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impcor.mpdoy),%l0
	or	%l0,%lo(GPB.impcor.mpdoy),%l0
	st	%l1,[%l0+0]

	! block 20
.L33:

!  115	   22 MPYEAR = NPY

	ld	[%fp+72],%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impcor.mpyear),%l0
	or	%l0,%lo(GPB.impcor.mpyear),%l0
	st	%l1,[%l0+0]

	! block 21
.L29:

!  116	   21 EOD = EODATA

	sethi	%hi(GPB.impcor.eodata),%l0
	or	%l0,%lo(GPB.impcor.eodata),%l0
	ld	[%l0+0],%l1
	ld	[%fp+68],%l0
	st	%l1,[%l0+0]

	! block 22
.L46:

!  117	  100 IF (EODATA) RETURN

	sethi	%hi(GPB.impcor.eodata),%l0
	or	%l0,%lo(GPB.impcor.eodata),%l0
	ld	[%l0+0],%l0
	cmp	%l0,%g0
	be	.L47
	nop

	! block 23
.L48:
	ba	.L13
	nop

	! block 24
.L47:

!  118	      IF (ROUTER-2) 200,300,400

	sethi	%hi(GPB.impcor.router),%l0
	or	%l0,%lo(GPB.impcor.router),%l0
	ld	[%l0+0],%l0
	add	%l0,-2,%l0
	st	%l0,[%fp-116]
	ld	[%fp-116],%l0
	cmp	%l0,0
	bg	.L51
	nop

	! block 25
.L52:
	ld	[%fp-116],%l0
	cmp	%l0,0
	bl	.L49
	nop

	! block 26
.L53:
	ba	.L50
	nop

	! block 27
.L49:

!  119	C
!  120	C        DESTINATION CODES :
!  121	C
!  122	C           200 (ROUTER = 1) IS TAPE INITIALIZATION, WHICH FALLS
!  123	C                            THROUGH TO 300.
!  124	C
!  125	C           300 (ROUTER = 2) REFILLS THE OFF BUFFER, AND FALLS
!  126	C                            THROUGH TO 400.
!  127	C
!  128	C           400 (ROUTER = 3) CONTINUES PROCESSING THE CURRENT BUFFER.
!  129	C
!  130	C ============!  INITIALIZE OUTPUT AREAS AND TABLES.  !================
!  131	  200 NERR = 0

	mov	0,%l1
	sethi	%hi(GPB.impcor.nerr),%l0
	or	%l0,%lo(GPB.impcor.nerr),%l0
	st	%l1,[%l0+0]

!  132	C    /RAWDAT/.
!  133	         LENGTH = 0

	mov	0,%l1
	sethi	%hi(rawdat_),%l0
	or	%l0,%lo(rawdat_),%l0
	st	%l1,[%l0+4]

!  134	               CALL MVC (LENGTH, UBYCOA, 8192)

	sethi	%hi(rawdat_+4),%l0
	or	%l0,%lo(rawdat_+4),%l0
	sethi	%hi(rawdat_+8),%l1
	or	%l1,%lo(rawdat_+8),%l1
	sethi	%hi(.L_cseg4),%l2
	or	%l2,%lo(.L_cseg4),%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	mvc_
	nop

!  135	C    /TYPSSN/.
!  136	               CALL MVC (LENGTH, TYPE,16)

	sethi	%hi(rawdat_+4),%l0
	or	%l0,%lo(rawdat_+4),%l0
	sethi	%hi(typssn_),%l1
	or	%l1,%lo(typssn_),%l1
	sethi	%hi(.L_cseg5),%l2
	or	%l2,%lo(.L_cseg5),%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	mvc_
	nop

!  137	C    /TIME/.
!  138	               CALL MVC (LENGTH, YEAR, 28)

	sethi	%hi(rawdat_+4),%l0
	or	%l0,%lo(rawdat_+4),%l0
	sethi	%hi(time_),%l1
	or	%l1,%lo(time_),%l1
	sethi	%hi(.L_cseg6),%l2
	or	%l2,%lo(.L_cseg6),%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	mvc_
	nop

!  139	C /BLOHED/
!  140	      CALL MVC (LENGTH,BHIMP,48)

	sethi	%hi(rawdat_+4),%l0
	or	%l0,%lo(rawdat_+4),%l0
	sethi	%hi(blohed_),%l1
	or	%l1,%lo(blohed_),%l1
	sethi	%hi(.L_cseg7),%l2
	or	%l2,%lo(.L_cseg7),%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	mvc_
	nop

!  141	C /LASHED/
!  142	      CALL MVC (LENGTH,IMFHED,600)

	sethi	%hi(rawdat_+4),%l0
	or	%l0,%lo(rawdat_+4),%l0
	sethi	%hi(lashed_),%l1
	or	%l1,%lo(lashed_),%l1
	sethi	%hi(.L_cseg8),%l2
	or	%l2,%lo(.L_cseg8),%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	mvc_
	nop

!  143	C /LASCAL/
!  144	      CALL MVC (LENGTH,LCYR,1664)

	sethi	%hi(rawdat_+4),%l0
	or	%l0,%lo(rawdat_+4),%l0
	sethi	%hi(lascal_),%l1
	or	%l1,%lo(lascal_),%l1
	sethi	%hi(.L_cseg9),%l2
	or	%l2,%lo(.L_cseg9),%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	mvc_
	nop

!  145	C     CLEAR ELECTRONS
!  146	      CALL MVC (LENGTH,QMINUS,1344)

	sethi	%hi(rawdat_+4),%l0
	or	%l0,%lo(rawdat_+4),%l0
	sethi	%hi(amber_),%l1
	or	%l1,%lo(amber_),%l1
	sethi	%hi(.L_cseg10),%l2
	or	%l2,%lo(.L_cseg10),%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	mvc_
	nop

!  147	C    GENERATE COUNTS TO CURRENTS TABLE.
!  148	C  UNITS: PICOCOULOMB-DEGREE
!  149	      CURREN = 4.17024D6

	sethi	%hi(.L_cseg11),%l0
	or	%l0,%lo(.L_cseg11),%l0
	ldd	[%l0+0],%f2
	sethi	%hi(GPB.impcor.curren),%l0
	or	%l0,%lo(GPB.impcor.curren),%l0
	std	%f2,[%l0+0]

!  150	      DO 270 I=1,256

	mov	1,%l1
	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	st	%l1,[%l0+0]

	! block 28
.L56:

!  151	      CURREN = CURREN/1.04615D0

	sethi	%hi(GPB.impcor.curren),%l0
	or	%l0,%lo(GPB.impcor.curren),%l0
	ldd	[%l0+0],%f4
	sethi	%hi(.L_cseg12),%l0
	or	%l0,%lo(.L_cseg12),%l0
	ldd	[%l0+0],%f2
	fdivd	%f4,%f2,%f2
	sethi	%hi(GPB.impcor.curren),%l0
	or	%l0,%lo(GPB.impcor.curren),%l0
	std	%f2,[%l0+0]

	! block 29
.L54:

!  152	C INPUT CURRENT FOR A+B
!  153	  270 CURENS(I) = CURREN*2.0

	sethi	%hi(GPB.impcor.curren),%l0
	or	%l0,%lo(GPB.impcor.curren),%l0
	ldd	[%l0+0],%f4
	sethi	%hi(.L_cseg13),%l0
	or	%l0,%lo(.L_cseg13),%l0
	ldd	[%l0+0],%f2
	fmuld	%f4,%f2,%f2
	fdtos	%f2,%f2
	ld	[%fp-4],%l2
	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	st	%f2,[%l0+0]
	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	ld	[%l0+0],%l0
	cmp	%l0,256
	ble	.L56
	nop

	! block 30
.L60:
.L55:

!  154	C
!  155	      ANGLAP = 45. / 40.68

	sethi	%hi(.L_cseg14),%l0
	or	%l0,%lo(.L_cseg14),%l0
	ld	[%l0+0],%f3
	sethi	%hi(.L_cseg15),%l0
	or	%l0,%lo(.L_cseg15),%l0
	ld	[%l0+0],%f2
	fdivs	%f3,%f2,%f2
	sethi	%hi(GPB.impcor.anglap),%l0
	or	%l0,%lo(GPB.impcor.anglap),%l0
	st	%f2,[%l0+0]

!  156	      EANGLE = 45. / 33.75

	sethi	%hi(.L_cseg14),%l0
	or	%l0,%lo(.L_cseg14),%l0
	ld	[%l0+0],%f3
	sethi	%hi(.L_cseg16),%l0
	or	%l0,%lo(.L_cseg16),%l0
	ld	[%l0+0],%f2
	fdivs	%f3,%f2,%f2
	sethi	%hi(GPB.impcor.eangle),%l0
	or	%l0,%lo(GPB.impcor.eangle),%l0
	st	%f2,[%l0+0]

!  157	      ANGLAE = 45.0/25.31

	sethi	%hi(.L_cseg14),%l0
	or	%l0,%lo(.L_cseg14),%l0
	ld	[%l0+0],%f3
	sethi	%hi(.L_cseg17),%l0
	or	%l0,%lo(.L_cseg17),%l0
	ld	[%l0+0],%f2
	fdivs	%f3,%f2,%f2
	sethi	%hi(GPB.impcor.anglae),%l0
	or	%l0,%lo(GPB.impcor.anglae),%l0
	st	%f2,[%l0+0]

!  158	C ===================!  TAPE INITIALIZATION.  !========================
!  159	c              CALL TVOLUM (DDNAME, VOLSER, UNAME, TRMODE, TAPDEN)
!  160	c      WRITE (IK,9111)      UNAME, (VOLSER (I), I = 1, 6)
!  161	c              IF (TRMODE .NE. 0) WRITE(IK,9122) TRMODE
!  162	c              IF (TAPDEN .NE. 2) WRITE(IK,9133) TAPDEN
!  163	      TRMODE = 0

	mov	0,%l1
	sethi	%hi(GPB.impcor.trmode),%l0
	or	%l0,%lo(GPB.impcor.trmode),%l0
	st	%l1,[%l0+0]

!  164	      TAPDEN = 2

	mov	2,%l1
	sethi	%hi(GPB.impcor.tapden),%l0
	or	%l0,%lo(GPB.impcor.tapden),%l0
	st	%l1,[%l0+0]

!  165	c              CALL TALTER (DDNAME, TRMODE, TAPDEN)
!  166	c        CALL TERROR (DDNAME, RETRY)
!  167	c              CALL TBLOCK (DDNAME, STATUS)
!  168	C IS DRIVE READY ?
!  169	c 280 CALL TWAIT (DDNAME, TWHAT)
!  170	       BLOCK = 0

	mov	0,%l1
	sethi	%hi(GPB.impcor.block),%l0
	or	%l0,%lo(GPB.impcor.block),%l0
	st	%l1,[%l0+0]

	! block 31
.L61:

!  171	  290 NEXBUF = 1

	mov	1,%l1
	sethi	%hi(GPB.impcor.nexbuf),%l0
	or	%l0,%lo(GPB.impcor.nexbuf),%l0
	st	%l1,[%l0+0]

!  172	               CALL TREADbat (DDNAME, I4BUFF (1, NEXBUF), BUFLEN)

	sethi	%hi(GPB.impcor.ddname),%l5
	or	%l5,%lo(GPB.impcor.ddname),%l5
	ld	[%fp-8],%l0
	add	%l0,4,%l3
	sethi	%hi(GPB.impcor.nexbuf),%l0
	or	%l0,%lo(GPB.impcor.nexbuf),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,7,%l1
	add	%l2,%l1,%l2
	sll	%l0,8,%l1
	add	%l2,%l1,%l2
	sll	%l0,9,%l1
	add	%l2,%l1,%l2
	sll	%l0,12,%l1
	add	%l2,%l1,%l2
	sll	%l0,13,%l1
	add	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sethi	%hi(GPB.impcor.buflen),%l1
	or	%l1,%lo(GPB.impcor.buflen),%l1
	mov	4,%l2
	mov	%l5,%o0
	mov	%l0,%o1
	mov	%l1,%o2
	mov	%l2,%o3
	call	treadbat_
	nop

!  173	      BLOCK = BLOCK+1

	sethi	%hi(GPB.impcor.block),%l0
	or	%l0,%lo(GPB.impcor.block),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impcor.block),%l0
	or	%l0,%lo(GPB.impcor.block),%l0
	st	%l1,[%l0+0]

	! block 32
.L50:

!  174	C =================!  DOUBLE BUFFERING SCHEME.  !======================
!  175	  300 CURBUF = NEXBUF

	sethi	%hi(GPB.impcor.nexbuf),%l0
	or	%l0,%lo(GPB.impcor.nexbuf),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impcor.curbuf),%l0
	or	%l0,%lo(GPB.impcor.curbuf),%l0
	st	%l1,[%l0+0]

!  176	      NEXBUF = 3-CURBUF

	mov	3,%l2
	sethi	%hi(GPB.impcor.curbuf),%l0
	or	%l0,%lo(GPB.impcor.curbuf),%l0
	ld	[%l0+0],%l1
	sub	%l2,%l1,%l1
	sethi	%hi(GPB.impcor.nexbuf),%l0
	or	%l0,%lo(GPB.impcor.nexbuf),%l0
	st	%l1,[%l0+0]

!  177	               CALL TWAIT (DDNAME, TWHAT)

	sethi	%hi(GPB.impcor.ddname),%l0
	or	%l0,%lo(GPB.impcor.ddname),%l0
	sethi	%hi(GPC.impcorEQUIV1_9),%l1
	or	%l1,%lo(GPC.impcorEQUIV1_9),%l1
	mov	4,%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	twait_
	nop

!  178	               if (count .eq. 0) tapmar = .true.

	sethi	%hi(GPC.impcorEQUIV1_9),%l0
	or	%l0,%lo(GPC.impcorEQUIV1_9),%l0
	ld	[%l0+0],%l0
	cmp	%l0,0
	bne	.L63
	nop

	! block 33
.L64:
	mov	1,%l1
	sethi	%hi(GPC.impcorEQUIV1_9),%l0
	or	%l0,%lo(GPC.impcorEQUIV1_9),%l0
	st	%l1,[%l0+16]

	! block 34
.L63:

!  179	               IF (TAPMAR) GO TO 6169

	sethi	%hi(GPC.impcorEQUIV1_9),%l0
	or	%l0,%lo(GPC.impcorEQUIV1_9),%l0
	ld	[%l0+16],%l0
	cmp	%l0,%g0
	be	.L65
	nop

	! block 35
.L66:
	ba	.L67
	nop

	! block 36
.L65:

!  180	      DOUTAM = .FALSE.

	mov	0,%l1
	sethi	%hi(GPB.impcor.doutam),%l0
	or	%l0,%lo(GPB.impcor.doutam),%l0
	st	%l1,[%l0+0]

!  181	               IF (EQUICH) GO TO 6163

	sethi	%hi(GPC.impcorEQUIV1_9),%l0
	or	%l0,%lo(GPC.impcorEQUIV1_9),%l0
	ld	[%l0+36],%l0
	cmp	%l0,%g0
	be	.L68
	nop

	! block 37
.L69:
	ba	.L70
	nop

	! block 38
.L68:

!  182	               IF (PERERR) GO TO 6166

	sethi	%hi(GPC.impcorEQUIV1_9),%l0
	or	%l0,%lo(GPC.impcorEQUIV1_9),%l0
	ld	[%l0+24],%l0
	cmp	%l0,%g0
	be	.L71
	nop

	! block 39
.L72:
	ba	.L73
	nop

	! block 40
.L71:

!  183	               IF (COUNT.EQ.12000) GO TO 325

	sethi	%hi(GPC.impcorEQUIV1_9),%l0
	or	%l0,%lo(GPC.impcorEQUIV1_9),%l0
	ld	[%l0+0],%l1
	sethi	%hi(12000),%l0
	or	%l0,%lo(12000),%l0
	cmp	%l1,%l0
	bne	.L74
	nop

	! block 41
.L75:
	ba	.L76
	nop

	! block 42
.L74:

!  184	C INCORRECT BUFFER LENGTH
!  185	      WRITE(IK,1003) COUNT

	sethi	%hi(GPB.impcor.ik),%l0
	or	%l0,%lo(GPB.impcor.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impcor.IO.78+8),%l0
	or	%l0,%lo(GPB.impcor.IO.78+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impcor.IO.78+24),%l0
	or	%l0,%lo(GPB.impcor.IO.78+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impcor.IO.78),%l0
	or	%l0,%lo(GPB.impcor.IO.78),%l0
	mov	%l0,%o0
	call	__s_wsFe_nv
	nop
	sethi	%hi(.L_cseg18),%l0
	or	%l0,%lo(.L_cseg18),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(GPC.impcorEQUIV1_9),%l2
	or	%l2,%lo(GPC.impcorEQUIV1_9),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	call	__e_wsfe
	nop

!  186	      NWDS = (COUNT  + 3)/4

	sethi	%hi(GPC.impcorEQUIV1_9),%l0
	or	%l0,%lo(GPC.impcorEQUIV1_9),%l0
	ld	[%l0+0],%l0
	add	%l0,3,%l0
	mov	4,%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	.div
	nop
	mov	%o0,%l1
	sethi	%hi(GPB.impcor.nwds),%l0
	or	%l0,%lo(GPB.impcor.nwds),%l0
	st	%l1,[%l0+0]

!  187	      CALL PRTBUF(I4BUFF(1,CURBUF),IK,NWDS)

	ld	[%fp-8],%l0
	add	%l0,4,%l3
	sethi	%hi(GPB.impcor.curbuf),%l0
	or	%l0,%lo(GPB.impcor.curbuf),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,7,%l1
	add	%l2,%l1,%l2
	sll	%l0,8,%l1
	add	%l2,%l1,%l2
	sll	%l0,9,%l1
	add	%l2,%l1,%l2
	sll	%l0,12,%l1
	add	%l2,%l1,%l2
	sll	%l0,13,%l1
	add	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sethi	%hi(GPB.impcor.ik),%l1
	or	%l1,%lo(GPB.impcor.ik),%l1
	sethi	%hi(GPB.impcor.nwds),%l2
	or	%l2,%lo(GPB.impcor.nwds),%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	prtbuf_
	nop

!  188	      GO TO 6167

	ba	.L79
	nop

	! block 43
.L70:

!  189	C
!  190	C ==================!  EQUIPMENT CHECK HANDLER.  !=====================
!  191	 6163 WRITE (IK,1500) UNAME

	sethi	%hi(GPB.impcor.ik),%l0
	or	%l0,%lo(GPB.impcor.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impcor.IO.81+8),%l0
	or	%l0,%lo(GPB.impcor.IO.81+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impcor.IO.81+24),%l0
	or	%l0,%lo(GPB.impcor.IO.81+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impcor.IO.81),%l0
	or	%l0,%lo(GPB.impcor.IO.81),%l0
	mov	%l0,%o0
	call	__s_wsFe_nv
	nop
	sethi	%hi(.L_cseg18),%l0
	or	%l0,%lo(.L_cseg18),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(GPB.impcor.uname),%l2
	or	%l2,%lo(GPB.impcor.uname),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	call	__e_wsfe
	nop

!  192	               S T O P  163

	sethi	%hi(.L_cseg19),%l0
	or	%l0,%lo(.L_cseg19),%l0
	mov	3,%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	__s_stop
	nop

	! block 44
.L73:

!  193	C ==================!  PERMANENT ERROR HANDLER.  !=====================
!  194	C    PC.  30 JAN 75.  THIS BRANCH TAKEN WHEN TAPE DRIVE DROPPED READY.
!  195	 6166 WRITE (IK,1600) BLOCK

	sethi	%hi(GPB.impcor.ik),%l0
	or	%l0,%lo(GPB.impcor.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impcor.IO.83+8),%l0
	or	%l0,%lo(GPB.impcor.IO.83+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impcor.IO.83+24),%l0
	or	%l0,%lo(GPB.impcor.IO.83+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impcor.IO.83),%l0
	or	%l0,%lo(GPB.impcor.IO.83),%l0
	mov	%l0,%o0
	call	__s_wsFe_nv
	nop
	sethi	%hi(.L_cseg18),%l0
	or	%l0,%lo(.L_cseg18),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(GPB.impcor.block),%l2
	or	%l2,%lo(GPB.impcor.block),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	call	__e_wsfe
	nop

!  196	      WRITE (IK,1400) STATUS

	sethi	%hi(GPB.impcor.ik),%l0
	or	%l0,%lo(GPB.impcor.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impcor.IO.85+8),%l0
	or	%l0,%lo(GPB.impcor.IO.85+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impcor.IO.85+24),%l0
	or	%l0,%lo(GPB.impcor.IO.85+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impcor.IO.85),%l0
	or	%l0,%lo(GPB.impcor.IO.85),%l0
	mov	%l0,%o0
	call	__s_wsFe_nv
	nop
	sethi	%hi(.L_cseg20),%l0
	or	%l0,%lo(.L_cseg20),%l0
	sethi	%hi(.L_cseg21),%l1
	or	%l1,%lo(.L_cseg21),%l1
	sethi	%hi(GPB.impcor.status),%l2
	or	%l2,%lo(GPB.impcor.status),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	call	__e_wsfe
	nop

	! block 45
.L79:

!  197	 6167 NERR = NERR + 1

	sethi	%hi(GPB.impcor.nerr),%l0
	or	%l0,%lo(GPB.impcor.nerr),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impcor.nerr),%l0
	or	%l0,%lo(GPB.impcor.nerr),%l0
	st	%l1,[%l0+0]

!  198	      IF (NERR.GT.100) GO TO 4000

	sethi	%hi(GPB.impcor.nerr),%l0
	or	%l0,%lo(GPB.impcor.nerr),%l0
	ld	[%l0+0],%l0
	cmp	%l0,100
	ble	.L86
	nop

	! block 46
.L87:
	ba	.L88
	nop

	! block 47
.L86:

!  199	      GO TO 290

	ba	.L61
	nop

	! block 48
.L67:

!  200	C =====================!  TAPE MARK HANDLER.  !========================
!  201	C    TAPE MARKS ARE EXPECTED TO SEPARATE "RUNS" ON INPUT TAPES.  A
!  202	C    DOUBLE TAPE MARK SIGNALS THE END OF A TAPE.
!  203	C
!  204	 6169          CONTINUE


!  205	C    LOG THE TAPE MARK.
!  206	      WRITE (IK,1700)      (VOLSER (I), I = 1, 6),BHRUN

	sethi	%hi(GPB.impcor.ik),%l0
	or	%l0,%lo(GPB.impcor.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impcor.IO.90+8),%l0
	or	%l0,%lo(GPB.impcor.IO.90+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impcor.IO.90+24),%l0
	or	%l0,%lo(GPB.impcor.IO.90+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impcor.IO.90),%l0
	or	%l0,%lo(GPB.impcor.IO.90),%l0
	mov	%l0,%o0
	call	__s_wsFe_nv
	nop
	mov	7,%l1
	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(.L_cseg20),%l0
	or	%l0,%lo(.L_cseg20),%l0
	sethi	%hi(.L_cseg22),%l1
	or	%l1,%lo(.L_cseg22),%l1
	sethi	%hi(GPB.impcor.volser),%l2
	or	%l2,%lo(GPB.impcor.volser),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	sethi	%hi(.L_cseg18),%l0
	or	%l0,%lo(.L_cseg18),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(blohed_+4),%l2
	or	%l2,%lo(blohed_+4),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	call	__e_wsfe
	nop

!  207	      IF (DOUTAM) GO TO 4000

	sethi	%hi(GPB.impcor.doutam),%l0
	or	%l0,%lo(GPB.impcor.doutam),%l0
	ld	[%l0+0],%l0
	cmp	%l0,%g0
	be	.L91
	nop

	! block 49
.L92:
	ba	.L88
	nop

	! block 50
.L91:

!  208	      DOUTAM = .TRUE.

	mov	1,%l1
	sethi	%hi(GPB.impcor.doutam),%l0
	or	%l0,%lo(GPB.impcor.doutam),%l0
	st	%l1,[%l0+0]

!  209	      GO TO 290

	ba	.L61
	nop

	! block 51
.L88:

!  210	C END OF TAPE; REWIND AND UNLOAD
!  211	 4000 CALL TNEXT(DDNAME,DOUTAM)

	sethi	%hi(GPB.impcor.ddname),%l0
	or	%l0,%lo(GPB.impcor.ddname),%l0
	sethi	%hi(GPB.impcor.doutam),%l1
	or	%l1,%lo(GPB.impcor.doutam),%l1
	mov	4,%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	tnext_
	nop

!  212	      IF(DOUTAM) GO TO 5000

	sethi	%hi(GPB.impcor.doutam),%l0
	or	%l0,%lo(GPB.impcor.doutam),%l0
	ld	[%l0+0],%l0
	cmp	%l0,%g0
	be	.L93
	nop

	! block 52
.L94:
	ba	.L95
	nop

	! block 53
.L93:

!  213	      GO TO 200

	ba	.L49
	nop

	! block 54
.L95:

!  214	 5000 WRITE (IK,1000)

	sethi	%hi(GPB.impcor.ik),%l0
	or	%l0,%lo(GPB.impcor.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impcor.IO.97+8),%l0
	or	%l0,%lo(GPB.impcor.IO.97+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impcor.IO.97+24),%l0
	or	%l0,%lo(GPB.impcor.IO.97+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impcor.IO.97),%l0
	or	%l0,%lo(GPB.impcor.IO.97),%l0
	mov	%l0,%o0
	call	__s_wsFe_nv
	nop
	call	__e_wsfe
	nop

!  215	      EODATA = .TRUE.

	mov	1,%l1
	sethi	%hi(GPB.impcor.eodata),%l0
	or	%l0,%lo(GPB.impcor.eodata),%l0
	st	%l1,[%l0+0]

!  216	      IF(NARG) 100,100,21

	ld	[%fp+96],%l0
	ld	[%l0+0],%l0
	cmp	%l0,0
	bg	.L29
	nop

	! block 55
.L98:
	ba	.L46
	nop

	! block 56
.L76:

!  217	C        COUNT INPUT TAPE PHYSICAL RECORDS.
!  218	  325 BLOCK = BLOCK + 1

	sethi	%hi(GPB.impcor.block),%l0
	or	%l0,%lo(GPB.impcor.block),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impcor.block),%l0
	or	%l0,%lo(GPB.impcor.block),%l0
	st	%l1,[%l0+0]

!  219	C     INITIATE I/O TO FILL NEXT BUFFER.
!  220	               CALL TREADbat (DDNAME, I4BUFF (1, NEXBUF), BUFLEN)

	sethi	%hi(GPB.impcor.ddname),%l5
	or	%l5,%lo(GPB.impcor.ddname),%l5
	ld	[%fp-8],%l0
	add	%l0,4,%l3
	sethi	%hi(GPB.impcor.nexbuf),%l0
	or	%l0,%lo(GPB.impcor.nexbuf),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,7,%l1
	add	%l2,%l1,%l2
	sll	%l0,8,%l1
	add	%l2,%l1,%l2
	sll	%l0,9,%l1
	add	%l2,%l1,%l2
	sll	%l0,12,%l1
	add	%l2,%l1,%l2
	sll	%l0,13,%l1
	add	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sethi	%hi(GPB.impcor.buflen),%l1
	or	%l1,%lo(GPB.impcor.buflen),%l1
	mov	4,%l2
	mov	%l5,%o0
	mov	%l0,%o1
	mov	%l1,%o2
	mov	%l2,%o3
	call	treadbat_
	nop

!  221	C ==================!  PROCESS CURRENT BUFFER.  !======================
!  222	      KTABLE = 0

	mov	0,%l1
	sethi	%hi(blohed_),%l0
	or	%l0,%lo(blohed_),%l0
	st	%l1,[%l0+44]

!  223	C    COPY THE BLOCK HEADER.
!  224	               CALL MVC (I4BUFF (1, CURBUF), BHIMP, 40)

	ld	[%fp-8],%l0
	add	%l0,4,%l3
	sethi	%hi(GPB.impcor.curbuf),%l0
	or	%l0,%lo(GPB.impcor.curbuf),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,7,%l1
	add	%l2,%l1,%l2
	sll	%l0,8,%l1
	add	%l2,%l1,%l2
	sll	%l0,9,%l1
	add	%l2,%l1,%l2
	sll	%l0,12,%l1
	add	%l2,%l1,%l2
	sll	%l0,13,%l1
	add	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sethi	%hi(blohed_),%l1
	or	%l1,%lo(blohed_),%l1
	sethi	%hi(.L_cseg23),%l2
	or	%l2,%lo(.L_cseg23),%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	mvc_
	nop

!  225	c        ******************
!  226	      if (origin .eq. 'ibm') then

	sethi	%hi(GPB.impcor.origin),%l0
	or	%l0,%lo(GPB.impcor.origin),%l0
	sethi	%hi(.L_cseg24),%l1
	or	%l1,%lo(.L_cseg24),%l1
	mov	3,%l2
	mov	3,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__s_cmp
	nop
	mov	%o0,%l0
	cmp	%l0,0
	bne	.L99
	nop

	! block 57
.L100:

!  227	         ncvrt = icvtf( bhavsp, 2, bhavsp)

	sethi	%hi(blohed_+16),%l0
	or	%l0,%lo(blohed_+16),%l0
	sethi	%hi(.L_cseg25),%l1
	or	%l1,%lo(.L_cseg25),%l1
	sethi	%hi(blohed_+16),%l2
	or	%l2,%lo(blohed_+16),%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	icvtf_
	nop
	mov	%o0,%l1
	sethi	%hi(GPB.impcor.ncvrt),%l0
	or	%l0,%lo(GPB.impcor.ncvrt),%l0
	st	%l1,[%l0+0]

!  228	         if (ncvrt .gt. 0) write(0,*) " num. of conv. errors =",ncvrt

	sethi	%hi(GPB.impcor.ncvrt),%l0
	or	%l0,%lo(GPB.impcor.ncvrt),%l0
	ld	[%l0+0],%l0
	cmp	%l0,0
	ble	.L101
	nop

	! block 58
.L102:
	sethi	%hi(GPB.impcor.IO.103),%l0
	or	%l0,%lo(GPB.impcor.IO.103),%l0
	mov	%l0,%o0
	call	__s_wsle_nv
	nop
	add	%fp,-139,%l0
	sethi	%hi(.L_cseg26),%l1
	or	%l1,%lo(.L_cseg26),%l1
	mov	23,%l2
	mov	23,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__s_copy
	nop
	sethi	%hi(.L_cseg0),%l0
	or	%l0,%lo(.L_cseg0),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	add	%fp,-139,%l2
	mov	23,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_l_out
	nop
	sethi	%hi(.L_cseg18),%l0
	or	%l0,%lo(.L_cseg18),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(GPB.impcor.ncvrt),%l2
	or	%l2,%lo(GPB.impcor.ncvrt),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_l_out
	nop
	call	__e_wsle
	nop

	! block 59
.L101:

!  229	      else

	ba	.L104
	nop

	! block 60
.L99:

!  230	      endif

.L104:

!  231	c        ******************
!  232	      NOBLKS = I4BUFF(3000,CURBUF)

	ld	[%fp-8],%l0
	sethi	%hi(12000),%l1
	or	%l1,%lo(12000),%l1
	add	%l0,%l1,%l3
	sethi	%hi(GPB.impcor.curbuf),%l0
	or	%l0,%lo(GPB.impcor.curbuf),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,7,%l1
	add	%l2,%l1,%l2
	sll	%l0,8,%l1
	add	%l2,%l1,%l2
	sll	%l0,9,%l1
	add	%l2,%l1,%l2
	sll	%l0,12,%l1
	add	%l2,%l1,%l2
	sll	%l0,13,%l1
	add	%l2,%l1,%l1
	add	%l3,%l1,%l0
	ld	[%l0+0],%l1
	sethi	%hi(blohed_),%l0
	or	%l0,%lo(blohed_),%l0
	st	%l1,[%l0+40]

!  233	      IF( WNOATS.LT.11.OR.WNOATS.GT.3000) GO TO 410

	sethi	%hi(blohed_),%l0
	or	%l0,%lo(blohed_),%l0
	ld	[%l0+28],%l0
	cmp	%l0,11
	bge	.L107
	nop

	! block 61
.L108:
	ba	.L106
	nop

	! block 62
.L107:
	sethi	%hi(blohed_),%l0
	or	%l0,%lo(blohed_),%l0
	ld	[%l0+28],%l0
	cmp	%l0,3000
	ble	.L105
	nop

	! block 63
.L109:
.L106:
	ba	.L110
	nop

	! block 64
.L105:

!  234	C    SEE IF THE BLOCK BEGINS WITH AN ANALOG FILE HEADER.
!  235	      IF (BLKNUM.GT.1) GO TO 375

	sethi	%hi(blohed_),%l0
	or	%l0,%lo(blohed_),%l0
	ld	[%l0+36],%l0
	cmp	%l0,1
	ble	.L111
	nop

	! block 65
.L112:
	ba	.L113
	nop

	! block 66
.L111:

!  236	C           HERE WE HAVE AN ANALOG FILE HEADER.  COPY IT.
!  237	      CALL MVC (I4BUFF(11,CURBUF),IMFHED,600)

	ld	[%fp-8],%l0
	add	%l0,44,%l3
	sethi	%hi(GPB.impcor.curbuf),%l0
	or	%l0,%lo(GPB.impcor.curbuf),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,7,%l1
	add	%l2,%l1,%l2
	sll	%l0,8,%l1
	add	%l2,%l1,%l2
	sll	%l0,9,%l1
	add	%l2,%l1,%l2
	sll	%l0,12,%l1
	add	%l2,%l1,%l2
	sll	%l0,13,%l1
	add	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sethi	%hi(lashed_),%l1
	or	%l1,%lo(lashed_),%l1
	sethi	%hi(.L_cseg8),%l2
	or	%l2,%lo(.L_cseg8),%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	mvc_
	nop

!  238	c        *******************
!  239	      if (origin .eq. 'ibm') then

	sethi	%hi(GPB.impcor.origin),%l0
	or	%l0,%lo(GPB.impcor.origin),%l0
	sethi	%hi(.L_cseg24),%l1
	or	%l1,%lo(.L_cseg24),%l1
	mov	3,%l2
	mov	3,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__s_cmp
	nop
	mov	%o0,%l0
	cmp	%l0,0
	bne	.L114
	nop

	! block 67
.L115:

!  240	         ncvrt = icvtf(lahedu(34), 2, lahedu(34) )

	ld	[%fp-12],%l0
	add	%l0,136,%l1
	sethi	%hi(.L_cseg25),%l2
	or	%l2,%lo(.L_cseg25),%l2
	ld	[%fp-12],%l0
	add	%l0,136,%l0
	mov	%l1,%o0
	mov	%l2,%o1
	mov	%l0,%o2
	call	icvtf_
	nop
	mov	%o0,%l1
	sethi	%hi(GPB.impcor.ncvrt),%l0
	or	%l0,%lo(GPB.impcor.ncvrt),%l0
	st	%l1,[%l0+0]

!  241	         if (ncvrt .gt. 0) write(0,*) " num of conv. errors =",ncvrt

	sethi	%hi(GPB.impcor.ncvrt),%l0
	or	%l0,%lo(GPB.impcor.ncvrt),%l0
	ld	[%l0+0],%l0
	cmp	%l0,0
	ble	.L117
	nop

	! block 68
.L118:
	sethi	%hi(GPB.impcor.IO.119),%l0
	or	%l0,%lo(GPB.impcor.IO.119),%l0
	mov	%l0,%o0
	call	__s_wsle_nv
	nop
	add	%fp,-162,%l0
	sethi	%hi(.L_cseg27),%l1
	or	%l1,%lo(.L_cseg27),%l1
	mov	22,%l2
	mov	22,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__s_copy
	nop
	sethi	%hi(.L_cseg0),%l0
	or	%l0,%lo(.L_cseg0),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	add	%fp,-162,%l2
	mov	22,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_l_out
	nop
	sethi	%hi(.L_cseg18),%l0
	or	%l0,%lo(.L_cseg18),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(GPB.impcor.ncvrt),%l2
	or	%l2,%lo(GPB.impcor.ncvrt),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_l_out
	nop
	call	__e_wsle
	nop

	! block 69
.L117:

!  242	         call ebc2asc (lahedu(41), lahedu(41), 20)

	ld	[%fp-12],%l0
	add	%l0,164,%l1
	ld	[%fp-12],%l0
	add	%l0,164,%l0
	sethi	%hi(.L_cseg28),%l2
	or	%l2,%lo(.L_cseg28),%l2
	mov	%l1,%o0
	mov	%l0,%o1
	mov	%l2,%o2
	call	ebc2asc_
	nop

!  243	      else 

	ba	.L120
	nop

	! block 70
.L114:

!  244	      endif

.L120:

!  245	c        *******************
!  246	      IMPNUM = IMFHED

	sethi	%hi(lashed_),%l0
	or	%l0,%lo(lashed_),%l0
	ld	[%l0+0],%l1
	sethi	%hi(rawdat_),%l0
	or	%l0,%lo(rawdat_),%l0
	st	%l1,[%l0+0]

	! block 71
.L113:

!  247	  375 IF (NARG.LE.1) GO TO 395

	ld	[%fp+96],%l0
	ld	[%l0+0],%l0
	cmp	%l0,1
	bg	.L121
	nop

	! block 72
.L122:
	ba	.L123
	nop

	! block 73
.L121:

!  248	      IF(LLRWNO.GT.2948) GO TO 410

	sethi	%hi(blohed_),%l0
	or	%l0,%lo(blohed_),%l0
	ld	[%l0+24],%l0
	cmp	%l0,2948
	ble	.L124
	nop

	! block 74
.L125:
	ba	.L110
	nop

	! block 75
.L124:

!  249	c	
!  250	c     the next statements compare the time of the last logical record
!  251	c     of this block with the time requested in the call to IMPCOR
!  252	c
!  253	      IF (I4BUFF(LLRWNO+49,CURBUF)-MPYEAR) 300,386,395

	ld	[%fp-8],%l0
	add	%l0,196,%l4
	sethi	%hi(blohed_),%l0
	or	%l0,%lo(blohed_),%l0
	ld	[%l0+24],%l3
	sethi	%hi(GPB.impcor.curbuf),%l0
	or	%l0,%lo(GPB.impcor.curbuf),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l2
	sll	%l0,5,%l1
	add	%l2,%l1,%l2
	sll	%l0,6,%l1
	add	%l2,%l1,%l2
	sll	%l0,7,%l1
	add	%l2,%l1,%l2
	sll	%l0,10,%l1
	add	%l2,%l1,%l2
	sll	%l0,11,%l1
	add	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,2,%l1
	add	%l4,%l1,%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-168]
	ld	[%fp-168],%l1
	sethi	%hi(GPB.impcor.mpyear),%l0
	or	%l0,%lo(GPB.impcor.mpyear),%l0
	ld	[%l0+0],%l0
	cmp	%l1,%l0
	bg	.L123
	nop

	! block 76
.L127:
	ld	[%fp-168],%l1
	sethi	%hi(GPB.impcor.mpyear),%l0
	or	%l0,%lo(GPB.impcor.mpyear),%l0
	ld	[%l0+0],%l0
	cmp	%l1,%l0
	bl	.L50
	nop

	! block 77
.L128:
.L126:

!  254	  386 IF (I4BUFF(LLRWNO+5,CURBUF)-MPDOY) 300,387,395

	ld	[%fp-8],%l0
	add	%l0,20,%l4
	sethi	%hi(blohed_),%l0
	or	%l0,%lo(blohed_),%l0
	ld	[%l0+24],%l3
	sethi	%hi(GPB.impcor.curbuf),%l0
	or	%l0,%lo(GPB.impcor.curbuf),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l2
	sll	%l0,5,%l1
	add	%l2,%l1,%l2
	sll	%l0,6,%l1
	add	%l2,%l1,%l2
	sll	%l0,7,%l1
	add	%l2,%l1,%l2
	sll	%l0,10,%l1
	add	%l2,%l1,%l2
	sll	%l0,11,%l1
	add	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,2,%l1
	add	%l4,%l1,%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-172]
	ld	[%fp-172],%l1
	sethi	%hi(GPB.impcor.mpdoy),%l0
	or	%l0,%lo(GPB.impcor.mpdoy),%l0
	ld	[%l0+0],%l0
	cmp	%l1,%l0
	bg	.L123
	nop

	! block 78
.L130:
	ld	[%fp-172],%l1
	sethi	%hi(GPB.impcor.mpdoy),%l0
	or	%l0,%lo(GPB.impcor.mpdoy),%l0
	ld	[%l0+0],%l0
	cmp	%l1,%l0
	bl	.L50
	nop

	! block 79
.L131:
.L129:

!  255	  387 IF (I4BUFF(LLRWNO+6,CURBUF)-MPMSEC) 300,395,395

	ld	[%fp-8],%l0
	add	%l0,24,%l4
	sethi	%hi(blohed_),%l0
	or	%l0,%lo(blohed_),%l0
	ld	[%l0+24],%l3
	sethi	%hi(GPB.impcor.curbuf),%l0
	or	%l0,%lo(GPB.impcor.curbuf),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l2
	sll	%l0,5,%l1
	add	%l2,%l1,%l2
	sll	%l0,6,%l1
	add	%l2,%l1,%l2
	sll	%l0,7,%l1
	add	%l2,%l1,%l2
	sll	%l0,10,%l1
	add	%l2,%l1,%l2
	sll	%l0,11,%l1
	add	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,2,%l1
	add	%l4,%l1,%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impcor.mpmsec),%l0
	or	%l0,%lo(GPB.impcor.mpmsec),%l0
	ld	[%l0+0],%l0
	cmp	%l1,%l0
	bl	.L50
	nop

	! block 80
.L132:
.L123:

!  256	c
!  257	C    REMEMBER TO CONTINUE THIS BUFFER NEXT TIME.
!  258	  395 ROUTER = 3

	mov	3,%l1
	sethi	%hi(GPB.impcor.router),%l0
	or	%l0,%lo(GPB.impcor.router),%l0
	st	%l1,[%l0+0]

!  259	      IF (BUFDUD) CALL BUFDUM (I4BUFF(1,CURBUF),IK)

	sethi	%hi(GPB.impcor.bufdud),%l0
	or	%l0,%lo(GPB.impcor.bufdud),%l0
	ld	[%l0+0],%l0
	cmp	%l0,%g0
	be	.L133
	nop

	! block 81
.L134:
	ld	[%fp-8],%l0
	add	%l0,4,%l3
	sethi	%hi(GPB.impcor.curbuf),%l0
	or	%l0,%lo(GPB.impcor.curbuf),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,7,%l1
	add	%l2,%l1,%l2
	sll	%l0,8,%l1
	add	%l2,%l1,%l2
	sll	%l0,9,%l1
	add	%l2,%l1,%l2
	sll	%l0,12,%l1
	add	%l2,%l1,%l2
	sll	%l0,13,%l1
	add	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sethi	%hi(GPB.impcor.ik),%l1
	or	%l1,%lo(GPB.impcor.ik),%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	bufdum_
	nop

	! block 82
.L133:

!  260	C    INITIALIZE THE ACCESS TABLE POINTER AND COPY THE FIRST ENTRY.
!  261	      NEXTAB = I4BUFF(WNOATS,CURBUF)

	ld	[%fp-8],%l4
	sethi	%hi(blohed_),%l0
	or	%l0,%lo(blohed_),%l0
	ld	[%l0+28],%l3
	sethi	%hi(GPB.impcor.curbuf),%l0
	or	%l0,%lo(GPB.impcor.curbuf),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l2
	sll	%l0,5,%l1
	add	%l2,%l1,%l2
	sll	%l0,6,%l1
	add	%l2,%l1,%l2
	sll	%l0,7,%l1
	add	%l2,%l1,%l2
	sll	%l0,10,%l1
	add	%l2,%l1,%l2
	sll	%l0,11,%l1
	add	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,2,%l1
	add	%l4,%l1,%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impcor.nextab),%l0
	or	%l0,%lo(GPB.impcor.nextab),%l0
	st	%l1,[%l0+0]

	! block 83
.L51:

!  262	C    DISPATCHER COMES HERE WHEN ROUTER = 3.
!  263	  400 KTABLE = KTABLE+1

	sethi	%hi(blohed_),%l0
	or	%l0,%lo(blohed_),%l0
	ld	[%l0+44],%l0
	add	%l0,1,%l1
	sethi	%hi(blohed_),%l0
	or	%l0,%lo(blohed_),%l0
	st	%l1,[%l0+44]

!  264	      IF (KTABLE.GT.TABLEN) GO TO 300

	sethi	%hi(blohed_),%l0
	or	%l0,%lo(blohed_),%l0
	ld	[%l0+44],%l1
	sethi	%hi(blohed_),%l0
	or	%l0,%lo(blohed_),%l0
	ld	[%l0+32],%l0
	cmp	%l1,%l0
	ble	.L135
	nop

	! block 84
.L136:
	ba	.L50
	nop

	! block 85
.L135:

!  265	      ACCTAB = NEXTAB

	sethi	%hi(GPB.impcor.nextab),%l0
	or	%l0,%lo(GPB.impcor.nextab),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impcor.acctab),%l0
	or	%l0,%lo(GPB.impcor.acctab),%l0
	st	%l1,[%l0+0]

!  266	      ACCTAP = WNOATS+KTABLE

	sethi	%hi(blohed_),%l0
	or	%l0,%lo(blohed_),%l0
	ld	[%l0+28],%l2
	sethi	%hi(blohed_),%l0
	or	%l0,%lo(blohed_),%l0
	ld	[%l0+44],%l1
	add	%l2,%l1,%l1
	sethi	%hi(GPB.impcor.acctap),%l0
	or	%l0,%lo(GPB.impcor.acctap),%l0
	st	%l1,[%l0+0]

!  267	      NEXTAB = I4BUFF (ACCTAP, CURBUF)

	ld	[%fp-8],%l4
	sethi	%hi(GPB.impcor.acctap),%l0
	or	%l0,%lo(GPB.impcor.acctap),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impcor.curbuf),%l0
	or	%l0,%lo(GPB.impcor.curbuf),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l2
	sll	%l0,5,%l1
	add	%l2,%l1,%l2
	sll	%l0,6,%l1
	add	%l2,%l1,%l2
	sll	%l0,7,%l1
	add	%l2,%l1,%l2
	sll	%l0,10,%l1
	add	%l2,%l1,%l2
	sll	%l0,11,%l1
	add	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,2,%l1
	add	%l4,%l1,%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impcor.nextab),%l0
	or	%l0,%lo(GPB.impcor.nextab),%l0
	st	%l1,[%l0+0]

!  268	      IF (ACCTAB.GT.10.AND.ACCTAB.LE.LLRWNO) GO TO 500

	sethi	%hi(GPB.impcor.acctab),%l0
	or	%l0,%lo(GPB.impcor.acctab),%l0
	ld	[%l0+0],%l0
	cmp	%l0,10
	ble	.L137
	nop

	! block 86
.L139:
	sethi	%hi(GPB.impcor.acctab),%l0
	or	%l0,%lo(GPB.impcor.acctab),%l0
	ld	[%l0+0],%l1
	sethi	%hi(blohed_),%l0
	or	%l0,%lo(blohed_),%l0
	ld	[%l0+24],%l0
	cmp	%l1,%l0
	bg	.L137
	nop

	! block 87
.L140:
	ba	.L28
	nop

	! block 88
.L137:

!  269	C DUMP BUFFER
!  270	      IF (BUFDUD) GO TO 401

	sethi	%hi(GPB.impcor.bufdud),%l0
	or	%l0,%lo(GPB.impcor.bufdud),%l0
	ld	[%l0+0],%l0
	cmp	%l0,%g0
	be	.L141
	nop

	! block 89
.L142:
	ba	.L143
	nop

	! block 90
.L141:
.L110:

!  271	  410 CALL BUFDUM (I4BUFF(1,CURBUF),IK)

	ld	[%fp-8],%l0
	add	%l0,4,%l3
	sethi	%hi(GPB.impcor.curbuf),%l0
	or	%l0,%lo(GPB.impcor.curbuf),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,7,%l1
	add	%l2,%l1,%l2
	sll	%l0,8,%l1
	add	%l2,%l1,%l2
	sll	%l0,9,%l1
	add	%l2,%l1,%l2
	sll	%l0,12,%l1
	add	%l2,%l1,%l2
	sll	%l0,13,%l1
	add	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sethi	%hi(GPB.impcor.ik),%l1
	or	%l1,%lo(GPB.impcor.ik),%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	bufdum_
	nop

	! block 91
.L143:

!  272	  401  WRITE(IK,1002) ACCTAB,KTABLE

	sethi	%hi(GPB.impcor.ik),%l0
	or	%l0,%lo(GPB.impcor.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impcor.IO.145+8),%l0
	or	%l0,%lo(GPB.impcor.IO.145+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impcor.IO.145+24),%l0
	or	%l0,%lo(GPB.impcor.IO.145+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impcor.IO.145),%l0
	or	%l0,%lo(GPB.impcor.IO.145),%l0
	mov	%l0,%o0
	call	__s_wsFe_nv
	nop
	sethi	%hi(.L_cseg18),%l0
	or	%l0,%lo(.L_cseg18),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(GPB.impcor.acctab),%l2
	or	%l2,%lo(GPB.impcor.acctab),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	sethi	%hi(.L_cseg18),%l0
	or	%l0,%lo(.L_cseg18),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(blohed_+44),%l2
	or	%l2,%lo(blohed_+44),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	call	__e_wsfe
	nop

!  273	      GO TO 300

	ba	.L50
	nop

	! block 92
.L28:

!  274	C PROCESS A SPECTRUM
!  275	C     ACCTAB CONTAINS A POSITIVE ACCESS TABLE ENTRY.  PROCESS THE
!  276	C     SPECTRUM RECORD IN BUFFER (*, CURBUF) TO WHICH IT POINTS.
!  277	  500 CONTINUE


!  278	C COPY SPECTRUM HEADER
!  279	      CALL MVC (I4BUFF(ACCTAB,CURBUF),SHATYP,208)

	ld	[%fp-8],%l4
	sethi	%hi(GPB.impcor.acctab),%l0
	or	%l0,%lo(GPB.impcor.acctab),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impcor.curbuf),%l0
	or	%l0,%lo(GPB.impcor.curbuf),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l2
	sll	%l0,5,%l1
	add	%l2,%l1,%l2
	sll	%l0,6,%l1
	add	%l2,%l1,%l2
	sll	%l0,7,%l1
	add	%l2,%l1,%l2
	sll	%l0,10,%l1
	add	%l2,%l1,%l2
	sll	%l0,11,%l1
	add	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,2,%l1
	add	%l4,%l1,%l0
	sethi	%hi(commsh_),%l1
	or	%l1,%lo(commsh_),%l1
	sethi	%hi(.L_cseg29),%l2
	or	%l2,%lo(.L_cseg29),%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	mvc_
	nop

!  280	c        ***********
!  281	      if (origin .eq. 'ibm') then

	sethi	%hi(GPB.impcor.origin),%l0
	or	%l0,%lo(GPB.impcor.origin),%l0
	sethi	%hi(.L_cseg24),%l1
	or	%l1,%lo(.L_cseg24),%l1
	mov	3,%l2
	mov	3,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__s_cmp
	nop
	mov	%o0,%l0
	cmp	%l0,0
	bne	.L146
	nop

	! block 93
.L147:

!  282	         ncvrt = icvtf(shasrp, 1, shasrp)

	sethi	%hi(commsh_+48),%l0
	or	%l0,%lo(commsh_+48),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(commsh_+48),%l2
	or	%l2,%lo(commsh_+48),%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	icvtf_
	nop
	mov	%o0,%l1
	sethi	%hi(GPB.impcor.ncvrt),%l0
	or	%l0,%lo(GPB.impcor.ncvrt),%l0
	st	%l1,[%l0+0]

!  283	         if (ncvrt .gt. 0) write(0,*) " num of conv. errors =",ncvrt

	sethi	%hi(GPB.impcor.ncvrt),%l0
	or	%l0,%lo(GPB.impcor.ncvrt),%l0
	ld	[%l0+0],%l0
	cmp	%l0,0
	ble	.L148
	nop

	! block 94
.L149:
	sethi	%hi(GPB.impcor.IO.150),%l0
	or	%l0,%lo(GPB.impcor.IO.150),%l0
	mov	%l0,%o0
	call	__s_wsle_nv
	nop
	add	%fp,-194,%l0
	sethi	%hi(.L_cseg27),%l1
	or	%l1,%lo(.L_cseg27),%l1
	mov	22,%l2
	mov	22,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__s_copy
	nop
	sethi	%hi(.L_cseg0),%l0
	or	%l0,%lo(.L_cseg0),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	add	%fp,-194,%l2
	mov	22,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_l_out
	nop
	sethi	%hi(.L_cseg18),%l0
	or	%l0,%lo(.L_cseg18),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(GPB.impcor.ncvrt),%l2
	or	%l2,%lo(GPB.impcor.ncvrt),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_l_out
	nop
	call	__e_wsle
	nop

	! block 95
.L148:

!  284	      else

	ba	.L151
	nop

	! block 96
.L146:

!  285	      endif

.L151:

!  286	c        ***********
!  287	      IF (NARG.LE.1) GO TO 505

	ld	[%fp+96],%l0
	ld	[%l0+0],%l0
	cmp	%l0,1
	bg	.L152
	nop

	! block 97
.L153:
	ba	.L154
	nop

	! block 98
.L152:

!  288	C TIME SEARCH
!  289	      IF (SHYEAR-MPYEAR) 400,501,505

	sethi	%hi(commsh_),%l0
	or	%l0,%lo(commsh_),%l0
	ld	[%l0+196],%l1
	sethi	%hi(GPB.impcor.mpyear),%l0
	or	%l0,%lo(GPB.impcor.mpyear),%l0
	ld	[%l0+0],%l0
	cmp	%l1,%l0
	bg	.L154
	nop

	! block 99
.L156:
	sethi	%hi(commsh_),%l0
	or	%l0,%lo(commsh_),%l0
	ld	[%l0+196],%l1
	sethi	%hi(GPB.impcor.mpyear),%l0
	or	%l0,%lo(GPB.impcor.mpyear),%l0
	ld	[%l0+0],%l0
	cmp	%l1,%l0
	bl	.L51
	nop

	! block 100
.L157:
.L155:

!  290	  501 IF (SHADOY-MPDOY) 400,502,505

	sethi	%hi(commsh_),%l0
	or	%l0,%lo(commsh_),%l0
	ld	[%l0+20],%l1
	sethi	%hi(GPB.impcor.mpdoy),%l0
	or	%l0,%lo(GPB.impcor.mpdoy),%l0
	ld	[%l0+0],%l0
	cmp	%l1,%l0
	bg	.L154
	nop

	! block 101
.L159:
	sethi	%hi(commsh_),%l0
	or	%l0,%lo(commsh_),%l0
	ld	[%l0+20],%l1
	sethi	%hi(GPB.impcor.mpdoy),%l0
	or	%l0,%lo(GPB.impcor.mpdoy),%l0
	ld	[%l0+0],%l0
	cmp	%l1,%l0
	bl	.L51
	nop

	! block 102
.L160:
.L158:

!  291	  502 IF (SHAMS.LT.MPMSEC) GO TO 400

	sethi	%hi(commsh_),%l0
	or	%l0,%lo(commsh_),%l0
	ld	[%l0+24],%l1
	sethi	%hi(GPB.impcor.mpmsec),%l0
	or	%l0,%lo(GPB.impcor.mpmsec),%l0
	ld	[%l0+0],%l0
	cmp	%l1,%l0
	bge	.L161
	nop

	! block 103
.L162:
	ba	.L51
	nop

	! block 104
.L161:
.L154:

!  292	  505 CONTINUE


!  293	C
!  294	C HERE FOR TIME CONTINUITY CHECK
!  295	C HERE FOR BIT DROP CORRECTION
!  296	C
!  297	C LOAD /TIME/
!  298	      YEAR = SHYEAR

	sethi	%hi(commsh_),%l0
	or	%l0,%lo(commsh_),%l0
	ld	[%l0+196],%l1
	sethi	%hi(time_),%l0
	or	%l0,%lo(time_),%l0
	st	%l1,[%l0+0]

!  299	      DOY = SHADOY

	sethi	%hi(commsh_),%l0
	or	%l0,%lo(commsh_),%l0
	ld	[%l0+20],%l1
	sethi	%hi(time_),%l0
	or	%l0,%lo(time_),%l0
	st	%l1,[%l0+4]

!  300	      MILSOD = SHAMS

	sethi	%hi(commsh_),%l0
	or	%l0,%lo(commsh_),%l0
	ld	[%l0+24],%l1
	sethi	%hi(time_),%l0
	or	%l0,%lo(time_),%l0
	st	%l1,[%l0+20]

!  301	      HOUROD = MILSOD/3600000

	sethi	%hi(time_),%l0
	or	%l0,%lo(time_),%l0
	ld	[%l0+20],%l0
	sethi	%hi(3600000),%l1
	or	%l1,%lo(3600000),%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	.div
	nop
	mov	%o0,%l1
	sethi	%hi(time_),%l0
	or	%l0,%lo(time_),%l0
	st	%l1,[%l0+8]

!  302	      MINUTE = MILSOD/60000-HOUROD*60

	sethi	%hi(time_),%l0
	or	%l0,%lo(time_),%l0
	ld	[%l0+20],%l0
	sethi	%hi(60000),%l1
	or	%l1,%lo(60000),%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	.div
	nop
	mov	%o0,%l3
	sethi	%hi(time_),%l0
	or	%l0,%lo(time_),%l0
	ld	[%l0+8],%l0
	sll	%l0,6,%l2
	sll	%l0,2,%l1
	sub	%l2,%l1,%l1
	sub	%l3,%l1,%l1
	sethi	%hi(time_),%l0
	or	%l0,%lo(time_),%l0
	st	%l1,[%l0+12]

!  303	      SECOND = MOD(MILSOD,60000)/1000.0

	sethi	%hi(time_),%l0
	or	%l0,%lo(time_),%l0
	ld	[%l0+20],%l0
	sethi	%hi(60000),%l1
	or	%l1,%lo(60000),%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	.rem
	nop
	mov	%o0,%l0
	st	%l0,[%fp-240]
	ld	[%fp-240],%f2
	fitos	%f2,%f3
	sethi	%hi(.L_cseg30),%l0
	or	%l0,%lo(.L_cseg30),%l0
	ld	[%l0+0],%f2
	fdivs	%f3,%f2,%f2
	sethi	%hi(time_),%l0
	or	%l0,%lo(time_),%l0
	st	%f2,[%l0+16]

!  304	       SEQCLK = SHARSC

	sethi	%hi(commsh_),%l0
	or	%l0,%lo(commsh_),%l0
	ld	[%l0+28],%l1
	sethi	%hi(time_),%l0
	or	%l0,%lo(time_),%l0
	st	%l1,[%l0+24]

!  305	C LOAD /TYPSSN/
!  306	      TYPE = SHATYP

	sethi	%hi(commsh_),%l0
	or	%l0,%lo(commsh_),%l0
	ld	[%l0+0],%l1
	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	st	%l1,[%l0+0]

!  307	        PSEL = SHPSEL

	sethi	%hi(commsh_),%l0
	or	%l0,%lo(commsh_),%l0
	ldsh	[%l0+14],%l0
	sll	%l0,16,%l0
	sra	%l0,16,%l1
	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	st	%l1,[%l0+4]

!  308	          SN = SHASN

	sethi	%hi(commsh_),%l0
	or	%l0,%lo(commsh_),%l0
	ldsh	[%l0+16],%l0
	sll	%l0,16,%l0
	sra	%l0,16,%l1
	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	st	%l1,[%l0+8]

!  309	       TSPIN = SHASRP

	sethi	%hi(commsh_),%l0
	or	%l0,%lo(commsh_),%l0
	ld	[%l0+48],%f2
	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	st	%f2,[%l0+12]

!  310	      LTYPE = MOD(IABS(TYPE),10)

	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+0],%l0
	cmp	%l0,0
	bl	.L164
	nop

	! block 105
.L165:
	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-200]
	ba	.L163
	nop

	! block 106
.L164:
	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+0],%l0
	neg	%l0,%l0
	st	%l0,[%fp-200]

	! block 107
.L163:
	ld	[%fp-200],%l0
	mov	10,%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	.rem
	nop
	mov	%o0,%l1
	sethi	%hi(GPB.impcor.ltype),%l0
	or	%l0,%lo(GPB.impcor.ltype),%l0
	st	%l1,[%l0+0]

!  311	C COPY COUNTS
!  312	      LENGTH = SHALEN

	sethi	%hi(commsh_),%l0
	or	%l0,%lo(commsh_),%l0
	ldsh	[%l0+110],%l0
	sll	%l0,16,%l0
	sra	%l0,16,%l1
	sethi	%hi(rawdat_),%l0
	or	%l0,%lo(rawdat_),%l0
	st	%l1,[%l0+4]

!  313	      CALL UNBYTE (I4BUFF(ACCTAB+52,CURBUF),LENGTH,UBYCOA)

	ld	[%fp-8],%l0
	add	%l0,208,%l4
	sethi	%hi(GPB.impcor.acctab),%l0
	or	%l0,%lo(GPB.impcor.acctab),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impcor.curbuf),%l0
	or	%l0,%lo(GPB.impcor.curbuf),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l2
	sll	%l0,5,%l1
	add	%l2,%l1,%l2
	sll	%l0,6,%l1
	add	%l2,%l1,%l2
	sll	%l0,7,%l1
	add	%l2,%l1,%l2
	sll	%l0,10,%l1
	add	%l2,%l1,%l2
	sll	%l0,11,%l1
	add	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,2,%l1
	add	%l4,%l1,%l0
	sethi	%hi(rawdat_+4),%l1
	or	%l1,%lo(rawdat_+4),%l1
	sethi	%hi(rawdat_+8),%l2
	or	%l2,%lo(rawdat_+8),%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	unbyte_
	nop

!  314	C ===================!  CONVERT TO CURRENTS.  !========================
!  315	      IF (SHASRP.LE.0.5) GO TO 849

	sethi	%hi(commsh_),%l0
	or	%l0,%lo(commsh_),%l0
	ld	[%l0+48],%f3
	sethi	%hi(.L_cseg31),%l0
	or	%l0,%lo(.L_cseg31),%l0
	ld	[%l0+0],%f2
	fcmpes	%f3,%f2
	nop
	fbug	.L166
	nop

	! block 108
.L167:
	ba	.L168
	nop

	! block 109
.L166:

!  316	             DO 510 IUBYCO = 4, LENGTH

	sethi	%hi(rawdat_),%l0
	or	%l0,%lo(rawdat_),%l0
	ld	[%l0+4],%l0
	st	%l0,[%fp-204]
	mov	4,%l1
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	ld	[%l0+0],%l1
	ld	[%fp-204],%l0
	cmp	%l1,%l0
	bg	.L170
	nop

	! block 110
.L174:
.L171:

!  317	           I = UBYCOA (IUBYCO)

	ld	[%fp-16],%l2
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	st	%l1,[%l0+0]

!  318	      IF (I.EQ.0) I=256

	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	ld	[%l0+0],%l0
	cmp	%l0,0
	bne	.L176
	nop

	! block 111
.L177:
	mov	256,%l1
	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	st	%l1,[%l0+0]

	! block 112
.L176:

!  319	C ***********TEMPORARY FIX FOR 077 DATA NUMBERS**********************
!  320	      IF (I.GT.63) GO TO 509

	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	ld	[%l0+0],%l0
	cmp	%l0,63
	ble	.L178
	nop

	! block 113
.L179:
	ba	.L180
	nop

	! block 114
.L178:

!  321	C*****IF (I.LT.63) WRITE(IK,9144)YEAR,DOY,HOUROD,MINUTE,I
!  322	      BADDAT=.TRUE.

	mov	1,%l1
	sethi	%hi(GPB.impcor.baddat),%l0
	or	%l0,%lo(GPB.impcor.baddat),%l0
	st	%l1,[%l0+0]

!  323	9144  FORMAT(I5,I4,I3,I2,5X,'I=',I4)
!  324	      GO TO 512

	ba	.L183
	nop

	! block 115
.L180:

!  325	C*********************************************************************
!  326	 509  CONTINUE


!  327	      COMCUR (IUBYCO) = CURENS (I)/SHASRP/45.0

	ld	[%fp-4],%l2
	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%f3
	sethi	%hi(commsh_),%l0
	or	%l0,%lo(commsh_),%l0
	ld	[%l0+48],%f2
	fdivs	%f3,%f2,%f3
	sethi	%hi(.L_cseg14),%l0
	or	%l0,%lo(.L_cseg14),%l0
	ld	[%l0+0],%f2
	fdivs	%f3,%f2,%f2
	ld	[%fp-20],%l2
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	st	%f2,[%l0+0]

	! block 116
.L169:

!  328	  510 CCUR(IUBYCO) = COMCUR(IUBYCO)

	ld	[%fp-20],%l2
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%f2
	ld	[%fp-24],%l2
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	st	%f2,[%l0+0]
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	ld	[%l0+0],%l1
	ld	[%fp-204],%l0
	cmp	%l1,%l0
	ble	.L171
	nop

	! block 117
.L186:
.L170:

!  329	C
!  330	C        BACKGROUND SUBTRACTIONS FOR IMP-7 PROTONS.
!  331	C        FOR EACH LOOK-ANGLE,SUBTRACT AVERAGE OF HIGH AND LOW
!  332	C        ENERGY CHANNELS FROM ALL ENERGY LEVELS.
!  333	C        X IS CURRENT CORRESPONDING TO 400 (I.E. SMALLER THAN 377).
!  334	C        NREV EQUALS # OF MEASUREMENTS PER ENERGY LEVEL.
!  335	C        NLEV EQUALS # OF ENERGY LEVELS PER SPECTRUM.
!  336	C
!  337	        IF(IMPNUM.NE.7) GO TO 512

	sethi	%hi(rawdat_),%l0
	or	%l0,%lo(rawdat_),%l0
	ld	[%l0+0],%l0
	cmp	%l0,7
	be	.L187
	nop

	! block 118
.L188:
	ba	.L183
	nop

	! block 119
.L187:

!  338	      IF (NARG.EQ.0) GO TO 512

	ld	[%fp+96],%l0
	ld	[%l0+0],%l0
	cmp	%l0,0
	bne	.L189
	nop

	! block 120
.L190:
	ba	.L183
	nop

	! block 121
.L189:

!  339	        IF(TYPE.LT.1.OR.TYPE.GT.4) GO TO 512

	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+0],%l0
	cmp	%l0,1
	bge	.L193
	nop

	! block 122
.L194:
	ba	.L192
	nop

	! block 123
.L193:
	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+0],%l0
	cmp	%l0,4
	ble	.L191
	nop

	! block 124
.L195:
.L192:
	ba	.L183
	nop

	! block 125
.L191:

!  340	        IF(TYPE.EQ.2) GO TO 512

	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+0],%l0
	cmp	%l0,2
	bne	.L196
	nop

	! block 126
.L197:
	ba	.L183
	nop

	! block 127
.L196:

!  341	        X = CURENS(256)/45.0/SHASRP

	ld	[%fp-4],%l0
	add	%l0,1024,%l0
	ld	[%l0+0],%f3
	sethi	%hi(.L_cseg14),%l0
	or	%l0,%lo(.L_cseg14),%l0
	ld	[%l0+0],%f2
	fdivs	%f3,%f2,%f3
	sethi	%hi(commsh_),%l0
	or	%l0,%lo(commsh_),%l0
	ld	[%l0+48],%f2
	fdivs	%f3,%f2,%f2
	sethi	%hi(GPB.impcor.x),%l0
	or	%l0,%lo(GPB.impcor.x),%l0
	st	%f2,[%l0+0]

!  342	        NREV = 68 + 10*TYPE*(TYPE-5)

	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+0],%l0
	sll	%l0,1,%l2
	sll	%l0,3,%l1
	add	%l2,%l1,%l1
	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+0],%l0
	add	%l0,-5,%l0
	mov	%l1,%o0
	mov	%l0,%o1
	call	.mul
	nop
	mov	%o0,%l0
	add	%l0,68,%l1
	sethi	%hi(GPB.impcor.nrev),%l0
	or	%l0,%lo(GPB.impcor.nrev),%l0
	st	%l1,[%l0+0]

!  343	        NLEV = -8 + 8*TYPE*(7-TYPE)/3

	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+0],%l0
	sll	%l0,3,%l3
	mov	7,%l2
	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+0],%l1
	sub	%l2,%l1,%l0
	mov	%l3,%o0
	mov	%l0,%o1
	call	.mul
	nop
	mov	%o0,%l0
	mov	3,%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	.div
	nop
	mov	%o0,%l0
	add	%l0,-8,%l1
	sethi	%hi(GPB.impcor.nlev),%l0
	or	%l0,%lo(GPB.impcor.nlev),%l0
	st	%l1,[%l0+0]

!  344	        IJ = (NLEV-1)*NREV

	sethi	%hi(GPB.impcor.nlev),%l0
	or	%l0,%lo(GPB.impcor.nlev),%l0
	ld	[%l0+0],%l0
	add	%l0,-1,%l1
	sethi	%hi(GPB.impcor.nrev),%l0
	or	%l0,%lo(GPB.impcor.nrev),%l0
	ld	[%l0+0],%l0
	mov	%l1,%o0
	mov	%l0,%o1
	call	.mul
	nop
	mov	%o0,%l1
	sethi	%hi(GPB.impcor.ij),%l0
	or	%l0,%lo(GPB.impcor.ij),%l0
	st	%l1,[%l0+0]

!  345	        NREV = NREV + 3

	sethi	%hi(GPB.impcor.nrev),%l0
	or	%l0,%lo(GPB.impcor.nrev),%l0
	ld	[%l0+0],%l0
	add	%l0,3,%l1
	sethi	%hi(GPB.impcor.nrev),%l0
	or	%l0,%lo(GPB.impcor.nrev),%l0
	st	%l1,[%l0+0]

!  346	        DO 511  I=4,NREV

	sethi	%hi(GPB.impcor.nrev),%l0
	or	%l0,%lo(GPB.impcor.nrev),%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-208]
	mov	4,%l1
	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	ld	[%l0+0],%l1
	ld	[%fp-208],%l0
	cmp	%l1,%l0
	bg	.L199
	nop

	! block 128
.L203:
.L200:

!  347	        JK = IJ + 1

	sethi	%hi(GPB.impcor.ij),%l0
	or	%l0,%lo(GPB.impcor.ij),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impcor.jk),%l0
	or	%l0,%lo(GPB.impcor.jk),%l0
	st	%l1,[%l0+0]

!  348	        R = (COMCUR(I) + COMCUR(JK))*.5

	ld	[%fp-20],%l2
	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%f3
	ld	[%fp-20],%l2
	sethi	%hi(GPB.impcor.jk),%l0
	or	%l0,%lo(GPB.impcor.jk),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%f2
	fadds	%f3,%f2,%f3
	sethi	%hi(.L_cseg31),%l0
	or	%l0,%lo(.L_cseg31),%l0
	ld	[%l0+0],%f2
	fmuls	%f3,%f2,%f2
	sethi	%hi(GPB.impcor.r),%l0
	or	%l0,%lo(GPB.impcor.r),%l0
	st	%f2,[%l0+0]

!  349	        DO 511  J=I,JK,NLEV

	sethi	%hi(GPB.impcor.jk),%l0
	or	%l0,%lo(GPB.impcor.jk),%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-216]
	sethi	%hi(GPB.impcor.nlev),%l0
	or	%l0,%lo(GPB.impcor.nlev),%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-212]
	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impcor.j),%l0
	or	%l0,%lo(GPB.impcor.j),%l0
	st	%l1,[%l0+0]
	ld	[%fp-212],%l0
	cmp	%l0,0
	bg	.L208
	nop

	! block 129
.L210:
	sethi	%hi(GPB.impcor.j),%l0
	or	%l0,%lo(GPB.impcor.j),%l0
	ld	[%l0+0],%l1
	ld	[%fp-216],%l0
	cmp	%l1,%l0
	bl	.L204
	nop

	! block 130
.L211:
	sethi	%hi(GPB.impcor.j),%l0
	or	%l0,%lo(GPB.impcor.j),%l0
	ld	[%l0+0],%l0
	ld	[%fp-216],%l1
	sub	%l0,%l1,%l0
	st	%l0,[%fp-224]
	ld	[%fp-212],%l0
	neg	%l0,%l0
	st	%l0,[%fp-228]
	ba	.L209
	nop

	! block 131
.L208:
	sethi	%hi(GPB.impcor.j),%l0
	or	%l0,%lo(GPB.impcor.j),%l0
	ld	[%l0+0],%l1
	ld	[%fp-216],%l0
	cmp	%l1,%l0
	bg	.L204
	nop

	! block 132
.L212:
	ld	[%fp-216],%l2
	sethi	%hi(GPB.impcor.j),%l0
	or	%l0,%lo(GPB.impcor.j),%l0
	ld	[%l0+0],%l1
	sub	%l2,%l1,%l0
	st	%l0,[%fp-224]
	ld	[%fp-212],%l0
	st	%l0,[%fp-228]

	! block 133
.L209:
	mov	0,%l0
	st	%l0,[%fp-220]

	! block 134
.L205:

!  350	        COMCUR(J) = COMCUR(J)-R

	ld	[%fp-20],%l2
	sethi	%hi(GPB.impcor.j),%l0
	or	%l0,%lo(GPB.impcor.j),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%f3
	sethi	%hi(GPB.impcor.r),%l0
	or	%l0,%lo(GPB.impcor.r),%l0
	ld	[%l0+0],%f2
	fsubs	%f3,%f2,%f2
	ld	[%fp-20],%l2
	sethi	%hi(GPB.impcor.j),%l0
	or	%l0,%lo(GPB.impcor.j),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	st	%f2,[%l0+0]

!  351	        IF(COMCUR(J).LE.X) COMCUR(J) = X

	ld	[%fp-20],%l2
	sethi	%hi(GPB.impcor.j),%l0
	or	%l0,%lo(GPB.impcor.j),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%f3
	sethi	%hi(GPB.impcor.x),%l0
	or	%l0,%lo(GPB.impcor.x),%l0
	ld	[%l0+0],%f2
	fcmpes	%f3,%f2
	nop
	fbug	.L213
	nop

	! block 135
.L214:
	sethi	%hi(GPB.impcor.x),%l0
	or	%l0,%lo(GPB.impcor.x),%l0
	ld	[%l0+0],%f2
	ld	[%fp-20],%l2
	sethi	%hi(GPB.impcor.j),%l0
	or	%l0,%lo(GPB.impcor.j),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	st	%f2,[%l0+0]

	! block 136
.L213:
.L198:

!  352	  511   CONTINUE

	sethi	%hi(GPB.impcor.j),%l0
	or	%l0,%lo(GPB.impcor.j),%l0
	ld	[%l0+0],%l0
	ld	[%fp-212],%l1
	add	%l0,%l1,%l1
	sethi	%hi(GPB.impcor.j),%l0
	or	%l0,%lo(GPB.impcor.j),%l0
	st	%l1,[%l0+0]
	ld	[%fp-220],%l0
	ld	[%fp-228],%l1
	add	%l0,%l1,%l0
	st	%l0,[%fp-220]
	ld	[%fp-220],%l1
	ld	[%fp-224],%l0
	cmp	%l1,%l0
	bleu	.L205
	nop

	! block 137
.L215:
.L204:
	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	ld	[%l0+0],%l1
	ld	[%fp-208],%l0
	cmp	%l1,%l0
	ble	.L200
	nop

	! block 138
.L216:
.L199:
.L183:

!  353	  512   CONTINUE


!  354	C    ZERO SPECTRUM OUTPUT AREAS.
!  355	C    /PROTON/.
!  356	      QPLUS (1, 1, 1) = 0

	sethi	%hi(.L_cseg32),%l0
	or	%l0,%lo(.L_cseg32),%l0
	ld	[%l0+0],%f2
	ld	[%fp-28],%l0
	add	%l0,124,%l0
	st	%f2,[%l0+0]

!  357	               CALL MVC (QPLUS, QPLUS (2, 1, 1), 5820)

	sethi	%hi(proton_),%l1
	or	%l1,%lo(proton_),%l1
	ld	[%fp-28],%l0
	add	%l0,128,%l0
	sethi	%hi(.L_cseg33),%l2
	or	%l2,%lo(.L_cseg33),%l2
	mov	%l1,%o0
	mov	%l0,%o1
	mov	%l2,%o2
	call	mvc_
	nop

!  358	C CLEAR /AMBER/
!  359	      IF (LTYPE.NE.1.OR.SN.EQ.0) CALL MVC (QPLUS,QMINUS,1344)

	sethi	%hi(GPB.impcor.ltype),%l0
	or	%l0,%lo(GPB.impcor.ltype),%l0
	ld	[%l0+0],%l0
	cmp	%l0,1
	be	.L220
	nop

	! block 139
.L221:
	ba	.L219
	nop

	! block 140
.L220:
	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+8],%l0
	cmp	%l0,0
	bne	.L218
	nop

	! block 141
.L222:
.L219:
	sethi	%hi(proton_),%l0
	or	%l0,%lo(proton_),%l0
	sethi	%hi(amber_),%l1
	or	%l1,%lo(amber_),%l1
	sethi	%hi(.L_cseg10),%l2
	or	%l2,%lo(.L_cseg10),%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	mvc_
	nop

	! block 142
.L218:

!  360	C =======================!  BRANCH ABOUT  !============================
!  361	         IUBYCO = 3

	mov	3,%l1
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	st	%l1,[%l0+0]

!  362	      IF (LTYPE.EQ.1) GO TO 520

	sethi	%hi(GPB.impcor.ltype),%l0
	or	%l0,%lo(GPB.impcor.ltype),%l0
	ld	[%l0+0],%l0
	cmp	%l0,1
	bne	.L223
	nop

	! block 143
.L224:
	ba	.L225
	nop

	! block 144
.L223:

!  363	      IF (TYPE.EQ.2) GO TO 6650

	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+0],%l0
	cmp	%l0,2
	bne	.L226
	nop

	! block 145
.L227:
	ba	.L228
	nop

	! block 146
.L226:

!  364	      IF (LTYPE.EQ.3) GO TO 640

	sethi	%hi(GPB.impcor.ltype),%l0
	or	%l0,%lo(GPB.impcor.ltype),%l0
	ld	[%l0+0],%l0
	cmp	%l0,3
	bne	.L229
	nop

	! block 147
.L230:
	ba	.L231
	nop

	! block 148
.L229:

!  365	      IF (LTYPE.EQ.4) GO TO 650

	sethi	%hi(GPB.impcor.ltype),%l0
	or	%l0,%lo(GPB.impcor.ltype),%l0
	ld	[%l0+0],%l0
	cmp	%l0,4
	bne	.L232
	nop

	! block 149
.L233:
	ba	.L234
	nop

	! block 150
.L232:

!  366	               GO TO 850

	ba	.L235
	nop

	! block 151
.L225:

!  367	C ==================!  GRADE-A TRACKING MODE.  !=======================
!  368	C     VERIFY PSEL THAT IT MAY BE USED FOR ADDRESSING.
!  369	520   CONTINUE


!  370	C ****************************************
!  371	      IF(BADDAT) GO TO 521

	sethi	%hi(GPB.impcor.baddat),%l0
	or	%l0,%lo(GPB.impcor.baddat),%l0
	ld	[%l0+0],%l0
	cmp	%l0,%g0
	be	.L236
	nop

	! block 152
.L237:
	ba	.L238
	nop

	! block 153
.L236:

!  372	C*****************************************
!  373	          IF (PSEL .GT. 2 .AND. PSEL .LT. 20) GO TO 530

	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+4],%l0
	cmp	%l0,2
	ble	.L239
	nop

	! block 154
.L241:
	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+4],%l0
	cmp	%l0,20
	bge	.L239
	nop

	! block 155
.L242:
	ba	.L243
	nop

	! block 156
.L239:
.L238:

!  374	521   CONTINUE


!  375	C BAD PSEL
!  376	      TYPE = 5

	mov	5,%l1
	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	st	%l1,[%l0+0]

!  377	      GO TO 850

	ba	.L235
	nop

	! block 157
.L243:

!  378	  530 PSELP7 = PSEL + 7

	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+4],%l0
	add	%l0,7,%l1
	sethi	%hi(GPB.impcor.pselp7),%l0
	or	%l0,%lo(GPB.impcor.pselp7),%l0
	st	%l1,[%l0+0]

!  379	      PSELP = PSEL

	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+4],%l1
	sethi	%hi(GPB.impcor.pselp),%l0
	or	%l0,%lo(GPB.impcor.pselp),%l0
	st	%l1,[%l0+0]

	! block 158
.L244:

!  380	C TN OR AQM PROTONS
!  381	  531 DO 6625 ENGY26=PSELP,PSELP7

	sethi	%hi(GPB.impcor.pselp7),%l0
	or	%l0,%lo(GPB.impcor.pselp7),%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-232]
	sethi	%hi(GPB.impcor.pselp),%l0
	or	%l0,%lo(GPB.impcor.pselp),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l1
	ld	[%fp-232],%l0
	cmp	%l1,%l0
	bg	.L246
	nop

	! block 159
.L250:
.L247:

!  382	C SECTORS 1-8 INTO POSITIONS 4-11
!  383	             DO 540 ANGL14 = 4, 11

	mov	4,%l1
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	st	%l1,[%l0+0]

	! block 160
.L253:

!  384	      IUBYCO = IUBYCO + 1

	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	st	%l1,[%l0+0]

!  385	      QPLUS (1, ANGL14, ENGY26) = UBYCOA (IUBYCO)

	ld	[%fp-16],%l2
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-240]
	ld	[%fp-240],%f2
	fitos	%f2,%f2
	ld	[%fp-28],%l0
	add	%l0,4,%l4
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,1,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,3,%l1
	add	%l4,%l1,%l0
	st	%f2,[%l0+0]

!  386	      IPLUS (1, ANGL14, ENGY26) = COMCUR (IUBYCO) * 4.

	ld	[%fp-20],%l2
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%f3
	sethi	%hi(.L_cseg34),%l0
	or	%l0,%lo(.L_cseg34),%l0
	ld	[%l0+0],%f2
	fmuls	%f3,%f2,%f2
	ld	[%fp-32],%l0
	add	%l0,4,%l4
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,1,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,3,%l1
	add	%l4,%l1,%l0
	st	%f2,[%l0+0]

!  387	      IUBYCO = IUBYCO + 1

	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	st	%l1,[%l0+0]

!  388	      QPLUS (2, ANGL14, ENGY26) = UBYCOA (IUBYCO)

	ld	[%fp-16],%l2
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-240]
	ld	[%fp-240],%f2
	fitos	%f2,%f2
	ld	[%fp-28],%l0
	add	%l0,8,%l4
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,1,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,3,%l1
	add	%l4,%l1,%l0
	st	%f2,[%l0+0]

	! block 161
.L251:

!  389	  540 IPLUS (2, ANGL14, ENGY26) = COMCUR (IUBYCO) + COMCUR (IUBYCO)

	ld	[%fp-20],%l2
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%f3
	ld	[%fp-20],%l2
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%f2
	fadds	%f3,%f2,%f2
	ld	[%fp-32],%l0
	add	%l0,8,%l4
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,1,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,3,%l1
	add	%l4,%l1,%l0
	st	%f2,[%l0+0]
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	ld	[%l0+0],%l0
	cmp	%l0,11
	ble	.L253
	nop

	! block 162
.L257:
.L252:

!  390	C SECTORS 9-11 INTO POSITIONS 12-14
!  391	C SECTORS 12-14 INTO POSITIONS 1-3
!  392	      DO 6623 I=9,14

	mov	9,%l1
	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	st	%l1,[%l0+0]

	! block 163
.L260:

!  393	      ANGL14 = 3+I

	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	ld	[%l0+0],%l0
	add	%l0,3,%l1
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	st	%l1,[%l0+0]

!  394	      IF (ANGL14.GT.14) ANGL14=ANGL14-14

	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	ld	[%l0+0],%l0
	cmp	%l0,14
	ble	.L263
	nop

	! block 164
.L264:
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	ld	[%l0+0],%l0
	add	%l0,-14,%l1
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	st	%l1,[%l0+0]

	! block 165
.L263:

!  395	      X = 1.0

	sethi	%hi(.L_cseg35),%l0
	or	%l0,%lo(.L_cseg35),%l0
	ld	[%l0+0],%f2
	sethi	%hi(GPB.impcor.x),%l0
	or	%l0,%lo(GPB.impcor.x),%l0
	st	%f2,[%l0+0]

!  396	      IF (ANGL14.EQ.3) X=ANGLAP

	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	ld	[%l0+0],%l0
	cmp	%l0,3
	bne	.L265
	nop

	! block 166
.L266:
	sethi	%hi(GPB.impcor.anglap),%l0
	or	%l0,%lo(GPB.impcor.anglap),%l0
	ld	[%l0+0],%f2
	sethi	%hi(GPB.impcor.x),%l0
	or	%l0,%lo(GPB.impcor.x),%l0
	st	%f2,[%l0+0]

	! block 167
.L265:

!  397	            IUBYCO = IUBYCO + 1

	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	st	%l1,[%l0+0]

!  398	            QPLUS (1, ANGL14, ENGY26) = UBYCOA (IUBYCO)

	ld	[%fp-16],%l2
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-240]
	ld	[%fp-240],%f2
	fitos	%f2,%f2
	ld	[%fp-28],%l0
	add	%l0,4,%l4
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,1,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,3,%l1
	add	%l4,%l1,%l0
	st	%f2,[%l0+0]

!  399	            IPLUS (1, ANGL14, ENGY26) = COMCUR (IUBYCO)*X

	ld	[%fp-20],%l2
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%f3
	sethi	%hi(GPB.impcor.x),%l0
	or	%l0,%lo(GPB.impcor.x),%l0
	ld	[%l0+0],%f2
	fmuls	%f3,%f2,%f2
	ld	[%fp-32],%l0
	add	%l0,4,%l4
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,1,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,3,%l1
	add	%l4,%l1,%l0
	st	%f2,[%l0+0]

!  400	            IUBYCO = IUBYCO + 1

	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	st	%l1,[%l0+0]

!  401	            QPLUS (2, ANGL14, ENGY26) = UBYCOA (IUBYCO)

	ld	[%fp-16],%l2
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-240]
	ld	[%fp-240],%f2
	fitos	%f2,%f2
	ld	[%fp-28],%l0
	add	%l0,8,%l4
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,1,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,3,%l1
	add	%l4,%l1,%l0
	st	%f2,[%l0+0]

	! block 168
.L258:

!  402	 6623 IPLUS (2, ANGL14, ENGY26) = COMCUR (IUBYCO) * .5 *X

	ld	[%fp-20],%l2
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%f3
	sethi	%hi(.L_cseg31),%l0
	or	%l0,%lo(.L_cseg31),%l0
	ld	[%l0+0],%f2
	fmuls	%f3,%f2,%f3
	sethi	%hi(GPB.impcor.x),%l0
	or	%l0,%lo(GPB.impcor.x),%l0
	ld	[%l0+0],%f2
	fmuls	%f3,%f2,%f2
	ld	[%fp-32],%l0
	add	%l0,8,%l4
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,1,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,3,%l1
	add	%l4,%l1,%l0
	st	%f2,[%l0+0]
	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	ld	[%l0+0],%l0
	cmp	%l0,14
	ble	.L260
	nop

	! block 169
.L267:
.L259:
.L245:

!  403	 6625 CONTINUE

	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l1
	ld	[%fp-232],%l0
	cmp	%l1,%l0
	ble	.L247
	nop

	! block 170
.L268:
.L246:

!  404	      IF (TYPE.EQ.4) GO TO 645

	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+0],%l0
	cmp	%l0,4
	bne	.L269
	nop

	! block 171
.L270:
	ba	.L271
	nop

	! block 172
.L269:

!  405	C    TMS ELECTRON DATA.
!  406	C    VERIFY SN THAT IT MAY BE USED FOR ADDRESSING.
!  407	      IEL1 = SN * 2 + 1

	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+8],%l0
	sll	%l0,1,%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impcor.iel1),%l0
	or	%l0,%lo(GPB.impcor.iel1),%l0
	st	%l1,[%l0+0]

!  408	      IEL2 = IEL1 + 1

	sethi	%hi(GPB.impcor.iel1),%l0
	or	%l0,%lo(GPB.impcor.iel1),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impcor.iel2),%l0
	or	%l0,%lo(GPB.impcor.iel2),%l0
	st	%l1,[%l0+0]

	! block 173
.L272:

!  409	C TM,AQM,NTM ELECTRON DATA
!  410	 6633        DO 6635 ENGY21 = IEL1, IEL2

	sethi	%hi(GPB.impcor.iel2),%l0
	or	%l0,%lo(GPB.impcor.iel2),%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-236]
	sethi	%hi(GPB.impcor.iel1),%l0
	or	%l0,%lo(GPB.impcor.iel1),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impcor.engy21),%l0
	or	%l0,%lo(GPB.impcor.engy21),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impcor.engy21),%l0
	or	%l0,%lo(GPB.impcor.engy21),%l0
	ld	[%l0+0],%l1
	ld	[%fp-236],%l0
	cmp	%l1,%l0
	bg	.L274
	nop

	! block 174
.L278:
.L275:

!  411	         DO 6635 ANGLE8 = 1, 8

	mov	1,%l1
	sethi	%hi(GPB.impcor.angle8),%l0
	or	%l0,%lo(GPB.impcor.angle8),%l0
	st	%l1,[%l0+0]

	! block 175
.L280:

!  412	            IUBYCO = IUBYCO + 1

	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	st	%l1,[%l0+0]

!  413	      QMINUS(ANGLE8,ENGY21) = UBYCOA(IUBYCO)

	ld	[%fp-16],%l2
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-240]
	ld	[%fp-240],%f2
	fitos	%f2,%f2
	ld	[%fp-36],%l3
	sethi	%hi(GPB.impcor.angle8),%l0
	or	%l0,%lo(GPB.impcor.angle8),%l0
	ld	[%l0+0],%l2
	sethi	%hi(GPB.impcor.engy21),%l0
	or	%l0,%lo(GPB.impcor.engy21),%l0
	ld	[%l0+0],%l0
	sll	%l0,3,%l1
	add	%l2,%l1,%l0
	sll	%l0,2,%l1
	add	%l3,%l1,%l0
	st	%f2,[%l0+0]

!  414	      X = EANGLE

	sethi	%hi(GPB.impcor.eangle),%l0
	or	%l0,%lo(GPB.impcor.eangle),%l0
	ld	[%l0+0],%f2
	sethi	%hi(GPB.impcor.x),%l0
	or	%l0,%lo(GPB.impcor.x),%l0
	st	%f2,[%l0+0]

!  415	      IF (ANGLE8.EQ.8) X=ANGLAE

	sethi	%hi(GPB.impcor.angle8),%l0
	or	%l0,%lo(GPB.impcor.angle8),%l0
	ld	[%l0+0],%l0
	cmp	%l0,8
	bne	.L284
	nop

	! block 176
.L285:
	sethi	%hi(GPB.impcor.anglae),%l0
	or	%l0,%lo(GPB.impcor.anglae),%l0
	ld	[%l0+0],%f2
	sethi	%hi(GPB.impcor.x),%l0
	or	%l0,%lo(GPB.impcor.x),%l0
	st	%f2,[%l0+0]

	! block 177
.L284:
.L273:

!  416	 6635 IMINUS(ANGLE8,ENGY21) = COMCUR(IUBYCO)*X

	ld	[%fp-20],%l2
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%f3
	sethi	%hi(GPB.impcor.x),%l0
	or	%l0,%lo(GPB.impcor.x),%l0
	ld	[%l0+0],%f2
	fmuls	%f3,%f2,%f2
	ld	[%fp-40],%l3
	sethi	%hi(GPB.impcor.angle8),%l0
	or	%l0,%lo(GPB.impcor.angle8),%l0
	ld	[%l0+0],%l2
	sethi	%hi(GPB.impcor.engy21),%l0
	or	%l0,%lo(GPB.impcor.engy21),%l0
	ld	[%l0+0],%l0
	sll	%l0,3,%l1
	add	%l2,%l1,%l0
	sll	%l0,2,%l1
	add	%l3,%l1,%l0
	st	%f2,[%l0+0]
	sethi	%hi(GPB.impcor.angle8),%l0
	or	%l0,%lo(GPB.impcor.angle8),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impcor.angle8),%l0
	or	%l0,%lo(GPB.impcor.angle8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impcor.angle8),%l0
	or	%l0,%lo(GPB.impcor.angle8),%l0
	ld	[%l0+0],%l0
	cmp	%l0,8
	ble	.L280
	nop

	! block 178
.L287:
.L279:
	sethi	%hi(GPB.impcor.engy21),%l0
	or	%l0,%lo(GPB.impcor.engy21),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impcor.engy21),%l0
	or	%l0,%lo(GPB.impcor.engy21),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impcor.engy21),%l0
	or	%l0,%lo(GPB.impcor.engy21),%l0
	ld	[%l0+0],%l1
	ld	[%fp-236],%l0
	cmp	%l1,%l0
	ble	.L275
	nop

	! block 179
.L288:
.L274:
.L289:

!  417	 6637          GO TO 800

	ba	.L290
	nop

	! block 180
.L228:

!  418	C =================!  GRADE-A CALIBRATION MODE.  !=====================
!  419	 6650 CONTINUE


!  420	      CALL MVC (YEAR,LCYR,20)

	sethi	%hi(time_),%l0
	or	%l0,%lo(time_),%l0
	sethi	%hi(lascal_),%l1
	or	%l1,%lo(lascal_),%l1
	sethi	%hi(.L_cseg28),%l2
	or	%l2,%lo(.L_cseg28),%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	mvc_
	nop

!  421	      CALL MVC (UBYCOA,LCSPEC,1148)

	sethi	%hi(rawdat_+8),%l0
	or	%l0,%lo(rawdat_+8),%l0
	sethi	%hi(lascal_+20),%l1
	or	%l1,%lo(lascal_+20),%l1
	sethi	%hi(.L_cseg36),%l2
	or	%l2,%lo(.L_cseg36),%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	mvc_
	nop

!  422	      CALL MVC (I4BUFF(ACCTAB,CURBUF),LCDAT,496)

	ld	[%fp-8],%l4
	sethi	%hi(GPB.impcor.acctab),%l0
	or	%l0,%lo(GPB.impcor.acctab),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impcor.curbuf),%l0
	or	%l0,%lo(GPB.impcor.curbuf),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l2
	sll	%l0,5,%l1
	add	%l2,%l1,%l2
	sll	%l0,6,%l1
	add	%l2,%l1,%l2
	sll	%l0,7,%l1
	add	%l2,%l1,%l2
	sll	%l0,10,%l1
	add	%l2,%l1,%l2
	sll	%l0,11,%l1
	add	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,2,%l1
	add	%l4,%l1,%l0
	sethi	%hi(lascal_+1168),%l1
	or	%l1,%lo(lascal_+1168),%l1
	sethi	%hi(.L_cseg37),%l2
	or	%l2,%lo(.L_cseg37),%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	mvc_
	nop

!  423	               GO TO 800

	ba	.L290
	nop

	! block 181
.L231:

!  424	C =================!  GRADE-A NON-TRACKING MODE.  !====================
!  425	  640 CONTINUE


!  426	      DO 643 ENGY26=3,26

	mov	3,%l1
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	st	%l1,[%l0+0]

	! block 182
.L293:

!  427	C SECTOR 1 INTO POSITIONS 4-7
!  428	         IUBYCO = IUBYCO + 1

	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	st	%l1,[%l0+0]

!  429	         J = UBYCOA (IUBYCO)

	ld	[%fp-16],%l2
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impcor.j),%l0
	or	%l0,%lo(GPB.impcor.j),%l0
	st	%l1,[%l0+0]

!  430	         QPLUS (1, 4, ENGY26) = J

	sethi	%hi(GPB.impcor.j),%l0
	or	%l0,%lo(GPB.impcor.j),%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-240]
	ld	[%fp-240],%f2
	fitos	%f2,%f2
	ld	[%fp-28],%l0
	add	%l0,36,%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,7,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	st	%f2,[%l0+0]

!  431	         QPLUS (1, 5, ENGY26) = J

	sethi	%hi(GPB.impcor.j),%l0
	or	%l0,%lo(GPB.impcor.j),%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-240]
	ld	[%fp-240],%f2
	fitos	%f2,%f2
	ld	[%fp-28],%l0
	add	%l0,44,%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,7,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	st	%f2,[%l0+0]

!  432	         QPLUS (1, 6, ENGY26) = J

	sethi	%hi(GPB.impcor.j),%l0
	or	%l0,%lo(GPB.impcor.j),%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-240]
	ld	[%fp-240],%f2
	fitos	%f2,%f2
	ld	[%fp-28],%l0
	add	%l0,52,%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,7,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	st	%f2,[%l0+0]

!  433	         QPLUS (1, 7, ENGY26) = J

	sethi	%hi(GPB.impcor.j),%l0
	or	%l0,%lo(GPB.impcor.j),%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-240]
	ld	[%fp-240],%f2
	fitos	%f2,%f2
	ld	[%fp-28],%l0
	add	%l0,60,%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,7,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	st	%f2,[%l0+0]

!  434	           R = COMCUR (IUBYCO)

	ld	[%fp-20],%l2
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%f2
	sethi	%hi(GPB.impcor.r),%l0
	or	%l0,%lo(GPB.impcor.r),%l0
	st	%f2,[%l0+0]

!  435	         IPLUS (1, 4, ENGY26) = R

	sethi	%hi(GPB.impcor.r),%l0
	or	%l0,%lo(GPB.impcor.r),%l0
	ld	[%l0+0],%f2
	ld	[%fp-32],%l0
	add	%l0,36,%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,7,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	st	%f2,[%l0+0]

!  436	         IPLUS (1, 5, ENGY26) = R

	sethi	%hi(GPB.impcor.r),%l0
	or	%l0,%lo(GPB.impcor.r),%l0
	ld	[%l0+0],%f2
	ld	[%fp-32],%l0
	add	%l0,44,%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,7,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	st	%f2,[%l0+0]

!  437	         IPLUS (1, 6, ENGY26) = R

	sethi	%hi(GPB.impcor.r),%l0
	or	%l0,%lo(GPB.impcor.r),%l0
	ld	[%l0+0],%f2
	ld	[%fp-32],%l0
	add	%l0,52,%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,7,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	st	%f2,[%l0+0]

!  438	         IPLUS (1, 7, ENGY26) = R

	sethi	%hi(GPB.impcor.r),%l0
	or	%l0,%lo(GPB.impcor.r),%l0
	ld	[%l0+0],%f2
	ld	[%fp-32],%l0
	add	%l0,60,%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,7,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	st	%f2,[%l0+0]

!  439	C SECTOR 2 INTO POSITIONS 8-11
!  440	         IUBYCO = IUBYCO + 1

	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	st	%l1,[%l0+0]

!  441	         J = UBYCOA (IUBYCO)

	ld	[%fp-16],%l2
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impcor.j),%l0
	or	%l0,%lo(GPB.impcor.j),%l0
	st	%l1,[%l0+0]

!  442	         QPLUS (1,  8, ENGY26) = J

	sethi	%hi(GPB.impcor.j),%l0
	or	%l0,%lo(GPB.impcor.j),%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-240]
	ld	[%fp-240],%f2
	fitos	%f2,%f2
	ld	[%fp-28],%l0
	add	%l0,68,%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,7,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	st	%f2,[%l0+0]

!  443	         QPLUS (1,  9, ENGY26) = J

	sethi	%hi(GPB.impcor.j),%l0
	or	%l0,%lo(GPB.impcor.j),%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-240]
	ld	[%fp-240],%f2
	fitos	%f2,%f2
	ld	[%fp-28],%l0
	add	%l0,76,%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,7,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	st	%f2,[%l0+0]

!  444	         QPLUS (1, 10, ENGY26) = J

	sethi	%hi(GPB.impcor.j),%l0
	or	%l0,%lo(GPB.impcor.j),%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-240]
	ld	[%fp-240],%f2
	fitos	%f2,%f2
	ld	[%fp-28],%l0
	add	%l0,84,%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,7,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	st	%f2,[%l0+0]

!  445	         QPLUS (1, 11, ENGY26) = J

	sethi	%hi(GPB.impcor.j),%l0
	or	%l0,%lo(GPB.impcor.j),%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-240]
	ld	[%fp-240],%f2
	fitos	%f2,%f2
	ld	[%fp-28],%l0
	add	%l0,92,%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,7,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	st	%f2,[%l0+0]

!  446	         R = COMCUR (IUBYCO)

	ld	[%fp-20],%l2
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%f2
	sethi	%hi(GPB.impcor.r),%l0
	or	%l0,%lo(GPB.impcor.r),%l0
	st	%f2,[%l0+0]

!  447	         IPLUS (1,  8, ENGY26) = R

	sethi	%hi(GPB.impcor.r),%l0
	or	%l0,%lo(GPB.impcor.r),%l0
	ld	[%l0+0],%f2
	ld	[%fp-32],%l0
	add	%l0,68,%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,7,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	st	%f2,[%l0+0]

!  448	         IPLUS (1,  9, ENGY26) = R

	sethi	%hi(GPB.impcor.r),%l0
	or	%l0,%lo(GPB.impcor.r),%l0
	ld	[%l0+0],%f2
	ld	[%fp-32],%l0
	add	%l0,76,%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,7,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	st	%f2,[%l0+0]

!  449	         IPLUS (1, 10, ENGY26) = R

	sethi	%hi(GPB.impcor.r),%l0
	or	%l0,%lo(GPB.impcor.r),%l0
	ld	[%l0+0],%f2
	ld	[%fp-32],%l0
	add	%l0,84,%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,7,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	st	%f2,[%l0+0]

!  450	         IPLUS (1, 11, ENGY26) = R

	sethi	%hi(GPB.impcor.r),%l0
	or	%l0,%lo(GPB.impcor.r),%l0
	ld	[%l0+0],%f2
	ld	[%fp-32],%l0
	add	%l0,92,%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,7,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	st	%f2,[%l0+0]

!  451	C SECTORS 3-5 INTO POSITIONS 12-14
!  452	C SECTORS 6-8 INTO POSITIONS 1-3
!  453	      DO 641 I=3,8

	mov	3,%l1
	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	st	%l1,[%l0+0]

	! block 183
.L298:

!  454	      ANGL14 = 9+I

	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	ld	[%l0+0],%l0
	add	%l0,9,%l1
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	st	%l1,[%l0+0]

!  455	      IF (ANGL14.GT.14) ANGL14=ANGL14-14

	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	ld	[%l0+0],%l0
	cmp	%l0,14
	ble	.L301
	nop

	! block 184
.L302:
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	ld	[%l0+0],%l0
	add	%l0,-14,%l1
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	st	%l1,[%l0+0]

	! block 185
.L301:

!  456	      X = 1.0

	sethi	%hi(.L_cseg35),%l0
	or	%l0,%lo(.L_cseg35),%l0
	ld	[%l0+0],%f2
	sethi	%hi(GPB.impcor.x),%l0
	or	%l0,%lo(GPB.impcor.x),%l0
	st	%f2,[%l0+0]

!  457	      IF (I.EQ.8) X=ANGLAP

	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	ld	[%l0+0],%l0
	cmp	%l0,8
	bne	.L303
	nop

	! block 186
.L304:
	sethi	%hi(GPB.impcor.anglap),%l0
	or	%l0,%lo(GPB.impcor.anglap),%l0
	ld	[%l0+0],%f2
	sethi	%hi(GPB.impcor.x),%l0
	or	%l0,%lo(GPB.impcor.x),%l0
	st	%f2,[%l0+0]

	! block 187
.L303:

!  458	      IUBYCO = IUBYCO + 1

	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	st	%l1,[%l0+0]

!  459	            QPLUS (1, ANGL14, ENGY26) = UBYCOA (IUBYCO)

	ld	[%fp-16],%l2
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-240]
	ld	[%fp-240],%f2
	fitos	%f2,%f2
	ld	[%fp-28],%l0
	add	%l0,4,%l4
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,1,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,3,%l1
	add	%l4,%l1,%l0
	st	%f2,[%l0+0]

	! block 188
.L296:

!  460	  641       IPLUS (1, ANGL14, ENGY26) = COMCUR (IUBYCO)*X

	ld	[%fp-20],%l2
	sethi	%hi(GPB.impcor.iubyco),%l0
	or	%l0,%lo(GPB.impcor.iubyco),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%f3
	sethi	%hi(GPB.impcor.x),%l0
	or	%l0,%lo(GPB.impcor.x),%l0
	ld	[%l0+0],%f2
	fmuls	%f3,%f2,%f2
	ld	[%fp-32],%l0
	add	%l0,4,%l4
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,1,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,3,%l1
	add	%l4,%l1,%l0
	st	%f2,[%l0+0]
	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	ld	[%l0+0],%l0
	cmp	%l0,8
	ble	.L298
	nop

	! block 189
.L305:
.L297:

!  461	C     LOAD B ; COPY FROM A + B
!  462	      DO 642 ANGL14=1,14

	mov	1,%l1
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	st	%l1,[%l0+0]

	! block 190
.L308:

!  463	      QPLUS(2,ANGL14,ENGY26) = QPLUS(1,ANGL14,ENGY26)

	ld	[%fp-28],%l0
	add	%l0,4,%l4
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,1,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,3,%l1
	add	%l4,%l1,%l0
	ld	[%l0+0],%f2
	ld	[%fp-28],%l0
	add	%l0,8,%l4
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,1,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,3,%l1
	add	%l4,%l1,%l0
	st	%f2,[%l0+0]

	! block 191
.L306:

!  464	  642 IPLUS(2,ANGL14,ENGY26) = IPLUS(1,ANGL14,ENGY26)*0.5

	ld	[%fp-32],%l0
	add	%l0,4,%l4
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,1,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,3,%l1
	add	%l4,%l1,%l0
	ld	[%l0+0],%f3
	sethi	%hi(.L_cseg31),%l0
	or	%l0,%lo(.L_cseg31),%l0
	ld	[%l0+0],%f2
	fmuls	%f3,%f2,%f2
	ld	[%fp-32],%l0
	add	%l0,8,%l4
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,1,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,3,%l1
	add	%l4,%l1,%l0
	st	%f2,[%l0+0]
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	ld	[%l0+0],%l0
	cmp	%l0,14
	ble	.L308
	nop

	! block 192
.L311:
.L307:
.L291:

!  465	  643 CONTINUE

	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	cmp	%l0,26
	ble	.L293
	nop

	! block 193
.L312:
.L292:
.L271:

!  466	C AQM AND NTM ELECTRONS
!  467	  645 IEL1 = 1

	mov	1,%l1
	sethi	%hi(GPB.impcor.iel1),%l0
	or	%l0,%lo(GPB.impcor.iel1),%l0
	st	%l1,[%l0+0]

!  468	      IEL2 = 21

	mov	21,%l1
	sethi	%hi(GPB.impcor.iel2),%l0
	or	%l0,%lo(GPB.impcor.iel2),%l0
	st	%l1,[%l0+0]

!  469	      GO TO 6633

	ba	.L272
	nop

	! block 194
.L234:

!  470	C =================!  GRADE-A ACQUISITION MODE.  !=====================
!  471	  650 CONTINUE


!  472	      PSELP = 3

	mov	3,%l1
	sethi	%hi(GPB.impcor.pselp),%l0
	or	%l0,%lo(GPB.impcor.pselp),%l0
	st	%l1,[%l0+0]

!  473	      PSELP7 = 26

	mov	26,%l1
	sethi	%hi(GPB.impcor.pselp7),%l0
	or	%l0,%lo(GPB.impcor.pselp7),%l0
	st	%l1,[%l0+0]

!  474	      GO TO 531

	ba	.L244
	nop

	! block 195
.L290:

!  475	C ==============!  POST SPECTRUM RENDEZ-VOUS AREA.  !==================
!  476	C    GRADE-A SPECTRA.
!  477	  800          GO TO 875

	ba	.L313
	nop

	! block 196
.L168:

!  478	C NO SHASRP
!  479	  849 TYPE = TYPE+20

	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+0],%l0
	add	%l0,20,%l1
	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	st	%l1,[%l0+0]

	! block 197
.L235:

!  480	C    GRADE-B SPECTRA.
!  481	  850 CONTINUE


!  482	      BADDAT=.FALSE.

	mov	0,%l1
	sethi	%hi(GPB.impcor.baddat),%l0
	or	%l0,%lo(GPB.impcor.baddat),%l0
	st	%l1,[%l0+0]

	! block 198
.L313:

!  483	C    COMMON LINE FOR ALL SPECTRA.
!  484	  875          CONTINUE


!  485	C PARAMETERS
!  486	      IMODE = 5

	mov	5,%l1
	sethi	%hi(readst_),%l0
	or	%l0,%lo(readst_),%l0
	st	%l1,[%l0+0]

!  487	               IF (TYPE .EQ. 1) IMODE = 2

	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+0],%l0
	cmp	%l0,1
	bne	.L314
	nop

	! block 199
.L315:
	mov	2,%l1
	sethi	%hi(readst_),%l0
	or	%l0,%lo(readst_),%l0
	st	%l1,[%l0+0]

	! block 200
.L314:

!  488	               IF (TYPE .EQ. 2) IMODE = 4

	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+0],%l0
	cmp	%l0,2
	bne	.L316
	nop

	! block 201
.L317:
	mov	4,%l1
	sethi	%hi(readst_),%l0
	or	%l0,%lo(readst_),%l0
	st	%l1,[%l0+0]

	! block 202
.L316:

!  489	               IF (TYPE .EQ. 4) IMODE = 1

	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+0],%l0
	cmp	%l0,4
	bne	.L318
	nop

	! block 203
.L319:
	mov	1,%l1
	sethi	%hi(readst_),%l0
	or	%l0,%lo(readst_),%l0
	st	%l1,[%l0+0]

	! block 204
.L318:

!  490	               IF (TYPE .EQ. 3) IMODE = 3

	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+0],%l0
	cmp	%l0,3
	bne	.L320
	nop

	! block 205
.L321:
	mov	3,%l1
	sethi	%hi(readst_),%l0
	or	%l0,%lo(readst_),%l0
	st	%l1,[%l0+0]

	! block 206
.L320:

!  491	      PROSEL = PSEL

	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+4],%l1
	sethi	%hi(readst_),%l0
	or	%l0,%lo(readst_),%l0
	st	%l1,[%l0+4]

!  492	               CALL MVC (IPLUS, PROMAT, 2912)

	sethi	%hi(proton_+2912),%l0
	or	%l0,%lo(proton_+2912),%l0
	sethi	%hi(readst_+8),%l1
	or	%l1,%lo(readst_+8),%l1
	sethi	%hi(.L_cseg38),%l2
	or	%l2,%lo(.L_cseg38),%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	mvc_
	nop

!  493	               IF (IMODE .NE. 3) GO TO 9035

	sethi	%hi(readst_),%l0
	or	%l0,%lo(readst_),%l0
	ld	[%l0+0],%l0
	cmp	%l0,3
	be	.L322
	nop

	! block 207
.L323:
	ba	.L324
	nop

	! block 208
.L322:

!  494	C     NON-TRACKING MODE.
!  495	C SECTORS 6-8 INTO POSITIONS 1-3
!  496	C SECTORS 1-5 INTO POSITIONS 4-8
!  497	             DO 9033 ENGY26 = 1, 26

	mov	1,%l1
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	st	%l1,[%l0+0]

	! block 209
.L327:

!  498	         PROMAT (1, 5, ENGY26) = PROMAT (1, 11, ENGY26)

	ld	[%fp-44],%l0
	add	%l0,92,%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,7,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	ld	[%l0+0],%f2
	ld	[%fp-44],%l0
	add	%l0,44,%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,7,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	st	%f2,[%l0+0]

!  499	      PROMAT (1, 6, ENGY26) = PROMAT (1, 12, ENGY26)

	ld	[%fp-44],%l0
	add	%l0,100,%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,7,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	ld	[%l0+0],%f2
	ld	[%fp-44],%l0
	add	%l0,52,%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,7,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	st	%f2,[%l0+0]

!  500	      PROMAT (1, 7, ENGY26) = PROMAT (1, 13, ENGY26)

	ld	[%fp-44],%l0
	add	%l0,108,%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,7,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	ld	[%l0+0],%f2
	ld	[%fp-44],%l0
	add	%l0,60,%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,7,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	st	%f2,[%l0+0]

!  501	      PROMAT (1, 8, ENGY26) = PROMAT (1, 14, ENGY26)

	ld	[%fp-44],%l0
	add	%l0,116,%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,7,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	ld	[%l0+0],%f2
	ld	[%fp-44],%l0
	add	%l0,68,%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,7,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	st	%f2,[%l0+0]

!  502	      DO 9034 I=5,8

	mov	5,%l1
	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	st	%l1,[%l0+0]

	! block 210
.L333:
.L331:

!  503	 9034 PROMAT(2,I,ENGY26) = PROMAT(1,I,ENGY26)*0.5

	ld	[%fp-44],%l0
	add	%l0,4,%l4
	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,1,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,3,%l1
	add	%l4,%l1,%l0
	ld	[%l0+0],%f3
	sethi	%hi(.L_cseg31),%l0
	or	%l0,%lo(.L_cseg31),%l0
	ld	[%l0+0],%f2
	fmuls	%f3,%f2,%f2
	ld	[%fp-44],%l0
	add	%l0,8,%l4
	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,1,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,3,%l1
	add	%l4,%l1,%l0
	st	%f2,[%l0+0]
	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impcor.i),%l0
	or	%l0,%lo(GPB.impcor.i),%l0
	ld	[%l0+0],%l0
	cmp	%l0,8
	ble	.L333
	nop

	! block 211
.L336:
.L332:

!  504	C CLEAR POSITIONS 9-14
!  505	             DO 9033 ANGL14 = 9, 14

	mov	9,%l1
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	st	%l1,[%l0+0]

	! block 212
.L338:

!  506	      PROMAT (2,ANGL14,ENGY26) = 0

	sethi	%hi(.L_cseg32),%l0
	or	%l0,%lo(.L_cseg32),%l0
	ld	[%l0+0],%f2
	ld	[%fp-44],%l0
	add	%l0,8,%l4
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,1,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,3,%l1
	add	%l4,%l1,%l0
	st	%f2,[%l0+0]

	! block 213
.L325:

!  507	 9033 PROMAT (1, ANGL14, ENGY26) = 0

	sethi	%hi(.L_cseg32),%l0
	or	%l0,%lo(.L_cseg32),%l0
	ld	[%l0+0],%f2
	ld	[%fp-44],%l0
	add	%l0,4,%l4
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,1,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,3,%l1
	add	%l4,%l1,%l0
	st	%f2,[%l0+0]
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impcor.angl14),%l0
	or	%l0,%lo(GPB.impcor.angl14),%l0
	ld	[%l0+0],%l0
	cmp	%l0,14
	ble	.L338
	nop

	! block 214
.L341:
.L337:
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impcor.engy26),%l0
	or	%l0,%lo(GPB.impcor.engy26),%l0
	ld	[%l0+0],%l0
	cmp	%l0,26
	ble	.L327
	nop

	! block 215
.L342:
.L326:
.L324:

!  508	C   COPY ELEMAT FROM IMINUS.
!  509	 9035          CALL MVC (IMINUS, ELEMAT, 672)

	sethi	%hi(amber_+672),%l0
	or	%l0,%lo(amber_+672),%l0
	sethi	%hi(readst_+2920),%l1
	or	%l1,%lo(readst_+2920),%l1
	sethi	%hi(.L_cseg39),%l2
	or	%l2,%lo(.L_cseg39),%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	mvc_
	nop

!  510	C     COPY ITIME (1 - 5) FROM IMPCOR'S /TIME/.
!  511	         ITIME (1) = YEAR

	sethi	%hi(time_),%l0
	or	%l0,%lo(time_),%l0
	ld	[%l0+0],%l1
	ld	[%fp-48],%l0
	add	%l0,4,%l0
	st	%l1,[%l0+0]

!  512	         ITIME (2) = DOY

	sethi	%hi(time_),%l0
	or	%l0,%lo(time_),%l0
	ld	[%l0+4],%l1
	ld	[%fp-48],%l0
	add	%l0,8,%l0
	st	%l1,[%l0+0]

!  513	         ITIME (3) = HOUROD

	sethi	%hi(time_),%l0
	or	%l0,%lo(time_),%l0
	ld	[%l0+8],%l1
	ld	[%fp-48],%l0
	add	%l0,12,%l0
	st	%l1,[%l0+0]

!  514	         ITIME (4) = MINUTE

	sethi	%hi(time_),%l0
	or	%l0,%lo(time_),%l0
	ld	[%l0+12],%l1
	ld	[%fp-48],%l0
	add	%l0,16,%l0
	st	%l1,[%l0+0]

!  515	C           TRUNCATE.
!  516	         ITIME (5) = SECOND

	sethi	%hi(time_),%l0
	or	%l0,%lo(time_),%l0
	ld	[%l0+16],%f2
	fstoi	%f2,%f2
	st	%f2,[%fp-240]
	ld	[%fp-240],%l1
	ld	[%fp-48],%l0
	add	%l0,20,%l0
	st	%l1,[%l0+0]

!  517	      ITIME (6) = IMPNUM

	sethi	%hi(rawdat_),%l0
	or	%l0,%lo(rawdat_),%l0
	ld	[%l0+0],%l1
	ld	[%fp-48],%l0
	add	%l0,24,%l0
	st	%l1,[%l0+0]

!  518	      ITIME(7) = TYPE

	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+0],%l1
	ld	[%fp-48],%l0
	add	%l0,28,%l0
	st	%l1,[%l0+0]

!  519	C SET /TP/
!  520	       ITYPE = IMODE

	sethi	%hi(readst_),%l0
	or	%l0,%lo(readst_),%l0
	ld	[%l0+0],%l1
	sethi	%hi(tp_),%l0
	or	%l0,%lo(tp_),%l0
	st	%l1,[%l0+0]

!  521	               CALL MVC (UBYCOA, COUNTS, 4096)

	sethi	%hi(rawdat_+8),%l0
	or	%l0,%lo(rawdat_+8),%l0
	sethi	%hi(tp_+4),%l1
	or	%l1,%lo(tp_+4),%l1
	sethi	%hi(.L_cseg40),%l2
	or	%l2,%lo(.L_cseg40),%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	mvc_
	nop

!  522	C SET /PROC/
!  523	      JMODE = IMODE

	sethi	%hi(readst_),%l0
	or	%l0,%lo(readst_),%l0
	ld	[%l0+0],%l1
	sethi	%hi(proc_),%l0
	or	%l0,%lo(proc_),%l0
	st	%l1,[%l0+0]

!  524	      ICMST = SHACOS

	sethi	%hi(commsh_),%l0
	or	%l0,%lo(commsh_),%l0
	ldsh	[%l0+10],%l0
	sll	%l0,16,%l0
	sra	%l0,16,%l1
	sethi	%hi(proc_),%l0
	or	%l0,%lo(proc_),%l0
	st	%l1,[%l0+4]

!  525	      ISTS = SHASTS

	sethi	%hi(commsh_),%l0
	or	%l0,%lo(commsh_),%l0
	ldsh	[%l0+12],%l0
	sll	%l0,16,%l0
	sra	%l0,16,%l1
	sethi	%hi(proc_),%l0
	or	%l0,%lo(proc_),%l0
	st	%l1,[%l0+8]

!  526	       IPSEL = PSEL

	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+4],%l1
	sethi	%hi(proc_),%l0
	or	%l0,%lo(proc_),%l0
	st	%l1,[%l0+12]

!  527	      ISN = SN

	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+8],%l1
	sethi	%hi(proc_),%l0
	or	%l0,%lo(proc_),%l0
	st	%l1,[%l0+16]

!  528	               CALL MVC (COMCUR (4), GAMUT, 4084)

	ld	[%fp-20],%l0
	add	%l0,16,%l0
	sethi	%hi(proc_+20),%l1
	or	%l1,%lo(proc_+20),%l1
	sethi	%hi(.L_cseg41),%l2
	or	%l2,%lo(.L_cseg41),%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	mvc_
	nop

!  529	C                       ***  NORMAL EXIT.  ***
!  530	               R E T U R N

	ba	.L13
	nop

	! block 216

!  531	C     FORMAT STATEMENTS
!  532	 1000 FORMAT(' IMPCOR FINISHED')
!  533	 1001 FORMAT(' IMPCOR EXPECTS ', I8, ' INPUT TAPES')
!  534	 1002 FORMAT(' IMPCOR LOST IN LAST BUFFER(SEE ABOVE); ADDRESS= '
!  535	     1  ,I5,' FOR',I4,'TH ENTRY')
!  536	 1003 FORMAT(' BUFFER SIZE BAD ; COUNTS =',I10)
!  537	 1400 FORMAT (' SYSTEM CONTROL BLOCKS : ' /
!  538	     2   '    DDNAME AND BAT CHAINING POINTER : ', 12 L2,
!  539	     3   '.  EVENT CONTROL BLOCK : ', 4 L2, '.' /
!  540	     4   '    INPUT/OUTPUT BLOCK : ', 32 L2, '.' /
!  541	     5   '    DATA CONTROL BLOCK : ', 20 L2,
!  542	     6   '.  MARK SKIP COUNT : ', 2 L2,
!  543	     7   '.  BLOCK SKIP COUNT : ', 2 L2, '.' /
!  544	     8   '    LAST ACTIVE CHANNEL PROGRAM : ', 16 L2, '.' /
!  545	     9   '    DATA EXTENT BLOCK : ', 48 L2, '.' /
!  546	     A   '    UNIT CONTROL BLOCK : ', 48 L2, '.' /
!  547	     B   '    NEW UNIT SENSE BYTES : ', 6 L2,
!  548	     C   '.  CSW SENSE BYTES : ', 2 L2, '.')
!  549	 1500 FORMAT ('  IMPCOR.  TAPE DRIVE ', A4, 'PROBABLY NOT READY.')
!  550	 1600 FORMAT ('  IMPCOR.  PERMANENT ERROR HANDLER ENTERED.  BLOCK', I5,
!  551	     2   ' SKIPPED.')
!  552	 1700 FORMAT (' IMPCOR  EOF ON ',6A1,'  END RUN ',I5)
!  553	 1905 FORMAT ('  IMPCOR.  TMS ELECTRON DATA SKIPPED BECAUSE OF BAD SN,',
!  554	     2       ' VIZ.', I8, '.')
!  555	 9111 FORMAT (' IMPCOR.  BAT5 REPORTS THE TAPE ON ',
!  556	     2        A4, 'IS ', 6 A1, '.')
!  557	 9122 FORMAT ('  IMPCOR.  MODE =', I8, ' IS BEING CHANGED TO ZERO.')
!  558	 9133 FORMAT ('  IMPCOR.  DEN =', I8, ' IS BEING CHANGED TO TWO ',
!  559	     2       '(800 BPI).')
!  560	C
!  561	               E N D

.L13:
.L11:
.L12:
	jmp	%i7+8
	restore
	.size	impcor_,(.-impcor_)
	.align	8
	.common	rawdat_,12296,8
	.common	typssn_,16,8
	.common	time_,28,8
	.common	blohed_,48,8
	.common	lashed_,600,8
	.common	lascal_,2688,8
	.common	amber_,1344,8
	.common	commsh_,208,8
	.common	proton_,5824,8
	.common	readst_,3620,8
	.common	tp_,4100,8
	.common	proc_,4116,8

	.section	".data",#alloc,#write
	.align	8
GPB.impcor.IO.26:
	.word	0x1000000
	.skip	4
	.word	0xf
	.skip	4
	.word	GPB.impcor.FORMAT.25
	.skip	8
	.type	GPB.impcor.IO.26,#object
	.size	GPB.impcor.IO.26,28
	.align	8
GPB.impcor.IO.27:
	.word	0x1000000
	.skip	24
	.type	GPB.impcor.IO.27,#object
	.size	GPB.impcor.IO.27,28
	.align	8
GPB.impcor.IO.78:
	.word	0x1000000
	.skip	12
	.word	GPB.impcor.FORMAT.77
	.skip	8
	.type	GPB.impcor.IO.78,#object
	.size	GPB.impcor.IO.78,28
	.align	8
GPB.impcor.IO.81:
	.word	0x1000000
	.skip	12
	.word	GPB.impcor.FORMAT.80
	.skip	8
	.type	GPB.impcor.IO.81,#object
	.size	GPB.impcor.IO.81,28
	.align	8
GPB.impcor.IO.83:
	.word	0x1000000
	.skip	12
	.word	GPB.impcor.FORMAT.82
	.skip	8
	.type	GPB.impcor.IO.83,#object
	.size	GPB.impcor.IO.83,28
	.align	8
GPB.impcor.IO.85:
	.word	0x1000000
	.skip	12
	.word	GPB.impcor.FORMAT.84
	.skip	8
	.type	GPB.impcor.IO.85,#object
	.size	GPB.impcor.IO.85,28
	.align	8
GPB.impcor.IO.90:
	.word	0x1000000
	.skip	12
	.word	GPB.impcor.FORMAT.89
	.skip	8
	.type	GPB.impcor.IO.90,#object
	.size	GPB.impcor.IO.90,28
	.align	8
GPB.impcor.IO.97:
	.word	0x1000000
	.skip	12
	.word	GPB.impcor.FORMAT.96
	.skip	8
	.type	GPB.impcor.IO.97,#object
	.size	GPB.impcor.IO.97,28
	.align	8
GPB.impcor.IO.103:
	.word	0x1000000
	.skip	24
	.type	GPB.impcor.IO.103,#object
	.size	GPB.impcor.IO.103,28
	.align	8
GPB.impcor.IO.119:
	.word	0x1000000
	.skip	24
	.type	GPB.impcor.IO.119,#object
	.size	GPB.impcor.IO.119,28
	.align	8
GPB.impcor.IO.145:
	.word	0x1000000
	.skip	12
	.word	GPB.impcor.FORMAT.144
	.skip	8
	.type	GPB.impcor.IO.145,#object
	.size	GPB.impcor.IO.145,28
	.align	8
GPB.impcor.IO.150:
	.word	0x1000000
	.skip	24
	.type	GPB.impcor.IO.150,#object
	.size	GPB.impcor.IO.150,28

	.section	".bss",#alloc,#write
	.align	8
GPB.impcor.anglae:
	.skip	4
	.type	GPB.impcor.anglae,#object
	.size	GPB.impcor.anglae,4
	.align	8
GPB.impcor.iubyco:
	.skip	4
	.type	GPB.impcor.iubyco,#object
	.size	GPB.impcor.iubyco,4
	.align	8
GPB.impcor.mpmsec:
	.skip	4
	.type	GPB.impcor.mpmsec,#object
	.size	GPB.impcor.mpmsec,4
	.align	8
GPB.impcor.ncvrt:
	.skip	4
	.type	GPB.impcor.ncvrt,#object
	.size	GPB.impcor.ncvrt,4
	.align	8
GPB.impcor.curren:
	.skip	8
	.type	GPB.impcor.curren,#object
	.size	GPB.impcor.curren,8

	.section	".data",#alloc,#write
	.align	4
GPB.impcor.lfirst:
	.word	0x1
	.type	GPB.impcor.lfirst,#object
	.size	GPB.impcor.lfirst,4

	.section	".bss",#alloc,#write
	.align	8
GPB.impcor.uname:
	.skip	4
	.type	GPB.impcor.uname,#object
	.size	GPB.impcor.uname,4
	.align	8
GPB.impcor.i:
	.skip	4
	.type	GPB.impcor.i,#object
	.size	GPB.impcor.i,4

	.section	".data",#alloc,#write
	.align	4
GPB.impcor.baddat:
	.skip	4
	.type	GPB.impcor.baddat,#object
	.size	GPB.impcor.baddat,4

	.section	".bss",#alloc,#write
	.align	8
GPB.impcor.x:
	.skip	4
	.type	GPB.impcor.x,#object
	.size	GPB.impcor.x,4
	.align	8
	.global	GPC.impcorEQUIV1_9
GPC.impcorEQUIV1_9:
	.skip	64
	.type	GPC.impcorEQUIV1_9,#object
	.size	GPC.impcorEQUIV1_9,64
	.align	8
GPB.impcor.i4buff:
	.skip	26400
	.type	GPB.impcor.i4buff,#object
	.size	GPB.impcor.i4buff,26400
	.align	8
GPB.impcor.bufdud:
	.skip	4
	.type	GPB.impcor.bufdud,#object
	.size	GPB.impcor.bufdud,4
	.align	8
GPB.impcor.pselp:
	.skip	4
	.type	GPB.impcor.pselp,#object
	.size	GPB.impcor.pselp,4
	.align	8
GPB.impcor.mpdoy:
	.skip	4
	.type	GPB.impcor.mpdoy,#object
	.size	GPB.impcor.mpdoy,4
	.align	8
GPB.impcor.iel1:
	.skip	4
	.type	GPB.impcor.iel1,#object
	.size	GPB.impcor.iel1,4
	.align	8
GPB.impcor.engy21:
	.skip	4
	.type	GPB.impcor.engy21,#object
	.size	GPB.impcor.engy21,4
	.align	8
GPB.impcor.angl14:
	.skip	4
	.type	GPB.impcor.angl14,#object
	.size	GPB.impcor.angl14,4

	.section	".data",#alloc,#write
	.align	4
GPB.impcor.ddname:
	.word	0x66743232
	.type	GPB.impcor.ddname,#object
	.size	GPB.impcor.ddname,4

	.section	".bss",#alloc,#write
	.align	8
GPB.impcor.nextab:
	.skip	4
	.type	GPB.impcor.nextab,#object
	.size	GPB.impcor.nextab,4
	.align	8
GPB.impcor.origin:
	.skip	3
	.type	GPB.impcor.origin,#object
	.size	GPB.impcor.origin,3
	.align	8
GPB.impcor.j:
	.skip	4
	.type	GPB.impcor.j,#object
	.size	GPB.impcor.j,4
	.align	8
GPB.impcor.status:
	.skip	768
	.type	GPB.impcor.status,#object
	.size	GPB.impcor.status,768
	.align	8
GPB.impcor.tapden:
	.skip	4
	.type	GPB.impcor.tapden,#object
	.size	GPB.impcor.tapden,4
	.align	8
GPB.impcor.jk:
	.skip	4
	.type	GPB.impcor.jk,#object
	.size	GPB.impcor.jk,4
	.align	8
GPB.impcor.eangle:
	.skip	4
	.type	GPB.impcor.eangle,#object
	.size	GPB.impcor.eangle,4
	.align	8
GPB.impcor.nlev:
	.skip	4
	.type	GPB.impcor.nlev,#object
	.size	GPB.impcor.nlev,4
	.align	8
GPB.impcor.nexbuf:
	.skip	4
	.type	GPB.impcor.nexbuf,#object
	.size	GPB.impcor.nexbuf,4
	.align	8
GPB.impcor.nrev:
	.skip	4
	.type	GPB.impcor.nrev,#object
	.size	GPB.impcor.nrev,4
	.align	8
GPB.impcor.ij:
	.skip	4
	.type	GPB.impcor.ij,#object
	.size	GPB.impcor.ij,4
	.align	8
GPB.impcor.router:
	.skip	4
	.type	GPB.impcor.router,#object
	.size	GPB.impcor.router,4
	.align	8
GPB.impcor.r:
	.skip	4
	.type	GPB.impcor.r,#object
	.size	GPB.impcor.r,4
	.align	8
GPB.impcor.iel2:
	.skip	4
	.type	GPB.impcor.iel2,#object
	.size	GPB.impcor.iel2,4
	.align	8
GPB.impcor.eodata:
	.skip	4
	.type	GPB.impcor.eodata,#object
	.size	GPB.impcor.eodata,4
	.align	8
GPB.impcor.angle8:
	.skip	4
	.type	GPB.impcor.angle8,#object
	.size	GPB.impcor.angle8,4
	.align	8
GPB.impcor.engy26:
	.skip	4
	.type	GPB.impcor.engy26,#object
	.size	GPB.impcor.engy26,4
	.align	8
GPB.impcor.trmode:
	.skip	4
	.type	GPB.impcor.trmode,#object
	.size	GPB.impcor.trmode,4
	.align	8
GPB.impcor.curbuf:
	.skip	4
	.type	GPB.impcor.curbuf,#object
	.size	GPB.impcor.curbuf,4
	.align	8
GPB.impcor.nerr:
	.skip	4
	.type	GPB.impcor.nerr,#object
	.size	GPB.impcor.nerr,4
	.align	8
GPB.impcor.acctap:
	.skip	4
	.type	GPB.impcor.acctap,#object
	.size	GPB.impcor.acctap,4
	.align	8
GPB.impcor.mpyear:
	.skip	4
	.type	GPB.impcor.mpyear,#object
	.size	GPB.impcor.mpyear,4
	.align	8
GPB.impcor.ik:
	.skip	4
	.type	GPB.impcor.ik,#object
	.size	GPB.impcor.ik,4

	.section	".data",#alloc,#write
	.align	4
GPB.impcor.buflen:
	.word	0x2ee0
	.type	GPB.impcor.buflen,#object
	.size	GPB.impcor.buflen,4

	.section	".bss",#alloc,#write
	.align	8
GPB.impcor.mphour:
	.skip	4
	.type	GPB.impcor.mphour,#object
	.size	GPB.impcor.mphour,4
	.align	8
GPB.impcor.volser:
	.skip	32
	.type	GPB.impcor.volser,#object
	.size	GPB.impcor.volser,32
	.align	8
GPB.impcor.nwds:
	.skip	4
	.type	GPB.impcor.nwds,#object
	.size	GPB.impcor.nwds,4

	.section	".data",#alloc,#write
	.align	4
GPB.impcor.block:
	.skip	4
	.type	GPB.impcor.block,#object
	.size	GPB.impcor.block,4

	.section	".bss",#alloc,#write
	.align	8
GPB.impcor.pselp7:
	.skip	4
	.type	GPB.impcor.pselp7,#object
	.size	GPB.impcor.pselp7,4
	.align	8
GPB.impcor.ltype:
	.skip	4
	.type	GPB.impcor.ltype,#object
	.size	GPB.impcor.ltype,4
	.align	8
GPB.impcor.doutam:
	.skip	4
	.type	GPB.impcor.doutam,#object
	.size	GPB.impcor.doutam,4
	.align	8
GPB.impcor.mpmin:
	.skip	4
	.type	GPB.impcor.mpmin,#object
	.size	GPB.impcor.mpmin,4
	.align	8
GPB.impcor.anglap:
	.skip	4
	.type	GPB.impcor.anglap,#object
	.size	GPB.impcor.anglap,4
	.align	8
GPB.impcor.acctab:
	.skip	4
	.type	GPB.impcor.acctab,#object
	.size	GPB.impcor.acctab,4

	.section	".rodata",#alloc
	.align	4
.L_cseg0:
	.word	0xd
	.type	.L_cseg0,#object
	.size	.L_cseg0,4
	.align	4
.L_cseg1:
	.word	0x1
	.type	.L_cseg1,#object
	.size	.L_cseg1,4
	.align	4
.L_cseg2:
	.ascii	"This input file was generated on the **"
	.type	.L_cseg2,#object
	.size	.L_cseg2,39
	.align	4
.L_cseg3:
	.ascii	"** computer.\000\000\000"
	.type	.L_cseg3,#object
	.size	.L_cseg3,15
	.align	4
.L_cseg4:
	.word	0x2000
	.type	.L_cseg4,#object
	.size	.L_cseg4,4
	.align	4
.L_cseg5:
	.word	0x10
	.type	.L_cseg5,#object
	.size	.L_cseg5,4
	.align	4
.L_cseg6:
	.word	0x1c
	.type	.L_cseg6,#object
	.size	.L_cseg6,4
	.align	4
.L_cseg7:
	.word	0x30
	.type	.L_cseg7,#object
	.size	.L_cseg7,4
	.align	4
.L_cseg8:
	.word	0x258
	.type	.L_cseg8,#object
	.size	.L_cseg8,4
	.align	4
.L_cseg9:
	.word	0x680
	.type	.L_cseg9,#object
	.size	.L_cseg9,4
	.align	4
.L_cseg10:
	.word	0x540
	.type	.L_cseg10,#object
	.size	.L_cseg10,4
	.align	8
.L_cseg11:
	.word	0x414fd100,0x0
	.type	.L_cseg11,#object
	.size	.L_cseg11,8
	.align	8
.L_cseg12:
	.word	0x3ff0bd07,0xc84b5dcc
	.type	.L_cseg12,#object
	.size	.L_cseg12,8
	.align	8
.L_cseg13:
	.word	0x40000000,0x0
	.type	.L_cseg13,#object
	.size	.L_cseg13,8
	.align	4
.L_cseg14:
	.word	0x42340000
	.type	.L_cseg14,#object
	.size	.L_cseg14,4
	.align	4
.L_cseg15:
	.word	0x4222b852
	.type	.L_cseg15,#object
	.size	.L_cseg15,4
	.align	4
.L_cseg16:
	.word	0x42070000
	.type	.L_cseg16,#object
	.size	.L_cseg16,4
	.align	4
.L_cseg17:
	.word	0x41ca7ae1
	.type	.L_cseg17,#object
	.size	.L_cseg17,4
	.align	4
.L_cseg18:
	.word	0x3
	.type	.L_cseg18,#object
	.size	.L_cseg18,4
	.align	4
.L_cseg19:
	.ascii	"163"
	.type	.L_cseg19,#object
	.size	.L_cseg19,3
	.align	4
.L_cseg20:
	.word	0xc
	.type	.L_cseg20,#object
	.size	.L_cseg20,4
	.align	4
.L_cseg21:
	.word	0xc0
	.type	.L_cseg21,#object
	.size	.L_cseg21,4
	.align	4
.L_cseg22:
	.word	0x6
	.type	.L_cseg22,#object
	.size	.L_cseg22,4
	.align	4
.L_cseg23:
	.word	0x28
	.type	.L_cseg23,#object
	.size	.L_cseg23,4
	.align	4
.L_cseg24:
	.ascii	"ibm"
	.type	.L_cseg24,#object
	.size	.L_cseg24,3
	.align	4
.L_cseg25:
	.word	0x2
	.type	.L_cseg25,#object
	.size	.L_cseg25,4
	.align	4
.L_cseg26:
	.ascii	" num. of conv. errors ="
	.type	.L_cseg26,#object
	.size	.L_cseg26,23
	.align	4
.L_cseg27:
	.ascii	" num of conv. errors =\000"
	.type	.L_cseg27,#object
	.size	.L_cseg27,23
	.align	4
.L_cseg28:
	.word	0x14
	.type	.L_cseg28,#object
	.size	.L_cseg28,4
	.align	4
.L_cseg29:
	.word	0xd0
	.type	.L_cseg29,#object
	.size	.L_cseg29,4
	.align	4
.L_cseg30:
	.word	0x447a0000
	.type	.L_cseg30,#object
	.size	.L_cseg30,4
	.align	4
.L_cseg31:
	.word	0x3f000000
	.type	.L_cseg31,#object
	.size	.L_cseg31,4
	.align	4
.L_cseg32:
	.skip	4
	.type	.L_cseg32,#object
	.size	.L_cseg32,4
	.align	4
.L_cseg33:
	.word	0x16bc
	.type	.L_cseg33,#object
	.size	.L_cseg33,4
	.align	4
.L_cseg34:
	.word	0x40800000
	.type	.L_cseg34,#object
	.size	.L_cseg34,4
	.align	4
.L_cseg35:
	.word	0x3f800000
	.type	.L_cseg35,#object
	.size	.L_cseg35,4
	.align	4
.L_cseg36:
	.word	0x47c
	.type	.L_cseg36,#object
	.size	.L_cseg36,4
	.align	4
.L_cseg37:
	.word	0x1f0
	.type	.L_cseg37,#object
	.size	.L_cseg37,4
	.align	4
.L_cseg38:
	.word	0xb60
	.type	.L_cseg38,#object
	.size	.L_cseg38,4
	.align	4
.L_cseg39:
	.word	0x2a0
	.type	.L_cseg39,#object
	.size	.L_cseg39,4
	.align	4
.L_cseg40:
	.word	0x1000
	.type	.L_cseg40,#object
	.size	.L_cseg40,4
	.align	4
.L_cseg41:
	.word	0xff4
	.type	.L_cseg41,#object
	.size	.L_cseg41,4

	.section	".data",#alloc,#write
	.align	4
GPB.impcor.FORMAT.25:
	.word	0x1
	.skip	12
	.word	0x6,0x1
	.skip	8
	.word	0x20,0x3
	.skip	8
	.word	0x2
	.skip	12
	.type	GPB.impcor.FORMAT.25,#object
	.size	GPB.impcor.FORMAT.25,64
	.align	4
GPB.impcor.CONSTANT.182:
	.ascii	"I="
	.skip	2
	.type	GPB.impcor.CONSTANT.182,#object
	.size	GPB.impcor.CONSTANT.182,4
	.align	4
GPB.impcor.FORMAT.181:
	.word	0x1
	.skip	12
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x5,0x1
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x4,0x1
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x2,0x1
	.skip	4
	.word	0x4,0x5
	.skip	8
	.word	0xc,0x2
	.word	GPB.impcor.CONSTANT.182
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x4,0x1
	.skip	4
	.word	0x2
	.skip	12
	.type	GPB.impcor.FORMAT.181,#object
	.size	GPB.impcor.FORMAT.181,224
	.align	4
GPB.impcor.CONSTANT.344:
	.ascii	" IMPCOR FINISHED"
	.skip	4
	.type	GPB.impcor.CONSTANT.344,#object
	.size	GPB.impcor.CONSTANT.344,20
	.align	4
GPB.impcor.FORMAT.96:
	.word	0x1
	.skip	12
	.word	0xc,0x10
	.word	GPB.impcor.CONSTANT.344
	.skip	4
	.word	0x2
	.skip	12
	.type	GPB.impcor.FORMAT.96,#object
	.size	GPB.impcor.FORMAT.96,48
	.align	4
GPB.impcor.CONSTANT.346:
	.ascii	" IMPCOR EXPECTS "
	.skip	4
	.type	GPB.impcor.CONSTANT.346,#object
	.size	GPB.impcor.CONSTANT.346,20
	.align	4
GPB.impcor.CONSTANT.347:
	.ascii	" INPUT TAPES"
	.skip	4
	.type	GPB.impcor.CONSTANT.347,#object
	.size	GPB.impcor.CONSTANT.347,16
	.align	4
GPB.impcor.FORMAT.345:
	.word	0x1
	.skip	12
	.word	0xc,0x10
	.word	GPB.impcor.CONSTANT.346
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x8,0x1
	.skip	4
	.word	0xc,0xc
	.word	GPB.impcor.CONSTANT.347
	.skip	4
	.word	0x2
	.skip	12
	.type	GPB.impcor.FORMAT.345,#object
	.size	GPB.impcor.FORMAT.345,96
	.align	4
GPB.impcor.CONSTANT.348:
	.ascii	" IMPCOR LOST IN LAST BUFFER(SEE ABOVE); ADDRESS= "
	.skip	3
	.type	GPB.impcor.CONSTANT.348,#object
	.size	GPB.impcor.CONSTANT.348,52
	.align	4
GPB.impcor.CONSTANT.349:
	.ascii	" FOR"
	.skip	4
	.type	GPB.impcor.CONSTANT.349,#object
	.size	GPB.impcor.CONSTANT.349,8
	.align	4
GPB.impcor.CONSTANT.350:
	.ascii	"TH ENTRY"
	.skip	4
	.type	GPB.impcor.CONSTANT.350,#object
	.size	GPB.impcor.CONSTANT.350,12
	.align	4
GPB.impcor.FORMAT.144:
	.word	0x1
	.skip	12
	.word	0xc,0x31
	.word	GPB.impcor.CONSTANT.348
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x5,0x1
	.skip	4
	.word	0xc,0x4
	.word	GPB.impcor.CONSTANT.349
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x4,0x1
	.skip	4
	.word	0xc,0x8
	.word	GPB.impcor.CONSTANT.350
	.skip	4
	.word	0x2
	.skip	12
	.type	GPB.impcor.FORMAT.144,#object
	.size	GPB.impcor.FORMAT.144,144
	.align	4
GPB.impcor.CONSTANT.351:
	.ascii	" BUFFER SIZE BAD ; COUNTS ="
	.skip	5
	.type	GPB.impcor.CONSTANT.351,#object
	.size	GPB.impcor.CONSTANT.351,32
	.align	4
GPB.impcor.FORMAT.77:
	.word	0x1
	.skip	12
	.word	0xc,0x1b
	.word	GPB.impcor.CONSTANT.351
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0xa,0x1
	.skip	4
	.word	0x2
	.skip	12
	.type	GPB.impcor.FORMAT.77,#object
	.size	GPB.impcor.FORMAT.77,80
	.align	4
GPB.impcor.CONSTANT.352:
	.ascii	" SYSTEM CONTROL BLOCKS : "
	.skip	3
	.type	GPB.impcor.CONSTANT.352,#object
	.size	GPB.impcor.CONSTANT.352,28
	.align	4
GPB.impcor.CONSTANT.353:
	.ascii	"    DDNAME AND BAT CHAINING POINTER : "
	.skip	2
	.type	GPB.impcor.CONSTANT.353,#object
	.size	GPB.impcor.CONSTANT.353,40
	.align	4
GPB.impcor.CONSTANT.354:
	.ascii	".  EVENT CONTROL BLOCK : "
	.skip	3
	.type	GPB.impcor.CONSTANT.354,#object
	.size	GPB.impcor.CONSTANT.354,28
	.align	4
GPB.impcor.CONSTANT.355:
	.ascii	"."
	.skip	3
	.type	GPB.impcor.CONSTANT.355,#object
	.size	GPB.impcor.CONSTANT.355,4
	.align	4
GPB.impcor.CONSTANT.356:
	.ascii	"    INPUT/OUTPUT BLOCK : "
	.skip	3
	.type	GPB.impcor.CONSTANT.356,#object
	.size	GPB.impcor.CONSTANT.356,28
	.align	4
GPB.impcor.CONSTANT.357:
	.ascii	"."
	.skip	3
	.type	GPB.impcor.CONSTANT.357,#object
	.size	GPB.impcor.CONSTANT.357,4
	.align	4
GPB.impcor.CONSTANT.358:
	.ascii	"    DATA CONTROL BLOCK : "
	.skip	3
	.type	GPB.impcor.CONSTANT.358,#object
	.size	GPB.impcor.CONSTANT.358,28
	.align	4
GPB.impcor.CONSTANT.359:
	.ascii	".  MARK SKIP COUNT : "
	.skip	3
	.type	GPB.impcor.CONSTANT.359,#object
	.size	GPB.impcor.CONSTANT.359,24
	.align	4
GPB.impcor.CONSTANT.360:
	.ascii	".  BLOCK SKIP COUNT : "
	.skip	2
	.type	GPB.impcor.CONSTANT.360,#object
	.size	GPB.impcor.CONSTANT.360,24
	.align	4
GPB.impcor.CONSTANT.361:
	.ascii	"."
	.skip	3
	.type	GPB.impcor.CONSTANT.361,#object
	.size	GPB.impcor.CONSTANT.361,4
	.align	4
GPB.impcor.CONSTANT.362:
	.ascii	"    LAST ACTIVE CHANNEL PROGRAM : "
	.skip	2
	.type	GPB.impcor.CONSTANT.362,#object
	.size	GPB.impcor.CONSTANT.362,36
	.align	4
GPB.impcor.CONSTANT.363:
	.ascii	"."
	.skip	3
	.type	GPB.impcor.CONSTANT.363,#object
	.size	GPB.impcor.CONSTANT.363,4
	.align	4
GPB.impcor.CONSTANT.364:
	.ascii	"    DATA EXTENT BLOCK : "
	.skip	4
	.type	GPB.impcor.CONSTANT.364,#object
	.size	GPB.impcor.CONSTANT.364,28
	.align	4
GPB.impcor.CONSTANT.365:
	.ascii	"."
	.skip	3
	.type	GPB.impcor.CONSTANT.365,#object
	.size	GPB.impcor.CONSTANT.365,4
	.align	4
GPB.impcor.CONSTANT.366:
	.ascii	"    UNIT CONTROL BLOCK : "
	.skip	3
	.type	GPB.impcor.CONSTANT.366,#object
	.size	GPB.impcor.CONSTANT.366,28
	.align	4
GPB.impcor.CONSTANT.367:
	.ascii	"."
	.skip	3
	.type	GPB.impcor.CONSTANT.367,#object
	.size	GPB.impcor.CONSTANT.367,4
	.align	4
GPB.impcor.CONSTANT.368:
	.ascii	"    NEW UNIT SENSE BYTES : "
	.skip	5
	.type	GPB.impcor.CONSTANT.368,#object
	.size	GPB.impcor.CONSTANT.368,32
	.align	4
GPB.impcor.CONSTANT.369:
	.ascii	".  CSW SENSE BYTES : "
	.skip	3
	.type	GPB.impcor.CONSTANT.369,#object
	.size	GPB.impcor.CONSTANT.369,24
	.align	4
GPB.impcor.CONSTANT.370:
	.ascii	"."
	.skip	3
	.type	GPB.impcor.CONSTANT.370,#object
	.size	GPB.impcor.CONSTANT.370,4
	.align	4
GPB.impcor.FORMAT.84:
	.word	0x1
	.skip	12
	.word	0xc,0x19
	.word	GPB.impcor.CONSTANT.352
	.skip	4
	.word	0x5
	.skip	12
	.word	0xc,0x26
	.word	GPB.impcor.CONSTANT.353
	.skip	4
	.word	0x6,0xc
	.skip	8
	.word	0x1e,0x2
	.skip	8
	.word	0xc,0x19
	.word	GPB.impcor.CONSTANT.354
	.skip	4
	.word	0x6,0x4
	.skip	8
	.word	0x1e,0x2
	.skip	8
	.word	0xc,0x1
	.word	GPB.impcor.CONSTANT.355
	.skip	4
	.word	0x5
	.skip	12
	.word	0xc,0x19
	.word	GPB.impcor.CONSTANT.356
	.skip	4
	.word	0x6,0x20
	.skip	8
	.word	0x1e,0x2
	.skip	8
	.word	0xc,0x1
	.word	GPB.impcor.CONSTANT.357
	.skip	4
	.word	0x5
	.skip	12
	.word	0xc,0x19
	.word	GPB.impcor.CONSTANT.358
	.skip	4
	.word	0x6,0x14
	.skip	8
	.word	0x1e,0x2
	.skip	8
	.word	0xc,0x15
	.word	GPB.impcor.CONSTANT.359
	.skip	4
	.word	0x6,0x2
	.skip	8
	.word	0x1e,0x2
	.skip	8
	.word	0xc,0x16
	.word	GPB.impcor.CONSTANT.360
	.skip	4
	.word	0x6,0x2
	.skip	8
	.word	0x1e,0x2
	.skip	8
	.word	0xc,0x1
	.word	GPB.impcor.CONSTANT.361
	.skip	4
	.word	0x5
	.skip	12
	.word	0xc,0x22
	.word	GPB.impcor.CONSTANT.362
	.skip	4
	.word	0x6,0x10
	.skip	8
	.word	0x1e,0x2
	.skip	8
	.word	0xc,0x1
	.word	GPB.impcor.CONSTANT.363
	.skip	4
	.word	0x5
	.skip	12
	.word	0xc,0x18
	.word	GPB.impcor.CONSTANT.364
	.skip	4
	.word	0x6,0x30
	.skip	8
	.word	0x1e,0x2
	.skip	8
	.word	0xc,0x1
	.word	GPB.impcor.CONSTANT.365
	.skip	4
	.word	0x5
	.skip	12
	.word	0xc,0x19
	.word	GPB.impcor.CONSTANT.366
	.skip	4
	.word	0x6,0x30
	.skip	8
	.word	0x1e,0x2
	.skip	8
	.word	0xc,0x1
	.word	GPB.impcor.CONSTANT.367
	.skip	4
	.word	0x5
	.skip	12
	.word	0xc,0x1b
	.word	GPB.impcor.CONSTANT.368
	.skip	4
	.word	0x6,0x6
	.skip	8
	.word	0x1e,0x2
	.skip	8
	.word	0xc,0x15
	.word	GPB.impcor.CONSTANT.369
	.skip	4
	.word	0x6,0x2
	.skip	8
	.word	0x1e,0x2
	.skip	8
	.word	0xc,0x1
	.word	GPB.impcor.CONSTANT.370
	.skip	4
	.word	0x2
	.skip	12
	.type	GPB.impcor.FORMAT.84,#object
	.size	GPB.impcor.FORMAT.84,800
	.align	4
GPB.impcor.CONSTANT.371:
	.ascii	"  IMPCOR.  TAPE DRIVE "
	.skip	2
	.type	GPB.impcor.CONSTANT.371,#object
	.size	GPB.impcor.CONSTANT.371,24
	.align	4
GPB.impcor.CONSTANT.372:
	.ascii	"PROBABLY NOT READY."
	.skip	5
	.type	GPB.impcor.CONSTANT.372,#object
	.size	GPB.impcor.CONSTANT.372,24
	.align	4
GPB.impcor.FORMAT.80:
	.word	0x1
	.skip	12
	.word	0xc,0x16
	.word	GPB.impcor.CONSTANT.371
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x20,0x4
	.skip	8
	.word	0xc,0x13
	.word	GPB.impcor.CONSTANT.372
	.skip	4
	.word	0x2
	.skip	12
	.type	GPB.impcor.FORMAT.80,#object
	.size	GPB.impcor.FORMAT.80,96
	.align	4
GPB.impcor.CONSTANT.373:
	.ascii	"  IMPCOR.  PERMANENT ERROR HANDLER ENTERED.  BLOCK"
	.skip	2
	.type	GPB.impcor.CONSTANT.373,#object
	.size	GPB.impcor.CONSTANT.373,52
	.align	4
GPB.impcor.CONSTANT.374:
	.ascii	" SKIPPED."
	.skip	3
	.type	GPB.impcor.CONSTANT.374,#object
	.size	GPB.impcor.CONSTANT.374,12
	.align	4
GPB.impcor.FORMAT.82:
	.word	0x1
	.skip	12
	.word	0xc,0x32
	.word	GPB.impcor.CONSTANT.373
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x5,0x1
	.skip	4
	.word	0xc,0x9
	.word	GPB.impcor.CONSTANT.374
	.skip	4
	.word	0x2
	.skip	12
	.type	GPB.impcor.FORMAT.82,#object
	.size	GPB.impcor.FORMAT.82,96
	.align	4
GPB.impcor.CONSTANT.375:
	.ascii	" IMPCOR  EOF ON "
	.skip	4
	.type	GPB.impcor.CONSTANT.375,#object
	.size	GPB.impcor.CONSTANT.375,20
	.align	4
GPB.impcor.CONSTANT.376:
	.ascii	"  END RUN "
	.skip	2
	.type	GPB.impcor.CONSTANT.376,#object
	.size	GPB.impcor.CONSTANT.376,12
	.align	4
GPB.impcor.FORMAT.89:
	.word	0x1
	.skip	12
	.word	0xc,0x10
	.word	GPB.impcor.CONSTANT.375
	.skip	4
	.word	0x6,0x6
	.skip	8
	.word	0x20,0x1
	.skip	8
	.word	0xc,0xa
	.word	GPB.impcor.CONSTANT.376
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x5,0x1
	.skip	4
	.word	0x2
	.skip	12
	.type	GPB.impcor.FORMAT.89,#object
	.size	GPB.impcor.FORMAT.89,128
	.align	4
GPB.impcor.CONSTANT.378:
	.ascii	"  IMPCOR.  TMS ELECTRON DATA SKIPPED BECAUSE OF BAD SN,"
	.skip	5
	.type	GPB.impcor.CONSTANT.378,#object
	.size	GPB.impcor.CONSTANT.378,60
	.align	4
GPB.impcor.CONSTANT.379:
	.ascii	" VIZ."
	.skip	3
	.type	GPB.impcor.CONSTANT.379,#object
	.size	GPB.impcor.CONSTANT.379,8
	.align	4
GPB.impcor.CONSTANT.380:
	.ascii	"."
	.skip	3
	.type	GPB.impcor.CONSTANT.380,#object
	.size	GPB.impcor.CONSTANT.380,4
	.align	4
GPB.impcor.FORMAT.377:
	.word	0x1
	.skip	12
	.word	0xc,0x37
	.word	GPB.impcor.CONSTANT.378
	.skip	4
	.word	0xc,0x5
	.word	GPB.impcor.CONSTANT.379
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x8,0x1
	.skip	4
	.word	0xc,0x1
	.word	GPB.impcor.CONSTANT.380
	.skip	4
	.word	0x2
	.skip	12
	.type	GPB.impcor.FORMAT.377,#object
	.size	GPB.impcor.FORMAT.377,112
	.align	4
GPB.impcor.CONSTANT.382:
	.ascii	" IMPCOR.  BAT5 REPORTS THE TAPE ON "
	.skip	5
	.type	GPB.impcor.CONSTANT.382,#object
	.size	GPB.impcor.CONSTANT.382,40
	.align	4
GPB.impcor.CONSTANT.383:
	.ascii	"IS "
	.skip	5
	.type	GPB.impcor.CONSTANT.383,#object
	.size	GPB.impcor.CONSTANT.383,8
	.align	4
GPB.impcor.CONSTANT.384:
	.ascii	"."
	.skip	3
	.type	GPB.impcor.CONSTANT.384,#object
	.size	GPB.impcor.CONSTANT.384,4
	.align	4
GPB.impcor.FORMAT.381:
	.word	0x1
	.skip	12
	.word	0xc,0x23
	.word	GPB.impcor.CONSTANT.382
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x20,0x4
	.skip	8
	.word	0xc,0x3
	.word	GPB.impcor.CONSTANT.383
	.skip	4
	.word	0x6,0x6
	.skip	8
	.word	0x20,0x1
	.skip	8
	.word	0xc,0x1
	.word	GPB.impcor.CONSTANT.384
	.skip	4
	.word	0x2
	.skip	12
	.type	GPB.impcor.FORMAT.381,#object
	.size	GPB.impcor.FORMAT.381,144
	.align	4
GPB.impcor.CONSTANT.386:
	.ascii	"  IMPCOR.  MODE ="
	.skip	3
	.type	GPB.impcor.CONSTANT.386,#object
	.size	GPB.impcor.CONSTANT.386,20
	.align	4
GPB.impcor.CONSTANT.387:
	.ascii	" IS BEING CHANGED TO ZERO."
	.skip	2
	.type	GPB.impcor.CONSTANT.387,#object
	.size	GPB.impcor.CONSTANT.387,28
	.align	4
GPB.impcor.FORMAT.385:
	.word	0x1
	.skip	12
	.word	0xc,0x11
	.word	GPB.impcor.CONSTANT.386
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x8,0x1
	.skip	4
	.word	0xc,0x1a
	.word	GPB.impcor.CONSTANT.387
	.skip	4
	.word	0x2
	.skip	12
	.type	GPB.impcor.FORMAT.385,#object
	.size	GPB.impcor.FORMAT.385,96
	.align	4
GPB.impcor.CONSTANT.389:
	.ascii	"  IMPCOR.  DEN ="
	.skip	4
	.type	GPB.impcor.CONSTANT.389,#object
	.size	GPB.impcor.CONSTANT.389,20
	.align	4
GPB.impcor.CONSTANT.390:
	.ascii	" IS BEING CHANGED TO TWO "
	.skip	3
	.type	GPB.impcor.CONSTANT.390,#object
	.size	GPB.impcor.CONSTANT.390,28
	.align	4
GPB.impcor.CONSTANT.391:
	.ascii	"(800 BPI)."
	.skip	2
	.type	GPB.impcor.CONSTANT.391,#object
	.size	GPB.impcor.CONSTANT.391,12
	.align	4
GPB.impcor.FORMAT.388:
	.word	0x1
	.skip	12
	.word	0xc,0x10
	.word	GPB.impcor.CONSTANT.389
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x8,0x1
	.skip	4
	.word	0xc,0x19
	.word	GPB.impcor.CONSTANT.390
	.skip	4
	.word	0xc,0xa
	.word	GPB.impcor.CONSTANT.391
	.skip	4
	.word	0x2
	.skip	12
	.type	GPB.impcor.FORMAT.388,#object
	.size	GPB.impcor.FORMAT.388,112
	.align	4
GPB.impcor.retry:
	.word	0x1
	.type	GPB.impcor.retry,#object
	.size	GPB.impcor.retry,4

	.file	"impcor.f"
	.xstabs	".stab.index","V=3.1;R=3.0",60,0,0,842629701
	.xstabs	".stab.index","/amd/plas5/h1/vgr/src/imp;/opt/SUNWspro/bin/../SC4.0/bin/f77 -sbfast   impcor.f",52,0,0,0
	.xstabs	".stab.sbfocus","impcor.f.0yVrFY.bd",72,0,0,0
