![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to Kexpf.x 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 / sys / tahoe|
Return to Kexpf.x CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / sys / tahoe |
1.1 ! root 1: /* file: Kexpf.x ! 2: */ ! 3: .data ! 4: .comm _errno,4 ! 5: .align 2 ! 6: _p0: .long 0x45BD3D04, 0x7F734DBD # .double 1513.9067990543389 ! 7: .align 2 ! 8: _p1: .long 0x42A19DD4, 0x989F60DA # .double 20.202065651286927 ! 9: .align 2 ! 10: _p2: .long 0x3DBD2E42, 0xAB70BDA9 # .double .023093347753750233 ! 11: .align 2 ! 12: _q0: .long 0x468881B1, 0x7C3A6529 # .double 4368.2116627275583 ! 13: .align 2 ! 14: _q1: .long 0x44692F28, 0x7AE89541 # .double 233.18421142748162 ! 15: .align 2 ! 16: _q2: .long 0x40800000, 0x00000000 # .double 1 ! 17: .align 2 ! 18: _log2e: .long 0x40B8AA3B, 0x295C17F0 # .double 1.4426950408889634 ! 19: .align 2 ! 20: _sqrt2: .long 0x40B504F3, 0x33F9DE64 # .double 1.414213562373095 ! 21: .align 2 ! 22: _maxf: .long 0x471C4000, 0x00000000 # .double 10000 ! 23: .align 2 ! 24: _HUGE: .long 0x7FFFFFFE, 0xFFFFFFFC # .double 1.701411733192644e+38 ! 25: .text ! 26: LL0: .align 1 ! 27: .globl _Kexpf ! 28: .data ! 29: .align 2 ! 30: L28: .long 0x40800000 # .float 1 ! 31: .text ! 32: .data ! 33: .align 2 ! 34: L32: .long 0x40000000, 0x00000000 # .double .5 ! 35: .text ! 36: .set L23,0xC ! 37: .data ! 38: .text ! 39: _Kexpf:.word L23 ! 40: subl3 $88,fp,sp ! 41: tstl 4(fp) ! 42: jneq L27 ! 43: movl L28,r0 ! 44: ret ! 45: L27: lnd _maxf ! 46: cmpd 4(fp) ! 47: jleq L29 ! 48: clrl r0 ! 49: ret ! 50: L29: cmpd2 4(fp),_maxf ! 51: jleq L30 ! 52: movl $34,_errno ! 53: ldd _HUGE ! 54: cvdf ! 55: stf r0 ! 56: ret ! 57: L30: ! 58: pushl 20(fp) # hfs ! 59: ldd _log2e ! 60: pushd ! 61: ldd 4(fp) ! 62: pushd ! 63: callf $24,_Kmuld ! 64: ldd r0 ! 65: std 4(fp) ! 66: ! 67: pushl 20(fp) # hfs ! 68: pushl 8(fp) ! 69: pushl 4(fp) ! 70: callf $16,_Kfloorf ! 71: movl r0,-88(fp) # (int)ent from Kfloorf ! 72: ! 73: cvlf -88(fp) ! 74: clrl r1 ! 75: stf r0 ! 76: pushl 20(fp) # hfs ! 77: pushl r1 ! 78: pushl r0 ! 79: ldd 4(fp) ! 80: pushd ! 81: callf $24,_Ksubd # (arg - ent) ! 82: ! 83: pushl 20(fp) # hfs ! 84: ldd L32 ! 85: pushd ! 86: ldd r0 ! 87: pushd ! 88: callf $24,_Ksubd ! 89: ldd r0 ! 90: std -60(fp) # fract ! 91: ! 92: pushl 20(fp) # hfs ! 93: pushd ! 94: pushd ! 95: callf $24,_Kmuld ! 96: ldd r0 ! 97: std -84(fp) # xsq ! 98: ! 99: pushl 20(fp) # hfs ! 100: pushd # xsq ! 101: ldd _p2 ! 102: pushd ! 103: callf $24,_Kmuld ! 104: ! 105: pushl 20(fp) # hfs ! 106: ldd _p1 ! 107: pushd ! 108: ldd r0 ! 109: pushd ! 110: callf $24,_Kaddd ! 111: ! 112: pushl 20(fp) # hfs ! 113: ldd -84(fp) ! 114: pushd ! 115: ldd r0 ! 116: pushd ! 117: callf $24,_Kmuld ! 118: ! 119: pushl 20(fp) # hfs ! 120: ldd _p0 ! 121: pushd ! 122: ldd r0 ! 123: pushd ! 124: callf $24,_Kaddd ! 125: ! 126: pushl 20(fp) # hfs ! 127: ldd -60(fp) # fract ! 128: pushd ! 129: ldd r0 ! 130: pushd ! 131: callf $24,_Kmuld ! 132: ldd r0 ! 133: std -68(fp) # temp1 ! 134: ! 135: pushl 20(fp) # hfs ! 136: ldd -84(fp) # xsq ! 137: pushd ! 138: ldd _q2 ! 139: pushd ! 140: callf $24,_Kmuld ! 141: ! 142: pushl 20(fp) # hfs ! 143: ldd _q1 ! 144: pushd ! 145: ldd r0 ! 146: pushd ! 147: callf $24,_Kaddd ! 148: ! 149: pushl 20(fp) # hfs ! 150: ldd -84(fp) ! 151: pushd ! 152: ldd r0 ! 153: pushd ! 154: callf $24,_Kmuld ! 155: ! 156: pushl 20(fp) # hfs ! 157: ldd _q0 ! 158: pushd ! 159: ldd r0 ! 160: pushd ! 161: callf $24,_Kaddd ! 162: ldd r0 ! 163: std -76(fp) # temp2 ! 164: ! 165: pushl 20(fp) # hfs for Kldexpf ! 166: pushl -88(fp) # ent ! 167: ! 168: pushl 20(fp) # hfs tor temp2+temp1 ! 169: ldd -68(fp) # temp1 ! 170: pushd ! 171: ldd -76(fp) # temp2 ! 172: pushd ! 173: callf $24,_Kaddd ! 174: ! 175: pushl 20(fp) # hfs ! 176: ldd _sqrt2 ! 177: pushd ! 178: ldd r0 # temp2+temp1 ! 179: pushd ! 180: callf $24,_Kmuld ! 181: ldd r0 ! 182: std r2 # sqrt2*(temp2+temp1) ! 183: ! 184: pushl 20(fp) # hfs ! 185: ldd -68(fp) ! 186: pushd ! 187: ldd -76(fp) ! 188: pushd ! 189: callf $24,_Ksubd # temp2-temp1 ! 190: ! 191: pushl 20(fp) # hfs ! 192: ldd r0 ! 193: pushd # temp2-temp1 ! 194: ldd r2 ! 195: pushd ! 196: callf $24,_Kdivd ! 197: ! 198: ldd r0 ! 199: pushd ! 200: callf $20,_Kldexpf ! 201: ! 202: #pushl 20(fp) # hfs ! 203: #pushl $0 ! 204: #pushl r0 # cvlf r0 ! 205: #pushl $0 ! 206: #pushl $0 ! 207: #callf $24,_Kcvtld ! 208: ! 209: #ldd r0 ! 210: #cvdf ! 211: #stf r0 ! 212: ret ! 213: ! 214: /* file : Kfloorf.x ! 215: */ ! 216: .text ! 217: .globl _Kfloorf ! 218: .data ! 219: .align 2 ! 220: L19: .long 0x40800000, 0x00000000 # .double 1 ! 221: .text ! 222: .set L13,0x0 ! 223: .data ! 224: .text ! 225: _Kfloorf: ! 226: .word L13 ! 227: subl3 $60,fp,sp ! 228: tstl 4(fp) # if (d<0.0) { ! 229: jgeq L17 ! 230: lnd 4(fp) ! 231: std 4(fp) # d = -d; ! 232: pushl 12(fp) # hfs ! 233: addl3 $4,fp,-(sp) # &d ! 234: pushl 8(fp) ! 235: pushl 4(fp) ! 236: callf $20,_Kmodf ! 237: clrl -60+4(fp) ! 238: movl r0,-60(fp) # fract = modf(d,&d); ! 239: tstl r0 # if (fract != 0.0) ! 240: jeql L18 ! 241: pushl 12(fp) # hfs ! 242: ldd L19 ! 243: pushd ! 244: ldd 4(fp) ! 245: pushd ! 246: callf $24,_Kaddd ! 247: ldd r0 ! 248: std 4(fp) # d +=1; ! 249: L18: lnd 4(fp) ! 250: std 4(fp) # d = -d; ! 251: jbr L20 ! 252: L17: ! 253: pushl 12(fp) # hfs ! 254: addl3 $4,fp,-(sp) ! 255: pushl 8(fp) ! 256: pushl 4(fp) ! 257: callf $20,_Kmodf ! 258: L20: ldd 4(fp) ! 259: cvdl r0 # for Kexpf call only! ! 260: ret ! 261:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.