File:  [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst / t12.t1
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
L125:
	.long	1
	.align	2
L126:
	.long	12
	.align	2
L127:
	.long	2
	.align	2
L129:
	.long	3
	.align	2
L131:
	.long	4
	.align	2
L133:
	.long	5
	.align	2
L135:
	.long	6
	.align	2
L137:
	.long	7
	.align	2
L139:
	.long	8
	.align	2
L141:
	.long	9
	.align	2
L143:
	.long	10
	.align	2
L145:
	.long	11
	.align	2
L149:
	.long	13
	.align	2
L151:
	.long	14
	.data	2
	.data	1
	.data	0
	.globl	_MAIN_
	.globl	_e_
	.align	2
	.stabs	"t12.f",0x64,0,0,0

.text
	.globl	_MAIN_
	.align	1
_MAIN_:
	.word	LWM1
	subl3	$LF1,fp,sp
	jbr	L12
L13:
	movl	$5,v.2-v.1(r11)
	clrl	v.3-v.1(r11)
	movl	v.2-v.1(r11),-56(fp)
	movl	v.3-v.1(r11),r10
	movl	-56(fp),r9
	movl	v.4-v.1(r11),r8
	movl	$1,r8
	cmpl	r8,r9
	jgtr	L16
L17:
L15:
	addl3	$1,r10,r0
	movl	r0,r10
	incl	r8
	cmpl	r8,r9
	jleq	L17
L16:
	movl	r8,v.4-v.1(r11)
	movl	r10,v.3-v.1(r11)
	cmpl	v.3-v.1(r11),$5
	jeql	L20
	pushl	$L126
	pushl	$L125
	callf	$12,_e_
L20:
	clrl	v.3-v.1(r11)
	movl	v.2-v.1(r11),-60(fp)
	movl	v.3-v.1(r11),r10
	movl	-60(fp),r9
	movl	v.4-v.1(r11),r8
	movl	$5,r8
	cmpl	r8,r9
	jgtr	L22
L23:
L21:
	addl3	$1,r10,r0
	movl	r0,r10
	incl	r8
	cmpl	r8,r9
	jleq	L23
L22:
	movl	r8,v.4-v.1(r11)
	movl	r10,v.3-v.1(r11)
	cmpl	v.3-v.1(r11),$1
	jeql	L26
	pushl	$L126
	pushl	$L127
	callf	$12,_e_
L26:
	clrl	v.3-v.1(r11)
	movl	v.2-v.1(r11),-64(fp)
	movl	v.3-v.1(r11),r10
	movl	-64(fp),r9
	movl	v.4-v.1(r11),r8
	movl	$6,r8
	cmpl	r8,r9
	jgtr	L28
L29:
L27:
	addl3	$1,r10,r0
	movl	r0,r10
	incl	r8
	cmpl	r8,r9
	jleq	L29
L28:
	movl	r8,v.4-v.1(r11)
	movl	r10,v.3-v.1(r11)
	tstl	v.3-v.1(r11)
	jeql	L32
	pushl	$L126
	pushl	$L129
	callf	$12,_e_
L32:
	clrl	v.3-v.1(r11)
	mnegl	v.2-v.1(r11),r0
	movl	r0,-68(fp)
	movl	v.3-v.1(r11),r10
	movl	-68(fp),r9
	movl	v.4-v.1(r11),r8
	mnegl	$1,r8
	cmpl	r8,r9
	jlss	L34
L35:
L33:
	addl3	$1,r10,r0
	movl	r0,r10
	addl2	$-1,r8
	cmpl	r8,r9
	jgeq	L35
L34:
	movl	r8,v.4-v.1(r11)
	movl	r10,v.3-v.1(r11)
	cmpl	v.3-v.1(r11),$5
	jeql	L38
	pushl	$L126
	pushl	$L131
	callf	$12,_e_
L38:
	clrl	v.3-v.1(r11)
	mnegl	v.2-v.1(r11),r0
	movl	r0,-72(fp)
	movl	v.3-v.1(r11),r10
	movl	-72(fp),r9
	movl	v.4-v.1(r11),r8
	mnegl	$5,r8
	cmpl	r8,r9
	jlss	L40
L41:
L39:
	addl3	$1,r10,r0
	movl	r0,r10
	addl2	$-1,r8
	cmpl	r8,r9
	jgeq	L41
L40:
	movl	r8,v.4-v.1(r11)
	movl	r10,v.3-v.1(r11)
	cmpl	v.3-v.1(r11),$1
	jeql	L44
	pushl	$L126
	pushl	$L133
	callf	$12,_e_
L44:
	clrl	v.3-v.1(r11)
	movl	v.2-v.1(r11),-76(fp)
	movl	v.3-v.1(r11),r10
	movl	-76(fp),r9
	movl	v.4-v.1(r11),r8
	mnegl	$6,r8
	cmpl	r8,r9
	jlss	L46
L47:
L45:
	addl3	$1,r10,r0
	movl	r0,r10
	addl2	$-1,r8
	cmpl	r8,r9
	jgeq	L47
L46:
	movl	r8,v.4-v.1(r11)
	movl	r10,v.3-v.1(r11)
	tstl	v.3-v.1(r11)
	jeql	L50
	pushl	$L126
	pushl	$L135
	callf	$12,_e_
L50:
	clrl	v.3-v.1(r11)
	movl	v.3-v.1(r11),r10
	movl	v.4-v.1(r11),r9
	movl	$1,r9
	jbr	L52
L53:
L51:
	addl3	$1,r10,r0
	movl	r0,r10
	addl2	$-1,r9
	cmpl	r9,$10
	jgeq	L53
L52:
	movl	r9,v.4-v.1(r11)
	movl	r10,v.3-v.1(r11)
	tstl	v.3-v.1(r11)
	jeql	L56
	pushl	$L126
	pushl	$L137
	callf	$12,_e_
L56:
	clrl	v.3-v.1(r11)
	movl	$2,v.4-v.1(r11)
	movl	v.2-v.1(r11),-80(fp)
	movl	v.4-v.1(r11),-88(fp)
	subl3	-88(fp),$1,r0
	movl	r0,-84(fp)
	movl	-80(fp),r10
	movl	-88(fp),r9
	movl	v.3-v.1(r11),r8
	movl	v.5-v.1(r11),r7
	movl	-84(fp),r6
	movl	r6,r7
	tstl	r9
	jlss	L61
L60:
	addl2	r9,r7
	cmpl	r7,r10
	jgtr	L58
L59:
L57:
	addl3	$1,r8,r0
	movl	r0,r8
	tstl	r9
	jgtr	L60
L61:
	addl2	r9,r7
	cmpl	r7,r10
	jgeq	L59
L58:
	movl	r7,v.5-v.1(r11)
	movl	r8,v.3-v.1(r11)
	cmpl	v.3-v.1(r11),$3
	jeql	L62
	pushl	$L126
	pushl	$L139
	callf	$12,_e_
L62:
	clrl	v.3-v.1(r11)
	movl	v.2-v.1(r11),-92(fp)
	movl	v.4-v.1(r11),-100(fp)
	subl3	-100(fp),$5,r0
	movl	r0,-96(fp)
	movl	-92(fp),r10
	movl	-100(fp),r9
	movl	v.3-v.1(r11),r8
	movl	v.5-v.1(r11),r7
	movl	-96(fp),r6
	movl	r6,r7
	tstl	r9
	jlss	L67
L66:
	addl2	r9,r7
	cmpl	r7,r10
	jgtr	L64
L65:
L63:
	addl3	$1,r8,r0
	movl	r0,r8
	tstl	r9
	jgtr	L66
L67:
	addl2	r9,r7
	cmpl	r7,r10
	jgeq	L65
L64:
	movl	r7,v.5-v.1(r11)
	movl	r8,v.3-v.1(r11)
	cmpl	v.3-v.1(r11),$1
	jeql	L68
	pushl	$L126
	pushl	$L141
	callf	$12,_e_
L68:
	clrl	v.3-v.1(r11)
	movl	v.2-v.1(r11),-104(fp)
	movl	v.4-v.1(r11),-112(fp)
	subl3	-112(fp),$6,r0
	movl	r0,-108(fp)
	movl	-104(fp),r10
	movl	-112(fp),r9
	movl	v.3-v.1(r11),r8
	movl	v.5-v.1(r11),r7
	movl	-108(fp),r6
	movl	r6,r7
	tstl	r9
	jlss	L73
L72:
	addl2	r9,r7
	cmpl	r7,r10
	jgtr	L70
L71:
L69:
	addl3	$1,r8,r0
	movl	r0,r8
	tstl	r9
	jgtr	L72
L73:
	addl2	r9,r7
	cmpl	r7,r10
	jgeq	L71
L70:
	movl	r7,v.5-v.1(r11)
	movl	r8,v.3-v.1(r11)
	tstl	v.3-v.1(r11)
	jeql	L74
	pushl	$L126
	pushl	$L143
	callf	$12,_e_
L74:
	clrl	v.3-v.1(r11)
	mnegl	v.2-v.1(r11),r0
	movl	r0,-116(fp)
	mnegl	v.4-v.1(r11),r0
	movl	r0,-124(fp)
	subl3	r0,$-1,r0
	movl	r0,-120(fp)
	movl	-116(fp),r10
	movl	-124(fp),r9
	movl	v.3-v.1(r11),r8
	movl	v.5-v.1(r11),r7
	movl	-120(fp),r6
	movl	r6,r7
	tstl	r9
	jlss	L79
L78:
	addl2	r9,r7
	cmpl	r7,r10
	jgtr	L76
L77:
L75:
	addl3	$1,r8,r0
	movl	r0,r8
	tstl	r9
	jgtr	L78
L79:
	addl2	r9,r7
	cmpl	r7,r10
	jgeq	L77
L76:
	movl	r7,v.5-v.1(r11)
	movl	r8,v.3-v.1(r11)
	cmpl	v.3-v.1(r11),$3
	jeql	L80
	pushl	$L126
	pushl	$L145
	callf	$12,_e_
L80:
	clrl	v.3-v.1(r11)
	mnegl	v.2-v.1(r11),r0
	movl	r0,-128(fp)
	mnegl	v.4-v.1(r11),r0
	movl	r0,-136(fp)
	subl3	r0,$-5,r0
	movl	r0,-132(fp)
	movl	-128(fp),r10
	movl	-136(fp),r9
	movl	v.3-v.1(r11),r8
	movl	v.5-v.1(r11),r7
	movl	-132(fp),r6
	movl	r6,r7
	tstl	r9
	jlss	L85
L84:
	addl2	r9,r7
	cmpl	r7,r10
	jgtr	L82
L83:
L81:
	addl3	$1,r8,r0
	movl	r0,r8
	tstl	r9
	jgtr	L84
L85:
	addl2	r9,r7
	cmpl	r7,r10
	jgeq	L83
L82:
	movl	r7,v.5-v.1(r11)
	movl	r8,v.3-v.1(r11)
	cmpl	v.3-v.1(r11),$1
	jeql	L86
	pushl	$L126
	pushl	$L126
	callf	$12,_e_
L86:
	clrl	v.3-v.1(r11)
	movl	v.2-v.1(r11),-140(fp)
	mnegl	v.4-v.1(r11),r0
	movl	r0,-148(fp)
	subl3	r0,$-6,r0
	movl	r0,-144(fp)
	movl	-140(fp),r10
	movl	-148(fp),r9
	movl	v.3-v.1(r11),r8
	movl	v.5-v.1(r11),r7
	movl	-144(fp),r6
	movl	r6,r7
	tstl	r9
	jlss	L91
L90:
	addl2	r9,r7
	cmpl	r7,r10
	jgtr	L88
L89:
L87:
	addl3	$1,r8,r0
	movl	r0,r8
	tstl	r9
	jgtr	L90
L91:
	addl2	r9,r7
	cmpl	r7,r10
	jgeq	L89
L88:
	movl	r7,v.5-v.1(r11)
	movl	r8,v.3-v.1(r11)
	tstl	v.3-v.1(r11)
	jeql	L92
	pushl	$L126
	pushl	$L149
	callf	$12,_e_
L92:
	clrl	v.3-v.1(r11)
	mnegl	v.4-v.1(r11),r0
	movl	r0,-156(fp)
	subl3	r0,$1,r0
	movl	r0,-152(fp)
	movl	-156(fp),r10
	movl	v.3-v.1(r11),r9
	movl	v.5-v.1(r11),r8
	movl	-152(fp),r7
	movl	r7,r8
	tstl	r10
	jlss	L97
L96:
	addl2	r10,r8
	cmpl	r8,$10
	jgtr	L94
L95:
L93:
	addl3	$1,r9,r0
	movl	r0,r9
	tstl	r10
	jgtr	L96
L97:
	addl2	r10,r8
	cmpl	r8,$10
	jgeq	L95
L94:
	movl	r8,v.5-v.1(r11)
	movl	r9,v.3-v.1(r11)
	tstl	v.3-v.1(r11)
	jeql	L98
	pushl	$L126
	pushl	$L151
	callf	$12,_e_
L98:
L14:
	ret#0
L12:
	movl	$v.1,r11
	jbr	L13
	.set	LF1,156
	.set	LWM1,0x1FC0
.text
	.data	2
	.align	2
v.4:
	.space	4
	.align	2
v.3:
	.space	4
	.align	2
v.5:
	.space	4
	.align	2
v.2:
	.space	4
	.set	v.1,v.5


unix.superglobalmegacorp.com

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