Return to t06.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
L21:
	.long	1
	.align	2
L22:
	.long	6
	.align	2
L28:
	.long	0xC5F25000	# .float -1938.5
	.align	2
L32:
	.long	0xC0000000	# .float -.5
	.align	2
L33:
	.long	0x00000000	# .float 0
	.align	2
L34:
	.long	0x3556BF95	# .float 2.e-07
	.align	2
L35:
	.long	0xC1D00000	# .float -6.5
	.align	2
L38:
	.long	2
	.align	2
L41:
	.long	3
	.align	2
L44:
	.long	4
	.align	2
L46:
	.long	0x40C00000, 0x00000000	# .double 1.5
	.align	2
L47:
	.long	0x3B83126E, 0x978D4FDF	# .double .001
	.align	2
L51:
	.long	5
	.align	2
L67:
	.long	7
	.align	2
L80:
	.long	8
	.align	2
L96:
.byte 0145,00
	.align	2
L98:
.byte 0157,00
	.align	2
L103:
	.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:
	mnegl	$10,r10
L17:
	movl	r10,v.2-v.1(r11)
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	$L22
	pushl	$L21
	callf	$12,_e_
L20:
	movl	$1939,r10
L25:
	movl	r10,v.2-v.1(r11)
L23:
	cvlf	r10
	stf	r0
	ldf	L28
	addf	r0
	stf	r0
	movl	r0,v.4-v.1+-7756(r11)[r10]
	incl	r10
	cmpl	r10,$1945
	jleq	L25
L24:
	movl	r10,v.2-v.1(r11)
	ldf	v.4-v.1(r11)
	addf	L32
	stf	r0
	movl	r0,-56(fp)
	cmpf2	L33,-56(fp)
	jgtr	L9997
	movl	-56(fp),r0
	jbr	L9996
L9997:
	lnf	-56(fp)
	stf	r0
L9996:
	cmpf2	r0,L34
	jgtr	L9998
	ldf	v.4-v.1+24(r11)
	addf	L35
	stf	r0
	movl	r0,-60(fp)
	cmpf2	L33,-60(fp)
	jgtr	L9995
	movl	-60(fp),r0
	jbr	L9994
L9995:
	lnf	-60(fp)
	stf	r0
L9994:
	cmpf2	r0,L34
	jleq	L29
L9998:
	pushl	$L22
	pushl	$L38
	callf	$12,_e_
L29:
	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	L40
L9993:
	pushl	$L22
	pushl	$L41
	callf	$12,_e_
L40:
	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	L43
L9992:
	pushl	$L22
	pushl	$L44
	callf	$12,_e_
L43:
	movl	L46+4,v.6-v.1+4(r11)
	movl	L46,v.6-v.1(r11)
	movl	L47+4,v.6-v.1+12(r11)
	movl	L47,v.6-v.1+8(r11)
	cmpd2	v.6-v.1(r11),L46
	jneq	L9991
	cmpd2	v.6-v.1+8(r11),L47
	jeql	L48
L9991:
	pushl	$L22
	pushl	$L51
	callf	$12,_e_
L48:
	movl	$1939,r10
L55:
	movl	r10,v.2-v.1(r11)
L53:
	addl3	$300,r10,r0
	mull3	$12,r10,r1
	movl	r0,v.7+-93056[r1]
	incl	r10
	cmpl	r10,$1945
	jleq	L55
L54:
	movl	r10,v.2-v.1(r11)
	cmpl	v.7-v.1+64(r11),$2240
	jeql	L58
	pushl	$L22
	pushl	$L22
	callf	$12,_e_
L58:
	movl	$50,r10
L63:
	movl	r10,v.2-v.1(r11)
L61:
	addl3	$200,r10,r0
	movl	r0,v.7-v.1+16(r11)[r10]
	incl	r10
	cmpl	r10,$52
	jleq	L63
L62:
	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	L66
L9990:
	pushl	$L22
	pushl	$L67
	callf	$12,_e_
L66:
	mnegl	$10,r10
L71:
	movl	r10,v.2-v.1(r11)
L69:
	clrl	v.3-v.1+40(r11)[r10]
	incl	r10
	cmpl	r10,$10
	jleq	L71
L70:
	movl	r10,v.2-v.1(r11)
	clrl	r10
L76:
	movl	r10,v.2-v.1(r11)
L74:
	addl3	$1,r10,r0
	divl3	$2,r10,r1
	divl3	$2,r10,r2
	addl2	r2,r1
	movl	r0,v.3-v.1+40(r11)[r1]
	incl	r10
	cmpl	r10,$10
	jleq	L76
L75:
	movl	r10,v.2-v.1(r11)
	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	L79
L9989:
	pushl	$L22
	pushl	$L80
	callf	$12,_e_
L79:
	clrl	r10
L84:
	movl	r10,v.2-v.1(r11)
	clrl	r9
L88:
	movl	r9,v.8-v.1(r11)
	clrl	r8
L92:
	movl	r8,v.9-v.1(r11)
	addl3	r9,r10,r0
	addl2	r8,r0
	divl2	$2,r0
	shll	$1,r0,r0
	addl3	r9,r10,r1
	addl2	r8,r1
	cmpl	r0,r1
	jneq	L95
	shll	$2,r8,r0
	addl2	r9,r0
	mull2	$11,r0
	addl2	r10,r0
	movb	L96,v.10-v.1(r11)[r0]
	jbr	L97
L95:
	shll	$2,r8,r0
	addl2	r9,r0
	mull2	$11,r0
	addl2	r10,r0
	movb	L98,v.10-v.1(r11)[r0]
L97:
L82:
	incl	r8
	cmpl	r8,$3
	jleq	L92
L91:
	movl	r8,v.9-v.1(r11)
	incl	r9
	cmpl	r9,$3
	jleq	L88
L87:
	movl	r9,v.8-v.1(r11)
	incl	r10
	cmpl	r10,$10
	jleq	L84
L83:
	movl	r10,v.2-v.1(r11)
	cmpb	v.10-v.1+112(r11),L96
	jneq	L9988
	cmpb	v.10-v.1+156(r11),L98
	jneq	L9988
	cmpb	v.10-v.1+77(r11),L96
	jeql	L99
L9988:
	pushl	$L22
	pushl	$L103
	callf	$12,_e_
L99:
L14:
	ret#0
L12:
	movl	$v.1,r11
	jbr	L13
	.set	LF1,60
	.set	LWM1,0x1F04
.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.