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

	! block 0

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

	! block 1
.L16:
.L11:

! File mainlogorp.f:
!    1	* Mon Jul 23 15:49:36 EDT 1990 /plas0/h1/pam/src/test mainlogorp.f
!    2	C-
!    3	      MODPRT= 36

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

!    4	      CALL LOGORP(MODPRT, .FALSE., 'ft12')

	sethi	%hi(GPB.MAIN.modprt),%l0
	or	%l0,%lo(GPB.MAIN.modprt),%l0
	sethi	%hi(.L_cseg0),%l1
	or	%l1,%lo(.L_cseg0),%l1
	sethi	%hi(.L_cseg1),%l2
	or	%l2,%lo(.L_cseg1),%l2
	mov	4,%l3
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	logorp_
	nop

!    5	      STOP

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

!    6	      END


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

	! block 0

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

	! block 1
.L18:
.L17:
	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

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

	.section	".rodata",#alloc
	.align	4
.L_cseg0:
	.skip	4
	.type	.L_cseg0,#object
	.size	.L_cseg0,4
	.align	4
.L_cseg1:
	.ascii	"ft12\000\000\000"
	.type	.L_cseg1,#object
	.size	.L_cseg1,7
	.align	4
.L_cseg2:
	.skip	3
	.type	.L_cseg2,#object
	.size	.L_cseg2,3

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

	.global	__fsr_init_value
__fsr_init_value = 0x0
