File:  [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst / t03.t1
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Sun Jul 28 12:26:07 2019 UTC (7 years ago) by root
Branches: bsd, MAIN
CVS tags: v121, HEAD
Power 6/32 Unix version 1.21

	.data	0
	.align	2
L57:
	.long	0x00000000	# .float 0
	.align	2
L59:
	.long	0x3556BF95	# .float 2.e-07
	.align	2
L60:
	.long	1
	.align	2
L61:
	.long	3
	.align	2
L65:
	.long	2
	.align	2
L72:
	.long	0xA5000000	# .float -2.7755576e-17
	.align	2
L73:
	.long	0x25000000	# .float 2.7755576e-17
	.align	2
L75:
	.long	4
	.align	2
L77:
	.long	0xB44CCCCD	# .float -4.7683717e-08
	.align	2
L78:
	.long	0x344CCCCD	# .float 4.7683717e-08
	.align	2
L80:
	.long	5
	.align	2
L82:
	.long	6
	.align	2
L87:
	.long	7
	.align	2
L91:
	.long	0x43C80000	# .float 100
	.align	2
L93:
	.long	8
	.align	2
L95:
	.long	0xC0800000	# .float -1
	.align	2
L98:
	.long	9
	.align	2
L100:
	.long	0x40C00000	# .float 1.5
	.align	2
L101:
	.long	0x41400000	# .float 3
	.align	2
L102:
	.long	0x3ECCCCCD	# .float .1
	.align	2
L103:
	.long	0x41A00000	# .float 5
	.align	2
L106:
	.long	10
	.align	2
L108:
	.long	0xC4CA8000	# .float -405
	.align	2
L111:
	.long	11
	.align	2
L113:
	.long	0x408CCCCD	# .float 1.1
	.align	2
L114:
	.long	0x4099999A	# .float 1.2
	.align	2
L115:
	.long	12
	.align	2
L117:
	.long	13
	.align	2
L119:
	.long	14
	.align	2
L121:
	.long	15
	.align	2
L123:
	.long	16
	.align	2
L125:
	.long	17
	.align	2
L129:
	.long	0x28101D7D	# .float 2.e-15
	.align	2
L130:
	.long	18
	.align	2
L132:
	.long	0x00000000, 0x00000000	# .double 0
	.align	2
L133:
	.long	0x00000000, 0x00000000	# .double 0
	.align	2
L134:
	.long	0x28101D7D, 0x00000000	# .double 2.0000000072549874e-15
	.align	2
L135:
	.long	19
	.align	2
L139:
	.long	0x28101D7D	# .float 2.e-15
	.align	2
L140:
	.long	20
	.align	2
L142:
	.long	0xA5000000, 0x00000000	# .double -2.7755575615628914e-17
	.align	2
L143:
	.long	0x25000000, 0x00000000	# .double 2.7755575615628914e-17
	.align	2
L144:
	.long	0x28101D7D, 0x00000000	# .double 2.0000000072549874e-15
	.align	2
L145:
	.long	21
	.align	2
L147:
	.long	0xB44CCCCC, 0xCE000000	# .double -4.7683715836965845e-08
	.align	2
L148:
	.long	0x344CCCCC, 0xCE000000	# .double 4.7683715836965845e-08
	.align	2
L149:
	.long	0x28101D7D, 0x00000000	# .double 2.0000000072549874e-15
	.align	2
L150:
	.long	22
	.align	2
L152:
	.long	23
	.align	2
L154:
	.long	0x00000000, 0x00000000	# .double 0
	.align	2
L155:
	.long	0x00000000, 0x00000000	# .double 0
	.align	2
L156:
	.long	0x28101D7D, 0x00000000	# .double 2.0000000072549874e-15
	.align	2
L157:
	.long	24
	.align	2
L159:
	.long	0x00000000, 0x00000000	# .double 0
	.align	2
L160:
	.long	0x00000000, 0x00000000	# .double 0
	.align	2
L161:
	.long	0x43C80000, 0x00000000	# .double 100
	.align	2
L162:
	.long	0x28101D7D, 0x00000000	# .double 2.0000000072549874e-15
	.align	2
L163:
	.long	25
	.align	2
L165:
	.long	0xC0800000, 0x00000000	# .double -1
	.align	2
L167:
	.long	0x00000000, 0x00000000	# .double 0
	.align	2
L168:
	.long	0x28101D7D, 0x00000000	# .double 2.0000000072549874e-15
	.align	2
L169:
	.long	26
	.align	2
L171:
	.long	0x40C00000, 0x00000000	# .double 1.5
	.align	2
L172:
	.long	0x41400000, 0x00000000	# .double 3
	.align	2
L173:
	.long	0x3ECCCCCC, 0xCCCCCCCC	# .double .099999999999999998
	.align	2
L174:
	.long	0x41A00000, 0x00000000	# .double 5
	.align	2
L175:
	.long	0x00000000, 0x00000000	# .double 0
	.align	2
L176:
	.long	0x28101D7D, 0x00000000	# .double 2.0000000072549874e-15
	.align	2
L177:
	.long	27
	.align	2
L179:
	.long	0xC4CA8000, 0x00000000	# .double -405
	.align	2
L180:
	.long	0x00000000, 0x00000000	# .double 0
	.align	2
L181:
	.long	0x28101D7D, 0x00000000	# .double 2.0000000072549874e-15
	.align	2
L182:
	.long	28
	.align	2
L184:
	.long	0x408CCCCC, 0xCCCCCCCC	# .double 1.1
	.align	2
L185:
	.long	0x40999999, 0x99999999	# .double 1.2
	.align	2
L186:
	.long	29
	.align	2
L188:
	.long	30
	.align	2
L190:
	.long	31
	.align	2
L192:
	.long	32
	.align	2
L194:
	.long	33
	.align	2
L196:
	.long	34
	.data	2
	.data	1
	.data	0
	.globl	_MAIN_
	.globl	_e_
	.align	2
	.stabs	"t03.f",0x64,0,0,0

.text
	.globl	_MAIN_
	.align	1
_MAIN_:
	.word	LWM1
	subl3	$LF1,fp,sp
	jbr	L12
L13:
	movl	L57,r0
	jbr	L9998
L9999:
	movl	L57,r0
L9998:
	cmpf2	r0,L59
	jleq	L15
	pushl	$L61
	pushl	$L60
	callf	$12,_e_
L15:
	movl	L57,r0
	jbr	L9996
L9997:
	movl	L57,r0
L9996:
	cmpf2	r0,L59
	jleq	L16
	pushl	$L61
	pushl	$L65
	callf	$12,_e_
L16:
	movl	L57,r0
	jbr	L9994
L9995:
	movl	L57,r0
L9994:
	cmpf2	r0,L59
	jleq	L17
	pushl	$L61
	pushl	$L61
	callf	$12,_e_
L17:
	jbr	L9993
	movl	L72,r0
	jbr	L9992
L9993:
	movl	L73,r0
L9992:
	cmpf2	r0,L59
	jleq	L18
	pushl	$L61
	pushl	$L75
	callf	$12,_e_
L18:
	jbr	L9991
	movl	L77,r0
	jbr	L9990
L9991:
	movl	L78,r0
L9990:
	cmpf2	r0,L59
	jleq	L19
	pushl	$L61
	pushl	$L80
	callf	$12,_e_
L19:
	jbr	L20
	pushl	$L61
	pushl	$L82
	callf	$12,_e_
L20:
	movl	L57,r0
	jbr	L9988
L9989:
	movl	L57,r0
L9988:
	cmpf2	r0,L59
	jleq	L21
	pushl	$L61
	pushl	$L87
	callf	$12,_e_
L21:
	movl	L57,r0
	jbr	L9986
L9987:
	movl	L57,r0
L9986:
	ldf	r0
	divf	L91
	stf	r0
	cmpf2	r0,L59
	jleq	L22
	pushl	$L61
	pushl	$L93
	callf	$12,_e_
L22:
	movl	L95,-56(fp)
	addl3	$-1,$-1,r0
	cvlf	r0
	stf	r0
	ldf	r0
	addf	-56(fp)
	stf	r0
	ldf	r0
	addf	-56(fp)
	stf	r0
	ldf	r0
	addf	-56(fp)
	stf	r0
	ldf	r0
	addf	-56(fp)
	stf	r0
	cvlf	$6
	stf	r1
	ldf	r0
	addf	r1
	stf	r0
	movl	r0,-60(fp)
	cmpf2	L57,-60(fp)
	jgtr	L9985
	movl	-60(fp),r0
	jbr	L9984
L9985:
	lnf	-60(fp)
	stf	r0
L9984:
	cmpf2	r0,L59
	jleq	L23
	pushl	$L61
	pushl	$L98
	callf	$12,_e_
L23:
	movl	L100,v.2-v.1(r11)
	movl	L101,v.3-v.1(r11)
	movl	L102,v.4-v.1(r11)
	ldf	v.3-v.1(r11)
	mulf	L103
	stf	r0
	ldf	r0
	mulf	v.4-v.1(r11)
	stf	r0
	ldf	r0
	subf	v.2-v.1(r11)
	stf	r0
	movl	r0,-64(fp)
	cmpf2	L57,-64(fp)
	jgtr	L9983
	movl	-64(fp),r0
	jbr	L9982
L9983:
	lnf	-64(fp)
	stf	r0
L9982:
	cmpf2	r0,L59
	jleq	L24
	pushl	$L61
	pushl	$L106
	callf	$12,_e_
L24:
	ldf	v.3-v.1(r11)
	mulf	v.3-v.1(r11)
	stf	r0
	ldf	r0
	mulf	v.3-v.1(r11)
	stf	r0
	ldf	r0
	divf	v.4-v.1(r11)
	stf	r0
	ldf	r0
	mulf	v.2-v.1(r11)
	stf	r0
	ldf	r0
	addf	L108
	stf	r0
	movl	r0,-68(fp)
	cmpf2	L57,-68(fp)
	jgtr	L9981
	movl	-68(fp),r0
	jbr	L9980
L9981:
	lnf	-68(fp)
	stf	r0
L9980:
	cmpf2	r0,L59
	jleq	L25
	pushl	$L61
	pushl	$L111
	callf	$12,_e_
L25:
	movl	L113,v.2-v.1(r11)
	movl	L114,v.3-v.1(r11)
	cmpf2	v.3-v.1(r11),v.2-v.1(r11)
	jgeq	L26
	pushl	$L61
	pushl	$L115
	callf	$12,_e_
L26:
	cmpf2	v.3-v.1(r11),v.2-v.1(r11)
	jgtr	L27
	pushl	$L61
	pushl	$L117
	callf	$12,_e_
L27:
	cmpf2	v.3-v.1(r11),v.2-v.1(r11)
	jneq	L28
	pushl	$L61
	pushl	$L119
	callf	$12,_e_
L28:
	cmpf2	v.2-v.1(r11),v.2-v.1(r11)
	jeql	L29
	pushl	$L61
	pushl	$L121
	callf	$12,_e_
L29:
	cmpf2	v.2-v.1(r11),v.3-v.1(r11)
	jlss	L30
	pushl	$L61
	pushl	$L123
	callf	$12,_e_
L30:
	cmpf2	v.2-v.1(r11),v.3-v.1(r11)
	jleq	L31
	pushl	$L61
	pushl	$L125
	callf	$12,_e_
L31:
	movl	L57,r0
	jbr	L9978
L9979:
	movl	L57,r0
L9978:
	cmpf2	r0,L129
	jleq	L32
	pushl	$L61
	pushl	$L130
	callf	$12,_e_
L32:
	movl	L132+4,r1
	movl	L132,r0
	jbr	L9976
L9977:
	movl	L133+4,r1
	movl	L133,r0
L9976:
	cmpd2	r0,L134
	jleq	L33
	pushl	$L61
	pushl	$L135
	callf	$12,_e_
L33:
	movl	L57,r0
	jbr	L9974
L9975:
	movl	L57,r0
L9974:
	cmpf2	r0,L139
	jleq	L34
	pushl	$L61
	pushl	$L140
	callf	$12,_e_
L34:
	jbr	L9973
	movl	L142+4,r1
	movl	L142,r0
	jbr	L9972
L9973:
	movl	L143+4,r1
	movl	L143,r0
L9972:
	cmpd2	r0,L144
	jleq	L35
	pushl	$L61
	pushl	$L145
	callf	$12,_e_
L35:
	jbr	L9971
	movl	L147+4,r1
	movl	L147,r0
	jbr	L9970
L9971:
	movl	L148+4,r1
	movl	L148,r0
L9970:
	cmpd2	r0,L149
	jleq	L36
	pushl	$L61
	pushl	$L150
	callf	$12,_e_
L36:
	jbr	L37
	pushl	$L61
	pushl	$L152
	callf	$12,_e_
L37:
	movl	L154+4,r1
	movl	L154,r0
	jbr	L9968
L9969:
	movl	L155+4,r1
	movl	L155,r0
L9968:
	cmpd2	r0,L156
	jleq	L38
	pushl	$L61
	pushl	$L157
	callf	$12,_e_
L38:
	movl	L159+4,r1
	movl	L159,r0
	jbr	L9966
L9967:
	movl	L160+4,r1
	movl	L160,r0
L9966:
	ldd	r0
	divd	L161
	std	r0
	cmpd2	r0,L162
	jleq	L39
	pushl	$L61
	pushl	$L163
	callf	$12,_e_
L39:
	movl	L165+4,-72(fp)
	movl	L165,-76(fp)
	addl3	$-1,$-1,r0
	cvlf	r0
	stf	r0
	ldf	r0
	addf	L95
	stf	r0
	ldfd	r0
	std	r0
	ldd	r0
	addd	-76(fp)
	std	r0
	ldd	r0
	addd	-76(fp)
	std	r0
	ldd	r0
	addd	-76(fp)
	std	r0
	cvld	$6
	std	r2
	ldd	r0
	addd	r2
	std	r0
	movl	r1,-80(fp)
	movl	r0,-84(fp)
	cmpd2	L167,-84(fp)
	jgtr	L9965
	movl	-80(fp),r1
	movl	-84(fp),r0
	jbr	L9964
L9965:
	lnd	-84(fp)
	std	r0
L9964:
	cmpd2	r0,L168
	jleq	L40
	pushl	$L61
	pushl	$L169
	callf	$12,_e_
L40:
	movl	L171+4,v.5-v.1+4(r11)
	movl	L171,v.5-v.1(r11)
	movl	L172+4,v.6-v.1+4(r11)
	movl	L172,v.6-v.1(r11)
	movl	L173+4,v.7-v.1+4(r11)
	movl	L173,v.7-v.1(r11)
	ldd	v.6-v.1(r11)
	muld	L174
	std	r0
	ldd	r0
	muld	v.7-v.1(r11)
	std	r0
	ldd	r0
	subd	v.5-v.1(r11)
	std	r0
	movl	r1,-88(fp)
	movl	r0,-92(fp)
	cmpd2	L175,-92(fp)
	jgtr	L9963
	movl	-88(fp),r1
	movl	-92(fp),r0
	jbr	L9962
L9963:
	lnd	-92(fp)
	std	r0
L9962:
	cmpd2	r0,L176
	jleq	L41
	pushl	$L61
	pushl	$L177
	callf	$12,_e_
L41:
	ldd	v.6-v.1(r11)
	muld	v.6-v.1(r11)
	std	r0
	ldd	r0
	muld	v.6-v.1(r11)
	std	r0
	ldd	r0
	divd	v.7-v.1(r11)
	std	r0
	ldd	r0
	muld	v.5-v.1(r11)
	std	r0
	ldd	r0
	addd	L179
	std	r0
	movl	r1,-96(fp)
	movl	r0,-100(fp)
	cmpd2	L180,-100(fp)
	jgtr	L9961
	movl	-96(fp),r1
	movl	-100(fp),r0
	jbr	L9960
L9961:
	lnd	-100(fp)
	std	r0
L9960:
	cmpd2	r0,L181
	jleq	L42
	pushl	$L61
	pushl	$L182
	callf	$12,_e_
L42:
	movl	L184+4,v.5-v.1+4(r11)
	movl	L184,v.5-v.1(r11)
	movl	L185+4,v.6-v.1+4(r11)
	movl	L185,v.6-v.1(r11)
	cmpd2	v.6-v.1(r11),v.5-v.1(r11)
	jgeq	L43
	pushl	$L61
	pushl	$L186
	callf	$12,_e_
L43:
	cmpd2	v.6-v.1(r11),v.5-v.1(r11)
	jgtr	L44
	pushl	$L61
	pushl	$L188
	callf	$12,_e_
L44:
	cmpd2	v.6-v.1(r11),v.5-v.1(r11)
	jneq	L45
	pushl	$L61
	pushl	$L190
	callf	$12,_e_
L45:
	cmpd2	v.5-v.1(r11),v.5-v.1(r11)
	jeql	L46
	pushl	$L61
	pushl	$L192
	callf	$12,_e_
L46:
	cmpd2	v.5-v.1(r11),v.6-v.1(r11)
	jlss	L47
	pushl	$L61
	pushl	$L194
	callf	$12,_e_
L47:
	cmpd2	v.5-v.1(r11),v.6-v.1(r11)
	jleq	L48
	pushl	$L61
	pushl	$L196
	callf	$12,_e_
L48:
L14:
	ret#0
L12:
	movl	$v.1,r11
	jbr	L13
	.set	LF1,100
	.set	LWM1,0x180C
.text
	.data	2
	.align	2
v.5:
	.space	8
	.align	2
v.7:
	.space	8
	.align	2
v.3:
	.space	4
	.align	2
v.4:
	.space	4
	.align	2
v.2:
	.space	4
	.align	2
v.6:
	.space	8
	.set	v.1,v.4


unix.superglobalmegacorp.com

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