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

	! block 0

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

	! block 1
.L138:
	sethi	%hi(initil_+716),%l0
	or	%l0,%lo(initil_+716),%l0
	st	%l0,[%fp-32]
	sethi	%hi(initil_+876),%l0
	or	%l0,%lo(initil_+876),%l0
	st	%l0,[%fp-36]
	sethi	%hi(initil_-4),%l0
	or	%l0,%lo(initil_-4),%l0
	st	%l0,[%fp-20]
	sethi	%hi(initil_+60),%l0
	or	%l0,%lo(initil_+60),%l0
	st	%l0,[%fp-24]
	sethi	%hi(initil_+380),%l0
	or	%l0,%lo(initil_+380),%l0
	st	%l0,[%fp-28]
	sethi	%hi(initil_+796),%l0
	or	%l0,%lo(initil_+796),%l0
	st	%l0,[%fp-40]

	! block 2
.L11:

! File prtimp.f:
!    1	* Thu May 31 13:42:52 EDT 1990 /plas0/h1/pam/src/test prtimp.f
!    2	* Wed Feb 22 15:11:42 EST 1989 /usr4/pam/src/test prtimp.f
!    3	cMEMBER NAME  prtimp.f 
!    4	C ***THE NAME OF THIS PROGRAM IS PRTIMP****
!    5	C-----THIS PROGRAM DUMPS OUT THE 'IM' TAPES GENERATED BY XTK
!    6	C-----SPECTRUM SPECIFICATION
!    7	      COMMON /TYPSSN/ TYPE, psel, sn, tspin
!    8	      INTEGER TYPE
!    9	C-----SPECTRUM EVENT TIME
!   10	      COMMON /TIME/ YEAR,DOY,HOUROD,MINUTE, second,milsod,seqclk
!   11	      INTEGER YEAR,DOY,HOUROD
!   12	      COMMON /INITIL/ KFLAG(20),TIME1(4,20),TIME2(4,20),KCNT(20)
!   13	     1  ,KBUF(20),KK(20)
!   14	      INTEGER TIME1,TIME2
!   15	      LOGICAL*4 BUFL,EOD,JCNT
!   16	C-----DATA INITIALIZATION FOR DEFAULT VALUES
!   17	C  IY1,ID1,IH1,IM1  START TIME
!   18	C  IY2,ID2,IH2,IM2  STOP TIME
!   19	C-----IFLAG=0 DEFAULT VALUE,1 ALL TMS,2 ALL CAL.,3 ALL NTMS,4 ALL AMS.
!   20	C  JCNT = .TRUE.,.FALSE. , PRINT CURRENTS (PICOAMP) ; COUNTS (OCTAL)
!   21	C  BUFL = .TRUE. , .FALSE. ; DUMP BUFFER , DON'T DUMP BUFFER
!   22	c       initialize unit 15 for IMPCOR's use
!   23	      call initio (1, 15, ijk)

	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.ijk),%l2
	or	%l2,%lo(GPB.MAIN.ijk),%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	initio_
	nop

!   24	      KFLAG(1) = 0

	mov	0,%l1
	ld	[%fp-20],%l0
	add	%l0,4,%l0
	st	%l1,[%l0+0]

!   25	      CALL MVC(KFLAG(1),KFLAG(2),956)

	ld	[%fp-20],%l0
	add	%l0,4,%l1
	ld	[%fp-20],%l0
	add	%l0,8,%l0
	sethi	%hi(.L_cseg2),%l2
	or	%l2,%lo(.L_cseg2),%l2
	mov	%l1,%o0
	mov	%l0,%o1
	mov	%l2,%o2
	call	mvc_
	nop

!   26	C     READING OF CONTROL CARDS
!   27	C  MAXIMUM # OF CONTROL CARDS IS 20
!   28	C     NO CARDS ; DEFAULT SYSTEM USED
!   29	      L = 0

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

!   30	      DO 15 I = 1,20

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

	! block 3
.L19:

!   31	      READ(5,999,ERR=20,END=8) (TIME1(J,I),J=1,4)

	sethi	%hi(GPB.MAIN.IO.26+24),%l0
	or	%l0,%lo(GPB.MAIN.IO.26+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.MAIN.IO.26),%l0
	or	%l0,%lo(GPB.MAIN.IO.26),%l0
	mov	%l0,%o0
	call	__s_rsFe_nv
	nop
	mov	%o0,%l0
	st	%l0,[%fp-44]
	ld	[%fp-44],%l0
	cmp	%l0,0
	bne	.L24
	nop

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

	! block 5
.L30:
	sethi	%hi(.L_cseg3),%l5
	or	%l5,%lo(.L_cseg3),%l5
	sethi	%hi(.L_cseg0),%l6
	or	%l6,%lo(.L_cseg0),%l6
	ld	[%fp-24],%l3
	sethi	%hi(GPB.MAIN.j),%l0
	or	%l0,%lo(GPB.MAIN.j),%l0
	ld	[%l0+0],%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
	sll	%l0,2,%l1
	add	%l3,%l1,%l0
	mov	4,%l1
	mov	%l5,%o0
	mov	%l6,%o1
	mov	%l0,%o2
	mov	%l1,%o3
	call	__do_f_in_nv
	nop
	mov	%o0,%l0
	st	%l0,[%fp-44]
	ld	[%fp-44],%l0
	cmp	%l0,0
	bne	.L24
	nop

	! block 6
.L34:
	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,4
	ble	.L30
	nop

	! block 7
.L35:
.L29:
	mov	1,%l1
	sethi	%hi(GPB.MAIN.k),%l0
	or	%l0,%lo(GPB.MAIN.k),%l0
	st	%l1,[%l0+0]

	! block 8
.L38:
	sethi	%hi(.L_cseg3),%l5
	or	%l5,%lo(.L_cseg3),%l5
	sethi	%hi(.L_cseg0),%l6
	or	%l6,%lo(.L_cseg0),%l6
	ld	[%fp-28],%l3
	sethi	%hi(GPB.MAIN.k),%l0
	or	%l0,%lo(GPB.MAIN.k),%l0
	ld	[%l0+0],%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
	sll	%l0,2,%l1
	add	%l3,%l1,%l0
	mov	4,%l1
	mov	%l5,%o0
	mov	%l6,%o1
	mov	%l0,%o2
	mov	%l1,%o3
	call	__do_f_in_nv
	nop
	mov	%o0,%l0
	st	%l0,[%fp-44]
	ld	[%fp-44],%l0
	cmp	%l0,0
	bne	.L24
	nop

	! block 9
.L42:
	sethi	%hi(GPB.MAIN.k),%l0
	or	%l0,%lo(GPB.MAIN.k),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.MAIN.k),%l0
	or	%l0,%lo(GPB.MAIN.k),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.MAIN.k),%l0
	or	%l0,%lo(GPB.MAIN.k),%l0
	ld	[%l0+0],%l0
	cmp	%l0,4
	ble	.L38
	nop

	! block 10
.L43:
.L37:
	sethi	%hi(.L_cseg3),%l3
	or	%l3,%lo(.L_cseg3),%l3
	sethi	%hi(.L_cseg0),%l5
	or	%l5,%lo(.L_cseg0),%l5
	ld	[%fp-32],%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_in_nv
	nop
	mov	%o0,%l0
	st	%l0,[%fp-44]
	ld	[%fp-44],%l0
	cmp	%l0,0
	bne	.L24
	nop

	! block 11
.L45:
	sethi	%hi(.L_cseg3),%l3
	or	%l3,%lo(.L_cseg3),%l3
	sethi	%hi(.L_cseg0),%l5
	or	%l5,%lo(.L_cseg0),%l5
	ld	[%fp-20],%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_in_nv
	nop
	mov	%o0,%l0
	st	%l0,[%fp-44]
	ld	[%fp-44],%l0
	cmp	%l0,0
	bne	.L24
	nop

	! block 12
.L46:
	sethi	%hi(.L_cseg3),%l3
	or	%l3,%lo(.L_cseg3),%l3
	sethi	%hi(.L_cseg0),%l5
	or	%l5,%lo(.L_cseg0),%l5
	ld	[%fp-36],%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_in_nv
	nop
	mov	%o0,%l0
	st	%l0,[%fp-44]
	ld	[%fp-44],%l0
	cmp	%l0,0
	bne	.L24
	nop

	! block 13
.L48:
	sethi	%hi(.L_cseg3),%l3
	or	%l3,%lo(.L_cseg3),%l3
	sethi	%hi(.L_cseg0),%l5
	or	%l5,%lo(.L_cseg0),%l5
	ld	[%fp-40],%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_in_nv
	nop
	mov	%o0,%l0
	st	%l0,[%fp-44]
	ld	[%fp-44],%l0
	cmp	%l0,0
	bne	.L24
	nop

	! block 14
.L50:
	call	__e_rsfe
	nop
	mov	%o0,%l0
	st	%l0,[%fp-44]
	ld	[%fp-44],%l0
	cmp	%l0,0
	bne	.L24
	nop

	! block 15
.L51:
.L24:
	ld	[%fp-44],%l0
	cmp	%l0,0
	bl	.L22
	nop

	! block 16
.L52:
	ld	[%fp-44],%l0
	cmp	%l0,0
	bg	.L23
	nop

	! block 17
.L53:

!   32	     1 ,(TIME2(K,I),K=1,4)
!   33	     1  ,KCNT(I),KFLAG(I),KK(I),KBUF(I)
!   34	      L = L + 1

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

	! block 18
.L17:

!   35	   15 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,20
	ble	.L19
	nop

	! block 19
.L54:
.L18:
.L22:

!   36	    8 IF (L .EQ. 0) L = 1

	sethi	%hi(GPB.MAIN.l),%l0
	or	%l0,%lo(GPB.MAIN.l),%l0
	ld	[%l0+0],%l0
	cmp	%l0,0
	bne	.L55
	nop

	! block 20
.L56:
	mov	1,%l1
	sethi	%hi(GPB.MAIN.l),%l0
	or	%l0,%lo(GPB.MAIN.l),%l0
	st	%l1,[%l0+0]

	! block 21
.L55:

!   37	      LL = 0

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

	! block 22
.L57:

!   38	    1 LL = LL + 1

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

!   39	C  NEXT CONTROL CARD DATA ; OTHERWISE STOP
!   40	      IF(LL.GT.L) GO TO 14

	sethi	%hi(GPB.MAIN.ll),%l0
	or	%l0,%lo(GPB.MAIN.ll),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.MAIN.l),%l0
	or	%l0,%lo(GPB.MAIN.l),%l0
	ld	[%l0+0],%l0
	cmp	%l1,%l0
	ble	.L58
	nop

	! block 23
.L59:
	ba	.L60
	nop

	! block 24
.L58:

!   41	      IFLAG = KFLAG(LL)

	ld	[%fp-20],%l2
	sethi	%hi(GPB.MAIN.ll),%l0
	or	%l0,%lo(GPB.MAIN.ll),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.MAIN.iflag),%l0
	or	%l0,%lo(GPB.MAIN.iflag),%l0
	st	%l1,[%l0+0]

!   42	      IY1 = TIME1(1,LL)

	ld	[%fp-24],%l0
	add	%l0,4,%l2
	sethi	%hi(GPB.MAIN.ll),%l0
	or	%l0,%lo(GPB.MAIN.ll),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.MAIN.iy1),%l0
	or	%l0,%lo(GPB.MAIN.iy1),%l0
	st	%l1,[%l0+0]

!   43	      ID1 = TIME1(2,LL)

	ld	[%fp-24],%l0
	add	%l0,8,%l2
	sethi	%hi(GPB.MAIN.ll),%l0
	or	%l0,%lo(GPB.MAIN.ll),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.MAIN.id1),%l0
	or	%l0,%lo(GPB.MAIN.id1),%l0
	st	%l1,[%l0+0]

!   44	      IH1 = TIME1(3,LL)

	ld	[%fp-24],%l0
	add	%l0,12,%l2
	sethi	%hi(GPB.MAIN.ll),%l0
	or	%l0,%lo(GPB.MAIN.ll),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.MAIN.ih1),%l0
	or	%l0,%lo(GPB.MAIN.ih1),%l0
	st	%l1,[%l0+0]

!   45	      IM1 = TIME1(4,LL)

	ld	[%fp-24],%l0
	add	%l0,16,%l2
	sethi	%hi(GPB.MAIN.ll),%l0
	or	%l0,%lo(GPB.MAIN.ll),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.MAIN.im1),%l0
	or	%l0,%lo(GPB.MAIN.im1),%l0
	st	%l1,[%l0+0]

!   46	      IY2 = TIME2(1,LL)

	ld	[%fp-28],%l0
	add	%l0,4,%l2
	sethi	%hi(GPB.MAIN.ll),%l0
	or	%l0,%lo(GPB.MAIN.ll),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.MAIN.iy2),%l0
	or	%l0,%lo(GPB.MAIN.iy2),%l0
	st	%l1,[%l0+0]

!   47	      IF(IY2.EQ.0) IY2 = 9999

	sethi	%hi(GPB.MAIN.iy2),%l0
	or	%l0,%lo(GPB.MAIN.iy2),%l0
	ld	[%l0+0],%l0
	cmp	%l0,0
	bne	.L61
	nop

	! block 25
.L62:
	sethi	%hi(9999),%l1
	or	%l1,%lo(9999),%l1
	sethi	%hi(GPB.MAIN.iy2),%l0
	or	%l0,%lo(GPB.MAIN.iy2),%l0
	st	%l1,[%l0+0]

	! block 26
.L61:

!   48	      ID2 = TIME2(2,LL)

	ld	[%fp-28],%l0
	add	%l0,8,%l2
	sethi	%hi(GPB.MAIN.ll),%l0
	or	%l0,%lo(GPB.MAIN.ll),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.MAIN.id2),%l0
	or	%l0,%lo(GPB.MAIN.id2),%l0
	st	%l1,[%l0+0]

!   49	      IH2 = TIME2(3,LL)

	ld	[%fp-28],%l0
	add	%l0,12,%l2
	sethi	%hi(GPB.MAIN.ll),%l0
	or	%l0,%lo(GPB.MAIN.ll),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.MAIN.ih2),%l0
	or	%l0,%lo(GPB.MAIN.ih2),%l0
	st	%l1,[%l0+0]

!   50	      IM2 = TIME2(4,LL)

	ld	[%fp-28],%l0
	add	%l0,16,%l2
	sethi	%hi(GPB.MAIN.ll),%l0
	or	%l0,%lo(GPB.MAIN.ll),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.MAIN.im2),%l0
	or	%l0,%lo(GPB.MAIN.im2),%l0
	st	%l1,[%l0+0]

!   51	      ICNT = KCNT(LL)

	ld	[%fp-32],%l2
	sethi	%hi(GPB.MAIN.ll),%l0
	or	%l0,%lo(GPB.MAIN.ll),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.MAIN.icnt),%l0
	or	%l0,%lo(GPB.MAIN.icnt),%l0
	st	%l1,[%l0+0]

!   52	      IBUF = KBUF(LL)

	ld	[%fp-40],%l2
	sethi	%hi(GPB.MAIN.ll),%l0
	or	%l0,%lo(GPB.MAIN.ll),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.MAIN.ibuf),%l0
	or	%l0,%lo(GPB.MAIN.ibuf),%l0
	st	%l1,[%l0+0]

!   53	      IK = KK(LL)

	ld	[%fp-36],%l2
	sethi	%hi(GPB.MAIN.ll),%l0
	or	%l0,%lo(GPB.MAIN.ll),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.MAIN.ik),%l0
	or	%l0,%lo(GPB.MAIN.ik),%l0
	st	%l1,[%l0+0]

!   54	      IF(IK.EQ.0) IK=6

	sethi	%hi(GPB.MAIN.ik),%l0
	or	%l0,%lo(GPB.MAIN.ik),%l0
	ld	[%l0+0],%l0
	cmp	%l0,0
	bne	.L63
	nop

	! block 27
.L64:
	mov	6,%l1
	sethi	%hi(GPB.MAIN.ik),%l0
	or	%l0,%lo(GPB.MAIN.ik),%l0
	st	%l1,[%l0+0]

	! block 28
.L63:

!   55	      BUFL = .FALSE.

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

!   56	      IF(IBUF.EQ.1) BUFL = .TRUE.

	sethi	%hi(GPB.MAIN.ibuf),%l0
	or	%l0,%lo(GPB.MAIN.ibuf),%l0
	ld	[%l0+0],%l0
	cmp	%l0,1
	bne	.L65
	nop

	! block 29
.L66:
	mov	1,%l1
	sethi	%hi(GPB.MAIN.bufl),%l0
	or	%l0,%lo(GPB.MAIN.bufl),%l0
	st	%l1,[%l0+0]

	! block 30
.L65:

!   57	      JCNT = .FALSE.

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

!   58	      IF(ICNT.EQ.1) JCNT = .TRUE.

	sethi	%hi(GPB.MAIN.icnt),%l0
	or	%l0,%lo(GPB.MAIN.icnt),%l0
	ld	[%l0+0],%l0
	cmp	%l0,1
	bne	.L67
	nop

	! block 31
.L68:
	mov	1,%l1
	sethi	%hi(GPB.MAIN.jcnt),%l0
	or	%l0,%lo(GPB.MAIN.jcnt),%l0
	st	%l1,[%l0+0]

	! block 32
.L67:

!   59	C     LISTING OF CONTROL CARD
!   60	      WRITE(IK,997) (TIME1(I,LL),I=1,4),(TIME2(I,LL),I=1,4)

	sethi	%hi(GPB.MAIN.ik),%l0
	or	%l0,%lo(GPB.MAIN.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.MAIN.IO.70+8),%l0
	or	%l0,%lo(GPB.MAIN.IO.70+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.MAIN.IO.70+24),%l0
	or	%l0,%lo(GPB.MAIN.IO.70+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.MAIN.IO.70),%l0
	or	%l0,%lo(GPB.MAIN.IO.70),%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 33
.L73:
	sethi	%hi(.L_cseg3),%l5
	or	%l5,%lo(.L_cseg3),%l5
	sethi	%hi(.L_cseg0),%l6
	or	%l6,%lo(.L_cseg0),%l6
	ld	[%fp-24],%l3
	sethi	%hi(GPB.MAIN.i),%l0
	or	%l0,%lo(GPB.MAIN.i),%l0
	ld	[%l0+0],%l2
	sethi	%hi(GPB.MAIN.ll),%l0
	or	%l0,%lo(GPB.MAIN.ll),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	sll	%l0,2,%l1
	add	%l3,%l1,%l0
	mov	4,%l1
	mov	%l5,%o0
	mov	%l6,%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	.L73
	nop

	! block 34
.L76:
.L72:
	mov	1,%l1
	sethi	%hi(GPB.MAIN.i),%l0
	or	%l0,%lo(GPB.MAIN.i),%l0
	st	%l1,[%l0+0]

	! block 35
.L79:
	sethi	%hi(.L_cseg3),%l5
	or	%l5,%lo(.L_cseg3),%l5
	sethi	%hi(.L_cseg0),%l6
	or	%l6,%lo(.L_cseg0),%l6
	ld	[%fp-28],%l3
	sethi	%hi(GPB.MAIN.i),%l0
	or	%l0,%lo(GPB.MAIN.i),%l0
	ld	[%l0+0],%l2
	sethi	%hi(GPB.MAIN.ll),%l0
	or	%l0,%lo(GPB.MAIN.ll),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	sll	%l0,2,%l1
	add	%l3,%l1,%l0
	mov	4,%l1
	mov	%l5,%o0
	mov	%l6,%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	.L79
	nop

	! block 36
.L82:
.L78:
	sethi	%hi(.L_cseg3),%l3
	or	%l3,%lo(.L_cseg3),%l3
	sethi	%hi(.L_cseg0),%l5
	or	%l5,%lo(.L_cseg0),%l5
	ld	[%fp-32],%l2
	sethi	%hi(GPB.MAIN.ll),%l0
	or	%l0,%lo(GPB.MAIN.ll),%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(.L_cseg3),%l3
	or	%l3,%lo(.L_cseg3),%l3
	sethi	%hi(.L_cseg0),%l5
	or	%l5,%lo(.L_cseg0),%l5
	ld	[%fp-20],%l2
	sethi	%hi(GPB.MAIN.ll),%l0
	or	%l0,%lo(GPB.MAIN.ll),%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(.L_cseg3),%l3
	or	%l3,%lo(.L_cseg3),%l3
	sethi	%hi(.L_cseg0),%l5
	or	%l5,%lo(.L_cseg0),%l5
	ld	[%fp-36],%l2
	sethi	%hi(GPB.MAIN.ll),%l0
	or	%l0,%lo(GPB.MAIN.ll),%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(.L_cseg3),%l3
	or	%l3,%lo(.L_cseg3),%l3
	sethi	%hi(.L_cseg0),%l5
	or	%l5,%lo(.L_cseg0),%l5
	ld	[%fp-40],%l2
	sethi	%hi(GPB.MAIN.ll),%l0
	or	%l0,%lo(GPB.MAIN.ll),%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
	call	__e_wsfe
	nop

	! block 37
.L83:

!   61	     1 ,KCNT(LL),KFLAG(LL),KK(LL),KBUF(LL)
!   62	C     WRITE(IK,995) IY1,ID1,IH1,IM1,IY2,ID2,IH2,IM2,JCNT
!   63	C    1  ,IFLAG,IK,BUFL
!   64	C     IMPCOR WILL SEARCH TO FIRST SPECTRUM AFTER START TIME.
!   65	C     IMPCOR READS TAPE. GET SPECTRUM FOR EACH CALL
!   66	    2 CALL IMPCOR(EOD,IY1,ID1,IH1,IM1,BUFL,IK,7)

	sethi	%hi(GPB.MAIN.eod),%l0
	or	%l0,%lo(GPB.MAIN.eod),%l0
	sethi	%hi(GPB.MAIN.iy1),%l1
	or	%l1,%lo(GPB.MAIN.iy1),%l1
	sethi	%hi(GPB.MAIN.id1),%l2
	or	%l2,%lo(GPB.MAIN.id1),%l2
	sethi	%hi(GPB.MAIN.ih1),%l3
	or	%l3,%lo(GPB.MAIN.ih1),%l3
	sethi	%hi(GPB.MAIN.im1),%l5
	or	%l5,%lo(GPB.MAIN.im1),%l5
	sethi	%hi(GPB.MAIN.bufl),%l6
	or	%l6,%lo(GPB.MAIN.bufl),%l6
	sethi	%hi(GPB.MAIN.ik),%l7
	or	%l7,%lo(GPB.MAIN.ik),%l7
	sethi	%hi(.L_cseg4),%l4
	or	%l4,%lo(.L_cseg4),%l4
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	mov	%l5,%o4
	mov	%l6,%o5
	st	%l7,[%sp+92]
	st	%l4,[%sp+96]
	call	impcor_
	nop

!   67	      IF(EOD) GO TO 14

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

	! block 38
.L85:
	ba	.L60
	nop

	! block 39
.L84:

!   68	      IF(YEAR-IY2) 4,3,1

	sethi	%hi(time_),%l0
	or	%l0,%lo(time_),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.MAIN.iy2),%l0
	or	%l0,%lo(GPB.MAIN.iy2),%l0
	ld	[%l0+0],%l0
	cmp	%l1,%l0
	bg	.L57
	nop

	! block 40
.L88:
	sethi	%hi(time_),%l0
	or	%l0,%lo(time_),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.MAIN.iy2),%l0
	or	%l0,%lo(GPB.MAIN.iy2),%l0
	ld	[%l0+0],%l0
	cmp	%l1,%l0
	bl	.L86
	nop

	! block 41
.L89:
.L87:

!   69	    3 IF(DOY-ID2) 4,5,1

	sethi	%hi(time_),%l0
	or	%l0,%lo(time_),%l0
	ld	[%l0+4],%l1
	sethi	%hi(GPB.MAIN.id2),%l0
	or	%l0,%lo(GPB.MAIN.id2),%l0
	ld	[%l0+0],%l0
	cmp	%l1,%l0
	bg	.L57
	nop

	! block 42
.L91:
	sethi	%hi(time_),%l0
	or	%l0,%lo(time_),%l0
	ld	[%l0+4],%l1
	sethi	%hi(GPB.MAIN.id2),%l0
	or	%l0,%lo(GPB.MAIN.id2),%l0
	ld	[%l0+0],%l0
	cmp	%l1,%l0
	bl	.L86
	nop

	! block 43
.L92:
.L90:

!   70	    5 IF(HOUROD-IH2) 4,6,1

	sethi	%hi(time_),%l0
	or	%l0,%lo(time_),%l0
	ld	[%l0+8],%l1
	sethi	%hi(GPB.MAIN.ih2),%l0
	or	%l0,%lo(GPB.MAIN.ih2),%l0
	ld	[%l0+0],%l0
	cmp	%l1,%l0
	bg	.L57
	nop

	! block 44
.L94:
	sethi	%hi(time_),%l0
	or	%l0,%lo(time_),%l0
	ld	[%l0+8],%l1
	sethi	%hi(GPB.MAIN.ih2),%l0
	or	%l0,%lo(GPB.MAIN.ih2),%l0
	ld	[%l0+0],%l0
	cmp	%l1,%l0
	bl	.L86
	nop

	! block 45
.L95:
.L93:

!   71	    6 IF(MINUTE-IM2) 4,4,1

	sethi	%hi(time_),%l0
	or	%l0,%lo(time_),%l0
	ld	[%l0+12],%l1
	sethi	%hi(GPB.MAIN.im2),%l0
	or	%l0,%lo(GPB.MAIN.im2),%l0
	ld	[%l0+0],%l0
	cmp	%l1,%l0
	bg	.L57
	nop

	! block 46
.L96:
.L86:

!   72	    4 CONTINUE


!   73	      I=MOD(IABS(TYPE),10)

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

	! block 47
.L99:
	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-48]
	ba	.L97
	nop

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

	! block 49
.L97:
	ld	[%fp-48],%l0
	mov	10,%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	.rem
	nop
	mov	%o0,%l1
	sethi	%hi(GPB.MAIN.i),%l0
	or	%l0,%lo(GPB.MAIN.i),%l0
	st	%l1,[%l0+0]

!   74	C     PRINT SUBROUTINES CAN HANDLE TYPE'S 1-4 , 11-14 ONLY
!   75	C     WILL BE UPDATED IN FUTURE
!   76	      IF(I.EQ.0.OR.I.GT.4) GO TO 2

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

	! block 50
.L103:
	ba	.L101
	nop

	! block 51
.L102:
	sethi	%hi(GPB.MAIN.i),%l0
	or	%l0,%lo(GPB.MAIN.i),%l0
	ld	[%l0+0],%l0
	cmp	%l0,4
	ble	.L100
	nop

	! block 52
.L104:
.L101:
	ba	.L83
	nop

	! block 53
.L100:

!   77	      IF(IFLAG.NE.0) GO TO 7

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

	! block 54
.L106:
	ba	.L107
	nop

	! block 55
.L105:

!   78	      CALL IMPPRT(JCNT,IK,2)

	sethi	%hi(GPB.MAIN.jcnt),%l0
	or	%l0,%lo(GPB.MAIN.jcnt),%l0
	sethi	%hi(GPB.MAIN.ik),%l1
	or	%l1,%lo(GPB.MAIN.ik),%l1
	sethi	%hi(.L_cseg5),%l2
	or	%l2,%lo(.L_cseg5),%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	impprt_
	nop

!   79	      GO TO 2

	ba	.L83
	nop

	! block 56
.L107:

!   80	    7 CONTINUE


!   81	      IF(I.NE.1) GO TO 9

	sethi	%hi(GPB.MAIN.i),%l0
	or	%l0,%lo(GPB.MAIN.i),%l0
	ld	[%l0+0],%l0
	cmp	%l0,1
	be	.L108
	nop

	! block 57
.L109:
	ba	.L110
	nop

	! block 58
.L108:

!   82	      IF(IFLAG.EQ.1) CALL IMPPRT(JCNT,IK,2)

	sethi	%hi(GPB.MAIN.iflag),%l0
	or	%l0,%lo(GPB.MAIN.iflag),%l0
	ld	[%l0+0],%l0
	cmp	%l0,1
	bne	.L111
	nop

	! block 59
.L112:
	sethi	%hi(GPB.MAIN.jcnt),%l0
	or	%l0,%lo(GPB.MAIN.jcnt),%l0
	sethi	%hi(GPB.MAIN.ik),%l1
	or	%l1,%lo(GPB.MAIN.ik),%l1
	sethi	%hi(.L_cseg5),%l2
	or	%l2,%lo(.L_cseg5),%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	impprt_
	nop

	! block 60
.L111:

!   83	      GO TO 2

	ba	.L83
	nop

	! block 61
.L110:

!   84	    9 IF(I.NE.2) GO TO 10

	sethi	%hi(GPB.MAIN.i),%l0
	or	%l0,%lo(GPB.MAIN.i),%l0
	ld	[%l0+0],%l0
	cmp	%l0,2
	be	.L113
	nop

	! block 62
.L114:
	ba	.L115
	nop

	! block 63
.L113:

!   85	      IF(IFLAG.EQ.2) CALL IMPPRT(JCNT,IK,2)

	sethi	%hi(GPB.MAIN.iflag),%l0
	or	%l0,%lo(GPB.MAIN.iflag),%l0
	ld	[%l0+0],%l0
	cmp	%l0,2
	bne	.L116
	nop

	! block 64
.L117:
	sethi	%hi(GPB.MAIN.jcnt),%l0
	or	%l0,%lo(GPB.MAIN.jcnt),%l0
	sethi	%hi(GPB.MAIN.ik),%l1
	or	%l1,%lo(GPB.MAIN.ik),%l1
	sethi	%hi(.L_cseg5),%l2
	or	%l2,%lo(.L_cseg5),%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	impprt_
	nop

	! block 65
.L116:

!   86	      GO TO 2

	ba	.L83
	nop

	! block 66
.L115:

!   87	   10 IF(I.NE.3) GO TO 11

	sethi	%hi(GPB.MAIN.i),%l0
	or	%l0,%lo(GPB.MAIN.i),%l0
	ld	[%l0+0],%l0
	cmp	%l0,3
	be	.L118
	nop

	! block 67
.L119:
	ba	.L120
	nop

	! block 68
.L118:

!   88	      IF(IFLAG.EQ.3) CALL IMPPRT(JCNT,IK,2)

	sethi	%hi(GPB.MAIN.iflag),%l0
	or	%l0,%lo(GPB.MAIN.iflag),%l0
	ld	[%l0+0],%l0
	cmp	%l0,3
	bne	.L121
	nop

	! block 69
.L122:
	sethi	%hi(GPB.MAIN.jcnt),%l0
	or	%l0,%lo(GPB.MAIN.jcnt),%l0
	sethi	%hi(GPB.MAIN.ik),%l1
	or	%l1,%lo(GPB.MAIN.ik),%l1
	sethi	%hi(.L_cseg5),%l2
	or	%l2,%lo(.L_cseg5),%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	impprt_
	nop

	! block 70
.L121:

!   89	      GO TO 2

	ba	.L83
	nop

	! block 71
.L120:

!   90	   11 IF(I.NE.4) GO TO 2

	sethi	%hi(GPB.MAIN.i),%l0
	or	%l0,%lo(GPB.MAIN.i),%l0
	ld	[%l0+0],%l0
	cmp	%l0,4
	be	.L123
	nop

	! block 72
.L124:
	ba	.L83
	nop

	! block 73
.L123:

!   91	      IF(IFLAG.EQ.4) CALL IMPPRT(JCNT,IK,2)

	sethi	%hi(GPB.MAIN.iflag),%l0
	or	%l0,%lo(GPB.MAIN.iflag),%l0
	ld	[%l0+0],%l0
	cmp	%l0,4
	bne	.L125
	nop

	! block 74
.L126:
	sethi	%hi(GPB.MAIN.jcnt),%l0
	or	%l0,%lo(GPB.MAIN.jcnt),%l0
	sethi	%hi(GPB.MAIN.ik),%l1
	or	%l1,%lo(GPB.MAIN.ik),%l1
	sethi	%hi(.L_cseg5),%l2
	or	%l2,%lo(.L_cseg5),%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	impprt_
	nop

	! block 75
.L125:

!   92	      GO TO 2

	ba	.L83
	nop

	! block 76
.L23:

!   93	   20 WRITE(6,1001)

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

	! block 77
.L60:

!   94	   14 WRITE(IK,998) L

	sethi	%hi(GPB.MAIN.ik),%l0
	or	%l0,%lo(GPB.MAIN.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.MAIN.IO.130+8),%l0
	or	%l0,%lo(GPB.MAIN.IO.130+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.MAIN.IO.130+24),%l0
	or	%l0,%lo(GPB.MAIN.IO.130+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.MAIN.IO.130),%l0
	or	%l0,%lo(GPB.MAIN.IO.130),%l0
	mov	%l0,%o0
	call	__s_wsFe_nv
	nop
	sethi	%hi(.L_cseg3),%l0
	or	%l0,%lo(.L_cseg3),%l0
	sethi	%hi(.L_cseg0),%l1
	or	%l1,%lo(.L_cseg0),%l1
	sethi	%hi(GPB.MAIN.l),%l2
	or	%l2,%lo(GPB.MAIN.l),%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

!   95	      STOP

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

!   96	C     FORMAT STATEMENTS
!   97	 1001 FORMAT(20X,'CONTROL CARD READ ERROR')
!   98	  999 FORMAT(2(2I4,1X,2I2,1X),4(1X,I1))
!   99	  998 FORMAT(' END OF JOB; # OF CONTROL CARDS READ= ',I5)
!  100	  997 FORMAT(' CONTROL CARD VALUES ARE ; START TIME= ',2I4,2X,2I2
!  101	     1 ,' STOP TIME= ',2I4,2X,2I2,' KCNT,KFLAG,KK,KBUF= ',4I4)
!  102	  995 FORMAT(' IY1,ID1,IH1,IM1,IY2,ID2,IH2,IM2,JCNT,IFLAG,IK,BUFL= '
!  103	     1 ,8I5,2X,A4,2X,2I4,2X,A4)
!  104	      END


	! block 78
.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
.L140:
.L139:
	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	initil_,960,8
	.common	time_,28,8
	.common	typssn_,16,8

	.section	".data",#alloc,#write
	.align	8
GPB.MAIN.IO.26:
	.word	0x1000000,0x1,0x5,0x1
	.word	GPB.MAIN.FORMAT.25
	.skip	8
	.type	GPB.MAIN.IO.26,#object
	.size	GPB.MAIN.IO.26,28
	.align	8
GPB.MAIN.IO.70:
	.word	0x1000000
	.skip	12
	.word	GPB.MAIN.FORMAT.69
	.skip	8
	.type	GPB.MAIN.IO.70,#object
	.size	GPB.MAIN.IO.70,28
	.align	8
GPB.MAIN.IO.128:
	.word	0x1000000
	.skip	4
	.word	0x6
	.skip	4
	.word	GPB.MAIN.FORMAT.127
	.skip	8
	.type	GPB.MAIN.IO.128,#object
	.size	GPB.MAIN.IO.128,28
	.align	8
GPB.MAIN.IO.130:
	.word	0x1000000
	.skip	12
	.word	GPB.MAIN.FORMAT.129
	.skip	8
	.type	GPB.MAIN.IO.130,#object
	.size	GPB.MAIN.IO.130,28

	.section	".bss",#alloc,#write
	.align	8
GPB.MAIN.iy1:
	.skip	4
	.type	GPB.MAIN.iy1,#object
	.size	GPB.MAIN.iy1,4
	.align	8
GPB.MAIN.iy2:
	.skip	4
	.type	GPB.MAIN.iy2,#object
	.size	GPB.MAIN.iy2,4
	.align	8
GPB.MAIN.ih1:
	.skip	4
	.type	GPB.MAIN.ih1,#object
	.size	GPB.MAIN.ih1,4
	.align	8
GPB.MAIN.ih2:
	.skip	4
	.type	GPB.MAIN.ih2,#object
	.size	GPB.MAIN.ih2,4
	.align	8
GPB.MAIN.i:
	.skip	4
	.type	GPB.MAIN.i,#object
	.size	GPB.MAIN.i,4
	.align	8
GPB.MAIN.im1:
	.skip	4
	.type	GPB.MAIN.im1,#object
	.size	GPB.MAIN.im1,4
	.align	8
GPB.MAIN.ibuf:
	.skip	4
	.type	GPB.MAIN.ibuf,#object
	.size	GPB.MAIN.ibuf,4
	.align	8
GPB.MAIN.j:
	.skip	4
	.type	GPB.MAIN.j,#object
	.size	GPB.MAIN.j,4
	.align	8
GPB.MAIN.eod:
	.skip	4
	.type	GPB.MAIN.eod,#object
	.size	GPB.MAIN.eod,4
	.align	8
GPB.MAIN.im2:
	.skip	4
	.type	GPB.MAIN.im2,#object
	.size	GPB.MAIN.im2,4
	.align	8
GPB.MAIN.k:
	.skip	4
	.type	GPB.MAIN.k,#object
	.size	GPB.MAIN.k,4
	.align	8
GPB.MAIN.l:
	.skip	4
	.type	GPB.MAIN.l,#object
	.size	GPB.MAIN.l,4
	.align	8
GPB.MAIN.ijk:
	.skip	4
	.type	GPB.MAIN.ijk,#object
	.size	GPB.MAIN.ijk,4
	.align	8
GPB.MAIN.iflag:
	.skip	4
	.type	GPB.MAIN.iflag,#object
	.size	GPB.MAIN.iflag,4
	.align	8
GPB.MAIN.icnt:
	.skip	4
	.type	GPB.MAIN.icnt,#object
	.size	GPB.MAIN.icnt,4
	.align	8
GPB.MAIN.id1:
	.skip	4
	.type	GPB.MAIN.id1,#object
	.size	GPB.MAIN.id1,4
	.align	8
GPB.MAIN.bufl:
	.skip	4
	.type	GPB.MAIN.bufl,#object
	.size	GPB.MAIN.bufl,4
	.align	8
GPB.MAIN.id2:
	.skip	4
	.type	GPB.MAIN.id2,#object
	.size	GPB.MAIN.id2,4
	.align	8
GPB.MAIN.jcnt:
	.skip	4
	.type	GPB.MAIN.jcnt,#object
	.size	GPB.MAIN.jcnt,4
	.align	8
GPB.MAIN.ll:
	.skip	4
	.type	GPB.MAIN.ll,#object
	.size	GPB.MAIN.ll,4
	.align	8
GPB.MAIN.ik:
	.skip	4
	.type	GPB.MAIN.ik,#object
	.size	GPB.MAIN.ik,4

	.section	".rodata",#alloc
	.align	4
.L_cseg0:
	.word	0x1
	.type	.L_cseg0,#object
	.size	.L_cseg0,4
	.align	4
.L_cseg1:
	.word	0xf
	.type	.L_cseg1,#object
	.size	.L_cseg1,4
	.align	4
.L_cseg2:
	.word	0x3bc
	.type	.L_cseg2,#object
	.size	.L_cseg2,4
	.align	4
.L_cseg3:
	.word	0x3
	.type	.L_cseg3,#object
	.size	.L_cseg3,4
	.align	4
.L_cseg4:
	.word	0x7
	.type	.L_cseg4,#object
	.size	.L_cseg4,4
	.align	4
.L_cseg5:
	.word	0x2
	.type	.L_cseg5,#object
	.size	.L_cseg5,4
	.align	4
.L_cseg6:
	.skip	3
	.type	.L_cseg6,#object
	.size	.L_cseg6,3

	.section	".data",#alloc,#write
	.align	4
GPB.MAIN.CONSTANT.131:
	.ascii	"CONTROL CARD READ ERROR"
	.skip	5
	.type	GPB.MAIN.CONSTANT.131,#object
	.size	GPB.MAIN.CONSTANT.131,28
	.align	4
GPB.MAIN.FORMAT.127:
	.word	0x1
	.skip	12
	.word	0x4,0x14
	.skip	8
	.word	0xc,0x17
	.word	GPB.MAIN.CONSTANT.131
	.skip	4
	.word	0x2
	.skip	12
	.type	GPB.MAIN.FORMAT.127,#object
	.size	GPB.MAIN.FORMAT.127,64
	.align	4
GPB.MAIN.FORMAT.25:
	.word	0x1
	.skip	12
	.word	0x6,0x2
	.skip	8
	.word	0x1,0x1
	.skip	8
	.word	0x6,0x2
	.skip	8
	.word	0x7,0x4,0x1
	.skip	4
	.word	0x4,0x1
	.skip	8
	.word	0x6,0x2
	.skip	8
	.word	0x7,0x2,0x1
	.skip	4
	.word	0x4,0x1
	.skip	8
	.word	0x3
	.skip	12
	.word	0x6,0x4
	.skip	8
	.word	0x1,0xa
	.skip	8
	.word	0x4,0x1
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x1,0x1
	.skip	4
	.word	0x3
	.skip	12
	.word	0x2,0xa
	.skip	8
	.type	GPB.MAIN.FORMAT.25,#object
	.size	GPB.MAIN.FORMAT.25,272
	.align	4
GPB.MAIN.CONSTANT.132:
	.ascii	" END OF JOB; # OF CONTROL CARDS READ= "
	.skip	2
	.type	GPB.MAIN.CONSTANT.132,#object
	.size	GPB.MAIN.CONSTANT.132,40
	.align	4
GPB.MAIN.FORMAT.129:
	.word	0x1
	.skip	12
	.word	0xc,0x26
	.word	GPB.MAIN.CONSTANT.132
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x5,0x1
	.skip	4
	.word	0x2
	.skip	12
	.type	GPB.MAIN.FORMAT.129,#object
	.size	GPB.MAIN.FORMAT.129,80
	.align	4
GPB.MAIN.CONSTANT.133:
	.ascii	" CONTROL CARD VALUES ARE ; START TIME= "
	.skip	5
	.type	GPB.MAIN.CONSTANT.133,#object
	.size	GPB.MAIN.CONSTANT.133,44
	.align	4
GPB.MAIN.CONSTANT.134:
	.ascii	" STOP TIME= "
	.skip	4
	.type	GPB.MAIN.CONSTANT.134,#object
	.size	GPB.MAIN.CONSTANT.134,16
	.align	4
GPB.MAIN.CONSTANT.135:
	.ascii	" KCNT,KFLAG,KK,KBUF= "
	.skip	3
	.type	GPB.MAIN.CONSTANT.135,#object
	.size	GPB.MAIN.CONSTANT.135,24
	.align	4
GPB.MAIN.FORMAT.69:
	.word	0x1
	.skip	12
	.word	0xc,0x27
	.word	GPB.MAIN.CONSTANT.133
	.skip	4
	.word	0x6,0x2
	.skip	8
	.word	0x7,0x4,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x6,0x2
	.skip	8
	.word	0x7,0x2,0x1
	.skip	4
	.word	0xc,0xc
	.word	GPB.MAIN.CONSTANT.134
	.skip	4
	.word	0x6,0x2
	.skip	8
	.word	0x7,0x4,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x6,0x2
	.skip	8
	.word	0x7,0x2,0x1
	.skip	4
	.word	0xc,0x15
	.word	GPB.MAIN.CONSTANT.135
	.skip	4
	.word	0x6,0x4
	.skip	8
	.word	0x7,0x4,0x1
	.skip	4
	.word	0x2
	.skip	12
	.type	GPB.MAIN.FORMAT.69,#object
	.size	GPB.MAIN.FORMAT.69,272
	.align	4
GPB.MAIN.CONSTANT.137:
	.ascii	" IY1,ID1,IH1,IM1,IY2,ID2,IH2,IM2,JCNT,IFLAG,IK,BUFL= "
	.skip	3
	.type	GPB.MAIN.CONSTANT.137,#object
	.size	GPB.MAIN.CONSTANT.137,56
	.align	4
GPB.MAIN.FORMAT.136:
	.word	0x1
	.skip	12
	.word	0xc,0x35
	.word	GPB.MAIN.CONSTANT.137
	.skip	4
	.word	0x6,0x8
	.skip	8
	.word	0x7,0x5,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x20,0x4
	.skip	8
	.word	0x4,0x2
	.skip	8
	.word	0x6,0x2
	.skip	8
	.word	0x7,0x4,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x20,0x4
	.skip	8
	.word	0x2
	.skip	12
	.type	GPB.MAIN.FORMAT.136,#object
	.size	GPB.MAIN.FORMAT.136,224

	.file	"prtimp.f"
	.xstabs	".stab.index","V=3.1;R=3.0",60,0,0,842629729
	.xstabs	".stab.index","/amd/plas5/h1/vgr/src/imp;/opt/SUNWspro/bin/../SC4.0/bin/f77 -sbfast   prtimp.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","prtimp.f.0yPyu8.bd",72,0,0,0

	.global	__fsr_init_value
__fsr_init_value = 0x0
