[BACK]Return to t18.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 / t18.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
L32:
	.long	0
	.align	2
L33:
	.long	1
	.align	2
L34:
	.long	18
	.align	2
L35:
	.long	2
	.align	2
L38:
	.long	3
	.align	2
L41:
	.long	4
	.align	2
L46:
	.long	5
	.align	2
L53:
	.long	6
	.align	2
L55:
	.long	7
	.align	2
L58:
	.long	8
	.align	2
L61:
	.long	15
	.align	2
L62:
	.long	9
	.align	2
L65:
	.long	10
	.align	2
L67:
	.long	11
	.align	2
L70:
	.long	12
	.align	2
L74:
	.long	324
	.align	2
L75:
	.long	13
	.align	2
L78:
	.long	400
	.align	2
L79:
	.long	14
	.align	2
L82:
	.long	1369
	.data	2
	.data	1
	.data	0
	.data	2
	.data	1
	.data	0
	.data	2
	.data	1
	.data	0
	.data	2
	.data	1
	.data	0
	.data	2
	.data	1
	.data	0
	.data	2
	.data	1
	.data	0
	.data	2
	.data	1
	.data	0
	.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	_incr_
	.globl	_e_
	.globl	_decr_
	.globl	_double_
	.globl	_eval_
	.globl	_apply_
	.globl	_x1_
	.globl	_p1_
	.globl	_x2_
	.globl	_p0_
	.comm	_p1c_,4
	.globl	_p2_
	.align	2
	.stabs	"t18.f",0x64,0,0,0
.text
.globl	_MAIN_
.set	LF1,124
.set	LWM1,0x1800
.align	1
_MAIN_:.word	LWM1
subl3	$LF1,fp,sp
movl	$v.1,r11
movl	$10,v.3-v.1(r11)
movl	$20,v.4-v.1(r11)
pushl	$L32
callf	$8,_incr_
cmpl	r0,$1
jeql	L15
pushl	$L34
pushl	$L33
callf	$12,_e_
L15:addl3	$v.3-v.1,r11,-(sp)
callf	$8,_decr_
cmpl	r0,$9
jeql	L16
pushl	$L34
pushl	$L35
callf	$12,_e_
L16:addl3	v.4-v.1(r11),v.3-v.1(r11),-72(fp)
subl3	$72,fp,-(sp)
callf	$8,_double_
cmpl	r0,$60
jeql	L17
pushl	$L34
pushl	$L38
callf	$12,_e_
L17:addl3	$v.4-v.1,r11,-(sp)
callf	$8,_double_
movl	r0,-76(fp)
subl3	$76,fp,-(sp)
callf	$8,_incr_
cmpl	r0,$41
jeql	L18
pushl	$L34
pushl	$L41
callf	$12,_e_
L18:addl3	$v.3-v.1,r11,-(sp)
callf	$8,_double_
movl	r0,-88(fp)
subl3	$88,fp,-(sp)
callf	$8,_incr_
movl	r0,-84(fp)
subl3	$84,fp,-(sp)
callf	$8,_double_
movl	r0,-80(fp)
subl3	$80,fp,-(sp)
callf	$8,_decr_
cmpl	r0,$41
jeql	L19
pushl	$L34
pushl	$L46
callf	$12,_e_
L19:pushl	$L46
callf	$8,_incr_
movl	r0,-104(fp)
subl3	$104,fp,-(sp)
callf	$8,_incr_
movl	r0,-100(fp)
subl3	$100,fp,-(sp)
callf	$8,_incr_
movl	r0,-96(fp)
subl3	$96,fp,-(sp)
callf	$8,_incr_
movl	r0,-92(fp)
subl3	$92,fp,-(sp)
callf	$8,_incr_
cmpl	r0,$10
jeql	L20
pushl	$L34
pushl	$L53
callf	$12,_e_
L20:addl3	$v.3-v.1,r11,-(sp)
pushl	$_incr_
callf	$12,_eval_
cmpl	r0,$11
jeql	L21
pushl	$L34
pushl	$L55
callf	$12,_e_
L21:pushl	$L38
pushl	$_decr_
callf	$12,_eval_
cmpl	r0,$2
jeql	L22
pushl	$L34
pushl	$L58
callf	$12,_e_
L22:pushl	$L61
pushl	$_double_
callf	$12,_eval_
movl	r0,-108(fp)
subl3	$108,fp,-(sp)
callf	$8,_incr_
cmpl	r0,$31
jeql	L23
pushl	$L34
pushl	$L62
callf	$12,_e_
L23:pushl	$L38
pushl	$_incr_
callf	$12,_apply_
cmpl	r0,$4
jeql	L24
pushl	$L34
pushl	$L65
callf	$12,_e_
L24:addl3	$v.4-v.1,r11,-(sp)
addl3	$v.3-v.1,r11,-(sp)
pushl	$_double_
callf	$16,_x1_
cmpl	v.4-v.1(r11),$40
jeql	L25
pushl	$L34
pushl	$L67
callf	$12,_e_
L25:addl3	$3,v.3-v.1(r11),-112(fp)
addl3	$v.4-v.1,r11,-(sp)
subl3	$112,fp,-(sp)
pushl	$_incr_
callf	$16,_x1_
cmpl	v.4-v.1(r11),$27
jeql	L26
pushl	$L34
pushl	$L70
callf	$12,_e_
L26:pushl	$L75
pushl	$L74
pushl	$L46
pushl	$L38
callf	$20,_p1_
pushl	$L79
pushl	$L78
pushl	$L41
pushl	$L65
callf	$20,_p1_
pushl	$L61
pushl	$L82
pushl	$L58
pushl	$L33
callf	$20,_p1_
movl	$1,v.4-v.1(r11)
addl3	$v.4-v.1,r11,-(sp)
callf	$8,_double_
movl	r0,-56(fp)
addl3	r0,r0,-116(fp)
subl3	$116,fp,-(sp)
callf	$8,_incr_
movl	r0,-60(fp)
addl3	$1,r0,-120(fp)
subl3	$120,fp,-(sp)
callf	$8,_double_
movl	r0,-64(fp)
addl3	r0,r0,-124(fp)
subl3	$124,fp,-(sp)
callf	$8,_incr_
movl	r0,-68(fp)
addl3	$1,r0,r0
cmpl	r0,$26
jeql	L14
pushl	$L34
pushl	$L75
callf	$12,_e_
L14:ret#0
.globl	_incr_
.set	LF2,60
.set	LWM2,0x1000
.align	1
_incr_:.word	LWM2
subl3	$LF2,fp,sp
movl	fp,r12
addl3	$1,*4(r12),-60(fp)
movl	-60(fp),r0
ret#1
.globl	_decr_
.set	LF3,60
.set	LWM3,0x1000
.align	1
_decr_:.word	LWM3
subl3	$LF3,fp,sp
movl	fp,r12
subl3	$1,*4(r12),-60(fp)
movl	-60(fp),r0
ret#1
.globl	_double_
.set	LF4,60
.set	LWM4,0x1000
.align	1
_double_:.word	LWM4
subl3	$LF4,fp,sp
movl	fp,r12
addl3	*4(r12),*4(r12),-60(fp)
movl	-60(fp),r0
ret#1
.globl	_eval_
.set	LF5,60
.set	LWM5,0x1000
.align	1
_eval_:.word	LWM5
subl3	$LF5,fp,sp
movl	fp,r12
pushl	8(r12)
calls	$8,*4(r12)
movl	r0,-60(fp)
ret#1
.globl	_apply_
.set	LF6,60
.set	LWM6,0x1000
.align	1
_apply_:.word	LWM6
subl3	$LF6,fp,sp
movl	fp,r12
pushl	8(r12)
pushl	4(r12)
callf	$12,_eval_
movl	r0,-60(fp)
ret#1
.globl	_x1_
.set	LF7,56
.set	LWM7,0x1000
.align	1
_x1_:.word	LWM7
subl3	$LF7,fp,sp
movl	fp,r12
addl3	*8(r12),*8(r12),-56(fp)
pushl	12(r12)
subl3	$56,r12,-(sp)
pushl	4(r12)
callf	$16,_x2_
ret#0
.globl	_x2_
.set	LF8,52
.set	LWM8,0x1000
.align	1
_x2_:.word	LWM8
subl3	$LF8,fp,sp
movl	fp,r12
pushl	8(r12)
pushl	4(r12)
callf	$12,_apply_
movl	r0,*12(r12)
ret#0
.globl	_p0_
.set	LF9,60
.set	LWM9,0x1000
.align	1
_p0_:.word	LWM9
subl3	$LF9,fp,sp
movl	fp,r12
tstl	*12(r12)
jneq	L138
pushl	8(r12)
calls	$8,*4(r12)
jbr	L134
L138:addl3	*12(r12),*8(r12),-56(fp)
subl3	$1,*12(r12),-60(fp)
subl3	$60,fp,-(sp)
subl3	$56,fp,-(sp)
pushl	4(r12)
callf	$16,_p0_
L134:ret#0
.globl	_p1_
.set	LF10,52
.set	LWM10,0x1000
.align	1
_p1_:.word	LWM10
subl3	$LF10,fp,sp
movl	fp,r12
clrl	_p1c_
pushl	8(r12)
pushl	4(r12)
pushl	$_p2_
callf	$16,_p0_
cmpl	_p1c_,*12(r12)
jeql	L144
pushl	$L34
pushl	16(r12)
callf	$12,_e_
L144:ret#0
.globl	_p2_
.set	LF11,52
.set	LWM11,0x1000
.align	1
_p2_:.word	LWM11
subl3	$LF11,fp,sp
movl	fp,r12
mull3	*4(r12),*4(r12),_p1c_
ret#0

	.data	2
	.align	2
v.4:
	.space	4
	.align	2
v.2:
	.space	4
	.align	2
v.3:
	.space	4
	.set	v.1,v.2
unix.superglobalmegacorp.com

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