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

	! block 0

	.global	MAIN_
	.type	MAIN_,2
MAIN_:
	save	%sp,-456,%sp

	! block 1
.L195:
	sethi	%hi(dummy_+10284),%l0
	or	%l0,%lo(dummy_+10284),%l0
	st	%l0,[%fp-40]
	sethi	%hi(GPC.MAINEQUIV1_5),%l0
	or	%l0,%lo(GPC.MAINEQUIV1_5),%l0
	st	%l0,[%fp-48]
	sethi	%hi(dummy_-116),%l0
	or	%l0,%lo(dummy_-116),%l0
	st	%l0,[%fp-44]
	sethi	%hi(GPC.MAINEQUIV1_4),%l0
	or	%l0,%lo(GPC.MAINEQUIV1_4),%l0
	st	%l0,[%fp-36]
	sethi	%hi(GPC.MAINEQUIV1_3),%l0
	or	%l0,%lo(GPC.MAINEQUIV1_3),%l0
	st	%l0,[%fp-32]
	sethi	%hi(dummy_+10396),%l0
	or	%l0,%lo(dummy_+10396),%l0
	st	%l0,[%fp-28]
	sethi	%hi(dummy_-4),%l0
	or	%l0,%lo(dummy_-4),%l0
	st	%l0,[%fp-24]
	sethi	%hi(GPB.MAIN.itoday-4),%l0
	or	%l0,%lo(GPB.MAIN.itoday-4),%l0
	st	%l0,[%fp-20]

	! block 2
.L11:

! File mergemce.f:
!    1	* Mon Jul 23 15:41:52 EDT 1990 /plas0/h1/pam/src/test mergemce.f
!    2	cMEMBER NAME  mergemce.f 
!    3	C ***THE NAME OF THIS PROGRAM IS MERGEMCE***
!    4	C  A PROGRAM WHICH COMBINES DATA FROM AN OLD ORPT MERGE TAPE,'OLD' WITH
!    5	C  DATA FROM A NEW ORPT TAPE,'NEW' TO PRODUCE A NEW MERGE TAPE, 'MERGE'.
!    6	C DATA FROM THE 'NEW' TAPE ARE GIVEN PREFERENCE
!    7	C
!    8	C
!    9	      COMMON /DUMMY/KO(8),LO(36,72),KN(8),LN(36,72)
!   10	      INTEGER COUNTO, COUNTN, COUNTM
!   11	      INTEGER RBO(4), RBN(4), RBM(4)
!   12	      EQUIVALENCE (COUNTO, RBO(1)), (COUNTN, RBN(1)), (COUNTM, RBM(1))
!   13	      EQUIVALENCE (ERRO(1),RBO(2)), (ERRN(1),RBN(2)), (ERRM(1),RBM(2))
!   14	      LOGICAL*4 ERRO(12), ERRN(12), ERRM(12)
!   15	      LOGICAL EQTIME
!   16	      INTEGER LEN, PAGE, NUMREC, itoday(3)
!   17	      character*4 OLD, NEW, MERGE
!   18	      character*1 slash
!   19	      character*8 date
!   20	      character*3 origino, originn
!   21	      data OLD/'ft13'/, NEW/'ft12'/, MERGE/'ft14'/
!   22	      data LEN/10400/, PAGE/0/, NUMREC/0/
!   23	      data EQTIME/.FALSE./
!   24	      DATA NOLDCT/0/,NNEWCT/0/
!   25	      data slash / '/' /
!   26	C
!   27	C
!   28	c ********* get date of this job via a system routine 
!   29	      call idate (itoday)

	sethi	%hi(GPB.MAIN.itoday),%l0
	or	%l0,%lo(GPB.MAIN.itoday),%l0
	mov	%l0,%o0
	call	idate_
	nop

!   30	c ********* convert integer system date to character string
!   31	      write (unit=date, fmt=2673) itoday(2), slash, itoday(1),

	sethi	%hi(GPB.MAIN.IO.27+32),%l0
	or	%l0,%lo(GPB.MAIN.IO.27+32),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.MAIN.IO.27),%l0
	or	%l0,%lo(GPB.MAIN.IO.27),%l0
	mov	%l0,%o0
	call	__s_wsFi_nv
	nop
	sethi	%hi(.L_cseg0),%l1
	or	%l1,%lo(.L_cseg0),%l1
	sethi	%hi(.L_cseg1),%l2
	or	%l2,%lo(.L_cseg1),%l2
	ld	[%fp-20],%l0
	add	%l0,8,%l0
	mov	4,%l3
	mov	%l1,%o0
	mov	%l2,%o1
	mov	%l0,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	sethi	%hi(.L_cseg2),%l0
	or	%l0,%lo(.L_cseg2),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(GPB.MAIN.slash),%l2
	or	%l2,%lo(GPB.MAIN.slash),%l2
	mov	1,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	sethi	%hi(.L_cseg0),%l1
	or	%l1,%lo(.L_cseg0),%l1
	sethi	%hi(.L_cseg1),%l2
	or	%l2,%lo(.L_cseg1),%l2
	ld	[%fp-20],%l0
	add	%l0,4,%l0
	mov	4,%l3
	mov	%l1,%o0
	mov	%l2,%o1
	mov	%l0,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	sethi	%hi(.L_cseg2),%l0
	or	%l0,%lo(.L_cseg2),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(GPB.MAIN.slash),%l2
	or	%l2,%lo(GPB.MAIN.slash),%l2
	mov	1,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	ld	[%fp-20],%l0
	add	%l0,12,%l0
	ld	[%l0+0],%l0
	add	%l0,-1900,%l0
	st	%l0,[%fp-52]
	sethi	%hi(.L_cseg0),%l0
	or	%l0,%lo(.L_cseg0),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	add	%fp,-52,%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	call	__e_wsfi
	nop

!   32	     *    slash, (itoday(3) - 1900)
!   33	 2673 format (i2, a1, i2, a1, i2)
!   34	      CALL TREADbat(OLD,KO,LEN)

	sethi	%hi(GPB.MAIN.old),%l0
	or	%l0,%lo(GPB.MAIN.old),%l0
	sethi	%hi(dummy_),%l1
	or	%l1,%lo(dummy_),%l1
	sethi	%hi(GPB.MAIN.len),%l2
	or	%l2,%lo(GPB.MAIN.len),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	treadbat_
	nop

!   35	      CALL TREADbat(NEW,KN,LEN)

	sethi	%hi(GPB.MAIN.new),%l0
	or	%l0,%lo(GPB.MAIN.new),%l0
	sethi	%hi(dummy_+10400),%l1
	or	%l1,%lo(dummy_+10400),%l1
	sethi	%hi(GPB.MAIN.len),%l2
	or	%l2,%lo(GPB.MAIN.len),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	treadbat_
	nop

!   36	      CALL TWAIT(OLD,RBO)

	sethi	%hi(GPB.MAIN.old),%l0
	or	%l0,%lo(GPB.MAIN.old),%l0
	sethi	%hi(GPC.MAINEQUIV1_3),%l1
	or	%l1,%lo(GPC.MAINEQUIV1_3),%l1
	mov	4,%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	twait_
	nop

!   37	      CALL TWAIT(NEW,RBN)

	sethi	%hi(GPB.MAIN.new),%l0
	or	%l0,%lo(GPB.MAIN.new),%l0
	sethi	%hi(GPC.MAINEQUIV1_4),%l1
	or	%l1,%lo(GPC.MAINEQUIV1_4),%l1
	mov	4,%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	twait_
	nop

!   38	      if (ko(8) .ne. -1) then

	ld	[%fp-24],%l0
	add	%l0,32,%l0
	ld	[%l0+0],%l0
	cmp	%l0,-1
	be	.L29
	nop

	! block 3
.L30:

!   39	         origino = 'IBM'

	sethi	%hi(GPB.MAIN.origino),%l0
	or	%l0,%lo(GPB.MAIN.origino),%l0
	sethi	%hi(.L_cseg3),%l1
	or	%l1,%lo(.L_cseg3),%l1
	mov	3,%l2
	mov	3,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__s_copy
	nop

!   40	      else

	ba	.L32
	nop

	! block 4
.L29:

!   41	         origino = 'SUN'

	sethi	%hi(GPB.MAIN.origino),%l0
	or	%l0,%lo(GPB.MAIN.origino),%l0
	sethi	%hi(.L_cseg4),%l1
	or	%l1,%lo(.L_cseg4),%l1
	mov	3,%l2
	mov	3,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__s_copy
	nop

!   42	      endif


	! block 5
.L32:

!   43	      write (*,*) " The",old," (OLD data) input file was generated",

	sethi	%hi(GPB.MAIN.IO.33),%l0
	or	%l0,%lo(GPB.MAIN.IO.33),%l0
	mov	%l0,%o0
	call	__s_wsle_nv
	nop
	add	%fp,-56,%l0
	sethi	%hi(.L_cseg5),%l1
	or	%l1,%lo(.L_cseg5),%l1
	mov	4,%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__s_copy
	nop
	sethi	%hi(.L_cseg2),%l0
	or	%l0,%lo(.L_cseg2),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	add	%fp,-56,%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_l_out
	nop
	sethi	%hi(.L_cseg2),%l0
	or	%l0,%lo(.L_cseg2),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(GPB.MAIN.old),%l2
	or	%l2,%lo(GPB.MAIN.old),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_l_out
	nop
	add	%fp,-92,%l0
	sethi	%hi(.L_cseg6),%l1
	or	%l1,%lo(.L_cseg6),%l1
	mov	36,%l2
	mov	36,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__s_copy
	nop
	sethi	%hi(.L_cseg2),%l0
	or	%l0,%lo(.L_cseg2),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	add	%fp,-92,%l2
	mov	36,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_l_out
	nop
	add	%fp,-102,%l0
	sethi	%hi(.L_cseg7),%l1
	or	%l1,%lo(.L_cseg7),%l1
	mov	10,%l2
	mov	10,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__s_copy
	nop
	sethi	%hi(.L_cseg2),%l0
	or	%l0,%lo(.L_cseg2),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	add	%fp,-102,%l2
	mov	10,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_l_out
	nop
	sethi	%hi(.L_cseg2),%l0
	or	%l0,%lo(.L_cseg2),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(GPB.MAIN.origino),%l2
	or	%l2,%lo(GPB.MAIN.origino),%l2
	mov	3,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_l_out
	nop
	add	%fp,-116,%l0
	sethi	%hi(.L_cseg8),%l1
	or	%l1,%lo(.L_cseg8),%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_cseg2),%l0
	or	%l0,%lo(.L_cseg2),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	add	%fp,-116,%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

!   44	     * " on the **",origino,"** computer."
!   45	      if (kn(8) .ne. -1) then 

	ld	[%fp-28],%l0
	add	%l0,32,%l0
	ld	[%l0+0],%l0
	cmp	%l0,-1
	be	.L34
	nop

	! block 6
.L35:

!   46	         originn = 'IBM' 

	sethi	%hi(GPB.MAIN.originn),%l0
	or	%l0,%lo(GPB.MAIN.originn),%l0
	sethi	%hi(.L_cseg3),%l1
	or	%l1,%lo(.L_cseg3),%l1
	mov	3,%l2
	mov	3,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__s_copy
	nop

!   47	      else 

	ba	.L37
	nop

	! block 7
.L34:

!   48	         originn = 'SUN' 

	sethi	%hi(GPB.MAIN.originn),%l0
	or	%l0,%lo(GPB.MAIN.originn),%l0
	sethi	%hi(.L_cseg4),%l1
	or	%l1,%lo(.L_cseg4),%l1
	mov	3,%l2
	mov	3,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__s_copy
	nop

!   49	      endif


	! block 8
.L37:

!   50	      write (*,*) " The",new," (NEW data) input file was generated",

	sethi	%hi(GPB.MAIN.IO.38),%l0
	or	%l0,%lo(GPB.MAIN.IO.38),%l0
	mov	%l0,%o0
	call	__s_wsle_nv
	nop
	add	%fp,-120,%l0
	sethi	%hi(.L_cseg5),%l1
	or	%l1,%lo(.L_cseg5),%l1
	mov	4,%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__s_copy
	nop
	sethi	%hi(.L_cseg2),%l0
	or	%l0,%lo(.L_cseg2),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	add	%fp,-120,%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_l_out
	nop
	sethi	%hi(.L_cseg2),%l0
	or	%l0,%lo(.L_cseg2),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(GPB.MAIN.new),%l2
	or	%l2,%lo(GPB.MAIN.new),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_l_out
	nop
	add	%fp,-156,%l0
	sethi	%hi(.L_cseg9),%l1
	or	%l1,%lo(.L_cseg9),%l1
	mov	36,%l2
	mov	36,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__s_copy
	nop
	sethi	%hi(.L_cseg2),%l0
	or	%l0,%lo(.L_cseg2),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	add	%fp,-156,%l2
	mov	36,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_l_out
	nop
	add	%fp,-166,%l0
	sethi	%hi(.L_cseg7),%l1
	or	%l1,%lo(.L_cseg7),%l1
	mov	10,%l2
	mov	10,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__s_copy
	nop
	sethi	%hi(.L_cseg2),%l0
	or	%l0,%lo(.L_cseg2),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	add	%fp,-166,%l2
	mov	10,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_l_out
	nop
	sethi	%hi(.L_cseg2),%l0
	or	%l0,%lo(.L_cseg2),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(GPB.MAIN.originn),%l2
	or	%l2,%lo(GPB.MAIN.originn),%l2
	mov	3,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_l_out
	nop
	add	%fp,-180,%l0
	sethi	%hi(.L_cseg8),%l1
	or	%l1,%lo(.L_cseg8),%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_cseg2),%l0
	or	%l0,%lo(.L_cseg2),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	add	%fp,-180,%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

!   51	     * " on the **",originn,"** computer."
!   52	      LINES=100

	mov	100,%l1
	sethi	%hi(GPB.MAIN.lines),%l0
	or	%l0,%lo(GPB.MAIN.lines),%l0
	st	%l1,[%l0+0]

	! block 9
.L39:

!   53	C
!   54	 5    CONTINUE


!   55	      IF(LINES.LT.50) GO TO 10

	sethi	%hi(GPB.MAIN.lines),%l0
	or	%l0,%lo(GPB.MAIN.lines),%l0
	ld	[%l0+0],%l0
	cmp	%l0,50
	bge	.L40
	nop

	! block 10
.L41:
	ba	.L42
	nop

	! block 11
.L40:

!   56	      PAGE=PAGE+1

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

!   57	      WRITE(6,1005) DATE,PAGE

	sethi	%hi(GPB.MAIN.IO.44+24),%l0
	or	%l0,%lo(GPB.MAIN.IO.44+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.MAIN.IO.44),%l0
	or	%l0,%lo(GPB.MAIN.IO.44),%l0
	mov	%l0,%o0
	call	__s_wsFe_nv
	nop
	sethi	%hi(.L_cseg2),%l0
	or	%l0,%lo(.L_cseg2),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(GPB.MAIN.date),%l2
	or	%l2,%lo(GPB.MAIN.date),%l2
	mov	8,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_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.MAIN.page),%l2
	or	%l2,%lo(GPB.MAIN.page),%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

!   58	      LINES=0

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

	! block 12
.L42:

!   59	 10   CONTINUE


!   60	C CHECK TO SEE IF BOTH TAPES ARE AT EOF
!   61	      IF (ERRO(1).AND.ERRN(1)) GO TO 900

	ld	[%fp-32],%l0
	add	%l0,4,%l0
	ld	[%l0+0],%l0
	cmp	%l0,%g0
	be	.L45
	nop

	! block 13
.L47:
	ld	[%fp-36],%l0
	add	%l0,4,%l0
	ld	[%l0+0],%l0
	cmp	%l0,%g0
	be	.L45
	nop

	! block 14
.L49:
	ba	.L51
	nop

	! block 15
.L45:

!   62	C  CHECK FOR EOF
!   63	      IF (ERRN(1)) GO TO 45

	ld	[%fp-36],%l0
	add	%l0,4,%l0
	ld	[%l0+0],%l0
	cmp	%l0,%g0
	be	.L52
	nop

	! block 16
.L53:
	ba	.L54
	nop

	! block 17
.L52:

!   64	      IF (ERRO(1)) GO TO 35

	ld	[%fp-32],%l0
	add	%l0,4,%l0
	ld	[%l0+0],%l0
	cmp	%l0,%g0
	be	.L55
	nop

	! block 18
.L56:
	ba	.L57
	nop

	! block 19
.L55:

!   65	C CHECK FOR PERM READ ERROR
!   66	      IF (ERRO(2).OR.ERRO(3)) GO TO 910

	ld	[%fp-32],%l0
	add	%l0,8,%l0
	ld	[%l0+0],%l0
	cmp	%l0,%g0
	be	.L60
	nop

	! block 20
.L61:
	ba	.L59
	nop

	! block 21
.L60:
	ld	[%fp-32],%l0
	add	%l0,12,%l0
	ld	[%l0+0],%l0
	cmp	%l0,%g0
	be	.L58
	nop

	! block 22
.L62:
.L59:
	ba	.L63
	nop

	! block 23
.L58:

!   67	      IF (ERRN(2).OR.ERRN(3)) GO TO 920

	ld	[%fp-36],%l0
	add	%l0,8,%l0
	ld	[%l0+0],%l0
	cmp	%l0,%g0
	be	.L66
	nop

	! block 24
.L67:
	ba	.L65
	nop

	! block 25
.L66:
	ld	[%fp-36],%l0
	add	%l0,12,%l0
	ld	[%l0+0],%l0
	cmp	%l0,%g0
	be	.L64
	nop

	! block 26
.L68:
.L65:
	ba	.L69
	nop

	! block 27
.L64:

!   68	C CHECK TO BE SURE SAME SPACECRAFT
!   69	      IF (KN(1).NE.KO(1)) GO TO 950

	ld	[%fp-28],%l0
	add	%l0,4,%l0
	ld	[%l0+0],%l1
	ld	[%fp-24],%l0
	add	%l0,4,%l0
	ld	[%l0+0],%l0
	cmp	%l1,%l0
	be	.L70
	nop

	! block 28
.L71:
	ba	.L72
	nop

	! block 29
.L70:

!   70	C  COPY EARLIEST DATA
!   71	      IF (KO(2)-KN(2))45,15,35

	ld	[%fp-24],%l0
	add	%l0,8,%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-184]
	ld	[%fp-28],%l0
	add	%l0,8,%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-188]
	ld	[%fp-184],%l1
	ld	[%fp-188],%l0
	cmp	%l1,%l0
	bg	.L57
	nop

	! block 30
.L74:
	ld	[%fp-184],%l1
	ld	[%fp-188],%l0
	cmp	%l1,%l0
	bl	.L54
	nop

	! block 31
.L75:
.L73:

!   72	 15   CONTINUE


!   73	C BOTH NEW AND OLD TAPES ARE SAME YEAR
!   74	      IF ((KO(3)+.5*KO(4))-(KN(3)+.5*KN(4)))45,20,35

	ld	[%fp-24],%l0
	add	%l0,12,%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-360]
	ld	[%fp-360],%f2
	fitos	%f2,%f4
	ld	[%fp-24],%l0
	add	%l0,16,%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-360]
	ld	[%fp-360],%f2
	fitos	%f2,%f3
	sethi	%hi(.L_cseg10),%l0
	or	%l0,%lo(.L_cseg10),%l0
	ld	[%l0+0],%f2
	fmuls	%f3,%f2,%f2
	fadds	%f4,%f2,%f2
	st	%f2,[%fp-192]
	ld	[%fp-28],%l0
	add	%l0,12,%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-360]
	ld	[%fp-360],%f2
	fitos	%f2,%f4
	ld	[%fp-28],%l0
	add	%l0,16,%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-360]
	ld	[%fp-360],%f2
	fitos	%f2,%f3
	sethi	%hi(.L_cseg10),%l0
	or	%l0,%lo(.L_cseg10),%l0
	ld	[%l0+0],%f2
	fmuls	%f3,%f2,%f2
	fadds	%f4,%f2,%f2
	st	%f2,[%fp-196]
	ld	[%fp-192],%f3
	ld	[%fp-196],%f2
	fcmpes	%f3,%f2
	nop
	fbg	.L57
	nop

	! block 32
.L77:
	ld	[%fp-192],%f3
	ld	[%fp-196],%f2
	fcmpes	%f3,%f2
	nop
	fbl	.L54
	nop

	! block 33
.L78:
.L76:

!   75	 20   CONTINUE


!   76	C HALF DAYS ARE EQUAL.  GIVE PREFERENCE TO NEW DATA
!   77	C ALL DATA PUT INTO 'NEW' TAPE BUFFER.  PROCEED AS IF DATA CAME FROM
!   78	C THE NEW TAPE, BUT SET  LOGICAL VARIABLE SO THAT OLD TAPE IS ALSO READ
!   79	C AFTER NEW TAPE HAS BEEN READ TO GET NEXT RECORD.
!   80	C WRITE OLD DATA INTO NEW ARRAY IF NO NEW DATA EXISTS
!   81	      DO 30 I=1,72

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

	! block 34
.L81:

!   82	      IF(LN(2,I).NE.0) GO TO 30

	ld	[%fp-40],%l0
	add	%l0,8,%l3
	sethi	%hi(GPB.MAIN.i),%l0
	or	%l0,%lo(GPB.MAIN.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,7,%l1
	add	%l2,%l1,%l1
	add	%l3,%l1,%l0
	ld	[%l0+0],%l0
	cmp	%l0,0
	be	.L84
	nop

	! block 35
.L85:
	ba	.L79
	nop

	! block 36
.L84:

!   83	      DO 25 J=1,36

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

	! block 37
.L89:
.L87:

!   84	 25   LN(J,I)=LO(J,I)

	ld	[%fp-44],%l4
	sethi	%hi(GPB.MAIN.j),%l0
	or	%l0,%lo(GPB.MAIN.j),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.MAIN.i),%l0
	or	%l0,%lo(GPB.MAIN.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l2
	sll	%l0,5,%l1
	add	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,2,%l1
	add	%l4,%l1,%l0
	ld	[%l0+0],%l5
	ld	[%fp-40],%l4
	sethi	%hi(GPB.MAIN.j),%l0
	or	%l0,%lo(GPB.MAIN.j),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.MAIN.i),%l0
	or	%l0,%lo(GPB.MAIN.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l2
	sll	%l0,5,%l1
	add	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,2,%l1
	add	%l4,%l1,%l0
	st	%l5,[%l0+0]
	sethi	%hi(GPB.MAIN.j),%l0
	or	%l0,%lo(GPB.MAIN.j),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.MAIN.j),%l0
	or	%l0,%lo(GPB.MAIN.j),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.MAIN.j),%l0
	or	%l0,%lo(GPB.MAIN.j),%l0
	ld	[%l0+0],%l0
	cmp	%l0,36
	ble	.L89
	nop

	! block 38
.L93:
.L88:
.L79:

!   85	 30   CONTINUE

	sethi	%hi(GPB.MAIN.i),%l0
	or	%l0,%lo(GPB.MAIN.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.MAIN.i),%l0
	or	%l0,%lo(GPB.MAIN.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.MAIN.i),%l0
	or	%l0,%lo(GPB.MAIN.i),%l0
	ld	[%l0+0],%l0
	cmp	%l0,72
	ble	.L81
	nop

	! block 39
.L94:
.L80:

!   86	      EQTIME=.TRUE.

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

!   87	      GO TO 35


	! block 40
.L57:

!   88	 35   CONTINUE


!   89	C  DATA FROM NEW TAPE ARE EARLIER.  USE 'NEW' DATA.
!   90	c ******* if this was IBM tape, convert real #s to IEEE format
!   91	      IF (kn(8) .ne. -1) THEN

	ld	[%fp-28],%l0
	add	%l0,32,%l0
	ld	[%l0+0],%l0
	cmp	%l0,-1
	be	.L95
	nop

	! block 41
.L96:

!   92	        nerr = icvtf(kn(6), 1, kn(6))

	ld	[%fp-28],%l0
	add	%l0,24,%l1
	sethi	%hi(.L_cseg1),%l2
	or	%l2,%lo(.L_cseg1),%l2
	ld	[%fp-28],%l0
	add	%l0,24,%l0
	mov	%l1,%o0
	mov	%l2,%o1
	mov	%l0,%o2
	call	icvtf_
	nop
	mov	%o0,%l1
	sethi	%hi(GPB.MAIN.nerr),%l0
	or	%l0,%lo(GPB.MAIN.nerr),%l0
	st	%l1,[%l0+0]

!   93	        if (nerr .gt. 0) write (6,*)

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

	! block 42
.L98:
	sethi	%hi(GPB.MAIN.IO.99),%l0
	or	%l0,%lo(GPB.MAIN.IO.99),%l0
	mov	%l0,%o0
	call	__s_wsle_nv
	nop
	add	%fp,-236,%l0
	sethi	%hi(.L_cseg11),%l1
	or	%l1,%lo(.L_cseg11),%l1
	mov	40,%l2
	mov	40,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__s_copy
	nop
	sethi	%hi(.L_cseg2),%l0
	or	%l0,%lo(.L_cseg2),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	add	%fp,-236,%l2
	mov	40,%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.MAIN.nerr),%l2
	or	%l2,%lo(GPB.MAIN.nerr),%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 43
.L97:

!   94	     *   "(A) Number of real # conversion errors =",nerr
!   95	        do 37 ijk = 1, 72

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

	! block 44
.L102:

!   96	           nerr = icvtf ( ln(2,ijk), 35, ln(2,ijk) )

	ld	[%fp-40],%l0
	add	%l0,8,%l3
	sethi	%hi(GPB.MAIN.ijk),%l0
	or	%l0,%lo(GPB.MAIN.ijk),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,7,%l1
	add	%l2,%l1,%l1
	add	%l3,%l1,%l5
	sethi	%hi(.L_cseg12),%l6
	or	%l6,%lo(.L_cseg12),%l6
	ld	[%fp-40],%l0
	add	%l0,8,%l3
	sethi	%hi(GPB.MAIN.ijk),%l0
	or	%l0,%lo(GPB.MAIN.ijk),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,7,%l1
	add	%l2,%l1,%l1
	add	%l3,%l1,%l0
	mov	%l5,%o0
	mov	%l6,%o1
	mov	%l0,%o2
	call	icvtf_
	nop
	mov	%o0,%l1
	sethi	%hi(GPB.MAIN.nerr),%l0
	or	%l0,%lo(GPB.MAIN.nerr),%l0
	st	%l1,[%l0+0]

!   97	           if (nerr .gt. 0) write (*,*)

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

	! block 45
.L106:
	sethi	%hi(GPB.MAIN.IO.107),%l0
	or	%l0,%lo(GPB.MAIN.IO.107),%l0
	mov	%l0,%o0
	call	__s_wsle_nv
	nop
	add	%fp,-276,%l0
	sethi	%hi(.L_cseg13),%l1
	or	%l1,%lo(.L_cseg13),%l1
	mov	40,%l2
	mov	40,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__s_copy
	nop
	sethi	%hi(.L_cseg2),%l0
	or	%l0,%lo(.L_cseg2),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	add	%fp,-276,%l2
	mov	40,%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.MAIN.nerr),%l2
	or	%l2,%lo(GPB.MAIN.nerr),%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 46
.L105:
.L100:

!   98	     *    "(B) Number of real # conversion errors =",nerr
!   99	   37   continue

	sethi	%hi(GPB.MAIN.ijk),%l0
	or	%l0,%lo(GPB.MAIN.ijk),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.MAIN.ijk),%l0
	or	%l0,%lo(GPB.MAIN.ijk),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.MAIN.ijk),%l0
	or	%l0,%lo(GPB.MAIN.ijk),%l0
	ld	[%l0+0],%l0
	cmp	%l0,72
	ble	.L102
	nop

	! block 47
.L108:
.L101:

!  100	c ******* indicate that this is being WRITTEN by SUN
!  101	      kn(8) = -1

	mov	-1,%l1
	ld	[%fp-28],%l0
	add	%l0,32,%l0
	st	%l1,[%l0+0]

!  102	      ELSE

	ba	.L109
	nop

	! block 48
.L95:

!  103	      endif

.L109:

!  104	c
!  105	      CALL TWRITEbat(MERGE,KN,LEN)

	sethi	%hi(GPB.MAIN.merge),%l0
	or	%l0,%lo(GPB.MAIN.merge),%l0
	sethi	%hi(dummy_+10400),%l1
	or	%l1,%lo(dummy_+10400),%l1
	sethi	%hi(GPB.MAIN.len),%l2
	or	%l2,%lo(GPB.MAIN.len),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	twritebat_
	nop

!  106	      CALL TWAIT(MERGE,RBM)

	sethi	%hi(GPB.MAIN.merge),%l0
	or	%l0,%lo(GPB.MAIN.merge),%l0
	sethi	%hi(GPC.MAINEQUIV1_5),%l1
	or	%l1,%lo(GPC.MAINEQUIV1_5),%l1
	mov	4,%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	twait_
	nop

!  107	      IF (ERRM(2).OR.ERRM(3)) GO TO 940

	ld	[%fp-48],%l0
	add	%l0,8,%l0
	ld	[%l0+0],%l0
	cmp	%l0,%g0
	be	.L112
	nop

	! block 49
.L113:
	ba	.L111
	nop

	! block 50
.L112:
	ld	[%fp-48],%l0
	add	%l0,12,%l0
	ld	[%l0+0],%l0
	cmp	%l0,%g0
	be	.L110
	nop

	! block 51
.L115:
.L111:
	ba	.L116
	nop

	! block 52
.L110:

!  108	      NUMREC=NUMREC+1

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

!  109	      WRITE(6,1002) (KN(I),I=1,4),NEW

	sethi	%hi(GPB.MAIN.IO.118+24),%l0
	or	%l0,%lo(GPB.MAIN.IO.118+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.MAIN.IO.118),%l0
	or	%l0,%lo(GPB.MAIN.IO.118),%l0
	mov	%l0,%o0
	call	__s_wsFe_nv
	nop
	mov	1,%l1
	sethi	%hi(GPB.MAIN.i),%l0
	or	%l0,%lo(GPB.MAIN.i),%l0
	st	%l1,[%l0+0]

	! block 53
.L121:
	sethi	%hi(.L_cseg0),%l3
	or	%l3,%lo(.L_cseg0),%l3
	sethi	%hi(.L_cseg1),%l5
	or	%l5,%lo(.L_cseg1),%l5
	ld	[%fp-28],%l2
	sethi	%hi(GPB.MAIN.i),%l0
	or	%l0,%lo(GPB.MAIN.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	mov	4,%l1
	mov	%l3,%o0
	mov	%l5,%o1
	mov	%l0,%o2
	mov	%l1,%o3
	call	__do_f_out_nv
	nop
	sethi	%hi(GPB.MAIN.i),%l0
	or	%l0,%lo(GPB.MAIN.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.MAIN.i),%l0
	or	%l0,%lo(GPB.MAIN.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.MAIN.i),%l0
	or	%l0,%lo(GPB.MAIN.i),%l0
	ld	[%l0+0],%l0
	cmp	%l0,4
	ble	.L121
	nop

	! block 54
.L124:
.L120:
	sethi	%hi(.L_cseg2),%l0
	or	%l0,%lo(.L_cseg2),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(GPB.MAIN.new),%l2
	or	%l2,%lo(GPB.MAIN.new),%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

!  110	      LINES=LINES+1

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

	! block 55
.L125:

!  111	 40   CONTINUE


!  112	      CALL TREADbat(NEW,KN,LEN)

	sethi	%hi(GPB.MAIN.new),%l0
	or	%l0,%lo(GPB.MAIN.new),%l0
	sethi	%hi(dummy_+10400),%l1
	or	%l1,%lo(dummy_+10400),%l1
	sethi	%hi(GPB.MAIN.len),%l2
	or	%l2,%lo(GPB.MAIN.len),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	treadbat_
	nop

!  113	      CALL TWAIT(NEW,RBN)

	sethi	%hi(GPB.MAIN.new),%l0
	or	%l0,%lo(GPB.MAIN.new),%l0
	sethi	%hi(GPC.MAINEQUIV1_4),%l1
	or	%l1,%lo(GPC.MAINEQUIV1_4),%l1
	mov	4,%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	twait_
	nop

!  114	      IF (EQTIME) GO TO 50

	sethi	%hi(GPB.MAIN.eqtime),%l0
	or	%l0,%lo(GPB.MAIN.eqtime),%l0
	ld	[%l0+0],%l0
	cmp	%l0,%g0
	be	.L126
	nop

	! block 56
.L127:
	ba	.L128
	nop

	! block 57
.L126:

!  115	      GO TO 5

	ba	.L39
	nop

	! block 58
.L54:

!  116	 45   CONTINUE


!  117	C  DATA FROM OLD MERGE TAPE ARE EARLIER
!  118	c ******* if this was IBM tape, convert real #s to IEEE format
!  119	      IF (ko(8) .ne. -1) THEN

	ld	[%fp-24],%l0
	add	%l0,32,%l0
	ld	[%l0+0],%l0
	cmp	%l0,-1
	be	.L129
	nop

	! block 59
.L130:

!  120	        nerr = icvtf(ko(6), 1, ko(6))

	ld	[%fp-24],%l0
	add	%l0,24,%l1
	sethi	%hi(.L_cseg1),%l2
	or	%l2,%lo(.L_cseg1),%l2
	ld	[%fp-24],%l0
	add	%l0,24,%l0
	mov	%l1,%o0
	mov	%l2,%o1
	mov	%l0,%o2
	call	icvtf_
	nop
	mov	%o0,%l1
	sethi	%hi(GPB.MAIN.nerr),%l0
	or	%l0,%lo(GPB.MAIN.nerr),%l0
	st	%l1,[%l0+0]

!  121	        if (nerr .gt. 0) write (6,*) 

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

	! block 60
.L132:
	sethi	%hi(GPB.MAIN.IO.133),%l0
	or	%l0,%lo(GPB.MAIN.IO.133),%l0
	mov	%l0,%o0
	call	__s_wsle_nv
	nop
	add	%fp,-316,%l0
	sethi	%hi(.L_cseg14),%l1
	or	%l1,%lo(.L_cseg14),%l1
	mov	40,%l2
	mov	40,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__s_copy
	nop
	sethi	%hi(.L_cseg2),%l0
	or	%l0,%lo(.L_cseg2),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	add	%fp,-316,%l2
	mov	40,%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.MAIN.nerr),%l2
	or	%l2,%lo(GPB.MAIN.nerr),%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 61
.L131:

!  122	     *   "(C) Number of real # conversion errors =",nerr 
!  123	        do 47 ijk = 1, 72

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

	! block 62
.L136:

!  124	           nerr = icvtf ( lo(2,ijk), 35, lo(2,ijk) )

	ld	[%fp-44],%l0
	add	%l0,8,%l3
	sethi	%hi(GPB.MAIN.ijk),%l0
	or	%l0,%lo(GPB.MAIN.ijk),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,7,%l1
	add	%l2,%l1,%l1
	add	%l3,%l1,%l5
	sethi	%hi(.L_cseg12),%l6
	or	%l6,%lo(.L_cseg12),%l6
	ld	[%fp-44],%l0
	add	%l0,8,%l3
	sethi	%hi(GPB.MAIN.ijk),%l0
	or	%l0,%lo(GPB.MAIN.ijk),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,7,%l1
	add	%l2,%l1,%l1
	add	%l3,%l1,%l0
	mov	%l5,%o0
	mov	%l6,%o1
	mov	%l0,%o2
	call	icvtf_
	nop
	mov	%o0,%l1
	sethi	%hi(GPB.MAIN.nerr),%l0
	or	%l0,%lo(GPB.MAIN.nerr),%l0
	st	%l1,[%l0+0]

!  125	           if (nerr .gt. 0) write (*,*)

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

	! block 63
.L140:
	sethi	%hi(GPB.MAIN.IO.141),%l0
	or	%l0,%lo(GPB.MAIN.IO.141),%l0
	mov	%l0,%o0
	call	__s_wsle_nv
	nop
	add	%fp,-356,%l0
	sethi	%hi(.L_cseg15),%l1
	or	%l1,%lo(.L_cseg15),%l1
	mov	40,%l2
	mov	40,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__s_copy
	nop
	sethi	%hi(.L_cseg2),%l0
	or	%l0,%lo(.L_cseg2),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	add	%fp,-356,%l2
	mov	40,%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.MAIN.nerr),%l2
	or	%l2,%lo(GPB.MAIN.nerr),%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 64
.L139:
.L134:

!  126	     *    "(D) Number of real # conversion errors =",nerr
!  127	   47   continue 

	sethi	%hi(GPB.MAIN.ijk),%l0
	or	%l0,%lo(GPB.MAIN.ijk),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.MAIN.ijk),%l0
	or	%l0,%lo(GPB.MAIN.ijk),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.MAIN.ijk),%l0
	or	%l0,%lo(GPB.MAIN.ijk),%l0
	ld	[%l0+0],%l0
	cmp	%l0,72
	ble	.L136
	nop

	! block 65
.L142:
.L135:

!  128	c ******* indicate that this is being WRITTEN by SUN 
!  129	      ko(8) = -1

	mov	-1,%l1
	ld	[%fp-24],%l0
	add	%l0,32,%l0
	st	%l1,[%l0+0]

!  130	      ELSE

	ba	.L143
	nop

	! block 66
.L129:

!  131	      endif

.L143:

!  132	c
!  133	      CALL TWRITEbat(MERGE,KO,LEN)

	sethi	%hi(GPB.MAIN.merge),%l0
	or	%l0,%lo(GPB.MAIN.merge),%l0
	sethi	%hi(dummy_),%l1
	or	%l1,%lo(dummy_),%l1
	sethi	%hi(GPB.MAIN.len),%l2
	or	%l2,%lo(GPB.MAIN.len),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	twritebat_
	nop

!  134	      CALL TWAIT(MERGE,RBM)

	sethi	%hi(GPB.MAIN.merge),%l0
	or	%l0,%lo(GPB.MAIN.merge),%l0
	sethi	%hi(GPC.MAINEQUIV1_5),%l1
	or	%l1,%lo(GPC.MAINEQUIV1_5),%l1
	mov	4,%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	twait_
	nop

!  135	      IF (ERRM(2).OR.ERRM(3)) GO TO 940

	ld	[%fp-48],%l0
	add	%l0,8,%l0
	ld	[%l0+0],%l0
	cmp	%l0,%g0
	be	.L146
	nop

	! block 67
.L147:
	ba	.L145
	nop

	! block 68
.L146:
	ld	[%fp-48],%l0
	add	%l0,12,%l0
	ld	[%l0+0],%l0
	cmp	%l0,%g0
	be	.L144
	nop

	! block 69
.L148:
.L145:
	ba	.L116
	nop

	! block 70
.L144:

!  136	      NUMREC=NUMREC+1

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

!  137	      WRITE(6,1002) (KO(I),I=1,4),OLD

	sethi	%hi(GPB.MAIN.IO.149+24),%l0
	or	%l0,%lo(GPB.MAIN.IO.149+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.MAIN.IO.149),%l0
	or	%l0,%lo(GPB.MAIN.IO.149),%l0
	mov	%l0,%o0
	call	__s_wsFe_nv
	nop
	mov	1,%l1
	sethi	%hi(GPB.MAIN.i),%l0
	or	%l0,%lo(GPB.MAIN.i),%l0
	st	%l1,[%l0+0]

	! block 71
.L152:
	sethi	%hi(.L_cseg0),%l3
	or	%l3,%lo(.L_cseg0),%l3
	sethi	%hi(.L_cseg1),%l5
	or	%l5,%lo(.L_cseg1),%l5
	ld	[%fp-24],%l2
	sethi	%hi(GPB.MAIN.i),%l0
	or	%l0,%lo(GPB.MAIN.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	mov	4,%l1
	mov	%l3,%o0
	mov	%l5,%o1
	mov	%l0,%o2
	mov	%l1,%o3
	call	__do_f_out_nv
	nop
	sethi	%hi(GPB.MAIN.i),%l0
	or	%l0,%lo(GPB.MAIN.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.MAIN.i),%l0
	or	%l0,%lo(GPB.MAIN.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.MAIN.i),%l0
	or	%l0,%lo(GPB.MAIN.i),%l0
	ld	[%l0+0],%l0
	cmp	%l0,4
	ble	.L152
	nop

	! block 72
.L155:
.L151:
	sethi	%hi(.L_cseg2),%l0
	or	%l0,%lo(.L_cseg2),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(GPB.MAIN.old),%l2
	or	%l2,%lo(GPB.MAIN.old),%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

!  138	      LINES=LINES+1

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

	! block 73
.L128:

!  139	 50   CONTINUE


!  140	      EQTIME=.FALSE.

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

!  141	      CALL TREADbat(OLD,KO,LEN)

	sethi	%hi(GPB.MAIN.old),%l0
	or	%l0,%lo(GPB.MAIN.old),%l0
	sethi	%hi(dummy_),%l1
	or	%l1,%lo(dummy_),%l1
	sethi	%hi(GPB.MAIN.len),%l2
	or	%l2,%lo(GPB.MAIN.len),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	treadbat_
	nop

!  142	      CALL TWAIT(OLD,RBO)

	sethi	%hi(GPB.MAIN.old),%l0
	or	%l0,%lo(GPB.MAIN.old),%l0
	sethi	%hi(GPC.MAINEQUIV1_3),%l1
	or	%l1,%lo(GPC.MAINEQUIV1_3),%l1
	mov	4,%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	twait_
	nop

!  143	      GO TO 5

	ba	.L39
	nop

	! block 74
.L51:

!  144	C
!  145	C
!  146	C NORMAL JOB ENDING
!  147	 900  CONTINUE


!  148	C*****LOUT=13.75*NUMREC/12.***CHANGED 4/30/84 DUE TO 6250 BPI DRIVES
!  149	      LOUT = 2.4 * NUMREC/12.

	sethi	%hi(GPB.MAIN.numrec),%l0
	or	%l0,%lo(GPB.MAIN.numrec),%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-360]
	ld	[%fp-360],%f2
	fitos	%f2,%f3
	sethi	%hi(.L_cseg16),%l0
	or	%l0,%lo(.L_cseg16),%l0
	ld	[%l0+0],%f2
	fmuls	%f3,%f2,%f3
	sethi	%hi(.L_cseg17),%l0
	or	%l0,%lo(.L_cseg17),%l0
	ld	[%l0+0],%f2
	fdivs	%f3,%f2,%f2
	fstoi	%f2,%f2
	st	%f2,[%fp-360]
	ld	[%fp-360],%l1
	sethi	%hi(GPB.MAIN.lout),%l0
	or	%l0,%lo(GPB.MAIN.lout),%l0
	st	%l1,[%l0+0]

!  150	      WRITE(6,1001)LOUT

	sethi	%hi(GPB.MAIN.IO.157+24),%l0
	or	%l0,%lo(GPB.MAIN.IO.157+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.MAIN.IO.157),%l0
	or	%l0,%lo(GPB.MAIN.IO.157),%l0
	mov	%l0,%o0
	call	__s_wsFe_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.MAIN.lout),%l2
	or	%l2,%lo(GPB.MAIN.lout),%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

!  151	      CALL TMARK(MERGE)

	sethi	%hi(GPB.MAIN.merge),%l0
	or	%l0,%lo(GPB.MAIN.merge),%l0
	mov	4,%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	tmark_
	nop

!  152	      CALL TWAIT(MERGE,RBM)

	sethi	%hi(GPB.MAIN.merge),%l0
	or	%l0,%lo(GPB.MAIN.merge),%l0
	sethi	%hi(GPC.MAINEQUIV1_5),%l1
	or	%l1,%lo(GPC.MAINEQUIV1_5),%l1
	mov	4,%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	twait_
	nop

!  153	      CALL TMARK(MERGE)

	sethi	%hi(GPB.MAIN.merge),%l0
	or	%l0,%lo(GPB.MAIN.merge),%l0
	mov	4,%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	tmark_
	nop

!  154	      CALL TWAIT(MERGE,RBM)

	sethi	%hi(GPB.MAIN.merge),%l0
	or	%l0,%lo(GPB.MAIN.merge),%l0
	sethi	%hi(GPC.MAINEQUIV1_5),%l1
	or	%l1,%lo(GPC.MAINEQUIV1_5),%l1
	mov	4,%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	twait_
	nop

!  155	      STOP

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

	! block 75
.L63:

!  156	C
!  157	C
!  158	C  READ ERROR ON OLD MERGE TAPE
!  159	 910  NOLDCT=NOLDCT+1

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

!  160	      WRITE(6,1003) COUNTO,ERRO,NOLDCT

	sethi	%hi(GPB.MAIN.IO.159+24),%l0
	or	%l0,%lo(GPB.MAIN.IO.159+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.MAIN.IO.159),%l0
	or	%l0,%lo(GPB.MAIN.IO.159),%l0
	mov	%l0,%o0
	call	__s_wsFe_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(GPC.MAINEQUIV1_3),%l2
	or	%l2,%lo(GPC.MAINEQUIV1_3),%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_cseg19),%l0
	or	%l0,%lo(.L_cseg19),%l0
	sethi	%hi(.L_cseg19),%l1
	or	%l1,%lo(.L_cseg19),%l1
	sethi	%hi(GPC.MAINEQUIV1_3+4),%l2
	or	%l2,%lo(GPC.MAINEQUIV1_3+4),%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_cseg0),%l0
	or	%l0,%lo(.L_cseg0),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(GPB.MAIN.noldct),%l2
	or	%l2,%lo(GPB.MAIN.noldct),%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

!  161	      IF (NOLDCT.GE.10) GO TO 930

	sethi	%hi(GPB.MAIN.noldct),%l0
	or	%l0,%lo(GPB.MAIN.noldct),%l0
	ld	[%l0+0],%l0
	cmp	%l0,10
	bl	.L160
	nop

	! block 76
.L161:
	ba	.L162
	nop

	! block 77
.L160:

!  162	      GO TO 50

	ba	.L128
	nop

	! block 78
.L69:

!  163	C
!  164	C READ ERROR ON ORPT TAPE
!  165	 920  NNEWCT=NNEWCT+1

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

!  166	      WRITE(6,1004) COUNTN,ERRN,NNEWCT

	sethi	%hi(GPB.MAIN.IO.164+24),%l0
	or	%l0,%lo(GPB.MAIN.IO.164+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.MAIN.IO.164),%l0
	or	%l0,%lo(GPB.MAIN.IO.164),%l0
	mov	%l0,%o0
	call	__s_wsFe_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(GPC.MAINEQUIV1_4),%l2
	or	%l2,%lo(GPC.MAINEQUIV1_4),%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_cseg19),%l0
	or	%l0,%lo(.L_cseg19),%l0
	sethi	%hi(.L_cseg19),%l1
	or	%l1,%lo(.L_cseg19),%l1
	sethi	%hi(GPC.MAINEQUIV1_4+4),%l2
	or	%l2,%lo(GPC.MAINEQUIV1_4+4),%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_cseg0),%l0
	or	%l0,%lo(.L_cseg0),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(GPB.MAIN.nnewct),%l2
	or	%l2,%lo(GPB.MAIN.nnewct),%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

!  167	      IF (NNEWCT.GE.10) GO TO 930

	sethi	%hi(GPB.MAIN.nnewct),%l0
	or	%l0,%lo(GPB.MAIN.nnewct),%l0
	ld	[%l0+0],%l0
	cmp	%l0,10
	bl	.L165
	nop

	! block 79
.L166:
	ba	.L162
	nop

	! block 80
.L165:

!  168	      GO TO 40

	ba	.L125
	nop

	! block 81
.L162:

!  169	C
!  170	C EXIT BECAUSE OF TOO MANY READ ERRORS
!  171	 930  WRITE(6,1006)

	sethi	%hi(GPB.MAIN.IO.168+24),%l0
	or	%l0,%lo(GPB.MAIN.IO.168+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.MAIN.IO.168),%l0
	or	%l0,%lo(GPB.MAIN.IO.168),%l0
	mov	%l0,%o0
	call	__s_wsFe_nv
	nop
	call	__e_wsfe
	nop

!  172	      STOP

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

	! block 82
.L116:

!  173	C
!  174	 940  CONTINUE


!  175	C ENDING MERGE BECAUSE OF A WRITE ERROR ON THE NEW MERGE TAPE
!  176	      WRITE(6,1000) COUNTM,ERRM,NUMREC

	sethi	%hi(GPB.MAIN.IO.170+24),%l0
	or	%l0,%lo(GPB.MAIN.IO.170+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.MAIN.IO.170),%l0
	or	%l0,%lo(GPB.MAIN.IO.170),%l0
	mov	%l0,%o0
	call	__s_wsFe_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(GPC.MAINEQUIV1_5),%l2
	or	%l2,%lo(GPC.MAINEQUIV1_5),%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_cseg19),%l0
	or	%l0,%lo(.L_cseg19),%l0
	sethi	%hi(.L_cseg19),%l1
	or	%l1,%lo(.L_cseg19),%l1
	sethi	%hi(GPC.MAINEQUIV1_5+4),%l2
	or	%l2,%lo(GPC.MAINEQUIV1_5+4),%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_cseg0),%l0
	or	%l0,%lo(.L_cseg0),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(GPB.MAIN.numrec),%l2
	or	%l2,%lo(GPB.MAIN.numrec),%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

!  177	      STOP

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

	! block 83
.L72:

!  178	C
!  179	C
!  180	C  DATA FROM TWO DIFFERENT  SPACECRAFT
!  181	 950  WRITE(6,1007) KO(1),KN(1)

	sethi	%hi(GPB.MAIN.IO.172+24),%l0
	or	%l0,%lo(GPB.MAIN.IO.172+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.MAIN.IO.172),%l0
	or	%l0,%lo(GPB.MAIN.IO.172),%l0
	mov	%l0,%o0
	call	__s_wsFe_nv
	nop
	sethi	%hi(.L_cseg0),%l1
	or	%l1,%lo(.L_cseg0),%l1
	sethi	%hi(.L_cseg1),%l2
	or	%l2,%lo(.L_cseg1),%l2
	ld	[%fp-24],%l0
	add	%l0,4,%l0
	mov	4,%l3
	mov	%l1,%o0
	mov	%l2,%o1
	mov	%l0,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	sethi	%hi(.L_cseg0),%l1
	or	%l1,%lo(.L_cseg0),%l1
	sethi	%hi(.L_cseg1),%l2
	or	%l2,%lo(.L_cseg1),%l2
	ld	[%fp-28],%l0
	add	%l0,4,%l0
	mov	4,%l3
	mov	%l1,%o0
	mov	%l2,%o1
	mov	%l0,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	call	__e_wsfe
	nop

!  182	      STOP

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

!  183	C
!  184	C
!  185	 1000 FORMAT(' EXIT BECAUSE OF WRITE ERROR ON NEW MERGE',T60,
!  186	     *'WRITE ERROR--COUNT,RES',I6,12(',',L2),' N',I4)
!  187	 1001 FORMAT(' NORMAL END OF MERGE PROGRAM.  BOTH INPUT TAPES AT EOF.'/
!  188	     1 1X,I4,' FEET WRITTEN ON NEW MERGE TAPE.')
!  189	 1002 FORMAT(1X,I3,I4,1X,I4,I4,A10)
!  190	 1003 FORMAT(' ERROR ON OLD MERGE TAPE.',T60,'READ ERROR--COUNT,RES',
!  191	     *I6,12(',',L2),' N',I4)
!  192	 1004 FORMAT(' ERROR ON ORPT TAPE.',T60,'READ ERROR--COUNT,RES',
!  193	     *I6,12(',',L2),' N',I4)
!  194	 1005 FORMAT(' SUMMARY OF MERGE PROGRAM OPERATIONS',2X, A8,T100,
!  195	     X'PAGE ',I3//'  SC YEAR DAY HALF   ORIGIN',T60,'NOTES'/)
!  196	 1006 FORMAT(' EXIT BECAUSE OF TOO MANY READ ERRORS')
!  197	 1007 FORMAT(' EXIT BECAUSE S/C ON ORPT AND OLD MERGE NOT THE SAME.'/
!  198	     * ' OLD MERGE IS IMP ',I3,'.  ORPT TAPE IS IMP ',I3)
!  199	      END


	! block 84
.L12:
.L13:
	jmp	%i7+8
	restore
	.size	MAIN_,(.-MAIN_)
	.align	8
	.align	8
	.skip	16

	! block 0

	.global	main
	.type	main,2
main:
	save	%sp,-96,%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
.L197:
.L196:
	add	%fp,68,%l0
	add	%fp,72,%l1
	add	%fp,76,%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	f77_init
	nop
	ld	[%fp+68],%l0
	ld	[%fp+72],%l1
	ld	[%fp+76],%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	__f77_init
	nop
	call	MAIN_
	nop
	mov	0,%l0
	mov	%l0,%o0
	call	__f77_exit
	nop
	mov	0,%l0
	mov	%l0,%i0
	jmp	%i7+8
	restore
	.size	main,(.-main)
	.align	8
	.common	dummy_,20800,8

	.section	".data",#alloc,#write
	.align	8
GPB.MAIN.IO.27:
	.word	0x1000000
	.skip	4
	.word	GPB.MAIN.date
	.skip	4
	.word	GPB.MAIN.FORMAT.26
	.word	0x8,0x1
	.skip	8
	.type	GPB.MAIN.IO.27,#object
	.size	GPB.MAIN.IO.27,36
	.align	8
GPB.MAIN.IO.33:
	.word	0x1000000
	.skip	4
	.word	0x6
	.skip	16
	.type	GPB.MAIN.IO.33,#object
	.size	GPB.MAIN.IO.33,28
	.align	8
GPB.MAIN.IO.38:
	.word	0x1000000
	.skip	4
	.word	0x6
	.skip	16
	.type	GPB.MAIN.IO.38,#object
	.size	GPB.MAIN.IO.38,28
	.align	8
GPB.MAIN.IO.44:
	.word	0x1000000
	.skip	4
	.word	0x6
	.skip	4
	.word	GPB.MAIN.FORMAT.43
	.skip	8
	.type	GPB.MAIN.IO.44,#object
	.size	GPB.MAIN.IO.44,28
	.align	8
GPB.MAIN.IO.99:
	.word	0x1000000
	.skip	4
	.word	0x6
	.skip	16
	.type	GPB.MAIN.IO.99,#object
	.size	GPB.MAIN.IO.99,28
	.align	8
GPB.MAIN.IO.107:
	.word	0x1000000
	.skip	4
	.word	0x6
	.skip	16
	.type	GPB.MAIN.IO.107,#object
	.size	GPB.MAIN.IO.107,28
	.align	8
GPB.MAIN.IO.118:
	.word	0x1000000
	.skip	4
	.word	0x6
	.skip	4
	.word	GPB.MAIN.FORMAT.117
	.skip	8
	.type	GPB.MAIN.IO.118,#object
	.size	GPB.MAIN.IO.118,28
	.align	8
GPB.MAIN.IO.133:
	.word	0x1000000
	.skip	4
	.word	0x6
	.skip	16
	.type	GPB.MAIN.IO.133,#object
	.size	GPB.MAIN.IO.133,28
	.align	8
GPB.MAIN.IO.141:
	.word	0x1000000
	.skip	4
	.word	0x6
	.skip	16
	.type	GPB.MAIN.IO.141,#object
	.size	GPB.MAIN.IO.141,28
	.align	8
GPB.MAIN.IO.149:
	.word	0x1000000
	.skip	4
	.word	0x6
	.skip	4
	.word	GPB.MAIN.FORMAT.117
	.skip	8
	.type	GPB.MAIN.IO.149,#object
	.size	GPB.MAIN.IO.149,28
	.align	8
GPB.MAIN.IO.157:
	.word	0x1000000
	.skip	4
	.word	0x6
	.skip	4
	.word	GPB.MAIN.FORMAT.156
	.skip	8
	.type	GPB.MAIN.IO.157,#object
	.size	GPB.MAIN.IO.157,28
	.align	8
GPB.MAIN.IO.159:
	.word	0x1000000
	.skip	4
	.word	0x6
	.skip	4
	.word	GPB.MAIN.FORMAT.158
	.skip	8
	.type	GPB.MAIN.IO.159,#object
	.size	GPB.MAIN.IO.159,28
	.align	8
GPB.MAIN.IO.164:
	.word	0x1000000
	.skip	4
	.word	0x6
	.skip	4
	.word	GPB.MAIN.FORMAT.163
	.skip	8
	.type	GPB.MAIN.IO.164,#object
	.size	GPB.MAIN.IO.164,28
	.align	8
GPB.MAIN.IO.168:
	.word	0x1000000
	.skip	4
	.word	0x6
	.skip	4
	.word	GPB.MAIN.FORMAT.167
	.skip	8
	.type	GPB.MAIN.IO.168,#object
	.size	GPB.MAIN.IO.168,28
	.align	8
GPB.MAIN.IO.170:
	.word	0x1000000
	.skip	4
	.word	0x6
	.skip	4
	.word	GPB.MAIN.FORMAT.169
	.skip	8
	.type	GPB.MAIN.IO.170,#object
	.size	GPB.MAIN.IO.170,28
	.align	8
GPB.MAIN.IO.172:
	.word	0x1000000
	.skip	4
	.word	0x6
	.skip	4
	.word	GPB.MAIN.FORMAT.171
	.skip	8
	.type	GPB.MAIN.IO.172,#object
	.size	GPB.MAIN.IO.172,28

	.section	".bss",#alloc,#write
	.align	8
	.global	GPC.MAINEQUIV1_4
GPC.MAINEQUIV1_4:
	.skip	52
	.type	GPC.MAINEQUIV1_4,#object
	.size	GPC.MAINEQUIV1_4,52
	.align	8
	.global	GPC.MAINEQUIV1_3
GPC.MAINEQUIV1_3:
	.skip	52
	.type	GPC.MAINEQUIV1_3,#object
	.size	GPC.MAINEQUIV1_3,52
	.align	8
	.global	GPC.MAINEQUIV1_5
GPC.MAINEQUIV1_5:
	.skip	52
	.type	GPC.MAINEQUIV1_5,#object
	.size	GPC.MAINEQUIV1_5,52
	.align	8
GPB.MAIN.originn:
	.skip	3
	.type	GPB.MAIN.originn,#object
	.size	GPB.MAIN.originn,3
	.align	8
GPB.MAIN.lines:
	.skip	4
	.type	GPB.MAIN.lines,#object
	.size	GPB.MAIN.lines,4
	.align	8
GPB.MAIN.origino:
	.skip	3
	.type	GPB.MAIN.origino,#object
	.size	GPB.MAIN.origino,3

	.section	".data",#alloc,#write
	.align	4
GPB.MAIN.slash:
	.ascii	"/"
	.type	GPB.MAIN.slash,#object
	.size	GPB.MAIN.slash,1

	.section	".bss",#alloc,#write
	.align	8
GPB.MAIN.lout:
	.skip	4
	.type	GPB.MAIN.lout,#object
	.size	GPB.MAIN.lout,4

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

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

	.section	".data",#alloc,#write
	.align	4
GPB.MAIN.merge:
	.word	0x66743134
	.type	GPB.MAIN.merge,#object
	.size	GPB.MAIN.merge,4
	.align	4
GPB.MAIN.old:
	.word	0x66743133
	.type	GPB.MAIN.old,#object
	.size	GPB.MAIN.old,4
	.align	4
GPB.MAIN.page:
	.skip	4
	.type	GPB.MAIN.page,#object
	.size	GPB.MAIN.page,4

	.section	".bss",#alloc,#write
	.align	8
GPB.MAIN.ijk:
	.skip	4
	.type	GPB.MAIN.ijk,#object
	.size	GPB.MAIN.ijk,4
	.align	8
GPB.MAIN.date:
	.skip	8
	.type	GPB.MAIN.date,#object
	.size	GPB.MAIN.date,8

	.section	".data",#alloc,#write
	.align	4
GPB.MAIN.len:
	.word	0x28a0
	.type	GPB.MAIN.len,#object
	.size	GPB.MAIN.len,4

	.section	".bss",#alloc,#write
	.align	8
GPB.MAIN.nerr:
	.skip	4
	.type	GPB.MAIN.nerr,#object
	.size	GPB.MAIN.nerr,4

	.section	".data",#alloc,#write
	.align	4
GPB.MAIN.new:
	.word	0x66743132
	.type	GPB.MAIN.new,#object
	.size	GPB.MAIN.new,4
	.align	4
GPB.MAIN.numrec:
	.skip	4
	.type	GPB.MAIN.numrec,#object
	.size	GPB.MAIN.numrec,4
	.align	4
GPB.MAIN.noldct:
	.skip	4
	.type	GPB.MAIN.noldct,#object
	.size	GPB.MAIN.noldct,4

	.section	".bss",#alloc,#write
	.align	8
GPB.MAIN.itoday:
	.skip	12
	.type	GPB.MAIN.itoday,#object
	.size	GPB.MAIN.itoday,12

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

	.section	".rodata",#alloc
	.align	4
.L_cseg0:
	.word	0x3
	.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:
	.word	0xd
	.type	.L_cseg2,#object
	.size	.L_cseg2,4
	.align	4
.L_cseg3:
	.ascii	"IBM"
	.type	.L_cseg3,#object
	.size	.L_cseg3,3
	.align	4
.L_cseg4:
	.ascii	"SUN"
	.type	.L_cseg4,#object
	.size	.L_cseg4,3
	.align	4
.L_cseg5:
	.ascii	" The\000\000\000"
	.type	.L_cseg5,#object
	.size	.L_cseg5,7
	.align	4
.L_cseg6:
	.ascii	" (OLD data) input file was generated\000\000\000"
	.type	.L_cseg6,#object
	.size	.L_cseg6,39
	.align	4
.L_cseg7:
	.ascii	" on the **\000"
	.type	.L_cseg7,#object
	.size	.L_cseg7,11
	.align	4
.L_cseg8:
	.ascii	"** computer.\000\000\000"
	.type	.L_cseg8,#object
	.size	.L_cseg8,15
	.align	4
.L_cseg9:
	.ascii	" (NEW data) input file was generated\000\000\000"
	.type	.L_cseg9,#object
	.size	.L_cseg9,39
	.align	4
.L_cseg10:
	.word	0x3f000000
	.type	.L_cseg10,#object
	.size	.L_cseg10,4
	.align	4
.L_cseg11:
	.ascii	"(A) Number of real # conversion errors =\000\000\000"
	.type	.L_cseg11,#object
	.size	.L_cseg11,43
	.align	4
.L_cseg12:
	.word	0x23
	.type	.L_cseg12,#object
	.size	.L_cseg12,4
	.align	4
.L_cseg13:
	.ascii	"(B) Number of real # conversion errors =\000\000\000"
	.type	.L_cseg13,#object
	.size	.L_cseg13,43
	.align	4
.L_cseg14:
	.ascii	"(C) Number of real # conversion errors =\000\000\000"
	.type	.L_cseg14,#object
	.size	.L_cseg14,43
	.align	4
.L_cseg15:
	.ascii	"(D) Number of real # conversion errors =\000\000\000"
	.type	.L_cseg15,#object
	.size	.L_cseg15,43
	.align	4
.L_cseg16:
	.word	0x4019999a
	.type	.L_cseg16,#object
	.size	.L_cseg16,4
	.align	4
.L_cseg17:
	.word	0x41400000
	.type	.L_cseg17,#object
	.size	.L_cseg17,4
	.align	4
.L_cseg18:
	.skip	3
	.type	.L_cseg18,#object
	.size	.L_cseg18,3
	.align	4
.L_cseg19:
	.word	0xc
	.type	.L_cseg19,#object
	.size	.L_cseg19,4

	.section	".data",#alloc,#write
	.align	4
GPB.MAIN.FORMAT.26:
	.word	0x1
	.skip	12
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x2,0x1
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x20,0x1
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x2,0x1
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x20,0x1
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x2,0x1
	.skip	4
	.word	0x2
	.skip	12
	.type	GPB.MAIN.FORMAT.26,#object
	.size	GPB.MAIN.FORMAT.26,192
	.align	4
GPB.MAIN.CONSTANT.173:
	.ascii	" EXIT BECAUSE OF WRITE ERROR ON NEW MERGE"
	.skip	3
	.type	GPB.MAIN.CONSTANT.173,#object
	.size	GPB.MAIN.CONSTANT.173,44
	.align	4
GPB.MAIN.CONSTANT.174:
	.ascii	"WRITE ERROR--COUNT,RES"
	.skip	2
	.type	GPB.MAIN.CONSTANT.174,#object
	.size	GPB.MAIN.CONSTANT.174,24
	.align	4
GPB.MAIN.CONSTANT.175:
	.ascii	","
	.skip	3
	.type	GPB.MAIN.CONSTANT.175,#object
	.size	GPB.MAIN.CONSTANT.175,4
	.align	4
GPB.MAIN.CONSTANT.176:
	.ascii	" N"
	.skip	2
	.type	GPB.MAIN.CONSTANT.176,#object
	.size	GPB.MAIN.CONSTANT.176,4
	.align	4
GPB.MAIN.FORMAT.169:
	.word	0x1
	.skip	12
	.word	0xc,0x29
	.word	GPB.MAIN.CONSTANT.173
	.skip	4
	.word	0xf,0x3c,0x1
	.skip	4
	.word	0xc,0x16
	.word	GPB.MAIN.CONSTANT.174
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x6,0x1
	.skip	4
	.word	0x6,0xc
	.skip	8
	.word	0x1,0x6
	.skip	8
	.word	0xc,0x1
	.word	GPB.MAIN.CONSTANT.175
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x1e,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0xc,0x2
	.word	GPB.MAIN.CONSTANT.176
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x4,0x1
	.skip	4
	.word	0x2,0x6
	.skip	8
	.type	GPB.MAIN.FORMAT.169,#object
	.size	GPB.MAIN.FORMAT.169,256
	.align	4
GPB.MAIN.CONSTANT.177:
	.ascii	" NORMAL END OF MERGE PROGRAM.  BOTH INPUT TAPES AT EOF."
	.skip	5
	.type	GPB.MAIN.CONSTANT.177,#object
	.size	GPB.MAIN.CONSTANT.177,60
	.align	4
GPB.MAIN.CONSTANT.178:
	.ascii	" FEET WRITTEN ON NEW MERGE TAPE."
	.skip	4
	.type	GPB.MAIN.CONSTANT.178,#object
	.size	GPB.MAIN.CONSTANT.178,36
	.align	4
GPB.MAIN.FORMAT.156:
	.word	0x1
	.skip	12
	.word	0xc,0x37
	.word	GPB.MAIN.CONSTANT.177
	.skip	4
	.word	0x5
	.skip	12
	.word	0x4,0x1
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x4,0x1
	.skip	4
	.word	0xc,0x20
	.word	GPB.MAIN.CONSTANT.178
	.skip	4
	.word	0x2
	.skip	12
	.type	GPB.MAIN.FORMAT.156,#object
	.size	GPB.MAIN.FORMAT.156,128
	.align	4
GPB.MAIN.FORMAT.117:
	.word	0x1
	.skip	12
	.word	0x4,0x1
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x4,0x1
	.skip	4
	.word	0x4,0x1
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x4,0x1
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x4,0x1
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x20,0xa
	.skip	8
	.word	0x2
	.skip	12
	.type	GPB.MAIN.FORMAT.117,#object
	.size	GPB.MAIN.FORMAT.117,224
	.align	4
GPB.MAIN.CONSTANT.179:
	.ascii	" ERROR ON OLD MERGE TAPE."
	.skip	3
	.type	GPB.MAIN.CONSTANT.179,#object
	.size	GPB.MAIN.CONSTANT.179,28
	.align	4
GPB.MAIN.CONSTANT.180:
	.ascii	"READ ERROR--COUNT,RES"
	.skip	3
	.type	GPB.MAIN.CONSTANT.180,#object
	.size	GPB.MAIN.CONSTANT.180,24
	.align	4
GPB.MAIN.CONSTANT.181:
	.ascii	","
	.skip	3
	.type	GPB.MAIN.CONSTANT.181,#object
	.size	GPB.MAIN.CONSTANT.181,4
	.align	4
GPB.MAIN.CONSTANT.182:
	.ascii	" N"
	.skip	2
	.type	GPB.MAIN.CONSTANT.182,#object
	.size	GPB.MAIN.CONSTANT.182,4
	.align	4
GPB.MAIN.FORMAT.158:
	.word	0x1
	.skip	12
	.word	0xc,0x19
	.word	GPB.MAIN.CONSTANT.179
	.skip	4
	.word	0xf,0x3c,0x1
	.skip	4
	.word	0xc,0x15
	.word	GPB.MAIN.CONSTANT.180
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x6,0x1
	.skip	4
	.word	0x6,0xc
	.skip	8
	.word	0x1,0x6
	.skip	8
	.word	0xc,0x1
	.word	GPB.MAIN.CONSTANT.181
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x1e,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0xc,0x2
	.word	GPB.MAIN.CONSTANT.182
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x4,0x1
	.skip	4
	.word	0x2,0x6
	.skip	8
	.type	GPB.MAIN.FORMAT.158,#object
	.size	GPB.MAIN.FORMAT.158,256
	.align	4
GPB.MAIN.CONSTANT.183:
	.ascii	" ERROR ON ORPT TAPE."
	.skip	4
	.type	GPB.MAIN.CONSTANT.183,#object
	.size	GPB.MAIN.CONSTANT.183,24
	.align	4
GPB.MAIN.CONSTANT.184:
	.ascii	"READ ERROR--COUNT,RES"
	.skip	3
	.type	GPB.MAIN.CONSTANT.184,#object
	.size	GPB.MAIN.CONSTANT.184,24
	.align	4
GPB.MAIN.CONSTANT.185:
	.ascii	","
	.skip	3
	.type	GPB.MAIN.CONSTANT.185,#object
	.size	GPB.MAIN.CONSTANT.185,4
	.align	4
GPB.MAIN.CONSTANT.186:
	.ascii	" N"
	.skip	2
	.type	GPB.MAIN.CONSTANT.186,#object
	.size	GPB.MAIN.CONSTANT.186,4
	.align	4
GPB.MAIN.FORMAT.163:
	.word	0x1
	.skip	12
	.word	0xc,0x14
	.word	GPB.MAIN.CONSTANT.183
	.skip	4
	.word	0xf,0x3c,0x1
	.skip	4
	.word	0xc,0x15
	.word	GPB.MAIN.CONSTANT.184
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x6,0x1
	.skip	4
	.word	0x6,0xc
	.skip	8
	.word	0x1,0x6
	.skip	8
	.word	0xc,0x1
	.word	GPB.MAIN.CONSTANT.185
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x1e,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0xc,0x2
	.word	GPB.MAIN.CONSTANT.186
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x4,0x1
	.skip	4
	.word	0x2,0x6
	.skip	8
	.type	GPB.MAIN.FORMAT.163,#object
	.size	GPB.MAIN.FORMAT.163,256
	.align	4
GPB.MAIN.CONSTANT.187:
	.ascii	" SUMMARY OF MERGE PROGRAM OPERATIONS"
	.skip	4
	.type	GPB.MAIN.CONSTANT.187,#object
	.size	GPB.MAIN.CONSTANT.187,40
	.align	4
GPB.MAIN.CONSTANT.188:
	.ascii	"PAGE "
	.skip	3
	.type	GPB.MAIN.CONSTANT.188,#object
	.size	GPB.MAIN.CONSTANT.188,8
	.align	4
GPB.MAIN.CONSTANT.189:
	.ascii	"  SC YEAR DAY HALF   ORIGIN"
	.skip	5
	.type	GPB.MAIN.CONSTANT.189,#object
	.size	GPB.MAIN.CONSTANT.189,32
	.align	4
GPB.MAIN.CONSTANT.190:
	.ascii	"NOTES"
	.skip	3
	.type	GPB.MAIN.CONSTANT.190,#object
	.size	GPB.MAIN.CONSTANT.190,8
	.align	4
GPB.MAIN.FORMAT.43:
	.word	0x1
	.skip	12
	.word	0xc,0x24
	.word	GPB.MAIN.CONSTANT.187
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x20,0x8
	.skip	8
	.word	0xf,0x64,0x1
	.skip	4
	.word	0xc,0x5
	.word	GPB.MAIN.CONSTANT.188
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x5
	.skip	12
	.word	0x5
	.skip	12
	.word	0xc,0x1b
	.word	GPB.MAIN.CONSTANT.189
	.skip	4
	.word	0xf,0x3c,0x1
	.skip	4
	.word	0xc,0x5
	.word	GPB.MAIN.CONSTANT.190
	.skip	4
	.word	0x5
	.skip	12
	.word	0x2
	.skip	12
	.type	GPB.MAIN.FORMAT.43,#object
	.size	GPB.MAIN.FORMAT.43,256
	.align	4
GPB.MAIN.CONSTANT.191:
	.ascii	" EXIT BECAUSE OF TOO MANY READ ERRORS"
	.skip	3
	.type	GPB.MAIN.CONSTANT.191,#object
	.size	GPB.MAIN.CONSTANT.191,40
	.align	4
GPB.MAIN.FORMAT.167:
	.word	0x1
	.skip	12
	.word	0xc,0x25
	.word	GPB.MAIN.CONSTANT.191
	.skip	4
	.word	0x2
	.skip	12
	.type	GPB.MAIN.FORMAT.167,#object
	.size	GPB.MAIN.FORMAT.167,48
	.align	4
GPB.MAIN.CONSTANT.192:
	.ascii	" EXIT BECAUSE S/C ON ORPT AND OLD MERGE NOT THE SAME."
	.skip	3
	.type	GPB.MAIN.CONSTANT.192,#object
	.size	GPB.MAIN.CONSTANT.192,56
	.align	4
GPB.MAIN.CONSTANT.193:
	.ascii	" OLD MERGE IS IMP "
	.skip	2
	.type	GPB.MAIN.CONSTANT.193,#object
	.size	GPB.MAIN.CONSTANT.193,20
	.align	4
GPB.MAIN.CONSTANT.194:
	.ascii	".  ORPT TAPE IS IMP "
	.skip	4
	.type	GPB.MAIN.CONSTANT.194,#object
	.size	GPB.MAIN.CONSTANT.194,24
	.align	4
GPB.MAIN.FORMAT.171:
	.word	0x1
	.skip	12
	.word	0xc,0x35
	.word	GPB.MAIN.CONSTANT.192
	.skip	4
	.word	0x5
	.skip	12
	.word	0xc,0x12
	.word	GPB.MAIN.CONSTANT.193
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0xc,0x14
	.word	GPB.MAIN.CONSTANT.194
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x2
	.skip	12
	.type	GPB.MAIN.FORMAT.171,#object
	.size	GPB.MAIN.FORMAT.171,160

	.file	"mergemce.f"
	.xstabs	".stab.index","V=3.1;R=3.0",60,0,0,842629717
	.xstabs	".stab.index","/amd/plas5/h1/vgr/src/imp;/opt/SUNWspro/bin/../SC4.0/bin/f77 -sbfast   mergemce.f",52,0,0,0
	.xstabs	".stab.index","MAIN",36,0,0,0
	.xstabs	".stab.index","MAIN",42,0,0,0
	.xstabs	".stab.index","main",36,0,0,0
	.xstabs	".stab.sbfocus","mergemce.f.0yR0Nc.bd",72,0,0,0

	.global	__fsr_init_value
__fsr_init_value = 0x0
