[BACK]Return to t01.t2 CVS log [TXT] [DIR] Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst
File:  [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst / t01.t2
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
L53:
	.long	1
	.align	2
L55:
	.long	2
	.align	2
L57:
	.long	3
	.align	2
L59:
	.long	4
	.align	2
L61:
	.long	5
	.align	2
L63:
	.long	6
	.align	2
L65:
	.long	7
	.align	2
L67:
	.long	8
	.align	2
L69:
	.long	9
	.align	2
L71:
	.long	10
	.align	2
L73:
	.long	11
	.align	2
L75:
	.long	12
	.align	2
L77:
	.long	13
	.align	2
L79:
	.long	14
	.align	2
L81:
	.long	15
	.align	2
L83:
	.long	16
	.align	2
L85:
	.long	17
	.align	2
L87:
	.long	18
	.align	2
L89:
	.long	19
	.align	2
L91:
	.long	20
	.align	2
L93:
	.long	21
	.align	2
L95:
	.long	22
	.align	2
L97:
	.long	24
	.align	2
L99:
	.long	25
	.align	2
L101:
	.long	26
	.align	2
L103:
	.long	27
	.align	2
L105:
	.long	28
	.align	2
L107:
	.long	29
	.align	2
L109:
	.long	30
	.align	2
L111:
	.long	31
	.align	2
L113:
	.long	32
	.align	2
L115:
	.long	33
	.align	2
L117:
	.long	34
	.align	2
L119:
	.long	35
	.align	2
L121:
	.long	36
	.align	2
L123:
	.long	37
	.align	2
L125:
	.long	38
	.align	2
L127:
	.long	39
	.data	2
	.data	1
	.data	0
	.globl	_MAIN_
	.globl	_e_
	.align	2
	.stabs	"t01.f",0x64,0,0,0
.text
.globl	_MAIN_
.set	LF1,52
.set	LWM1,0x1000
.align	1
_MAIN_:.word	LWM1
subl3	$LF1,fp,sp
mull3	$9,$6,r0
mull2	$13,r0
divl2	$2,r0
mull3	$10,$10,r1
mull2	$3,r1
addl2	$51,r1
mull2	$6,r1
divl2	$6,r1
cmpl	r0,r1
jeql	L30
pushl	$L53
pushl	$L83
callf	$12,_e_
L30:divl3	$8,$2048,r0
cmpl	r0,$256
jeql	L31
pushl	$L53
pushl	$L85
callf	$12,_e_
L31:divl3	$5040,$5040,r0
cmpl	r0,$1
jeql	L32
pushl	$L53
pushl	$L87
callf	$12,_e_
L32:mnegl	$1,r0
mnegl	r0,r0
mnegl	r0,r0
mnegl	r0,r0
mnegl	r0,r0
mnegl	r0,r0
mnegl	r0,r0
mnegl	r0,r0
mnegl	r0,r0
incl	r0
jeql	L34
pushl	$L53
pushl	$L89
callf	$12,_e_
L34:mnegl	$1,r0
cmpl	$-1,r0
jeql	L35
pushl	$L53
pushl	$L93
callf	$12,_e_
L35:mull3	$-4,$-5,r0
cmpl	r0,$20
jeql	L14
pushl	$L53
pushl	$L95
callf	$12,_e_
L14:ret#0

	.data	2
unix.superglobalmegacorp.com

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