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

	! block 0

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

	! block 1
.L28:
	ld	[%fp+72],%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-8]
	ld	[%fp+72],%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-4]
	ld	[%fp+68],%l0
	add	%l0,-1,%l0
	st	%l0,[%fp-28]

	! block 2
.L13:

! File ibcdcn.f:
!    1	* Tue May 29 11:44:17 EDT 1990 /plas0/h1/pam/src/test ibcdcn.f
!    2	cMEMBER NAME  ibcdcn.f 
!    3	C     FUNCTION IBCDCN (HREC, N)
!    4	      FUNCTION IBCDCN (HREC, N)
!    5	C        CONVERTS BCD NUMERIC CHARACTERS IN HREC(1) - HREC(N) TO
!    6	C                  INTEGER
!    7	      character*1 ICHCK(4),CHCKX,HREC(n)
!    8	      EQUIVALENCE (ICHCK(1),ITEMP),(ICHCK(4),CHCKX)
!    9	      ITEMP = 0

	mov	0,%l1
	sethi	%hi(GPC.ibcdcnEQUIV1_1),%l0
	or	%l0,%lo(GPC.ibcdcnEQUIV1_1),%l0
	st	%l1,[%l0+0]

!   10	      IBCDCN = 0

	mov	0,%l0
	st	%l0,[%fp-24]

!   11	      DO 1 I = 1,N

	ld	[%fp+72],%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-36]
	mov	1,%l1
	sethi	%hi(GPB.ibcdcn.i),%l0
	or	%l0,%lo(GPB.ibcdcn.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.ibcdcn.i),%l0
	or	%l0,%lo(GPB.ibcdcn.i),%l0
	ld	[%l0+0],%l1
	ld	[%fp-36],%l0
	cmp	%l1,%l0
	bg	.L19
	nop

	! block 3
.L23:
.L20:

!   12	      CHCKX = HREC(I)

	sethi	%hi(GPC.ibcdcnEQUIV1_1+3),%l3
	or	%l3,%lo(GPC.ibcdcnEQUIV1_1+3),%l3
	ld	[%fp-28],%l2
	sethi	%hi(GPB.ibcdcn.i),%l0
	or	%l0,%lo(GPB.ibcdcn.i),%l0
	ld	[%l0+0],%l1
	add	%l2,%l1,%l0
	mov	1,%l1
	mov	1,%l2
	mov	%l3,%o0
	mov	%l0,%o1
	mov	%l1,%o2
	mov	%l2,%o3
	call	__s_copy
	nop

!   13	      IF (ITEMP.GE.10)  ITEMP = 0

	sethi	%hi(GPC.ibcdcnEQUIV1_1),%l0
	or	%l0,%lo(GPC.ibcdcnEQUIV1_1),%l0
	ld	[%l0+0],%l0
	cmp	%l0,10
	bl	.L25
	nop

	! block 4
.L26:
	mov	0,%l1
	sethi	%hi(GPC.ibcdcnEQUIV1_1),%l0
	or	%l0,%lo(GPC.ibcdcnEQUIV1_1),%l0
	st	%l1,[%l0+0]

	! block 5
.L25:
.L18:

!   14	1     IBCDCN = IBCDCN*10 + ITEMP

	ld	[%fp-24],%l0
	sll	%l0,1,%l2
	sll	%l0,3,%l1
	add	%l2,%l1,%l2
	sethi	%hi(GPC.ibcdcnEQUIV1_1),%l0
	or	%l0,%lo(GPC.ibcdcnEQUIV1_1),%l0
	ld	[%l0+0],%l1
	add	%l2,%l1,%l0
	st	%l0,[%fp-24]
	sethi	%hi(GPB.ibcdcn.i),%l0
	or	%l0,%lo(GPB.ibcdcn.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.ibcdcn.i),%l0
	or	%l0,%lo(GPB.ibcdcn.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.ibcdcn.i),%l0
	or	%l0,%lo(GPB.ibcdcn.i),%l0
	ld	[%l0+0],%l1
	ld	[%fp-36],%l0
	cmp	%l1,%l0
	ble	.L20
	nop

	! block 6
.L27:
.L19:

!   15	      RETURN

	ba	.L11
	nop

	! block 7

!   16	      END

.L11:
	ld	[%fp-24],%l0
	mov	%l0,%i0
	jmp	%i7+8
	restore

	! block 8
.L12:
	jmp	%i7+8
	restore
	.size	ibcdcn_,(.-ibcdcn_)
	.align	8

	.section	".bss",#alloc,#write
	.align	8
	.global	GPC.ibcdcnEQUIV1_1
GPC.ibcdcnEQUIV1_1:
	.skip	4
	.type	GPC.ibcdcnEQUIV1_1,#object
	.size	GPC.ibcdcnEQUIV1_1,4
	.align	8
GPB.ibcdcn.i:
	.skip	4
	.type	GPB.ibcdcn.i,#object
	.size	GPB.ibcdcn.i,4

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