![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to t17.t0 CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst|
Return to t17.t0 CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst |
1.1 ! root 1: .data 0 ! 2: .align 2 ! 3: L15: ! 4: .long 0x41400000 # .float 3 ! 5: .long 0x41800000 # .float 4 ! 6: .align 2 ! 7: L16: ! 8: .long 0xC1000000 # .float -2 ! 9: .long 0x40800000 # .float 1 ! 10: .align 2 ! 11: L17: ! 12: .long 0x40800000 # .float 1 ! 13: .long 0xC1000000 # .float -2 ! 14: .align 2 ! 15: L20: ! 16: .long 0xC1400000 # .float -3 ! 17: .align 2 ! 18: L21: ! 19: .long 0x00000000 # .float 0 ! 20: .align 2 ! 21: L22: ! 22: .long 0x3556BF95 # .float 2.e-07 ! 23: .align 2 ! 24: L23: ! 25: .long 1 ! 26: .align 2 ! 27: L24: ! 28: .long 17 ! 29: .align 2 ! 30: L27: ! 31: .long 0xC1800000 # .float -4 ! 32: .align 2 ! 33: L30: ! 34: .long 2 ! 35: .align 2 ! 36: L34: ! 37: .long 0xC1A00000 # .float -5 ! 38: .align 2 ! 39: L37: ! 40: .long 3 ! 41: .align 2 ! 42: L42: ! 43: .long 0xC1000000 # .float -2 ! 44: .long 0xC0800000 # .float -1 ! 45: .align 2 ! 46: L44: ! 47: .long 4 ! 48: .align 2 ! 49: L49: ! 50: .long 0x40800000 # .float 1 ! 51: .long 0x41A00000 # .float 5 ! 52: .align 2 ! 53: L51: ! 54: .long 5 ! 55: .align 2 ! 56: L56: ! 57: .long 0x00000000 # .float 0 ! 58: .long 0x41A00000 # .float 5 ! 59: .align 2 ! 60: L58: ! 61: .long 6 ! 62: .align 2 ! 63: L63: ! 64: .long 0xBF4CCCCD # .float -.2 ! 65: .long 0xBFCCCCCD # .float -.40000001 ! 66: .data 2 ! 67: .data 1 ! 68: .data 0 ! 69: .globl _MAIN_ ! 70: .globl _e_ ! 71: .globl _r_imag ! 72: .globl _c_abs ! 73: .globl _r_cnjg ! 74: .globl _c_div ! 75: .align 2 ! 76: .stabs "t17.f",0x64,0,0,0 ! 77: ! 78: .text ! 79: .globl _MAIN_ ! 80: .align 1 ! 81: _MAIN_: ! 82: .word LWM1 ! 83: subl3 $LF1,fp,sp ! 84: jbr L12 ! 85: L13: ! 86: movl L15,v.2-v.1(r11) ! 87: movl L15+4,v.2-v.1+4(r11) ! 88: movl L16,v.3-v.1(r11) ! 89: movl L16+4,v.3-v.1+4(r11) ! 90: movl L17,v.4-v.1(r11) ! 91: movl L17+4,v.4-v.1+4(r11) ! 92: ldf v.2-v.1(r11) ! 93: addf L20 ! 94: stf r0 ! 95: movl r0,-56(fp) ! 96: cmpf2 L21,-56(fp) ! 97: jgtr L9999 ! 98: movl -56(fp),r0 ! 99: jbr L9998 ! 100: L9999: ! 101: lnf -56(fp) ! 102: stf r0 ! 103: L9998: ! 104: cmpf2 r0,L22 ! 105: jleq L18 ! 106: pushl $L24 ! 107: pushl $L23 ! 108: callf $12,_e_ ! 109: L18: ! 110: addl3 $v.2-v.1,r11,r0 ! 111: pushl r0 ! 112: callf $8,_r_imag ! 113: ldf r0 ! 114: addf L27 ! 115: stf r0 ! 116: movl r0,-60(fp) ! 117: cmpf2 L21,-60(fp) ! 118: jgtr L9997 ! 119: movl -60(fp),r0 ! 120: jbr L9996 ! 121: L9997: ! 122: lnf -60(fp) ! 123: stf r0 ! 124: L9996: ! 125: cmpf2 r0,L22 ! 126: jleq L25 ! 127: pushl $L24 ! 128: pushl $L30 ! 129: callf $12,_e_ ! 130: L25: ! 131: addl3 $v.2-v.1,r11,r0 ! 132: pushl r0 ! 133: callf $8,_c_abs ! 134: ldf r0 ! 135: addf L34 ! 136: stf r0 ! 137: movl r0,-64(fp) ! 138: cmpf2 L21,-64(fp) ! 139: jgtr L9995 ! 140: movl -64(fp),r0 ! 141: jbr L9994 ! 142: L9995: ! 143: lnf -64(fp) ! 144: stf r0 ! 145: L9994: ! 146: cmpf2 r0,L22 ! 147: jleq L32 ! 148: pushl $L24 ! 149: pushl $L37 ! 150: callf $12,_e_ ! 151: L32: ! 152: addl3 $v.3-v.1,r11,r0 ! 153: pushl r0 ! 154: addl3 $-80,fp,r0 ! 155: pushl r0 ! 156: callf $12,_r_cnjg ! 157: ldf -80(fp) ! 158: subf L42 ! 159: stf r0 ! 160: movl r0,-72(fp) ! 161: ldf -76(fp) ! 162: subf L42+4 ! 163: stf r0 ! 164: movl r0,-68(fp) ! 165: addl3 $-72,fp,r0 ! 166: pushl r0 ! 167: callf $8,_c_abs ! 168: cmpf2 r0,L22 ! 169: jleq L39 ! 170: pushl $L24 ! 171: pushl $L44 ! 172: callf $12,_e_ ! 173: L39: ! 174: ldf v.2-v.1(r11) ! 175: addf v.3-v.1(r11) ! 176: stf r0 ! 177: movl r0,-96(fp) ! 178: ldf v.2-v.1+4(r11) ! 179: addf v.3-v.1+4(r11) ! 180: stf r0 ! 181: movl r0,-92(fp) ! 182: ldf -96(fp) ! 183: subf L49 ! 184: stf r0 ! 185: movl r0,-88(fp) ! 186: ldf -92(fp) ! 187: subf L49+4 ! 188: stf r0 ! 189: movl r0,-84(fp) ! 190: addl3 $-88,fp,r0 ! 191: pushl r0 ! 192: callf $8,_c_abs ! 193: cmpf2 r0,L22 ! 194: jleq L46 ! 195: pushl $L24 ! 196: pushl $L51 ! 197: callf $12,_e_ ! 198: L46: ! 199: ldf v.3-v.1(r11) ! 200: mulf v.4-v.1(r11) ! 201: stf r0 ! 202: ldf v.3-v.1+4(r11) ! 203: mulf v.4-v.1+4(r11) ! 204: stf r1 ! 205: ldf r0 ! 206: subf r1 ! 207: stf r0 ! 208: movl r0,-112(fp) ! 209: ldf v.3-v.1(r11) ! 210: mulf v.4-v.1+4(r11) ! 211: stf r0 ! 212: ldf v.3-v.1+4(r11) ! 213: mulf v.4-v.1(r11) ! 214: stf r1 ! 215: ldf r0 ! 216: addf r1 ! 217: stf r0 ! 218: movl r0,-108(fp) ! 219: ldf -112(fp) ! 220: subf L56 ! 221: stf r0 ! 222: movl r0,-104(fp) ! 223: ldf -108(fp) ! 224: subf L56+4 ! 225: stf r0 ! 226: movl r0,-100(fp) ! 227: addl3 $-104,fp,r0 ! 228: pushl r0 ! 229: callf $8,_c_abs ! 230: cmpf2 r0,L22 ! 231: jleq L53 ! 232: pushl $L24 ! 233: pushl $L58 ! 234: callf $12,_e_ ! 235: L53: ! 236: addl3 $v.2-v.1,r11,r0 ! 237: pushl r0 ! 238: addl3 $v.4-v.1,r11,r0 ! 239: pushl r0 ! 240: addl3 $-128,fp,r0 ! 241: pushl r0 ! 242: callf $16,_c_div ! 243: ldf -128(fp) ! 244: subf L63 ! 245: stf r0 ! 246: movl r0,-120(fp) ! 247: ldf -124(fp) ! 248: subf L63+4 ! 249: stf r0 ! 250: movl r0,-116(fp) ! 251: addl3 $-120,fp,r0 ! 252: pushl r0 ! 253: callf $8,_c_abs ! 254: cmpf2 r0,L22 ! 255: jleq L60 ! 256: pushl $L24 ! 257: pushl $L58 ! 258: callf $12,_e_ ! 259: L60: ! 260: L14: ! 261: ret#0 ! 262: L12: ! 263: movl $v.1,r11 ! 264: jbr L13 ! 265: .set LF1,128 ! 266: .set LWM1,0x1800 ! 267: .text ! 268: .data 2 ! 269: .align 2 ! 270: v.3: ! 271: .space 8 ! 272: .align 2 ! 273: v.4: ! 274: .space 8 ! 275: .align 2 ! 276: v.2: ! 277: .space 8 ! 278: .set v.1,v.4 ! 279:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.