![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to t17.t2 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.t2 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: .text ! 78: .globl _MAIN_ ! 79: .set LF1,128 ! 80: .set LWM1,0x1800 ! 81: .align 1 ! 82: _MAIN_:.word LWM1 ! 83: subl3 $LF1,fp,sp ! 84: movl $v.1,r11 ! 85: movl L25,v.2-v.1(r11) ! 86: movl L25+4,v.2-v.1+4(r11) ! 87: movl L26,v.3-v.1(r11) ! 88: movl L26+4,v.3-v.1+4(r11) ! 89: movl L27,v.4-v.1(r11) ! 90: movl L27+4,v.4-v.1+4(r11) ! 91: ldf v.2-v.1(r11) ! 92: addf L28 ! 93: stf -56(fp) ! 94: cmpf2 L29,-56(fp) ! 95: jgtr L9999 ! 96: movl -56(fp),r0 ! 97: jbr L9998 ! 98: L9999:lnf -56(fp) ! 99: stf r0 ! 100: L9998:cmpf2 r0,L30 ! 101: jleq L15 ! 102: pushl $L32 ! 103: pushl $L31 ! 104: callf $12,_e_ ! 105: L15:addl3 $v.2-v.1,r11,-(sp) ! 106: callf $8,_r_imag ! 107: ldf r0 ! 108: addf L33 ! 109: stf -60(fp) ! 110: cmpf2 L29,-60(fp) ! 111: jgtr L9997 ! 112: movl -60(fp),r0 ! 113: jbr L9996 ! 114: L9997:lnf -60(fp) ! 115: stf r0 ! 116: L9996:cmpf2 r0,L30 ! 117: jleq L16 ! 118: pushl $L32 ! 119: pushl $L36 ! 120: callf $12,_e_ ! 121: L16:addl3 $v.2-v.1,r11,-(sp) ! 122: callf $8,_c_abs ! 123: ldf r0 ! 124: addf L38 ! 125: stf -64(fp) ! 126: cmpf2 L29,-64(fp) ! 127: jgtr L9995 ! 128: movl -64(fp),r0 ! 129: jbr L9994 ! 130: L9995:lnf -64(fp) ! 131: stf r0 ! 132: L9994:cmpf2 r0,L30 ! 133: jleq L17 ! 134: pushl $L32 ! 135: pushl $L41 ! 136: callf $12,_e_ ! 137: L17:addl3 $v.3-v.1,r11,-(sp) ! 138: subl3 $80,fp,-(sp) ! 139: callf $12,_r_cnjg ! 140: ldf -80(fp) ! 141: subf L45 ! 142: stf -72(fp) ! 143: ldf -76(fp) ! 144: subf L45+4 ! 145: stf -68(fp) ! 146: subl3 $72,fp,-(sp) ! 147: callf $8,_c_abs ! 148: cmpf2 r0,L30 ! 149: jleq L18 ! 150: pushl $L32 ! 151: pushl $L47 ! 152: callf $12,_e_ ! 153: L18:ldf v.2-v.1(r11) ! 154: addf v.3-v.1(r11) ! 155: stf -96(fp) ! 156: ldf v.2-v.1+4(r11) ! 157: addf v.3-v.1+4(r11) ! 158: stf -92(fp) ! 159: ldf -96(fp) ! 160: subf L51 ! 161: stf -88(fp) ! 162: ldf -92(fp) ! 163: subf L51+4 ! 164: stf -84(fp) ! 165: subl3 $88,fp,-(sp) ! 166: callf $8,_c_abs ! 167: cmpf2 r0,L30 ! 168: jleq L19 ! 169: pushl $L32 ! 170: pushl $L53 ! 171: callf $12,_e_ ! 172: L19:ldf v.3-v.1(r11) ! 173: mulf v.4-v.1(r11) ! 174: stf r0 ! 175: ldf v.3-v.1+4(r11) ! 176: mulf v.4-v.1+4(r11) ! 177: stf r1 ! 178: ldf r0 ! 179: subf r1 ! 180: stf -112(fp) ! 181: ldf v.3-v.1(r11) ! 182: mulf v.4-v.1+4(r11) ! 183: stf r0 ! 184: ldf v.3-v.1+4(r11) ! 185: mulf v.4-v.1(r11) ! 186: addf r0 ! 187: stf -108(fp) ! 188: ldf -112(fp) ! 189: subf L57 ! 190: stf -104(fp) ! 191: ldf -108(fp) ! 192: subf L57+4 ! 193: stf -100(fp) ! 194: subl3 $104,fp,-(sp) ! 195: callf $8,_c_abs ! 196: cmpf2 r0,L30 ! 197: jleq L20 ! 198: pushl $L32 ! 199: pushl $L59 ! 200: callf $12,_e_ ! 201: L20:addl3 $v.2-v.1,r11,-(sp) ! 202: addl3 $v.4-v.1,r11,-(sp) ! 203: subl3 $128,fp,-(sp) ! 204: callf $16,_c_div ! 205: ldf -128(fp) ! 206: subf L63 ! 207: stf -120(fp) ! 208: ldf -124(fp) ! 209: subf L63+4 ! 210: stf -116(fp) ! 211: subl3 $120,fp,-(sp) ! 212: callf $8,_c_abs ! 213: cmpf2 r0,L30 ! 214: jleq L14 ! 215: pushl $L32 ! 216: pushl $L59 ! 217: callf $12,_e_ ! 218: L14:ret#0 ! 219: ! 220: .data 2 ! 221: .align 2 ! 222: v.3: ! 223: .space 8 ! 224: .align 2 ! 225: v.4: ! 226: .space 8 ! 227: .align 2 ! 228: v.2: ! 229: .space 8 ! 230: .set v.1,v.4 ! 231:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.