Return to g.t0 CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst

Power 6/32 Unix version 1.21

	.data	0
	.align	2
L15:
	.long	0x00000000	# .float 0
	.align	2
L16:
	.long	0x41C90FDB	# .float 6.2831855
	.align	2
L17:
	.long	0x3DA3D70A	# .float .02
	.align	2
L18:
	.long	0xC0800000	# .float -1
	.align	2
L19:
	.long	0x40800000	# .float 1
	.data	2
	.data	1
	.data	0
	.align	2
L31:
.byte 040,00
	.align	2
L32:
	.long	1
	.align	2
L34:
	.long	0x43940000	# .float 74
	.align	2
L45:
.byte 052,00
	.align	2
L29:
.byte 050,070
.byte 060,0141
.byte 061,051
.byte 00,00
	.data	2
	.data	1
	.data	0
	.align	2
L54:
	.long	0x42400000	# .float 12
	.data	2
	.data	1
	.data	0
	.globl	_MAIN_
	.globl	_graf_
	.globl	_xsin_
	.globl	_s_wsfe
	.globl	_do_fio
	.globl	_e_wsfe
	.align	2
	.stabs	"g.f",0x64,0,0,0

.text
	.globl	_MAIN_
	.align	1
_MAIN_:
	.word	LWM1
	subl3	$LF1,fp,sp
	jbr	L12
L13:
	pushl	$L19
	pushl	$L18
	pushl	$L17
	pushl	$L16
	pushl	$L15
	pushl	$_xsin_
	callf	$28,_graf_
L14:
	ret#0
L12:
	jbr	L13
	.set	LF1,52
	.set	LWM1,0x1000
.text
	.globl	_graf_
	.align	1
_graf_:
	.word	LWM2
	subl3	$LF2,fp,sp
	jbr	L21
L24:
	movl	*8(r12),v.3-v.2(r11)
L26:
	addl3	$v.3-v.2,r11,r0
	pushl	r0
	calls	$8,*4(r12)
	movl	r0,v.4-v.2(r11)
	cmpf2	v.4-v.2(r11),*20(r12)
	jlss	L9999
	cmpf2	v.4-v.2(r11),*24(r12)
	jleq	L27
L9999:
	pushl	$v.5
	callf	$8,_s_wsfe
	movb	L31,-53(fp)
	pushl	$1
	addl3	$-53,fp,r0
	pushl	r0
	pushl	$L32
	callf	$16,_do_fio
	callf	$4,_e_wsfe
	jbr	L33
L27:
	ldf	v.4-v.2(r11)
	subf	*20(r12)
	stf	r0
	ldf	*24(r12)
	subf	*20(r12)
	stf	r1
	ldf	r0
	divf	r1
	stf	r0
	ldf	r0
	mulf	L34
	stf	r0
	ldf	r0
	cvfl	r0
	movl	r0,v.6-v.2(r11)
	pushl	$v.7
	callf	$8,_s_wsfe
	movl	$1,r10
	movl	v.6-v.2(r11),-60(fp)
	cmpl	r10,-60(fp)
	jgtr	L36
L37:
	movl	r10,v.8-v.2(r11)
	movb	L31,-61(fp)
	pushl	$1
	addl3	$-61,fp,r0
	pushl	r0
	pushl	$L32
	callf	$16,_do_fio
	incl	r10
	cmpl	r10,-60(fp)
	jleq	L37
L36:
	movl	r10,v.8-v.2(r11)
	movb	L45,-62(fp)
	pushl	$1
	addl3	$-62,fp,r0
	pushl	r0
	pushl	$L32
	callf	$16,_do_fio
	callf	$4,_e_wsfe
L33:
	ldf	v.3-v.2(r11)
	addf	*16(r12)
	stf	r0
	movl	r0,v.3-v.2(r11)
	cmpf2	v.3-v.2(r11),*12(r12)
	jgtr	L47
	jbr	L26
L47:
	jbr	L23
L23:
L22:
	ret#0
L21:
	movl	$v.2,r11
	movl	fp,r12
	jbr	L24
	.set	LF2,64
	.set	LWM2,0x1C00
.text
	.globl	_xsin_
	.align	1
_xsin_:
	.word	LWM3
	subl3	$LF3,fp,sp
	jbr	L49
L51:
	ldf	*4(r12)
	mulf	L54
	stf	r0
	ldf	r0
	sinf
	stf	r0
	ldf	*4(r12)
	sinf
	stf	r1
	ldf	r0
	mulf	r1
	stf	r0
	movl	r0,-60(fp)
	jbr	L50
L50:
	movl	-60(fp),r0
	ret#1
L49:
	movl	fp,r12
	jbr	L51
	.set	LF3,60
	.set	LWM3,0x1000
.text
	.data	2
	.align	2
v.7:
	.long	0
	.long	6
	.space	4
	.long	L29
	.align	2
v.5:
	.long	0
	.long	6
	.space	4
	.long	L29
	.align	2
v.8:
	.space	4
	.align	2
v.3:
	.space	4
	.align	2
v.4:
	.space	4
	.align	2
v.6:
	.space	4
	.set	v.2,v.4

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.