Return to t06.t1 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
L74:
	.long	1
	.align	2
L75:
	.long	6
	.align	2
L76:
	.long	0xC5F25000	# .float -1938.5
	.align	2
L77:
	.long	0xC0000000	# .float -.5
	.align	2
L78:
	.long	0xC1D00000	# .float -6.5
	.align	2
L79:
	.long	0x00000000	# .float 0
	.align	2
L80:
	.long	0x3556BF95	# .float 2.e-07
	.align	2
L83:
	.long	2
	.align	2
L85:
	.long	3
	.align	2
L87:
	.long	4
	.align	2
L89:
	.long	0x40C00000, 0x00000000	# .double 1.5
	.align	2
L90:
	.long	0x3B83126E, 0x978D4FDF	# .double .001
	.align	2
L93:
	.long	5
	.align	2
L97:
	.long	7
	.align	2
L99:
	.long	8
	.align	2
L101:
.byte 0145,00
	.align	2
L102:
.byte 0157,00
	.align	2
L106:
	.long	9
	.data	2
	.data	1
	.data	0
	.globl	_MAIN_
	.globl	_e_
	.align	2
	.stabs	"t06.f",0x64,0,0,0

.text
	.globl	_MAIN_
	.align	1
_MAIN_:
	.word	LWM1
	subl3	$LF1,fp,sp
	jbr	L12
L13:
	movl	v.2-v.1(r11),r10
	mnegl	$10,r10
L17:
L15:
	mull3	r10,r10,r0
	movl	r0,v.3-v.1+40(r11)[r10]
	incl	r10
	cmpl	r10,$10
	jleq	L17
L16:
	movl	r10,v.2-v.1(r11)
	cmpl	v.3-v.1(r11),$100
	jneq	L9999
	cmpl	v.3-v.1+76(r11),$81
	jeql	L20
L9999:
	pushl	$L75
	pushl	$L74
	callf	$12,_e_
L20:
	movl	v.2-v.1(r11),r10
	movl	$1939,r10
L23:
L21:
	cvlf	r10
	stf	r0
	ldf	L76
	addf	r0
	stf	r0
	movl	r0,v.4-v.1+-7756(r11)[r10]
	incl	r10
	cmpl	r10,$1945
	jleq	L23
L22:
	movl	r10,v.2-v.1(r11)
	ldf	v.4-v.1(r11)
	addf	L77
	stf	r0
	movl	r0,-56(fp)
	ldf	v.4-v.1+24(r11)
	addf	L78
	stf	r0
	movl	r0,-60(fp)
	cmpf2	L79,-56(fp)
	jgtr	L9997
	movl	-56(fp),r0
	jbr	L9996
L9997:
	lnf	-56(fp)
	stf	r0
L9996:
	cmpf2	r0,L80
	jgtr	L9998
	cmpf2	L79,-60(fp)
	jgtr	L9995
	movl	-60(fp),r0
	jbr	L9994
L9995:
	lnf	-60(fp)
	stf	r0
L9994:
	cmpf2	r0,L80
	jleq	L26
L9998:
	pushl	$L75
	pushl	$L83
	callf	$12,_e_
L26:
	movl	$1,v.5-v.1+8(r11)
	movl	$1,v.5-v.1+4(r11)
	cmpl	v.5-v.1+8(r11),$1
	jneq	L9993
	cmpl	v.5-v.1+4(r11),$1
	jeql	L27
L9993:
	pushl	$L75
	pushl	$L85
	callf	$12,_e_
L27:
	clrl	v.5-v.1+8(r11)
	clrl	v.5-v.1+4(r11)
	tstl	v.5-v.1+8(r11)
	jneq	L9992
	tstl	v.5-v.1+4(r11)
	jeql	L28
L9992:
	pushl	$L75
	pushl	$L87
	callf	$12,_e_
L28:
	movl	L89+4,v.6-v.1+4(r11)
	movl	L89,v.6-v.1(r11)
	movl	L90+4,v.6-v.1+12(r11)
	movl	L90,v.6-v.1+8(r11)
	cmpd2	v.6-v.1(r11),L89
	jneq	L9991
	cmpd2	v.6-v.1+8(r11),L90
	jeql	L29
L9991:
	pushl	$L75
	pushl	$L93
	callf	$12,_e_
L29:
	movl	v.2-v.1(r11),r10
	movl	$1939,r10
L32:
L30:
	addl3	$300,r10,r0
	mull3	$12,r10,r1
	movl	r0,v.7+-93056[r1]
	incl	r10
	cmpl	r10,$1945
	jleq	L32
L31:
	movl	r10,v.2-v.1(r11)
	cmpl	v.7-v.1+64(r11),$2240
	jeql	L35
	pushl	$L75
	pushl	$L75
	callf	$12,_e_
L35:
	movl	v.2-v.1(r11),r10
	movl	$50,r10
L38:
L36:
	addl3	$200,r10,r0
	movl	r0,v.7-v.1+16(r11)[r10]
	incl	r10
	cmpl	r10,$52
	jleq	L38
L37:
	movl	r10,v.2-v.1(r11)
	cmpl	v.7-v.1+216(r11),$250
	jneq	L9990
	cmpl	v.7-v.1+224(r11),$252
	jeql	L41
L9990:
	pushl	$L75
	pushl	$L97
	callf	$12,_e_
L41:
	movl	v.2-v.1(r11),r10
	mnegl	$10,r10
L44:
L42:
	clrl	v.3-v.1+40(r11)[r10]
	incl	r10
	cmpl	r10,$10
	jleq	L44
L43:
	movl	r10,v.2-v.1(r11)
	movl	-64(fp),r10
	movl	v.2-v.1(r11),r9
	clrl	r9
L49:
L47:
	divl3	$2,r9,r0
	movl	r0,r10
	addl3	$1,r9,r0
	addl3	r10,r10,r1
	movl	r0,v.3-v.1+40(r11)[r1]
	incl	r9
	cmpl	r9,$10
	jleq	L49
L48:
	movl	r9,v.2-v.1(r11)
	movl	r10,-64(fp)
	cmpl	v.3-v.1+40(r11),$2
	jneq	L9989
	tstl	v.3-v.1+60(r11)
	jneq	L9989
	cmpl	v.3-v.1+72(r11),$10
	jeql	L52
L9989:
	pushl	$L75
	pushl	$L99
	callf	$12,_e_
L52:
	movl	v.9-v.1(r11),r10
	movl	v.2-v.1(r11),r9
	movl	v.8-v.1(r11),r8
	movl	-68(fp),r7
	movl	-72(fp),r6
	clrl	r9
L55:
	clrl	r8
L59:
	addl3	r8,r9,r0
	movl	r0,r7
	addl3	r8,r9,r0
	movl	r0,r6
	clrl	r10
L63:
	addl3	r10,r7,r0
	divl2	$2,r0
	shll	$1,r0,r0
	addl3	r10,r6,r1
	cmpl	r0,r1
	jneq	L66
	shll	$2,r10,r0
	addl2	r8,r0
	mull2	$11,r0
	addl2	r9,r0
	movb	L101,v.10-v.1(r11)[r0]
	jbr	L67
L66:
	shll	$2,r10,r0
	addl2	r8,r0
	mull2	$11,r0
	addl2	r9,r0
	movb	L102,v.10-v.1(r11)[r0]
L67:
L53:
	incl	r10
	cmpl	r10,$3
	jleq	L63
L62:
	incl	r8
	cmpl	r8,$3
	jleq	L59
L58:
	incl	r9
	cmpl	r9,$10
	jleq	L55
L54:
	movl	r6,-72(fp)
	movl	r7,-68(fp)
	movl	r8,v.8-v.1(r11)
	movl	r9,v.2-v.1(r11)
	movl	r10,v.9-v.1(r11)
	cmpb	v.10-v.1+112(r11),L101
	jneq	L9988
	cmpb	v.10-v.1+156(r11),L102
	jneq	L9988
	cmpb	v.10-v.1+77(r11),L101
	jeql	L68
L9988:
	pushl	$L75
	pushl	$L106
	callf	$12,_e_
L68:
L14:
	ret#0
L12:
	movl	$v.1,r11
	jbr	L13
	.set	LF1,72
	.set	LWM1,0x1FC0
.text
	.data	2
v.10:
	.space	176
	.align	2
v.4:
	.space	28
	.align	2
v.5:
	.space	12
	.align	2
v.8:
	.space	4
	.align	2
v.9:
	.space	4
	.align	2
v.2:
	.space	4
	.align	2
v.6:
	.space	16
	.align	2
v.3:
	.space	84
	.align	2
v.7:
	.space	336
	.set	v.1,v.9

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