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

	! block 0

	.global	impprt_
	.type	impprt_,2
impprt_:
	save	%sp,-272,%sp
	st	%i2,[%fp+76]
	st	%i1,[%fp+72]
	st	%i0,[%fp+68]

	! block 1
.L639:
	sethi	%hi(GPB.impprt.bount-4),%l0
	or	%l0,%lo(GPB.impprt.bount-4),%l0
	st	%l0,[%fp-16]
	sethi	%hi(lascal_+1660),%l0
	or	%l0,%lo(lascal_+1660),%l0
	st	%l0,[%fp-20]
	sethi	%hi(amber_+636),%l0
	or	%l0,%lo(amber_+636),%l0
	st	%l0,[%fp-112]
	sethi	%hi(GPB.impprt.title-4),%l0
	or	%l0,%lo(GPB.impprt.title-4),%l0
	st	%l0,[%fp-88]
	sethi	%hi(GPB.impprt.dqual-4),%l0
	or	%l0,%lo(GPB.impprt.dqual-4),%l0
	st	%l0,[%fp-56]
	sethi	%hi(GPB.impprt.b-4),%l0
	or	%l0,%lo(GPB.impprt.b-4),%l0
	st	%l0,[%fp-32]
	sethi	%hi(GPB.impprt.spec3-4),%l0
	or	%l0,%lo(GPB.impprt.spec3-4),%l0
	st	%l0,[%fp-80]
	sethi	%hi(GPB.impprt.ire-4),%l0
	or	%l0,%lo(GPB.impprt.ire-4),%l0
	st	%l0,[%fp-72]
	sethi	%hi(GPB.impprt.procdt-4),%l0
	or	%l0,%lo(GPB.impprt.procdt-4),%l0
	st	%l0,[%fp-12]
	sethi	%hi(proton_-124),%l0
	or	%l0,%lo(proton_-124),%l0
	st	%l0,[%fp-92]
	sethi	%hi(lascal_+16),%l0
	or	%l0,%lo(lascal_+16),%l0
	st	%l0,[%fp-76]
	sethi	%hi(GPB.impprt.aqual-4),%l0
	or	%l0,%lo(GPB.impprt.aqual-4),%l0
	st	%l0,[%fp-64]
	sethi	%hi(GPB.impprt.model-4),%l0
	or	%l0,%lo(GPB.impprt.model-4),%l0
	st	%l0,[%fp-84]
	sethi	%hi(lashed_),%l0
	or	%l0,%lo(lashed_),%l0
	st	%l0,[%fp-8]
	sethi	%hi(GPB.impprt.vbar-4),%l0
	or	%l0,%lo(GPB.impprt.vbar-4),%l0
	st	%l0,[%fp-48]
	sethi	%hi(GPB.impprt.c-4),%l0
	or	%l0,%lo(GPB.impprt.c-4),%l0
	st	%l0,[%fp-36]
	sethi	%hi(GPB.impprt.jbit-4),%l0
	or	%l0,%lo(GPB.impprt.jbit-4),%l0
	st	%l0,[%fp-60]
	sethi	%hi(GPB.impprt.volt-4),%l0
	or	%l0,%lo(GPB.impprt.volt-4),%l0
	st	%l0,[%fp-44]
	sethi	%hi(lascal_+1164),%l0
	or	%l0,%lo(lascal_+1164),%l0
	st	%l0,[%fp-68]
	sethi	%hi(GPB.impprt.picoam-4),%l0
	or	%l0,%lo(GPB.impprt.picoam-4),%l0
	st	%l0,[%fp-24]
	sethi	%hi(proton_+2788),%l0
	or	%l0,%lo(proton_+2788),%l0
	st	%l0,[%fp-108]
	sethi	%hi(GPB.impprt.ibit-4),%l0
	or	%l0,%lo(GPB.impprt.ibit-4),%l0
	st	%l0,[%fp-52]
	sethi	%hi(GPB.impprt.itoday-4),%l0
	or	%l0,%lo(GPB.impprt.itoday-4),%l0
	st	%l0,[%fp-4]
	sethi	%hi(GPB.impprt.d-2),%l0
	or	%l0,%lo(GPB.impprt.d-2),%l0
	st	%l0,[%fp-40]
	sethi	%hi(amber_-36),%l0
	or	%l0,%lo(amber_-36),%l0
	st	%l0,[%fp-100]
	sethi	%hi(GPB.impprt.pcnt-124),%l0
	or	%l0,%lo(GPB.impprt.pcnt-124),%l0
	st	%l0,[%fp-96]
	sethi	%hi(GPB.impprt.ecnt-36),%l0
	or	%l0,%lo(GPB.impprt.ecnt-36),%l0
	st	%l0,[%fp-104]
	sethi	%hi(GPB.impprt.a-4),%l0
	or	%l0,%lo(GPB.impprt.a-4),%l0
	st	%l0,[%fp-28]

	! block 2
.L14:

! File impprt.f:
!    1	* Thu Oct 4 11:07:57 EDT 1990 /plas0/h1/pam/src/test impprt.f
!    2	* Mon Feb 27 10:40:26 EST 1989 /usr4/pam/src/test impprt.f
!    3	* Wed Feb 22 14:36:16 EST 1989 /usr4/pam/src/test impprt.f
!    4	* Thu Dec 29 11:44:35 EST 1988 /usr4/pam/src/test impprt.f
!    5	* Wed Dec 28 13:47:25 EST 1988 /usr4/pam/src/test impprt.f
!    6	cMEMBER NAME  impprt.f 
!    7	      SUBROUTINE IMPPRT(LCNT, IKL, narg)
!    8	C-----IF ICNT TRUE,PRINT IN CURRENTS (PICOAMPS); OTHERWISE IN OCTAL.
!    9	C  /TYPSSN/
!   10	      COMMON /TYPSSN/ TYPE,PSEL,SN,TSPIN
!   11	      INTEGER TYPE,PSEL,SN
!   12	C  /TIME/
!   13	      COMMON /TIME/ YEAR,DOY,HOUROD,MINUTE,SECOND,MILSOD,SEQCLK
!   14	      INTEGER YEAR,DOY,HOUROD,SEQCLK
!   15	C    HEADER RECORD IMAGE.
!   16	      COMMON /LASHED/IMFHED,LAHEDU(149)
!   17	      EQUIVALENCE(ASPIN,LAHEDU(34))
!   18	C     CALIBRATION MODE SPECTRUM IMAGE
!   19	      COMMON /LASCAL/ LCYR,LCDY,LCHR,LCMN,SECLC,LCSPEC(287),LCDAT(124)
!   20	     1 ,CURENS(256)
!   21	C  BLOCK HEADER CMMON BLOCK
!   22	      COMMON /BLOHED/ BHIMP,BHRUN,BHFILE,IHAVSQ
!   23	      INTEGER SPEC3(287)
!   24	C  /PROTON/
!   25	      COMMON /PROTON/ QPLUS(2,14,26),IPLUS(2,14,26)
!   26	C  /AMBER/
!   27	      COMMON /AMBER/ QMINUS(8,21),IMINUS(8,21)
!   28	      REAL IPLUS,IMINUS
!   29	C SPECTRUM HEADER AREA
!   30	      COMMON /COMMSH/SHATYP,SHALOR,SHAMOD,SHACOS,SHASTS,SHPSEL,SHASN,
!   31	     1 SHACOI,SHADOY,SHAMS,SHARSC,SHAPST,SHASTW,SHAKST,SHAMSQ,SHATSP,
!   32	     2 SHASRP,SHASPP,SHATEM,SHANPT,SHANPS,SHATQF,SHABIR,SHAFDQ,SHANSS,
!   33	     3 SHADQF(9),SHAFLN,SHALEN,SHAWFS,SHASOT,SHAEOT,SHDPP(6),SHAAPP(13),
!   34	     4 SHYEAR,SHYR,SHDOY
!   35	      INTEGER SHATYP,SHALOR,SHADOY,SHAMS,SHARSC,SHAKST,SHATSP,SHASPP,
!   36	     1 SHATEM,SHAWFS,SHDPP,SHAAPP,SHYEAR,SHYR,SHDOY
!   37	      INTEGER*2 SHAMOD,SHACOS,SHASTS,SHPSEL,SHASN,SHACOI,SHAPST,SHASTW,
!   38	     1 SHANPT,SHANPS,SHATQF,SHABIR,SHAFDQ,SHANSS,SHAFLN,SHALEN,SHASOT,
!   39	     2 SHAEOT
!   40	C     SHAFDQ = # OF FILLED SEQUENCES.
!   41	C     SHASOT = ANOMALOUS START OF TELEMETRY FLAG
!   42	C     SHAEOT = ANOMALOUS END OF TELEMETRY FLAG
!   43	      EQUIVALENCE (INTGER,REAL)
!   44	      REAL PICOAM(256)
!   45	      character*4 MODEL(3), mode
!   46	      LOGICAL NEWPAG, AMS, FIRST
!   47	      INTEGER EHIGH,PHIGH
!   48	      INTEGER PCNT(2,14,26),ECNT(8,21),BOUNT(256)
!   49	      INTEGER HEXOCT , COUNT , PSEL23
!   50	      character*4 jbit(2), aqual(4), blank, title(26), procdt(5)
!   51	      integer*4 ire(287), volt(27), vbar(27)
!   52	      character*4 a(8), b(8), c(8), dash(33)
!   53	      character*2 d(8)
!   54	      character*4 area(9), pangle(14), eangle(13)
!   55	      character*8 mydate
!   56	      character*1 slash
!   57	      integer itoday(3)
!   58	      INTEGER IBIT(2),DQUAL(4)
!   59	      LOGICAL*4 ICNT,LCNT
!   60	c
!   61	      data NEWPAG/.TRUE./, AMS/.TRUE./, FIRST/.TRUE./
!   62	      data MODEL /' TMS','NTMS',' AMS'/
!   63	      data JBIT /'BIT ','DROP'/, AQUAL /'NOT ','EXCE','LLEN','T   '/
!   64	      data BLANK /'    '/
!   65	      data TITLE     /'S/C ','LONG',' 158',' 113','  68','  39'
!   66	     1 ,'  28','  17','   6','  -6',' -17',' -28',' -39',' -72'
!   67	     1 ,'-113','-158','  62','  96',' 129',' 163','-163','-129'
!   68	     1  ,' -96',' -66','  23',' -23'/
!   69	C  IRE     CALIBRATE SPECTRUM DECOM MAP
!   70	      data IRE /3,5,7,9,11,13,15,17,4,6,8,10,12,14,16,18,
!   71	     2  115,116,117,118,119,120,121,122,
!   72	     3  19,21,23,25,27,29,31,33,20,22,24,26,28,30,32,34,
!   73	     4  35,37,39,41,43,45,47,49,36,38,40,42,44,46,48,50,
!   74	     5  51,53,55,57,59,61,63,65,52,54,56,58,60,62,64,66,
!   75	     6  67,69,71,73,75,77,79,81,68,70,72,74,76,78,80,82,
!   76	     7  99,101,103,105,107,109,111,113,100,102,104,106,108,110,112,114,
!   77	     8  83,85,87,89,91,93,95,97,84,86,88,90,92,94,96,98,
!   78	     9  123,124,125,126,127,128,129,130,131,132,133,134,135,136,137,138,
!   79	     1  139,140,141,142,143,144,145,146,147,148,149,150,151,152,153,154,
!   80	     3  163,164,165,166,167,168,169,170,155,156,157,158,159,160,161,162,
!   81	     5  171,173,175,177,179,181,183,185,187,189,191,193,195,197,199,201,
!   82	     6  229,231,233,235,237,239,241,243,245,247,249,251,253,255,257,259,
!   83	     7  203,205,207,209,211,213,215,217,219,221,223,
!   84	     8  261,263,265,267,269,271,273,275,277,279,282,
!   85	     9  172,174,176,178,180,182,184,186,188,190,192,194,196,198,200,202,
!   86	     *  230,232,234,236,238,240,242,244,246,248,250,252,254,256,258,260,
!   87	     1  204,206,208,210,212,214,216,218,220,222,224,
!   88	     2  262,264,266,268,270,272,274,276,278,280,281,
!   89	     3  283,284,285,286,225,226,227,228, 0,1,2/
!   90	C
!   91	      data VOLT /28,38,48,56,68,84,103,120,155,191,235
!   92	     1 ,289,355,436,536,659,809,995,1222,1502,1845,2267,2786
!   93	     2 ,3423,4205,5167,6348/
!   94	      data VBAR /75,87,98,106,117,130,144,155,176,195,217
!   95	     1 ,240,266,295,327,363,402,446,494,548,607,673,746,827,917
!   96	     2 ,1017,1127/
!   97	      data  A /8*' COU'/, B /8*'NT C'/, C /8*'URRE'/
!   98	      data  D /8*'NT'/
!   99	      data DASH /33*'----'/
!  100	      data AREA /'APER','TURE',' EFF','ECTI','VE A','REA '
!  101	     1  ,'= 67',' CM*','*2  '/
!  102	      data PANGLE /'PROT','ON A','NGUL','AR S','ECTO','R SI',
!  103	     2  'ZES ','= 45','.0,1','1.25',',40.','68 D','EGRE','ES  '/
!  104	      data EANGLE /'ELEC','TRON',' ANG','ULAR',' SEC','TOR ',
!  105	     1 'SIZE','S = ','33.7','5,25','.31 ','DEGR','EES '/
!  106	      data slash / '/' /
!  107	c
!  108	C-----GIVES DATE OF LISTING (via system routine)
!  109	      CALL idate (itoday)

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

!  110	c-----convert integer system date to character string
!  111	      write(unit=mydate,fmt=25) itoday(2), slash, itoday(1),

	sethi	%hi(GPB.impprt.IO.37+32),%l0
	or	%l0,%lo(GPB.impprt.IO.37+32),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.37),%l0
	or	%l0,%lo(GPB.impprt.IO.37),%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-4],%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.impprt.slash),%l2
	or	%l2,%lo(GPB.impprt.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-4],%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.impprt.slash),%l2
	or	%l2,%lo(GPB.impprt.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-4],%l0
	add	%l0,12,%l0
	ld	[%l0+0],%l0
	add	%l0,-1900,%l0
	st	%l0,[%fp-116]
	sethi	%hi(.L_cseg0),%l0
	or	%l0,%lo(.L_cseg0),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	add	%fp,-116,%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

!  112	     *     slash, (itoday(3) - 1900)
!  113	   25 format (i2,a1,i2,a1,i2)
!  114	      IK = 6

	mov	6,%l1
	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	st	%l1,[%l0+0]

!  115	      ICNT = .FALSE.

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

!  116	c *** CALL NUMP(NARG)
!  117	      IF(NARG.GE.1) ICNT = LCNT

	ld	[%fp+76],%l0
	ld	[%l0+0],%l0
	cmp	%l0,1
	bl	.L39
	nop

	! block 3
.L40:
	ld	[%fp+68],%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.icnt),%l0
	or	%l0,%lo(GPB.impprt.icnt),%l0
	st	%l1,[%l0+0]

	! block 4
.L39:

!  118	      IF(NARG.GE.2) IK = IKL

	ld	[%fp+76],%l0
	ld	[%l0+0],%l0
	cmp	%l0,2
	bl	.L41
	nop

	! block 5
.L42:
	ld	[%fp+72],%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	st	%l1,[%l0+0]

	! block 6
.L41:

!  119	C  IMP     S/C NUMBER
!  120	      IMP=IMFHED

	sethi	%hi(lashed_),%l0
	or	%l0,%lo(lashed_),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.imp),%l0
	or	%l0,%lo(GPB.impprt.imp),%l0
	st	%l1,[%l0+0]

!  121	      IF(.NOT.FIRST) GO TO 80

	sethi	%hi(GPB.impprt.first),%l0
	or	%l0,%lo(GPB.impprt.first),%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	.L43
	nop

	! block 7
.L44:
	ba	.L45
	nop

	! block 8
.L43:

!  122	C  ROUTINE WILL PRINT ENERGY TABLE AND COUNT TO CURRENT CONVERSION TABLE
!  123	C  FOR IMP - 7&8. NOMINAL VALUES ONLY GIVEN. SPIN PERIOD FROM IMPCOR
!  124	C  AND 45 DEG. SECTOR ASSUMED ARE USED TO GENERATE CURRENTS.
!  125	C  IORB    ORBIT NUMBER
!  126	      call mvc (lahedu(41), procdt(1), 20)

	ld	[%fp-8],%l0
	add	%l0,164,%l1
	ld	[%fp-12],%l0
	add	%l0,4,%l0
	sethi	%hi(.L_cseg3),%l2
	or	%l2,%lo(.L_cseg3),%l2
	mov	4,%l3
	mov	%l1,%o0
	mov	%l0,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	mvc_
	nop

!  127	      IORB=LAHEDU(4)

	ld	[%fp-8],%l0
	add	%l0,16,%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.iorb),%l0
	or	%l0,%lo(GPB.impprt.iorb),%l0
	st	%l1,[%l0+0]

!  128	      LREC=LAHEDU(1)

	ld	[%fp-8],%l0
	add	%l0,4,%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.lrec),%l0
	or	%l0,%lo(GPB.impprt.lrec),%l0
	st	%l1,[%l0+0]

!  129	C  IRUN    RUN NUMBER
!  130	      IRUN=LAHEDU(2)

	ld	[%fp-8],%l0
	add	%l0,8,%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.irun),%l0
	or	%l0,%lo(GPB.impprt.irun),%l0
	st	%l1,[%l0+0]

!  131	      IFILE=LAHEDU(3)

	ld	[%fp-8],%l0
	add	%l0,12,%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.ifile),%l0
	or	%l0,%lo(GPB.impprt.ifile),%l0
	st	%l1,[%l0+0]

!  132	      DO 30 I=1,256

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

	! block 9
.L50:

!  133	        J = I

	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]

!  134	        IF(I.EQ.256) J = 0

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

	! block 10
.L54:
	mov	0,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]

	! block 11
.L53:

!  135	        BOUNT(I) = HEXOCT(J,2)

	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	sethi	%hi(.L_cseg4),%l1
	or	%l1,%lo(.L_cseg4),%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	hexoct_
	nop
	mov	%o0,%l3
	ld	[%fp-16],%l2
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	st	%l3,[%l0+0]

	! block 12
.L48:

!  136	   30 PICOAM(I) = CURENS(I)/TSPIN/45.0

	ld	[%fp-20],%l2
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%f3
	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+12],%f2
	fdivs	%f3,%f2,%f3
	sethi	%hi(.L_cseg5),%l0
	or	%l0,%lo(.L_cseg5),%l0
	ld	[%l0+0],%f2
	fdivs	%f3,%f2,%f2
	ld	[%fp-24],%l2
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	st	%f2,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	cmp	%l0,256
	ble	.L50
	nop

	! block 13
.L58:
.L49:

!  137	      WRITE(IK,796) IMP,IRUN,IORB,mydate

	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.60+8),%l0
	or	%l0,%lo(GPB.impprt.IO.60+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.60+24),%l0
	or	%l0,%lo(GPB.impprt.IO.60+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.60),%l0
	or	%l0,%lo(GPB.impprt.IO.60),%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.impprt.imp),%l2
	or	%l2,%lo(GPB.impprt.imp),%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.impprt.irun),%l2
	or	%l2,%lo(GPB.impprt.irun),%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.impprt.iorb),%l2
	or	%l2,%lo(GPB.impprt.iorb),%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_cseg2),%l0
	or	%l0,%lo(.L_cseg2),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(GPB.impprt.mydate),%l2
	or	%l2,%lo(GPB.impprt.mydate),%l2
	mov	8,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	call	__e_wsfe
	nop

!  138	      WRITE(IK,795) TSPIN,(DASH(I),I=1,33)

	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.62+8),%l0
	or	%l0,%lo(GPB.impprt.IO.62+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.62+24),%l0
	or	%l0,%lo(GPB.impprt.IO.62+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.62),%l0
	or	%l0,%lo(GPB.impprt.IO.62),%l0
	mov	%l0,%o0
	call	__s_wsFe_nv
	nop
	sethi	%hi(.L_cseg6),%l0
	or	%l0,%lo(.L_cseg6),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(typssn_+12),%l2
	or	%l2,%lo(typssn_+12),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	mov	34,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(.L_cseg2),%l0
	or	%l0,%lo(.L_cseg2),%l0
	sethi	%hi(.L_cseg7),%l1
	or	%l1,%lo(.L_cseg7),%l1
	sethi	%hi(GPB.impprt.dash),%l2
	or	%l2,%lo(GPB.impprt.dash),%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

!  139	      WRITE(IK,794) ( A(I),B(I),C(I),D(I) ,I=1,8)

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

	! block 14
.L67:
	sethi	%hi(.L_cseg2),%l3
	or	%l3,%lo(.L_cseg2),%l3
	sethi	%hi(.L_cseg1),%l5
	or	%l5,%lo(.L_cseg1),%l5
	ld	[%fp-28],%l2
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.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(.L_cseg2),%l3
	or	%l3,%lo(.L_cseg2),%l3
	sethi	%hi(.L_cseg1),%l5
	or	%l5,%lo(.L_cseg1),%l5
	ld	[%fp-32],%l2
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.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(.L_cseg2),%l3
	or	%l3,%lo(.L_cseg2),%l3
	sethi	%hi(.L_cseg1),%l5
	or	%l5,%lo(.L_cseg1),%l5
	ld	[%fp-36],%l2
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.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(.L_cseg2),%l3
	or	%l3,%lo(.L_cseg2),%l3
	sethi	%hi(.L_cseg1),%l5
	or	%l5,%lo(.L_cseg1),%l5
	ld	[%fp-40],%l2
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,1,%l1
	add	%l2,%l1,%l0
	mov	2,%l1
	mov	%l3,%o0
	mov	%l5,%o1
	mov	%l0,%o2
	mov	%l1,%o3
	call	__do_f_out_nv
	nop
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	cmp	%l0,8
	ble	.L67
	nop

	! block 15
.L74:
.L66:
	call	__e_wsfe
	nop

!  140	      DO 31 K=1,32

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

	! block 16
.L77:

!  141	        ICHAN = K-1

	sethi	%hi(GPB.impprt.k),%l0
	or	%l0,%lo(GPB.impprt.k),%l0
	ld	[%l0+0],%l0
	add	%l0,-1,%l1
	sethi	%hi(GPB.impprt.ichan),%l0
	or	%l0,%lo(GPB.impprt.ichan),%l0
	st	%l1,[%l0+0]

!  142	        IF(K.LT.28) WRITE(IK,793) ICHAN,VOLT(K),VBAR(K),( BOUNT(I+K-1)

	sethi	%hi(GPB.impprt.k),%l0
	or	%l0,%lo(GPB.impprt.k),%l0
	ld	[%l0+0],%l0
	cmp	%l0,28
	bge	.L80
	nop

	! block 17
.L81:
	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.83+8),%l0
	or	%l0,%lo(GPB.impprt.IO.83+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.83+24),%l0
	or	%l0,%lo(GPB.impprt.IO.83+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.83),%l0
	or	%l0,%lo(GPB.impprt.IO.83),%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.impprt.ichan),%l2
	or	%l2,%lo(GPB.impprt.ichan),%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),%l3
	or	%l3,%lo(.L_cseg0),%l3
	sethi	%hi(.L_cseg1),%l5
	or	%l5,%lo(.L_cseg1),%l5
	ld	[%fp-44],%l2
	sethi	%hi(GPB.impprt.k),%l0
	or	%l0,%lo(GPB.impprt.k),%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_cseg0),%l3
	or	%l3,%lo(.L_cseg0),%l3
	sethi	%hi(.L_cseg1),%l5
	or	%l5,%lo(.L_cseg1),%l5
	ld	[%fp-48],%l2
	sethi	%hi(GPB.impprt.k),%l0
	or	%l0,%lo(GPB.impprt.k),%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
	mov	1,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]

	! block 18
.L88:
	sethi	%hi(.L_cseg0),%l5
	or	%l5,%lo(.L_cseg0),%l5
	sethi	%hi(.L_cseg1),%l6
	or	%l6,%lo(.L_cseg1),%l6
	ld	[%fp-16],%l0
	add	%l0,-4,%l3
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l2
	sethi	%hi(GPB.impprt.k),%l0
	or	%l0,%lo(GPB.impprt.k),%l0
	ld	[%l0+0],%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(.L_cseg6),%l5
	or	%l5,%lo(.L_cseg6),%l5
	sethi	%hi(.L_cseg1),%l6
	or	%l6,%lo(.L_cseg1),%l6
	ld	[%fp-24],%l0
	add	%l0,-4,%l3
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l2
	sethi	%hi(GPB.impprt.k),%l0
	or	%l0,%lo(GPB.impprt.k),%l0
	ld	[%l0+0],%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.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	add	%l0,32,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	cmp	%l0,225
	ble	.L88
	nop

	! block 19
.L91:
.L87:
	call	__e_wsfe
	nop

	! block 20
.L80:

!  143	     1    ,PICOAM(I+K-1) ,I=1,225,32)
!  144	        IF(K.GE.28) WRITE(IK,792) ( BOUNT(I+K-1)

	sethi	%hi(GPB.impprt.k),%l0
	or	%l0,%lo(GPB.impprt.k),%l0
	ld	[%l0+0],%l0
	cmp	%l0,28
	bl	.L92
	nop

	! block 21
.L93:
	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.95+8),%l0
	or	%l0,%lo(GPB.impprt.IO.95+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.95+24),%l0
	or	%l0,%lo(GPB.impprt.IO.95+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.95),%l0
	or	%l0,%lo(GPB.impprt.IO.95),%l0
	mov	%l0,%o0
	call	__s_wsFe_nv
	nop
	mov	1,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]

	! block 22
.L98:
	sethi	%hi(.L_cseg0),%l5
	or	%l5,%lo(.L_cseg0),%l5
	sethi	%hi(.L_cseg1),%l6
	or	%l6,%lo(.L_cseg1),%l6
	ld	[%fp-16],%l0
	add	%l0,-4,%l3
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l2
	sethi	%hi(GPB.impprt.k),%l0
	or	%l0,%lo(GPB.impprt.k),%l0
	ld	[%l0+0],%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(.L_cseg6),%l5
	or	%l5,%lo(.L_cseg6),%l5
	sethi	%hi(.L_cseg1),%l6
	or	%l6,%lo(.L_cseg1),%l6
	ld	[%fp-24],%l0
	add	%l0,-4,%l3
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l2
	sethi	%hi(GPB.impprt.k),%l0
	or	%l0,%lo(GPB.impprt.k),%l0
	ld	[%l0+0],%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.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	add	%l0,32,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	cmp	%l0,225
	ble	.L98
	nop

	! block 23
.L101:
.L97:
	call	__e_wsfe
	nop

	! block 24
.L92:
.L75:

!  145	     1    ,PICOAM(I+K-1) ,I=1,225,32)
!  146	   31 CONTINUE

	sethi	%hi(GPB.impprt.k),%l0
	or	%l0,%lo(GPB.impprt.k),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.k),%l0
	or	%l0,%lo(GPB.impprt.k),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.k),%l0
	or	%l0,%lo(GPB.impprt.k),%l0
	ld	[%l0+0],%l0
	cmp	%l0,32
	ble	.L77
	nop

	! block 25
.L102:
.L76:

!  147	      WRITE(IK,791) (DASH(I),I=1,33)

	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.104+8),%l0
	or	%l0,%lo(GPB.impprt.IO.104+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.104+24),%l0
	or	%l0,%lo(GPB.impprt.IO.104+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.104),%l0
	or	%l0,%lo(GPB.impprt.IO.104),%l0
	mov	%l0,%o0
	call	__s_wsFe_nv
	nop
	mov	34,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(.L_cseg2),%l0
	or	%l0,%lo(.L_cseg2),%l0
	sethi	%hi(.L_cseg7),%l1
	or	%l1,%lo(.L_cseg7),%l1
	sethi	%hi(GPB.impprt.dash),%l2
	or	%l2,%lo(GPB.impprt.dash),%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

!  148	      WRITE(IK,790) AREA

	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.106+8),%l0
	or	%l0,%lo(GPB.impprt.IO.106+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.106+24),%l0
	or	%l0,%lo(GPB.impprt.IO.106+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.106),%l0
	or	%l0,%lo(GPB.impprt.IO.106),%l0
	mov	%l0,%o0
	call	__s_wsFe_nv
	nop
	sethi	%hi(.L_cseg2),%l0
	or	%l0,%lo(.L_cseg2),%l0
	sethi	%hi(.L_cseg8),%l1
	or	%l1,%lo(.L_cseg8),%l1
	sethi	%hi(GPB.impprt.area),%l2
	or	%l2,%lo(GPB.impprt.area),%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

!  149	      WRITE(IK,790) PANGLE

	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.107+8),%l0
	or	%l0,%lo(GPB.impprt.IO.107+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.107+24),%l0
	or	%l0,%lo(GPB.impprt.IO.107+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.107),%l0
	or	%l0,%lo(GPB.impprt.IO.107),%l0
	mov	%l0,%o0
	call	__s_wsFe_nv
	nop
	sethi	%hi(.L_cseg2),%l0
	or	%l0,%lo(.L_cseg2),%l0
	sethi	%hi(.L_cseg9),%l1
	or	%l1,%lo(.L_cseg9),%l1
	sethi	%hi(GPB.impprt.pangle),%l2
	or	%l2,%lo(GPB.impprt.pangle),%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

!  150	      WRITE(IK,790) EANGLE

	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.108+8),%l0
	or	%l0,%lo(GPB.impprt.IO.108+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.108+24),%l0
	or	%l0,%lo(GPB.impprt.IO.108+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.108),%l0
	or	%l0,%lo(GPB.impprt.IO.108),%l0
	mov	%l0,%o0
	call	__s_wsFe_nv
	nop
	sethi	%hi(.L_cseg2),%l0
	or	%l0,%lo(.L_cseg2),%l0
	sethi	%hi(.L_cseg2),%l1
	or	%l1,%lo(.L_cseg2),%l1
	sethi	%hi(GPB.impprt.eangle),%l2
	or	%l2,%lo(GPB.impprt.eangle),%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	      FIRST=.FALSE.

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

	! block 26
.L45:

!  152	   80 CONTINUE


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

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

	! block 27
.L111:
	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-120]
	ba	.L109
	nop

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

	! block 29
.L109:
	ld	[%fp-120],%l0
	mov	10,%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	.rem
	nop
	mov	%o0,%l1
	sethi	%hi(GPB.impprt.ltype),%l0
	or	%l0,%lo(GPB.impprt.ltype),%l0
	st	%l1,[%l0+0]

!  154	      IF(LTYPE.LT.1.OR.LTYPE.GT.4) GO TO 500

	sethi	%hi(GPB.impprt.ltype),%l0
	or	%l0,%lo(GPB.impprt.ltype),%l0
	ld	[%l0+0],%l0
	cmp	%l0,1
	bge	.L114
	nop

	! block 30
.L115:
	ba	.L113
	nop

	! block 31
.L114:
	sethi	%hi(GPB.impprt.ltype),%l0
	or	%l0,%lo(GPB.impprt.ltype),%l0
	ld	[%l0+0],%l0
	cmp	%l0,4
	ble	.L112
	nop

	! block 32
.L116:
.L113:
	ba	.L117
	nop

	! block 33
.L112:

!  155	      DO 10 I=1,4

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

	! block 34
.L120:

!  156	        IF(I.GT.2) GO TO 11

	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	cmp	%l0,2
	ble	.L123
	nop

	! block 35
.L124:
	ba	.L125
	nop

	! block 36
.L123:

!  157	        IBIT(I) = BLANK

	sethi	%hi(GPB.impprt.blank),%l0
	or	%l0,%lo(GPB.impprt.blank),%l0
	ldsb	[%l0+0],%l3
	ld	[%fp-52],%l2
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	st	%l3,[%l0+0]

	! block 37
.L125:

!  158	   11   CONTINUE

.L118:

!  159	   10 DQUAL(I) = BLANK

	sethi	%hi(GPB.impprt.blank),%l0
	or	%l0,%lo(GPB.impprt.blank),%l0
	ldsb	[%l0+0],%l3
	ld	[%fp-56],%l2
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	st	%l3,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	cmp	%l0,4
	ble	.L120
	nop

	! block 38
.L128:
.L119:

!  160	      IF(TYPE.GT.0) GO TO 7

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

	! block 39
.L130:
	ba	.L131
	nop

	! block 40
.L129:

!  161	      IBIT(1) = JBIT(1)

	ld	[%fp-60],%l0
	add	%l0,4,%l0
	ldsb	[%l0+0],%l1
	ld	[%fp-52],%l0
	add	%l0,4,%l0
	st	%l1,[%l0+0]

!  162	      IBIT(2) = JBIT(2)

	ld	[%fp-60],%l0
	add	%l0,8,%l0
	ldsb	[%l0+0],%l1
	ld	[%fp-52],%l0
	add	%l0,8,%l0
	st	%l1,[%l0+0]

	! block 41
.L131:

!  163	    7 CONTINUE


!  164	      IQUAL=IABS(TYPE)

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

	! block 42
.L135:
	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-124]
	ba	.L133
	nop

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

	! block 44
.L133:
	ld	[%fp-124],%l1
	sethi	%hi(GPB.impprt.iqual),%l0
	or	%l0,%lo(GPB.impprt.iqual),%l0
	st	%l1,[%l0+0]

!  165	      IF(IQUAL.LT.11.OR.IQUAL.GT.14) GO TO 6

	sethi	%hi(GPB.impprt.iqual),%l0
	or	%l0,%lo(GPB.impprt.iqual),%l0
	ld	[%l0+0],%l0
	cmp	%l0,11
	bge	.L138
	nop

	! block 45
.L139:
	ba	.L137
	nop

	! block 46
.L138:
	sethi	%hi(GPB.impprt.iqual),%l0
	or	%l0,%lo(GPB.impprt.iqual),%l0
	ld	[%l0+0],%l0
	cmp	%l0,14
	ble	.L136
	nop

	! block 47
.L140:
.L137:
	ba	.L141
	nop

	! block 48
.L136:

!  166	      DO 12 I=1,4

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

	! block 49
.L144:
.L142:

!  167	   12 DQUAL(I) = AQUAL(I)

	ld	[%fp-64],%l2
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ldsb	[%l0+0],%l3
	ld	[%fp-56],%l2
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	st	%l3,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	cmp	%l0,4
	ble	.L144
	nop

	! block 50
.L148:
.L143:
.L141:

!  168	    6 CONTINUE


!  169	C
!  170	C  IMP-8 SPIN FLIP TEST.
!  171	      IFLIP = 0

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

!  172	      IF(IMP.NE.8) GO TO 40

	sethi	%hi(GPB.impprt.imp),%l0
	or	%l0,%lo(GPB.impprt.imp),%l0
	ld	[%l0+0],%l0
	cmp	%l0,8
	be	.L149
	nop

	! block 51
.L150:
	ba	.L151
	nop

	! block 52
.L149:

!  173	      IF(YEAR-1973) 40,41,43

	sethi	%hi(time_),%l0
	or	%l0,%lo(time_),%l0
	ld	[%l0+0],%l0
	add	%l0,-1973,%l0
	st	%l0,[%fp-128]
	ld	[%fp-128],%l0
	cmp	%l0,0
	bg	.L153
	nop

	! block 53
.L154:
	ld	[%fp-128],%l0
	cmp	%l0,0
	bl	.L151
	nop

	! block 54
.L155:
.L152:

!  174	   41 IF(DOY-338) 40,42,43

	sethi	%hi(time_),%l0
	or	%l0,%lo(time_),%l0
	ld	[%l0+4],%l0
	add	%l0,-338,%l0
	st	%l0,[%fp-132]
	ld	[%fp-132],%l0
	cmp	%l0,0
	bg	.L153
	nop

	! block 55
.L157:
	ld	[%fp-132],%l0
	cmp	%l0,0
	bl	.L151
	nop

	! block 56
.L158:
.L156:

!  175	   42 IF(HOUROD-18) 40,43,43

	sethi	%hi(time_),%l0
	or	%l0,%lo(time_),%l0
	ld	[%l0+8],%l0
	add	%l0,-18,%l0
	cmp	%l0,0
	bl	.L151
	nop

	! block 57
.L159:
.L153:

!  176	   43 IFLIP = 1

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

	! block 58
.L151:

!  177	   40 CONTINUE


!  178	      SPIN = ASPIN/6400.

	sethi	%hi(lashed_),%l0
	or	%l0,%lo(lashed_),%l0
	ld	[%l0+136],%f3
	sethi	%hi(.L_cseg10),%l0
	or	%l0,%lo(.L_cseg10),%l0
	ld	[%l0+0],%f2
	fdivs	%f3,%f2,%f2
	sethi	%hi(GPB.impprt.spin),%l0
	or	%l0,%lo(GPB.impprt.spin),%l0
	st	%f2,[%l0+0]

!  179	C     58 LINES PER PAGE. WANT PRINTOUT SO SPECTRUM , OR SPECTRA
!  180	C     ARE NOT PRINTED ON MORE THAN ONE PAGE.
!  181	C     PRINTS PAGE HEADER
!  182	      IF(LTYPE.NE.1.OR.NEWPAG) WRITE(IK,990) IMFHED,LAHEDU(2),LAHEDU(4)

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

	! block 59
.L163:
	ba	.L161
	nop

	! block 60
.L162:
	sethi	%hi(GPB.impprt.newpag),%l0
	or	%l0,%lo(GPB.impprt.newpag),%l0
	ld	[%l0+0],%l0
	cmp	%l0,%g0
	be	.L160
	nop

	! block 61
.L164:
.L161:
	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.166+8),%l0
	or	%l0,%lo(GPB.impprt.IO.166+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.166+24),%l0
	or	%l0,%lo(GPB.impprt.IO.166+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.166),%l0
	or	%l0,%lo(GPB.impprt.IO.166),%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(lashed_),%l2
	or	%l2,%lo(lashed_),%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),%l1
	or	%l1,%lo(.L_cseg0),%l1
	sethi	%hi(.L_cseg1),%l2
	or	%l2,%lo(.L_cseg1),%l2
	ld	[%fp-8],%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_cseg0),%l1
	or	%l1,%lo(.L_cseg0),%l1
	sethi	%hi(.L_cseg1),%l2
	or	%l2,%lo(.L_cseg1),%l2
	ld	[%fp-8],%l0
	add	%l0,16,%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-8],%l0
	add	%l0,20,%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_cseg6),%l0
	or	%l0,%lo(.L_cseg6),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(GPB.impprt.spin),%l2
	or	%l2,%lo(GPB.impprt.spin),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	mov	6,%l1
	sethi	%hi(GPB.impprt.k),%l0
	or	%l0,%lo(GPB.impprt.k),%l0
	st	%l1,[%l0+0]
	sethi	%hi(.L_cseg2),%l0
	or	%l0,%lo(.L_cseg2),%l0
	sethi	%hi(.L_cseg11),%l1
	or	%l1,%lo(.L_cseg11),%l1
	sethi	%hi(GPB.impprt.procdt),%l2
	or	%l2,%lo(GPB.impprt.procdt),%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),%l1
	or	%l1,%lo(.L_cseg0),%l1
	sethi	%hi(.L_cseg1),%l2
	or	%l2,%lo(.L_cseg1),%l2
	ld	[%fp-8],%l0
	add	%l0,160,%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.impprt.mydate),%l2
	or	%l2,%lo(GPB.impprt.mydate),%l2
	mov	8,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	call	__e_wsfe
	nop

	! block 62
.L160:

!  183	     1  ,LAHEDU(5),SPIN,(procdt(K),K= 1, 5),LAHEDU(40), mydate
!  184	      IF(LTYPE-1) 500,100,70

	sethi	%hi(GPB.impprt.ltype),%l0
	or	%l0,%lo(GPB.impprt.ltype),%l0
	ld	[%l0+0],%l0
	add	%l0,-1,%l0
	st	%l0,[%fp-136]
	ld	[%fp-136],%l0
	cmp	%l0,0
	bg	.L168
	nop

	! block 63
.L169:
	ld	[%fp-136],%l0
	cmp	%l0,0
	bl	.L117
	nop

	! block 64
.L170:
	ba	.L167
	nop

	! block 65
.L168:

!  185	   70 NEWPAG=.TRUE.

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

!  186	      IF(LTYPE-3) 200,300,400

	sethi	%hi(GPB.impprt.ltype),%l0
	or	%l0,%lo(GPB.impprt.ltype),%l0
	ld	[%l0+0],%l0
	add	%l0,-3,%l0
	st	%l0,[%fp-140]
	ld	[%fp-140],%l0
	cmp	%l0,0
	bg	.L173
	nop

	! block 66
.L174:
	ld	[%fp-140],%l0
	cmp	%l0,0
	bl	.L171
	nop

	! block 67
.L175:
	ba	.L172
	nop

	! block 68
.L171:

!  187	  200 CONTINUE


!  188	C  PRINT CALIBRATION SPECTRUM
!  189	C
!  190	C PRINTS ONE CALIBRATE SPECTRUM A PAGE ON FORTRAN UNIT IK,DEFAULT 6
!  191	C
!  192	C  IAVSEQ  AVERAGE SEQUENCE TIME IN TENS OF MICROSECONDS
!  193	C     TEMPORARY. TO BE INCLUDED IN IMPCOR.
!  194	      IF(IHAVSQ.GT.16777215) GO TO 46

	sethi	%hi(blohed_),%l0
	or	%l0,%lo(blohed_),%l0
	ld	[%l0+12],%l1
	sethi	%hi(16777215),%l0
	or	%l0,%lo(16777215),%l0
	cmp	%l1,%l0
	ble	.L176
	nop

	! block 69
.L177:
	ba	.L178
	nop

	! block 70
.L176:

!  195	      AVSEQ = FLOAT(IHAVSQ)*1.0E-5

	sethi	%hi(blohed_),%l0
	or	%l0,%lo(blohed_),%l0
	ld	[%l0+12],%l0
	st	%l0,[%fp-172]
	ld	[%fp-172],%f2
	fitos	%f2,%f3
	sethi	%hi(.L_cseg12),%l0
	or	%l0,%lo(.L_cseg12),%l0
	ld	[%l0+0],%f2
	fmuls	%f3,%f2,%f2
	sethi	%hi(GPB.impprt.avseq),%l0
	or	%l0,%lo(GPB.impprt.avseq),%l0
	st	%f2,[%l0+0]

!  196	      GO TO 47

	ba	.L179
	nop

	! block 71
.L178:

!  197	   46 INTGER=IHAVSQ

	sethi	%hi(blohed_),%l0
	or	%l0,%lo(blohed_),%l0
	ld	[%l0+12],%l1
	sethi	%hi(GPC.impprtEQUIV1_1),%l0
	or	%l0,%lo(GPC.impprtEQUIV1_1),%l0
	st	%l1,[%l0+0]

!  198	      AVSEQ=REAL

	sethi	%hi(GPC.impprtEQUIV1_1),%l0
	or	%l0,%lo(GPC.impprtEQUIV1_1),%l0
	ld	[%l0+0],%f2
	sethi	%hi(GPB.impprt.avseq),%l0
	or	%l0,%lo(GPB.impprt.avseq),%l0
	st	%f2,[%l0+0]

	! block 72
.L179:

!  199	   47 CONTINUE


!  200	C        CALCULATES TEMPERATURE IN DEGREES CENTIGRADE FOR IMP 7/ IMP 8.
!  201	      N = LCDAT(15)

	ld	[%fp-68],%l0
	add	%l0,60,%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	st	%l1,[%l0+0]

!  202	      HOWHOT = -40.0

	sethi	%hi(.L_cseg13),%l0
	or	%l0,%lo(.L_cseg13),%l0
	ld	[%l0+0],%f2
	sethi	%hi(GPB.impprt.howhot),%l0
	or	%l0,%lo(GPB.impprt.howhot),%l0
	st	%f2,[%l0+0]

!  203	      IF (N.GE.30 .AND. N.LT.66) HOWHOT = -40. + (N - 30)*.5555555

	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	ld	[%l0+0],%l0
	cmp	%l0,30
	bl	.L181
	nop

	! block 73
.L183:
	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	ld	[%l0+0],%l0
	cmp	%l0,66
	bge	.L181
	nop

	! block 74
.L184:
	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	ld	[%l0+0],%l0
	add	%l0,-30,%l0
	st	%l0,[%fp-172]
	ld	[%fp-172],%f2
	fitos	%f2,%f3
	sethi	%hi(.L_cseg14),%l0
	or	%l0,%lo(.L_cseg14),%l0
	ld	[%l0+0],%f2
	fmuls	%f3,%f2,%f3
	sethi	%hi(.L_cseg13),%l0
	or	%l0,%lo(.L_cseg13),%l0
	ld	[%l0+0],%f2
	fadds	%f3,%f2,%f2
	sethi	%hi(GPB.impprt.howhot),%l0
	or	%l0,%lo(GPB.impprt.howhot),%l0
	st	%f2,[%l0+0]

	! block 75
.L181:

!  204	      IF (N.GE.66 .AND. N.LT.164) HOWHOT = -20. + (N - 66)*.408163

	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	ld	[%l0+0],%l0
	cmp	%l0,66
	bl	.L185
	nop

	! block 76
.L187:
	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	ld	[%l0+0],%l0
	cmp	%l0,164
	bge	.L185
	nop

	! block 77
.L188:
	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	ld	[%l0+0],%l0
	add	%l0,-66,%l0
	st	%l0,[%fp-172]
	ld	[%fp-172],%f2
	fitos	%f2,%f3
	sethi	%hi(.L_cseg15),%l0
	or	%l0,%lo(.L_cseg15),%l0
	ld	[%l0+0],%f2
	fmuls	%f3,%f2,%f3
	sethi	%hi(.L_cseg16),%l0
	or	%l0,%lo(.L_cseg16),%l0
	ld	[%l0+0],%f2
	fadds	%f3,%f2,%f2
	sethi	%hi(GPB.impprt.howhot),%l0
	or	%l0,%lo(GPB.impprt.howhot),%l0
	st	%f2,[%l0+0]

	! block 78
.L185:

!  205	      IF (N.GE.164 .AND. N.LT.202) HOWHOT = 20. + (N - 164)*.7368421

	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	ld	[%l0+0],%l0
	cmp	%l0,164
	bl	.L189
	nop

	! block 79
.L191:
	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	ld	[%l0+0],%l0
	cmp	%l0,202
	bge	.L189
	nop

	! block 80
.L192:
	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	ld	[%l0+0],%l0
	add	%l0,-164,%l0
	st	%l0,[%fp-172]
	ld	[%fp-172],%f2
	fitos	%f2,%f3
	sethi	%hi(.L_cseg17),%l0
	or	%l0,%lo(.L_cseg17),%l0
	ld	[%l0+0],%f2
	fmuls	%f3,%f2,%f3
	sethi	%hi(.L_cseg18),%l0
	or	%l0,%lo(.L_cseg18),%l0
	ld	[%l0+0],%f2
	fadds	%f3,%f2,%f2
	sethi	%hi(GPB.impprt.howhot),%l0
	or	%l0,%lo(GPB.impprt.howhot),%l0
	st	%f2,[%l0+0]

	! block 81
.L189:

!  206	      IF (N.GE.202 .AND. N.LT.230) HOWHOT = 48. + (N - 202)*1.857143

	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	ld	[%l0+0],%l0
	cmp	%l0,202
	bl	.L193
	nop

	! block 82
.L195:
	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	ld	[%l0+0],%l0
	cmp	%l0,230
	bge	.L193
	nop

	! block 83
.L196:
	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	ld	[%l0+0],%l0
	add	%l0,-202,%l0
	st	%l0,[%fp-172]
	ld	[%fp-172],%f2
	fitos	%f2,%f3
	sethi	%hi(.L_cseg19),%l0
	or	%l0,%lo(.L_cseg19),%l0
	ld	[%l0+0],%f2
	fmuls	%f3,%f2,%f3
	sethi	%hi(.L_cseg20),%l0
	or	%l0,%lo(.L_cseg20),%l0
	ld	[%l0+0],%f2
	fadds	%f3,%f2,%f2
	sethi	%hi(GPB.impprt.howhot),%l0
	or	%l0,%lo(GPB.impprt.howhot),%l0
	st	%f2,[%l0+0]

	! block 84
.L193:

!  207	      IF (N.GE.230)  HOWHOT = 100.

	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	ld	[%l0+0],%l0
	cmp	%l0,230
	bl	.L197
	nop

	! block 85
.L198:
	sethi	%hi(.L_cseg21),%l0
	or	%l0,%lo(.L_cseg21),%l0
	ld	[%l0+0],%f2
	sethi	%hi(GPB.impprt.howhot),%l0
	or	%l0,%lo(GPB.impprt.howhot),%l0
	st	%f2,[%l0+0]

	! block 86
.L197:

!  208	      WRITE(IK,1001) TSPIN,SEQCLK,AVSEQ,HOWHOT,SHAFDQ,SHASOT,SHAEOT

	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.200+8),%l0
	or	%l0,%lo(GPB.impprt.IO.200+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.200+24),%l0
	or	%l0,%lo(GPB.impprt.IO.200+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.200),%l0
	or	%l0,%lo(GPB.impprt.IO.200),%l0
	mov	%l0,%o0
	call	__s_wsFe_nv
	nop
	sethi	%hi(.L_cseg6),%l0
	or	%l0,%lo(.L_cseg6),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(typssn_+12),%l2
	or	%l2,%lo(typssn_+12),%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(time_+24),%l2
	or	%l2,%lo(time_+24),%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_cseg6),%l0
	or	%l0,%lo(.L_cseg6),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(GPB.impprt.avseq),%l2
	or	%l2,%lo(GPB.impprt.avseq),%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_cseg6),%l0
	or	%l0,%lo(.L_cseg6),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(GPB.impprt.howhot),%l2
	or	%l2,%lo(GPB.impprt.howhot),%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_cseg4),%l0
	or	%l0,%lo(.L_cseg4),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(commsh_+68),%l2
	or	%l2,%lo(commsh_+68),%l2
	mov	2,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	sethi	%hi(.L_cseg4),%l0
	or	%l0,%lo(.L_cseg4),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(commsh_+116),%l2
	or	%l2,%lo(commsh_+116),%l2
	mov	2,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	sethi	%hi(.L_cseg4),%l0
	or	%l0,%lo(.L_cseg4),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(commsh_+118),%l2
	or	%l2,%lo(commsh_+118),%l2
	mov	2,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	call	__e_wsfe
	nop

!  209	      WRITE(IK,1003) LCYR,LCDY,LCHR,LCMN,TYPE

	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.202+8),%l0
	or	%l0,%lo(GPB.impprt.IO.202+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.202+24),%l0
	or	%l0,%lo(GPB.impprt.IO.202+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.202),%l0
	or	%l0,%lo(GPB.impprt.IO.202),%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(lascal_),%l2
	or	%l2,%lo(lascal_),%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(lascal_+4),%l2
	or	%l2,%lo(lascal_+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(lascal_+8),%l2
	or	%l2,%lo(lascal_+8),%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(lascal_+12),%l2
	or	%l2,%lo(lascal_+12),%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(typssn_),%l2
	or	%l2,%lo(typssn_),%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

!  210	      DO 45 I=1,287

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

	! block 87
.L205:

!  211	      J=IRE(I)+1

	ld	[%fp-72],%l2
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]

	! block 88
.L203:

!  212	   45 SPEC3(I)= HEXOCT(LCSPEC(J),2)

	ld	[%fp-76],%l2
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	sethi	%hi(.L_cseg4),%l1
	or	%l1,%lo(.L_cseg4),%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	hexoct_
	nop
	mov	%o0,%l3
	ld	[%fp-80],%l2
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	st	%l3,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	cmp	%l0,287
	ble	.L205
	nop

	! block 89
.L211:
.L204:

!  213	      WRITE (IK,2000) (SPEC3(i),i=1,168)

	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.213+8),%l0
	or	%l0,%lo(GPB.impprt.IO.213+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.213+24),%l0
	or	%l0,%lo(GPB.impprt.IO.213+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.213),%l0
	or	%l0,%lo(GPB.impprt.IO.213),%l0
	mov	%l0,%o0
	call	__s_wsFe_nv
	nop
	mov	169,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(.L_cseg0),%l0
	or	%l0,%lo(.L_cseg0),%l0
	sethi	%hi(.L_cseg22),%l1
	or	%l1,%lo(.L_cseg22),%l1
	sethi	%hi(GPB.impprt.spec3),%l2
	or	%l2,%lo(GPB.impprt.spec3),%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

!  214	      write (ik,2001) (spec3(i),i=169,287)

	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.215+8),%l0
	or	%l0,%lo(GPB.impprt.IO.215+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.215+24),%l0
	or	%l0,%lo(GPB.impprt.IO.215+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.215),%l0
	or	%l0,%lo(GPB.impprt.IO.215),%l0
	mov	%l0,%o0
	call	__s_wsFe_nv
	nop
	mov	288,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(.L_cseg0),%l1
	or	%l1,%lo(.L_cseg0),%l1
	sethi	%hi(.L_cseg23),%l2
	or	%l2,%lo(.L_cseg23),%l2
	ld	[%fp-80],%l0
	add	%l0,676,%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

!  215	      GO TO 500

	ba	.L117
	nop

	! block 90
.L167:

!  216	C
!  217	C  PARAMETERS FIXED FOR TRACKING MODE SPECTRUM,TMS.
!  218	C
!  219	  100 CONTINUE


!  220	      IF(PSEL.LT.3.OR.PSEL.GT.19) GO TO 500

	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+4],%l0
	cmp	%l0,3
	bge	.L218
	nop

	! block 91
.L219:
	ba	.L217
	nop

	! block 92
.L218:
	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+4],%l0
	cmp	%l0,19
	ble	.L216
	nop

	! block 93
.L220:
.L217:
	ba	.L117
	nop

	! block 94
.L216:

!  221	      IF(.NOT.NEWPAG) WRITE(IK,991)

	sethi	%hi(GPB.impprt.newpag),%l0
	or	%l0,%lo(GPB.impprt.newpag),%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	.L221
	nop

	! block 95
.L222:
	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.224+8),%l0
	or	%l0,%lo(GPB.impprt.IO.224+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.224+24),%l0
	or	%l0,%lo(GPB.impprt.IO.224+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.224),%l0
	or	%l0,%lo(GPB.impprt.IO.224),%l0
	mov	%l0,%o0
	call	__s_wsFe_nv
	nop
	call	__e_wsfe
	nop

	! block 96
.L221:

!  222	      NEWPAG=.NOT.NEWPAG

	sethi	%hi(GPB.impprt.newpag),%l0
	or	%l0,%lo(GPB.impprt.newpag),%l0
	ld	[%l0+0],%l0
	mov	0,%l1
	cmp	%l0,%l1
	mov	0,%l1
	be,a	1f
	mov	1,%l1
1:
	sethi	%hi(GPB.impprt.newpag),%l0
	or	%l0,%lo(GPB.impprt.newpag),%l0
	st	%l1,[%l0+0]

!  223	      PHIGH=PSEL+7

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

!  224	      EHIGH=8

	mov	8,%l1
	sethi	%hi(GPB.impprt.ehigh),%l0
	or	%l0,%lo(GPB.impprt.ehigh),%l0
	st	%l1,[%l0+0]

!  225	      AMS=.FALSE.

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

!  226	      MODE=MODEL(1)

	sethi	%hi(GPB.impprt.mode),%l1
	or	%l1,%lo(GPB.impprt.mode),%l1
	ld	[%fp-84],%l0
	add	%l0,4,%l0
	mov	4,%l2
	mov	4,%l3
	mov	%l1,%o0
	mov	%l0,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__s_copy
	nop

!  227	      GO TO 450

	ba	.L226
	nop

	! block 97
.L173:

!  228	C
!  229	C  PARAMETERS FIXED FOR AQUISITION MODE SPECTRUM,AMS.
!  230	C
!  231	  400 CONTINUE


!  232	      IF(PSEL.NE.3) GO TO 500

	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+4],%l0
	cmp	%l0,3
	be	.L227
	nop

	! block 98
.L228:
	ba	.L117
	nop

	! block 99
.L227:

!  233	      PHIGH=26

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

!  234	      EHIGH=21

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

!  235	      AMS=.TRUE.

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

!  236	      MODE=MODEL(3)

	sethi	%hi(GPB.impprt.mode),%l1
	or	%l1,%lo(GPB.impprt.mode),%l1
	ld	[%fp-84],%l0
	add	%l0,12,%l0
	mov	4,%l2
	mov	4,%l3
	mov	%l1,%o0
	mov	%l0,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__s_copy
	nop

!  237	      GO TO 450


	! block 100
.L226:

!  238	C
!  239	C  DO LOOP FOR LISTING AMS,TMS.
!  240	C
!  241	  450 CONTINUE


!  242	      WRITE(IK,999) MODE,SN,PSEL,YEAR,DOY,HOUROD,MINUTE,SECOND,SEQCLK

	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.230+8),%l0
	or	%l0,%lo(GPB.impprt.IO.230+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.230+24),%l0
	or	%l0,%lo(GPB.impprt.IO.230+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.230),%l0
	or	%l0,%lo(GPB.impprt.IO.230),%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.impprt.mode),%l2
	or	%l2,%lo(GPB.impprt.mode),%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(typssn_+8),%l2
	or	%l2,%lo(typssn_+8),%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(typssn_+4),%l2
	or	%l2,%lo(typssn_+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(time_),%l2
	or	%l2,%lo(time_),%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(time_+4),%l2
	or	%l2,%lo(time_+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(time_+8),%l2
	or	%l2,%lo(time_+8),%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(time_+12),%l2
	or	%l2,%lo(time_+12),%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_cseg6),%l0
	or	%l0,%lo(.L_cseg6),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(time_+16),%l2
	or	%l2,%lo(time_+16),%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(time_+24),%l2
	or	%l2,%lo(time_+24),%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_cseg6),%l0
	or	%l0,%lo(.L_cseg6),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(typssn_+12),%l2
	or	%l2,%lo(typssn_+12),%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_cseg4),%l0
	or	%l0,%lo(.L_cseg4),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(commsh_+68),%l2
	or	%l2,%lo(commsh_+68),%l2
	mov	2,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	sethi	%hi(.L_cseg4),%l0
	or	%l0,%lo(.L_cseg4),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(commsh_+116),%l2
	or	%l2,%lo(commsh_+116),%l2
	mov	2,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	sethi	%hi(.L_cseg4),%l0
	or	%l0,%lo(.L_cseg4),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(commsh_+118),%l2
	or	%l2,%lo(commsh_+118),%l2
	mov	2,%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(typssn_),%l2
	or	%l2,%lo(typssn_),%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),%l1
	or	%l1,%lo(.L_cseg0),%l1
	sethi	%hi(.L_cseg1),%l2
	or	%l2,%lo(.L_cseg1),%l2
	ld	[%fp-52],%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-52],%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
	mov	5,%l1
	sethi	%hi(GPB.impprt.k),%l0
	or	%l0,%lo(GPB.impprt.k),%l0
	st	%l1,[%l0+0]
	sethi	%hi(.L_cseg0),%l0
	or	%l0,%lo(.L_cseg0),%l0
	sethi	%hi(.L_cseg24),%l1
	or	%l1,%lo(.L_cseg24),%l1
	sethi	%hi(GPB.impprt.dqual),%l2
	or	%l2,%lo(GPB.impprt.dqual),%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

!  243	     1 ,TSPIN,SHAFDQ,SHASOT,SHAEOT,TYPE,IBIT(1),IBIT(2),
!  244	     2  (DQUAL(K),K=1,4)
!  245	      IF(IFLIP.EQ.0) WRITE(IK,992) TITLE(1),TITLE(2)

	sethi	%hi(GPB.impprt.iflip),%l0
	or	%l0,%lo(GPB.impprt.iflip),%l0
	ld	[%l0+0],%l0
	cmp	%l0,0
	bne	.L231
	nop

	! block 101
.L232:
	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.234+8),%l0
	or	%l0,%lo(GPB.impprt.IO.234+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.234+24),%l0
	or	%l0,%lo(GPB.impprt.IO.234+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.234),%l0
	or	%l0,%lo(GPB.impprt.IO.234),%l0
	mov	%l0,%o0
	call	__s_wsFe_nv
	nop
	sethi	%hi(.L_cseg2),%l1
	or	%l1,%lo(.L_cseg2),%l1
	sethi	%hi(.L_cseg1),%l2
	or	%l2,%lo(.L_cseg1),%l2
	ld	[%fp-88],%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),%l1
	or	%l1,%lo(.L_cseg2),%l1
	sethi	%hi(.L_cseg1),%l2
	or	%l2,%lo(.L_cseg1),%l2
	ld	[%fp-88],%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
	mov	1,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]

	! block 102
.L238:
	sethi	%hi(.L_cseg2),%l3
	or	%l3,%lo(.L_cseg2),%l3
	sethi	%hi(.L_cseg1),%l5
	or	%l5,%lo(.L_cseg1),%l5
	ld	[%fp-88],%l0
	add	%l0,68,%l2
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	neg	%l0,%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.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	cmp	%l0,14
	ble	.L238
	nop

	! block 103
.L241:
.L237:
	mov	1,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]

	! block 104
.L244:
	sethi	%hi(.L_cseg2),%l3
	or	%l3,%lo(.L_cseg2),%l3
	sethi	%hi(.L_cseg1),%l5
	or	%l5,%lo(.L_cseg1),%l5
	ld	[%fp-88],%l0
	add	%l0,100,%l2
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	neg	%l0,%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.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	cmp	%l0,8
	ble	.L244
	nop

	! block 105
.L247:
.L243:
	call	__e_wsfe
	nop

	! block 106
.L231:

!  246	     1 ,(TITLE(17-I),I=1,14),(TITLE(25-I),I=1,8)
!  247	      IF(IFLIP.EQ.1) WRITE(IK,992) (TITLE(I),I=1,24)

	sethi	%hi(GPB.impprt.iflip),%l0
	or	%l0,%lo(GPB.impprt.iflip),%l0
	ld	[%l0+0],%l0
	cmp	%l0,1
	bne	.L248
	nop

	! block 107
.L249:
	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.250+8),%l0
	or	%l0,%lo(GPB.impprt.IO.250+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.250+24),%l0
	or	%l0,%lo(GPB.impprt.IO.250+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.250),%l0
	or	%l0,%lo(GPB.impprt.IO.250),%l0
	mov	%l0,%o0
	call	__s_wsFe_nv
	nop
	mov	25,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(.L_cseg2),%l0
	or	%l0,%lo(.L_cseg2),%l0
	sethi	%hi(.L_cseg25),%l1
	or	%l1,%lo(.L_cseg25),%l1
	sethi	%hi(GPB.impprt.title),%l2
	or	%l2,%lo(GPB.impprt.title),%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 108
.L248:

!  248	      IF(ICNT) GO TO 3

	sethi	%hi(GPB.impprt.icnt),%l0
	or	%l0,%lo(GPB.impprt.icnt),%l0
	ld	[%l0+0],%l0
	cmp	%l0,%g0
	be	.L251
	nop

	! block 109
.L252:
	ba	.L253
	nop

	! block 110
.L251:

!  249	      DO 2 I= PSEL,PHIGH

	sethi	%hi(GPB.impprt.phigh),%l0
	or	%l0,%lo(GPB.impprt.phigh),%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-144]
	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+4],%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l1
	ld	[%fp-144],%l0
	cmp	%l1,%l0
	bg	.L255
	nop

	! block 111
.L259:
.L256:

!  250	      DO 2 J = 1,14

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

	! block 112
.L261:

!  251	      DO 2 K =1,2

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

	! block 113
.L265:

!  252	      IF(IFLIP.EQ.0) COUNT = QPLUS(K,J,I)

	sethi	%hi(GPB.impprt.iflip),%l0
	or	%l0,%lo(GPB.impprt.iflip),%l0
	ld	[%l0+0],%l0
	cmp	%l0,0
	bne	.L268
	nop

	! block 114
.L269:
	ld	[%fp-92],%l5
	sethi	%hi(GPB.impprt.k),%l0
	or	%l0,%lo(GPB.impprt.k),%l0
	ld	[%l0+0],%l4
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,1,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,1,%l1
	add	%l4,%l1,%l0
	sll	%l0,2,%l1
	add	%l5,%l1,%l0
	ld	[%l0+0],%f2
	fstoi	%f2,%f2
	st	%f2,[%fp-172]
	ld	[%fp-172],%l1
	sethi	%hi(GPB.impprt.count),%l0
	or	%l0,%lo(GPB.impprt.count),%l0
	st	%l1,[%l0+0]

	! block 115
.L268:

!  253	      IF(IFLIP.EQ.1) COUNT = QPLUS(K,15-J,I)

	sethi	%hi(GPB.impprt.iflip),%l0
	or	%l0,%lo(GPB.impprt.iflip),%l0
	ld	[%l0+0],%l0
	cmp	%l0,1
	bne	.L271
	nop

	! block 116
.L272:
	ld	[%fp-92],%l0
	add	%l0,120,%l4
	sethi	%hi(GPB.impprt.k),%l0
	or	%l0,%lo(GPB.impprt.k),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,1,%l1
	sub	%l2,%l1,%l2
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l1
	sub	%l2,%l1,%l0
	sll	%l0,1,%l1
	add	%l3,%l1,%l0
	sll	%l0,2,%l1
	add	%l4,%l1,%l0
	ld	[%l0+0],%f2
	fstoi	%f2,%f2
	st	%f2,[%fp-172]
	ld	[%fp-172],%l1
	sethi	%hi(GPB.impprt.count),%l0
	or	%l0,%lo(GPB.impprt.count),%l0
	st	%l1,[%l0+0]

	! block 117
.L271:
.L254:

!  254	    2 PCNT(K,J,I) = HEXOCT(COUNT,2)

	sethi	%hi(GPB.impprt.count),%l0
	or	%l0,%lo(GPB.impprt.count),%l0
	sethi	%hi(.L_cseg4),%l1
	or	%l1,%lo(.L_cseg4),%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	hexoct_
	nop
	mov	%o0,%l6
	ld	[%fp-96],%l5
	sethi	%hi(GPB.impprt.k),%l0
	or	%l0,%lo(GPB.impprt.k),%l0
	ld	[%l0+0],%l4
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,1,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,1,%l1
	add	%l4,%l1,%l0
	sll	%l0,2,%l1
	add	%l5,%l1,%l0
	st	%l6,[%l0+0]
	sethi	%hi(GPB.impprt.k),%l0
	or	%l0,%lo(GPB.impprt.k),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.k),%l0
	or	%l0,%lo(GPB.impprt.k),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.k),%l0
	or	%l0,%lo(GPB.impprt.k),%l0
	ld	[%l0+0],%l0
	cmp	%l0,2
	ble	.L265
	nop

	! block 118
.L274:
.L264:
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	cmp	%l0,14
	ble	.L261
	nop

	! block 119
.L275:
.L260:
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l1
	ld	[%fp-144],%l0
	cmp	%l1,%l0
	ble	.L256
	nop

	! block 120
.L276:
.L255:

!  255	      DO 4 I=1,EHIGH

	sethi	%hi(GPB.impprt.ehigh),%l0
	or	%l0,%lo(GPB.impprt.ehigh),%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-148]
	mov	1,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l1
	ld	[%fp-148],%l0
	cmp	%l1,%l0
	bg	.L278
	nop

	! block 121
.L282:
.L279:

!  256	      DO 4 J = 1,8

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

	! block 122
.L284:

!  257	      IF(IFLIP.EQ.0) COUNT = QMINUS(9-J,I)

	sethi	%hi(GPB.impprt.iflip),%l0
	or	%l0,%lo(GPB.impprt.iflip),%l0
	ld	[%l0+0],%l0
	cmp	%l0,0
	bne	.L287
	nop

	! block 123
.L288:
	ld	[%fp-100],%l0
	add	%l0,36,%l3
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,3,%l2
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l1
	sub	%l2,%l1,%l0
	sll	%l0,2,%l1
	add	%l3,%l1,%l0
	ld	[%l0+0],%f2
	fstoi	%f2,%f2
	st	%f2,[%fp-172]
	ld	[%fp-172],%l1
	sethi	%hi(GPB.impprt.count),%l0
	or	%l0,%lo(GPB.impprt.count),%l0
	st	%l1,[%l0+0]

	! block 124
.L287:

!  258	      IF(IFLIP.EQ.1) COUNT = QMINUS(J,I)

	sethi	%hi(GPB.impprt.iflip),%l0
	or	%l0,%lo(GPB.impprt.iflip),%l0
	ld	[%l0+0],%l0
	cmp	%l0,1
	bne	.L290
	nop

	! block 125
.L291:
	ld	[%fp-100],%l3
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l2
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,3,%l1
	add	%l2,%l1,%l0
	sll	%l0,2,%l1
	add	%l3,%l1,%l0
	ld	[%l0+0],%f2
	fstoi	%f2,%f2
	st	%f2,[%fp-172]
	ld	[%fp-172],%l1
	sethi	%hi(GPB.impprt.count),%l0
	or	%l0,%lo(GPB.impprt.count),%l0
	st	%l1,[%l0+0]

	! block 126
.L290:
.L277:

!  259	    4 ECNT(J,I) = HEXOCT(COUNT,2)

	sethi	%hi(GPB.impprt.count),%l0
	or	%l0,%lo(GPB.impprt.count),%l0
	sethi	%hi(.L_cseg4),%l1
	or	%l1,%lo(.L_cseg4),%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	hexoct_
	nop
	mov	%o0,%l4
	ld	[%fp-104],%l3
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l2
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,3,%l1
	add	%l2,%l1,%l0
	sll	%l0,2,%l1
	add	%l3,%l1,%l0
	st	%l4,[%l0+0]
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	cmp	%l0,8
	ble	.L284
	nop

	! block 127
.L293:
.L283:
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l1
	ld	[%fp-148],%l0
	cmp	%l1,%l0
	ble	.L279
	nop

	! block 128
.L294:
.L278:

!  260	      N = 0

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

!  261	      DO 5 I=PSEL,PHIGH

	sethi	%hi(GPB.impprt.phigh),%l0
	or	%l0,%lo(GPB.impprt.phigh),%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-152]
	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+4],%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l1
	ld	[%fp-152],%l0
	cmp	%l1,%l0
	bg	.L296
	nop

	! block 129
.L300:
.L297:

!  262	      IF(.NOT.AMS) WRITE(IK,991)

	sethi	%hi(GPB.impprt.ams),%l0
	or	%l0,%lo(GPB.impprt.ams),%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	.L301
	nop

	! block 130
.L302:
	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.303+8),%l0
	or	%l0,%lo(GPB.impprt.IO.303+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.303+24),%l0
	or	%l0,%lo(GPB.impprt.IO.303+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.303),%l0
	or	%l0,%lo(GPB.impprt.IO.303),%l0
	mov	%l0,%o0
	call	__s_wsFe_nv
	nop
	call	__e_wsfe
	nop

	! block 131
.L301:

!  263	      WRITE(IK,995) I,(PCNT(1,J,I),J=1,14)

	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.305+8),%l0
	or	%l0,%lo(GPB.impprt.IO.305+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.305+24),%l0
	or	%l0,%lo(GPB.impprt.IO.305+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.305),%l0
	or	%l0,%lo(GPB.impprt.IO.305),%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.impprt.i),%l2
	or	%l2,%lo(GPB.impprt.i),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	mov	1,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]

	! block 132
.L308:
	sethi	%hi(.L_cseg0),%l5
	or	%l5,%lo(.L_cseg0),%l5
	sethi	%hi(.L_cseg1),%l6
	or	%l6,%lo(.L_cseg1),%l6
	ld	[%fp-96],%l0
	add	%l0,4,%l4
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%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
	mov	4,%l1
	mov	%l5,%o0
	mov	%l6,%o1
	mov	%l0,%o2
	mov	%l1,%o3
	call	__do_f_out_nv
	nop
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	cmp	%l0,14
	ble	.L308
	nop

	! block 133
.L311:
.L307:
	call	__e_wsfe
	nop

!  264	      IF(N.LT.EHIGH) WRITE(IK,994) N,(ECNT(J,N+1),J=1,8)

	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.ehigh),%l0
	or	%l0,%lo(GPB.impprt.ehigh),%l0
	ld	[%l0+0],%l0
	cmp	%l1,%l0
	bge	.L312
	nop

	! block 134
.L313:
	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.315+8),%l0
	or	%l0,%lo(GPB.impprt.IO.315+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.315+24),%l0
	or	%l0,%lo(GPB.impprt.IO.315+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.315),%l0
	or	%l0,%lo(GPB.impprt.IO.315),%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.impprt.n),%l2
	or	%l2,%lo(GPB.impprt.n),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	mov	9,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]
	sethi	%hi(.L_cseg0),%l3
	or	%l3,%lo(.L_cseg0),%l3
	sethi	%hi(.L_cseg26),%l5
	or	%l5,%lo(.L_cseg26),%l5
	ld	[%fp-104],%l0
	add	%l0,36,%l2
	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	ld	[%l0+0],%l0
	sll	%l0,5,%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 135
.L312:

!  265	      WRITE(IK,993) (PCNT(2,J,I),J=1,14)

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

	! block 136
.L320:
	sethi	%hi(.L_cseg0),%l5
	or	%l5,%lo(.L_cseg0),%l5
	sethi	%hi(.L_cseg1),%l6
	or	%l6,%lo(.L_cseg1),%l6
	ld	[%fp-96],%l0
	add	%l0,8,%l4
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%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
	mov	4,%l1
	mov	%l5,%o0
	mov	%l6,%o1
	mov	%l0,%o2
	mov	%l1,%o3
	call	__do_f_out_nv
	nop
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	cmp	%l0,14
	ble	.L320
	nop

	! block 137
.L323:
.L319:
	call	__e_wsfe
	nop

	! block 138
.L295:

!  266	    5 N = N + 1

	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l1
	ld	[%fp-152],%l0
	cmp	%l1,%l0
	ble	.L297
	nop

	! block 139
.L324:
.L296:

!  267	      GO TO 500

	ba	.L117
	nop

	! block 140
.L253:

!  268	    3 CONTINUE


!  269	      N = 0

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

!  270	      DO 1 I=PSEL,PHIGH

	sethi	%hi(GPB.impprt.phigh),%l0
	or	%l0,%lo(GPB.impprt.phigh),%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-156]
	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+4],%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l1
	ld	[%fp-156],%l0
	cmp	%l1,%l0
	bg	.L326
	nop

	! block 141
.L330:
.L327:

!  271	      IF(IFLIP.EQ.0) GO TO 8

	sethi	%hi(GPB.impprt.iflip),%l0
	or	%l0,%lo(GPB.impprt.iflip),%l0
	ld	[%l0+0],%l0
	cmp	%l0,0
	bne	.L331
	nop

	! block 142
.L332:
	ba	.L333
	nop

	! block 143
.L331:

!  272	      IF(.NOT.AMS) WRITE(IK,991)

	sethi	%hi(GPB.impprt.ams),%l0
	or	%l0,%lo(GPB.impprt.ams),%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	.L334
	nop

	! block 144
.L335:
	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.336+8),%l0
	or	%l0,%lo(GPB.impprt.IO.336+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.336+24),%l0
	or	%l0,%lo(GPB.impprt.IO.336+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.336),%l0
	or	%l0,%lo(GPB.impprt.IO.336),%l0
	mov	%l0,%o0
	call	__s_wsFe_nv
	nop
	call	__e_wsfe
	nop

	! block 145
.L334:

!  273	      WRITE(IK,998) I,(IPLUS(1,15-J,I),J=1,14)

	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.338+8),%l0
	or	%l0,%lo(GPB.impprt.IO.338+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.338+24),%l0
	or	%l0,%lo(GPB.impprt.IO.338+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.338),%l0
	or	%l0,%lo(GPB.impprt.IO.338),%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.impprt.i),%l2
	or	%l2,%lo(GPB.impprt.i),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	mov	1,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]

	! block 146
.L341:
	sethi	%hi(.L_cseg6),%l5
	or	%l5,%lo(.L_cseg6),%l5
	sethi	%hi(.L_cseg1),%l6
	or	%l6,%lo(.L_cseg1),%l6
	ld	[%fp-108],%l0
	add	%l0,124,%l3
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,1,%l1
	sub	%l2,%l1,%l2
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l1
	sub	%l2,%l1,%l0
	sll	%l0,3,%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.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	cmp	%l0,14
	ble	.L341
	nop

	! block 147
.L345:
.L340:
	call	__e_wsfe
	nop

!  274	      IF(N.LT.EHIGH) WRITE(IK,997) N,(IMINUS(J,N+1),J=1,8)

	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.ehigh),%l0
	or	%l0,%lo(GPB.impprt.ehigh),%l0
	ld	[%l0+0],%l0
	cmp	%l1,%l0
	bge	.L346
	nop

	! block 148
.L347:
	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.349+8),%l0
	or	%l0,%lo(GPB.impprt.IO.349+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.349+24),%l0
	or	%l0,%lo(GPB.impprt.IO.349+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.349),%l0
	or	%l0,%lo(GPB.impprt.IO.349),%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.impprt.n),%l2
	or	%l2,%lo(GPB.impprt.n),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	mov	1,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]

	! block 149
.L352:
	sethi	%hi(.L_cseg6),%l5
	or	%l5,%lo(.L_cseg6),%l5
	sethi	%hi(.L_cseg1),%l6
	or	%l6,%lo(.L_cseg1),%l6
	ld	[%fp-112],%l0
	add	%l0,32,%l3
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l2
	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	ld	[%l0+0],%l0
	sll	%l0,3,%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.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	cmp	%l0,8
	ble	.L352
	nop

	! block 150
.L356:
.L351:
	call	__e_wsfe
	nop

	! block 151
.L346:

!  275	      WRITE(IK,996) (IPLUS(2,15-J,I),J=1,14)

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

	! block 152
.L361:
	sethi	%hi(.L_cseg6),%l5
	or	%l5,%lo(.L_cseg6),%l5
	sethi	%hi(.L_cseg1),%l6
	or	%l6,%lo(.L_cseg1),%l6
	ld	[%fp-108],%l0
	add	%l0,128,%l3
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,1,%l1
	sub	%l2,%l1,%l2
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l1
	sub	%l2,%l1,%l0
	sll	%l0,3,%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.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	cmp	%l0,14
	ble	.L361
	nop

	! block 153
.L364:
.L360:
	call	__e_wsfe
	nop

!  276	      GO TO 1

	ba	.L325
	nop

	! block 154
.L333:

!  277	    8 CONTINUE


!  278	      IF(.NOT.AMS) WRITE(IK,991)

	sethi	%hi(GPB.impprt.ams),%l0
	or	%l0,%lo(GPB.impprt.ams),%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	.L365
	nop

	! block 155
.L366:
	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.367+8),%l0
	or	%l0,%lo(GPB.impprt.IO.367+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.367+24),%l0
	or	%l0,%lo(GPB.impprt.IO.367+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.367),%l0
	or	%l0,%lo(GPB.impprt.IO.367),%l0
	mov	%l0,%o0
	call	__s_wsFe_nv
	nop
	call	__e_wsfe
	nop

	! block 156
.L365:

!  279	      WRITE(IK,998) I,(IPLUS(1,J,I),J=1,14)

	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.368+8),%l0
	or	%l0,%lo(GPB.impprt.IO.368+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.368+24),%l0
	or	%l0,%lo(GPB.impprt.IO.368+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.368),%l0
	or	%l0,%lo(GPB.impprt.IO.368),%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.impprt.i),%l2
	or	%l2,%lo(GPB.impprt.i),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	mov	1,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]

	! block 157
.L371:
	sethi	%hi(.L_cseg6),%l5
	or	%l5,%lo(.L_cseg6),%l5
	sethi	%hi(.L_cseg1),%l6
	or	%l6,%lo(.L_cseg1),%l6
	ld	[%fp-108],%l0
	add	%l0,4,%l4
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%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
	mov	4,%l1
	mov	%l5,%o0
	mov	%l6,%o1
	mov	%l0,%o2
	mov	%l1,%o3
	call	__do_f_out_nv
	nop
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	cmp	%l0,14
	ble	.L371
	nop

	! block 158
.L374:
.L370:
	call	__e_wsfe
	nop

!  280	      IF(N.LT.EHIGH) WRITE(IK,997) N,(IMINUS(9-J,N+1),J=1,8)

	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.ehigh),%l0
	or	%l0,%lo(GPB.impprt.ehigh),%l0
	ld	[%l0+0],%l0
	cmp	%l1,%l0
	bge	.L375
	nop

	! block 159
.L376:
	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.377+8),%l0
	or	%l0,%lo(GPB.impprt.IO.377+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.377+24),%l0
	or	%l0,%lo(GPB.impprt.IO.377+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.377),%l0
	or	%l0,%lo(GPB.impprt.IO.377),%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.impprt.n),%l2
	or	%l2,%lo(GPB.impprt.n),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	mov	1,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]

	! block 160
.L380:
	sethi	%hi(.L_cseg6),%l5
	or	%l5,%lo(.L_cseg6),%l5
	sethi	%hi(.L_cseg1),%l6
	or	%l6,%lo(.L_cseg1),%l6
	ld	[%fp-112],%l0
	add	%l0,68,%l3
	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	ld	[%l0+0],%l0
	sll	%l0,3,%l2
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l1
	sub	%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.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	cmp	%l0,8
	ble	.L380
	nop

	! block 161
.L383:
.L379:
	call	__e_wsfe
	nop

	! block 162
.L375:

!  281	      WRITE(IK,996) (IPLUS(2,J,I),J=1,14)

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

	! block 163
.L387:
	sethi	%hi(.L_cseg6),%l5
	or	%l5,%lo(.L_cseg6),%l5
	sethi	%hi(.L_cseg1),%l6
	or	%l6,%lo(.L_cseg1),%l6
	ld	[%fp-108],%l0
	add	%l0,8,%l4
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%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
	mov	4,%l1
	mov	%l5,%o0
	mov	%l6,%o1
	mov	%l0,%o2
	mov	%l1,%o3
	call	__do_f_out_nv
	nop
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	cmp	%l0,14
	ble	.L387
	nop

	! block 164
.L390:
.L386:
	call	__e_wsfe
	nop

	! block 165
.L325:

!  282	    1 N = N + 1

	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l1
	ld	[%fp-156],%l0
	cmp	%l1,%l0
	ble	.L327
	nop

	! block 166
.L391:
.L326:

!  283	      GO TO 500

	ba	.L117
	nop

	! block 167
.L172:

!  284	C
!  285	C  LISTING NON-TRAKING MODE SPECTRUM,NTMS.
!  286	C
!  287	  300 CONTINUE


!  288	      IF(PSEL.NE.3) GO TO 500

	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+4],%l0
	cmp	%l0,3
	be	.L392
	nop

	! block 168
.L393:
	ba	.L117
	nop

	! block 169
.L392:

!  289	      MODE= MODEL(2)

	sethi	%hi(GPB.impprt.mode),%l1
	or	%l1,%lo(GPB.impprt.mode),%l1
	ld	[%fp-84],%l0
	add	%l0,8,%l0
	mov	4,%l2
	mov	4,%l3
	mov	%l1,%o0
	mov	%l0,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__s_copy
	nop

!  290	      WRITE(IK,899) MODE,SN,PSEL,YEAR,DOY,HOUROD,MINUTE,SECOND,SEQCLK

	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.395+8),%l0
	or	%l0,%lo(GPB.impprt.IO.395+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.395+24),%l0
	or	%l0,%lo(GPB.impprt.IO.395+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.395),%l0
	or	%l0,%lo(GPB.impprt.IO.395),%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.impprt.mode),%l2
	or	%l2,%lo(GPB.impprt.mode),%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(typssn_+8),%l2
	or	%l2,%lo(typssn_+8),%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(typssn_+4),%l2
	or	%l2,%lo(typssn_+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(time_),%l2
	or	%l2,%lo(time_),%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(time_+4),%l2
	or	%l2,%lo(time_+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(time_+8),%l2
	or	%l2,%lo(time_+8),%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(time_+12),%l2
	or	%l2,%lo(time_+12),%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_cseg6),%l0
	or	%l0,%lo(.L_cseg6),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(time_+16),%l2
	or	%l2,%lo(time_+16),%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(time_+24),%l2
	or	%l2,%lo(time_+24),%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_cseg6),%l0
	or	%l0,%lo(.L_cseg6),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(typssn_+12),%l2
	or	%l2,%lo(typssn_+12),%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_cseg4),%l0
	or	%l0,%lo(.L_cseg4),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(commsh_+68),%l2
	or	%l2,%lo(commsh_+68),%l2
	mov	2,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	sethi	%hi(.L_cseg4),%l0
	or	%l0,%lo(.L_cseg4),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(commsh_+116),%l2
	or	%l2,%lo(commsh_+116),%l2
	mov	2,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	sethi	%hi(.L_cseg4),%l0
	or	%l0,%lo(.L_cseg4),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(commsh_+118),%l2
	or	%l2,%lo(commsh_+118),%l2
	mov	2,%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(typssn_),%l2
	or	%l2,%lo(typssn_),%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),%l1
	or	%l1,%lo(.L_cseg0),%l1
	sethi	%hi(.L_cseg1),%l2
	or	%l2,%lo(.L_cseg1),%l2
	ld	[%fp-52],%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-52],%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
	mov	5,%l1
	sethi	%hi(GPB.impprt.k),%l0
	or	%l0,%lo(GPB.impprt.k),%l0
	st	%l1,[%l0+0]
	sethi	%hi(.L_cseg0),%l0
	or	%l0,%lo(.L_cseg0),%l0
	sethi	%hi(.L_cseg24),%l1
	or	%l1,%lo(.L_cseg24),%l1
	sethi	%hi(GPB.impprt.dqual),%l2
	or	%l2,%lo(GPB.impprt.dqual),%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

!  291	     1 ,TSPIN,SHAFDQ,SHASOT,SHAEOT,TYPE,IBIT(1),IBIT(2),
!  292	     2  (DQUAL(K),K=1,4)
!  293	      IF(IFLIP.EQ.1) WRITE(IK,892) (TITLE(I),I=1,5),(TITLE(I),I=25,26)

	sethi	%hi(GPB.impprt.iflip),%l0
	or	%l0,%lo(GPB.impprt.iflip),%l0
	ld	[%l0+0],%l0
	cmp	%l0,1
	bne	.L396
	nop

	! block 170
.L397:
	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.399+8),%l0
	or	%l0,%lo(GPB.impprt.IO.399+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.399+24),%l0
	or	%l0,%lo(GPB.impprt.IO.399+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.399),%l0
	or	%l0,%lo(GPB.impprt.IO.399),%l0
	mov	%l0,%o0
	call	__s_wsFe_nv
	nop
	mov	6,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(.L_cseg2),%l0
	or	%l0,%lo(.L_cseg2),%l0
	sethi	%hi(.L_cseg11),%l1
	or	%l1,%lo(.L_cseg11),%l1
	sethi	%hi(GPB.impprt.title),%l2
	or	%l2,%lo(GPB.impprt.title),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	mov	27,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(.L_cseg2),%l1
	or	%l1,%lo(.L_cseg2),%l1
	sethi	%hi(.L_cseg4),%l2
	or	%l2,%lo(.L_cseg4),%l2
	ld	[%fp-88],%l0
	add	%l0,100,%l0
	mov	4,%l3
	mov	%l1,%o0
	mov	%l2,%o1
	mov	%l0,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	mov	25,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(.L_cseg2),%l1
	or	%l1,%lo(.L_cseg2),%l1
	sethi	%hi(.L_cseg27),%l2
	or	%l2,%lo(.L_cseg27),%l2
	ld	[%fp-88],%l0
	add	%l0,56,%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

	! block 171
.L396:

!  294	     1 ,(TITLE(I),I=14,24)
!  295	      IF(IFLIP.EQ.0) WRITE(IK,892) (TITLE(I),I=1,2)

	sethi	%hi(GPB.impprt.iflip),%l0
	or	%l0,%lo(GPB.impprt.iflip),%l0
	ld	[%l0+0],%l0
	cmp	%l0,0
	bne	.L400
	nop

	! block 172
.L401:
	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.402+8),%l0
	or	%l0,%lo(GPB.impprt.IO.402+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.402+24),%l0
	or	%l0,%lo(GPB.impprt.IO.402+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.402),%l0
	or	%l0,%lo(GPB.impprt.IO.402),%l0
	mov	%l0,%o0
	call	__s_wsFe_nv
	nop
	mov	3,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(.L_cseg2),%l0
	or	%l0,%lo(.L_cseg2),%l0
	sethi	%hi(.L_cseg4),%l1
	or	%l1,%lo(.L_cseg4),%l1
	sethi	%hi(GPB.impprt.title),%l2
	or	%l2,%lo(GPB.impprt.title),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	mov	1,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]

	! block 173
.L405:
	sethi	%hi(.L_cseg2),%l3
	or	%l3,%lo(.L_cseg2),%l3
	sethi	%hi(.L_cseg1),%l5
	or	%l5,%lo(.L_cseg1),%l5
	ld	[%fp-88],%l0
	add	%l0,68,%l2
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	neg	%l0,%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.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	cmp	%l0,3
	ble	.L405
	nop

	! block 174
.L408:
.L404:
	mov	1,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]

	! block 175
.L411:
	sethi	%hi(.L_cseg2),%l3
	or	%l3,%lo(.L_cseg2),%l3
	sethi	%hi(.L_cseg1),%l5
	or	%l5,%lo(.L_cseg1),%l5
	ld	[%fp-88],%l0
	add	%l0,108,%l2
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	neg	%l0,%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.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	cmp	%l0,2
	ble	.L411
	nop

	! block 176
.L414:
.L410:
	mov	1,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]

	! block 177
.L417:
	sethi	%hi(.L_cseg2),%l3
	or	%l3,%lo(.L_cseg2),%l3
	sethi	%hi(.L_cseg1),%l5
	or	%l5,%lo(.L_cseg1),%l5
	ld	[%fp-88],%l0
	add	%l0,24,%l2
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	neg	%l0,%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.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	cmp	%l0,3
	ble	.L417
	nop

	! block 178
.L420:
.L416:
	mov	1,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]

	! block 179
.L423:
	sethi	%hi(.L_cseg2),%l3
	or	%l3,%lo(.L_cseg2),%l3
	sethi	%hi(.L_cseg1),%l5
	or	%l5,%lo(.L_cseg1),%l5
	ld	[%fp-88],%l0
	add	%l0,100,%l2
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	neg	%l0,%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.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	cmp	%l0,8
	ble	.L423
	nop

	! block 180
.L426:
.L422:
	call	__e_wsfe
	nop

	! block 181
.L400:

!  296	     1 ,(TITLE(17-I),I=1,3),(TITLE(27-I),I=1,2)
!  297	     2 ,(TITLE(6-I),I=1,3),(TITLE(25-I),I=1,8)
!  298	      IF(ICNT) GO TO 33

	sethi	%hi(GPB.impprt.icnt),%l0
	or	%l0,%lo(GPB.impprt.icnt),%l0
	ld	[%l0+0],%l0
	cmp	%l0,%g0
	be	.L427
	nop

	! block 182
.L428:
	ba	.L429
	nop

	! block 183
.L427:

!  299	      PSEL23 = PSEL + 23

	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+4],%l0
	add	%l0,23,%l1
	sethi	%hi(GPB.impprt.psel23),%l0
	or	%l0,%lo(GPB.impprt.psel23),%l0
	st	%l1,[%l0+0]

!  300	      DO 22 I=PSEL,PSEL23

	sethi	%hi(GPB.impprt.psel23),%l0
	or	%l0,%lo(GPB.impprt.psel23),%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-160]
	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+4],%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l1
	ld	[%fp-160],%l0
	cmp	%l1,%l0
	bg	.L431
	nop

	! block 184
.L435:
.L432:

!  301	      DO 22 J=1,14

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

	! block 185
.L437:

!  302	      IF(IFLIP.EQ.0) COUNT = QPLUS(1,J,I)

	sethi	%hi(GPB.impprt.iflip),%l0
	or	%l0,%lo(GPB.impprt.iflip),%l0
	ld	[%l0+0],%l0
	cmp	%l0,0
	bne	.L440
	nop

	! block 186
.L441:
	ld	[%fp-92],%l0
	add	%l0,4,%l4
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%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
	fstoi	%f2,%f2
	st	%f2,[%fp-172]
	ld	[%fp-172],%l1
	sethi	%hi(GPB.impprt.count),%l0
	or	%l0,%lo(GPB.impprt.count),%l0
	st	%l1,[%l0+0]

	! block 187
.L440:

!  303	      IF(IFLIP.EQ.1) COUNT = QPLUS(1,15-J,I)

	sethi	%hi(GPB.impprt.iflip),%l0
	or	%l0,%lo(GPB.impprt.iflip),%l0
	ld	[%l0+0],%l0
	cmp	%l0,1
	bne	.L442
	nop

	! block 188
.L443:
	ld	[%fp-92],%l0
	add	%l0,124,%l3
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,1,%l1
	sub	%l2,%l1,%l2
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l1
	sub	%l2,%l1,%l0
	sll	%l0,3,%l1
	add	%l3,%l1,%l0
	ld	[%l0+0],%f2
	fstoi	%f2,%f2
	st	%f2,[%fp-172]
	ld	[%fp-172],%l1
	sethi	%hi(GPB.impprt.count),%l0
	or	%l0,%lo(GPB.impprt.count),%l0
	st	%l1,[%l0+0]

	! block 189
.L442:
.L430:

!  304	   22 PCNT(1,J,I) = HEXOCT(COUNT,2)

	sethi	%hi(GPB.impprt.count),%l0
	or	%l0,%lo(GPB.impprt.count),%l0
	sethi	%hi(.L_cseg4),%l1
	or	%l1,%lo(.L_cseg4),%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	hexoct_
	nop
	mov	%o0,%l5
	ld	[%fp-96],%l0
	add	%l0,4,%l4
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%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	%l5,[%l0+0]
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	cmp	%l0,14
	ble	.L437
	nop

	! block 190
.L444:
.L436:
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l1
	ld	[%fp-160],%l0
	cmp	%l1,%l0
	ble	.L432
	nop

	! block 191
.L445:
.L431:

!  305	      DO 44 I=1,21

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

	! block 192
.L448:

!  306	      DO 44 J=1,8

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

	! block 193
.L452:

!  307	      IF(IFLIP.EQ.0) COUNT = QMINUS(9-J,I)

	sethi	%hi(GPB.impprt.iflip),%l0
	or	%l0,%lo(GPB.impprt.iflip),%l0
	ld	[%l0+0],%l0
	cmp	%l0,0
	bne	.L455
	nop

	! block 194
.L456:
	ld	[%fp-100],%l0
	add	%l0,36,%l3
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,3,%l2
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l1
	sub	%l2,%l1,%l0
	sll	%l0,2,%l1
	add	%l3,%l1,%l0
	ld	[%l0+0],%f2
	fstoi	%f2,%f2
	st	%f2,[%fp-172]
	ld	[%fp-172],%l1
	sethi	%hi(GPB.impprt.count),%l0
	or	%l0,%lo(GPB.impprt.count),%l0
	st	%l1,[%l0+0]

	! block 195
.L455:

!  308	      IF(IFLIP.EQ.1) COUNT = QMINUS(J,I)

	sethi	%hi(GPB.impprt.iflip),%l0
	or	%l0,%lo(GPB.impprt.iflip),%l0
	ld	[%l0+0],%l0
	cmp	%l0,1
	bne	.L457
	nop

	! block 196
.L458:
	ld	[%fp-100],%l3
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l2
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,3,%l1
	add	%l2,%l1,%l0
	sll	%l0,2,%l1
	add	%l3,%l1,%l0
	ld	[%l0+0],%f2
	fstoi	%f2,%f2
	st	%f2,[%fp-172]
	ld	[%fp-172],%l1
	sethi	%hi(GPB.impprt.count),%l0
	or	%l0,%lo(GPB.impprt.count),%l0
	st	%l1,[%l0+0]

	! block 197
.L457:
.L446:

!  309	   44 ECNT(J,I) = HEXOCT(COUNT,2)

	sethi	%hi(GPB.impprt.count),%l0
	or	%l0,%lo(GPB.impprt.count),%l0
	sethi	%hi(.L_cseg4),%l1
	or	%l1,%lo(.L_cseg4),%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	hexoct_
	nop
	mov	%o0,%l4
	ld	[%fp-104],%l3
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l2
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,3,%l1
	add	%l2,%l1,%l0
	sll	%l0,2,%l1
	add	%l3,%l1,%l0
	st	%l4,[%l0+0]
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	cmp	%l0,8
	ble	.L452
	nop

	! block 198
.L459:
.L451:
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	cmp	%l0,21
	ble	.L448
	nop

	! block 199
.L460:
.L447:

!  310	      N = 0

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

!  311	      DO 55 I=PSEL,PSEL23

	sethi	%hi(GPB.impprt.psel23),%l0
	or	%l0,%lo(GPB.impprt.psel23),%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-164]
	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+4],%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l1
	ld	[%fp-164],%l0
	cmp	%l1,%l0
	bg	.L462
	nop

	! block 200
.L466:
.L463:

!  312	      WRITE(IK,895) I,(PCNT(1,J,I),J=1,4),PCNT(1,8,I)

	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.468+8),%l0
	or	%l0,%lo(GPB.impprt.IO.468+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.468+24),%l0
	or	%l0,%lo(GPB.impprt.IO.468+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.468),%l0
	or	%l0,%lo(GPB.impprt.IO.468),%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.impprt.i),%l2
	or	%l2,%lo(GPB.impprt.i),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	mov	1,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]

	! block 201
.L471:
	sethi	%hi(.L_cseg0),%l5
	or	%l5,%lo(.L_cseg0),%l5
	sethi	%hi(.L_cseg1),%l6
	or	%l6,%lo(.L_cseg1),%l6
	ld	[%fp-96],%l0
	add	%l0,4,%l4
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%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
	mov	4,%l1
	mov	%l5,%o0
	mov	%l6,%o1
	mov	%l0,%o2
	mov	%l1,%o3
	call	__do_f_out_nv
	nop
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	cmp	%l0,4
	ble	.L471
	nop

	! block 202
.L474:
.L470:
	sethi	%hi(.L_cseg0),%l5
	or	%l5,%lo(.L_cseg0),%l5
	sethi	%hi(.L_cseg1),%l6
	or	%l6,%lo(.L_cseg1),%l6
	ld	[%fp-96],%l0
	add	%l0,68,%l3
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,7,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%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
	mov	12,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]

	! block 203
.L477:
	sethi	%hi(.L_cseg0),%l5
	or	%l5,%lo(.L_cseg0),%l5
	sethi	%hi(.L_cseg1),%l6
	or	%l6,%lo(.L_cseg1),%l6
	ld	[%fp-96],%l0
	add	%l0,4,%l4
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%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
	mov	4,%l1
	mov	%l5,%o0
	mov	%l6,%o1
	mov	%l0,%o2
	mov	%l1,%o3
	call	__do_f_out_nv
	nop
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	cmp	%l0,14
	ble	.L477
	nop

	! block 204
.L480:
.L476:
	call	__e_wsfe
	nop

!  313	     1  ,(PCNT(1,J,I),J=12,14)
!  314	      IF(N.LE.20) WRITE(IK,894) N,(ECNT(J,N+1),J=1,8)

	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	ld	[%l0+0],%l0
	cmp	%l0,20
	bg	.L481
	nop

	! block 205
.L482:
	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.484+8),%l0
	or	%l0,%lo(GPB.impprt.IO.484+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.484+24),%l0
	or	%l0,%lo(GPB.impprt.IO.484+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.484),%l0
	or	%l0,%lo(GPB.impprt.IO.484),%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.impprt.n),%l2
	or	%l2,%lo(GPB.impprt.n),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	mov	9,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]
	sethi	%hi(.L_cseg0),%l3
	or	%l3,%lo(.L_cseg0),%l3
	sethi	%hi(.L_cseg26),%l5
	or	%l5,%lo(.L_cseg26),%l5
	ld	[%fp-104],%l0
	add	%l0,36,%l2
	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	ld	[%l0+0],%l0
	sll	%l0,5,%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 206
.L481:
.L461:

!  315	   55 N=N+1

	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l1
	ld	[%fp-164],%l0
	cmp	%l1,%l0
	ble	.L463
	nop

	! block 207
.L485:
.L462:

!  316	      GO TO 500

	ba	.L117
	nop

	! block 208
.L429:

!  317	   33 CONTINUE


!  318	      N = 0

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

!  319	      PSEL23 = PSEL + 23

	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+4],%l0
	add	%l0,23,%l1
	sethi	%hi(GPB.impprt.psel23),%l0
	or	%l0,%lo(GPB.impprt.psel23),%l0
	st	%l1,[%l0+0]

!  320	      DO 21 I=PSEL,PSEL23

	sethi	%hi(GPB.impprt.psel23),%l0
	or	%l0,%lo(GPB.impprt.psel23),%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-168]
	sethi	%hi(typssn_),%l0
	or	%l0,%lo(typssn_),%l0
	ld	[%l0+4],%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l1
	ld	[%fp-168],%l0
	cmp	%l1,%l0
	bg	.L487
	nop

	! block 209
.L491:
.L488:

!  321	      IF(IFLIP.EQ.0) GO TO 88

	sethi	%hi(GPB.impprt.iflip),%l0
	or	%l0,%lo(GPB.impprt.iflip),%l0
	ld	[%l0+0],%l0
	cmp	%l0,0
	bne	.L492
	nop

	! block 210
.L493:
	ba	.L494
	nop

	! block 211
.L492:

!  322	      WRITE(IK,898) I,(IPLUS(1,15-J,I),J=1,3),IPLUS(1,8,I),IPLUS(1,4,I)

	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.496+8),%l0
	or	%l0,%lo(GPB.impprt.IO.496+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.496+24),%l0
	or	%l0,%lo(GPB.impprt.IO.496+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.496),%l0
	or	%l0,%lo(GPB.impprt.IO.496),%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.impprt.i),%l2
	or	%l2,%lo(GPB.impprt.i),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	mov	1,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]

	! block 212
.L499:
	sethi	%hi(.L_cseg6),%l5
	or	%l5,%lo(.L_cseg6),%l5
	sethi	%hi(.L_cseg1),%l6
	or	%l6,%lo(.L_cseg1),%l6
	ld	[%fp-108],%l0
	add	%l0,124,%l3
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,1,%l1
	sub	%l2,%l1,%l2
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l1
	sub	%l2,%l1,%l0
	sll	%l0,3,%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.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	cmp	%l0,3
	ble	.L499
	nop

	! block 213
.L502:
.L498:
	sethi	%hi(.L_cseg6),%l5
	or	%l5,%lo(.L_cseg6),%l5
	sethi	%hi(.L_cseg1),%l6
	or	%l6,%lo(.L_cseg1),%l6
	ld	[%fp-108],%l0
	add	%l0,68,%l3
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,7,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%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(.L_cseg6),%l5
	or	%l5,%lo(.L_cseg6),%l5
	sethi	%hi(.L_cseg1),%l6
	or	%l6,%lo(.L_cseg1),%l6
	ld	[%fp-108],%l0
	add	%l0,36,%l3
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,7,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%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
	mov	1,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]

	! block 214
.L505:
	sethi	%hi(.L_cseg6),%l5
	or	%l5,%lo(.L_cseg6),%l5
	sethi	%hi(.L_cseg1),%l6
	or	%l6,%lo(.L_cseg1),%l6
	ld	[%fp-108],%l0
	add	%l0,36,%l3
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,1,%l1
	sub	%l2,%l1,%l2
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l1
	sub	%l2,%l1,%l0
	sll	%l0,3,%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.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	cmp	%l0,3
	ble	.L505
	nop

	! block 215
.L508:
.L504:
	call	__e_wsfe
	nop

!  323	     1  ,(IPLUS(1,4-J,I),J=1,3)
!  324	      IF(N.LE.20) WRITE(IK,897) N,(IMINUS(J,N+1),J=1,8)

	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	ld	[%l0+0],%l0
	cmp	%l0,20
	bg	.L509
	nop

	! block 216
.L510:
	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.512+8),%l0
	or	%l0,%lo(GPB.impprt.IO.512+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.512+24),%l0
	or	%l0,%lo(GPB.impprt.IO.512+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.512),%l0
	or	%l0,%lo(GPB.impprt.IO.512),%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.impprt.n),%l2
	or	%l2,%lo(GPB.impprt.n),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	mov	1,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]

	! block 217
.L515:
	sethi	%hi(.L_cseg6),%l5
	or	%l5,%lo(.L_cseg6),%l5
	sethi	%hi(.L_cseg1),%l6
	or	%l6,%lo(.L_cseg1),%l6
	ld	[%fp-112],%l0
	add	%l0,32,%l3
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l2
	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	ld	[%l0+0],%l0
	sll	%l0,3,%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.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	cmp	%l0,8
	ble	.L515
	nop

	! block 218
.L518:
.L514:
	call	__e_wsfe
	nop

	! block 219
.L509:

!  325	      GO TO 21

	ba	.L486
	nop

	! block 220
.L494:

!  326	   88 CONTINUE


!  327	      WRITE(IK,898) I,(IPLUS(1,J,I),J=1,3),IPLUS(1,4,I)

	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.519+8),%l0
	or	%l0,%lo(GPB.impprt.IO.519+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.519+24),%l0
	or	%l0,%lo(GPB.impprt.IO.519+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.519),%l0
	or	%l0,%lo(GPB.impprt.IO.519),%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.impprt.i),%l2
	or	%l2,%lo(GPB.impprt.i),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	mov	1,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]

	! block 221
.L522:
	sethi	%hi(.L_cseg6),%l5
	or	%l5,%lo(.L_cseg6),%l5
	sethi	%hi(.L_cseg1),%l6
	or	%l6,%lo(.L_cseg1),%l6
	ld	[%fp-108],%l0
	add	%l0,4,%l4
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%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
	mov	4,%l1
	mov	%l5,%o0
	mov	%l6,%o1
	mov	%l0,%o2
	mov	%l1,%o3
	call	__do_f_out_nv
	nop
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	cmp	%l0,3
	ble	.L522
	nop

	! block 222
.L525:
.L521:
	sethi	%hi(.L_cseg6),%l5
	or	%l5,%lo(.L_cseg6),%l5
	sethi	%hi(.L_cseg1),%l6
	or	%l6,%lo(.L_cseg1),%l6
	ld	[%fp-108],%l0
	add	%l0,36,%l3
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,7,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%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(.L_cseg6),%l5
	or	%l5,%lo(.L_cseg6),%l5
	sethi	%hi(.L_cseg1),%l6
	or	%l6,%lo(.L_cseg1),%l6
	ld	[%fp-108],%l0
	add	%l0,68,%l3
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,7,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%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
	mov	12,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]

	! block 223
.L528:
	sethi	%hi(.L_cseg6),%l5
	or	%l5,%lo(.L_cseg6),%l5
	sethi	%hi(.L_cseg1),%l6
	or	%l6,%lo(.L_cseg1),%l6
	ld	[%fp-108],%l0
	add	%l0,4,%l4
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%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
	mov	4,%l1
	mov	%l5,%o0
	mov	%l6,%o1
	mov	%l0,%o2
	mov	%l1,%o3
	call	__do_f_out_nv
	nop
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	cmp	%l0,14
	ble	.L528
	nop

	! block 224
.L531:
.L527:
	call	__e_wsfe
	nop

!  328	     1  ,IPLUS(1,8,I),(IPLUS(1,J,I),J=12,14)
!  329	      IF(N.LE.20) WRITE(IK,897) N,(IMINUS(9-J,N+1),J=1,8)

	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	ld	[%l0+0],%l0
	cmp	%l0,20
	bg	.L532
	nop

	! block 225
.L533:
	sethi	%hi(GPB.impprt.ik),%l0
	or	%l0,%lo(GPB.impprt.ik),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.impprt.IO.534+8),%l0
	or	%l0,%lo(GPB.impprt.IO.534+8),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.IO.534+24),%l0
	or	%l0,%lo(GPB.impprt.IO.534+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.impprt.IO.534),%l0
	or	%l0,%lo(GPB.impprt.IO.534),%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.impprt.n),%l2
	or	%l2,%lo(GPB.impprt.n),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	mov	1,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]

	! block 226
.L537:
	sethi	%hi(.L_cseg6),%l5
	or	%l5,%lo(.L_cseg6),%l5
	sethi	%hi(.L_cseg1),%l6
	or	%l6,%lo(.L_cseg1),%l6
	ld	[%fp-112],%l0
	add	%l0,68,%l3
	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	ld	[%l0+0],%l0
	sll	%l0,3,%l2
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l1
	sub	%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.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.j),%l0
	or	%l0,%lo(GPB.impprt.j),%l0
	ld	[%l0+0],%l0
	cmp	%l0,8
	ble	.L537
	nop

	! block 227
.L540:
.L536:
	call	__e_wsfe
	nop

	! block 228
.L532:
.L486:

!  330	   21 N=N+1

	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.n),%l0
	or	%l0,%lo(GPB.impprt.n),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.impprt.i),%l0
	or	%l0,%lo(GPB.impprt.i),%l0
	ld	[%l0+0],%l1
	ld	[%fp-168],%l0
	cmp	%l1,%l0
	ble	.L488
	nop

	! block 229
.L541:
.L487:
.L117:

!  331	  500 RETURN

	ba	.L13
	nop

	! block 230

!  332	C  FORMAT STATEMENTS
!  333	c23456789012345678901234567890123456789012345678901234567890123456789012
!  334	2000  FORMAT (16R,' INP(Z)(B)',T20,8(i3,2X),5X,8(i3,2X)/' INE(Z) ',
!  335	     *T20,8(i3,2X)/' IP(7-0)(Z)(B)',T20,8(i3,2X),5X,8(i3,2X),
!  336	     *' IP(15-8)(Z)(B)',
!  337	     *T20,8(i3,2X),5X,8(i3,2X)///' IP(7-0)(Z)(B)3',T20,8(i3,2X),5X,
!  338	     *8(i3,2X)/' IP(7-0)(Z)(B)7',T20,8(i3,2X),5X,
!  339	     *8(i3,2X)/' IP(7-0)(Z)(B)19',T20,8(i3,2X),5X,
!  340	     *8(i3,2X)/' IP(7-0)(Z)(B)26',T20,8(i3,2X),5X,
!  341	     *8(i3,2X)///' IE(7-0)Z',T20,8(i3,2X)/' IE(15-8)Z',T20,
!  342	     *8(i3,2X)/' IE(7-0)(Z)3',T20,8(i3,2X)/' IE(7-0)(Z)7',T20,
!  343	     *8(i3,2X)/' IE(7-0)(Z)19',T20,8(i3,2X)/' IE(7-0)(Z)26',
!  344	     *T20,8(i3,2X)///)
!  345	2001  format(16R,
!  346	     *' VED(1-16)',T20,8(i3,2X),5X,8(i3,2X)/' VPD(1-16)',T20,
!  347	     *8(i3,2X),5X,8(i3,2X)/' VED(17-26) TP',T20,8(i3,2X),5X,
!  348	     *3(i3,2X)/' VPD(17-26) M18',T20,8(i3,2X),5X,3(i3,2X)/' VEA(1-16)',
!  349	     *T20,8(i3,2X),5X,8(i3,2X)/' VPA(1-16)',T20,8(i3,2X),5X,
!  350	     *8(i3,2X)/' VEA(17-26) TM',T20,8(i3,2X),5X,
!  351	     *3(i3,2X)/' VPA(17-26) M9',T20,8(i3,2X),5X,3(i3,2X)/// 
!  352	     *' SV1 ADT1 X X',T20,4(i3,2X)/' SV2 ADT2 X X',T20,4(i3,2X)// 
!  353	     *' HK WORDS 0 1 2',T20,3(i3,2X))
!  354	 1003 FORMAT (' CALIBRATE SPECTRUM FOR ',3I5, I2,T35,1X
!  355	     1 ,T65,'TYPE=',T72,I3///)
!  356	 1001 FORMAT(' SPIN PERIOD ',F10.3,' SEC.',' SEQCLK ',I10,3X,'AVE S
!  357	     1Q ',F5.3,' SEC. ',3X,' TEMPERATURE',F6.1,' C'
!  358	     2 ,'  NFILL =',I2,2X,'ASOT =',I2,2X,'AEOT =',I2//)
!  359	  999 FORMAT(5X,'MODE ',A4,'  SN',I2,'  PSEL',I3
!  360	     1 ,' TIME =',I4,1X,I3,1X,2I2,1X,F4.1,' SEQCLK= ',I8
!  361	     2  ,' SPIN PERIOD=',F5.2,1X,'NFILL=',I2,1X,'ASOT=',I2,1x,
!  362	     3  'AEOT=',I2,' TYPE= ',I3,2X,2A4,2X,4A4,
!  363	     4  /25X,'EAST',12X,'PROTON',14X,'WEST',40X,'ELECTRON')
!  364	  998 FORMAT( 6X,I2,1X,14F5.0)
!  365	  997 FORMAT(' ',85X,I2,1X,8F5.1)
!  366	  996 FORMAT(9X,14F5.0)
!  367	  995 FORMAT( 6X,I2,1X,16R, 14(2X,i3),$)
!  368	  994 FORMAT(' ',6X,I2,1X,16R, 8(2X,i3))
!  369	  993 FORMAT(16R, 9X,14(2X,i3))
!  370	  992 FORMAT(1X,2A4,14(1X,A4),10X,8(1X,A4))
!  371	  991 FORMAT(' ')
!  372	  990 FORMAT(/,' IMP-',I2,' RUN ',I4,'  ORBIT ',I3
!  373	     1 ,2X,'TRACKING STATION ',I3,'  SPIN PERIOD=',F5.2,2X
!  374	     2  ,' PROC. DATE ',5A4,' VERSION ',I4,' DATE= ', A8)
!  375	  899 FORMAT(5X,'MODE ',A4,'  SN',I2,'  PSEL',I3
!  376	     1 ,' TIME =',I4,1X,I3,1X,2I2,1X,F4.1,' SEQCLK= ',I8
!  377	     2  ,' SPIN PERIOD=',F5.2,1X,'NFILL=',I2,1X,'ASOT=',I2,1x,
!  378	     3  'AEOT=',I2,' TYPE= ',I3,2X,2A4,2X,4A4,
!  379	     4 /30X,'EAST',7X,'PROTON',8X,'WEST',46X,'ELECTRON'/)
!  380	  898 FORMAT(/20X,I2,1X,8F5.1)
!  381	  897 FORMAT(' ',84X,I2,1X,8F5.1)
!  382	  895 FORMAT(/20X,I2,1X,16R, 8(2X,i3),$)
!  383	  894 FORMAT(' ',6X,I2,1X,16R, 8(2X,i3))
!  384	  892 FORMAT(15X,2A4,8(1X,A4),25X,8(1X,A4))
!  385	  796 FORMAT(' IMP-',I2,5X,'RUN= ',I4,5X,'ORBIT= ',I4,55X,'DATE= '
!  386	     1  , A8)
!  387	  795 FORMAT(3X,'ENERGY TABLE',4X,'!',34X,'COUNT  TO CURRENT'
!  388	     1 ,'  CONVERSION  TABLE'/20X,'!'/20X,'!',12X,'FULL COLLECTOR'
!  389	     2 ,',COUNTS(OCTAL),CURRENTS(PICOAMP),ANGULAR SECTOR= 45 DEG.'
!  390	     3 ,' SPIN PERIOD= ',F5.2/1X,33A4)
!  391	  794 FORMAT(' CHAN',2X,'VOLT',2X,'VEL.',3X,'!',8(3A4,A2)/)
!  392	  793 FORMAT(2X,I2,3X,I4,2X,I4,3X,'!',16R, 4(2X,i3,1X,F8.1)
!  393	     1 ,2(2X,i3,1X,F8.2),2(2X,i3,1X,F8.3))
!  394	  792 FORMAT(16R,20X,'!',4(2X,i3,1X,F8.1),2(2X,i3,1X,F8.2),
!  395	     1       2(2X,i3,1X,F8.3))
!  396	  791 FORMAT(33A4)
!  397	  790 FORMAT(33A4)
!  398	      END

.L13:
.L11:
.L12:
	jmp	%i7+8
	restore
	.size	impprt_,(.-impprt_)
	.align	8
	.common	lashed_,600,8
	.common	lascal_,2688,8
	.common	typssn_,16,8
	.common	time_,28,8
	.common	blohed_,16,8
	.common	commsh_,208,8
	.common	proton_,5824,8
	.common	amber_,1344,8

	.section	".data",#alloc,#write
	.align	8
GPB.impprt.IO.37:
	.word	0x1000000
	.skip	4
	.word	GPB.impprt.mydate
	.skip	4
	.word	GPB.impprt.FORMAT.36
	.word	0x8,0x1
	.skip	8
	.type	GPB.impprt.IO.37,#object
	.size	GPB.impprt.IO.37,36
	.align	8
GPB.impprt.IO.60:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.59
	.skip	8
	.type	GPB.impprt.IO.60,#object
	.size	GPB.impprt.IO.60,28
	.align	8
GPB.impprt.IO.62:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.61
	.skip	8
	.type	GPB.impprt.IO.62,#object
	.size	GPB.impprt.IO.62,28
	.align	8
GPB.impprt.IO.64:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.63
	.skip	8
	.type	GPB.impprt.IO.64,#object
	.size	GPB.impprt.IO.64,28
	.align	8
GPB.impprt.IO.83:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.82
	.skip	8
	.type	GPB.impprt.IO.83,#object
	.size	GPB.impprt.IO.83,28
	.align	8
GPB.impprt.IO.95:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.94
	.skip	8
	.type	GPB.impprt.IO.95,#object
	.size	GPB.impprt.IO.95,28
	.align	8
GPB.impprt.IO.104:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.103
	.skip	8
	.type	GPB.impprt.IO.104,#object
	.size	GPB.impprt.IO.104,28
	.align	8
GPB.impprt.IO.106:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.105
	.skip	8
	.type	GPB.impprt.IO.106,#object
	.size	GPB.impprt.IO.106,28
	.align	8
GPB.impprt.IO.107:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.105
	.skip	8
	.type	GPB.impprt.IO.107,#object
	.size	GPB.impprt.IO.107,28
	.align	8
GPB.impprt.IO.108:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.105
	.skip	8
	.type	GPB.impprt.IO.108,#object
	.size	GPB.impprt.IO.108,28
	.align	8
GPB.impprt.IO.166:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.165
	.skip	8
	.type	GPB.impprt.IO.166,#object
	.size	GPB.impprt.IO.166,28
	.align	8
GPB.impprt.IO.200:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.199
	.skip	8
	.type	GPB.impprt.IO.200,#object
	.size	GPB.impprt.IO.200,28
	.align	8
GPB.impprt.IO.202:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.201
	.skip	8
	.type	GPB.impprt.IO.202,#object
	.size	GPB.impprt.IO.202,28
	.align	8
GPB.impprt.IO.213:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.212
	.skip	8
	.type	GPB.impprt.IO.213,#object
	.size	GPB.impprt.IO.213,28
	.align	8
GPB.impprt.IO.215:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.214
	.skip	8
	.type	GPB.impprt.IO.215,#object
	.size	GPB.impprt.IO.215,28
	.align	8
GPB.impprt.IO.224:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.223
	.skip	8
	.type	GPB.impprt.IO.224,#object
	.size	GPB.impprt.IO.224,28
	.align	8
GPB.impprt.IO.230:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.229
	.skip	8
	.type	GPB.impprt.IO.230,#object
	.size	GPB.impprt.IO.230,28
	.align	8
GPB.impprt.IO.234:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.233
	.skip	8
	.type	GPB.impprt.IO.234,#object
	.size	GPB.impprt.IO.234,28
	.align	8
GPB.impprt.IO.250:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.233
	.skip	8
	.type	GPB.impprt.IO.250,#object
	.size	GPB.impprt.IO.250,28
	.align	8
GPB.impprt.IO.303:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.223
	.skip	8
	.type	GPB.impprt.IO.303,#object
	.size	GPB.impprt.IO.303,28
	.align	8
GPB.impprt.IO.305:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.304
	.skip	8
	.type	GPB.impprt.IO.305,#object
	.size	GPB.impprt.IO.305,28
	.align	8
GPB.impprt.IO.315:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.314
	.skip	8
	.type	GPB.impprt.IO.315,#object
	.size	GPB.impprt.IO.315,28
	.align	8
GPB.impprt.IO.317:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.316
	.skip	8
	.type	GPB.impprt.IO.317,#object
	.size	GPB.impprt.IO.317,28
	.align	8
GPB.impprt.IO.336:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.223
	.skip	8
	.type	GPB.impprt.IO.336,#object
	.size	GPB.impprt.IO.336,28
	.align	8
GPB.impprt.IO.338:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.337
	.skip	8
	.type	GPB.impprt.IO.338,#object
	.size	GPB.impprt.IO.338,28
	.align	8
GPB.impprt.IO.349:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.348
	.skip	8
	.type	GPB.impprt.IO.349,#object
	.size	GPB.impprt.IO.349,28
	.align	8
GPB.impprt.IO.358:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.357
	.skip	8
	.type	GPB.impprt.IO.358,#object
	.size	GPB.impprt.IO.358,28
	.align	8
GPB.impprt.IO.367:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.223
	.skip	8
	.type	GPB.impprt.IO.367,#object
	.size	GPB.impprt.IO.367,28
	.align	8
GPB.impprt.IO.368:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.337
	.skip	8
	.type	GPB.impprt.IO.368,#object
	.size	GPB.impprt.IO.368,28
	.align	8
GPB.impprt.IO.377:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.348
	.skip	8
	.type	GPB.impprt.IO.377,#object
	.size	GPB.impprt.IO.377,28
	.align	8
GPB.impprt.IO.384:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.357
	.skip	8
	.type	GPB.impprt.IO.384,#object
	.size	GPB.impprt.IO.384,28
	.align	8
GPB.impprt.IO.395:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.394
	.skip	8
	.type	GPB.impprt.IO.395,#object
	.size	GPB.impprt.IO.395,28
	.align	8
GPB.impprt.IO.399:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.398
	.skip	8
	.type	GPB.impprt.IO.399,#object
	.size	GPB.impprt.IO.399,28
	.align	8
GPB.impprt.IO.402:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.398
	.skip	8
	.type	GPB.impprt.IO.402,#object
	.size	GPB.impprt.IO.402,28
	.align	8
GPB.impprt.IO.468:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.467
	.skip	8
	.type	GPB.impprt.IO.468,#object
	.size	GPB.impprt.IO.468,28
	.align	8
GPB.impprt.IO.484:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.483
	.skip	8
	.type	GPB.impprt.IO.484,#object
	.size	GPB.impprt.IO.484,28
	.align	8
GPB.impprt.IO.496:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.495
	.skip	8
	.type	GPB.impprt.IO.496,#object
	.size	GPB.impprt.IO.496,28
	.align	8
GPB.impprt.IO.512:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.511
	.skip	8
	.type	GPB.impprt.IO.512,#object
	.size	GPB.impprt.IO.512,28
	.align	8
GPB.impprt.IO.519:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.495
	.skip	8
	.type	GPB.impprt.IO.519,#object
	.size	GPB.impprt.IO.519,28
	.align	8
GPB.impprt.IO.534:
	.word	0x1000000
	.skip	12
	.word	GPB.impprt.FORMAT.511
	.skip	8
	.type	GPB.impprt.IO.534,#object
	.size	GPB.impprt.IO.534,28

	.section	".bss",#alloc,#write
	.align	8
GPB.impprt.psel23:
	.skip	4
	.type	GPB.impprt.psel23,#object
	.size	GPB.impprt.psel23,4
	.align	8
GPB.impprt.iqual:
	.skip	4
	.type	GPB.impprt.iqual,#object
	.size	GPB.impprt.iqual,4
	.align	8
GPB.impprt.bount:
	.skip	1024
	.type	GPB.impprt.bount,#object
	.size	GPB.impprt.bount,1024

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

	.section	".bss",#alloc,#write
	.align	8
GPB.impprt.iorb:
	.skip	4
	.type	GPB.impprt.iorb,#object
	.size	GPB.impprt.iorb,4
	.align	8
GPB.impprt.avseq:
	.skip	4
	.type	GPB.impprt.avseq,#object
	.size	GPB.impprt.avseq,4

	.section	".data",#alloc,#write
	.align	4
GPB.impprt.title:
	.word	0x532f4320,0x4c4f4e47,0x20313538,0x20313133
	.word	0x20203638,0x20203339,0x20203238,0x20203137
	.word	0x20202036,0x20202d36,0x202d3137,0x202d3238
	.word	0x202d3339,0x202d3732,0x2d313133,0x2d313538
	.word	0x20203632,0x20203936,0x20313239,0x20313633
	.word	0x2d313633,0x2d313239,0x202d3936,0x202d3636
	.word	0x20203233,0x202d3233
	.type	GPB.impprt.title,#object
	.size	GPB.impprt.title,104

	.section	".bss",#alloc,#write
	.align	8
GPB.impprt.i:
	.skip	4
	.type	GPB.impprt.i,#object
	.size	GPB.impprt.i,4
	.align	8
GPB.impprt.dqual:
	.skip	16
	.type	GPB.impprt.dqual,#object
	.size	GPB.impprt.dqual,16
	.align	8
	.global	GPC.impprtEQUIV1_1
GPC.impprtEQUIV1_1:
	.skip	4
	.type	GPC.impprtEQUIV1_1,#object
	.size	GPC.impprtEQUIV1_1,4

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

	.section	".bss",#alloc,#write
	.align	8
GPB.impprt.ehigh:
	.skip	4
	.type	GPB.impprt.ehigh,#object
	.size	GPB.impprt.ehigh,4
	.align	8
GPB.impprt.icnt:
	.skip	4
	.type	GPB.impprt.icnt,#object
	.size	GPB.impprt.icnt,4
	.align	8
GPB.impprt.mydate:
	.skip	8
	.type	GPB.impprt.mydate,#object
	.size	GPB.impprt.mydate,8

	.section	".data",#alloc,#write
	.align	4
GPB.impprt.b:
	.word	0x4e542043,0x4e542043,0x4e542043,0x4e542043
	.word	0x4e542043,0x4e542043,0x4e542043,0x4e542043
	.type	GPB.impprt.b,#object
	.size	GPB.impprt.b,32
	.align	4
GPB.impprt.first:
	.word	0x1
	.type	GPB.impprt.first,#object
	.size	GPB.impprt.first,4
	.align	4
GPB.impprt.area:
	.word	0x41504552,0x54555245,0x20454646,0x45435449
	.word	0x56452041,0x52454120,0x3d203637,0x20434d2a
	.word	0x2a322020
	.type	GPB.impprt.area,#object
	.size	GPB.impprt.area,36

	.section	".bss",#alloc,#write
	.align	8
GPB.impprt.spec3:
	.skip	1148
	.type	GPB.impprt.spec3,#object
	.size	GPB.impprt.spec3,1148

	.section	".data",#alloc,#write
	.align	4
GPB.impprt.ire:
	.word	0x3,0x5,0x7,0x9
	.word	0xb,0xd,0xf,0x11
	.word	0x4,0x6,0x8,0xa
	.word	0xc,0xe,0x10,0x12
	.word	0x73,0x74,0x75,0x76
	.word	0x77,0x78,0x79,0x7a
	.word	0x13,0x15,0x17,0x19
	.word	0x1b,0x1d,0x1f,0x21
	.word	0x14,0x16,0x18,0x1a
	.word	0x1c,0x1e,0x20,0x22
	.word	0x23,0x25,0x27,0x29
	.word	0x2b,0x2d,0x2f,0x31
	.word	0x24,0x26,0x28,0x2a
	.word	0x2c,0x2e,0x30,0x32
	.word	0x33,0x35,0x37,0x39
	.word	0x3b,0x3d,0x3f,0x41
	.word	0x34,0x36,0x38,0x3a
	.word	0x3c,0x3e,0x40,0x42
	.word	0x43,0x45,0x47,0x49
	.word	0x4b,0x4d,0x4f,0x51
	.word	0x44,0x46,0x48,0x4a
	.word	0x4c,0x4e,0x50,0x52
	.word	0x63,0x65,0x67,0x69
	.word	0x6b,0x6d,0x6f,0x71
	.word	0x64,0x66,0x68,0x6a
	.word	0x6c,0x6e,0x70,0x72
	.word	0x53,0x55,0x57,0x59
	.word	0x5b,0x5d,0x5f,0x61
	.word	0x54,0x56,0x58,0x5a
	.word	0x5c,0x5e,0x60,0x62
	.word	0x7b,0x7c,0x7d,0x7e
	.word	0x7f,0x80,0x81,0x82
	.word	0x83,0x84,0x85,0x86
	.word	0x87,0x88,0x89,0x8a
	.word	0x8b,0x8c,0x8d,0x8e
	.word	0x8f,0x90,0x91,0x92
	.word	0x93,0x94,0x95,0x96
	.word	0x97,0x98,0x99,0x9a
	.word	0xa3,0xa4,0xa5,0xa6
	.word	0xa7,0xa8,0xa9,0xaa
	.word	0x9b,0x9c,0x9d,0x9e
	.word	0x9f,0xa0,0xa1,0xa2
	.word	0xab,0xad,0xaf,0xb1
	.word	0xb3,0xb5,0xb7,0xb9
	.word	0xbb,0xbd,0xbf,0xc1
	.word	0xc3,0xc5,0xc7,0xc9
	.word	0xe5,0xe7,0xe9,0xeb
	.word	0xed,0xef,0xf1,0xf3
	.word	0xf5,0xf7,0xf9,0xfb
	.word	0xfd,0xff,0x101,0x103
	.word	0xcb,0xcd,0xcf,0xd1
	.word	0xd3,0xd5,0xd7,0xd9
	.word	0xdb,0xdd,0xdf,0x105
	.word	0x107,0x109,0x10b,0x10d
	.word	0x10f,0x111,0x113,0x115
	.word	0x117,0x11a,0xac,0xae
	.word	0xb0,0xb2,0xb4,0xb6
	.word	0xb8,0xba,0xbc,0xbe
	.word	0xc0,0xc2,0xc4,0xc6
	.word	0xc8,0xca,0xe6,0xe8
	.word	0xea,0xec,0xee,0xf0
	.word	0xf2,0xf4,0xf6,0xf8
	.word	0xfa,0xfc,0xfe,0x100
	.word	0x102,0x104,0xcc,0xce
	.word	0xd0,0xd2,0xd4,0xd6
	.word	0xd8,0xda,0xdc,0xde
	.word	0xe0,0x106,0x108,0x10a
	.word	0x10c,0x10e,0x110,0x112
	.word	0x114,0x116,0x118,0x119
	.word	0x11b,0x11c,0x11d,0x11e
	.word	0xe1,0xe2,0xe3,0xe4
	.skip	4
	.word	0x1,0x2
	.type	GPB.impprt.ire,#object
	.size	GPB.impprt.ire,1148

	.section	".bss",#alloc,#write
	.align	8
GPB.impprt.procdt:
	.skip	20
	.type	GPB.impprt.procdt,#object
	.size	GPB.impprt.procdt,20
	.align	8
GPB.impprt.ifile:
	.skip	4
	.type	GPB.impprt.ifile,#object
	.size	GPB.impprt.ifile,4
	.align	8
GPB.impprt.j:
	.skip	4
	.type	GPB.impprt.j,#object
	.size	GPB.impprt.j,4

	.section	".data",#alloc,#write
	.align	4
GPB.impprt.ams:
	.word	0x1
	.type	GPB.impprt.ams,#object
	.size	GPB.impprt.ams,4
	.align	4
GPB.impprt.aqual:
	.word	0x4e4f5420,0x45584345,0x4c4c454e,0x54202020
	.type	GPB.impprt.aqual,#object
	.size	GPB.impprt.aqual,16
	.align	4
GPB.impprt.model:
	.word	0x20544d53,0x4e544d53,0x20414d53
	.type	GPB.impprt.model,#object
	.size	GPB.impprt.model,12
	.align	4
GPB.impprt.eangle:
	.word	0x454c4543,0x54524f4e,0x20414e47,0x554c4152
	.word	0x20534543,0x544f5220,0x53495a45,0x53203d20
	.word	0x33332e37,0x352c3235,0x2e333120,0x44454752
	.word	0x45455320
	.type	GPB.impprt.eangle,#object
	.size	GPB.impprt.eangle,52

	.section	".bss",#alloc,#write
	.align	8
GPB.impprt.n:
	.skip	4
	.type	GPB.impprt.n,#object
	.size	GPB.impprt.n,4
	.align	8
GPB.impprt.howhot:
	.skip	4
	.type	GPB.impprt.howhot,#object
	.size	GPB.impprt.howhot,4

	.section	".data",#alloc,#write
	.align	4
GPB.impprt.vbar:
	.word	0x4b,0x57,0x62,0x6a
	.word	0x75,0x82,0x90,0x9b
	.word	0xb0,0xc3,0xd9,0xf0
	.word	0x10a,0x127,0x147,0x16b
	.word	0x192,0x1be,0x1ee,0x224
	.word	0x25f,0x2a1,0x2ea,0x33b
	.word	0x395,0x3f9,0x467
	.type	GPB.impprt.vbar,#object
	.size	GPB.impprt.vbar,108
	.align	4
GPB.impprt.c:
	.word	0x55525245,0x55525245,0x55525245,0x55525245
	.word	0x55525245,0x55525245,0x55525245,0x55525245
	.type	GPB.impprt.c,#object
	.size	GPB.impprt.c,32
	.align	4
GPB.impprt.jbit:
	.word	0x42495420,0x44524f50
	.type	GPB.impprt.jbit,#object
	.size	GPB.impprt.jbit,8
	.align	4
GPB.impprt.volt:
	.word	0x1c,0x26,0x30,0x38
	.word	0x44,0x54,0x67,0x78
	.word	0x9b,0xbf,0xeb,0x121
	.word	0x163,0x1b4,0x218,0x293
	.word	0x329,0x3e3,0x4c6,0x5de
	.word	0x735,0x8db,0xae2,0xd5f
	.word	0x106d,0x142f,0x18cc
	.type	GPB.impprt.volt,#object
	.size	GPB.impprt.volt,108

	.section	".bss",#alloc,#write
	.align	8
GPB.impprt.phigh:
	.skip	4
	.type	GPB.impprt.phigh,#object
	.size	GPB.impprt.phigh,4
	.align	8
GPB.impprt.picoam:
	.skip	1024
	.type	GPB.impprt.picoam,#object
	.size	GPB.impprt.picoam,1024

	.section	".data",#alloc,#write
	.align	4
GPB.impprt.pangle:
	.word	0x50524f54,0x4f4e2041,0x4e47554c,0x41522053
	.word	0x4543544f,0x52205349,0x5a455320,0x3d203435
	.word	0x2e302c31,0x312e3235,0x2c34302e,0x36382044
	.word	0x45475245,0x45532020
	.type	GPB.impprt.pangle,#object
	.size	GPB.impprt.pangle,56

	.section	".bss",#alloc,#write
	.align	8
GPB.impprt.count:
	.skip	4
	.type	GPB.impprt.count,#object
	.size	GPB.impprt.count,4
	.align	8
GPB.impprt.k:
	.skip	4
	.type	GPB.impprt.k,#object
	.size	GPB.impprt.k,4
	.align	8
GPB.impprt.spin:
	.skip	4
	.type	GPB.impprt.spin,#object
	.size	GPB.impprt.spin,4

	.section	".data",#alloc,#write
	.align	4
GPB.impprt.blank:
	.word	0x20202020
	.type	GPB.impprt.blank,#object
	.size	GPB.impprt.blank,4

	.section	".bss",#alloc,#write
	.align	8
GPB.impprt.ibit:
	.skip	8
	.type	GPB.impprt.ibit,#object
	.size	GPB.impprt.ibit,8
	.align	8
GPB.impprt.itoday:
	.skip	12
	.type	GPB.impprt.itoday,#object
	.size	GPB.impprt.itoday,12
	.align	8
GPB.impprt.ik:
	.skip	4
	.type	GPB.impprt.ik,#object
	.size	GPB.impprt.ik,4
	.align	8
GPB.impprt.lrec:
	.skip	4
	.type	GPB.impprt.lrec,#object
	.size	GPB.impprt.lrec,4

	.section	".data",#alloc,#write
	.align	4
GPB.impprt.d:
	.word	0x4e544e54,0x4e544e54,0x4e544e54,0x4e544e54
	.type	GPB.impprt.d,#object
	.size	GPB.impprt.d,16

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

	.section	".data",#alloc,#write
	.align	4
GPB.impprt.dash:
	.word	0x2d2d2d2d,0x2d2d2d2d,0x2d2d2d2d,0x2d2d2d2d
	.word	0x2d2d2d2d,0x2d2d2d2d,0x2d2d2d2d,0x2d2d2d2d
	.word	0x2d2d2d2d,0x2d2d2d2d,0x2d2d2d2d,0x2d2d2d2d
	.word	0x2d2d2d2d,0x2d2d2d2d,0x2d2d2d2d,0x2d2d2d2d
	.word	0x2d2d2d2d,0x2d2d2d2d,0x2d2d2d2d,0x2d2d2d2d
	.word	0x2d2d2d2d,0x2d2d2d2d,0x2d2d2d2d,0x2d2d2d2d
	.word	0x2d2d2d2d,0x2d2d2d2d,0x2d2d2d2d,0x2d2d2d2d
	.word	0x2d2d2d2d,0x2d2d2d2d,0x2d2d2d2d,0x2d2d2d2d
	.word	0x2d2d2d2d
	.type	GPB.impprt.dash,#object
	.size	GPB.impprt.dash,132

	.section	".bss",#alloc,#write
	.align	8
GPB.impprt.iflip:
	.skip	4
	.type	GPB.impprt.iflip,#object
	.size	GPB.impprt.iflip,4
	.align	8
GPB.impprt.pcnt:
	.skip	2912
	.type	GPB.impprt.pcnt,#object
	.size	GPB.impprt.pcnt,2912
	.align	8
GPB.impprt.ichan:
	.skip	4
	.type	GPB.impprt.ichan,#object
	.size	GPB.impprt.ichan,4
	.align	8
GPB.impprt.ltype:
	.skip	4
	.type	GPB.impprt.ltype,#object
	.size	GPB.impprt.ltype,4
	.align	8
GPB.impprt.ecnt:
	.skip	672
	.type	GPB.impprt.ecnt,#object
	.size	GPB.impprt.ecnt,672
	.align	8
GPB.impprt.mode:
	.skip	4
	.type	GPB.impprt.mode,#object
	.size	GPB.impprt.mode,4

	.section	".data",#alloc,#write
	.align	4
GPB.impprt.a:
	.word	0x20434f55,0x20434f55,0x20434f55,0x20434f55
	.word	0x20434f55,0x20434f55,0x20434f55,0x20434f55
	.type	GPB.impprt.a,#object
	.size	GPB.impprt.a,32

	.section	".bss",#alloc,#write
	.align	8
GPB.impprt.imp:
	.skip	4
	.type	GPB.impprt.imp,#object
	.size	GPB.impprt.imp,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:
	.word	0x14
	.type	.L_cseg3,#object
	.size	.L_cseg3,4
	.align	4
.L_cseg4:
	.word	0x2
	.type	.L_cseg4,#object
	.size	.L_cseg4,4
	.align	4
.L_cseg5:
	.word	0x42340000
	.type	.L_cseg5,#object
	.size	.L_cseg5,4
	.align	4
.L_cseg6:
	.word	0x6
	.type	.L_cseg6,#object
	.size	.L_cseg6,4
	.align	4
.L_cseg7:
	.word	0x21
	.type	.L_cseg7,#object
	.size	.L_cseg7,4
	.align	4
.L_cseg8:
	.word	0x9
	.type	.L_cseg8,#object
	.size	.L_cseg8,4
	.align	4
.L_cseg9:
	.word	0xe
	.type	.L_cseg9,#object
	.size	.L_cseg9,4
	.align	4
.L_cseg10:
	.word	0x45c80000
	.type	.L_cseg10,#object
	.size	.L_cseg10,4
	.align	4
.L_cseg11:
	.word	0x5
	.type	.L_cseg11,#object
	.size	.L_cseg11,4
	.align	4
.L_cseg12:
	.word	0x3727c5ac
	.type	.L_cseg12,#object
	.size	.L_cseg12,4
	.align	4
.L_cseg13:
	.word	0xc2200000
	.type	.L_cseg13,#object
	.size	.L_cseg13,4
	.align	4
.L_cseg14:
	.word	0x3f0e38e3
	.type	.L_cseg14,#object
	.size	.L_cseg14,4
	.align	4
.L_cseg15:
	.word	0x3ed0fabe
	.type	.L_cseg15,#object
	.size	.L_cseg15,4
	.align	4
.L_cseg16:
	.word	0xc1a00000
	.type	.L_cseg16,#object
	.size	.L_cseg16,4
	.align	4
.L_cseg17:
	.word	0x3f3ca1af
	.type	.L_cseg17,#object
	.size	.L_cseg17,4
	.align	4
.L_cseg18:
	.word	0x41a00000
	.type	.L_cseg18,#object
	.size	.L_cseg18,4
	.align	4
.L_cseg19:
	.word	0x3fedb6dd
	.type	.L_cseg19,#object
	.size	.L_cseg19,4
	.align	4
.L_cseg20:
	.word	0x42400000
	.type	.L_cseg20,#object
	.size	.L_cseg20,4
	.align	4
.L_cseg21:
	.word	0x42c80000
	.type	.L_cseg21,#object
	.size	.L_cseg21,4
	.align	4
.L_cseg22:
	.word	0xa8
	.type	.L_cseg22,#object
	.size	.L_cseg22,4
	.align	4
.L_cseg23:
	.word	0x77
	.type	.L_cseg23,#object
	.size	.L_cseg23,4
	.align	4
.L_cseg24:
	.word	0x4
	.type	.L_cseg24,#object
	.size	.L_cseg24,4
	.align	4
.L_cseg25:
	.word	0x18
	.type	.L_cseg25,#object
	.size	.L_cseg25,4
	.align	4
.L_cseg26:
	.word	0x8
	.type	.L_cseg26,#object
	.size	.L_cseg26,4
	.align	4
.L_cseg27:
	.word	0xb
	.type	.L_cseg27,#object
	.size	.L_cseg27,4

	.section	".data",#alloc,#write
	.align	4
GPB.impprt.FORMAT.36:
	.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.impprt.FORMAT.36,#object
	.size	GPB.impprt.FORMAT.36,192
	.align	4
GPB.impprt.CONSTANT.542:
	.ascii	" INP(Z)(B)"
	.skip	2
	.type	GPB.impprt.CONSTANT.542,#object
	.size	GPB.impprt.CONSTANT.542,12
	.align	4
GPB.impprt.CONSTANT.543:
	.ascii	" INE(Z) "
	.skip	4
	.type	GPB.impprt.CONSTANT.543,#object
	.size	GPB.impprt.CONSTANT.543,12
	.align	4
GPB.impprt.CONSTANT.544:
	.ascii	" IP(7-0)(Z)(B)"
	.skip	2
	.type	GPB.impprt.CONSTANT.544,#object
	.size	GPB.impprt.CONSTANT.544,16
	.align	4
GPB.impprt.CONSTANT.545:
	.ascii	" IP(15-8)(Z)(B)"
	.skip	5
	.type	GPB.impprt.CONSTANT.545,#object
	.size	GPB.impprt.CONSTANT.545,20
	.align	4
GPB.impprt.CONSTANT.546:
	.ascii	" IP(7-0)(Z)(B)3"
	.skip	5
	.type	GPB.impprt.CONSTANT.546,#object
	.size	GPB.impprt.CONSTANT.546,20
	.align	4
GPB.impprt.CONSTANT.547:
	.ascii	" IP(7-0)(Z)(B)7"
	.skip	5
	.type	GPB.impprt.CONSTANT.547,#object
	.size	GPB.impprt.CONSTANT.547,20
	.align	4
GPB.impprt.CONSTANT.548:
	.ascii	" IP(7-0)(Z)(B)19"
	.skip	4
	.type	GPB.impprt.CONSTANT.548,#object
	.size	GPB.impprt.CONSTANT.548,20
	.align	4
GPB.impprt.CONSTANT.549:
	.ascii	" IP(7-0)(Z)(B)26"
	.skip	4
	.type	GPB.impprt.CONSTANT.549,#object
	.size	GPB.impprt.CONSTANT.549,20
	.align	4
GPB.impprt.CONSTANT.550:
	.ascii	" IE(7-0)Z"
	.skip	3
	.type	GPB.impprt.CONSTANT.550,#object
	.size	GPB.impprt.CONSTANT.550,12
	.align	4
GPB.impprt.CONSTANT.551:
	.ascii	" IE(15-8)Z"
	.skip	2
	.type	GPB.impprt.CONSTANT.551,#object
	.size	GPB.impprt.CONSTANT.551,12
	.align	4
GPB.impprt.CONSTANT.552:
	.ascii	" IE(7-0)(Z)3"
	.skip	4
	.type	GPB.impprt.CONSTANT.552,#object
	.size	GPB.impprt.CONSTANT.552,16
	.align	4
GPB.impprt.CONSTANT.553:
	.ascii	" IE(7-0)(Z)7"
	.skip	4
	.type	GPB.impprt.CONSTANT.553,#object
	.size	GPB.impprt.CONSTANT.553,16
	.align	4
GPB.impprt.CONSTANT.554:
	.ascii	" IE(7-0)(Z)19"
	.skip	3
	.type	GPB.impprt.CONSTANT.554,#object
	.size	GPB.impprt.CONSTANT.554,16
	.align	4
GPB.impprt.CONSTANT.555:
	.ascii	" IE(7-0)(Z)26"
	.skip	3
	.type	GPB.impprt.CONSTANT.555,#object
	.size	GPB.impprt.CONSTANT.555,16
	.align	4
GPB.impprt.FORMAT.212:
	.word	0x1
	.skip	12
	.word	0x21,0x10
	.skip	8
	.word	0xc,0xa
	.word	GPB.impprt.CONSTANT.542
	.skip	4
	.word	0xf,0x14,0x1
	.skip	4
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x4
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x4,0x5
	.skip	8
	.word	0x6,0x8
	.skip	8
	.word	0x1,0xb
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x5
	.skip	12
	.word	0xc,0x8
	.word	GPB.impprt.CONSTANT.543
	.skip	4
	.word	0xf,0x14,0x1
	.skip	4
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x14
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x5
	.skip	12
	.word	0xc,0xe
	.word	GPB.impprt.CONSTANT.544
	.skip	4
	.word	0xf,0x14,0x1
	.skip	4
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x1d
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x4,0x5
	.skip	8
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x24
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0xc,0xf
	.word	GPB.impprt.CONSTANT.545
	.skip	4
	.word	0xf,0x14,0x1
	.skip	4
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x2c
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x4,0x5
	.skip	8
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x33
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x5
	.skip	12
	.word	0x5
	.skip	12
	.word	0x5
	.skip	12
	.word	0xc,0xf
	.word	GPB.impprt.CONSTANT.546
	.skip	4
	.word	0xf,0x14,0x1
	.skip	4
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x3e
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x4,0x5
	.skip	8
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x45
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x5
	.skip	12
	.word	0xc,0xf
	.word	GPB.impprt.CONSTANT.547
	.skip	4
	.word	0xf,0x14,0x1
	.skip	4
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x4e
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x4,0x5
	.skip	8
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x55
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x5
	.skip	12
	.word	0xc,0x10
	.word	GPB.impprt.CONSTANT.548
	.skip	4
	.word	0xf,0x14,0x1
	.skip	4
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x5e
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x4,0x5
	.skip	8
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x65
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x5
	.skip	12
	.word	0xc,0x10
	.word	GPB.impprt.CONSTANT.549
	.skip	4
	.word	0xf,0x14,0x1
	.skip	4
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x6e
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x4,0x5
	.skip	8
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x75
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x5
	.skip	12
	.word	0x5
	.skip	12
	.word	0x5
	.skip	12
	.word	0xc,0x9
	.word	GPB.impprt.CONSTANT.550
	.skip	4
	.word	0xf,0x14,0x1
	.skip	4
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x80
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x5
	.skip	12
	.word	0xc,0xa
	.word	GPB.impprt.CONSTANT.551
	.skip	4
	.word	0xf,0x14,0x1
	.skip	4
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x89
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x5
	.skip	12
	.word	0xc,0xc
	.word	GPB.impprt.CONSTANT.552
	.skip	4
	.word	0xf,0x14,0x1
	.skip	4
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x92
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x5
	.skip	12
	.word	0xc,0xc
	.word	GPB.impprt.CONSTANT.553
	.skip	4
	.word	0xf,0x14,0x1
	.skip	4
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x9b
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x5
	.skip	12
	.word	0xc,0xd
	.word	GPB.impprt.CONSTANT.554
	.skip	4
	.word	0xf,0x14,0x1
	.skip	4
	.word	0x6,0x8
	.skip	8
	.word	0x1,0xa4
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x5
	.skip	12
	.word	0xc,0xd
	.word	GPB.impprt.CONSTANT.555
	.skip	4
	.word	0xf,0x14,0x1
	.skip	4
	.word	0x6,0x8
	.skip	8
	.word	0x1,0xad
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x5
	.skip	12
	.word	0x5
	.skip	12
	.word	0x5
	.skip	12
	.word	0x2,0xad
	.skip	8
	.type	GPB.impprt.FORMAT.212,#object
	.size	GPB.impprt.FORMAT.212,2928
	.align	4
GPB.impprt.CONSTANT.556:
	.ascii	" VED(1-16)"
	.skip	2
	.type	GPB.impprt.CONSTANT.556,#object
	.size	GPB.impprt.CONSTANT.556,12
	.align	4
GPB.impprt.CONSTANT.557:
	.ascii	" VPD(1-16)"
	.skip	2
	.type	GPB.impprt.CONSTANT.557,#object
	.size	GPB.impprt.CONSTANT.557,12
	.align	4
GPB.impprt.CONSTANT.558:
	.ascii	" VED(17-26) TP"
	.skip	2
	.type	GPB.impprt.CONSTANT.558,#object
	.size	GPB.impprt.CONSTANT.558,16
	.align	4
GPB.impprt.CONSTANT.559:
	.ascii	" VPD(17-26) M18"
	.skip	5
	.type	GPB.impprt.CONSTANT.559,#object
	.size	GPB.impprt.CONSTANT.559,20
	.align	4
GPB.impprt.CONSTANT.560:
	.ascii	" VEA(1-16)"
	.skip	2
	.type	GPB.impprt.CONSTANT.560,#object
	.size	GPB.impprt.CONSTANT.560,12
	.align	4
GPB.impprt.CONSTANT.561:
	.ascii	" VPA(1-16)"
	.skip	2
	.type	GPB.impprt.CONSTANT.561,#object
	.size	GPB.impprt.CONSTANT.561,12
	.align	4
GPB.impprt.CONSTANT.562:
	.ascii	" VEA(17-26) TM"
	.skip	2
	.type	GPB.impprt.CONSTANT.562,#object
	.size	GPB.impprt.CONSTANT.562,16
	.align	4
GPB.impprt.CONSTANT.563:
	.ascii	" VPA(17-26) M9"
	.skip	2
	.type	GPB.impprt.CONSTANT.563,#object
	.size	GPB.impprt.CONSTANT.563,16
	.align	4
GPB.impprt.CONSTANT.564:
	.ascii	" SV1 ADT1 X X"
	.skip	3
	.type	GPB.impprt.CONSTANT.564,#object
	.size	GPB.impprt.CONSTANT.564,16
	.align	4
GPB.impprt.CONSTANT.565:
	.ascii	" SV2 ADT2 X X"
	.skip	3
	.type	GPB.impprt.CONSTANT.565,#object
	.size	GPB.impprt.CONSTANT.565,16
	.align	4
GPB.impprt.CONSTANT.566:
	.ascii	" HK WORDS 0 1 2"
	.skip	5
	.type	GPB.impprt.CONSTANT.566,#object
	.size	GPB.impprt.CONSTANT.566,20
	.align	4
GPB.impprt.FORMAT.214:
	.word	0x1
	.skip	12
	.word	0x21,0x10
	.skip	8
	.word	0xc,0xa
	.word	GPB.impprt.CONSTANT.556
	.skip	4
	.word	0xf,0x14,0x1
	.skip	4
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x4
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x4,0x5
	.skip	8
	.word	0x6,0x8
	.skip	8
	.word	0x1,0xb
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x5
	.skip	12
	.word	0xc,0xa
	.word	GPB.impprt.CONSTANT.557
	.skip	4
	.word	0xf,0x14,0x1
	.skip	4
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x14
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x4,0x5
	.skip	8
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x1b
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x5
	.skip	12
	.word	0xc,0xe
	.word	GPB.impprt.CONSTANT.558
	.skip	4
	.word	0xf,0x14,0x1
	.skip	4
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x24
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x4,0x5
	.skip	8
	.word	0x6,0x3
	.skip	8
	.word	0x1,0x2b
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x5
	.skip	12
	.word	0xc,0xf
	.word	GPB.impprt.CONSTANT.559
	.skip	4
	.word	0xf,0x14,0x1
	.skip	4
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x34
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x4,0x5
	.skip	8
	.word	0x6,0x3
	.skip	8
	.word	0x1,0x3b
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x5
	.skip	12
	.word	0xc,0xa
	.word	GPB.impprt.CONSTANT.560
	.skip	4
	.word	0xf,0x14,0x1
	.skip	4
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x44
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x4,0x5
	.skip	8
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x4b
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x5
	.skip	12
	.word	0xc,0xa
	.word	GPB.impprt.CONSTANT.561
	.skip	4
	.word	0xf,0x14,0x1
	.skip	4
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x54
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x4,0x5
	.skip	8
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x5b
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x5
	.skip	12
	.word	0xc,0xe
	.word	GPB.impprt.CONSTANT.562
	.skip	4
	.word	0xf,0x14,0x1
	.skip	4
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x64
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x4,0x5
	.skip	8
	.word	0x6,0x3
	.skip	8
	.word	0x1,0x6b
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x5
	.skip	12
	.word	0xc,0xe
	.word	GPB.impprt.CONSTANT.563
	.skip	4
	.word	0xf,0x14,0x1
	.skip	4
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x74
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x4,0x5
	.skip	8
	.word	0x6,0x3
	.skip	8
	.word	0x1,0x7b
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x5
	.skip	12
	.word	0x5
	.skip	12
	.word	0x5
	.skip	12
	.word	0xc,0xd
	.word	GPB.impprt.CONSTANT.564
	.skip	4
	.word	0xf,0x14,0x1
	.skip	4
	.word	0x6,0x4
	.skip	8
	.word	0x1,0x86
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x5
	.skip	12
	.word	0xc,0xd
	.word	GPB.impprt.CONSTANT.565
	.skip	4
	.word	0xf,0x14,0x1
	.skip	4
	.word	0x6,0x4
	.skip	8
	.word	0x1,0x8f
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x5
	.skip	12
	.word	0x5
	.skip	12
	.word	0xc,0xf
	.word	GPB.impprt.CONSTANT.566
	.skip	4
	.word	0xf,0x14,0x1
	.skip	4
	.word	0x6,0x3
	.skip	8
	.word	0x1,0x99
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x2,0x99
	.skip	8
	.type	GPB.impprt.FORMAT.214,#object
	.size	GPB.impprt.FORMAT.214,2560
	.align	4
GPB.impprt.CONSTANT.567:
	.ascii	" CALIBRATE SPECTRUM FOR "
	.skip	4
	.type	GPB.impprt.CONSTANT.567,#object
	.size	GPB.impprt.CONSTANT.567,28
	.align	4
GPB.impprt.CONSTANT.568:
	.ascii	"TYPE="
	.skip	3
	.type	GPB.impprt.CONSTANT.568,#object
	.size	GPB.impprt.CONSTANT.568,8
	.align	4
GPB.impprt.FORMAT.201:
	.word	0x1
	.skip	12
	.word	0xc,0x18
	.word	GPB.impprt.CONSTANT.567
	.skip	4
	.word	0x6,0x3
	.skip	8
	.word	0x7,0x5,0x1
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x2,0x1
	.skip	4
	.word	0xf,0x23,0x1
	.skip	4
	.word	0x4,0x1
	.skip	8
	.word	0xf,0x41,0x1
	.skip	4
	.word	0xc,0x5
	.word	GPB.impprt.CONSTANT.568
	.skip	4
	.word	0xf,0x48,0x1
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x5
	.skip	12
	.word	0x5
	.skip	12
	.word	0x5
	.skip	12
	.word	0x2
	.skip	12
	.type	GPB.impprt.FORMAT.201,#object
	.size	GPB.impprt.FORMAT.201,272
	.align	4
GPB.impprt.CONSTANT.569:
	.ascii	" SPIN PERIOD "
	.skip	3
	.type	GPB.impprt.CONSTANT.569,#object
	.size	GPB.impprt.CONSTANT.569,16
	.align	4
GPB.impprt.CONSTANT.570:
	.ascii	" SEC."
	.skip	3
	.type	GPB.impprt.CONSTANT.570,#object
	.size	GPB.impprt.CONSTANT.570,8
	.align	4
GPB.impprt.CONSTANT.571:
	.ascii	" SEQCLK "
	.skip	4
	.type	GPB.impprt.CONSTANT.571,#object
	.size	GPB.impprt.CONSTANT.571,12
	.align	4
GPB.impprt.CONSTANT.572:
	.ascii	"AVE S     Q "
	.skip	4
	.type	GPB.impprt.CONSTANT.572,#object
	.size	GPB.impprt.CONSTANT.572,16
	.align	4
GPB.impprt.CONSTANT.573:
	.ascii	" SEC. "
	.skip	2
	.type	GPB.impprt.CONSTANT.573,#object
	.size	GPB.impprt.CONSTANT.573,8
	.align	4
GPB.impprt.CONSTANT.574:
	.ascii	" TEMPERATURE"
	.skip	4
	.type	GPB.impprt.CONSTANT.574,#object
	.size	GPB.impprt.CONSTANT.574,16
	.align	4
GPB.impprt.CONSTANT.575:
	.ascii	" C"
	.skip	2
	.type	GPB.impprt.CONSTANT.575,#object
	.size	GPB.impprt.CONSTANT.575,4
	.align	4
GPB.impprt.CONSTANT.576:
	.ascii	"  NFILL ="
	.skip	3
	.type	GPB.impprt.CONSTANT.576,#object
	.size	GPB.impprt.CONSTANT.576,12
	.align	4
GPB.impprt.CONSTANT.577:
	.ascii	"ASOT ="
	.skip	2
	.type	GPB.impprt.CONSTANT.577,#object
	.size	GPB.impprt.CONSTANT.577,8
	.align	4
GPB.impprt.CONSTANT.578:
	.ascii	"AEOT ="
	.skip	2
	.type	GPB.impprt.CONSTANT.578,#object
	.size	GPB.impprt.CONSTANT.578,8
	.align	4
GPB.impprt.FORMAT.199:
	.word	0x1
	.skip	12
	.word	0xc,0xd
	.word	GPB.impprt.CONSTANT.569
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x17,0xa,0x3
	.skip	4
	.word	0xc,0x5
	.word	GPB.impprt.CONSTANT.570
	.skip	4
	.word	0xc,0x8
	.word	GPB.impprt.CONSTANT.571
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0xa,0x1
	.skip	4
	.word	0x4,0x3
	.skip	8
	.word	0xc,0xc
	.word	GPB.impprt.CONSTANT.572
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x17,0x5,0x3
	.skip	4
	.word	0xc,0x6
	.word	GPB.impprt.CONSTANT.573
	.skip	4
	.word	0x4,0x3
	.skip	8
	.word	0xc,0xc
	.word	GPB.impprt.CONSTANT.574
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x17,0x6,0x1
	.skip	4
	.word	0xc,0x2
	.word	GPB.impprt.CONSTANT.575
	.skip	4
	.word	0xc,0x9
	.word	GPB.impprt.CONSTANT.576
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x2,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0xc,0x6
	.word	GPB.impprt.CONSTANT.577
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x2,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0xc,0x6
	.word	GPB.impprt.CONSTANT.578
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x2,0x1
	.skip	4
	.word	0x5
	.skip	12
	.word	0x5
	.skip	12
	.word	0x2
	.skip	12
	.type	GPB.impprt.FORMAT.199,#object
	.size	GPB.impprt.FORMAT.199,512
	.align	4
GPB.impprt.CONSTANT.579:
	.ascii	"MODE "
	.skip	3
	.type	GPB.impprt.CONSTANT.579,#object
	.size	GPB.impprt.CONSTANT.579,8
	.align	4
GPB.impprt.CONSTANT.580:
	.ascii	"  SN"
	.skip	4
	.type	GPB.impprt.CONSTANT.580,#object
	.size	GPB.impprt.CONSTANT.580,8
	.align	4
GPB.impprt.CONSTANT.581:
	.ascii	"  PSEL"
	.skip	2
	.type	GPB.impprt.CONSTANT.581,#object
	.size	GPB.impprt.CONSTANT.581,8
	.align	4
GPB.impprt.CONSTANT.582:
	.ascii	" TIME ="
	.skip	5
	.type	GPB.impprt.CONSTANT.582,#object
	.size	GPB.impprt.CONSTANT.582,12
	.align	4
GPB.impprt.CONSTANT.583:
	.ascii	" SEQCLK= "
	.skip	3
	.type	GPB.impprt.CONSTANT.583,#object
	.size	GPB.impprt.CONSTANT.583,12
	.align	4
GPB.impprt.CONSTANT.584:
	.ascii	" SPIN PERIOD="
	.skip	3
	.type	GPB.impprt.CONSTANT.584,#object
	.size	GPB.impprt.CONSTANT.584,16
	.align	4
GPB.impprt.CONSTANT.585:
	.ascii	"NFILL="
	.skip	2
	.type	GPB.impprt.CONSTANT.585,#object
	.size	GPB.impprt.CONSTANT.585,8
	.align	4
GPB.impprt.CONSTANT.586:
	.ascii	"ASOT="
	.skip	3
	.type	GPB.impprt.CONSTANT.586,#object
	.size	GPB.impprt.CONSTANT.586,8
	.align	4
GPB.impprt.CONSTANT.587:
	.ascii	"AEOT="
	.skip	3
	.type	GPB.impprt.CONSTANT.587,#object
	.size	GPB.impprt.CONSTANT.587,8
	.align	4
GPB.impprt.CONSTANT.588:
	.ascii	" TYPE= "
	.skip	5
	.type	GPB.impprt.CONSTANT.588,#object
	.size	GPB.impprt.CONSTANT.588,12
	.align	4
GPB.impprt.CONSTANT.589:
	.ascii	"EAST"
	.skip	4
	.type	GPB.impprt.CONSTANT.589,#object
	.size	GPB.impprt.CONSTANT.589,8
	.align	4
GPB.impprt.CONSTANT.590:
	.ascii	"PROTON"
	.skip	2
	.type	GPB.impprt.CONSTANT.590,#object
	.size	GPB.impprt.CONSTANT.590,8
	.align	4
GPB.impprt.CONSTANT.591:
	.ascii	"WEST"
	.skip	4
	.type	GPB.impprt.CONSTANT.591,#object
	.size	GPB.impprt.CONSTANT.591,8
	.align	4
GPB.impprt.CONSTANT.592:
	.ascii	"ELECTRON"
	.skip	4
	.type	GPB.impprt.CONSTANT.592,#object
	.size	GPB.impprt.CONSTANT.592,12
	.align	4
GPB.impprt.FORMAT.229:
	.word	0x1
	.skip	12
	.word	0x4,0x5
	.skip	8
	.word	0xc,0x5
	.word	GPB.impprt.CONSTANT.579
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x20,0x4
	.skip	8
	.word	0xc,0x4
	.word	GPB.impprt.CONSTANT.580
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x2,0x1
	.skip	4
	.word	0xc,0x6
	.word	GPB.impprt.CONSTANT.581
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0xc,0x7
	.word	GPB.impprt.CONSTANT.582
	.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,0x3,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	0x6,0x1
	.skip	8
	.word	0x17,0x4,0x1
	.skip	4
	.word	0xc,0x9
	.word	GPB.impprt.CONSTANT.583
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x8,0x1
	.skip	4
	.word	0xc,0xd
	.word	GPB.impprt.CONSTANT.584
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x17,0x5,0x2
	.skip	4
	.word	0x4,0x1
	.skip	8
	.word	0xc,0x6
	.word	GPB.impprt.CONSTANT.585
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x2,0x1
	.skip	4
	.word	0x4,0x1
	.skip	8
	.word	0xc,0x5
	.word	GPB.impprt.CONSTANT.586
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x2,0x1
	.skip	4
	.word	0x4,0x1
	.skip	8
	.word	0xc,0x5
	.word	GPB.impprt.CONSTANT.587
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x2,0x1
	.skip	4
	.word	0xc,0x7
	.word	GPB.impprt.CONSTANT.588
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x6,0x2
	.skip	8
	.word	0x20,0x4
	.skip	8
	.word	0x4,0x2
	.skip	8
	.word	0x6,0x4
	.skip	8
	.word	0x20,0x4
	.skip	8
	.word	0x5
	.skip	12
	.word	0x4,0x19
	.skip	8
	.word	0xc,0x4
	.word	GPB.impprt.CONSTANT.589
	.skip	4
	.word	0x4,0xc
	.skip	8
	.word	0xc,0x6
	.word	GPB.impprt.CONSTANT.590
	.skip	4
	.word	0x4,0xe
	.skip	8
	.word	0xc,0x4
	.word	GPB.impprt.CONSTANT.591
	.skip	4
	.word	0x4,0x28
	.skip	8
	.word	0xc,0x8
	.word	GPB.impprt.CONSTANT.592
	.skip	4
	.word	0x2
	.skip	12
	.type	GPB.impprt.FORMAT.229,#object
	.size	GPB.impprt.FORMAT.229,960
	.align	4
GPB.impprt.FORMAT.337:
	.word	0x1
	.skip	12
	.word	0x4,0x6
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x2,0x1
	.skip	4
	.word	0x4,0x1
	.skip	8
	.word	0x6,0xe
	.skip	8
	.word	0x17,0x5
	.skip	8
	.word	0x2
	.skip	12
	.type	GPB.impprt.FORMAT.337,#object
	.size	GPB.impprt.FORMAT.337,128
	.align	4
GPB.impprt.CONSTANT.593:
	.ascii	" "
	.skip	3
	.type	GPB.impprt.CONSTANT.593,#object
	.size	GPB.impprt.CONSTANT.593,4
	.align	4
GPB.impprt.FORMAT.348:
	.word	0x1
	.skip	12
	.word	0xc,0x1
	.word	GPB.impprt.CONSTANT.593
	.skip	4
	.word	0x4,0x55
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x2,0x1
	.skip	4
	.word	0x4,0x1
	.skip	8
	.word	0x6,0x8
	.skip	8
	.word	0x17,0x5,0x1
	.skip	4
	.word	0x2
	.skip	12
	.type	GPB.impprt.FORMAT.348,#object
	.size	GPB.impprt.FORMAT.348,144
	.align	4
GPB.impprt.FORMAT.357:
	.word	0x1
	.skip	12
	.word	0x4,0x9
	.skip	8
	.word	0x6,0xe
	.skip	8
	.word	0x17,0x5
	.skip	8
	.word	0x2
	.skip	12
	.type	GPB.impprt.FORMAT.357,#object
	.size	GPB.impprt.FORMAT.357,80
	.align	4
GPB.impprt.FORMAT.304:
	.word	0x1
	.skip	12
	.word	0x4,0x6
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x2,0x1
	.skip	4
	.word	0x4,0x1
	.skip	8
	.word	0x21,0x10
	.skip	8
	.word	0x6,0xe
	.skip	8
	.word	0x1,0x6
	.skip	8
	.word	0x4,0x2
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x3
	.skip	12
	.word	0x22
	.skip	12
	.word	0x2,0x6
	.skip	8
	.type	GPB.impprt.FORMAT.304,#object
	.size	GPB.impprt.FORMAT.304,224
	.align	4
GPB.impprt.CONSTANT.594:
	.ascii	" "
	.skip	3
	.type	GPB.impprt.CONSTANT.594,#object
	.size	GPB.impprt.CONSTANT.594,4
	.align	4
GPB.impprt.FORMAT.314:
	.word	0x1
	.skip	12
	.word	0xc,0x1
	.word	GPB.impprt.CONSTANT.594
	.skip	4
	.word	0x4,0x6
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x2,0x1
	.skip	4
	.word	0x4,0x1
	.skip	8
	.word	0x21,0x10
	.skip	8
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x7
	.skip	8
	.word	0x4,0x2
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x3
	.skip	12
	.word	0x2,0x7
	.skip	8
	.type	GPB.impprt.FORMAT.314,#object
	.size	GPB.impprt.FORMAT.314,224
	.align	4
GPB.impprt.FORMAT.316:
	.word	0x1
	.skip	12
	.word	0x21,0x10
	.skip	8
	.word	0x4,0x9
	.skip	8
	.word	0x6,0xe
	.skip	8
	.word	0x1,0x3
	.skip	8
	.word	0x4,0x2
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x3
	.skip	12
	.word	0x2,0x3
	.skip	8
	.type	GPB.impprt.FORMAT.316,#object
	.size	GPB.impprt.FORMAT.316,160
	.align	4
GPB.impprt.FORMAT.233:
	.word	0x1
	.skip	12
	.word	0x4,0x1
	.skip	8
	.word	0x6,0x2
	.skip	8
	.word	0x20,0x4
	.skip	8
	.word	0x6,0xe
	.skip	8
	.word	0x1,0x4
	.skip	8
	.word	0x4,0x1
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x20,0x4
	.skip	8
	.word	0x3
	.skip	12
	.word	0x4,0xa
	.skip	8
	.word	0x6,0x8
	.skip	8
	.word	0x1,0xb
	.skip	8
	.word	0x4,0x1
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x20,0x4
	.skip	8
	.word	0x3
	.skip	12
	.word	0x2,0xb
	.skip	8
	.type	GPB.impprt.FORMAT.233,#object
	.size	GPB.impprt.FORMAT.233,288
	.align	4
GPB.impprt.CONSTANT.595:
	.ascii	" "
	.skip	3
	.type	GPB.impprt.CONSTANT.595,#object
	.size	GPB.impprt.CONSTANT.595,4
	.align	4
GPB.impprt.FORMAT.223:
	.word	0x1
	.skip	12
	.word	0xc,0x1
	.word	GPB.impprt.CONSTANT.595
	.skip	4
	.word	0x2
	.skip	12
	.type	GPB.impprt.FORMAT.223,#object
	.size	GPB.impprt.FORMAT.223,48
	.align	4
GPB.impprt.CONSTANT.596:
	.ascii	" IMP-"
	.skip	3
	.type	GPB.impprt.CONSTANT.596,#object
	.size	GPB.impprt.CONSTANT.596,8
	.align	4
GPB.impprt.CONSTANT.597:
	.ascii	" RUN "
	.skip	3
	.type	GPB.impprt.CONSTANT.597,#object
	.size	GPB.impprt.CONSTANT.597,8
	.align	4
GPB.impprt.CONSTANT.598:
	.ascii	"  ORBIT "
	.skip	4
	.type	GPB.impprt.CONSTANT.598,#object
	.size	GPB.impprt.CONSTANT.598,12
	.align	4
GPB.impprt.CONSTANT.599:
	.ascii	"TRACKING STATION "
	.skip	3
	.type	GPB.impprt.CONSTANT.599,#object
	.size	GPB.impprt.CONSTANT.599,20
	.align	4
GPB.impprt.CONSTANT.600:
	.ascii	"  SPIN PERIOD="
	.skip	2
	.type	GPB.impprt.CONSTANT.600,#object
	.size	GPB.impprt.CONSTANT.600,16
	.align	4
GPB.impprt.CONSTANT.601:
	.ascii	" PROC. DATE "
	.skip	4
	.type	GPB.impprt.CONSTANT.601,#object
	.size	GPB.impprt.CONSTANT.601,16
	.align	4
GPB.impprt.CONSTANT.602:
	.ascii	" VERSION "
	.skip	3
	.type	GPB.impprt.CONSTANT.602,#object
	.size	GPB.impprt.CONSTANT.602,12
	.align	4
GPB.impprt.CONSTANT.603:
	.ascii	" DATE= "
	.skip	5
	.type	GPB.impprt.CONSTANT.603,#object
	.size	GPB.impprt.CONSTANT.603,12
	.align	4
GPB.impprt.FORMAT.165:
	.word	0x1
	.skip	12
	.word	0x5
	.skip	12
	.word	0xc,0x5
	.word	GPB.impprt.CONSTANT.596
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x2,0x1
	.skip	4
	.word	0xc,0x5
	.word	GPB.impprt.CONSTANT.597
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x4,0x1
	.skip	4
	.word	0xc,0x8
	.word	GPB.impprt.CONSTANT.598
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0xc,0x11
	.word	GPB.impprt.CONSTANT.599
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0xc,0xe
	.word	GPB.impprt.CONSTANT.600
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x17,0x5,0x2
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0xc,0xc
	.word	GPB.impprt.CONSTANT.601
	.skip	4
	.word	0x6,0x5
	.skip	8
	.word	0x20,0x4
	.skip	8
	.word	0xc,0x9
	.word	GPB.impprt.CONSTANT.602
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x4,0x1
	.skip	4
	.word	0xc,0x7
	.word	GPB.impprt.CONSTANT.603
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x20,0x8
	.skip	8
	.word	0x2
	.skip	12
	.type	GPB.impprt.FORMAT.165,#object
	.size	GPB.impprt.FORMAT.165,464
	.align	4
GPB.impprt.CONSTANT.604:
	.ascii	"MODE "
	.skip	3
	.type	GPB.impprt.CONSTANT.604,#object
	.size	GPB.impprt.CONSTANT.604,8
	.align	4
GPB.impprt.CONSTANT.605:
	.ascii	"  SN"
	.skip	4
	.type	GPB.impprt.CONSTANT.605,#object
	.size	GPB.impprt.CONSTANT.605,8
	.align	4
GPB.impprt.CONSTANT.606:
	.ascii	"  PSEL"
	.skip	2
	.type	GPB.impprt.CONSTANT.606,#object
	.size	GPB.impprt.CONSTANT.606,8
	.align	4
GPB.impprt.CONSTANT.607:
	.ascii	" TIME ="
	.skip	5
	.type	GPB.impprt.CONSTANT.607,#object
	.size	GPB.impprt.CONSTANT.607,12
	.align	4
GPB.impprt.CONSTANT.608:
	.ascii	" SEQCLK= "
	.skip	3
	.type	GPB.impprt.CONSTANT.608,#object
	.size	GPB.impprt.CONSTANT.608,12
	.align	4
GPB.impprt.CONSTANT.609:
	.ascii	" SPIN PERIOD="
	.skip	3
	.type	GPB.impprt.CONSTANT.609,#object
	.size	GPB.impprt.CONSTANT.609,16
	.align	4
GPB.impprt.CONSTANT.610:
	.ascii	"NFILL="
	.skip	2
	.type	GPB.impprt.CONSTANT.610,#object
	.size	GPB.impprt.CONSTANT.610,8
	.align	4
GPB.impprt.CONSTANT.611:
	.ascii	"ASOT="
	.skip	3
	.type	GPB.impprt.CONSTANT.611,#object
	.size	GPB.impprt.CONSTANT.611,8
	.align	4
GPB.impprt.CONSTANT.612:
	.ascii	"AEOT="
	.skip	3
	.type	GPB.impprt.CONSTANT.612,#object
	.size	GPB.impprt.CONSTANT.612,8
	.align	4
GPB.impprt.CONSTANT.613:
	.ascii	" TYPE= "
	.skip	5
	.type	GPB.impprt.CONSTANT.613,#object
	.size	GPB.impprt.CONSTANT.613,12
	.align	4
GPB.impprt.CONSTANT.614:
	.ascii	"EAST"
	.skip	4
	.type	GPB.impprt.CONSTANT.614,#object
	.size	GPB.impprt.CONSTANT.614,8
	.align	4
GPB.impprt.CONSTANT.615:
	.ascii	"PROTON"
	.skip	2
	.type	GPB.impprt.CONSTANT.615,#object
	.size	GPB.impprt.CONSTANT.615,8
	.align	4
GPB.impprt.CONSTANT.616:
	.ascii	"WEST"
	.skip	4
	.type	GPB.impprt.CONSTANT.616,#object
	.size	GPB.impprt.CONSTANT.616,8
	.align	4
GPB.impprt.CONSTANT.617:
	.ascii	"ELECTRON"
	.skip	4
	.type	GPB.impprt.CONSTANT.617,#object
	.size	GPB.impprt.CONSTANT.617,12
	.align	4
GPB.impprt.FORMAT.394:
	.word	0x1
	.skip	12
	.word	0x4,0x5
	.skip	8
	.word	0xc,0x5
	.word	GPB.impprt.CONSTANT.604
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x20,0x4
	.skip	8
	.word	0xc,0x4
	.word	GPB.impprt.CONSTANT.605
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x2,0x1
	.skip	4
	.word	0xc,0x6
	.word	GPB.impprt.CONSTANT.606
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0xc,0x7
	.word	GPB.impprt.CONSTANT.607
	.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,0x3,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	0x6,0x1
	.skip	8
	.word	0x17,0x4,0x1
	.skip	4
	.word	0xc,0x9
	.word	GPB.impprt.CONSTANT.608
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x8,0x1
	.skip	4
	.word	0xc,0xd
	.word	GPB.impprt.CONSTANT.609
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x17,0x5,0x2
	.skip	4
	.word	0x4,0x1
	.skip	8
	.word	0xc,0x6
	.word	GPB.impprt.CONSTANT.610
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x2,0x1
	.skip	4
	.word	0x4,0x1
	.skip	8
	.word	0xc,0x5
	.word	GPB.impprt.CONSTANT.611
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x2,0x1
	.skip	4
	.word	0x4,0x1
	.skip	8
	.word	0xc,0x5
	.word	GPB.impprt.CONSTANT.612
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x2,0x1
	.skip	4
	.word	0xc,0x7
	.word	GPB.impprt.CONSTANT.613
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x6,0x2
	.skip	8
	.word	0x20,0x4
	.skip	8
	.word	0x4,0x2
	.skip	8
	.word	0x6,0x4
	.skip	8
	.word	0x20,0x4
	.skip	8
	.word	0x5
	.skip	12
	.word	0x4,0x1e
	.skip	8
	.word	0xc,0x4
	.word	GPB.impprt.CONSTANT.614
	.skip	4
	.word	0x4,0x7
	.skip	8
	.word	0xc,0x6
	.word	GPB.impprt.CONSTANT.615
	.skip	4
	.word	0x4,0x8
	.skip	8
	.word	0xc,0x4
	.word	GPB.impprt.CONSTANT.616
	.skip	4
	.word	0x4,0x2e
	.skip	8
	.word	0xc,0x8
	.word	GPB.impprt.CONSTANT.617
	.skip	4
	.word	0x5
	.skip	12
	.word	0x2
	.skip	12
	.type	GPB.impprt.FORMAT.394,#object
	.size	GPB.impprt.FORMAT.394,976
	.align	4
GPB.impprt.FORMAT.495:
	.word	0x1
	.skip	12
	.word	0x5
	.skip	12
	.word	0x4,0x14
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x2,0x1
	.skip	4
	.word	0x4,0x1
	.skip	8
	.word	0x6,0x8
	.skip	8
	.word	0x17,0x5,0x1
	.skip	4
	.word	0x2
	.skip	12
	.type	GPB.impprt.FORMAT.495,#object
	.size	GPB.impprt.FORMAT.495,144
	.align	4
GPB.impprt.CONSTANT.618:
	.ascii	" "
	.skip	3
	.type	GPB.impprt.CONSTANT.618,#object
	.size	GPB.impprt.CONSTANT.618,4
	.align	4
GPB.impprt.FORMAT.511:
	.word	0x1
	.skip	12
	.word	0xc,0x1
	.word	GPB.impprt.CONSTANT.618
	.skip	4
	.word	0x4,0x54
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x2,0x1
	.skip	4
	.word	0x4,0x1
	.skip	8
	.word	0x6,0x8
	.skip	8
	.word	0x17,0x5,0x1
	.skip	4
	.word	0x2
	.skip	12
	.type	GPB.impprt.FORMAT.511,#object
	.size	GPB.impprt.FORMAT.511,144
	.align	4
GPB.impprt.FORMAT.467:
	.word	0x1
	.skip	12
	.word	0x5
	.skip	12
	.word	0x4,0x14
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x2,0x1
	.skip	4
	.word	0x4,0x1
	.skip	8
	.word	0x21,0x10
	.skip	8
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x7
	.skip	8
	.word	0x4,0x2
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x3
	.skip	12
	.word	0x22
	.skip	12
	.word	0x2,0x7
	.skip	8
	.type	GPB.impprt.FORMAT.467,#object
	.size	GPB.impprt.FORMAT.467,240
	.align	4
GPB.impprt.CONSTANT.619:
	.ascii	" "
	.skip	3
	.type	GPB.impprt.CONSTANT.619,#object
	.size	GPB.impprt.CONSTANT.619,4
	.align	4
GPB.impprt.FORMAT.483:
	.word	0x1
	.skip	12
	.word	0xc,0x1
	.word	GPB.impprt.CONSTANT.619
	.skip	4
	.word	0x4,0x6
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x2,0x1
	.skip	4
	.word	0x4,0x1
	.skip	8
	.word	0x21,0x10
	.skip	8
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x7
	.skip	8
	.word	0x4,0x2
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x3
	.skip	12
	.word	0x2,0x7
	.skip	8
	.type	GPB.impprt.FORMAT.483,#object
	.size	GPB.impprt.FORMAT.483,224
	.align	4
GPB.impprt.FORMAT.398:
	.word	0x1
	.skip	12
	.word	0x4,0xf
	.skip	8
	.word	0x6,0x2
	.skip	8
	.word	0x20,0x4
	.skip	8
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x4
	.skip	8
	.word	0x4,0x1
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x20,0x4
	.skip	8
	.word	0x3
	.skip	12
	.word	0x4,0x19
	.skip	8
	.word	0x6,0x8
	.skip	8
	.word	0x1,0xb
	.skip	8
	.word	0x4,0x1
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x20,0x4
	.skip	8
	.word	0x3
	.skip	12
	.word	0x2,0xb
	.skip	8
	.type	GPB.impprt.FORMAT.398,#object
	.size	GPB.impprt.FORMAT.398,288
	.align	4
GPB.impprt.CONSTANT.620:
	.ascii	" IMP-"
	.skip	3
	.type	GPB.impprt.CONSTANT.620,#object
	.size	GPB.impprt.CONSTANT.620,8
	.align	4
GPB.impprt.CONSTANT.621:
	.ascii	"RUN= "
	.skip	3
	.type	GPB.impprt.CONSTANT.621,#object
	.size	GPB.impprt.CONSTANT.621,8
	.align	4
GPB.impprt.CONSTANT.622:
	.ascii	"ORBIT= "
	.skip	5
	.type	GPB.impprt.CONSTANT.622,#object
	.size	GPB.impprt.CONSTANT.622,12
	.align	4
GPB.impprt.CONSTANT.623:
	.ascii	"DATE= "
	.skip	2
	.type	GPB.impprt.CONSTANT.623,#object
	.size	GPB.impprt.CONSTANT.623,8
	.align	4
GPB.impprt.FORMAT.59:
	.word	0x1
	.skip	12
	.word	0xc,0x5
	.word	GPB.impprt.CONSTANT.620
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x2,0x1
	.skip	4
	.word	0x4,0x5
	.skip	8
	.word	0xc,0x5
	.word	GPB.impprt.CONSTANT.621
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x4,0x1
	.skip	4
	.word	0x4,0x5
	.skip	8
	.word	0xc,0x7
	.word	GPB.impprt.CONSTANT.622
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x4,0x1
	.skip	4
	.word	0x4,0x37
	.skip	8
	.word	0xc,0x6
	.word	GPB.impprt.CONSTANT.623
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x20,0x8
	.skip	8
	.word	0x2
	.skip	12
	.type	GPB.impprt.FORMAT.59,#object
	.size	GPB.impprt.FORMAT.59,272
	.align	4
GPB.impprt.CONSTANT.624:
	.ascii	"ENERGY TABLE"
	.skip	4
	.type	GPB.impprt.CONSTANT.624,#object
	.size	GPB.impprt.CONSTANT.624,16
	.align	4
GPB.impprt.CONSTANT.625:
	.ascii	"!"
	.skip	3
	.type	GPB.impprt.CONSTANT.625,#object
	.size	GPB.impprt.CONSTANT.625,4
	.align	4
GPB.impprt.CONSTANT.626:
	.ascii	"COUNT  TO CURRENT"
	.skip	3
	.type	GPB.impprt.CONSTANT.626,#object
	.size	GPB.impprt.CONSTANT.626,20
	.align	4
GPB.impprt.CONSTANT.627:
	.ascii	"  CONVERSION  TABLE"
	.skip	5
	.type	GPB.impprt.CONSTANT.627,#object
	.size	GPB.impprt.CONSTANT.627,24
	.align	4
GPB.impprt.CONSTANT.628:
	.ascii	"!"
	.skip	3
	.type	GPB.impprt.CONSTANT.628,#object
	.size	GPB.impprt.CONSTANT.628,4
	.align	4
GPB.impprt.CONSTANT.629:
	.ascii	"!"
	.skip	3
	.type	GPB.impprt.CONSTANT.629,#object
	.size	GPB.impprt.CONSTANT.629,4
	.align	4
GPB.impprt.CONSTANT.630:
	.ascii	"FULL COLLECTOR"
	.skip	2
	.type	GPB.impprt.CONSTANT.630,#object
	.size	GPB.impprt.CONSTANT.630,16
	.align	4
GPB.impprt.CONSTANT.631:
	.ascii	",COUNTS(OCTAL),CURRENTS(PICOAMP),ANGULAR SECTOR= 45 DEG."
	.skip	4
	.type	GPB.impprt.CONSTANT.631,#object
	.size	GPB.impprt.CONSTANT.631,60
	.align	4
GPB.impprt.CONSTANT.632:
	.ascii	" SPIN PERIOD= "
	.skip	2
	.type	GPB.impprt.CONSTANT.632,#object
	.size	GPB.impprt.CONSTANT.632,16
	.align	4
GPB.impprt.FORMAT.61:
	.word	0x1
	.skip	12
	.word	0x4,0x3
	.skip	8
	.word	0xc,0xc
	.word	GPB.impprt.CONSTANT.624
	.skip	4
	.word	0x4,0x4
	.skip	8
	.word	0xc,0x1
	.word	GPB.impprt.CONSTANT.625
	.skip	4
	.word	0x4,0x22
	.skip	8
	.word	0xc,0x11
	.word	GPB.impprt.CONSTANT.626
	.skip	4
	.word	0xc,0x13
	.word	GPB.impprt.CONSTANT.627
	.skip	4
	.word	0x5
	.skip	12
	.word	0x4,0x14
	.skip	8
	.word	0xc,0x1
	.word	GPB.impprt.CONSTANT.628
	.skip	4
	.word	0x5
	.skip	12
	.word	0x4,0x14
	.skip	8
	.word	0xc,0x1
	.word	GPB.impprt.CONSTANT.629
	.skip	4
	.word	0x4,0xc
	.skip	8
	.word	0xc,0xe
	.word	GPB.impprt.CONSTANT.630
	.skip	4
	.word	0xc,0x38
	.word	GPB.impprt.CONSTANT.631
	.skip	4
	.word	0xc,0xe
	.word	GPB.impprt.CONSTANT.632
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x17,0x5,0x2
	.skip	4
	.word	0x5
	.skip	12
	.word	0x4,0x1
	.skip	8
	.word	0x6,0x21
	.skip	8
	.word	0x20,0x4
	.skip	8
	.word	0x2
	.skip	12
	.type	GPB.impprt.FORMAT.61,#object
	.size	GPB.impprt.FORMAT.61,400
	.align	4
GPB.impprt.CONSTANT.633:
	.ascii	" CHAN"
	.skip	3
	.type	GPB.impprt.CONSTANT.633,#object
	.size	GPB.impprt.CONSTANT.633,8
	.align	4
GPB.impprt.CONSTANT.634:
	.ascii	"VOLT"
	.skip	4
	.type	GPB.impprt.CONSTANT.634,#object
	.size	GPB.impprt.CONSTANT.634,8
	.align	4
GPB.impprt.CONSTANT.635:
	.ascii	"VEL."
	.skip	4
	.type	GPB.impprt.CONSTANT.635,#object
	.size	GPB.impprt.CONSTANT.635,8
	.align	4
GPB.impprt.CONSTANT.636:
	.ascii	"!"
	.skip	3
	.type	GPB.impprt.CONSTANT.636,#object
	.size	GPB.impprt.CONSTANT.636,4
	.align	4
GPB.impprt.FORMAT.63:
	.word	0x1
	.skip	12
	.word	0xc,0x5
	.word	GPB.impprt.CONSTANT.633
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0xc,0x4
	.word	GPB.impprt.CONSTANT.634
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0xc,0x4
	.word	GPB.impprt.CONSTANT.635
	.skip	4
	.word	0x4,0x3
	.skip	8
	.word	0xc,0x1
	.word	GPB.impprt.CONSTANT.636
	.skip	4
	.word	0x6,0x8
	.skip	8
	.word	0x1,0x8
	.skip	8
	.word	0x6,0x3
	.skip	8
	.word	0x20,0x4
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x20,0x2
	.skip	8
	.word	0x3
	.skip	12
	.word	0x5
	.skip	12
	.word	0x2,0x8
	.skip	8
	.type	GPB.impprt.FORMAT.63,#object
	.size	GPB.impprt.FORMAT.63,272
	.align	4
GPB.impprt.CONSTANT.637:
	.ascii	"!"
	.skip	3
	.type	GPB.impprt.CONSTANT.637,#object
	.size	GPB.impprt.CONSTANT.637,4
	.align	4
GPB.impprt.FORMAT.82:
	.word	0x1
	.skip	12
	.word	0x4,0x2
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x2,0x1
	.skip	4
	.word	0x4,0x3
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x4,0x1
	.skip	4
	.word	0x4,0x2
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x4,0x1
	.skip	4
	.word	0x4,0x3
	.skip	8
	.word	0xc,0x1
	.word	GPB.impprt.CONSTANT.637
	.skip	4
	.word	0x21,0x10
	.skip	8
	.word	0x6,0x4
	.skip	8
	.word	0x1,0xd
	.skip	8
	.word	0x4,0x2
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x1
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x17,0x8,0x1
	.skip	4
	.word	0x3
	.skip	12
	.word	0x6,0x2
	.skip	8
	.word	0x1,0x16
	.skip	8
	.word	0x4,0x2
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x1
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x17,0x8,0x2
	.skip	4
	.word	0x3
	.skip	12
	.word	0x6,0x2
	.skip	8
	.word	0x1,0x1f
	.skip	8
	.word	0x4,0x2
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x1
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x17,0x8,0x3
	.skip	4
	.word	0x3
	.skip	12
	.word	0x2,0x1f
	.skip	8
	.type	GPB.impprt.FORMAT.82,#object
	.size	GPB.impprt.FORMAT.82,656
	.align	4
GPB.impprt.CONSTANT.638:
	.ascii	"!"
	.skip	3
	.type	GPB.impprt.CONSTANT.638,#object
	.size	GPB.impprt.CONSTANT.638,4
	.align	4
GPB.impprt.FORMAT.94:
	.word	0x1
	.skip	12
	.word	0x21,0x10
	.skip	8
	.word	0x4,0x14
	.skip	8
	.word	0xc,0x1
	.word	GPB.impprt.CONSTANT.638
	.skip	4
	.word	0x6,0x4
	.skip	8
	.word	0x1,0x4
	.skip	8
	.word	0x4,0x2
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x1
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x17,0x8,0x1
	.skip	4
	.word	0x3
	.skip	12
	.word	0x6,0x2
	.skip	8
	.word	0x1,0xd
	.skip	8
	.word	0x4,0x2
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x1
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x17,0x8,0x2
	.skip	4
	.word	0x3
	.skip	12
	.word	0x6,0x2
	.skip	8
	.word	0x1,0x16
	.skip	8
	.word	0x4,0x2
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0x4,0x1
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x17,0x8,0x3
	.skip	4
	.word	0x3
	.skip	12
	.word	0x2,0x16
	.skip	8
	.type	GPB.impprt.FORMAT.94,#object
	.size	GPB.impprt.FORMAT.94,512
	.align	4
GPB.impprt.FORMAT.103:
	.word	0x1
	.skip	12
	.word	0x6,0x21
	.skip	8
	.word	0x20,0x4
	.skip	8
	.word	0x2
	.skip	12
	.type	GPB.impprt.FORMAT.103,#object
	.size	GPB.impprt.FORMAT.103,64
	.align	4
GPB.impprt.FORMAT.105:
	.word	0x1
	.skip	12
	.word	0x6,0x21
	.skip	8
	.word	0x20,0x4
	.skip	8
	.word	0x2
	.skip	12
	.type	GPB.impprt.FORMAT.105,#object
	.size	GPB.impprt.FORMAT.105,64

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