![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to bignum.s CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / pgrm / as.tahoe|
Return to bignum.s CVS log | Up to [CSRG BSD Unix] / 43BSDReno / pgrm / as.tahoe |
1.1 ! root 1: .data ! 2: .data ! 3: _sccsid:.long 0x40282329 ! 4: .long 0x6269676e ! 5: .long 0x756d312e ! 6: .long 0x6320342e ! 7: .long 0x3420362f ! 8: .long 0x33302f38 ! 9: .long 0x33000000 ! 10: .comm _rusefile,32 ! 11: .comm _relfil,4 ! 12: .comm _listfile,4 ! 13: .comm _liston,4 ! 14: .comm _Znumber,12 ! 15: .text ! 16: LL0:.align 1 ! 17: .globl _as_atoi ! 18: .data ! 19: L163:.long 0x10202 ! 20: .long 0x3030303 ! 21: .long 0x1020303 ! 22: .space 4 ! 23: .long 0x0 ! 24: .space 4 ! 25: .long 0x2030000 ! 26: .space 4 ! 27: .text ! 28: .data 1 ! 29: L167:.ascii "%s%s\12\0" ! 30: .text ! 31: .data 1 ! 32: L168:.ascii "n_n.num_tag != 0\0" ! 33: .text ! 34: .data 1 ! 35: L169:.ascii " Botch width computation\0" ! 36: .text ! 37: .lcomm L170,12 ! 38: .set L106,0x1c00 ! 39: .data ! 40: .text ! 41: _as_atoi:.word L106 ! 42: subl3 $92,fp,sp ! 43: movl 4(fp),r12 ! 44: clrl -92(fp) ! 45: clrl -88(fp) ! 46: L112:tstb (r12) ! 47: jeql L111 ! 48: cvtbl (r12),r0 ! 49: cmpl r0,$43 ! 50: jeql L110 ! 51: cmpl r0,$45 ! 52: jeql L117 ! 53: cmpl r0,$48 ! 54: jeql L110 ! 55: L111:movab -72(fp),r1 ! 56: movab _Znumber,r0 ! 57: movl $12,r2 ! 58: movblk ! 59: movab -84(fp),r1 ! 60: movab _Znumber,r0 ! 61: movl $12,r2 ! 62: movblk ! 63: subl3 $72,fp,r11 ! 64: pushl r11 ! 65: callf $8,_numclear ! 66: subl3 $84,fp,-56(fp) ! 67: pushl -56(fp) ! 68: callf $8,_numclear ! 69: L120:tstb (r12) ! 70: jeql L126 ! 71: cvtbl (r12),r0 ! 72: casel r0,$48,$54 ! 73: .align 1 ! 74: L2000007: ! 75: .word L134-L2000007 ! 76: .word L134-L2000007 ! 77: .word L134-L2000007 ! 78: .word L134-L2000007 ! 79: .word L134-L2000007 ! 80: .word L134-L2000007 ! 81: .word L134-L2000007 ! 82: .word L134-L2000007 ! 83: .word L124-L2000007 ! 84: .word L124-L2000007 ! 85: .word L126-L2000007 ! 86: .word L126-L2000007 ! 87: .word L126-L2000007 ! 88: .word L126-L2000007 ! 89: .word L126-L2000007 ! 90: .word L126-L2000007 ! 91: .word L126-L2000007 ! 92: .word L140-L2000007 ! 93: .word L140-L2000007 ! 94: .word L140-L2000007 ! 95: .word L140-L2000007 ! 96: .word L140-L2000007 ! 97: .word L140-L2000007 ! 98: .word L126-L2000007 ! 99: .word L126-L2000007 ! 100: .word L126-L2000007 ! 101: .word L126-L2000007 ! 102: .word L126-L2000007 ! 103: .word L126-L2000007 ! 104: .word L126-L2000007 ! 105: .word L126-L2000007 ! 106: .word L126-L2000007 ! 107: .word L126-L2000007 ! 108: .word L126-L2000007 ! 109: .word L126-L2000007 ! 110: .word L126-L2000007 ! 111: .word L126-L2000007 ! 112: .word L126-L2000007 ! 113: .word L126-L2000007 ! 114: .word L126-L2000007 ! 115: .word L126-L2000007 ! 116: .word L126-L2000007 ! 117: .word L126-L2000007 ! 118: .word L126-L2000007 ! 119: .word L126-L2000007 ! 120: .word L126-L2000007 ! 121: .word L126-L2000007 ! 122: .word L126-L2000007 ! 123: .word L126-L2000007 ! 124: .word L147-L2000007 ! 125: .word L147-L2000007 ! 126: .word L147-L2000007 ! 127: .word L147-L2000007 ! 128: .word L147-L2000007 ! 129: .word L147-L2000007 ! 130: L126:pushl r11 ! 131: callf $8,_posovf ! 132: orl2 r0,-92(fp) ! 133: tstl -88(fp) ! 134: jeql L156 ! 135: bitl $8,-92(fp) ! 136: jeql L157 ! 137: andl2 $-13,-92(fp) ! 138: jbr L156 ! 139: L117:xorl2 $1,-88(fp) ! 140: L110:incl r12 ! 141: jbr L112 ! 142: L124:cmpl 8(fp),$10 ! 143: jlss L126 ! 144: L134:cvtbl (r12),r0 ! 145: subl3 $48,r0,-60(fp) ! 146: jbr L121 ! 147: L2000001:cmpl r0,$10 ! 148: jeql L155 ! 149: cmpl r0,$16 ! 150: jeql L154 ! 151: L151:pushl -60(fp) ! 152: pushl r11 ! 153: pushl r11 ! 154: callf $16,_numaddd ! 155: orl2 r0,-92(fp) ! 156: incl r12 ! 157: jbr L120 ! 158: L140:cmpl 8(fp),$16 ! 159: jlss L126 ! 160: cvtbl (r12),r0 ! 161: subl3 $55,r0,-60(fp) ! 162: jbr L121 ! 163: L147:cmpl 8(fp),$16 ! 164: jlss L126 ! 165: cvtbl (r12),r0 ! 166: subl3 $87,r0,-60(fp) ! 167: L121:movl 8(fp),r0 ! 168: cmpl r0,$8 ! 169: jneq L2000001 ! 170: pushl r11 ! 171: pushl r11 ! 172: pushl $3 ! 173: L2000005:callf $16,_numshift ! 174: L2000006:orl2 r0,-92(fp) ! 175: jbr L151 ! 176: L154:pushl r11 ! 177: pushl r11 ! 178: pushl $4 ! 179: jbr L2000005 ! 180: L155:pushl r11 ! 181: pushl -56(fp) ! 182: pushl $1 ! 183: callf $16,_numshift ! 184: orl2 r0,-92(fp) ! 185: pushl r11 ! 186: pushl r11 ! 187: pushl $3 ! 188: callf $16,_numshift ! 189: orl2 r0,-92(fp) ! 190: pushl r11 ! 191: pushl -56(fp) ! 192: pushl r11 ! 193: callf $16,_numaddv ! 194: jbr L2000006 ! 195: L157:pushl r11 ! 196: pushl r11 ! 197: callf $12,_numnegate ! 198: orl2 r0,-92(fp) ! 199: L156:tstl -88(fp) ! 200: jeql L99999 ! 201: mnegl $1,r0 ! 202: jbr L99998 ! 203: L99999:clrl r0 ! 204: L99998:movl r0,-60(fp) ! 205: clrl r10 ! 206: L2000003:cmpl (r11)[r10],-60(fp) ! 207: jeql L160 ! 208: aoblss $2,r10,L2000003 ! 209: L160:decl r10 ! 210: jgeq L164 ! 211: clrl r10 ! 212: L164:movb L163+8[r10],-64(fp) ! 213: jneq L165 ! 214: pushl $L169 ! 215: pushl $L168 ! 216: pushl $L167 ! 217: callf $16,_panic ! 218: L165:movl -92(fp),*12(fp) ! 219: subl3 $72,fp,r0 ! 220: movab L170,r1 ! 221: movab (r1),r1 ! 222: movab (r0),r0 ! 223: movl $12,r2 ! 224: movblk ! 225: movab L170,r0 ! 226: ret#1 ! 227: .align 1 ! 228: .globl _as_atof ! 229: .lcomm L180,12 ! 230: .set L171,0x0 ! 231: .data ! 232: .text ! 233: _as_atof:.word L171 ! 234: subl3 $64,fp,sp ! 235: movab -64(fp),r1 ! 236: movab _Znumber,r0 ! 237: movl $12,r2 ! 238: movblk ! 239: cvtlb 8(fp),-56(fp) ! 240: movl 8(fp),r0 ! 241: cmpl r0,$4 ! 242: jeql L179 ! 243: cmpl r0,$5 ! 244: jeql L178 ! 245: L176:subl3 $64,fp,r0 ! 246: movab L180,r1 ! 247: movab (r1),r1 ! 248: movab (r0),r0 ! 249: movl $12,r2 ! 250: movblk ! 251: movab L180,r0 ! 252: ret#1 ! 253: L178:pushl 4(fp) ! 254: callf $8,_atof ! 255: movl r1,-60(fp) ! 256: movl r0,-64(fp) ! 257: jbr L176 ! 258: L179:pushl 4(fp) ! 259: callf $8,_atof ! 260: ldd r0 ! 261: cvdf ! 262: stf -64(fp) ! 263: jbr L176 ! 264: .align 1 ! 265: .globl _posovf ! 266: .set L181,0x1800 ! 267: .data ! 268: .text ! 269: _posovf:.word L181 ! 270: subl3 $56,fp,sp ! 271: movl 4(fp),r12 ! 272: clrl -56(fp) ! 273: bitl $-2147483648,4(r12) ! 274: jeql L185 ! 275: movl $4,-56(fp) ! 276: L185:cmpl 4(r12),$-2147483648 ! 277: jneq L2000010 ! 278: clrl r11 ! 279: L2000009:tstl (r12)[r11] ! 280: jeql L187 ! 281: L2000010:movl -56(fp),r0 ! 282: ret#1 ! 283: L187:decl r11 ! 284: jgeq L2000009 ! 285: orl2 $8,-56(fp) ! 286: jbr L2000010 ! 287: .align 1 ! 288: .globl _isclear ! 289: .set L192,0x1000 ! 290: .data ! 291: .text ! 292: _isclear:.word L192 ! 293: movl 4(fp),r12 ! 294: pushl $_Znumber ! 295: pushl r12 ! 296: callf $12,_isunequal ! 297: tstl r0 ! 298: jneq L99997 ! 299: movl $1,r0 ! 300: jbr L99996 ! 301: L99997:clrl r0 ! 302: L99996:ret#1 ! 303: .align 1 ! 304: .globl _isunequal ! 305: .set L197,0x1c00 ! 306: .data ! 307: .text ! 308: _isunequal:.word L197 ! 309: movl 4(fp),r12 ! 310: movl 8(fp),r11 ! 311: movl $2,r10 ! 312: L203:movl r12,r0 ! 313: addl2 $4,r12 ! 314: movl r11,r1 ! 315: addl2 $4,r11 ! 316: cmpl (r0),(r1) ! 317: jeql L202 ! 318: movl r10,r0 ! 319: ret#1 ! 320: L202:decl r10 ! 321: jneq L203 ! 322: clrl r0 ! 323: ret#1 ! 324: .align 1 ! 325: .globl _numclear ! 326: .set L205,0x1800 ! 327: .data ! 328: .text ! 329: _numclear:.word L205 ! 330: movl 4(fp),r12 ! 331: movl $2,r11 ! 332: L211:clrl (r12) ! 333: addl2 $4,r12 ! 334: decl r11 ! 335: jneq L211 ! 336: clrl r0 ! 337: ret#1 ! 338: .align 1 ! 339: .globl _numshift ! 340: .set L212,0x1fc0 ! 341: .data ! 342: .text ! 343: _numshift:.word L212 ! 344: movl 8(fp),r12 ! 345: movl 12(fp),r11 ! 346: movl $2,r10 ! 347: tstl 4(fp) ! 348: jneq L216 ! 349: L219:movl (r11),(r12) ! 350: addl2 $4,r11 ! 351: addl2 $4,r12 ! 352: decl r10 ! 353: jneq L219 ! 354: clrl r0 ! 355: ret#1 ! 356: L216:clrl r9 ! 357: movl 4(fp),r0 ! 358: shll r0,$1,r0 ! 359: subl3 $1,r0,r7 ! 360: tstl 4(fp) ! 361: jleq L220 ! 362: L223:movl (r11),r6 ! 363: addl2 $4,r11 ! 364: subl3 4(fp),$32,r0 ! 365: shrl r0,r6,r0 ! 366: andl3 r7,r0,r8 ! 367: movl 4(fp),r0 ! 368: shll r0,r6,r6 ! 369: mcoml r7,r0 ! 370: andl2 r0,r6 ! 371: orl3 r9,r6,(r12) ! 372: addl2 $4,r12 ! 373: movl r8,r9 ! 374: decl r10 ! 375: jneq L223 ! 376: tstl r9 ! 377: jeql L99995 ! 378: movl $2,r0 ! 379: jbr L99994 ! 380: L99995:clrl r0 ! 381: L99994:ret#1 ! 382: L220:mnegl 4(fp),4(fp) ! 383: addl2 $8,r11 ! 384: addl2 $8,r12 ! 385: L226:subl2 $4,r11 ! 386: movl (r11),r6 ! 387: andl3 r7,r6,r8 ! 388: movl 4(fp),r0 ! 389: shrl r0,r6,r6 ! 390: subl3 r0,$32,r0 ! 391: shll r0,$1,r0 ! 392: decl r0 ! 393: andl2 r0,r6 ! 394: orl3 r9,r6,r0 ! 395: subl2 $4,r12 ! 396: movl r0,(r12) ! 397: subl3 4(fp),$32,r0 ! 398: shll r0,r8,r9 ! 399: decl r10 ! 400: jneq L226 ! 401: tstl r9 ! 402: jeql L99993 ! 403: movl $2,r0 ! 404: jbr L99992 ! 405: L99993:clrl r0 ! 406: L99992:ret#1 ! 407: .align 1 ! 408: .globl _numaddd ! 409: .lcomm L231,12 ! 410: .set L227,0x0 ! 411: .data ! 412: .text ! 413: _numaddd:.word L227 ! 414: cvtlb 12(fp),L231+3 ! 415: pushl $L231 ! 416: pushl 8(fp) ! 417: pushl 4(fp) ! 418: callf $16,_numaddv ! 419: ret#1 ! 420: .align 1 ! 421: .globl _numaddv ! 422: .set L232,0x1fc0 ! 423: .data ! 424: .text ! 425: _numaddv:.word L232 ! 426: subl3 $56,fp,sp ! 427: movl 4(fp),r12 ! 428: movl 8(fp),r11 ! 429: movl 12(fp),r10 ! 430: clrl r8 ! 431: movl $2,r9 ! 432: L238:movl (r11),r7 ! 433: addl2 $4,r11 ! 434: movl (r10),r6 ! 435: addl2 $4,r10 ! 436: addl3 r6,r7,r0 ! 437: addl3 r8,r0,-56(fp) ! 438: movl -56(fp),(r12) ! 439: addl2 $4,r12 ! 440: clrl r8 ! 441: cmpl -56(fp),r7 ! 442: jlssu L99991 ! 443: cmpl -56(fp),r6 ! 444: jgequ L237 ! 445: L99991:movl $1,r8 ! 446: L237:decl r9 ! 447: jneq L238 ! 448: tstl r8 ! 449: jeql L99990 ! 450: movl $1,r0 ! 451: jbr L99989 ! 452: L99990:clrl r0 ! 453: L99989:ret#1 ! 454: .align 1 ! 455: .globl _numnegate ! 456: .set L240,0x0 ! 457: .data ! 458: .text ! 459: _numnegate:.word L240 ! 460: subl3 $56,fp,sp ! 461: pushl 8(fp) ! 462: pushl 4(fp) ! 463: callf $12,_num1comp ! 464: movl r0,-56(fp) ! 465: pushl $1 ! 466: pushl 4(fp) ! 467: pushl 4(fp) ! 468: callf $16,_numaddd ! 469: orl2 r0,-56(fp) ! 470: movl -56(fp),r0 ! 471: ret#1 ! 472: .align 1 ! 473: .globl _num1comp ! 474: .set L244,0x1c00 ! 475: .data ! 476: .text ! 477: _num1comp:.word L244 ! 478: movl 4(fp),r12 ! 479: movl 8(fp),r11 ! 480: movl $2,r10 ! 481: L250:mcoml (r11),(r12) ! 482: addl2 $4,r11 ! 483: addl2 $4,r12 ! 484: decl r10 ! 485: jneq L250 ! 486: clrl r0 ! 487: ret#1 ! 488: .align 1 ! 489: .globl _bignumprint ! 490: .data 1 ! 491: L260:.ascii "val[msd] = 0x%x, val[lsd] = 0x%x.\0" ! 492: .text ! 493: .data 1 ! 494: L262:.ascii "value %20.17f\0" ! 495: .text ! 496: .data 1 ! 497: L264:.ascii "value %20.17f\0" ! 498: .text ! 499: .set L252,0x0 ! 500: .data ! 501: .text ! 502: _bignumprint:.word L252 ! 503: movl _num_type,r0 ! 504: cmpl r0,$3 ! 505: jeql L258 ! 506: cmpl r0,$4 ! 507: jeql L261 ! 508: cmpl r0,$5 ! 509: jeql L263 ! 510: L256:ret#2 ! 511: L258:pushl 4(fp) ! 512: pushl 8(fp) ! 513: pushl $L260 ! 514: L2000011:callf $16,_printf ! 515: jbr L256 ! 516: L261:pushl $0 ! 517: pushl 4(fp) ! 518: pushl $L262 ! 519: jbr L2000011 ! 520: L263:pushl 8(fp) ! 521: pushl 4(fp) ! 522: pushl $L264 ! 523: jbr L2000011 ! 524:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.