Return to t11.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
L22:
	.long	2
	.align	2
L24:
	.long	1
	.align	2
L25:
	.long	11
	.align	2
L26:
	.long	3
	.align	2
L31:
	.long	5
	.align	2
L35:
	.long	100
	.align	2
L36:
	.long	4
	.align	2
L38:
	.long	10
	.align	2
L41:
	.long	15
	.align	2
L42:
	.long	6
	.align	2
L44:
	.long	20
	.align	2
L45:
	.long	7
	.data	2
	.data	1
	.data	0
	.data	2
	.data	1
	.data	0
	.data	2
	.data	1
	.data	0
	.globl	_MAIN_
	.globl	_ack_
	.globl	_e_
	.globl	_fib0_
	.globl	_fib_
	.align	2
	.stabs	"t11.f",0x64,0,0,0
.text
.globl	_MAIN_
.set	LF1,52
.set	LWM1,0x1800
.align	1
_MAIN_:.word	LWM1
subl3	$LF1,fp,sp
movl	$v.1,r11
pushl	$L22
pushl	$L22
callf	$12,_ack_
cmpl	r0,$7
jeql	L15
pushl	$L25
pushl	$L24
callf	$12,_e_
L15:pushl	$L26
pushl	$L26
callf	$12,_ack_
cmpl	r0,$61
jeql	L16
pushl	$L25
pushl	$L22
callf	$12,_e_
L16:pushl	$L31
pushl	$L26
callf	$12,_ack_
cmpl	r0,$253
jeql	L17
pushl	$L25
pushl	$L26
callf	$12,_e_
L17:pushl	$L35
pushl	$L22
callf	$12,_ack_
cmpl	r0,$203
jeql	L18
pushl	$L25
pushl	$L36
callf	$12,_e_
L18:addl3	$v.2-v.1,r11,-(sp)
pushl	$L38
callf	$12,_fib0_
cmpl	v.2-v.1(r11),$55
jeql	L19
pushl	$L25
pushl	$L31
callf	$12,_e_
L19:addl3	$v.2-v.1,r11,-(sp)
pushl	$L41
callf	$12,_fib_
cmpl	v.2-v.1(r11),$610
jeql	L20
pushl	$L25
pushl	$L42
callf	$12,_e_
L20:addl3	$v.2-v.1,r11,-(sp)
pushl	$L44
callf	$12,_fib_
cmpl	v.2-v.1(r11),$6765
jeql	L14
pushl	$L25
pushl	$L45
callf	$12,_e_
L14:ret#0
.globl	_ack_
.set	LF2,76
.set	LWM2,0x1000
.align	1
_ack_:.word	LWM2
subl3	$LF2,fp,sp
movl	fp,r12
tstl	*4(r12)
jeql	L54
tstl	*8(r12)
jeql	L56
subl3	$1,*4(r12),-64(fp)
subl3	$1,*8(r12),-72(fp)
subl3	$72,r12,-(sp)
pushl	4(r12)
callf	$12,_ack_
movl	r0,-68(fp)
subl3	$68,fp,-(sp)
subl3	$64,fp,-(sp)
jbr	L2000001
L54:addl3	$1,*8(r12),-60(fp)
jbr	L49
L56:subl3	$1,*4(r12),-76(fp)
pushl	$L24
subl3	$76,fp,-(sp)
L2000001:callf	$12,_ack_
movl	r0,-60(fp)
L49:movl	-60(fp),r0
ret#1
.globl	_fib0_
.set	LF3,72
.set	LWM3,0x1FC0
.align	1
_fib0_:.word	LWM3
subl3	$LF3,fp,sp
movl	$v.4,r11
movl	4(fp),-68(fp)
movl	8(fp),-64(fp)
subl3	$72,fp,r12
movl	$1,v.5-v.4(r11)
movl	$1,v.6-v.4(r11)
movl	$2,v.7-v.4(r11)
L68:addl3	$1,v.7-v.4(r11),-56(fp)
movl	*4(r12),-60(fp)
movl	v.6-v.4(r11),r10
movl	8(r12),r9
movl	v.5-v.4(r11),r8
movl	-56(fp),r7
movl	-60(fp),r6
movl	r7,v.8-v.4(r11)
cmpl	r7,r6
jgtr	L70
L71:addl3	r10,r8,(r9)
movl	r10,r8
movl	(r9),r10
aobleq	r6,v.8-v.4(r11),L71
L70:movl	r8,v.5-v.4(r11)
movl	r10,v.6-v.4(r11)
movl	*4(r12),v.7-v.4(r11)
ret#0
.align	1
_fib_:.word	LWM3
subl3	$LF3,fp,sp
movl	$v.4,r11
movl	4(fp),-68(fp)
movl	8(fp),-64(fp)
subl3	$72,fp,r12
jbr	L68

	.data	2
	.align	2
v.2:
	.space	4
	.set	v.1,v.2

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

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