Return to b7.t2 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
L20:
	.long	10
	.data	2
	.data	1
	.data	0
	.data	2
	.data	1
	.data	0
	.data	2
	.data	1
	.data	0
	.data	2
	.data	1
	.data	0
	.globl	_MAIN_
	.globl	_stat_
	.globl	_gtmean_
	.globl	_getmed_
	.align	2
	.stabs	"b7.f",0x64,0,0,0
.text
.globl	_MAIN_
.set	LF1,52
.set	LWM1,0x1C00
.align	1
_MAIN_:.word	LWM1
subl3	$LF1,fp,sp
movl	$v.1,r11
movl	v.3-v.1(r11),r10
movl	$1,r10
L15:pushl	$L20
addl3	$v.2-v.1,r11,-(sp)
callf	$12,_stat_
aobleq	$30000,r10,L15
movl	r10,v.3-v.1(r11)
ret#0
.globl	_stat_
.set	LF2,60
.set	LWM2,0x1F80
.align	1
_stat_:.word	LWM2
subl3	$LF2,fp,sp
movl	$v.4,r11
movl	fp,r12
movl	*8(r12),-56(fp)
subl2	$4,4(r12)
clrl	v.5-v.4(r11)
movl	*8(r12),-60(fp)
movl	v.5-v.4(r11),r10
movl	v.6-v.4(r11),r9
movl	4(r12),r8
movl	-60(fp),r7
movl	$1,r9
cmpl	r9,r7
jgtr	L29
L28:addl2	(r8)[r9],r10
aobleq	r7,r9,L28
L29:movl	r9,v.6-v.4(r11)
movl	r10,v.5-v.4(r11)
addl3	$v.5-v.4,r11,-(sp)
pushl	8(r12)
addl3	$4,4(r12),-(sp)
callf	$16,_gtmean_
movl	r0,v.7-v.4(r11)
addl3	$v.5-v.4,r11,-(sp)
pushl	8(r12)
addl3	$4,4(r12),-(sp)
callf	$16,_getmed_
ret#0
.globl	_gtmean_
.set	LF3,68
.set	LWM3,0x1F80
.align	1
_gtmean_:.word	LWM3
subl3	$LF3,fp,sp
movl	$v.8,r11
movl	fp,r12
movl	*8(r12),-56(fp)
subl2	$4,4(r12)
clrl	v.9-v.8(r11)
movl	*8(r12),-68(fp)
movl	v.10-v.8(r11),r10
movl	v.9-v.8(r11),r9
movl	4(r12),r8
movl	-68(fp),r7
movl	$1,r10
cmpl	r10,r7
jgtr	L42
L41:mull3	r10,(r8)[r10],r0
addl2	r0,r9
aobleq	r7,r10,L41
L42:movl	r9,v.9-v.8(r11)
movl	r10,v.10-v.8(r11)
divl3	*12(r12),r9,-64(fp)
movl	-64(fp),r0
ret#1
.globl	_getmed_
.set	LF4,64
.set	LWM4,0x1FC0
.align	1
_getmed_:.word	LWM4
subl3	$LF4,fp,sp
movl	$v.11,r11
movl	fp,r12
movl	*8(r12),-56(fp)
subl2	$4,4(r12)
clrl	v.12-v.11(r11)
movl	*8(r12),-60(fp)
shar	$2,*12(r12),-64(fp)
movl	v.12-v.11(r11),r10
movl	4(r12),r9
movl	-60(fp),r8
movl	-64(fp),r7
movl	v.13-v.11(r11),r6
movl	$1,r6
cmpl	r6,r8
jgtr	L55
L56:addl2	(r9)[r6],r10
cmpl	r10,r7
jleq	L54
movl	r10,v.12-v.11(r11)
movl	r6,v.13-v.11(r11)
L49:ret#0
L54:aobleq	r8,r6,L56
L55:movl	r6,v.13-v.11(r11)
movl	r10,v.12-v.11(r11)
jbr	L49

	.data	2
	.align	2
v.2:
	.quad	0x1F4000003E8
	.quad	0x7D000000FA0
	.quad	0x64000000C8
	.quad	0x19000000320
	.quad	0x64000000C80
	.align	2
v.3:
	.space	4
	.set	v.1,v.3

	.align	2
v.5:
	.space	4
	.align	2
v.7:
	.space	4
	.align	2
v.6:
	.space	4
	.set	v.4,v.7

	.align	2
v.10:
	.space	4
	.align	2
v.9:
	.space	4
	.set	v.8,v.9

	.align	2
v.13:
	.space	4
	.align	2
v.12:
	.space	4
	.set	v.11,v.12

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