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

	! block 0

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

	! block 1
.L17:
	sethi	%hi(GPC.getptbEQUIV1_0-1),%l0
	or	%l0,%lo(GPC.getptbEQUIV1_0-1),%l0
	st	%l0,[%fp-4]

	! block 2
.L14:

! File getptb.f:
!    1	* Tue May 29 11:41:05 EDT 1990 /plas0/h1/pam/src/test getptb.f
!    2	      subroutine GETPTB (TFRAMS, IDATA)
!    3	C        GETPTB  COMPRESSES AND INVERTS 2 SUCCESSIVE TAPE FRAMES
!    4	C                  AND RIGHT ALIGNS RESULT IN ONE INTEGER*4 WORD.
!    5	C                  EACH TAPE FRAME IS ASSUMED TO BE 16 BITS ARRANGED
!    6	C                  0000 00XX 00XX XXXX
!    7	C INPUT PARAMETERS
!    8	C        TFRAMS    ARRAY OF TWO TAPE FRAMES TO TRANSLATE.
!    9	C OUTPUT PARAMETERS
!   10	C        IDATA     NORMALIZED AND INVERTED DATA
!   11	C SUBROUTINE CALLS
!   12	C        NORMIZ    ASSEMBLER ROUTINE TO SHIFT 8 BITS OF DATA IN TAPE
!   13	C                  FRAMES INTO BYTES.
!   14	C        INVERT    ASSEMBLER ROUTINE TO INVERT DATA IN PLACE,
!   15	C                  BYTE BY BYTE.
!   16	      character*1 L(6),LL(4)
!   17	      INTEGER*2 TFRAMS(2)
!   18	      EQUIVALENCE (IL, LL(1))
!   19	c
!   20	      IL = 0

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

!   21	      CALL NORMIZ (TFRAMS, 2, LL(3))

	ld	[%fp+68],%l1
	sethi	%hi(.L_cseg0),%l2
	or	%l2,%lo(.L_cseg0),%l2
	ld	[%fp-4],%l0
	add	%l0,3,%l0
	mov	1,%l3
	mov	%l1,%o0
	mov	%l2,%o1
	mov	%l0,%o2
	mov	%l3,%o3
	call	normiz_
	nop

!   22	C                            INVERT BYTES
!   23	      LL(2) = LL(4)

	ld	[%fp-4],%l0
	add	%l0,2,%l1
	ld	[%fp-4],%l0
	add	%l0,4,%l0
	mov	1,%l2
	mov	1,%l3
	mov	%l1,%o0
	mov	%l0,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	call	__s_copy
	nop

!   24	C RIGHT SHIFT 8
!   25	      IL = IL/256

	sethi	%hi(GPC.getptbEQUIV1_0),%l0
	or	%l0,%lo(GPC.getptbEQUIV1_0),%l0
	ld	[%l0+0],%l0
	mov	256,%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	.div
	nop
	mov	%o0,%l1
	sethi	%hi(GPC.getptbEQUIV1_0),%l0
	or	%l0,%lo(GPC.getptbEQUIV1_0),%l0
	st	%l1,[%l0+0]

!   26	      CALL INVERT(LL(3),2)

	ld	[%fp-4],%l0
	add	%l0,3,%l0
	sethi	%hi(.L_cseg0),%l1
	or	%l1,%lo(.L_cseg0),%l1
	mov	1,%l2
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	call	invert_
	nop

!   27	      IDATA = IL

	sethi	%hi(GPC.getptbEQUIV1_0),%l0
	or	%l0,%lo(GPC.getptbEQUIV1_0),%l0
	ld	[%l0+0],%l1
	ld	[%fp+72],%l0
	st	%l1,[%l0+0]

!   28	      RETURN

	ba	.L13
	nop

	! block 3

!   29	      end

.L13:
.L11:
.L12:
	jmp	%i7+8
	restore
	.size	getptb_,(.-getptb_)
	.align	8

	.section	".bss",#alloc,#write
	.align	8
	.global	GPC.getptbEQUIV1_0
GPC.getptbEQUIV1_0:
	.skip	4
	.type	GPC.getptbEQUIV1_0,#object
	.size	GPC.getptbEQUIV1_0,4

	.section	".rodata",#alloc
	.align	4
.L_cseg0:
	.word	0x2
	.type	.L_cseg0,#object
	.size	.L_cseg0,4

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