cci/usr/src/usr.bin/f77/f77pass1/tst/t17.t0 - view

File: [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst / t17.t0
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 L15: .long 0x41400000 # .float 3 .long 0x41800000 # .float 4 .align 2 L16: .long 0xC1000000 # .float -2 .long 0x40800000 # .float 1 .align 2 L17: .long 0x40800000 # .float 1 .long 0xC1000000 # .float -2 .align 2 L20: .long 0xC1400000 # .float -3 .align 2 L21: .long 0x00000000 # .float 0 .align 2 L22: .long 0x3556BF95 # .float 2.e-07 .align 2 L23: .long 1 .align 2 L24: .long 17 .align 2 L27: .long 0xC1800000 # .float -4 .align 2 L30: .long 2 .align 2 L34: .long 0xC1A00000 # .float -5 .align 2 L37: .long 3 .align 2 L42: .long 0xC1000000 # .float -2 .long 0xC0800000 # .float -1 .align 2 L44: .long 4 .align 2 L49: .long 0x40800000 # .float 1 .long 0x41A00000 # .float 5 .align 2 L51: .long 5 .align 2 L56: .long 0x00000000 # .float 0 .long 0x41A00000 # .float 5 .align 2 L58: .long 6 .align 2 L63: .long 0xBF4CCCCD # .float -.2 .long 0xBFCCCCCD # .float -.40000001 .data 2 .data 1 .data 0 .globl _MAIN_ .globl _e_ .globl _r_imag .globl _c_abs .globl _r_cnjg .globl _c_div .align 2 .stabs "t17.f",0x64,0,0,0 .text .globl _MAIN_ .align 1 _MAIN_: .word LWM1 subl3 $LF1,fp,sp jbr L12 L13: movl L15,v.2-v.1(r11) movl L15+4,v.2-v.1+4(r11) movl L16,v.3-v.1(r11) movl L16+4,v.3-v.1+4(r11) movl L17,v.4-v.1(r11) movl L17+4,v.4-v.1+4(r11) ldf v.2-v.1(r11) addf L20 stf r0 movl r0,-56(fp) cmpf2 L21,-56(fp) jgtr L9999 movl -56(fp),r0 jbr L9998 L9999: lnf -56(fp) stf r0 L9998: cmpf2 r0,L22 jleq L18 pushl $L24 pushl $L23 callf $12,_e_ L18: addl3 $v.2-v.1,r11,r0 pushl r0 callf $8,_r_imag ldf r0 addf L27 stf r0 movl r0,-60(fp) cmpf2 L21,-60(fp) jgtr L9997 movl -60(fp),r0 jbr L9996 L9997: lnf -60(fp) stf r0 L9996: cmpf2 r0,L22 jleq L25 pushl $L24 pushl $L30 callf $12,_e_ L25: addl3 $v.2-v.1,r11,r0 pushl r0 callf $8,_c_abs ldf r0 addf L34 stf r0 movl r0,-64(fp) cmpf2 L21,-64(fp) jgtr L9995 movl -64(fp),r0 jbr L9994 L9995: lnf -64(fp) stf r0 L9994: cmpf2 r0,L22 jleq L32 pushl $L24 pushl $L37 callf $12,_e_ L32: addl3 $v.3-v.1,r11,r0 pushl r0 addl3 $-80,fp,r0 pushl r0 callf $12,_r_cnjg ldf -80(fp) subf L42 stf r0 movl r0,-72(fp) ldf -76(fp) subf L42+4 stf r0 movl r0,-68(fp) addl3 $-72,fp,r0 pushl r0 callf $8,_c_abs cmpf2 r0,L22 jleq L39 pushl $L24 pushl $L44 callf $12,_e_ L39: ldf v.2-v.1(r11) addf v.3-v.1(r11) stf r0 movl r0,-96(fp) ldf v.2-v.1+4(r11) addf v.3-v.1+4(r11) stf r0 movl r0,-92(fp) ldf -96(fp) subf L49 stf r0 movl r0,-88(fp) ldf -92(fp) subf L49+4 stf r0 movl r0,-84(fp) addl3 $-88,fp,r0 pushl r0 callf $8,_c_abs cmpf2 r0,L22 jleq L46 pushl $L24 pushl $L51 callf $12,_e_ L46: ldf v.3-v.1(r11) mulf v.4-v.1(r11) stf r0 ldf v.3-v.1+4(r11) mulf v.4-v.1+4(r11) stf r1 ldf r0 subf r1 stf r0 movl r0,-112(fp) ldf v.3-v.1(r11) mulf v.4-v.1+4(r11) stf r0 ldf v.3-v.1+4(r11) mulf v.4-v.1(r11) stf r1 ldf r0 addf r1 stf r0 movl r0,-108(fp) ldf -112(fp) subf L56 stf r0 movl r0,-104(fp) ldf -108(fp) subf L56+4 stf r0 movl r0,-100(fp) addl3 $-104,fp,r0 pushl r0 callf $8,_c_abs cmpf2 r0,L22 jleq L53 pushl $L24 pushl $L58 callf $12,_e_ L53: addl3 $v.2-v.1,r11,r0 pushl r0 addl3 $v.4-v.1,r11,r0 pushl r0 addl3 $-128,fp,r0 pushl r0 callf $16,_c_div ldf -128(fp) subf L63 stf r0 movl r0,-120(fp) ldf -124(fp) subf L63+4 stf r0 movl r0,-116(fp) addl3 $-120,fp,r0 pushl r0 callf $8,_c_abs cmpf2 r0,L22 jleq L60 pushl $L24 pushl $L58 callf $12,_e_ L60: L14: ret#0 L12: movl $v.1,r11 jbr L13 .set LF1,128 .set LWM1,0x1800 .text .data 2 .align 2 v.3: .space 8 .align 2 v.4: .space 8 .align 2 v.2: .space 8 .set v.1,v.4

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