File:  [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst / t03.t0
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
L16:
	.long	0x00000000	# .float 0
	.align	2
L18:
	.long	0x3556BF95	# .float 2.e-07
	.align	2
L19:
	.long	1
	.align	2
L20:
	.long	3
	.align	2
L25:
	.long	2
	.align	2
L34:
	.long	0xA5000000	# .float -2.7755576e-17
	.align	2
L35:
	.long	0x25000000	# .float 2.7755576e-17
	.align	2
L37:
	.long	4
	.align	2
L40:
	.long	0xB44CCCCD	# .float -4.7683717e-08
	.align	2
L41:
	.long	0x344CCCCD	# .float 4.7683717e-08
	.align	2
L43:
	.long	5
	.align	2
L46:
	.long	6
	.align	2
L52:
	.long	7
	.align	2
L57:
	.long	0x43C80000	# .float 100
	.align	2
L59:
	.long	8
	.align	2
L65:
	.long	9
	.align	2
L67:
	.long	0x40C00000	# .float 1.5
	.align	2
L68:
	.long	0x41400000	# .float 3
	.align	2
L69:
	.long	0x3ECCCCCD	# .float .1
	.align	2
L72:
	.long	0x41A00000	# .float 5
	.align	2
L75:
	.long	10
	.align	2
L79:
	.long	0xC4CA8000	# .float -405
	.align	2
L82:
	.long	11
	.align	2
L84:
	.long	0x408CCCCD	# .float 1.1
	.align	2
L85:
	.long	0x4099999A	# .float 1.2
	.align	2
L87:
	.long	12
	.align	2
L90:
	.long	13
	.align	2
L93:
	.long	14
	.align	2
L96:
	.long	15
	.align	2
L99:
	.long	16
	.align	2
L102:
	.long	17
	.align	2
L107:
	.long	0x28101D7D	# .float 2.e-15
	.align	2
L108:
	.long	18
	.align	2
L111:
	.long	0x00000000, 0x00000000	# .double 0
	.align	2
L112:
	.long	0x00000000, 0x00000000	# .double 0
	.align	2
L113:
	.long	0x28101D7D, 0x00000000	# .double 2.0000000072549874e-15
	.align	2
L114:
	.long	19
	.align	2
L119:
	.long	0x28101D7D	# .float 2.e-15
	.align	2
L120:
	.long	20
	.align	2
L123:
	.long	0xA5000000, 0x00000000	# .double -2.7755575615628914e-17
	.align	2
L124:
	.long	0x25000000, 0x00000000	# .double 2.7755575615628914e-17
	.align	2
L125:
	.long	0x28101D7D, 0x00000000	# .double 2.0000000072549874e-15
	.align	2
L126:
	.long	21
	.align	2
L129:
	.long	0xB44CCCCC, 0xCE000000	# .double -4.7683715836965845e-08
	.align	2
L130:
	.long	0x344CCCCC, 0xCE000000	# .double 4.7683715836965845e-08
	.align	2
L131:
	.long	0x28101D7D, 0x00000000	# .double 2.0000000072549874e-15
	.align	2
L132:
	.long	22
	.align	2
L135:
	.long	23
	.align	2
L138:
	.long	0x00000000, 0x00000000	# .double 0
	.align	2
L139:
	.long	0x00000000, 0x00000000	# .double 0
	.align	2
L140:
	.long	0x28101D7D, 0x00000000	# .double 2.0000000072549874e-15
	.align	2
L141:
	.long	24
	.align	2
L144:
	.long	0x00000000, 0x00000000	# .double 0
	.align	2
L145:
	.long	0x00000000, 0x00000000	# .double 0
	.align	2
L146:
	.long	0x43C80000, 0x00000000	# .double 100
	.align	2
L147:
	.long	0x28101D7D, 0x00000000	# .double 2.0000000072549874e-15
	.align	2
L148:
	.long	25
	.align	2
L151:
	.long	0x00000000, 0x00000000	# .double 0
	.align	2
L152:
	.long	0x00000000, 0x00000000	# .double 0
	.align	2
L153:
	.long	0x28101D7D, 0x00000000	# .double 2.0000000072549874e-15
	.align	2
L154:
	.long	26
	.align	2
L156:
	.long	0x40C00000, 0x00000000	# .double 1.5
	.align	2
L157:
	.long	0x41400000, 0x00000000	# .double 3
	.align	2
L158:
	.long	0x3ECCCCCC, 0xCCCCCCCC	# .double .099999999999999998
	.align	2
L161:
	.long	0x41A00000, 0x00000000	# .double 5
	.align	2
L162:
	.long	0x00000000, 0x00000000	# .double 0
	.align	2
L163:
	.long	0x28101D7D, 0x00000000	# .double 2.0000000072549874e-15
	.align	2
L164:
	.long	27
	.align	2
L168:
	.long	0xC4CA8000, 0x00000000	# .double -405
	.align	2
L169:
	.long	0x00000000, 0x00000000	# .double 0
	.align	2
L170:
	.long	0x28101D7D, 0x00000000	# .double 2.0000000072549874e-15
	.align	2
L171:
	.long	28
	.align	2
L173:
	.long	0x408CCCCC, 0xCCCCCCCC	# .double 1.1
	.align	2
L174:
	.long	0x40999999, 0x99999999	# .double 1.2
	.align	2
L176:
	.long	29
	.align	2
L179:
	.long	30
	.align	2
L182:
	.long	31
	.align	2
L185:
	.long	32
	.align	2
L188:
	.long	33
	.align	2
L191:
	.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	L16,r0
	jbr	L9998
L9999:
	movl	L16,r0
L9998:
	cmpf2	r0,L18
	jleq	L15
	pushl	$L20
	pushl	$L19
	callf	$12,_e_
L15:
	movl	L16,r0
	jbr	L9996
L9997:
	movl	L16,r0
L9996:
	cmpf2	r0,L18
	jleq	L21
	pushl	$L20
	pushl	$L25
	callf	$12,_e_
L21:
	movl	L16,r0
	jbr	L9994
L9995:
	movl	L16,r0
L9994:
	cmpf2	r0,L18
	jleq	L27
	pushl	$L20
	pushl	$L20
	callf	$12,_e_
L27:
	jbr	L9993
	movl	L34,r0
	jbr	L9992
L9993:
	movl	L35,r0
L9992:
	cmpf2	r0,L18
	jleq	L33
	pushl	$L20
	pushl	$L37
	callf	$12,_e_
L33:
	jbr	L9991
	movl	L40,r0
	jbr	L9990
L9991:
	movl	L41,r0
L9990:
	cmpf2	r0,L18
	jleq	L39
	pushl	$L20
	pushl	$L43
	callf	$12,_e_
L39:
	jbr	L45
	pushl	$L20
	pushl	$L46
	callf	$12,_e_
L45:
	movl	L16,r0
	jbr	L9988
L9989:
	movl	L16,r0
L9988:
	cmpf2	r0,L18
	jleq	L48
	pushl	$L20
	pushl	$L52
	callf	$12,_e_
L48:
	movl	L16,r0
	jbr	L9986
L9987:
	movl	L16,r0
L9986:
	ldf	r0
	divf	L57
	stf	r0
	cmpf2	r0,L18
	jleq	L54
	pushl	$L20
	pushl	$L59
	callf	$12,_e_
L54:
	movl	L16,r0
	jbr	L9984
L9985:
	movl	L16,r0
L9984:
	cmpf2	r0,L18
	jleq	L61
	pushl	$L20
	pushl	$L65
	callf	$12,_e_
L61:
	movl	L67,v.2-v.1(r11)
	movl	L68,v.3-v.1(r11)
	movl	L69,v.4-v.1(r11)
	ldf	v.3-v.1(r11)
	mulf	L72
	stf	r0
	ldf	r0
	mulf	v.4-v.1(r11)
	stf	r0
	ldf	r0
	subf	v.2-v.1(r11)
	stf	r0
	movl	r0,-56(fp)
	cmpf2	L16,-56(fp)
	jgtr	L9983
	movl	-56(fp),r0
	jbr	L9982
L9983:
	lnf	-56(fp)
	stf	r0
L9982:
	cmpf2	r0,L18
	jleq	L70
	pushl	$L20
	pushl	$L75
	callf	$12,_e_
L70:
	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	L79
	stf	r0
	movl	r0,-60(fp)
	cmpf2	L16,-60(fp)
	jgtr	L9981
	movl	-60(fp),r0
	jbr	L9980
L9981:
	lnf	-60(fp)
	stf	r0
L9980:
	cmpf2	r0,L18
	jleq	L77
	pushl	$L20
	pushl	$L82
	callf	$12,_e_
L77:
	movl	L84,v.2-v.1(r11)
	movl	L85,v.3-v.1(r11)
	cmpf2	v.3-v.1(r11),v.2-v.1(r11)
	jgeq	L86
	pushl	$L20
	pushl	$L87
	callf	$12,_e_
L86:
	cmpf2	v.3-v.1(r11),v.2-v.1(r11)
	jgtr	L89
	pushl	$L20
	pushl	$L90
	callf	$12,_e_
L89:
	cmpf2	v.3-v.1(r11),v.2-v.1(r11)
	jneq	L92
	pushl	$L20
	pushl	$L93
	callf	$12,_e_
L92:
	cmpf2	v.2-v.1(r11),v.2-v.1(r11)
	jeql	L95
	pushl	$L20
	pushl	$L96
	callf	$12,_e_
L95:
	cmpf2	v.2-v.1(r11),v.3-v.1(r11)
	jlss	L98
	pushl	$L20
	pushl	$L99
	callf	$12,_e_
L98:
	cmpf2	v.2-v.1(r11),v.3-v.1(r11)
	jleq	L101
	pushl	$L20
	pushl	$L102
	callf	$12,_e_
L101:
	movl	L16,r0
	jbr	L9978
L9979:
	movl	L16,r0
L9978:
	cmpf2	r0,L107
	jleq	L104
	pushl	$L20
	pushl	$L108
	callf	$12,_e_
L104:
	movl	L111+4,r1
	movl	L111,r0
	jbr	L9976
L9977:
	movl	L112+4,r1
	movl	L112,r0
L9976:
	cmpd2	r0,L113
	jleq	L110
	pushl	$L20
	pushl	$L114
	callf	$12,_e_
L110:
	movl	L16,r0
	jbr	L9974
L9975:
	movl	L16,r0
L9974:
	cmpf2	r0,L119
	jleq	L116
	pushl	$L20
	pushl	$L120
	callf	$12,_e_
L116:
	jbr	L9973
	movl	L123+4,r1
	movl	L123,r0
	jbr	L9972
L9973:
	movl	L124+4,r1
	movl	L124,r0
L9972:
	cmpd2	r0,L125
	jleq	L122
	pushl	$L20
	pushl	$L126
	callf	$12,_e_
L122:
	jbr	L9971
	movl	L129+4,r1
	movl	L129,r0
	jbr	L9970
L9971:
	movl	L130+4,r1
	movl	L130,r0
L9970:
	cmpd2	r0,L131
	jleq	L128
	pushl	$L20
	pushl	$L132
	callf	$12,_e_
L128:
	jbr	L134
	pushl	$L20
	pushl	$L135
	callf	$12,_e_
L134:
	movl	L138+4,r1
	movl	L138,r0
	jbr	L9968
L9969:
	movl	L139+4,r1
	movl	L139,r0
L9968:
	cmpd2	r0,L140
	jleq	L137
	pushl	$L20
	pushl	$L141
	callf	$12,_e_
L137:
	movl	L144+4,r1
	movl	L144,r0
	jbr	L9966
L9967:
	movl	L145+4,r1
	movl	L145,r0
L9966:
	ldd	r0
	divd	L146
	std	r0
	cmpd2	r0,L147
	jleq	L143
	pushl	$L20
	pushl	$L148
	callf	$12,_e_
L143:
	movl	L151+4,r1
	movl	L151,r0
	jbr	L9964
L9965:
	movl	L152+4,r1
	movl	L152,r0
L9964:
	cmpd2	r0,L153
	jleq	L150
	pushl	$L20
	pushl	$L154
	callf	$12,_e_
L150:
	movl	L156+4,v.5-v.1+4(r11)
	movl	L156,v.5-v.1(r11)
	movl	L157+4,v.6-v.1+4(r11)
	movl	L157,v.6-v.1(r11)
	movl	L158+4,v.7-v.1+4(r11)
	movl	L158,v.7-v.1(r11)
	ldd	v.6-v.1(r11)
	muld	L161
	std	r0
	ldd	r0
	muld	v.7-v.1(r11)
	std	r0
	ldd	r0
	subd	v.5-v.1(r11)
	std	r0
	movl	r1,-64(fp)
	movl	r0,-68(fp)
	cmpd2	L162,-68(fp)
	jgtr	L9963
	movl	-64(fp),r1
	movl	-68(fp),r0
	jbr	L9962
L9963:
	lnd	-68(fp)
	std	r0
L9962:
	cmpd2	r0,L163
	jleq	L159
	pushl	$L20
	pushl	$L164
	callf	$12,_e_
L159:
	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	L168
	std	r0
	movl	r1,-72(fp)
	movl	r0,-76(fp)
	cmpd2	L169,-76(fp)
	jgtr	L9961
	movl	-72(fp),r1
	movl	-76(fp),r0
	jbr	L9960
L9961:
	lnd	-76(fp)
	std	r0
L9960:
	cmpd2	r0,L170
	jleq	L166
	pushl	$L20
	pushl	$L171
	callf	$12,_e_
L166:
	movl	L173+4,v.5-v.1+4(r11)
	movl	L173,v.5-v.1(r11)
	movl	L174+4,v.6-v.1+4(r11)
	movl	L174,v.6-v.1(r11)
	cmpd2	v.6-v.1(r11),v.5-v.1(r11)
	jgeq	L175
	pushl	$L20
	pushl	$L176
	callf	$12,_e_
L175:
	cmpd2	v.6-v.1(r11),v.5-v.1(r11)
	jgtr	L178
	pushl	$L20
	pushl	$L179
	callf	$12,_e_
L178:
	cmpd2	v.6-v.1(r11),v.5-v.1(r11)
	jneq	L181
	pushl	$L20
	pushl	$L182
	callf	$12,_e_
L181:
	cmpd2	v.5-v.1(r11),v.5-v.1(r11)
	jeql	L184
	pushl	$L20
	pushl	$L185
	callf	$12,_e_
L184:
	cmpd2	v.5-v.1(r11),v.6-v.1(r11)
	jlss	L187
	pushl	$L20
	pushl	$L188
	callf	$12,_e_
L187:
	cmpd2	v.5-v.1(r11),v.6-v.1(r11)
	jleq	L190
	pushl	$L20
	pushl	$L191
	callf	$12,_e_
L190:
L14:
	ret#0
L12:
	movl	$v.1,r11
	jbr	L13
	.set	LF1,76
	.set	LWM1,0x1800
.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.