![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to t17.t1 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.t1 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: L25: ! 4: .long 0x41400000 # .float 3 ! 5: .long 0x41800000 # .float 4 ! 6: .align 2 ! 7: L26: ! 8: .long 0xC1000000 # .float -2 ! 9: .long 0x40800000 # .float 1 ! 10: .align 2 ! 11: L27: ! 12: .long 0x40800000 # .float 1 ! 13: .long 0xC1000000 # .float -2 ! 14: .align 2 ! 15: L28: ! 16: .long 0xC1400000 # .float -3 ! 17: .align 2 ! 18: L29: ! 19: .long 0x00000000 # .float 0 ! 20: .align 2 ! 21: L30: ! 22: .long 0x3556BF95 # .float 2.e-07 ! 23: .align 2 ! 24: L31: ! 25: .long 1 ! 26: .align 2 ! 27: L32: ! 28: .long 17 ! 29: .align 2 ! 30: L33: ! 31: .long 0xC1800000 # .float -4 ! 32: .align 2 ! 33: L36: ! 34: .long 2 ! 35: .align 2 ! 36: L38: ! 37: .long 0xC1A00000 # .float -5 ! 38: .align 2 ! 39: L41: ! 40: .long 3 ! 41: .align 2 ! 42: L45: ! 43: .long 0xC1000000 # .float -2 ! 44: .long 0xC0800000 # .float -1 ! 45: .align 2 ! 46: L47: ! 47: .long 4 ! 48: .align 2 ! 49: L51: ! 50: .long 0x40800000 # .float 1 ! 51: .long 0x41A00000 # .float 5 ! 52: .align 2 ! 53: L53: ! 54: .long 5 ! 55: .align 2 ! 56: L57: ! 57: .long 0x00000000 # .float 0 ! 58: .long 0x41A00000 # .float 5 ! 59: .align 2 ! 60: L59: ! 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 L25,v.2-v.1(r11) ! 87: movl L25+4,v.2-v.1+4(r11) ! 88: movl L26,v.3-v.1(r11) ! 89: movl L26+4,v.3-v.1+4(r11) ! 90: movl L27,v.4-v.1(r11) ! 91: movl L27+4,v.4-v.1+4(r11) ! 92: ldf v.2-v.1(r11) ! 93: addf L28 ! 94: stf r0 ! 95: movl r0,-56(fp) ! 96: cmpf2 L29,-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,L30 ! 105: jleq L15 ! 106: pushl $L32 ! 107: pushl $L31 ! 108: callf $12,_e_ ! 109: L15: ! 110: addl3 $v.2-v.1,r11,r0 ! 111: pushl r0 ! 112: callf $8,_r_imag ! 113: ldf r0 ! 114: addf L33 ! 115: stf r0 ! 116: movl r0,-60(fp) ! 117: cmpf2 L29,-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,L30 ! 126: jleq L16 ! 127: pushl $L32 ! 128: pushl $L36 ! 129: callf $12,_e_ ! 130: L16: ! 131: addl3 $v.2-v.1,r11,r0 ! 132: pushl r0 ! 133: callf $8,_c_abs ! 134: ldf r0 ! 135: addf L38 ! 136: stf r0 ! 137: movl r0,-64(fp) ! 138: cmpf2 L29,-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,L30 ! 147: jleq L17 ! 148: pushl $L32 ! 149: pushl $L41 ! 150: callf $12,_e_ ! 151: L17: ! 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 L45 ! 159: stf r0 ! 160: movl r0,-72(fp) ! 161: ldf -76(fp) ! 162: subf L45+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,L30 ! 169: jleq L18 ! 170: pushl $L32 ! 171: pushl $L47 ! 172: callf $12,_e_ ! 173: L18: ! 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 L51 ! 184: stf r0 ! 185: movl r0,-88(fp) ! 186: ldf -92(fp) ! 187: subf L51+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,L30 ! 194: jleq L19 ! 195: pushl $L32 ! 196: pushl $L53 ! 197: callf $12,_e_ ! 198: L19: ! 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 L57 ! 221: stf r0 ! 222: movl r0,-104(fp) ! 223: ldf -108(fp) ! 224: subf L57+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,L30 ! 231: jleq L20 ! 232: pushl $L32 ! 233: pushl $L59 ! 234: callf $12,_e_ ! 235: L20: ! 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,L30 ! 255: jleq L21 ! 256: pushl $L32 ! 257: pushl $L59 ! 258: callf $12,_e_ ! 259: L21: ! 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.