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

File: [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst / t17.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 L25: .long 0x41400000 # .float 3 .long 0x41800000 # .float 4 .align 2 L26: .long 0xC1000000 # .float -2 .long 0x40800000 # .float 1 .align 2 L27: .long 0x40800000 # .float 1 .long 0xC1000000 # .float -2 .align 2 L28: .long 0xC1400000 # .float -3 .align 2 L29: .long 0x00000000 # .float 0 .align 2 L30: .long 0x3556BF95 # .float 2.e-07 .align 2 L31: .long 1 .align 2 L32: .long 17 .align 2 L33: .long 0xC1800000 # .float -4 .align 2 L36: .long 2 .align 2 L38: .long 0xC1A00000 # .float -5 .align 2 L41: .long 3 .align 2 L45: .long 0xC1000000 # .float -2 .long 0xC0800000 # .float -1 .align 2 L47: .long 4 .align 2 L51: .long 0x40800000 # .float 1 .long 0x41A00000 # .float 5 .align 2 L53: .long 5 .align 2 L57: .long 0x00000000 # .float 0 .long 0x41A00000 # .float 5 .align 2 L59: .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 L25,v.2-v.1(r11) movl L25+4,v.2-v.1+4(r11) movl L26,v.3-v.1(r11) movl L26+4,v.3-v.1+4(r11) movl L27,v.4-v.1(r11) movl L27+4,v.4-v.1+4(r11) ldf v.2-v.1(r11) addf L28 stf r0 movl r0,-56(fp) cmpf2 L29,-56(fp) jgtr L9999 movl -56(fp),r0 jbr L9998 L9999: lnf -56(fp) stf r0 L9998: cmpf2 r0,L30 jleq L15 pushl $L32 pushl $L31 callf $12,_e_ L15: addl3 $v.2-v.1,r11,r0 pushl r0 callf $8,_r_imag ldf r0 addf L33 stf r0 movl r0,-60(fp) cmpf2 L29,-60(fp) jgtr L9997 movl -60(fp),r0 jbr L9996 L9997: lnf -60(fp) stf r0 L9996: cmpf2 r0,L30 jleq L16 pushl $L32 pushl $L36 callf $12,_e_ L16: addl3 $v.2-v.1,r11,r0 pushl r0 callf $8,_c_abs ldf r0 addf L38 stf r0 movl r0,-64(fp) cmpf2 L29,-64(fp) jgtr L9995 movl -64(fp),r0 jbr L9994 L9995: lnf -64(fp) stf r0 L9994: cmpf2 r0,L30 jleq L17 pushl $L32 pushl $L41 callf $12,_e_ L17: addl3 $v.3-v.1,r11,r0 pushl r0 addl3 $-80,fp,r0 pushl r0 callf $12,_r_cnjg ldf -80(fp) subf L45 stf r0 movl r0,-72(fp) ldf -76(fp) subf L45+4 stf r0 movl r0,-68(fp) addl3 $-72,fp,r0 pushl r0 callf $8,_c_abs cmpf2 r0,L30 jleq L18 pushl $L32 pushl $L47 callf $12,_e_ L18: 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 L51 stf r0 movl r0,-88(fp) ldf -92(fp) subf L51+4 stf r0 movl r0,-84(fp) addl3 $-88,fp,r0 pushl r0 callf $8,_c_abs cmpf2 r0,L30 jleq L19 pushl $L32 pushl $L53 callf $12,_e_ L19: 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 L57 stf r0 movl r0,-104(fp) ldf -108(fp) subf L57+4 stf r0 movl r0,-100(fp) addl3 $-104,fp,r0 pushl r0 callf $8,_c_abs cmpf2 r0,L30 jleq L20 pushl $L32 pushl $L59 callf $12,_e_ L20: 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,L30 jleq L21 pushl $L32 pushl $L59 callf $12,_e_ L21: 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.