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

	! block 0

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

	! block 1
.L104:
	sethi	%hi(sym_+196),%l0
	or	%l0,%lo(sym_+196),%l0
	st	%l0,[%fp-40]
	sethi	%hi(into_+12),%l0
	or	%l0,%lo(into_+12),%l0
	st	%l0,[%fp-20]
	sethi	%hi(into_-116),%l0
	or	%l0,%lo(into_-116),%l0
	st	%l0,[%fp-32]
	sethi	%hi(GPC.MAINEQUIV1_2),%l0
	or	%l0,%lo(GPC.MAINEQUIV1_2),%l0
	st	%l0,[%fp-24]
	sethi	%hi(GPB.MAIN.lsel-4),%l0
	or	%l0,%lo(GPB.MAIN.lsel-4),%l0
	st	%l0,[%fp-44]
	sethi	%hi(sym_-4),%l0
	or	%l0,%lo(sym_-4),%l0
	st	%l0,[%fp-36]
	sethi	%hi(_BLNK__-8004),%l0
	or	%l0,%lo(_BLNK__-8004),%l0
	st	%l0,[%fp-48]
	sethi	%hi(into_-116),%l0
	or	%l0,%lo(into_-116),%l0
	st	%l0,[%fp-28]

	! block 2
.L11:

! File pltmce.f:
!    1	* Mon Jul 23 15:39:40 EDT 1990 /plas0/h1/pam/src/test pltmce.f
!    2	cMEMBER NAME  pltmce.f 
!    3	C ********THE NAME OF THIS PROGRAM IS PLTMCE********
!    4	C  A PROGRAM TO PLOT IMP TRAJECTORIES FROM ORPT TAPES: THE PLOTS USE
!    5	C  GEOCENTRIC, SOLAR MAGNETOSPHERIC COORDINATES WITH DISTANCES IN
!    6	C  IN EARTH RADII. TWO DIFFERENT WEIGHT PEN LINES ARE USED - IN THE
!    7	C  UPPER PANEL, THE LIGHTER LINE CORRESPONDS TO NEGATIVE VALUES OF
!    8	C  ZGSM; IN THE LOWER PANEL, THE LIGHTER LINE CORRESPONDS TO VALUES
!    9	C  OF XGSM LESS THAN -10. THESE PLOTS ARE DIFFERENT FROM (BUT ARE
!   10	C  RELATED TO) THE PLOTS PRODUCED BY THE PROGRAM PLTTRJ. THE TRAJEC-
!   11	C  TORY PARAMETERS WERE OBTAINED FROM THE MULTI-COORDINATE EPHEMERIS
!   12	C                      (MCE) TAPES.
!   13	      COMMON SEP (2000, 8), J
!   14	      COMMON /SYM/ DAZE(50), IDAZE(50), ND
!   15	      COMMON /INTO/ IMP,IYEAR,IDAY,IHALF,FILL(4),A
!   16	      DIMENSION A(36,144),IA(36,144)
!   17	      character*4 UNIT, mnam1, mnam2
!   18	      EQUIVALENCE (A(1,1), IA(1,1)),(RB(1),COUNT),(RB(2),RES(1))
!   19	      equivalence (fill(4), ifill)
!   20	      INTEGER LANCN, COUNT, RB(4), ifill
!   21	      INTEGER LSEL (8)
!   22	      LOGICAL*4 RES(12)
!   23	      LOGICAL DAYCK
!   24	      LOGICAL EOF, convert
!   25	c     LOGICAL RTALN
!   26	c
!   27	      data LANCN/0/, LSEL/3,4,5,6,7,8,9,10/, unit/'ft12'/, EOF/.FALSE./
!   28	C SET INITIAL VALUES.  J IS INDEX FOR POINTS; ND IS NUMBER OF DAYS IN
!   29	C THE ANCN; AND DAZE(ND) IS LIST OF ACTUAL DAY NUMBERS.
!   30	      call crtmpsg

	call	crtmpsg_
	nop

!   31	c
!   32	      J = 0

	mov	0,%l2
	sethi	%hi(_BLNK__),%l0
	or	%l0,%lo(_BLNK__),%l0
	sethi	%hi(64000),%l1
	or	%l1,%lo(64000),%l1
	st	%l2,[%l0+%l1]

!   33	      NTALLY = 0

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

!   34	      ND = 0

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

!   35	      CALL NUPAGE(8.5, 11.0, 7.0, 10.0, 1.0, 1.0, .FALSE.)

	sethi	%hi(.L_cseg0),%l0
	or	%l0,%lo(.L_cseg0),%l0
	sethi	%hi(.L_cseg1),%l1
	or	%l1,%lo(.L_cseg1),%l1
	sethi	%hi(.L_cseg2),%l2
	or	%l2,%lo(.L_cseg2),%l2
	sethi	%hi(.L_cseg3),%l3
	or	%l3,%lo(.L_cseg3),%l3
	sethi	%hi(.L_cseg4),%l5
	or	%l5,%lo(.L_cseg4),%l5
	sethi	%hi(.L_cseg4),%l6
	or	%l6,%lo(.L_cseg4),%l6
	sethi	%hi(.L_cseg5),%l4
	or	%l4,%lo(.L_cseg5),%l4
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	mov	%l5,%o4
	mov	%l6,%o5
	st	%l4,[%sp+92]
	call	nupage_
	nop

	! block 3
.L20:

!   36	    1 CONTINUE


!   37	      CALL TREADbat(UNIT,IMP,10400)

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

!   38	      CALL TWAIT(UNIT,RB)

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

!   39	      if (ifill .ne. -1) then

	sethi	%hi(into_),%l0
	or	%l0,%lo(into_),%l0
	ld	[%l0+28],%l0
	cmp	%l0,-1
	be	.L21
	nop

	! block 4
.L22:

!   40	        convert = .true.

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

!   41	        nerr = icvtf ( fill(2) , 1 , fill(2) )

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

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

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

	! block 5
.L25:
	sethi	%hi(GPB.MAIN.IO.26),%l0
	or	%l0,%lo(GPB.MAIN.IO.26),%l0
	mov	%l0,%o0
	call	__s_wsle_nv
	nop
	add	%fp,-93,%l0
	sethi	%hi(.L_cseg8),%l1
	or	%l1,%lo(.L_cseg8),%l1
	mov	45,%l2
	mov	45,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__s_copy
	nop
	sethi	%hi(.L_cseg9),%l0
	or	%l0,%lo(.L_cseg9),%l0
	sethi	%hi(.L_cseg7),%l1
	or	%l1,%lo(.L_cseg7),%l1
	add	%fp,-93,%l2
	mov	45,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_l_out
	nop
	call	__e_wsle
	nop

	! block 6
.L24:

!   43	     *  "Real number conversion error of Earth Radius!"
!   44	      else

	ba	.L27
	nop

	! block 7
.L21:

!   45	        convert = .false.

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

!   46	      endif


	! block 8
.L27:

!   47	      IF(RES(1)) GO TO 999

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

	! block 9
.L29:
	ba	.L31
	nop

	! block 10
.L28:

!   48	      IF(RES(2) .OR. RES(3)) GO TO 99

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

	! block 11
.L35:
	ba	.L33
	nop

	! block 12
.L34:
	ld	[%fp-24],%l0
	add	%l0,12,%l0
	ld	[%l0+0],%l0
	cmp	%l0,%g0
	be	.L32
	nop

	! block 13
.L36:
.L33:
	ba	.L37
	nop

	! block 14
.L32:

!   49	      FLIMP = IMP

	sethi	%hi(into_),%l0
	or	%l0,%lo(into_),%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-136]
	ld	[%fp-136],%f2
	fitos	%f2,%f2
	sethi	%hi(GPB.MAIN.flimp),%l0
	or	%l0,%lo(GPB.MAIN.flimp),%l0
	st	%f2,[%l0+0]

!   50	      ISTART = 1

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

!   51	      DAYCK = .FALSE.

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

	! block 15
.L38:

!   52	    6 CONTINUE


!   53	C
!   54	C PUT WANTED DATA INTO SEP ARRAY
!   55	C
!   56	      DO 25 ID = ISTART, 72

	sethi	%hi(GPB.MAIN.istart),%l0
	or	%l0,%lo(GPB.MAIN.istart),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.MAIN.id),%l0
	or	%l0,%lo(GPB.MAIN.id),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.MAIN.id),%l0
	or	%l0,%lo(GPB.MAIN.id),%l0
	ld	[%l0+0],%l0
	cmp	%l0,72
	bg	.L40
	nop

	! block 16
.L44:
.L41:

!   57	C  convert IBM real numbers to IEEE real numbers
!   58	         if (convert) then

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

	! block 17
.L46:

!   59	            nerr = icvtf ( a(2,id), 35, a(2,id))

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

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

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

	! block 18
.L49:
	sethi	%hi(GPB.MAIN.IO.50),%l0
	or	%l0,%lo(GPB.MAIN.IO.50),%l0
	mov	%l0,%o0
	call	__s_wsle_nv
	nop
	add	%fp,-132,%l0
	sethi	%hi(.L_cseg11),%l1
	or	%l1,%lo(.L_cseg11),%l1
	mov	36,%l2
	mov	36,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__s_copy
	nop
	sethi	%hi(.L_cseg9),%l0
	or	%l0,%lo(.L_cseg9),%l0
	sethi	%hi(.L_cseg7),%l1
	or	%l1,%lo(.L_cseg7),%l1
	add	%fp,-132,%l2
	mov	36,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_l_out
	nop
	sethi	%hi(.L_cseg12),%l0
	or	%l0,%lo(.L_cseg12),%l0
	sethi	%hi(.L_cseg7),%l1
	or	%l1,%lo(.L_cseg7),%l1
	sethi	%hi(GPB.MAIN.nerr),%l2
	or	%l2,%lo(GPB.MAIN.nerr),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_l_out
	nop
	call	__e_wsle
	nop

	! block 19
.L48:

!   61	     *        "Number of real # conversion errors =",nerr
!   62	         else

	ba	.L51
	nop

	! block 20
.L45:

!   63	         endif

.L51:

!   64	         IF (A(2,ID) .LE. 0.0)  GO TO 25

	ld	[%fp-28],%l0
	add	%l0,8,%l3
	sethi	%hi(GPB.MAIN.id),%l0
	or	%l0,%lo(GPB.MAIN.id),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,7,%l1
	add	%l2,%l1,%l1
	add	%l3,%l1,%l0
	ld	[%l0+0],%f3
	sethi	%hi(.L_cseg5),%l0
	or	%l0,%lo(.L_cseg5),%l0
	ld	[%l0+0],%f2
	fcmpes	%f3,%f2
	nop
	fbug	.L52
	nop

	! block 21
.L53:
	ba	.L39
	nop

	! block 22
.L52:

!   65	         IANCN = IA(1,ID)

	ld	[%fp-32],%l0
	add	%l0,4,%l3
	sethi	%hi(GPB.MAIN.id),%l0
	or	%l0,%lo(GPB.MAIN.id),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,7,%l1
	add	%l2,%l1,%l1
	add	%l3,%l1,%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.MAIN.iancn),%l0
	or	%l0,%lo(GPB.MAIN.iancn),%l0
	st	%l1,[%l0+0]

!   66	         IF(J .EQ. 0)  LANCN = IANCN

	sethi	%hi(_BLNK__),%l0
	or	%l0,%lo(_BLNK__),%l0
	sethi	%hi(64000),%l1
	or	%l1,%lo(64000),%l1
	ld	[%l0+%l1],%l0
	cmp	%l0,0
	bne	.L55
	nop

	! block 23
.L56:
	sethi	%hi(GPB.MAIN.iancn),%l0
	or	%l0,%lo(GPB.MAIN.iancn),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.MAIN.lancn),%l0
	or	%l0,%lo(GPB.MAIN.lancn),%l0
	st	%l1,[%l0+0]

	! block 24
.L55:

!   67	         IF (IANCN .NE. LANCN)  GO TO 40

	sethi	%hi(GPB.MAIN.iancn),%l0
	or	%l0,%lo(GPB.MAIN.iancn),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.MAIN.lancn),%l0
	or	%l0,%lo(GPB.MAIN.lancn),%l0
	ld	[%l0+0],%l0
	cmp	%l1,%l0
	be	.L57
	nop

	! block 25
.L58:
	ba	.L59
	nop

	! block 26
.L57:

!   68	         IF (DAYCK) GO TO 21

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

	! block 27
.L61:
	ba	.L62
	nop

	! block 28
.L60:

!   69	         IF (IDAY .EQ. IDAYL) GO TO 21

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

	! block 29
.L64:
	ba	.L62
	nop

	! block 30
.L63:

!   70	C NEW DAY
!   71	         ND = ND+1

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

!   72	         DAZE(ND) = IDAY

	sethi	%hi(into_),%l0
	or	%l0,%lo(into_),%l0
	ld	[%l0+8],%l0
	st	%l0,[%fp-136]
	ld	[%fp-136],%f2
	fitos	%f2,%f2
	ld	[%fp-36],%l2
	sethi	%hi(sym_),%l0
	or	%l0,%lo(sym_),%l0
	ld	[%l0+400],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	st	%f2,[%l0+0]

!   73	         IDAYL = IDAY

	sethi	%hi(into_),%l0
	or	%l0,%lo(into_),%l0
	ld	[%l0+8],%l1
	sethi	%hi(GPB.MAIN.idayl),%l0
	or	%l0,%lo(GPB.MAIN.idayl),%l0
	st	%l1,[%l0+0]

!   74	         iyearl = iyear

	sethi	%hi(into_),%l0
	or	%l0,%lo(into_),%l0
	ld	[%l0+4],%l1
	sethi	%hi(GPB.MAIN.iyearl),%l0
	or	%l0,%lo(GPB.MAIN.iyearl),%l0
	st	%l1,[%l0+0]

!   75	         IF(ND .NE. 1) GO TO 20

	sethi	%hi(sym_),%l0
	or	%l0,%lo(sym_),%l0
	ld	[%l0+400],%l0
	cmp	%l0,1
	be	.L66
	nop

	! block 31
.L67:
	ba	.L68
	nop

	! block 32
.L66:

!   76	C GET MONTH NAME AND DAY
!   77	         CALL DATE(IDAY,IYEAR,MDAY1,MNAM1,MNUM)

	sethi	%hi(into_+8),%l0
	or	%l0,%lo(into_+8),%l0
	sethi	%hi(into_+4),%l1
	or	%l1,%lo(into_+4),%l1
	sethi	%hi(GPB.MAIN.mday1),%l2
	or	%l2,%lo(GPB.MAIN.mday1),%l2
	sethi	%hi(GPB.MAIN.mnam1),%l3
	or	%l3,%lo(GPB.MAIN.mnam1),%l3
	sethi	%hi(GPB.MAIN.mnum),%l5
	or	%l5,%lo(GPB.MAIN.mnum),%l5
	mov	4,%l4
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	mov	%l5,%o4
	mov	%l4,%o5
	call	date_
	nop

	! block 33
.L68:

!   78	   20    IDAZE(ND) = J+1

	sethi	%hi(_BLNK__),%l0
	or	%l0,%lo(_BLNK__),%l0
	sethi	%hi(64000),%l1
	or	%l1,%lo(64000),%l1
	ld	[%l0+%l1],%l0
	add	%l0,1,%l3
	ld	[%fp-40],%l2
	sethi	%hi(sym_),%l0
	or	%l0,%lo(sym_),%l0
	ld	[%l0+400],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	st	%l3,[%l0+0]

!   79	         IDAZE(ND+1) = 0

	mov	0,%l3
	ld	[%fp-40],%l0
	add	%l0,4,%l2
	sethi	%hi(sym_),%l0
	or	%l0,%lo(sym_),%l0
	ld	[%l0+400],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	st	%l3,[%l0+0]

!   80	         DAYCK = .TRUE.

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

	! block 34
.L62:

!   81	   21    CONTINUE


!   82	         J = J + 1

	sethi	%hi(_BLNK__),%l0
	or	%l0,%lo(_BLNK__),%l0
	sethi	%hi(64000),%l1
	or	%l1,%lo(64000),%l1
	ld	[%l0+%l1],%l0
	add	%l0,1,%l2
	sethi	%hi(_BLNK__),%l0
	or	%l0,%lo(_BLNK__),%l0
	sethi	%hi(64000),%l1
	or	%l1,%lo(64000),%l1
	st	%l2,[%l0+%l1]

!   83	               DO 23 L=1,8

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

	! block 35
.L72:

!   84	               LL = LSEL(L)

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

!   85	               SEP(J,L) = A(LL,ID)

	ld	[%fp-28],%l4
	sethi	%hi(GPB.MAIN.ll),%l0
	or	%l0,%lo(GPB.MAIN.ll),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.MAIN.id),%l0
	or	%l0,%lo(GPB.MAIN.id),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l2
	sll	%l0,5,%l1
	add	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,2,%l1
	add	%l4,%l1,%l0
	ld	[%l0+0],%f2
	ld	[%fp-48],%l4
	sethi	%hi(_BLNK__),%l0
	or	%l0,%lo(_BLNK__),%l0
	sethi	%hi(64000),%l1
	or	%l1,%lo(64000),%l1
	ld	[%l0+%l1],%l3
	sethi	%hi(GPB.MAIN.l),%l0
	or	%l0,%lo(GPB.MAIN.l),%l0
	ld	[%l0+0],%l0
	sll	%l0,11,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%l2
	sll	%l0,5,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,2,%l1
	add	%l4,%l1,%l0
	st	%f2,[%l0+0]

	! block 36
.L70:

!   86	   23          CONTINUE

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

	! block 37
.L77:
.L71:

!   87	         IF (J .EQ. 2000)  GO TO 40

	sethi	%hi(_BLNK__),%l0
	or	%l0,%lo(_BLNK__),%l0
	sethi	%hi(64000),%l1
	or	%l1,%lo(64000),%l1
	ld	[%l0+%l1],%l0
	cmp	%l0,2000
	bne	.L78
	nop

	! block 38
.L79:
	ba	.L59
	nop

	! block 39
.L78:
.L39:

!   88	   25 CONTINUE

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

	! block 40
.L80:
.L40:

!   89	C
!   90	C              ARRAY 'A' STARTS ON WORD 9 OF THE ORPT TAPE
!   91	C              SEP(1,1) = A(3,1) = (WORD 11 OF ORPT TAPE)
!   92	C              SEP(1,8) = A(10,1) = (WORD 18 OF ORPT TAPE)
!   93	C
!   94	      GO TO 1

	ba	.L20
	nop

	! block 41
.L59:

!   95	   40 CONTINUE


!   96	      iday = idayl

	sethi	%hi(GPB.MAIN.idayl),%l0
	or	%l0,%lo(GPB.MAIN.idayl),%l0
	ld	[%l0+0],%l1
	sethi	%hi(into_),%l0
	or	%l0,%lo(into_),%l0
	st	%l1,[%l0+8]

!   97	      iyear = iyearl

	sethi	%hi(GPB.MAIN.iyearl),%l0
	or	%l0,%lo(GPB.MAIN.iyearl),%l0
	ld	[%l0+0],%l1
	sethi	%hi(into_),%l0
	or	%l0,%lo(into_),%l0
	st	%l1,[%l0+4]

!   98	      IF (J .EQ. 0) GO TO 50

	sethi	%hi(_BLNK__),%l0
	or	%l0,%lo(_BLNK__),%l0
	sethi	%hi(64000),%l1
	or	%l1,%lo(64000),%l1
	ld	[%l0+%l1],%l0
	cmp	%l0,0
	bne	.L81
	nop

	! block 42
.L82:
	ba	.L83
	nop

	! block 43
.L81:

!   99	      CALL DATE(IDAY,IYEAR,MDAY2,MNAM2,MNUM)

	sethi	%hi(into_+8),%l0
	or	%l0,%lo(into_+8),%l0
	sethi	%hi(into_+4),%l1
	or	%l1,%lo(into_+4),%l1
	sethi	%hi(GPB.MAIN.mday2),%l2
	or	%l2,%lo(GPB.MAIN.mday2),%l2
	sethi	%hi(GPB.MAIN.mnam2),%l3
	or	%l3,%lo(GPB.MAIN.mnam2),%l3
	sethi	%hi(GPB.MAIN.mnum),%l5
	or	%l5,%lo(GPB.MAIN.mnum),%l5
	mov	4,%l4
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	mov	%l5,%o4
	mov	%l4,%o5
	call	date_
	nop

!  100	c **  CALL NUPAGE(8.5, 11.0, 7.0, 10.0, 1.0, 1.0, .FALSE.)
!  101	      CALL SYMBOL(0.0,9.5,.21,'IMP ',0.,4)

	sethi	%hi(.L_cseg5),%l0
	or	%l0,%lo(.L_cseg5),%l0
	sethi	%hi(.L_cseg13),%l1
	or	%l1,%lo(.L_cseg13),%l1
	sethi	%hi(.L_cseg14),%l2
	or	%l2,%lo(.L_cseg14),%l2
	sethi	%hi(.L_cseg15),%l3
	or	%l3,%lo(.L_cseg15),%l3
	sethi	%hi(.L_cseg5),%l5
	or	%l5,%lo(.L_cseg5),%l5
	sethi	%hi(.L_cseg16),%l6
	or	%l6,%lo(.L_cseg16),%l6
	mov	4,%l4
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	mov	%l5,%o4
	mov	%l6,%o5
	st	%l4,[%sp+92]
	call	symbol_
	nop

!  102	      CALL NUMBER(999.,999.,-0.,FLIMP,0.,-1)

	sethi	%hi(.L_cseg17),%l0
	or	%l0,%lo(.L_cseg17),%l0
	sethi	%hi(.L_cseg17),%l1
	or	%l1,%lo(.L_cseg17),%l1
	sethi	%hi(.L_cseg18),%l2
	or	%l2,%lo(.L_cseg18),%l2
	sethi	%hi(GPB.MAIN.flimp),%l3
	or	%l3,%lo(GPB.MAIN.flimp),%l3
	sethi	%hi(.L_cseg5),%l5
	or	%l5,%lo(.L_cseg5),%l5
	sethi	%hi(.L_cseg19),%l4
	or	%l4,%lo(.L_cseg19),%l4
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	mov	%l5,%o4
	mov	%l4,%o5
	call	number_
	nop

!  103	      CALL SYMBOL (999., 999.,.21, ' FROM ', 0., 6)

	sethi	%hi(.L_cseg17),%l0
	or	%l0,%lo(.L_cseg17),%l0
	sethi	%hi(.L_cseg17),%l1
	or	%l1,%lo(.L_cseg17),%l1
	sethi	%hi(.L_cseg14),%l2
	or	%l2,%lo(.L_cseg14),%l2
	sethi	%hi(.L_cseg20),%l3
	or	%l3,%lo(.L_cseg20),%l3
	sethi	%hi(.L_cseg5),%l5
	or	%l5,%lo(.L_cseg5),%l5
	sethi	%hi(.L_cseg21),%l6
	or	%l6,%lo(.L_cseg21),%l6
	mov	6,%l4
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	mov	%l5,%o4
	mov	%l6,%o5
	st	%l4,[%sp+92]
	call	symbol_
	nop

!  104	      CALL SYMBOL(999.,999.,-0.,MNAM1 ,0.,4)

	sethi	%hi(.L_cseg17),%l0
	or	%l0,%lo(.L_cseg17),%l0
	sethi	%hi(.L_cseg17),%l1
	or	%l1,%lo(.L_cseg17),%l1
	sethi	%hi(.L_cseg18),%l2
	or	%l2,%lo(.L_cseg18),%l2
	sethi	%hi(GPB.MAIN.mnam1),%l3
	or	%l3,%lo(GPB.MAIN.mnam1),%l3
	sethi	%hi(.L_cseg5),%l5
	or	%l5,%lo(.L_cseg5),%l5
	sethi	%hi(.L_cseg16),%l6
	or	%l6,%lo(.L_cseg16),%l6
	mov	4,%l4
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	mov	%l5,%o4
	mov	%l6,%o5
	st	%l4,[%sp+92]
	call	symbol_
	nop

!  105	      DAYOM = MDAY1

	sethi	%hi(GPB.MAIN.mday1),%l0
	or	%l0,%lo(GPB.MAIN.mday1),%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-136]
	ld	[%fp-136],%f2
	fitos	%f2,%f2
	sethi	%hi(GPB.MAIN.dayom),%l0
	or	%l0,%lo(GPB.MAIN.dayom),%l0
	st	%f2,[%l0+0]

!  106	      CALL NUMBER(999.,999.,-0.,DAYOM, 0.,-1)

	sethi	%hi(.L_cseg17),%l0
	or	%l0,%lo(.L_cseg17),%l0
	sethi	%hi(.L_cseg17),%l1
	or	%l1,%lo(.L_cseg17),%l1
	sethi	%hi(.L_cseg18),%l2
	or	%l2,%lo(.L_cseg18),%l2
	sethi	%hi(GPB.MAIN.dayom),%l3
	or	%l3,%lo(GPB.MAIN.dayom),%l3
	sethi	%hi(.L_cseg5),%l5
	or	%l5,%lo(.L_cseg5),%l5
	sethi	%hi(.L_cseg19),%l4
	or	%l4,%lo(.L_cseg19),%l4
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	mov	%l5,%o4
	mov	%l4,%o5
	call	number_
	nop

!  107	      CALL SYMBOL(999.,999.,-0.,' TO ',0.,4)

	sethi	%hi(.L_cseg17),%l0
	or	%l0,%lo(.L_cseg17),%l0
	sethi	%hi(.L_cseg17),%l1
	or	%l1,%lo(.L_cseg17),%l1
	sethi	%hi(.L_cseg18),%l2
	or	%l2,%lo(.L_cseg18),%l2
	sethi	%hi(.L_cseg22),%l3
	or	%l3,%lo(.L_cseg22),%l3
	sethi	%hi(.L_cseg5),%l5
	or	%l5,%lo(.L_cseg5),%l5
	sethi	%hi(.L_cseg16),%l6
	or	%l6,%lo(.L_cseg16),%l6
	mov	4,%l4
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	mov	%l5,%o4
	mov	%l6,%o5
	st	%l4,[%sp+92]
	call	symbol_
	nop

!  108	      CALL SYMBOL(999.,999.,-0.,MNAM2 ,0.,4)

	sethi	%hi(.L_cseg17),%l0
	or	%l0,%lo(.L_cseg17),%l0
	sethi	%hi(.L_cseg17),%l1
	or	%l1,%lo(.L_cseg17),%l1
	sethi	%hi(.L_cseg18),%l2
	or	%l2,%lo(.L_cseg18),%l2
	sethi	%hi(GPB.MAIN.mnam2),%l3
	or	%l3,%lo(GPB.MAIN.mnam2),%l3
	sethi	%hi(.L_cseg5),%l5
	or	%l5,%lo(.L_cseg5),%l5
	sethi	%hi(.L_cseg16),%l6
	or	%l6,%lo(.L_cseg16),%l6
	mov	4,%l4
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	mov	%l5,%o4
	mov	%l6,%o5
	st	%l4,[%sp+92]
	call	symbol_
	nop

!  109	      DAYOM = MDAY2

	sethi	%hi(GPB.MAIN.mday2),%l0
	or	%l0,%lo(GPB.MAIN.mday2),%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-136]
	ld	[%fp-136],%f2
	fitos	%f2,%f2
	sethi	%hi(GPB.MAIN.dayom),%l0
	or	%l0,%lo(GPB.MAIN.dayom),%l0
	st	%f2,[%l0+0]

!  110	      CALL NUMBER(999.,999.,-0.,DAYOM, 0.,-1)

	sethi	%hi(.L_cseg17),%l0
	or	%l0,%lo(.L_cseg17),%l0
	sethi	%hi(.L_cseg17),%l1
	or	%l1,%lo(.L_cseg17),%l1
	sethi	%hi(.L_cseg18),%l2
	or	%l2,%lo(.L_cseg18),%l2
	sethi	%hi(GPB.MAIN.dayom),%l3
	or	%l3,%lo(GPB.MAIN.dayom),%l3
	sethi	%hi(.L_cseg5),%l5
	or	%l5,%lo(.L_cseg5),%l5
	sethi	%hi(.L_cseg19),%l4
	or	%l4,%lo(.L_cseg19),%l4
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	mov	%l5,%o4
	mov	%l4,%o5
	call	number_
	nop

!  111	      CALL SYMBOL(999.,999.,-0.,' ',0.,1)

	sethi	%hi(.L_cseg17),%l0
	or	%l0,%lo(.L_cseg17),%l0
	sethi	%hi(.L_cseg17),%l1
	or	%l1,%lo(.L_cseg17),%l1
	sethi	%hi(.L_cseg18),%l2
	or	%l2,%lo(.L_cseg18),%l2
	sethi	%hi(.L_cseg23),%l3
	or	%l3,%lo(.L_cseg23),%l3
	sethi	%hi(.L_cseg5),%l5
	or	%l5,%lo(.L_cseg5),%l5
	sethi	%hi(.L_cseg7),%l6
	or	%l6,%lo(.L_cseg7),%l6
	mov	1,%l4
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	mov	%l5,%o4
	mov	%l6,%o5
	st	%l4,[%sp+92]
	call	symbol_
	nop

!  112	      YR = IYEAR + 1900

	sethi	%hi(into_),%l0
	or	%l0,%lo(into_),%l0
	ld	[%l0+4],%l0
	add	%l0,1900,%l0
	st	%l0,[%fp-136]
	ld	[%fp-136],%f2
	fitos	%f2,%f2
	sethi	%hi(GPB.MAIN.yr),%l0
	or	%l0,%lo(GPB.MAIN.yr),%l0
	st	%f2,[%l0+0]

!  113	      CALL NUMBER(999.,999.,-0.,YR,0.,-1)

	sethi	%hi(.L_cseg17),%l0
	or	%l0,%lo(.L_cseg17),%l0
	sethi	%hi(.L_cseg17),%l1
	or	%l1,%lo(.L_cseg17),%l1
	sethi	%hi(.L_cseg18),%l2
	or	%l2,%lo(.L_cseg18),%l2
	sethi	%hi(GPB.MAIN.yr),%l3
	or	%l3,%lo(GPB.MAIN.yr),%l3
	sethi	%hi(.L_cseg5),%l5
	or	%l5,%lo(.L_cseg5),%l5
	sethi	%hi(.L_cseg19),%l4
	or	%l4,%lo(.L_cseg19),%l4
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	mov	%l5,%o4
	mov	%l4,%o5
	call	number_
	nop

!  114	C
!  115	C
!  116	C              VIEW FROM NORTH
!  117	C
!  118	      CALL SETAFF2 (1.0, 5.0)

	sethi	%hi(.L_cseg4),%l0
	or	%l0,%lo(.L_cseg4),%l0
	sethi	%hi(.L_cseg24),%l1
	or	%l1,%lo(.L_cseg24),%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	setaff2_
	nop

!  119	      CALL SETXAX6 (40., -40., 0, 4.0, 8, 4)    

	sethi	%hi(.L_cseg25),%l0
	or	%l0,%lo(.L_cseg25),%l0
	sethi	%hi(.L_cseg26),%l1
	or	%l1,%lo(.L_cseg26),%l1
	sethi	%hi(.L_cseg5),%l2
	or	%l2,%lo(.L_cseg5),%l2
	sethi	%hi(.L_cseg27),%l3
	or	%l3,%lo(.L_cseg27),%l3
	sethi	%hi(.L_cseg28),%l5
	or	%l5,%lo(.L_cseg28),%l5
	sethi	%hi(.L_cseg16),%l4
	or	%l4,%lo(.L_cseg16),%l4
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	mov	%l5,%o4
	mov	%l4,%o5
	call	setxax6_
	nop

!  120	      CALL SETYAX6 (40., -40., 0, 4.0, 8, 4)    

	sethi	%hi(.L_cseg25),%l0
	or	%l0,%lo(.L_cseg25),%l0
	sethi	%hi(.L_cseg26),%l1
	or	%l1,%lo(.L_cseg26),%l1
	sethi	%hi(.L_cseg5),%l2
	or	%l2,%lo(.L_cseg5),%l2
	sethi	%hi(.L_cseg27),%l3
	or	%l3,%lo(.L_cseg27),%l3
	sethi	%hi(.L_cseg28),%l5
	or	%l5,%lo(.L_cseg28),%l5
	sethi	%hi(.L_cseg16),%l4
	or	%l4,%lo(.L_cseg16),%l4
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	mov	%l5,%o4
	mov	%l4,%o5
	call	setyax6_
	nop

!  121	      CALL LABEL6 (4, 'XGSM', 4,'YGSM', 15, 'VIEW FROM NORTH')

	sethi	%hi(.L_cseg16),%l0
	or	%l0,%lo(.L_cseg16),%l0
	sethi	%hi(.L_cseg29),%l1
	or	%l1,%lo(.L_cseg29),%l1
	sethi	%hi(.L_cseg16),%l2
	or	%l2,%lo(.L_cseg16),%l2
	sethi	%hi(.L_cseg30),%l3
	or	%l3,%lo(.L_cseg30),%l3
	sethi	%hi(.L_cseg31),%l5
	or	%l5,%lo(.L_cseg31),%l5
	sethi	%hi(.L_cseg32),%l6
	or	%l6,%lo(.L_cseg32),%l6
	mov	4,%l7
	mov	4,%i0
	mov	15,%l4
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	mov	%l5,%o4
	mov	%l6,%o5
	st	%l7,[%sp+92]
	st	%i0,[%sp+96]
	st	%l4,[%sp+100]
	call	label6_
	nop

!  122	      CALL PLORB ( 1, 4)

	sethi	%hi(.L_cseg7),%l0
	or	%l0,%lo(.L_cseg7),%l0
	sethi	%hi(.L_cseg16),%l1
	or	%l1,%lo(.L_cseg16),%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	plorb_
	nop

!  123	C
!  124	C              VIEW FROM SUN
!  125	C
!  126	      CALL SETAFF2 (1.0, 0.0)

	sethi	%hi(.L_cseg4),%l0
	or	%l0,%lo(.L_cseg4),%l0
	sethi	%hi(.L_cseg5),%l1
	or	%l1,%lo(.L_cseg5),%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	setaff2_
	nop

!  127	      CALL SETXAX2 (-40.,40.)

	sethi	%hi(.L_cseg26),%l0
	or	%l0,%lo(.L_cseg26),%l0
	sethi	%hi(.L_cseg25),%l1
	or	%l1,%lo(.L_cseg25),%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	setxax2_
	nop

!  128	      CALL SETYAX2 (-40.,40.)

	sethi	%hi(.L_cseg26),%l0
	or	%l0,%lo(.L_cseg26),%l0
	sethi	%hi(.L_cseg25),%l1
	or	%l1,%lo(.L_cseg25),%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	setyax2_
	nop

!  129	      CALL LABEL6 (4, 'YGSM', 4, 'ZGSM', 13, 'VIEW FROM SUN')

	sethi	%hi(.L_cseg16),%l0
	or	%l0,%lo(.L_cseg16),%l0
	sethi	%hi(.L_cseg30),%l1
	or	%l1,%lo(.L_cseg30),%l1
	sethi	%hi(.L_cseg16),%l2
	or	%l2,%lo(.L_cseg16),%l2
	sethi	%hi(.L_cseg33),%l3
	or	%l3,%lo(.L_cseg33),%l3
	sethi	%hi(.L_cseg9),%l5
	or	%l5,%lo(.L_cseg9),%l5
	sethi	%hi(.L_cseg34),%l6
	or	%l6,%lo(.L_cseg34),%l6
	mov	4,%l7
	mov	4,%i0
	mov	13,%l4
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	mov	%l5,%o4
	mov	%l6,%o5
	st	%l7,[%sp+92]
	st	%i0,[%sp+96]
	st	%l4,[%sp+100]
	call	label6_
	nop

!  130	      CALL PLORB ( 4, 5)

	sethi	%hi(.L_cseg16),%l0
	or	%l0,%lo(.L_cseg16),%l0
	sethi	%hi(.L_cseg35),%l1
	or	%l1,%lo(.L_cseg35),%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	plorb_
	nop

	! block 44
.L83:

!  131	C
!  132	C              WRAP IT UP
!  133	   50 ND = 0

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

!  134	      J  = 0

	mov	0,%l2
	sethi	%hi(_BLNK__),%l0
	or	%l0,%lo(_BLNK__),%l0
	sethi	%hi(64000),%l1
	or	%l1,%lo(64000),%l1
	st	%l2,[%l0+%l1]

!  135	      ISTART = ID

	sethi	%hi(GPB.MAIN.id),%l0
	or	%l0,%lo(GPB.MAIN.id),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.MAIN.istart),%l0
	or	%l0,%lo(GPB.MAIN.istart),%l0
	st	%l1,[%l0+0]

!  136	      LANCN = IANCN

	sethi	%hi(GPB.MAIN.iancn),%l0
	or	%l0,%lo(GPB.MAIN.iancn),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.MAIN.lancn),%l0
	or	%l0,%lo(GPB.MAIN.lancn),%l0
	st	%l1,[%l0+0]

!  137	      IDAYL = 0

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

!  138	      DAYCK = .FALSE.

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

!  139	      CALL SETAFF0 ()

	call	setaff0_
	nop

!  140	      call plot ( 0.0, 0.0, -3)

	sethi	%hi(.L_cseg5),%l0
	or	%l0,%lo(.L_cseg5),%l0
	sethi	%hi(.L_cseg5),%l1
	or	%l1,%lo(.L_cseg5),%l1
	sethi	%hi(.L_cseg36),%l2
	or	%l2,%lo(.L_cseg36),%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	plot_
	nop

!  141	      IF(.NOT. EOF) GO TO 6

	sethi	%hi(GPB.MAIN.eof),%l0
	or	%l0,%lo(GPB.MAIN.eof),%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	.L84
	nop

	! block 45
.L85:
	ba	.L38
	nop

	! block 46
.L84:

!  142	      CALL ENDPLT0

	call	endplt0_
	nop

!  143	      STOP

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

	! block 47
.L37:

!  144	   99 WRITE(6,1000) COUNT,RES

	sethi	%hi(GPB.MAIN.IO.87+24),%l0
	or	%l0,%lo(GPB.MAIN.IO.87+24),%l0
	st	%fp,[%l0+0]
	sethi	%hi(GPB.MAIN.IO.87),%l0
	or	%l0,%lo(GPB.MAIN.IO.87),%l0
	mov	%l0,%o0
	call	__s_wsFe_nv
	nop
	sethi	%hi(.L_cseg12),%l0
	or	%l0,%lo(.L_cseg12),%l0
	sethi	%hi(.L_cseg7),%l1
	or	%l1,%lo(.L_cseg7),%l1
	sethi	%hi(GPC.MAINEQUIV1_2),%l2
	or	%l2,%lo(GPC.MAINEQUIV1_2),%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_cseg38),%l0
	or	%l0,%lo(.L_cseg38),%l0
	sethi	%hi(.L_cseg38),%l1
	or	%l1,%lo(.L_cseg38),%l1
	sethi	%hi(GPC.MAINEQUIV1_2+4),%l2
	or	%l2,%lo(GPC.MAINEQUIV1_2+4),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__do_f_out_nv
	nop
	call	__e_wsfe
	nop

!  145	C
!  146	C              TERMINATE FOR TEN READ ERRORS
!  147	C
!  148	      NTALLY = NTALLY + 1

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

!  149	      IF (NTALLY .LT. 10) GO TO 1

	sethi	%hi(GPB.MAIN.ntally),%l0
	or	%l0,%lo(GPB.MAIN.ntally),%l0
	ld	[%l0+0],%l0
	cmp	%l0,10
	bge	.L88
	nop

	! block 48
.L89:
	ba	.L20
	nop

	! block 49
.L88:

!  150	      EOF = .TRUE.

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

!  151	      GO TO 40

	ba	.L59
	nop

	! block 50
.L31:

!  152	  999 EOF = .TRUE.

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

!  153	      WRITE(6,1003)

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

!  154	      GO TO 40

	ba	.L59
	nop

	! block 51

!  155	 1000 FORMAT(' READ ERROR--COUNT,RES-',I12,12(2x,L4))
!  156	 1001 FORMAT(4A4,16X,36(72A4)/32X,36(72A4))
!  157	 1002 FORMAT(' PLOT OF ASCENDING NODE',I5,I10,' POINTS')
!  158	 1003 FORMAT(' EOF ON INPUT TAPE')
!  159	 1500 FORMAT(1X,5A4,4X,'IMP',I3,' TRAJECTORY PLOT. ',
!  160	     *T55,'INPUT ',T61,A8,T81,'OUTPUT',T91,A8,
!  161	     *T101,'DATA THRU',T111,2I4)
!  162	      END

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

	! block 0

	.global	plorb_
	.type	plorb_,2
plorb_:
	save	%sp,-128,%sp
	st	%i1,[%fp+72]
	st	%i0,[%fp+68]

	! block 1
.L181:
	sethi	%hi(sym_+196),%l0
	or	%l0,%lo(sym_+196),%l0
	st	%l0,[%fp-12]
	sethi	%hi(sym_-4),%l0
	or	%l0,%lo(sym_-4),%l0
	st	%l0,[%fp-16]
	sethi	%hi(_BLNK__-8004),%l0
	or	%l0,%lo(_BLNK__-8004),%l0
	st	%l0,[%fp-4]

	! block 2
.L108:

! File pltmce.f:
!  163	      SUBROUTINE PLORB (NX, NY)
!  164	C
!  165	      COMMON SEP (2000, 8), J
!  166	      COMMON /SYM/ DAZE(50), IDAZE(50), ND
!  167	      LOGICAL RTALN, DWNALN
!  168	      LOGICAL GAP
!  169	      COMMON /CBOUND/ XA,XB,YA,YB,IX,IY
!  170	      CALL OURSYM (0., 0., 0.1, 1, 0., -1)

	sethi	%hi(.L_cseg5),%l0
	or	%l0,%lo(.L_cseg5),%l0
	sethi	%hi(.L_cseg5),%l1
	or	%l1,%lo(.L_cseg5),%l1
	sethi	%hi(.L_cseg39),%l2
	or	%l2,%lo(.L_cseg39),%l2
	sethi	%hi(.L_cseg7),%l3
	or	%l3,%lo(.L_cseg7),%l3
	sethi	%hi(.L_cseg5),%l5
	or	%l5,%lo(.L_cseg5),%l5
	sethi	%hi(.L_cseg19),%l4
	or	%l4,%lo(.L_cseg19),%l4
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	mov	%l5,%o4
	mov	%l4,%o5
	call	oursym_
	nop

!  171	      CALL OURSYM (0., 0., 0.1, 3, 0., -1)

	sethi	%hi(.L_cseg5),%l0
	or	%l0,%lo(.L_cseg5),%l0
	sethi	%hi(.L_cseg5),%l1
	or	%l1,%lo(.L_cseg5),%l1
	sethi	%hi(.L_cseg39),%l2
	or	%l2,%lo(.L_cseg39),%l2
	sethi	%hi(.L_cseg12),%l3
	or	%l3,%lo(.L_cseg12),%l3
	sethi	%hi(.L_cseg5),%l5
	or	%l5,%lo(.L_cseg5),%l5
	sethi	%hi(.L_cseg19),%l4
	or	%l4,%lo(.L_cseg19),%l4
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	mov	%l5,%o4
	mov	%l4,%o5
	call	oursym_
	nop

!  172	      IN = 1

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

!  173	      NX1 = NX/10

	ld	[%fp+68],%l0
	ld	[%l0+0],%l0
	mov	10,%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	.div
	nop
	mov	%o0,%l1
	sethi	%hi(GPB.plorb.nx1),%l0
	or	%l0,%lo(GPB.plorb.nx1),%l0
	st	%l1,[%l0+0]

!  174	      NX2 = MOD(NX,10)

	ld	[%fp+68],%l0
	ld	[%l0+0],%l0
	mov	10,%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	.rem
	nop
	mov	%o0,%l1
	sethi	%hi(GPB.plorb.nx2),%l0
	or	%l0,%lo(GPB.plorb.nx2),%l0
	st	%l1,[%l0+0]

!  175	      NY1 = NY/10

	ld	[%fp+72],%l0
	ld	[%l0+0],%l0
	mov	10,%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	.div
	nop
	mov	%o0,%l1
	sethi	%hi(GPB.plorb.ny1),%l0
	or	%l0,%lo(GPB.plorb.ny1),%l0
	st	%l1,[%l0+0]

!  176	      NY2 = MOD(NY,10)

	ld	[%fp+72],%l0
	ld	[%l0+0],%l0
	mov	10,%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	.rem
	nop
	mov	%o0,%l1
	sethi	%hi(GPB.plorb.ny2),%l0
	or	%l0,%lo(GPB.plorb.ny2),%l0
	st	%l1,[%l0+0]

!  177	      ICOLOR = 1

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

!  178	      LCOLOR = 1

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

!  179	C
!  180	C
!  181	              DO 70 I=1,J

	sethi	%hi(_BLNK__),%l0
	or	%l0,%lo(_BLNK__),%l0
	sethi	%hi(64000),%l1
	or	%l1,%lo(64000),%l1
	ld	[%l0+%l1],%l0
	st	%l0,[%fp-20]
	mov	1,%l1
	sethi	%hi(GPB.plorb.i),%l0
	or	%l0,%lo(GPB.plorb.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.plorb.i),%l0
	or	%l0,%lo(GPB.plorb.i),%l0
	ld	[%l0+0],%l1
	ld	[%fp-20],%l0
	cmp	%l1,%l0
	bg	.L111
	nop

	! block 3
.L115:
.L112:

!  182	C
!  183	      IF (NX .LE. 6)  XPL = SEP(I,NX)

	ld	[%fp+68],%l0
	ld	[%l0+0],%l0
	cmp	%l0,6
	bg	.L116
	nop

	! block 4
.L117:
	ld	[%fp-4],%l4
	sethi	%hi(GPB.plorb.i),%l0
	or	%l0,%lo(GPB.plorb.i),%l0
	ld	[%l0+0],%l3
	ld	[%fp+68],%l0
	ld	[%l0+0],%l0
	sll	%l0,11,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%l2
	sll	%l0,5,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,2,%l1
	add	%l4,%l1,%l0
	ld	[%l0+0],%f2
	sethi	%hi(GPB.plorb.xpl),%l0
	or	%l0,%lo(GPB.plorb.xpl),%l0
	st	%f2,[%l0+0]

	! block 5
.L116:

!  184	      IF (NY .LE. 6)  YPL = SEP(I,NY)

	ld	[%fp+72],%l0
	ld	[%l0+0],%l0
	cmp	%l0,6
	bg	.L119
	nop

	! block 6
.L120:
	ld	[%fp-4],%l4
	sethi	%hi(GPB.plorb.i),%l0
	or	%l0,%lo(GPB.plorb.i),%l0
	ld	[%l0+0],%l3
	ld	[%fp+72],%l0
	ld	[%l0+0],%l0
	sll	%l0,11,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%l2
	sll	%l0,5,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,2,%l1
	add	%l4,%l1,%l0
	ld	[%l0+0],%f2
	sethi	%hi(GPB.plorb.ypl),%l0
	or	%l0,%lo(GPB.plorb.ypl),%l0
	st	%f2,[%l0+0]

	! block 7
.L119:

!  185	      IF (NX .GT. 10) XPL = SQRT(SEP(I,NX1)**2 + SEP(I,NX2)**2)

	ld	[%fp+68],%l0
	ld	[%l0+0],%l0
	cmp	%l0,10
	ble	.L121
	nop

	! block 8
.L122:
	ld	[%fp-4],%l4
	sethi	%hi(GPB.plorb.i),%l0
	or	%l0,%lo(GPB.plorb.i),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.plorb.nx1),%l0
	or	%l0,%lo(GPB.plorb.nx1),%l0
	ld	[%l0+0],%l0
	sll	%l0,11,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%l2
	sll	%l0,5,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,2,%l1
	add	%l4,%l1,%l0
	ld	[%l0+0],%f2
	fmuls	%f2,%f2,%f3
	ld	[%fp-4],%l4
	sethi	%hi(GPB.plorb.i),%l0
	or	%l0,%lo(GPB.plorb.i),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.plorb.nx2),%l0
	or	%l0,%lo(GPB.plorb.nx2),%l0
	ld	[%l0+0],%l0
	sll	%l0,11,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%l2
	sll	%l0,5,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,2,%l1
	add	%l4,%l1,%l0
	ld	[%l0+0],%f2
	fmuls	%f2,%f2,%f2
	fadds	%f3,%f2,%f2
	fsqrts	%f2,%f2
	sethi	%hi(GPB.plorb.xpl),%l0
	or	%l0,%lo(GPB.plorb.xpl),%l0
	st	%f2,[%l0+0]

	! block 9
.L121:

!  186	      IF (NY .GT. 10) YPL = SQRT(SEP(I,NY1)**2 + SEP(I,NY2)**2)

	ld	[%fp+72],%l0
	ld	[%l0+0],%l0
	cmp	%l0,10
	ble	.L123
	nop

	! block 10
.L124:
	ld	[%fp-4],%l4
	sethi	%hi(GPB.plorb.i),%l0
	or	%l0,%lo(GPB.plorb.i),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.plorb.ny1),%l0
	or	%l0,%lo(GPB.plorb.ny1),%l0
	ld	[%l0+0],%l0
	sll	%l0,11,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%l2
	sll	%l0,5,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,2,%l1
	add	%l4,%l1,%l0
	ld	[%l0+0],%f2
	fmuls	%f2,%f2,%f3
	ld	[%fp-4],%l4
	sethi	%hi(GPB.plorb.i),%l0
	or	%l0,%lo(GPB.plorb.i),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.plorb.ny2),%l0
	or	%l0,%lo(GPB.plorb.ny2),%l0
	ld	[%l0+0],%l0
	sll	%l0,11,%l2
	sll	%l0,4,%l1
	sub	%l2,%l1,%l2
	sll	%l0,5,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,2,%l1
	add	%l4,%l1,%l0
	ld	[%l0+0],%f2
	fmuls	%f2,%f2,%f2
	fadds	%f3,%f2,%f2
	fsqrts	%f2,%f2
	sethi	%hi(GPB.plorb.ypl),%l0
	or	%l0,%lo(GPB.plorb.ypl),%l0
	st	%f2,[%l0+0]

	! block 11
.L123:
.L125:

!  187	C             SET 'GAP' TO .TRUE. OR .FALSE.
!  188	    1 GAP = IN .GT. 1  .AND.  IDAZE(IN) .EQ. IDAZE(IN-1)

	sethi	%hi(GPB.plorb.in),%l0
	or	%l0,%lo(GPB.plorb.in),%l0
	ld	[%l0+0],%l0
	cmp	%l0,1
	ble	.L128
	nop

	! block 12
.L129:
	ld	[%fp-12],%l2
	sethi	%hi(GPB.plorb.in),%l0
	or	%l0,%lo(GPB.plorb.in),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%l3
	ld	[%fp-12],%l0
	add	%l0,-4,%l2
	sethi	%hi(GPB.plorb.in),%l0
	or	%l0,%lo(GPB.plorb.in),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%l0
	cmp	%l3,%l0
	bne	.L128
	nop

	! block 13
.L130:
	mov	1,%l0
	st	%l0,[%fp-8]
	ba	.L127
	nop

	! block 14
.L128:
	mov	0,%l0
	st	%l0,[%fp-8]

	! block 15
.L127:
	ld	[%fp-8],%l1
	sethi	%hi(GPB.plorb.gap),%l0
	or	%l0,%lo(GPB.plorb.gap),%l0
	st	%l1,[%l0+0]

!  189	      IF (GAP) IN = IN + 1

	sethi	%hi(GPB.plorb.gap),%l0
	or	%l0,%lo(GPB.plorb.gap),%l0
	ld	[%l0+0],%l0
	cmp	%l0,%g0
	be	.L132
	nop

	! block 16
.L133:
	sethi	%hi(GPB.plorb.in),%l0
	or	%l0,%lo(GPB.plorb.in),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.plorb.in),%l0
	or	%l0,%lo(GPB.plorb.in),%l0
	st	%l1,[%l0+0]

	! block 17
.L132:

!  190	      IF (GAP) GO TO 1

	sethi	%hi(GPB.plorb.gap),%l0
	or	%l0,%lo(GPB.plorb.gap),%l0
	ld	[%l0+0],%l0
	cmp	%l0,%g0
	be	.L134
	nop

	! block 18
.L135:
	ba	.L125
	nop

	! block 19
.L134:

!  191	C
!  192	      ISEP = IDAZE(IN)

	ld	[%fp-12],%l2
	sethi	%hi(GPB.plorb.in),%l0
	or	%l0,%lo(GPB.plorb.in),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.plorb.isep),%l0
	or	%l0,%lo(GPB.plorb.isep),%l0
	st	%l1,[%l0+0]

!  193	      IF (I .NE. ISEP) GO TO 5

	sethi	%hi(GPB.plorb.i),%l0
	or	%l0,%lo(GPB.plorb.i),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.plorb.isep),%l0
	or	%l0,%lo(GPB.plorb.isep),%l0
	ld	[%l0+0],%l0
	cmp	%l1,%l0
	be	.L136
	nop

	! block 20
.L137:
	ba	.L138
	nop

	! block 21
.L136:

!  194	      CALL OURPLT(XPL, YPL, 3)

	sethi	%hi(GPB.plorb.xpl),%l0
	or	%l0,%lo(GPB.plorb.xpl),%l0
	sethi	%hi(GPB.plorb.ypl),%l1
	or	%l1,%lo(GPB.plorb.ypl),%l1
	sethi	%hi(.L_cseg12),%l2
	or	%l2,%lo(.L_cseg12),%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	ourplt_
	nop

!  195	      IF (ISEP .EQ. 1) GO TO 3

	sethi	%hi(GPB.plorb.isep),%l0
	or	%l0,%lo(GPB.plorb.isep),%l0
	ld	[%l0+0],%l0
	cmp	%l0,1
	bne	.L139
	nop

	! block 22
.L140:
	ba	.L141
	nop

	! block 23
.L139:

!  196	C     RTALN = XPL*XA .GT. 0.0
!  197	C     DWNALN = YPL*YA .GT. 0.0
!  198	      CALL OURSYM(XPL, YPL, .07, 5, 0., -1)

	sethi	%hi(GPB.plorb.xpl),%l0
	or	%l0,%lo(GPB.plorb.xpl),%l0
	sethi	%hi(GPB.plorb.ypl),%l1
	or	%l1,%lo(GPB.plorb.ypl),%l1
	sethi	%hi(.L_cseg40),%l2
	or	%l2,%lo(.L_cseg40),%l2
	sethi	%hi(.L_cseg35),%l3
	or	%l3,%lo(.L_cseg35),%l3
	sethi	%hi(.L_cseg5),%l5
	or	%l5,%lo(.L_cseg5),%l5
	sethi	%hi(.L_cseg19),%l4
	or	%l4,%lo(.L_cseg19),%l4
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	mov	%l5,%o4
	mov	%l4,%o5
	call	oursym_
	nop

!  199	      IF (MOD(IN-2,2) .NE. 0   .AND.  IN .NE. ND)  GO TO 3

	sethi	%hi(GPB.plorb.in),%l0
	or	%l0,%lo(GPB.plorb.in),%l0
	ld	[%l0+0],%l0
	add	%l0,-2,%l0
	mov	2,%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	.rem
	nop
	mov	%o0,%l0
	cmp	%l0,0
	be	.L142
	nop

	! block 24
.L144:
	sethi	%hi(GPB.plorb.in),%l0
	or	%l0,%lo(GPB.plorb.in),%l0
	ld	[%l0+0],%l1
	sethi	%hi(sym_),%l0
	or	%l0,%lo(sym_),%l0
	ld	[%l0+400],%l0
	cmp	%l1,%l0
	be	.L142
	nop

	! block 25
.L145:
	ba	.L141
	nop

	! block 26
.L142:

!  200	C     CALL WHERE(XPEN,YPEN)
!  201	      CALL DATCON5 (XPL, YPL, XPEN, YPEN, INGRAF)

	sethi	%hi(GPB.plorb.xpl),%l0
	or	%l0,%lo(GPB.plorb.xpl),%l0
	sethi	%hi(GPB.plorb.ypl),%l1
	or	%l1,%lo(GPB.plorb.ypl),%l1
	sethi	%hi(GPB.plorb.xpen),%l2
	or	%l2,%lo(GPB.plorb.xpen),%l2
	sethi	%hi(GPB.plorb.ypen),%l3
	or	%l3,%lo(GPB.plorb.ypen),%l3
	sethi	%hi(GPB.plorb.ingraf),%l4
	or	%l4,%lo(GPB.plorb.ingraf),%l4
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	mov	%l4,%o4
	call	datcon5_
	nop

!  202	      CALL GLTRAN5 (XPEN, YPEN, XPEN, YPEN, INGRAF)

	sethi	%hi(GPB.plorb.xpen),%l0
	or	%l0,%lo(GPB.plorb.xpen),%l0
	sethi	%hi(GPB.plorb.ypen),%l1
	or	%l1,%lo(GPB.plorb.ypen),%l1
	sethi	%hi(GPB.plorb.xpen),%l2
	or	%l2,%lo(GPB.plorb.xpen),%l2
	sethi	%hi(GPB.plorb.ypen),%l3
	or	%l3,%lo(GPB.plorb.ypen),%l3
	sethi	%hi(GPB.plorb.ingraf),%l4
	or	%l4,%lo(GPB.plorb.ingraf),%l4
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	mov	%l4,%o4
	call	gltran5_
	nop

!  203	      XPD = XPEN + .02

	sethi	%hi(GPB.plorb.xpen),%l0
	or	%l0,%lo(GPB.plorb.xpen),%l0
	ld	[%l0+0],%f3
	sethi	%hi(.L_cseg41),%l0
	or	%l0,%lo(.L_cseg41),%l0
	ld	[%l0+0],%f2
	fadds	%f3,%f2,%f2
	sethi	%hi(GPB.plorb.xpd),%l0
	or	%l0,%lo(GPB.plorb.xpd),%l0
	st	%f2,[%l0+0]

!  204	      YPD = YPEN + .02

	sethi	%hi(GPB.plorb.ypen),%l0
	or	%l0,%lo(GPB.plorb.ypen),%l0
	ld	[%l0+0],%f3
	sethi	%hi(.L_cseg41),%l0
	or	%l0,%lo(.L_cseg41),%l0
	ld	[%l0+0],%f2
	fadds	%f3,%f2,%f2
	sethi	%hi(GPB.plorb.ypd),%l0
	or	%l0,%lo(GPB.plorb.ypd),%l0
	st	%f2,[%l0+0]

!  205	      I2  = MAX0(ISEP-5,1)

	sethi	%hi(GPB.plorb.isep),%l0
	or	%l0,%lo(GPB.plorb.isep),%l0
	ld	[%l0+0],%l0
	add	%l0,-5,%l0
	subcc	%l0,1,%g0
	mov	%l0,%l1
	ble,a	1f
	mov	1,%l1
1:
	sethi	%hi(GPB.plorb.i2),%l0
	or	%l0,%lo(GPB.plorb.i2),%l0
	st	%l1,[%l0+0]

!  206	      DX  = XPL - XPLL

	sethi	%hi(GPB.plorb.xpl),%l0
	or	%l0,%lo(GPB.plorb.xpl),%l0
	ld	[%l0+0],%f3
	sethi	%hi(GPB.plorb.xpll),%l0
	or	%l0,%lo(GPB.plorb.xpll),%l0
	ld	[%l0+0],%f2
	fsubs	%f3,%f2,%f2
	sethi	%hi(GPB.plorb.dx),%l0
	or	%l0,%lo(GPB.plorb.dx),%l0
	st	%f2,[%l0+0]

!  207	      DY  = YPL - YPLL

	sethi	%hi(GPB.plorb.ypl),%l0
	or	%l0,%lo(GPB.plorb.ypl),%l0
	ld	[%l0+0],%f3
	sethi	%hi(GPB.plorb.ypll),%l0
	or	%l0,%lo(GPB.plorb.ypll),%l0
	ld	[%l0+0],%f2
	fsubs	%f3,%f2,%f2
	sethi	%hi(GPB.plorb.dy),%l0
	or	%l0,%lo(GPB.plorb.dy),%l0
	st	%f2,[%l0+0]

!  208	      BY  = 0.0

	sethi	%hi(.L_cseg5),%l0
	or	%l0,%lo(.L_cseg5),%l0
	ld	[%l0+0],%f2
	sethi	%hi(GPB.plorb.by),%l0
	or	%l0,%lo(GPB.plorb.by),%l0
	st	%f2,[%l0+0]

!  209	      BX  = 0.0

	sethi	%hi(.L_cseg5),%l0
	or	%l0,%lo(.L_cseg5),%l0
	ld	[%l0+0],%f2
	sethi	%hi(GPB.plorb.bx),%l0
	or	%l0,%lo(GPB.plorb.bx),%l0
	st	%f2,[%l0+0]

!  210	      IF (DX .NE. 0.0)  BY = (YPL - XPL*DY/DX)*SIGN(1.0,YB)

	sethi	%hi(GPB.plorb.dx),%l0
	or	%l0,%lo(GPB.plorb.dx),%l0
	ld	[%l0+0],%f3
	sethi	%hi(.L_cseg5),%l0
	or	%l0,%lo(.L_cseg5),%l0
	ld	[%l0+0],%f2
	fcmps	%f3,%f2
	nop
	fbe	.L146
	nop

	! block 27
.L147:
	sethi	%hi(GPB.plorb.ypl),%l0
	or	%l0,%lo(GPB.plorb.ypl),%l0
	ld	[%l0+0],%f4
	sethi	%hi(GPB.plorb.xpl),%l0
	or	%l0,%lo(GPB.plorb.xpl),%l0
	ld	[%l0+0],%f3
	sethi	%hi(GPB.plorb.dy),%l0
	or	%l0,%lo(GPB.plorb.dy),%l0
	ld	[%l0+0],%f2
	fmuls	%f3,%f2,%f3
	sethi	%hi(GPB.plorb.dx),%l0
	or	%l0,%lo(GPB.plorb.dx),%l0
	ld	[%l0+0],%f2
	fdivs	%f3,%f2,%f2
	fsubs	%f4,%f2,%f30
	st	%f30,[%fp-32]
	sethi	%hi(.L_cseg4),%l0
	or	%l0,%lo(.L_cseg4),%l0
	sethi	%hi(cbound_+12),%l1
	or	%l1,%lo(cbound_+12),%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	__r_sign
	nop
	fmovs	%f0,%f2
	ld	[%fp-32],%f28
	fmuls	%f28,%f2,%f2
	sethi	%hi(GPB.plorb.by),%l0
	or	%l0,%lo(GPB.plorb.by),%l0
	st	%f2,[%l0+0]

	! block 28
.L146:

!  211	      IF (DY .NE. 0.0)  BX = (XPL - YPL*DX/DY)*SIGN(1.0,XB)

	sethi	%hi(GPB.plorb.dy),%l0
	or	%l0,%lo(GPB.plorb.dy),%l0
	ld	[%l0+0],%f3
	sethi	%hi(.L_cseg5),%l0
	or	%l0,%lo(.L_cseg5),%l0
	ld	[%l0+0],%f2
	fcmps	%f3,%f2
	nop
	fbe	.L148
	nop

	! block 29
.L149:
	sethi	%hi(GPB.plorb.xpl),%l0
	or	%l0,%lo(GPB.plorb.xpl),%l0
	ld	[%l0+0],%f4
	sethi	%hi(GPB.plorb.ypl),%l0
	or	%l0,%lo(GPB.plorb.ypl),%l0
	ld	[%l0+0],%f3
	sethi	%hi(GPB.plorb.dx),%l0
	or	%l0,%lo(GPB.plorb.dx),%l0
	ld	[%l0+0],%f2
	fmuls	%f3,%f2,%f3
	sethi	%hi(GPB.plorb.dy),%l0
	or	%l0,%lo(GPB.plorb.dy),%l0
	ld	[%l0+0],%f2
	fdivs	%f3,%f2,%f2
	fsubs	%f4,%f2,%f30
	st	%f30,[%fp-32]
	sethi	%hi(.L_cseg4),%l0
	or	%l0,%lo(.L_cseg4),%l0
	sethi	%hi(cbound_+4),%l1
	or	%l1,%lo(cbound_+4),%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	__r_sign
	nop
	fmovs	%f0,%f2
	ld	[%fp-32],%f28
	fmuls	%f28,%f2,%f2
	sethi	%hi(GPB.plorb.bx),%l0
	or	%l0,%lo(GPB.plorb.bx),%l0
	st	%f2,[%l0+0]

	! block 30
.L148:

!  212	      RTALN  = BX .LT. 0.0

	sethi	%hi(GPB.plorb.bx),%l0
	or	%l0,%lo(GPB.plorb.bx),%l0
	ld	[%l0+0],%f3
	sethi	%hi(.L_cseg5),%l0
	or	%l0,%lo(.L_cseg5),%l0
	ld	[%l0+0],%f2
	fcmpes	%f3,%f2
	mov	0,%l1
	fbl,a	1f
	mov	1,%l1
1:
	sethi	%hi(GPB.plorb.rtaln),%l0
	or	%l0,%lo(GPB.plorb.rtaln),%l0
	st	%l1,[%l0+0]

!  213	      DWNALN = BY .LT. 0.0

	sethi	%hi(GPB.plorb.by),%l0
	or	%l0,%lo(GPB.plorb.by),%l0
	ld	[%l0+0],%f3
	sethi	%hi(.L_cseg5),%l0
	or	%l0,%lo(.L_cseg5),%l0
	ld	[%l0+0],%f2
	fcmpes	%f3,%f2
	mov	0,%l1
	fbl,a	1f
	mov	1,%l1
1:
	sethi	%hi(GPB.plorb.dwnaln),%l0
	or	%l0,%lo(GPB.plorb.dwnaln),%l0
	st	%l1,[%l0+0]

!  214	      IF (RTALN)  XPD = XPEN - .02

	sethi	%hi(GPB.plorb.rtaln),%l0
	or	%l0,%lo(GPB.plorb.rtaln),%l0
	ld	[%l0+0],%l0
	cmp	%l0,%g0
	be	.L150
	nop

	! block 31
.L151:
	sethi	%hi(GPB.plorb.xpen),%l0
	or	%l0,%lo(GPB.plorb.xpen),%l0
	ld	[%l0+0],%f3
	sethi	%hi(.L_cseg42),%l0
	or	%l0,%lo(.L_cseg42),%l0
	ld	[%l0+0],%f2
	fadds	%f3,%f2,%f2
	sethi	%hi(GPB.plorb.xpd),%l0
	or	%l0,%lo(GPB.plorb.xpd),%l0
	st	%f2,[%l0+0]

	! block 32
.L150:

!  215	      IF (DWNALN) YPD = YPEN - .13

	sethi	%hi(GPB.plorb.dwnaln),%l0
	or	%l0,%lo(GPB.plorb.dwnaln),%l0
	ld	[%l0+0],%l0
	cmp	%l0,%g0
	be	.L152
	nop

	! block 33
.L153:
	sethi	%hi(GPB.plorb.ypen),%l0
	or	%l0,%lo(GPB.plorb.ypen),%l0
	ld	[%l0+0],%f3
	sethi	%hi(.L_cseg43),%l0
	or	%l0,%lo(.L_cseg43),%l0
	ld	[%l0+0],%f2
	fadds	%f3,%f2,%f2
	sethi	%hi(GPB.plorb.ypd),%l0
	or	%l0,%lo(GPB.plorb.ypd),%l0
	st	%f2,[%l0+0]

	! block 34
.L152:

!  216	      IF (RTALN) CALL NUMRIT(XPD, YPD, .11, DAZE(IN),0.,-1)

	sethi	%hi(GPB.plorb.rtaln),%l0
	or	%l0,%lo(GPB.plorb.rtaln),%l0
	ld	[%l0+0],%l0
	cmp	%l0,%g0
	be	.L154
	nop

	! block 35
.L155:
	sethi	%hi(GPB.plorb.xpd),%l3
	or	%l3,%lo(GPB.plorb.xpd),%l3
	sethi	%hi(GPB.plorb.ypd),%l5
	or	%l5,%lo(GPB.plorb.ypd),%l5
	sethi	%hi(.L_cseg44),%l6
	or	%l6,%lo(.L_cseg44),%l6
	ld	[%fp-16],%l2
	sethi	%hi(GPB.plorb.in),%l0
	or	%l0,%lo(GPB.plorb.in),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	sethi	%hi(.L_cseg5),%l1
	or	%l1,%lo(.L_cseg5),%l1
	sethi	%hi(.L_cseg19),%l2
	or	%l2,%lo(.L_cseg19),%l2
	mov	%l3,%o0
	mov	%l5,%o1
	mov	%l6,%o2
	mov	%l0,%o3
	mov	%l1,%o4
	mov	%l2,%o5
	call	numrit_
	nop

	! block 36
.L154:

!  217	      IF(.NOT. RTALN)  CALL NUMBER(XPD, YPD, .11, DAZE(IN), 0.,-1)

	sethi	%hi(GPB.plorb.rtaln),%l0
	or	%l0,%lo(GPB.plorb.rtaln),%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	.L157
	nop

	! block 37
.L158:
	sethi	%hi(GPB.plorb.xpd),%l3
	or	%l3,%lo(GPB.plorb.xpd),%l3
	sethi	%hi(GPB.plorb.ypd),%l5
	or	%l5,%lo(GPB.plorb.ypd),%l5
	sethi	%hi(.L_cseg44),%l6
	or	%l6,%lo(.L_cseg44),%l6
	ld	[%fp-16],%l2
	sethi	%hi(GPB.plorb.in),%l0
	or	%l0,%lo(GPB.plorb.in),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	sethi	%hi(.L_cseg5),%l1
	or	%l1,%lo(.L_cseg5),%l1
	sethi	%hi(.L_cseg19),%l2
	or	%l2,%lo(.L_cseg19),%l2
	mov	%l3,%o0
	mov	%l5,%o1
	mov	%l6,%o2
	mov	%l0,%o3
	mov	%l1,%o4
	mov	%l2,%o5
	call	number_
	nop

	! block 38
.L157:

!  218	      CALL OURSYM(XPL, YPL, .07, 5, 0., -1)

	sethi	%hi(GPB.plorb.xpl),%l0
	or	%l0,%lo(GPB.plorb.xpl),%l0
	sethi	%hi(GPB.plorb.ypl),%l1
	or	%l1,%lo(GPB.plorb.ypl),%l1
	sethi	%hi(.L_cseg40),%l2
	or	%l2,%lo(.L_cseg40),%l2
	sethi	%hi(.L_cseg35),%l3
	or	%l3,%lo(.L_cseg35),%l3
	sethi	%hi(.L_cseg5),%l5
	or	%l5,%lo(.L_cseg5),%l5
	sethi	%hi(.L_cseg19),%l4
	or	%l4,%lo(.L_cseg19),%l4
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	mov	%l5,%o4
	mov	%l4,%o5
	call	oursym_
	nop

	! block 39
.L141:

!  219	    3 IN = IN + 1

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

!  220	      IF (IN .GT. ND) IN = 1

	sethi	%hi(GPB.plorb.in),%l0
	or	%l0,%lo(GPB.plorb.in),%l0
	ld	[%l0+0],%l1
	sethi	%hi(sym_),%l0
	or	%l0,%lo(sym_),%l0
	ld	[%l0+400],%l0
	cmp	%l1,%l0
	ble	.L159
	nop

	! block 40
.L160:
	mov	1,%l1
	sethi	%hi(GPB.plorb.in),%l0
	or	%l0,%lo(GPB.plorb.in),%l0
	st	%l1,[%l0+0]

	! block 41
.L159:

!  221	      XPLL = XPL

	sethi	%hi(GPB.plorb.xpl),%l0
	or	%l0,%lo(GPB.plorb.xpl),%l0
	ld	[%l0+0],%f2
	sethi	%hi(GPB.plorb.xpll),%l0
	or	%l0,%lo(GPB.plorb.xpll),%l0
	st	%f2,[%l0+0]

!  222	      YPLL = YPL

	sethi	%hi(GPB.plorb.ypl),%l0
	or	%l0,%lo(GPB.plorb.ypl),%l0
	ld	[%l0+0],%f2
	sethi	%hi(GPB.plorb.ypll),%l0
	or	%l0,%lo(GPB.plorb.ypll),%l0
	st	%f2,[%l0+0]

	! block 42
.L138:

!  223	C
!  224	    5 CONTINUE


!  225	      IF (NY .EQ. 4) GO TO 10

	ld	[%fp+72],%l0
	ld	[%l0+0],%l0
	cmp	%l0,4
	bne	.L161
	nop

	! block 43
.L162:
	ba	.L163
	nop

	! block 44
.L161:

!  226	      IF (NY .EQ. 5) GO TO 15

	ld	[%fp+72],%l0
	ld	[%l0+0],%l0
	cmp	%l0,5
	bne	.L164
	nop

	! block 45
.L165:
	ba	.L166
	nop

	! block 46
.L164:

!  227	      GO TO 20

	ba	.L167
	nop

	! block 47
.L163:

!  228	   10 IF (SEP(I,5) .GE. 0.) GO TO 11

	ld	[%fp-4],%l0
	sethi	%hi(40000),%l1
	or	%l1,%lo(40000),%l1
	add	%l0,%l1,%l2
	sethi	%hi(GPB.plorb.i),%l0
	or	%l0,%lo(GPB.plorb.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%f3
	sethi	%hi(.L_cseg5),%l0
	or	%l0,%lo(.L_cseg5),%l0
	ld	[%l0+0],%f2
	fcmpes	%f3,%f2
	nop
	fbul	.L168
	nop

	! block 48
.L169:
	ba	.L170
	nop

	! block 49
.L168:

!  229	      ICOLOR = 1

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

!  230	      GO TO 12

	ba	.L171
	nop

	! block 50
.L170:

!  231	   11 ICOLOR = 4

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

	! block 51
.L171:

!  232	   12 IF (ICOLOR .NE. LCOLOR) CALL NEWPEN(ICOLOR)

	sethi	%hi(GPB.plorb.icolor),%l0
	or	%l0,%lo(GPB.plorb.icolor),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.plorb.lcolor),%l0
	or	%l0,%lo(GPB.plorb.lcolor),%l0
	ld	[%l0+0],%l0
	cmp	%l1,%l0
	be	.L172
	nop

	! block 52
.L173:
	sethi	%hi(GPB.plorb.icolor),%l0
	or	%l0,%lo(GPB.plorb.icolor),%l0
	mov	%l0,%o0
	call	newpen_
	nop

	! block 53
.L172:

!  233	      GO TO 20

	ba	.L167
	nop

	! block 54
.L166:

!  234	   15 IF (SEP(I,1) .GE. -10.) GO TO 16

	ld	[%fp-4],%l0
	sethi	%hi(8000),%l1
	or	%l1,%lo(8000),%l1
	add	%l0,%l1,%l2
	sethi	%hi(GPB.plorb.i),%l0
	or	%l0,%lo(GPB.plorb.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%f3
	sethi	%hi(.L_cseg45),%l0
	or	%l0,%lo(.L_cseg45),%l0
	ld	[%l0+0],%f2
	fcmpes	%f3,%f2
	nop
	fbul	.L174
	nop

	! block 55
.L175:
	ba	.L176
	nop

	! block 56
.L174:

!  235	      ICOLOR = 1

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

!  236	      GO TO 17

	ba	.L177
	nop

	! block 57
.L176:

!  237	   16 ICOLOR = 4

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

	! block 58
.L177:

!  238	   17 IF (ICOLOR .NE. LCOLOR) CALL NEWPEN(ICOLOR)

	sethi	%hi(GPB.plorb.icolor),%l0
	or	%l0,%lo(GPB.plorb.icolor),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.plorb.lcolor),%l0
	or	%l0,%lo(GPB.plorb.lcolor),%l0
	ld	[%l0+0],%l0
	cmp	%l1,%l0
	be	.L178
	nop

	! block 59
.L179:
	sethi	%hi(GPB.plorb.icolor),%l0
	or	%l0,%lo(GPB.plorb.icolor),%l0
	mov	%l0,%o0
	call	newpen_
	nop

	! block 60
.L178:
.L167:

!  239	C
!  240	   20 CALL OURPLT(XPL,YPL,2)

	sethi	%hi(GPB.plorb.xpl),%l0
	or	%l0,%lo(GPB.plorb.xpl),%l0
	sethi	%hi(GPB.plorb.ypl),%l1
	or	%l1,%lo(GPB.plorb.ypl),%l1
	sethi	%hi(.L_cseg46),%l2
	or	%l2,%lo(.L_cseg46),%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	ourplt_
	nop

!  241	      LCOLOR = ICOLOR

	sethi	%hi(GPB.plorb.icolor),%l0
	or	%l0,%lo(GPB.plorb.icolor),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.plorb.lcolor),%l0
	or	%l0,%lo(GPB.plorb.lcolor),%l0
	st	%l1,[%l0+0]

	! block 61
.L110:

!  242	   70         CONTINUE

	sethi	%hi(GPB.plorb.i),%l0
	or	%l0,%lo(GPB.plorb.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.plorb.i),%l0
	or	%l0,%lo(GPB.plorb.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.plorb.i),%l0
	or	%l0,%lo(GPB.plorb.i),%l0
	ld	[%l0+0],%l1
	ld	[%fp-20],%l0
	cmp	%l1,%l0
	ble	.L112
	nop

	! block 62
.L180:
.L111:

!  243	      CALL NEWPEN(1)

	sethi	%hi(.L_cseg7),%l0
	or	%l0,%lo(.L_cseg7),%l0
	mov	%l0,%o0
	call	newpen_
	nop

!  244	C
!  245	C
!  246	      RETURN

	ba	.L107
	nop

	! block 63

!  247	      END

.L107:
.L105:
.L106:
	jmp	%i7+8
	restore
	.size	plorb_,(.-plorb_)
	.align	8
	.align	8
	.skip	16

	! block 0

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

	! block 1
.L183:
.L182:
	add	%fp,68,%l0
	add	%fp,72,%l1
	add	%fp,76,%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	f77_init
	nop
	ld	[%fp+68],%l0
	ld	[%fp+72],%l1
	ld	[%fp+76],%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	__f77_init
	nop
	call	MAIN_
	nop
	mov	0,%l0
	mov	%l0,%o0
	call	__f77_exit
	nop
	mov	0,%l0
	mov	%l0,%i0
	jmp	%i7+8
	restore
	.size	main,(.-main)
	.align	8
	.common	_BLNK__,64004,8
	.common	sym_,404,8
	.common	into_,20768,8

	.section	".data",#alloc,#write
	.align	8
GPB.MAIN.IO.26:
	.word	0x1000000
	.skip	4
	.word	0x6
	.skip	16
	.type	GPB.MAIN.IO.26,#object
	.size	GPB.MAIN.IO.26,28
	.align	8
GPB.MAIN.IO.50:
	.word	0x1000000
	.skip	4
	.word	0x6
	.skip	16
	.type	GPB.MAIN.IO.50,#object
	.size	GPB.MAIN.IO.50,28
	.align	8
GPB.MAIN.IO.87:
	.word	0x1000000
	.skip	4
	.word	0x6
	.skip	4
	.word	GPB.MAIN.FORMAT.86
	.skip	8
	.type	GPB.MAIN.IO.87,#object
	.size	GPB.MAIN.IO.87,28
	.align	8
GPB.MAIN.IO.91:
	.word	0x1000000
	.skip	4
	.word	0x6
	.skip	4
	.word	GPB.MAIN.FORMAT.90
	.skip	8
	.type	GPB.MAIN.IO.91,#object
	.size	GPB.MAIN.IO.91,28

	.section	".bss",#alloc,#write
	.align	8
GPB.MAIN.idayl:
	.skip	4
	.type	GPB.MAIN.idayl,#object
	.size	GPB.MAIN.idayl,4
	.align	8
	.global	GPC.MAINEQUIV1_2
GPC.MAINEQUIV1_2:
	.skip	52
	.type	GPC.MAINEQUIV1_2,#object
	.size	GPC.MAINEQUIV1_2,52
	.align	8
GPB.MAIN.dayom:
	.skip	4
	.type	GPB.MAIN.dayom,#object
	.size	GPB.MAIN.dayom,4
	.align	8
GPB.MAIN.mnam1:
	.skip	4
	.type	GPB.MAIN.mnam1,#object
	.size	GPB.MAIN.mnam1,4
	.align	8
GPB.MAIN.mday1:
	.skip	4
	.type	GPB.MAIN.mday1,#object
	.size	GPB.MAIN.mday1,4
	.align	8
GPB.MAIN.istart:
	.skip	4
	.type	GPB.MAIN.istart,#object
	.size	GPB.MAIN.istart,4
	.align	8
GPB.MAIN.mnam2:
	.skip	4
	.type	GPB.MAIN.mnam2,#object
	.size	GPB.MAIN.mnam2,4
	.align	8
GPB.MAIN.ntally:
	.skip	4
	.type	GPB.MAIN.ntally,#object
	.size	GPB.MAIN.ntally,4
	.align	8
GPB.MAIN.mday2:
	.skip	4
	.type	GPB.MAIN.mday2,#object
	.size	GPB.MAIN.mday2,4

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

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

	.section	".data",#alloc,#write
	.align	4
GPB.MAIN.lsel:
	.word	0x3,0x4,0x5,0x6
	.word	0x7,0x8,0x9,0xa
	.type	GPB.MAIN.lsel,#object
	.size	GPB.MAIN.lsel,32

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

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

	.section	".bss",#alloc,#write
	.align	8
GPB.MAIN.id:
	.skip	4
	.type	GPB.MAIN.id,#object
	.size	GPB.MAIN.id,4
	.align	8
GPB.MAIN.iancn:
	.skip	4
	.type	GPB.MAIN.iancn,#object
	.size	GPB.MAIN.iancn,4
	.align	8
GPB.MAIN.yr:
	.skip	4
	.type	GPB.MAIN.yr,#object
	.size	GPB.MAIN.yr,4
	.align	8
GPB.MAIN.l:
	.skip	4
	.type	GPB.MAIN.l,#object
	.size	GPB.MAIN.l,4

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

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

	.section	".rodata",#alloc
	.align	4
.L_cseg0:
	.word	0x41080000
	.type	.L_cseg0,#object
	.size	.L_cseg0,4
	.align	4
.L_cseg1:
	.word	0x41300000
	.type	.L_cseg1,#object
	.size	.L_cseg1,4
	.align	4
.L_cseg2:
	.word	0x40e00000
	.type	.L_cseg2,#object
	.size	.L_cseg2,4
	.align	4
.L_cseg3:
	.word	0x41200000
	.type	.L_cseg3,#object
	.size	.L_cseg3,4
	.align	4
.L_cseg4:
	.word	0x3f800000
	.type	.L_cseg4,#object
	.size	.L_cseg4,4
	.align	4
.L_cseg5:
	.skip	4
	.type	.L_cseg5,#object
	.size	.L_cseg5,4
	.align	4
.L_cseg6:
	.word	0x28a0
	.type	.L_cseg6,#object
	.size	.L_cseg6,4
	.align	4
.L_cseg7:
	.word	0x1
	.type	.L_cseg7,#object
	.size	.L_cseg7,4
	.align	4
.L_cseg8:
	.ascii	"Real number conversion error of Earth Radius!\000\000"
	.type	.L_cseg8,#object
	.size	.L_cseg8,47
	.align	4
.L_cseg9:
	.word	0xd
	.type	.L_cseg9,#object
	.size	.L_cseg9,4
	.align	4
.L_cseg10:
	.word	0x23
	.type	.L_cseg10,#object
	.size	.L_cseg10,4
	.align	4
.L_cseg11:
	.ascii	"Number of real # conversion errors =\000\000\000"
	.type	.L_cseg11,#object
	.size	.L_cseg11,39
	.align	4
.L_cseg12:
	.word	0x3
	.type	.L_cseg12,#object
	.size	.L_cseg12,4
	.align	4
.L_cseg13:
	.word	0x41180000
	.type	.L_cseg13,#object
	.size	.L_cseg13,4
	.align	4
.L_cseg14:
	.word	0x3e570a3d
	.type	.L_cseg14,#object
	.size	.L_cseg14,4
	.align	4
.L_cseg15:
	.ascii	"IMP \000\000\000"
	.type	.L_cseg15,#object
	.size	.L_cseg15,7
	.align	4
.L_cseg16:
	.word	0x4
	.type	.L_cseg16,#object
	.size	.L_cseg16,4
	.align	4
.L_cseg17:
	.word	0x4479c000
	.type	.L_cseg17,#object
	.size	.L_cseg17,4
	.align	4
.L_cseg18:
	.word	0x80000000
	.type	.L_cseg18,#object
	.size	.L_cseg18,4
	.align	4
.L_cseg19:
	.word	0xffffffff
	.type	.L_cseg19,#object
	.size	.L_cseg19,4
	.align	4
.L_cseg20:
	.ascii	" FROM \000"
	.type	.L_cseg20,#object
	.size	.L_cseg20,7
	.align	4
.L_cseg21:
	.word	0x6
	.type	.L_cseg21,#object
	.size	.L_cseg21,4
	.align	4
.L_cseg22:
	.ascii	" TO \000\000\000"
	.type	.L_cseg22,#object
	.size	.L_cseg22,7
	.align	4
.L_cseg23:
	.ascii	" \000\000"
	.type	.L_cseg23,#object
	.size	.L_cseg23,3
	.align	4
.L_cseg24:
	.word	0x40a00000
	.type	.L_cseg24,#object
	.size	.L_cseg24,4
	.align	4
.L_cseg25:
	.word	0x42200000
	.type	.L_cseg25,#object
	.size	.L_cseg25,4
	.align	4
.L_cseg26:
	.word	0xc2200000
	.type	.L_cseg26,#object
	.size	.L_cseg26,4
	.align	4
.L_cseg27:
	.word	0x40800000
	.type	.L_cseg27,#object
	.size	.L_cseg27,4
	.align	4
.L_cseg28:
	.word	0x8
	.type	.L_cseg28,#object
	.size	.L_cseg28,4
	.align	4
.L_cseg29:
	.ascii	"XGSM\000\000\000"
	.type	.L_cseg29,#object
	.size	.L_cseg29,7
	.align	4
.L_cseg30:
	.ascii	"YGSM\000\000\000"
	.type	.L_cseg30,#object
	.size	.L_cseg30,7
	.align	4
.L_cseg31:
	.word	0xf
	.type	.L_cseg31,#object
	.size	.L_cseg31,4
	.align	4
.L_cseg32:
	.ascii	"VIEW FROM NORTH"
	.type	.L_cseg32,#object
	.size	.L_cseg32,15
	.align	4
.L_cseg33:
	.ascii	"ZGSM\000\000\000"
	.type	.L_cseg33,#object
	.size	.L_cseg33,7
	.align	4
.L_cseg34:
	.ascii	"VIEW FROM SUN\000\000"
	.type	.L_cseg34,#object
	.size	.L_cseg34,15
	.align	4
.L_cseg35:
	.word	0x5
	.type	.L_cseg35,#object
	.size	.L_cseg35,4
	.align	4
.L_cseg36:
	.word	0xfffffffd
	.type	.L_cseg36,#object
	.size	.L_cseg36,4
	.align	4
.L_cseg37:
	.skip	3
	.type	.L_cseg37,#object
	.size	.L_cseg37,3
	.align	4
.L_cseg38:
	.word	0xc
	.type	.L_cseg38,#object
	.size	.L_cseg38,4
	.common	cbound_,24,8

	.section	".bss",#alloc,#write
	.align	8
GPB.plorb.ypll:
	.skip	4
	.type	GPB.plorb.ypll,#object
	.size	GPB.plorb.ypll,4
	.align	8
GPB.plorb.lcolor:
	.skip	4
	.type	GPB.plorb.lcolor,#object
	.size	GPB.plorb.lcolor,4
	.align	8
GPB.plorb.ypd:
	.skip	4
	.type	GPB.plorb.ypd,#object
	.size	GPB.plorb.ypd,4
	.align	8
GPB.plorb.in:
	.skip	4
	.type	GPB.plorb.in,#object
	.size	GPB.plorb.in,4
	.align	8
GPB.plorb.dwnaln:
	.skip	4
	.type	GPB.plorb.dwnaln,#object
	.size	GPB.plorb.dwnaln,4
	.align	8
GPB.plorb.ingraf:
	.skip	4
	.type	GPB.plorb.ingraf,#object
	.size	GPB.plorb.ingraf,4
	.align	8
GPB.plorb.xpd:
	.skip	4
	.type	GPB.plorb.xpd,#object
	.size	GPB.plorb.xpd,4
	.align	8
GPB.plorb.icolor:
	.skip	4
	.type	GPB.plorb.icolor,#object
	.size	GPB.plorb.icolor,4
	.align	8
GPB.plorb.i:
	.skip	4
	.type	GPB.plorb.i,#object
	.size	GPB.plorb.i,4
	.align	8
GPB.plorb.xpen:
	.skip	4
	.type	GPB.plorb.xpen,#object
	.size	GPB.plorb.xpen,4
	.align	8
GPB.plorb.bx:
	.skip	4
	.type	GPB.plorb.bx,#object
	.size	GPB.plorb.bx,4
	.align	8
GPB.plorb.ny1:
	.skip	4
	.type	GPB.plorb.ny1,#object
	.size	GPB.plorb.ny1,4
	.align	8
GPB.plorb.by:
	.skip	4
	.type	GPB.plorb.by,#object
	.size	GPB.plorb.by,4
	.align	8
GPB.plorb.ny2:
	.skip	4
	.type	GPB.plorb.ny2,#object
	.size	GPB.plorb.ny2,4
	.align	8
GPB.plorb.ypl:
	.skip	4
	.type	GPB.plorb.ypl,#object
	.size	GPB.plorb.ypl,4
	.align	8
GPB.plorb.ypen:
	.skip	4
	.type	GPB.plorb.ypen,#object
	.size	GPB.plorb.ypen,4
	.align	8
GPB.plorb.dx:
	.skip	4
	.type	GPB.plorb.dx,#object
	.size	GPB.plorb.dx,4
	.align	8
GPB.plorb.xpll:
	.skip	4
	.type	GPB.plorb.xpll,#object
	.size	GPB.plorb.xpll,4
	.align	8
GPB.plorb.dy:
	.skip	4
	.type	GPB.plorb.dy,#object
	.size	GPB.plorb.dy,4
	.align	8
GPB.plorb.isep:
	.skip	4
	.type	GPB.plorb.isep,#object
	.size	GPB.plorb.isep,4
	.align	8
GPB.plorb.nx1:
	.skip	4
	.type	GPB.plorb.nx1,#object
	.size	GPB.plorb.nx1,4
	.align	8
GPB.plorb.gap:
	.skip	4
	.type	GPB.plorb.gap,#object
	.size	GPB.plorb.gap,4
	.align	8
GPB.plorb.xpl:
	.skip	4
	.type	GPB.plorb.xpl,#object
	.size	GPB.plorb.xpl,4
	.align	8
GPB.plorb.nx2:
	.skip	4
	.type	GPB.plorb.nx2,#object
	.size	GPB.plorb.nx2,4
	.align	8
GPB.plorb.rtaln:
	.skip	4
	.type	GPB.plorb.rtaln,#object
	.size	GPB.plorb.rtaln,4
	.align	8
GPB.plorb.i2:
	.skip	4
	.type	GPB.plorb.i2,#object
	.size	GPB.plorb.i2,4

	.section	".rodata",#alloc
	.align	4
.L_cseg39:
	.word	0x3dcccccd
	.type	.L_cseg39,#object
	.size	.L_cseg39,4
	.align	4
.L_cseg40:
	.word	0x3d8f5c29
	.type	.L_cseg40,#object
	.size	.L_cseg40,4
	.align	4
.L_cseg41:
	.word	0x3ca3d70a
	.type	.L_cseg41,#object
	.size	.L_cseg41,4
	.align	4
.L_cseg42:
	.word	0xbca3d70a
	.type	.L_cseg42,#object
	.size	.L_cseg42,4
	.align	4
.L_cseg43:
	.word	0xbe051eb8
	.type	.L_cseg43,#object
	.size	.L_cseg43,4
	.align	4
.L_cseg44:
	.word	0x3de147ae
	.type	.L_cseg44,#object
	.size	.L_cseg44,4
	.align	4
.L_cseg45:
	.word	0xc1200000
	.type	.L_cseg45,#object
	.size	.L_cseg45,4
	.align	4
.L_cseg46:
	.word	0x2
	.type	.L_cseg46,#object
	.size	.L_cseg46,4

	.section	".data",#alloc,#write
	.align	4
GPB.MAIN.CONSTANT.92:
	.ascii	" READ ERROR--COUNT,RES-"
	.skip	5
	.type	GPB.MAIN.CONSTANT.92,#object
	.size	GPB.MAIN.CONSTANT.92,28
	.align	4
GPB.MAIN.FORMAT.86:
	.word	0x1
	.skip	12
	.word	0xc,0x17
	.word	GPB.MAIN.CONSTANT.92
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0xc,0x1
	.skip	4
	.word	0x6,0xc
	.skip	8
	.word	0x1,0x4
	.skip	8
	.word	0x4,0x2
	.skip	8
	.word	0x6,0x1
	.skip	8
	.word	0x1e,0x4
	.skip	8
	.word	0x3
	.skip	12
	.word	0x2,0x4
	.skip	8
	.type	GPB.MAIN.FORMAT.86,#object
	.size	GPB.MAIN.FORMAT.86,176
	.align	4
GPB.MAIN.FORMAT.93:
	.word	0x1
	.skip	12
	.word	0x6,0x4
	.skip	8
	.word	0x20,0x4
	.skip	8
	.word	0x4,0x10
	.skip	8
	.word	0x6,0x24
	.skip	8
	.word	0x1,0x4
	.skip	8
	.word	0x6,0x48
	.skip	8
	.word	0x20,0x4
	.skip	8
	.word	0x3
	.skip	12
	.word	0x5
	.skip	12
	.word	0x4,0x20
	.skip	8
	.word	0x6,0x24
	.skip	8
	.word	0x1,0xb
	.skip	8
	.word	0x6,0x48
	.skip	8
	.word	0x20,0x4
	.skip	8
	.word	0x3
	.skip	12
	.word	0x2,0xb
	.skip	8
	.type	GPB.MAIN.FORMAT.93,#object
	.size	GPB.MAIN.FORMAT.93,272
	.align	4
GPB.MAIN.CONSTANT.95:
	.ascii	" PLOT OF ASCENDING NODE"
	.skip	5
	.type	GPB.MAIN.CONSTANT.95,#object
	.size	GPB.MAIN.CONSTANT.95,28
	.align	4
GPB.MAIN.CONSTANT.96:
	.ascii	" POINTS"
	.skip	5
	.type	GPB.MAIN.CONSTANT.96,#object
	.size	GPB.MAIN.CONSTANT.96,12
	.align	4
GPB.MAIN.FORMAT.94:
	.word	0x1
	.skip	12
	.word	0xc,0x17
	.word	GPB.MAIN.CONSTANT.95
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x5,0x1
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0xa,0x1
	.skip	4
	.word	0xc,0x7
	.word	GPB.MAIN.CONSTANT.96
	.skip	4
	.word	0x2
	.skip	12
	.type	GPB.MAIN.FORMAT.94,#object
	.size	GPB.MAIN.FORMAT.94,128
	.align	4
GPB.MAIN.CONSTANT.97:
	.ascii	" EOF ON INPUT TAPE"
	.skip	2
	.type	GPB.MAIN.CONSTANT.97,#object
	.size	GPB.MAIN.CONSTANT.97,20
	.align	4
GPB.MAIN.FORMAT.90:
	.word	0x1
	.skip	12
	.word	0xc,0x12
	.word	GPB.MAIN.CONSTANT.97
	.skip	4
	.word	0x2
	.skip	12
	.type	GPB.MAIN.FORMAT.90,#object
	.size	GPB.MAIN.FORMAT.90,48
	.align	4
GPB.MAIN.CONSTANT.99:
	.ascii	"IMP"
	.skip	5
	.type	GPB.MAIN.CONSTANT.99,#object
	.size	GPB.MAIN.CONSTANT.99,8
	.align	4
GPB.MAIN.CONSTANT.100:
	.ascii	" TRAJECTORY PLOT. "
	.skip	2
	.type	GPB.MAIN.CONSTANT.100,#object
	.size	GPB.MAIN.CONSTANT.100,20
	.align	4
GPB.MAIN.CONSTANT.101:
	.ascii	"INPUT "
	.skip	2
	.type	GPB.MAIN.CONSTANT.101,#object
	.size	GPB.MAIN.CONSTANT.101,8
	.align	4
GPB.MAIN.CONSTANT.102:
	.ascii	"OUTPUT"
	.skip	2
	.type	GPB.MAIN.CONSTANT.102,#object
	.size	GPB.MAIN.CONSTANT.102,8
	.align	4
GPB.MAIN.CONSTANT.103:
	.ascii	"DATA THRU"
	.skip	3
	.type	GPB.MAIN.CONSTANT.103,#object
	.size	GPB.MAIN.CONSTANT.103,12
	.align	4
GPB.MAIN.FORMAT.98:
	.word	0x1
	.skip	12
	.word	0x4,0x1
	.skip	8
	.word	0x6,0x5
	.skip	8
	.word	0x20,0x4
	.skip	8
	.word	0x4,0x4
	.skip	8
	.word	0xc,0x3
	.word	GPB.MAIN.CONSTANT.99
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x7,0x3,0x1
	.skip	4
	.word	0xc,0x12
	.word	GPB.MAIN.CONSTANT.100
	.skip	4
	.word	0xf,0x37,0x1
	.skip	4
	.word	0xc,0x6
	.word	GPB.MAIN.CONSTANT.101
	.skip	4
	.word	0xf,0x3d,0x1
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x20,0x8
	.skip	8
	.word	0xf,0x51,0x1
	.skip	4
	.word	0xc,0x6
	.word	GPB.MAIN.CONSTANT.102
	.skip	4
	.word	0xf,0x5b,0x1
	.skip	4
	.word	0x6,0x1
	.skip	8
	.word	0x20,0x8
	.skip	8
	.word	0xf,0x65,0x1
	.skip	4
	.word	0xc,0x9
	.word	GPB.MAIN.CONSTANT.103
	.skip	4
	.word	0xf,0x6f,0x1
	.skip	4
	.word	0x6,0x2
	.skip	8
	.word	0x7,0x4,0x1
	.skip	4
	.word	0x2
	.skip	12
	.type	GPB.MAIN.FORMAT.98,#object
	.size	GPB.MAIN.FORMAT.98,400

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

	.global	__fsr_init_value
__fsr_init_value = 0x0
