crypto/bn/asm/vms.mar

   1         .title  vax_bn_mul_add_words  unsigned multiply & add, 32*32+32+32=>64
   2 ;
   3 ; w.j.m. 15-jan-1999
   4 ;
   5 ; it's magic ...
   6 ;
   7 ; ULONG bn_mul_add_words(ULONG r[],ULONG a[],int n,ULONG w) {
   8 ;       ULONG c = 0;
   9 ;       int i;
  10 ;       for(i = 0; i < n; i++) <c,r[i]> := r[i] + c + a[i] * w ;
  11 ;       return c;
  12 ; }
  13
  14 r=4 ;(AP)
  15 a=8 ;(AP)
  16 n=12 ;(AP)      n       by value (input)
  17 w=16 ;(AP)      w       by value (input)
  18
  19
  20         .psect  code,nowrt
  21
  22 .entry  bn_mul_add_words,^m<r2,r3,r4,r5,r6>
  23
  24         moval   @r(ap),r2
  25         moval   @a(ap),r3
  26         movl    n(ap),r4        ; assumed >0 by C code
  27         movl    w(ap),r5
  28         clrl    r6              ; c
  29
  30 0$:
  31         emul    r5,(r3),(r2),r0         ; w, a[], r[] considered signed
  32
  33         ; fixup for "negative" r[]
  34         tstl    (r2)
  35         bgeq    10$
  36         incl    r1
  37 10$:
  38
  39         ; add in c
  40         addl2   r6,r0
  41         adwc    #0,r1
  42
  43         ; combined fixup for "negative" w, a[]
  44         tstl    r5
  45         bgeq    20$
  46         addl2   (r3),r1
  47 20$:
  48         tstl    (r3)
  49         bgeq    30$
  50         addl2   r5,r1
  51 30$:
  52
  53         movl    r0,(r2)+                ; store lo result in r[] & advance
  54         addl    #4,r3                   ; advance a[]
  55         movl    r1,r6                   ; store hi result => c
  56
  57         sobgtr  r4,0$
  58
  59         movl    r6,r0                   ; return c
  60         ret
  61 \f
  62         .title  vax_bn_mul_words  unsigned multiply & add, 32*32+32=>64
  63 ;
  64 ; w.j.m. 15-jan-1999
  65 ;
  66 ; it's magic ...
  67 ;
  68 ; ULONG bn_mul_words(ULONG r[],ULONG a[],int n,ULONG w) {
  69 ;       ULONG c = 0;
  70 ;       int i;
  71 ;       for(i = 0; i < num; i++) <c,r[i]> := a[i] * w + c ;
  72 ;       return(c);
  73 ; }
  74
  75 r=4 ;(AP)
  76 a=8 ;(AP)
  77 n=12 ;(AP)      n       by value (input)
  78 w=16 ;(AP)      w       by value (input)
  79
  80
  81         .psect  code,nowrt
  82
  83 .entry  bn_mul_words,^m<r2,r3,r4,r5,r6>
  84
  85         moval   @r(ap),r2       ; r2 -> r[]
  86         moval   @a(ap),r3       ; r3 -> a[]
  87         movl    n(ap),r4        ; r4 = loop count (assumed >0 by C code)
  88         movl    w(ap),r5        ; r5 = w
  89         clrl    r6              ; r6 = c
  90
  91 0$:
  92         ; <r1,r0> := w * a[] + c
  93         emul    r5,(r3),r6,r0           ; w, a[], c considered signed
  94
  95         ; fixup for "negative" c
  96         tstl    r6                      ; c
  97         bgeq    10$
  98         incl    r1
  99 10$:
 100
 101         ; combined fixup for "negative" w, a[]
 102         tstl    r5                      ; w
 103         bgeq    20$
 104         addl2   (r3),r1                 ; a[]
 105 20$:
 106         tstl    (r3)                    ; a[]
 107         bgeq    30$
 108         addl2   r5,r1                   ; w
 109 30$:
 110
 111         movl    r0,(r2)+                ; store lo result in r[] & advance
 112         addl    #4,r3                   ; advance a[]
 113         movl    r1,r6                   ; store hi result => c
 114
 115         sobgtr  r4,0$
 116
 117         movl    r6,r0                   ; return c
 118         ret
 119 \f
 120         .title  vax_bn_sqr_words  unsigned square, 32*32=>64
 121 ;
 122 ; w.j.m. 15-jan-1999
 123 ;
 124 ; it's magic ...
 125 ;
 126 ; void bn_sqr_words(ULONG r[],ULONG a[],int n) {
 127 ;       int i;
 128 ;       for(i = 0; i < n; i++) <r[2*i+1],r[2*i]> := a[i] * a[i] ;
 129 ; }
 130
 131 r=4 ;(AP)
 132 a=8 ;(AP)
 133 n=12 ;(AP)      n       by value (input)
 134
 135
 136         .psect  code,nowrt
 137
 138 .entry  bn_sqr_words,^m<r2,r3,r4,r5>
 139
 140         moval   @r(ap),r2       ; r2 -> r[]
 141         moval   @a(ap),r3       ; r3 -> a[]
 142         movl    n(ap),r4        ; r4 = n (assumed >0 by C code)
 143
 144 0$:
 145         movl    (r3)+,r5                ; r5 = a[] & advance
 146
 147         ; <r1,r0> := a[] * a[]
 148         emul    r5,r5,#0,r0             ; a[] considered signed
 149
 150         ; fixup for "negative" a[]
 151         tstl    r5                      ; a[]
 152         bgeq    30$
 153         addl2   r5,r1                   ; a[]
 154         addl2   r5,r1                   ; a[]
 155 30$:
 156
 157         movl    r0,(r2)+                ; store lo result in r[] & advance
 158         movl    r1,(r2)+                ; store hi result in r[] & advance
 159
 160         sobgtr  r4,0$
 161
 162         movl    #1,r0                   ; return SS$_NORMAL
 163         ret
 164 \f
 165         .title  vax_bn_div_words  unsigned divide
 166 ;
 167 ; Richard Levitte 20-Nov-2000
 168 ;
 169 ; ULONG bn_div_words(ULONG h, ULONG l, ULONG d)
 170 ; {
 171 ;       return ((ULONG)((((ULLONG)h)<<32)|l) / (ULLONG)d);
 172 ; }
 173 ;
 174 ; Using EDIV would be very easy, if it didn't do signed calculations.
 175 ; Any time, any of the input numbers are signed, there are problems,
 176 ; usually with integer overflow, at which point it returns useless
 177 ; data (the quotient gets the value of l, and the remainder becomes 0).
 178 ;
 179 ; If it was just for the dividend, it would be very easy, just divide
 180 ; it by 2 (unsigned), do the division, multiply the resulting quotient
 181 ; and remainder by 2, add the bit that was dropped when dividing by 2
 182 ; to the remainder, and do some adjustment so the remainder doesn't
 183 ; end up larger than the divisor.  This method works as long as the
 184 ; divisor is positive, so we'll keep that (with a small adjustment)
 185 ; as the main method.
 186 ; For some cases when the divisor is negative (from EDIV's point of
 187 ; view, i.e. when the highest bit is set), dividing the dividend by
 188 ; 2 isn't enough, it needs to be divided by 4.  Furthermore, the
 189 ; divisor needs to be divided by 2 (unsigned) as well, to avoid more
 190 ; problems with the sign.  In this case, the divisor is so large,
 191 ; from an unsigned point of view, that the dropped lowest bit is
 192 ; insignificant for the operation, and therefore doesn't need
 193 ; bothering with.  The remainder might end up incorrect, bit that's
 194 ; adjusted at the end of the routine anyway.
 195 ;
 196 ; So, the simplest way to handle this is always to divide the dividend
 197 ; by 4, and to divide the divisor by 2 if it's highest bit is set.
 198 ; After EDIV has been used, the quotient gets multiplied by 4 if the
 199 ; original divisor was positive, otherwise 2.  The remainder, oddly
 200 ; enough, is *always* multiplied by 4.
 201 ;
 202 ; The routine ends with comparing the resulting remainder with the
 203 ; original divisor and if the remainder is larger, subtract the
 204 ; original divisor from it, and increase the quotient by 1.  This is
 205 ; done until the remainder is smaller than the divisor.
 206 ;
 207 ; The complete algorithm looks like this:
 208 ;
 209 ; d'    = d
 210 ; l'    = l & 3
 211 ; [h,l] = [h,l] >> 2
 212 ; [q,r] = floor([h,l] / d)      # This is the EDIV operation
 213 ; if (q < 0) q = -q             # I doubt this is necessary any more
 214 ;
 215 ; r'    = r >> 30
 216 ; if (d' > 0) q = q << 1
 217 ; q     = q << 1
 218 ; r     = (r << 2) + l'
 219 ;
 220 ; while ([r',r] >= d)
 221 ;   {
 222 ;     [r',r] = [r',r] - d
 223 ;     q = q + 1
 224 ;   }
 225 ;
 226 ; return q
 227
 228 h=4 ;(AP)       h       by value (input)
 229 l=8 ;(AP)       l       by value (input)
 230 d=12 ;(AP)      d       by value (input)
 231
 232 ;lprim=r5
 233 ;rprim=r6
 234 ;dprim=r7
 235
 236
 237         .psect  code,nowrt
 238
 239 .entry  bn_div_words,^m<r2,r3,r4,r5,r6,r7>
 240         movl    l(ap),r2
 241         movl    h(ap),r3
 242         movl    d(ap),r4
 243
 244         bicl3   #^XFFFFFFFC,r2,r5 ; l' = l & 3
 245         bicl3   #^X00000003,r2,r2
 246
 247         bicl3   #^XFFFFFFFC,r3,r6
 248         bicl3   #^X00000003,r3,r3
 249
 250         addl    r6,r2
 251         rotl    #-2,r2,r2       ; l = l >> 2
 252         rotl    #-2,r3,r3       ; h = h >> 2
 253
 254         movl    #0,r6
 255         movl    r4,r7           ; d' = d
 256
 257         tstl    r4
 258         beql    666$            ; Uh-oh, the divisor is 0...
 259         bgtr    1$
 260         rotl    #-1,r4,r4       ; If d is negative, shift it right.
 261         bicl2   #^X80000000,r4  ; Since d is then a large number, the
 262                                 ; lowest bit is insignificant
 263                                 ; (contradict that, and I'll fix the problem!)
 264 1$:
 265         ediv    r4,r2,r2,r3     ; Do the actual division
 266
 267         tstl    r2
 268         bgeq    3$
 269         mnegl   r2,r2           ; if q < 0, negate it
 270 3$:
 271         tstl    r7
 272         blss    4$
 273         ashl    #1,r2,r2        ; q = q << 1
 274 4$:
 275         ashl    #1,r2,r2        ; q = q << 1
 276         rotl    #2,r3,r3        ; r = r << 2
 277         bicl3   #^XFFFFFFFC,r3,r6 ; r' gets the high bits from r
 278         bicl3   #^X00000003,r3,r3
 279         addl    r5,r3           ; r = r + l'
 280
 281 5$:
 282         tstl    r6
 283         bneq    6$
 284         cmpl    r3,r7
 285         blssu   42$             ; while [r',r] >= d'
 286 6$:
 287         subl    r7,r3           ;   r = r - d
 288         sbwc    #0,r6
 289         incl    r2              ;   q = q + 1
 290         brb     5$
 291 42$:
 292 ;       movl    r3,r1
 293         movl    r2,r0
 294         ret
 295 666$:
 296         movl    #^XFFFFFFFF,r0
 297         ret
 298 \f
 299         .title  vax_bn_add_words  unsigned add of two arrays
 300 ;
 301 ; Richard Levitte 20-Nov-2000
 302 ;
 303 ; ULONG bn_add_words(ULONG r[], ULONG a[], ULONG b[], int n) {
 304 ;       ULONG c = 0;
 305 ;       int i;
 306 ;       for (i = 0; i < n; i++) <c,r[i]> = a[i] + b[i] + c;
 307 ;       return(c);
 308 ; }
 309
 310 r=4 ;(AP)       r       by reference (output)
 311 a=8 ;(AP)       a       by reference (input)
 312 b=12 ;(AP)      b       by reference (input)
 313 n=16 ;(AP)      n       by value (input)
 314
 315
 316         .psect  code,nowrt
 317
 318 .entry  bn_add_words,^m<r2,r3,r4,r5,r6>
 319
 320         moval   @r(ap),r2
 321         moval   @a(ap),r3
 322         moval   @b(ap),r4
 323         movl    n(ap),r5        ; assumed >0 by C code
 324         clrl    r0              ; c
 325
 326         tstl    r5              ; carry = 0
 327         bleq    666$
 328
 329 0$:
 330         movl    (r3)+,r6        ; carry untouched
 331         adwc    (r4)+,r6        ; carry used and touched
 332         movl    r6,(r2)+        ; carry untouched
 333         sobgtr  r5,0$           ; carry untouched
 334
 335         adwc    #0,r0
 336 666$:
 337         ret
 338 \f
 339         .title  vax_bn_sub_words  unsigned add of two arrays
 340 ;
 341 ; Richard Levitte 20-Nov-2000
 342 ;
 343 ; ULONG bn_sub_words(ULONG r[], ULONG a[], ULONG b[], int n) {
 344 ;       ULONG c = 0;
 345 ;       int i;
 346 ;       for (i = 0; i < n; i++) <c,r[i]> = a[i] - b[i] - c;
 347 ;       return(c);
 348 ; }
 349
 350 r=4 ;(AP)       r       by reference (output)
 351 a=8 ;(AP)       a       by reference (input)
 352 b=12 ;(AP)      b       by reference (input)
 353 n=16 ;(AP)      n       by value (input)
 354
 355
 356         .psect  code,nowrt
 357
 358 .entry  bn_sub_words,^m<r2,r3,r4,r5,r6>
 359
 360         moval   @r(ap),r2
 361         moval   @a(ap),r3
 362         moval   @b(ap),r4
 363         movl    n(ap),r5        ; assumed >0 by C code
 364         clrl    r0              ; c
 365
 366         tstl    r5              ; carry = 0
 367         bleq    666$
 368
 369 0$:
 370         movl    (r3)+,r6        ; carry untouched
 371         sbwc    (r4)+,r6        ; carry used and touched
 372         movl    r6,(r2)+        ; carry untouched
 373         sobgtr  r5,0$           ; carry untouched
 374
 375         adwc    #0,r0
 376 666$:
 377         ret
 378 \f
 379
 380 ;r=4 ;(AP)
 381 ;a=8 ;(AP)
 382 ;b=12 ;(AP)
 383 ;n=16 ;(AP)     n       by value (input)
 384
 385         .psect  code,nowrt
 386
 387 .entry  BN_MUL_COMBA8,^m<r2,r3,r4,r5,r6,r7,r8,r9,r10,r11>
 388         movab   -924(sp),sp
 389         clrq    r8
 390
 391         clrl    r10
 392
 393         movl    8(ap),r6
 394         movzwl  2(r6),r3
 395         movl    12(ap),r7
 396         bicl3   #-65536,(r7),r2
 397         movzwl  2(r7),r0
 398         bicl2   #-65536,r0
 399         bicl3   #-65536,(r6),-12(fp)
 400         bicl3   #-65536,r3,-16(fp)
 401         mull3   r0,-12(fp),-4(fp)
 402         mull2   r2,-12(fp)
 403         mull3   r2,-16(fp),-8(fp)
 404         mull2   r0,-16(fp)
 405         addl3   -4(fp),-8(fp),r0
 406         bicl3   #0,r0,-4(fp)
 407         cmpl    -4(fp),-8(fp)
 408         bgequ   noname.45
 409         addl2   #65536,-16(fp)
 410 noname.45:
 411         movzwl  -2(fp),r0
 412         bicl2   #-65536,r0
 413         addl2   r0,-16(fp)
 414         bicl3   #-65536,-4(fp),r0
 415         ashl    #16,r0,-8(fp)
 416         addl3   -8(fp),-12(fp),r0
 417         bicl3   #0,r0,-12(fp)
 418         cmpl    -12(fp),-8(fp)
 419         bgequ   noname.46
 420         incl    -16(fp)
 421 noname.46:
 422         movl    -12(fp),r1
 423         movl    -16(fp),r2
 424         addl2   r1,r9
 425         bicl2   #0,r9
 426         cmpl    r9,r1
 427         bgequ   noname.47
 428         incl    r2
 429 noname.47:
 430         addl2   r2,r8
 431         bicl2   #0,r8
 432         cmpl    r8,r2
 433         bgequ   noname.48
 434         incl    r10
 435 noname.48:
 436
 437         movl    4(ap),r11
 438         movl    r9,(r11)
 439
 440         clrl    r9
 441
 442         movzwl  2(r6),r2
 443         bicl3   #-65536,4(r7),r3
 444         movzwl  6(r7),r0
 445         bicl2   #-65536,r0
 446         bicl3   #-65536,(r6),-28(fp)
 447         bicl3   #-65536,r2,-32(fp)
 448         mull3   r0,-28(fp),-20(fp)
 449         mull2   r3,-28(fp)
 450         mull3   r3,-32(fp),-24(fp)
 451         mull2   r0,-32(fp)
 452         addl3   -20(fp),-24(fp),r0
 453         bicl3   #0,r0,-20(fp)
 454         cmpl    -20(fp),-24(fp)
 455         bgequ   noname.49
 456         addl2   #65536,-32(fp)
 457 noname.49:
 458         movzwl  -18(fp),r0
 459         bicl2   #-65536,r0
 460         addl2   r0,-32(fp)
 461         bicl3   #-65536,-20(fp),r0
 462         ashl    #16,r0,-24(fp)
 463         addl3   -24(fp),-28(fp),r0
 464         bicl3   #0,r0,-28(fp)
 465         cmpl    -28(fp),-24(fp)
 466         bgequ   noname.50
 467         incl    -32(fp)
 468 noname.50:
 469         movl    -28(fp),r1
 470         movl    -32(fp),r2
 471         addl2   r1,r8
 472         bicl2   #0,r8
 473         cmpl    r8,r1
 474         bgequ   noname.51
 475         incl    r2
 476 noname.51:
 477         addl2   r2,r10
 478         bicl2   #0,r10
 479         cmpl    r10,r2
 480         bgequ   noname.52
 481         incl    r9
 482 noname.52:
 483
 484         movzwl  6(r6),r2
 485         bicl3   #-65536,(r7),r3
 486         movzwl  2(r7),r0
 487         bicl2   #-65536,r0
 488         bicl3   #-65536,4(r6),-44(fp)
 489         bicl3   #-65536,r2,-48(fp)
 490         mull3   r0,-44(fp),-36(fp)
 491         mull2   r3,-44(fp)
 492         mull3   r3,-48(fp),-40(fp)
 493         mull2   r0,-48(fp)
 494         addl3   -36(fp),-40(fp),r0
 495         bicl3   #0,r0,-36(fp)
 496         cmpl    -36(fp),-40(fp)
 497         bgequ   noname.53
 498         addl2   #65536,-48(fp)
 499 noname.53:
 500         movzwl  -34(fp),r0
 501         bicl2   #-65536,r0
 502         addl2   r0,-48(fp)
 503         bicl3   #-65536,-36(fp),r0
 504         ashl    #16,r0,-40(fp)
 505         addl3   -40(fp),-44(fp),r0
 506         bicl3   #0,r0,-44(fp)
 507         cmpl    -44(fp),-40(fp)
 508         bgequ   noname.54
 509         incl    -48(fp)
 510 noname.54:
 511         movl    -44(fp),r1
 512         movl    -48(fp),r2
 513         addl2   r1,r8
 514         bicl2   #0,r8
 515         cmpl    r8,r1
 516         bgequ   noname.55
 517         incl    r2
 518 noname.55:
 519         addl2   r2,r10
 520         bicl2   #0,r10
 521         cmpl    r10,r2
 522         bgequ   noname.56
 523         incl    r9
 524 noname.56:
 525
 526         movl    r8,4(r11)
 527
 528         clrl    r8
 529
 530         movzwl  10(r6),r2
 531         bicl3   #-65536,(r7),r3
 532         movzwl  2(r7),r0
 533         bicl2   #-65536,r0
 534         bicl3   #-65536,8(r6),-60(fp)
 535         bicl3   #-65536,r2,-64(fp)
 536         mull3   r0,-60(fp),-52(fp)
 537         mull2   r3,-60(fp)
 538         mull3   r3,-64(fp),-56(fp)
 539         mull2   r0,-64(fp)
 540         addl3   -52(fp),-56(fp),r0
 541         bicl3   #0,r0,-52(fp)
 542         cmpl    -52(fp),-56(fp)
 543         bgequ   noname.57
 544         addl2   #65536,-64(fp)
 545 noname.57:
 546         movzwl  -50(fp),r0
 547         bicl2   #-65536,r0
 548         addl2   r0,-64(fp)
 549         bicl3   #-65536,-52(fp),r0
 550         ashl    #16,r0,-56(fp)
 551         addl3   -56(fp),-60(fp),r0
 552         bicl3   #0,r0,-60(fp)
 553         cmpl    -60(fp),-56(fp)
 554         bgequ   noname.58
 555         incl    -64(fp)
 556 noname.58:
 557         movl    -60(fp),r1
 558         movl    -64(fp),r2
 559         addl2   r1,r10
 560         bicl2   #0,r10
 561         cmpl    r10,r1
 562         bgequ   noname.59
 563         incl    r2
 564 noname.59:
 565         addl2   r2,r9
 566         bicl2   #0,r9
 567         cmpl    r9,r2
 568         bgequ   noname.60
 569         incl    r8
 570 noname.60:
 571
 572         movzwl  6(r6),r2
 573         bicl3   #-65536,4(r7),r3
 574         movzwl  6(r7),r0
 575         bicl2   #-65536,r0
 576         bicl3   #-65536,4(r6),-76(fp)
 577         bicl3   #-65536,r2,-80(fp)
 578         mull3   r0,-76(fp),-68(fp)
 579         mull2   r3,-76(fp)
 580         mull3   r3,-80(fp),-72(fp)
 581         mull2   r0,-80(fp)
 582         addl3   -68(fp),-72(fp),r0
 583         bicl3   #0,r0,-68(fp)
 584         cmpl    -68(fp),-72(fp)
 585         bgequ   noname.61
 586         addl2   #65536,-80(fp)
 587 noname.61:
 588         movzwl  -66(fp),r0
 589         bicl2   #-65536,r0
 590         addl2   r0,-80(fp)
 591         bicl3   #-65536,-68(fp),r0
 592         ashl    #16,r0,-72(fp)
 593         addl3   -72(fp),-76(fp),r0
 594         bicl3   #0,r0,-76(fp)
 595         cmpl    -76(fp),-72(fp)
 596         bgequ   noname.62
 597         incl    -80(fp)
 598 noname.62:
 599         movl    -76(fp),r1
 600         movl    -80(fp),r2
 601         addl2   r1,r10
 602         bicl2   #0,r10
 603         cmpl    r10,r1
 604         bgequ   noname.63
 605         incl    r2
 606 noname.63:
 607         addl2   r2,r9
 608         bicl2   #0,r9
 609         cmpl    r9,r2
 610         bgequ   noname.64
 611         incl    r8
 612 noname.64:
 613
 614         movzwl  2(r6),r2
 615         bicl3   #-65536,8(r7),r3
 616         movzwl  10(r7),r0
 617         bicl2   #-65536,r0
 618         bicl3   #-65536,(r6),-92(fp)
 619         bicl3   #-65536,r2,-96(fp)
 620         mull3   r0,-92(fp),-84(fp)
 621         mull2   r3,-92(fp)
 622         mull3   r3,-96(fp),-88(fp)
 623         mull2   r0,-96(fp)
 624         addl3   -84(fp),-88(fp),r0
 625         bicl3   #0,r0,-84(fp)
 626         cmpl    -84(fp),-88(fp)
 627         bgequ   noname.65
 628         addl2   #65536,-96(fp)
 629 noname.65:
 630         movzwl  -82(fp),r0
 631         bicl2   #-65536,r0
 632         addl2   r0,-96(fp)
 633         bicl3   #-65536,-84(fp),r0
 634         ashl    #16,r0,-88(fp)
 635         addl3   -88(fp),-92(fp),r0
 636         bicl3   #0,r0,-92(fp)
 637         cmpl    -92(fp),-88(fp)
 638         bgequ   noname.66
 639         incl    -96(fp)
 640 noname.66:
 641         movl    -92(fp),r1
 642         movl    -96(fp),r2
 643         addl2   r1,r10
 644         bicl2   #0,r10
 645         cmpl    r10,r1
 646         bgequ   noname.67
 647         incl    r2
 648 noname.67:
 649         addl2   r2,r9
 650         bicl2   #0,r9
 651         cmpl    r9,r2
 652         bgequ   noname.68
 653         incl    r8
 654 noname.68:
 655
 656         movl    r10,8(r11)
 657
 658         clrl    r10
 659
 660         movzwl  2(r6),r2
 661         bicl3   #-65536,12(r7),r3
 662         movzwl  14(r7),r0
 663         bicl2   #-65536,r0
 664         bicl3   #-65536,(r6),-108(fp)
 665         bicl3   #-65536,r2,-112(fp)
 666         mull3   r0,-108(fp),-100(fp)
 667         mull2   r3,-108(fp)
 668         mull3   r3,-112(fp),-104(fp)
 669         mull2   r0,-112(fp)
 670         addl3   -100(fp),-104(fp),r0
 671         bicl3   #0,r0,-100(fp)
 672         cmpl    -100(fp),-104(fp)
 673         bgequ   noname.69
 674         addl2   #65536,-112(fp)
 675 noname.69:
 676         movzwl  -98(fp),r0
 677         bicl2   #-65536,r0
 678         addl2   r0,-112(fp)
 679         bicl3   #-65536,-100(fp),r0
 680         ashl    #16,r0,-104(fp)
 681         addl3   -104(fp),-108(fp),r0
 682         bicl3   #0,r0,-108(fp)
 683         cmpl    -108(fp),-104(fp)
 684         bgequ   noname.70
 685         incl    -112(fp)
 686 noname.70:
 687         movl    -108(fp),r1
 688         movl    -112(fp),r2
 689         addl2   r1,r9
 690         bicl2   #0,r9
 691         cmpl    r9,r1
 692         bgequ   noname.71
 693         incl    r2
 694 noname.71:
 695         addl2   r2,r8
 696         bicl2   #0,r8
 697         cmpl    r8,r2
 698         bgequ   noname.72
 699         incl    r10
 700 noname.72:
 701
 702         movzwl  6(r6),r2
 703         bicl3   #-65536,8(r7),r3
 704         movzwl  10(r7),r0
 705         bicl2   #-65536,r0
 706         bicl3   #-65536,4(r6),-124(fp)
 707         bicl3   #-65536,r2,-128(fp)
 708         mull3   r0,-124(fp),-116(fp)
 709         mull2   r3,-124(fp)
 710         mull3   r3,-128(fp),-120(fp)
 711         mull2   r0,-128(fp)
 712         addl3   -116(fp),-120(fp),r0
 713         bicl3   #0,r0,-116(fp)
 714         cmpl    -116(fp),-120(fp)
 715         bgequ   noname.73
 716         addl2   #65536,-128(fp)
 717 noname.73:
 718         movzwl  -114(fp),r0
 719         bicl2   #-65536,r0
 720         addl2   r0,-128(fp)
 721         bicl3   #-65536,-116(fp),r0
 722         ashl    #16,r0,-120(fp)
 723         addl3   -120(fp),-124(fp),r0
 724         bicl3   #0,r0,-124(fp)
 725         cmpl    -124(fp),-120(fp)
 726         bgequ   noname.74
 727         incl    -128(fp)
 728 noname.74:
 729         movl    -124(fp),r1
 730         movl    -128(fp),r2
 731         addl2   r1,r9
 732         bicl2   #0,r9
 733         cmpl    r9,r1
 734         bgequ   noname.75
 735         incl    r2
 736 noname.75:
 737         addl2   r2,r8
 738         bicl2   #0,r8
 739         cmpl    r8,r2
 740         bgequ   noname.76
 741         incl    r10
 742 noname.76:
 743
 744         movzwl  10(r6),r2
 745         bicl3   #-65536,4(r7),r3
 746         movzwl  6(r7),r0
 747         bicl2   #-65536,r0
 748         bicl3   #-65536,8(r6),-140(fp)
 749         bicl3   #-65536,r2,-144(fp)
 750         mull3   r0,-140(fp),-132(fp)
 751         mull2   r3,-140(fp)
 752         mull3   r3,-144(fp),-136(fp)
 753         mull2   r0,-144(fp)
 754         addl3   -132(fp),-136(fp),r0
 755         bicl3   #0,r0,-132(fp)
 756         cmpl    -132(fp),-136(fp)
 757         bgequ   noname.77
 758         addl2   #65536,-144(fp)
 759 noname.77:
 760         movzwl  -130(fp),r0
 761         bicl2   #-65536,r0
 762         addl2   r0,-144(fp)
 763         bicl3   #-65536,-132(fp),r0
 764         ashl    #16,r0,-136(fp)
 765         addl3   -136(fp),-140(fp),r0
 766         bicl3   #0,r0,-140(fp)
 767         cmpl    -140(fp),-136(fp)
 768         bgequ   noname.78
 769         incl    -144(fp)
 770 noname.78:
 771         movl    -140(fp),r1
 772         movl    -144(fp),r2
 773         addl2   r1,r9
 774         bicl2   #0,r9
 775         cmpl    r9,r1
 776         bgequ   noname.79
 777         incl    r2
 778 noname.79:
 779         addl2   r2,r8
 780         bicl2   #0,r8
 781         cmpl    r8,r2
 782         bgequ   noname.80
 783         incl    r10
 784 noname.80:
 785
 786         movzwl  14(r6),r2
 787         bicl3   #-65536,(r7),r3
 788         movzwl  2(r7),r0
 789         bicl2   #-65536,r0
 790         bicl3   #-65536,12(r6),-156(fp)
 791         bicl3   #-65536,r2,-160(fp)
 792         mull3   r0,-156(fp),-148(fp)
 793         mull2   r3,-156(fp)
 794         mull3   r3,-160(fp),-152(fp)
 795         mull2   r0,-160(fp)
 796         addl3   -148(fp),-152(fp),r0
 797         bicl3   #0,r0,-148(fp)
 798         cmpl    -148(fp),-152(fp)
 799         bgequ   noname.81
 800         addl2   #65536,-160(fp)
 801 noname.81:
 802         movzwl  -146(fp),r0
 803         bicl2   #-65536,r0
 804         addl2   r0,-160(fp)
 805         bicl3   #-65536,-148(fp),r0
 806         ashl    #16,r0,-152(fp)
 807         addl3   -152(fp),-156(fp),r0
 808         bicl3   #0,r0,-156(fp)
 809         cmpl    -156(fp),-152(fp)
 810         bgequ   noname.82
 811         incl    -160(fp)
 812 noname.82:
 813         movl    -156(fp),r1
 814         movl    -160(fp),r2
 815         addl2   r1,r9
 816         bicl2   #0,r9
 817         cmpl    r9,r1
 818         bgequ   noname.83
 819         incl    r2
 820 noname.83:
 821         addl2   r2,r8
 822         bicl2   #0,r8
 823         cmpl    r8,r2
 824         bgequ   noname.84
 825         incl    r10
 826 noname.84:
 827
 828         movl    r9,12(r11)
 829
 830         clrl    r9
 831
 832         movzwl  18(r6),r2
 833         bicl3   #-65536,(r7),r3
 834         movzwl  2(r7),r0
 835         bicl2   #-65536,r0
 836         bicl3   #-65536,16(r6),-172(fp)
 837         bicl3   #-65536,r2,-176(fp)
 838         mull3   r0,-172(fp),-164(fp)
 839         mull2   r3,-172(fp)
 840         mull3   r3,-176(fp),-168(fp)
 841         mull2   r0,-176(fp)
 842         addl3   -164(fp),-168(fp),r0
 843         bicl3   #0,r0,-164(fp)
 844         cmpl    -164(fp),-168(fp)
 845         bgequ   noname.85
 846         addl2   #65536,-176(fp)
 847 noname.85:
 848         movzwl  -162(fp),r0
 849         bicl2   #-65536,r0
 850         addl2   r0,-176(fp)
 851         bicl3   #-65536,-164(fp),r0
 852         ashl    #16,r0,-168(fp)
 853         addl3   -168(fp),-172(fp),r0
 854         bicl3   #0,r0,-172(fp)
 855         cmpl    -172(fp),-168(fp)
 856         bgequ   noname.86
 857         incl    -176(fp)
 858 noname.86:
 859         movl    -172(fp),r1
 860         movl    -176(fp),r2
 861         addl2   r1,r8
 862         bicl2   #0,r8
 863         cmpl    r8,r1
 864         bgequ   noname.87
 865         incl    r2
 866 noname.87:
 867         addl2   r2,r10
 868         bicl2   #0,r10
 869         cmpl    r10,r2
 870         bgequ   noname.88
 871         incl    r9
 872 noname.88:
 873
 874         movzwl  14(r6),r2
 875         bicl3   #-65536,4(r7),r3
 876         movzwl  6(r7),r0
 877         bicl2   #-65536,r0
 878         bicl3   #-65536,12(r6),-188(fp)
 879         bicl3   #-65536,r2,-192(fp)
 880         mull3   r0,-188(fp),-180(fp)
 881         mull2   r3,-188(fp)
 882         mull3   r3,-192(fp),-184(fp)
 883         mull2   r0,-192(fp)
 884         addl3   -180(fp),-184(fp),r0
 885         bicl3   #0,r0,-180(fp)
 886         cmpl    -180(fp),-184(fp)
 887         bgequ   noname.89
 888         addl2   #65536,-192(fp)
 889 noname.89:
 890         movzwl  -178(fp),r0
 891         bicl2   #-65536,r0
 892         addl2   r0,-192(fp)
 893         bicl3   #-65536,-180(fp),r0
 894         ashl    #16,r0,-184(fp)
 895         addl3   -184(fp),-188(fp),r0
 896         bicl3   #0,r0,-188(fp)
 897         cmpl    -188(fp),-184(fp)
 898         bgequ   noname.90
 899         incl    -192(fp)
 900 noname.90:
 901         movl    -188(fp),r1
 902         movl    -192(fp),r2
 903         addl2   r1,r8
 904         bicl2   #0,r8
 905         cmpl    r8,r1
 906         bgequ   noname.91
 907         incl    r2
 908 noname.91:
 909         addl2   r2,r10
 910         bicl2   #0,r10
 911         cmpl    r10,r2
 912         bgequ   noname.92
 913         incl    r9
 914 noname.92:
 915
 916         movzwl  10(r6),r2
 917         bicl3   #-65536,8(r7),r3
 918         movzwl  10(r7),r0
 919         bicl2   #-65536,r0
 920         bicl3   #-65536,8(r6),-204(fp)
 921         bicl3   #-65536,r2,-208(fp)
 922         mull3   r0,-204(fp),-196(fp)
 923         mull2   r3,-204(fp)
 924         mull3   r3,-208(fp),-200(fp)
 925         mull2   r0,-208(fp)
 926         addl3   -196(fp),-200(fp),r0
 927         bicl3   #0,r0,-196(fp)
 928         cmpl    -196(fp),-200(fp)
 929         bgequ   noname.93
 930         addl2   #65536,-208(fp)
 931 noname.93:
 932         movzwl  -194(fp),r0
 933         bicl2   #-65536,r0
 934         addl2   r0,-208(fp)
 935         bicl3   #-65536,-196(fp),r0
 936         ashl    #16,r0,-200(fp)
 937         addl3   -200(fp),-204(fp),r0
 938         bicl3   #0,r0,-204(fp)
 939         cmpl    -204(fp),-200(fp)
 940         bgequ   noname.94
 941         incl    -208(fp)
 942 noname.94:
 943         movl    -204(fp),r1
 944         movl    -208(fp),r2
 945         addl2   r1,r8
 946         bicl2   #0,r8
 947         cmpl    r8,r1
 948         bgequ   noname.95
 949         incl    r2
 950 noname.95:
 951         addl2   r2,r10
 952         bicl2   #0,r10
 953         cmpl    r10,r2
 954         bgequ   noname.96
 955         incl    r9
 956 noname.96:
 957
 958         movzwl  6(r6),r2
 959         bicl3   #-65536,12(r7),r3
 960         movzwl  14(r7),r0
 961         bicl2   #-65536,r0
 962         bicl3   #-65536,4(r6),-220(fp)
 963         bicl3   #-65536,r2,-224(fp)
 964         mull3   r0,-220(fp),-212(fp)
 965         mull2   r3,-220(fp)
 966         mull3   r3,-224(fp),-216(fp)
 967         mull2   r0,-224(fp)
 968         addl3   -212(fp),-216(fp),r0
 969         bicl3   #0,r0,-212(fp)
 970         cmpl    -212(fp),-216(fp)
 971         bgequ   noname.97
 972         addl2   #65536,-224(fp)
 973 noname.97:
 974         movzwl  -210(fp),r0
 975         bicl2   #-65536,r0
 976         addl2   r0,-224(fp)
 977         bicl3   #-65536,-212(fp),r0
 978         ashl    #16,r0,-216(fp)
 979         addl3   -216(fp),-220(fp),r0
 980         bicl3   #0,r0,-220(fp)
 981         cmpl    -220(fp),-216(fp)
 982         bgequ   noname.98
 983         incl    -224(fp)
 984 noname.98:
 985         movl    -220(fp),r1
 986         movl    -224(fp),r2
 987         addl2   r1,r8
 988         bicl2   #0,r8
 989         cmpl    r8,r1
 990         bgequ   noname.99
 991         incl    r2
 992 noname.99:
 993         addl2   r2,r10
 994         bicl2   #0,r10
 995         cmpl    r10,r2
 996         bgequ   noname.100
 997         incl    r9
 998 noname.100:
 999
1000         movzwl  2(r6),r2
1001         bicl3   #-65536,16(r7),r3
1002         movzwl  18(r7),r0
1003         bicl2   #-65536,r0
1004         bicl3   #-65536,(r6),-236(fp)
1005         bicl3   #-65536,r2,-240(fp)
1006         mull3   r0,-236(fp),-228(fp)
1007         mull2   r3,-236(fp)
1008         mull3   r3,-240(fp),-232(fp)
1009         mull2   r0,-240(fp)
1010         addl3   -228(fp),-232(fp),r0
1011         bicl3   #0,r0,-228(fp)
1012         cmpl    -228(fp),-232(fp)
1013         bgequ   noname.101
1014         addl2   #65536,-240(fp)
1015 noname.101:
1016         movzwl  -226(fp),r0
1017         bicl2   #-65536,r0
1018         addl2   r0,-240(fp)
1019         bicl3   #-65536,-228(fp),r0
1020         ashl    #16,r0,-232(fp)
1021         addl3   -232(fp),-236(fp),r0
1022         bicl3   #0,r0,-236(fp)
1023         cmpl    -236(fp),-232(fp)
1024         bgequ   noname.102
1025         incl    -240(fp)
1026 noname.102:
1027         movl    -236(fp),r1
1028         movl    -240(fp),r2
1029         addl2   r1,r8
1030         bicl2   #0,r8
1031         cmpl    r8,r1
1032         bgequ   noname.103
1033         incl    r2
1034 noname.103:
1035         addl2   r2,r10
1036         bicl2   #0,r10
1037         cmpl    r10,r2
1038         bgequ   noname.104
1039         incl    r9
1040 noname.104:
1041
1042         movl    r8,16(r11)
1043
1044         clrl    r8
1045
1046         movzwl  2(r6),r2
1047         bicl3   #-65536,20(r7),r3
1048         movzwl  22(r7),r0
1049         bicl2   #-65536,r0
1050         bicl3   #-65536,(r6),-252(fp)
1051         bicl3   #-65536,r2,-256(fp)
1052         mull3   r0,-252(fp),-244(fp)
1053         mull2   r3,-252(fp)
1054         mull3   r3,-256(fp),-248(fp)
1055         mull2   r0,-256(fp)
1056         addl3   -244(fp),-248(fp),r0
1057         bicl3   #0,r0,-244(fp)
1058         cmpl    -244(fp),-248(fp)
1059         bgequ   noname.105
1060         addl2   #65536,-256(fp)
1061 noname.105:
1062         movzwl  -242(fp),r0
1063         bicl2   #-65536,r0
1064         addl2   r0,-256(fp)
1065         bicl3   #-65536,-244(fp),r0
1066         ashl    #16,r0,-248(fp)
1067         addl3   -248(fp),-252(fp),r0
1068         bicl3   #0,r0,-252(fp)
1069         cmpl    -252(fp),-248(fp)
1070         bgequ   noname.106
1071         incl    -256(fp)
1072 noname.106:
1073         movl    -252(fp),r1
1074         movl    -256(fp),r2
1075         addl2   r1,r10
1076         bicl2   #0,r10
1077         cmpl    r10,r1
1078         bgequ   noname.107
1079         incl    r2
1080 noname.107:
1081         addl2   r2,r9
1082         bicl2   #0,r9
1083         cmpl    r9,r2
1084         bgequ   noname.108
1085         incl    r8
1086 noname.108:
1087
1088         movzwl  6(r6),r2
1089         bicl3   #-65536,16(r7),r3
1090         movzwl  18(r7),r0
1091         bicl2   #-65536,r0
1092         bicl3   #-65536,4(r6),-268(fp)
1093         bicl3   #-65536,r2,-272(fp)
1094         mull3   r0,-268(fp),-260(fp)
1095         mull2   r3,-268(fp)
1096         mull3   r3,-272(fp),-264(fp)
1097         mull2   r0,-272(fp)
1098         addl3   -260(fp),-264(fp),r0
1099         bicl3   #0,r0,-260(fp)
1100         cmpl    -260(fp),-264(fp)
1101         bgequ   noname.109
1102         addl2   #65536,-272(fp)
1103 noname.109:
1104         movzwl  -258(fp),r0
1105         bicl2   #-65536,r0
1106         addl2   r0,-272(fp)
1107         bicl3   #-65536,-260(fp),r0
1108         ashl    #16,r0,-264(fp)
1109         addl3   -264(fp),-268(fp),r0
1110         bicl3   #0,r0,-268(fp)
1111         cmpl    -268(fp),-264(fp)
1112         bgequ   noname.110
1113         incl    -272(fp)
1114 noname.110:
1115         movl    -268(fp),r1
1116         movl    -272(fp),r2
1117         addl2   r1,r10
1118         bicl2   #0,r10
1119         cmpl    r10,r1
1120         bgequ   noname.111
1121         incl    r2
1122 noname.111:
1123         addl2   r2,r9
1124         bicl2   #0,r9
1125         cmpl    r9,r2
1126         bgequ   noname.112
1127         incl    r8
1128 noname.112:
1129
1130         movzwl  10(r6),r2
1131         bicl3   #-65536,12(r7),r3
1132         movzwl  14(r7),r0
1133         bicl2   #-65536,r0
1134         bicl3   #-65536,8(r6),-284(fp)
1135         bicl3   #-65536,r2,-288(fp)
1136         mull3   r0,-284(fp),-276(fp)
1137         mull2   r3,-284(fp)
1138         mull3   r3,-288(fp),-280(fp)
1139         mull2   r0,-288(fp)
1140         addl3   -276(fp),-280(fp),r0
1141         bicl3   #0,r0,-276(fp)
1142         cmpl    -276(fp),-280(fp)
1143         bgequ   noname.113
1144         addl2   #65536,-288(fp)
1145 noname.113:
1146         movzwl  -274(fp),r0
1147         bicl2   #-65536,r0
1148         addl2   r0,-288(fp)
1149         bicl3   #-65536,-276(fp),r0
1150         ashl    #16,r0,-280(fp)
1151         addl3   -280(fp),-284(fp),r0
1152         bicl3   #0,r0,-284(fp)
1153         cmpl    -284(fp),-280(fp)
1154         bgequ   noname.114
1155         incl    -288(fp)
1156 noname.114:
1157         movl    -284(fp),r1
1158         movl    -288(fp),r2
1159         addl2   r1,r10
1160         bicl2   #0,r10
1161         cmpl    r10,r1
1162         bgequ   noname.115
1163         incl    r2
1164 noname.115:
1165         addl2   r2,r9
1166         bicl2   #0,r9
1167         cmpl    r9,r2
1168         bgequ   noname.116
1169         incl    r8
1170 noname.116:
1171
1172         movzwl  14(r6),r2
1173         bicl3   #-65536,8(r7),r3
1174         movzwl  10(r7),r0
1175         bicl2   #-65536,r0
1176         bicl3   #-65536,12(r6),-300(fp)
1177         bicl3   #-65536,r2,-304(fp)
1178         mull3   r0,-300(fp),-292(fp)
1179         mull2   r3,-300(fp)
1180         mull3   r3,-304(fp),-296(fp)
1181         mull2   r0,-304(fp)
1182         addl3   -292(fp),-296(fp),r0
1183         bicl3   #0,r0,-292(fp)
1184         cmpl    -292(fp),-296(fp)
1185         bgequ   noname.117
1186         addl2   #65536,-304(fp)
1187 noname.117:
1188         movzwl  -290(fp),r0
1189         bicl2   #-65536,r0
1190         addl2   r0,-304(fp)
1191         bicl3   #-65536,-292(fp),r0
1192         ashl    #16,r0,-296(fp)
1193         addl3   -296(fp),-300(fp),r0
1194         bicl3   #0,r0,-300(fp)
1195         cmpl    -300(fp),-296(fp)
1196         bgequ   noname.118
1197         incl    -304(fp)
1198 noname.118:
1199         movl    -300(fp),r1
1200         movl    -304(fp),r2
1201         addl2   r1,r10
1202         bicl2   #0,r10
1203         cmpl    r10,r1
1204         bgequ   noname.119
1205         incl    r2
1206 noname.119:
1207         addl2   r2,r9
1208         bicl2   #0,r9
1209         cmpl    r9,r2
1210         bgequ   noname.120
1211         incl    r8
1212 noname.120:
1213
1214         movzwl  18(r6),r2
1215         bicl3   #-65536,4(r7),r3
1216         movzwl  6(r7),r0
1217         bicl2   #-65536,r0
1218         bicl3   #-65536,16(r6),-316(fp)
1219         bicl3   #-65536,r2,-320(fp)
1220         mull3   r0,-316(fp),-308(fp)
1221         mull2   r3,-316(fp)
1222         mull3   r3,-320(fp),-312(fp)
1223         mull2   r0,-320(fp)
1224         addl3   -308(fp),-312(fp),r0
1225         bicl3   #0,r0,-308(fp)
1226         cmpl    -308(fp),-312(fp)
1227         bgequ   noname.121
1228         addl2   #65536,-320(fp)
1229 noname.121:
1230         movzwl  -306(fp),r0
1231         bicl2   #-65536,r0
1232         addl2   r0,-320(fp)
1233         bicl3   #-65536,-308(fp),r0
1234         ashl    #16,r0,-312(fp)
1235         addl3   -312(fp),-316(fp),r0
1236         bicl3   #0,r0,-316(fp)
1237         cmpl    -316(fp),-312(fp)
1238         bgequ   noname.122
1239         incl    -320(fp)
1240 noname.122:
1241         movl    -316(fp),r1
1242         movl    -320(fp),r2
1243         addl2   r1,r10
1244         bicl2   #0,r10
1245         cmpl    r10,r1
1246         bgequ   noname.123
1247         incl    r2
1248
1249 noname.123:
1250         addl2   r2,r9
1251         bicl2   #0,r9
1252         cmpl    r9,r2
1253         bgequ   noname.124
1254         incl    r8
1255 noname.124:
1256
1257         movzwl  22(r6),r2
1258         bicl3   #-65536,(r7),r3
1259         movzwl  2(r7),r0
1260         bicl2   #-65536,r0
1261         bicl3   #-65536,20(r6),-332(fp)
1262         bicl3   #-65536,r2,-336(fp)
1263         mull3   r0,-332(fp),-324(fp)
1264         mull2   r3,-332(fp)
1265         mull3   r3,-336(fp),-328(fp)
1266         mull2   r0,-336(fp)
1267         addl3   -324(fp),-328(fp),r0
1268         bicl3   #0,r0,-324(fp)
1269         cmpl    -324(fp),-328(fp)
1270         bgequ   noname.125
1271         addl2   #65536,-336(fp)
1272 noname.125:
1273         movzwl  -322(fp),r0
1274         bicl2   #-65536,r0
1275         addl2   r0,-336(fp)
1276         bicl3   #-65536,-324(fp),r0
1277         ashl    #16,r0,-328(fp)
1278         addl3   -328(fp),-332(fp),r0
1279         bicl3   #0,r0,-332(fp)
1280         cmpl    -332(fp),-328(fp)
1281         bgequ   noname.126
1282         incl    -336(fp)
1283 noname.126:
1284         movl    -332(fp),r1
1285         movl    -336(fp),r2
1286         addl2   r1,r10
1287         bicl2   #0,r10
1288         cmpl    r10,r1
1289         bgequ   noname.127
1290         incl    r2
1291 noname.127:
1292         addl2   r2,r9
1293         bicl2   #0,r9
1294         cmpl    r9,r2
1295         bgequ   noname.128
1296         incl    r8
1297 noname.128:
1298
1299         movl    r10,20(r11)
1300
1301         clrl    r10
1302
1303         movzwl  26(r6),r2
1304         bicl3   #-65536,(r7),r3
1305         movzwl  2(r7),r0
1306         bicl2   #-65536,r0
1307         bicl3   #-65536,24(r6),-348(fp)
1308         bicl3   #-65536,r2,-352(fp)
1309         mull3   r0,-348(fp),-340(fp)
1310         mull2   r3,-348(fp)
1311         mull3   r3,-352(fp),-344(fp)
1312         mull2   r0,-352(fp)
1313         addl3   -340(fp),-344(fp),r0
1314         bicl3   #0,r0,-340(fp)
1315         cmpl    -340(fp),-344(fp)
1316         bgequ   noname.129
1317         addl2   #65536,-352(fp)
1318 noname.129:
1319         movzwl  -338(fp),r0
1320         bicl2   #-65536,r0
1321         addl2   r0,-352(fp)
1322         bicl3   #-65536,-340(fp),r0
1323         ashl    #16,r0,-344(fp)
1324         addl3   -344(fp),-348(fp),r0
1325         bicl3   #0,r0,-348(fp)
1326         cmpl    -348(fp),-344(fp)
1327         bgequ   noname.130
1328         incl    -352(fp)
1329 noname.130:
1330         movl    -348(fp),r1
1331         movl    -352(fp),r2
1332         addl2   r1,r9
1333         bicl2   #0,r9
1334         cmpl    r9,r1
1335         bgequ   noname.131
1336         incl    r2
1337 noname.131:
1338         addl2   r2,r8
1339         bicl2   #0,r8
1340         cmpl    r8,r2
1341         bgequ   noname.132
1342         incl    r10
1343 noname.132:
1344
1345         movzwl  22(r6),r2
1346         bicl3   #-65536,4(r7),r3
1347         movzwl  6(r7),r0
1348         bicl2   #-65536,r0
1349         bicl3   #-65536,20(r6),-364(fp)
1350         bicl3   #-65536,r2,-368(fp)
1351         mull3   r0,-364(fp),-356(fp)
1352         mull2   r3,-364(fp)
1353         mull3   r3,-368(fp),-360(fp)
1354         mull2   r0,-368(fp)
1355         addl3   -356(fp),-360(fp),r0
1356         bicl3   #0,r0,-356(fp)
1357         cmpl    -356(fp),-360(fp)
1358         bgequ   noname.133
1359         addl2   #65536,-368(fp)
1360 noname.133:
1361         movzwl  -354(fp),r0
1362         bicl2   #-65536,r0
1363         addl2   r0,-368(fp)
1364         bicl3   #-65536,-356(fp),r0
1365         ashl    #16,r0,-360(fp)
1366         addl3   -360(fp),-364(fp),r0
1367         bicl3   #0,r0,-364(fp)
1368         cmpl    -364(fp),-360(fp)
1369         bgequ   noname.134
1370         incl    -368(fp)
1371 noname.134:
1372         movl    -364(fp),r1
1373         movl    -368(fp),r2
1374         addl2   r1,r9
1375         bicl2   #0,r9
1376         cmpl    r9,r1
1377         bgequ   noname.135
1378         incl    r2
1379 noname.135:
1380         addl2   r2,r8
1381         bicl2   #0,r8
1382         cmpl    r8,r2
1383         bgequ   noname.136
1384         incl    r10
1385 noname.136:
1386
1387         movzwl  18(r6),r2
1388         bicl3   #-65536,8(r7),r3
1389         movzwl  10(r7),r0
1390         bicl2   #-65536,r0
1391         bicl3   #-65536,16(r6),-380(fp)
1392         bicl3   #-65536,r2,-384(fp)
1393         mull3   r0,-380(fp),-372(fp)
1394         mull2   r3,-380(fp)
1395         mull3   r3,-384(fp),-376(fp)
1396         mull2   r0,-384(fp)
1397         addl3   -372(fp),-376(fp),r0
1398         bicl3   #0,r0,-372(fp)
1399         cmpl    -372(fp),-376(fp)
1400         bgequ   noname.137
1401         addl2   #65536,-384(fp)
1402 noname.137:
1403         movzwl  -370(fp),r0
1404         bicl2   #-65536,r0
1405         addl2   r0,-384(fp)
1406         bicl3   #-65536,-372(fp),r0
1407         ashl    #16,r0,-376(fp)
1408         addl3   -376(fp),-380(fp),r0
1409         bicl3   #0,r0,-380(fp)
1410         cmpl    -380(fp),-376(fp)
1411         bgequ   noname.138
1412         incl    -384(fp)
1413 noname.138:
1414         movl    -380(fp),r1
1415         movl    -384(fp),r2
1416         addl2   r1,r9
1417         bicl2   #0,r9
1418         cmpl    r9,r1
1419         bgequ   noname.139
1420         incl    r2
1421 noname.139:
1422         addl2   r2,r8
1423         bicl2   #0,r8
1424         cmpl    r8,r2
1425         bgequ   noname.140
1426         incl    r10
1427 noname.140:
1428
1429         movzwl  14(r6),r2
1430         bicl3   #-65536,12(r7),r3
1431         movzwl  14(r7),r0
1432         bicl2   #-65536,r0
1433         bicl3   #-65536,12(r6),-396(fp)
1434         bicl3   #-65536,r2,-400(fp)
1435         mull3   r0,-396(fp),-388(fp)
1436         mull2   r3,-396(fp)
1437         mull3   r3,-400(fp),-392(fp)
1438         mull2   r0,-400(fp)
1439         addl3   -388(fp),-392(fp),r0
1440         bicl3   #0,r0,-388(fp)
1441         cmpl    -388(fp),-392(fp)
1442         bgequ   noname.141
1443         addl2   #65536,-400(fp)
1444 noname.141:
1445         movzwl  -386(fp),r0
1446         bicl2   #-65536,r0
1447         addl2   r0,-400(fp)
1448         bicl3   #-65536,-388(fp),r0
1449         ashl    #16,r0,-392(fp)
1450         addl3   -392(fp),-396(fp),r0
1451         bicl3   #0,r0,-396(fp)
1452         cmpl    -396(fp),-392(fp)
1453         bgequ   noname.142
1454         incl    -400(fp)
1455 noname.142:
1456         movl    -396(fp),r1
1457         movl    -400(fp),r2
1458         addl2   r1,r9
1459         bicl2   #0,r9
1460         cmpl    r9,r1
1461         bgequ   noname.143
1462         incl    r2
1463 noname.143:
1464         addl2   r2,r8
1465         bicl2   #0,r8
1466         cmpl    r8,r2
1467         bgequ   noname.144
1468         incl    r10
1469 noname.144:
1470
1471         movzwl  10(r6),r2
1472         bicl3   #-65536,16(r7),r3
1473         movzwl  18(r7),r0
1474         bicl2   #-65536,r0
1475         bicl3   #-65536,8(r6),-412(fp)
1476         bicl3   #-65536,r2,-416(fp)
1477         mull3   r0,-412(fp),-404(fp)
1478         mull2   r3,-412(fp)
1479         mull3   r3,-416(fp),-408(fp)
1480         mull2   r0,-416(fp)
1481         addl3   -404(fp),-408(fp),r0
1482         bicl3   #0,r0,-404(fp)
1483         cmpl    -404(fp),-408(fp)
1484         bgequ   noname.145
1485         addl2   #65536,-416(fp)
1486 noname.145:
1487         movzwl  -402(fp),r0
1488         bicl2   #-65536,r0
1489         addl2   r0,-416(fp)
1490         bicl3   #-65536,-404(fp),r0
1491         ashl    #16,r0,-408(fp)
1492         addl3   -408(fp),-412(fp),r0
1493         bicl3   #0,r0,-412(fp)
1494         cmpl    -412(fp),-408(fp)
1495         bgequ   noname.146
1496         incl    -416(fp)
1497 noname.146:
1498         movl    -412(fp),r1
1499         movl    -416(fp),r2
1500         addl2   r1,r9
1501         bicl2   #0,r9
1502         cmpl    r9,r1
1503         bgequ   noname.147
1504         incl    r2
1505 noname.147:
1506         addl2   r2,r8
1507         bicl2   #0,r8
1508         cmpl    r8,r2
1509         bgequ   noname.148
1510         incl    r10
1511 noname.148:
1512
1513         movzwl  6(r6),r2
1514         bicl3   #-65536,20(r7),r3
1515         movzwl  22(r7),r0
1516         bicl2   #-65536,r0
1517         bicl3   #-65536,4(r6),-428(fp)
1518         bicl3   #-65536,r2,-432(fp)
1519         mull3   r0,-428(fp),-420(fp)
1520         mull2   r3,-428(fp)
1521         mull3   r3,-432(fp),-424(fp)
1522         mull2   r0,-432(fp)
1523         addl3   -420(fp),-424(fp),r0
1524         bicl3   #0,r0,-420(fp)
1525         cmpl    -420(fp),-424(fp)
1526         bgequ   noname.149
1527         addl2   #65536,-432(fp)
1528 noname.149:
1529         movzwl  -418(fp),r0
1530         bicl2   #-65536,r0
1531         addl2   r0,-432(fp)
1532         bicl3   #-65536,-420(fp),r0
1533         ashl    #16,r0,-424(fp)
1534         addl3   -424(fp),-428(fp),r0
1535         bicl3   #0,r0,-428(fp)
1536         cmpl    -428(fp),-424(fp)
1537         bgequ   noname.150
1538         incl    -432(fp)
1539 noname.150:
1540         movl    -428(fp),r1
1541         movl    -432(fp),r2
1542         addl2   r1,r9
1543         bicl2   #0,r9
1544         cmpl    r9,r1
1545         bgequ   noname.151
1546         incl    r2
1547 noname.151:
1548         addl2   r2,r8
1549         bicl2   #0,r8
1550         cmpl    r8,r2
1551         bgequ   noname.152
1552         incl    r10
1553 noname.152:
1554
1555         movzwl  2(r6),r2
1556         bicl3   #-65536,24(r7),r3
1557         movzwl  26(r7),r0
1558         bicl2   #-65536,r0
1559         bicl3   #-65536,(r6),-444(fp)
1560         bicl3   #-65536,r2,-448(fp)
1561         mull3   r0,-444(fp),-436(fp)
1562         mull2   r3,-444(fp)
1563         mull3   r3,-448(fp),-440(fp)
1564         mull2   r0,-448(fp)
1565         addl3   -436(fp),-440(fp),r0
1566         bicl3   #0,r0,-436(fp)
1567         cmpl    -436(fp),-440(fp)
1568         bgequ   noname.153
1569         addl2   #65536,-448(fp)
1570 noname.153:
1571         movzwl  -434(fp),r0
1572         bicl2   #-65536,r0
1573         addl2   r0,-448(fp)
1574         bicl3   #-65536,-436(fp),r0
1575         ashl    #16,r0,-440(fp)
1576         addl3   -440(fp),-444(fp),r0
1577         bicl3   #0,r0,-444(fp)
1578         cmpl    -444(fp),-440(fp)
1579         bgequ   noname.154
1580         incl    -448(fp)
1581 noname.154:
1582         movl    -444(fp),r1
1583         movl    -448(fp),r2
1584         addl2   r1,r9
1585         bicl2   #0,r9
1586         cmpl    r9,r1
1587         bgequ   noname.155
1588         incl    r2
1589 noname.155:
1590         addl2   r2,r8
1591         bicl2   #0,r8
1592         cmpl    r8,r2
1593         bgequ   noname.156
1594         incl    r10
1595 noname.156:
1596
1597         movl    r9,24(r11)
1598
1599         clrl    r9
1600
1601         movzwl  2(r6),r2
1602         bicl3   #-65536,28(r7),r3
1603         movzwl  30(r7),r0
1604         bicl2   #-65536,r0
1605         bicl3   #-65536,(r6),-460(fp)
1606         bicl3   #-65536,r2,-464(fp)
1607         mull3   r0,-460(fp),-452(fp)
1608         mull2   r3,-460(fp)
1609         mull3   r3,-464(fp),-456(fp)
1610         mull2   r0,-464(fp)
1611         addl3   -452(fp),-456(fp),r0
1612         bicl3   #0,r0,-452(fp)
1613         cmpl    -452(fp),-456(fp)
1614         bgequ   noname.157
1615         addl2   #65536,-464(fp)
1616 noname.157:
1617         movzwl  -450(fp),r0
1618         bicl2   #-65536,r0
1619         addl2   r0,-464(fp)
1620         bicl3   #-65536,-452(fp),r0
1621         ashl    #16,r0,-456(fp)
1622         addl3   -456(fp),-460(fp),r0
1623         bicl3   #0,r0,-460(fp)
1624         cmpl    -460(fp),-456(fp)
1625         bgequ   noname.158
1626         incl    -464(fp)
1627 noname.158:
1628         movl    -460(fp),r1
1629         movl    -464(fp),r2
1630         addl2   r1,r8
1631         bicl2   #0,r8
1632         cmpl    r8,r1
1633         bgequ   noname.159
1634         incl    r2
1635 noname.159:
1636         addl2   r2,r10
1637         bicl2   #0,r10
1638         cmpl    r10,r2
1639         bgequ   noname.160
1640         incl    r9
1641 noname.160:
1642
1643         movzwl  6(r6),r2
1644         bicl3   #-65536,24(r7),r3
1645         movzwl  26(r7),r0
1646         bicl2   #-65536,r0
1647         bicl3   #-65536,4(r6),-476(fp)
1648         bicl3   #-65536,r2,-480(fp)
1649         mull3   r0,-476(fp),-468(fp)
1650         mull2   r3,-476(fp)
1651         mull3   r3,-480(fp),-472(fp)
1652         mull2   r0,-480(fp)
1653         addl3   -468(fp),-472(fp),r0
1654         bicl3   #0,r0,-468(fp)
1655         cmpl    -468(fp),-472(fp)
1656         bgequ   noname.161
1657         addl2   #65536,-480(fp)
1658 noname.161:
1659         movzwl  -466(fp),r0
1660         bicl2   #-65536,r0
1661         addl2   r0,-480(fp)
1662         bicl3   #-65536,-468(fp),r0
1663         ashl    #16,r0,-472(fp)
1664         addl3   -472(fp),-476(fp),r0
1665         bicl3   #0,r0,-476(fp)
1666         cmpl    -476(fp),-472(fp)
1667         bgequ   noname.162
1668         incl    -480(fp)
1669 noname.162:
1670         movl    -476(fp),r1
1671         movl    -480(fp),r2
1672         addl2   r1,r8
1673         bicl2   #0,r8
1674         cmpl    r8,r1
1675         bgequ   noname.163
1676         incl    r2
1677 noname.163:
1678         addl2   r2,r10
1679         bicl2   #0,r10
1680         cmpl    r10,r2
1681         bgequ   noname.164
1682         incl    r9
1683 noname.164:
1684
1685         movzwl  10(r6),r2
1686         bicl3   #-65536,20(r7),r3
1687         movzwl  22(r7),r0
1688         bicl2   #-65536,r0
1689         bicl3   #-65536,8(r6),-492(fp)
1690         bicl3   #-65536,r2,-496(fp)
1691         mull3   r0,-492(fp),-484(fp)
1692         mull2   r3,-492(fp)
1693         mull3   r3,-496(fp),-488(fp)
1694         mull2   r0,-496(fp)
1695         addl3   -484(fp),-488(fp),r0
1696         bicl3   #0,r0,-484(fp)
1697         cmpl    -484(fp),-488(fp)
1698         bgequ   noname.165
1699         addl2   #65536,-496(fp)
1700 noname.165:
1701         movzwl  -482(fp),r0
1702         bicl2   #-65536,r0
1703         addl2   r0,-496(fp)
1704         bicl3   #-65536,-484(fp),r0
1705         ashl    #16,r0,-488(fp)
1706         addl3   -488(fp),-492(fp),r0
1707         bicl3   #0,r0,-492(fp)
1708         cmpl    -492(fp),-488(fp)
1709         bgequ   noname.166
1710         incl    -496(fp)
1711 noname.166:
1712         movl    -492(fp),r1
1713         movl    -496(fp),r2
1714         addl2   r1,r8
1715         bicl2   #0,r8
1716         cmpl    r8,r1
1717         bgequ   noname.167
1718         incl    r2
1719 noname.167:
1720         addl2   r2,r10
1721         bicl2   #0,r10
1722         cmpl    r10,r2
1723         bgequ   noname.168
1724         incl    r9
1725 noname.168:
1726
1727         movzwl  14(r6),r2
1728         bicl3   #-65536,16(r7),r3
1729         movzwl  18(r7),r0
1730         bicl2   #-65536,r0
1731         bicl3   #-65536,12(r6),-508(fp)
1732         bicl3   #-65536,r2,-512(fp)
1733         mull3   r0,-508(fp),-500(fp)
1734         mull2   r3,-508(fp)
1735         mull3   r3,-512(fp),-504(fp)
1736         mull2   r0,-512(fp)
1737         addl3   -500(fp),-504(fp),r0
1738         bicl3   #0,r0,-500(fp)
1739         cmpl    -500(fp),-504(fp)
1740         bgequ   noname.169
1741         addl2   #65536,-512(fp)
1742 noname.169:
1743         movzwl  -498(fp),r0
1744         bicl2   #-65536,r0
1745         addl2   r0,-512(fp)
1746         bicl3   #-65536,-500(fp),r0
1747         ashl    #16,r0,-504(fp)
1748         addl3   -504(fp),-508(fp),r0
1749         bicl3   #0,r0,-508(fp)
1750         cmpl    -508(fp),-504(fp)
1751         bgequ   noname.170
1752         incl    -512(fp)
1753 noname.170:
1754         movl    -508(fp),r1
1755         movl    -512(fp),r2
1756         addl2   r1,r8
1757         bicl2   #0,r8
1758         cmpl    r8,r1
1759         bgequ   noname.171
1760         incl    r2
1761 noname.171:
1762         addl2   r2,r10
1763         bicl2   #0,r10
1764         cmpl    r10,r2
1765         bgequ   noname.172
1766         incl    r9
1767 noname.172:
1768
1769         movzwl  18(r6),r2
1770         bicl3   #-65536,12(r7),r3
1771         movzwl  14(r7),r0
1772         bicl2   #-65536,r0
1773         bicl3   #-65536,16(r6),-524(fp)
1774         bicl3   #-65536,r2,-528(fp)
1775         mull3   r0,-524(fp),-516(fp)
1776         mull2   r3,-524(fp)
1777         mull3   r3,-528(fp),-520(fp)
1778         mull2   r0,-528(fp)
1779         addl3   -516(fp),-520(fp),r0
1780         bicl3   #0,r0,-516(fp)
1781         cmpl    -516(fp),-520(fp)
1782         bgequ   noname.173
1783         addl2   #65536,-528(fp)
1784 noname.173:
1785         movzwl  -514(fp),r0
1786         bicl2   #-65536,r0
1787         addl2   r0,-528(fp)
1788         bicl3   #-65536,-516(fp),r0
1789         ashl    #16,r0,-520(fp)
1790         addl3   -520(fp),-524(fp),r0
1791         bicl3   #0,r0,-524(fp)
1792         cmpl    -524(fp),-520(fp)
1793         bgequ   noname.174
1794         incl    -528(fp)
1795 noname.174:
1796         movl    -524(fp),r1
1797         movl    -528(fp),r2
1798         addl2   r1,r8
1799         bicl2   #0,r8
1800         cmpl    r8,r1
1801         bgequ   noname.175
1802         incl    r2
1803 noname.175:
1804         addl2   r2,r10
1805         bicl2   #0,r10
1806         cmpl    r10,r2
1807         bgequ   noname.176
1808         incl    r9
1809 noname.176:
1810
1811         movzwl  22(r6),r2
1812         bicl3   #-65536,8(r7),r3
1813         movzwl  10(r7),r0
1814         bicl2   #-65536,r0
1815         bicl3   #-65536,20(r6),-540(fp)
1816         bicl3   #-65536,r2,-544(fp)
1817         mull3   r0,-540(fp),-532(fp)
1818         mull2   r3,-540(fp)
1819         mull3   r3,-544(fp),-536(fp)
1820         mull2   r0,-544(fp)
1821         addl3   -532(fp),-536(fp),r0
1822         bicl3   #0,r0,-532(fp)
1823         cmpl    -532(fp),-536(fp)
1824         bgequ   noname.177
1825         addl2   #65536,-544(fp)
1826 noname.177:
1827         movzwl  -530(fp),r0
1828         bicl2   #-65536,r0
1829         addl2   r0,-544(fp)
1830         bicl3   #-65536,-532(fp),r0
1831         ashl    #16,r0,-536(fp)
1832         addl3   -536(fp),-540(fp),r0
1833         bicl3   #0,r0,-540(fp)
1834         cmpl    -540(fp),-536(fp)
1835         bgequ   noname.178
1836         incl    -544(fp)
1837 noname.178:
1838         movl    -540(fp),r1
1839         movl    -544(fp),r2
1840         addl2   r1,r8
1841         bicl2   #0,r8
1842         cmpl    r8,r1
1843         bgequ   noname.179
1844         incl    r2
1845 noname.179:
1846         addl2   r2,r10
1847         bicl2   #0,r10
1848         cmpl    r10,r2
1849         bgequ   noname.180
1850         incl    r9
1851 noname.180:
1852
1853         movzwl  26(r6),r2
1854         bicl3   #-65536,4(r7),r3
1855         movzwl  6(r7),r0
1856         bicl2   #-65536,r0
1857         bicl3   #-65536,24(r6),-556(fp)
1858         bicl3   #-65536,r2,-560(fp)
1859         mull3   r0,-556(fp),-548(fp)
1860         mull2   r3,-556(fp)
1861         mull3   r3,-560(fp),-552(fp)
1862         mull2   r0,-560(fp)
1863         addl3   -548(fp),-552(fp),r0
1864         bicl3   #0,r0,-548(fp)
1865         cmpl    -548(fp),-552(fp)
1866         bgequ   noname.181
1867         addl2   #65536,-560(fp)
1868 noname.181:
1869         movzwl  -546(fp),r0
1870         bicl2   #-65536,r0
1871         addl2   r0,-560(fp)
1872         bicl3   #-65536,-548(fp),r0
1873         ashl    #16,r0,-552(fp)
1874         addl3   -552(fp),-556(fp),r0
1875         bicl3   #0,r0,-556(fp)
1876         cmpl    -556(fp),-552(fp)
1877         bgequ   noname.182
1878         incl    -560(fp)
1879 noname.182:
1880         movl    -556(fp),r1
1881         movl    -560(fp),r2
1882         addl2   r1,r8
1883         bicl2   #0,r8
1884         cmpl    r8,r1
1885         bgequ   noname.183
1886         incl    r2
1887 noname.183:
1888         addl2   r2,r10
1889         bicl2   #0,r10
1890         cmpl    r10,r2
1891         bgequ   noname.184
1892         incl    r9
1893 noname.184:
1894
1895         movzwl  30(r6),r2
1896         bicl3   #-65536,(r7),r3
1897         movzwl  2(r7),r0
1898         bicl2   #-65536,r0
1899         bicl3   #-65536,28(r6),-572(fp)
1900         bicl3   #-65536,r2,-576(fp)
1901         mull3   r0,-572(fp),-564(fp)
1902         mull2   r3,-572(fp)
1903         mull3   r3,-576(fp),-568(fp)
1904         mull2   r0,-576(fp)
1905         addl3   -564(fp),-568(fp),r0
1906         bicl3   #0,r0,-564(fp)
1907         cmpl    -564(fp),-568(fp)
1908         bgequ   noname.185
1909         addl2   #65536,-576(fp)
1910 noname.185:
1911         movzwl  -562(fp),r0
1912         bicl2   #-65536,r0
1913         addl2   r0,-576(fp)
1914         bicl3   #-65536,-564(fp),r0
1915         ashl    #16,r0,-568(fp)
1916         addl3   -568(fp),-572(fp),r0
1917         bicl3   #0,r0,-572(fp)
1918         cmpl    -572(fp),-568(fp)
1919         bgequ   noname.186
1920         incl    -576(fp)
1921 noname.186:
1922         movl    -572(fp),r1
1923         movl    -576(fp),r2
1924         addl2   r1,r8
1925         bicl2   #0,r8
1926         cmpl    r8,r1
1927         bgequ   noname.187
1928         incl    r2
1929 noname.187:
1930         addl2   r2,r10
1931         bicl2   #0,r10
1932         cmpl    r10,r2
1933         bgequ   noname.188
1934         incl    r9
1935 noname.188:
1936
1937         movl    r8,28(r11)
1938
1939         clrl    r8
1940
1941         movzwl  30(r6),r2
1942         bicl3   #-65536,4(r7),r3
1943         movzwl  6(r7),r0
1944         bicl2   #-65536,r0
1945         bicl3   #-65536,28(r6),-588(fp)
1946         bicl3   #-65536,r2,-592(fp)
1947         mull3   r0,-588(fp),-580(fp)
1948         mull2   r3,-588(fp)
1949         mull3   r3,-592(fp),-584(fp)
1950         mull2   r0,-592(fp)
1951         addl3   -580(fp),-584(fp),r0
1952         bicl3   #0,r0,-580(fp)
1953         cmpl    -580(fp),-584(fp)
1954         bgequ   noname.189
1955         addl2   #65536,-592(fp)
1956 noname.189:
1957         movzwl  -578(fp),r0
1958         bicl2   #-65536,r0
1959         addl2   r0,-592(fp)
1960         bicl3   #-65536,-580(fp),r0
1961         ashl    #16,r0,-584(fp)
1962         addl3   -584(fp),-588(fp),r0
1963         bicl3   #0,r0,-588(fp)
1964         cmpl    -588(fp),-584(fp)
1965         bgequ   noname.190
1966         incl    -592(fp)
1967 noname.190:
1968         movl    -588(fp),r1
1969         movl    -592(fp),r2
1970         addl2   r1,r10
1971         bicl2   #0,r10
1972         cmpl    r10,r1
1973         bgequ   noname.191
1974         incl    r2
1975 noname.191:
1976         addl2   r2,r9
1977         bicl2   #0,r9
1978         cmpl    r9,r2
1979         bgequ   noname.192
1980         incl    r8
1981 noname.192:
1982
1983         movzwl  26(r6),r2
1984         bicl3   #-65536,8(r7),r3
1985         movzwl  10(r7),r0
1986         bicl2   #-65536,r0
1987         bicl3   #-65536,24(r6),-604(fp)
1988         bicl3   #-65536,r2,-608(fp)
1989         mull3   r0,-604(fp),-596(fp)
1990         mull2   r3,-604(fp)
1991         mull3   r3,-608(fp),-600(fp)
1992         mull2   r0,-608(fp)
1993         addl3   -596(fp),-600(fp),r0
1994         bicl3   #0,r0,-596(fp)
1995         cmpl    -596(fp),-600(fp)
1996         bgequ   noname.193
1997         addl2   #65536,-608(fp)
1998 noname.193:
1999         movzwl  -594(fp),r0
2000         bicl2   #-65536,r0
2001         addl2   r0,-608(fp)
2002         bicl3   #-65536,-596(fp),r0
2003         ashl    #16,r0,-600(fp)
2004         addl3   -600(fp),-604(fp),r0
2005         bicl3   #0,r0,-604(fp)
2006         cmpl    -604(fp),-600(fp)
2007         bgequ   noname.194
2008         incl    -608(fp)
2009 noname.194:
2010         movl    -604(fp),r1
2011         movl    -608(fp),r2
2012         addl2   r1,r10
2013         bicl2   #0,r10
2014         cmpl    r10,r1
2015         bgequ   noname.195
2016         incl    r2
2017 noname.195:
2018         addl2   r2,r9
2019         bicl2   #0,r9
2020         cmpl    r9,r2
2021         bgequ   noname.196
2022         incl    r8
2023 noname.196:
2024
2025         movzwl  22(r6),r2
2026         bicl3   #-65536,12(r7),r3
2027         movzwl  14(r7),r0
2028         bicl2   #-65536,r0
2029         bicl3   #-65536,20(r6),-620(fp)
2030         bicl3   #-65536,r2,-624(fp)
2031         mull3   r0,-620(fp),-612(fp)
2032         mull2   r3,-620(fp)
2033         mull3   r3,-624(fp),-616(fp)
2034         mull2   r0,-624(fp)
2035         addl3   -612(fp),-616(fp),r0
2036         bicl3   #0,r0,-612(fp)
2037         cmpl    -612(fp),-616(fp)
2038         bgequ   noname.197
2039         addl2   #65536,-624(fp)
2040 noname.197:
2041         movzwl  -610(fp),r0
2042         bicl2   #-65536,r0
2043         addl2   r0,-624(fp)
2044         bicl3   #-65536,-612(fp),r0
2045         ashl    #16,r0,-616(fp)
2046         addl3   -616(fp),-620(fp),r0
2047         bicl3   #0,r0,-620(fp)
2048         cmpl    -620(fp),-616(fp)
2049         bgequ   noname.198
2050         incl    -624(fp)
2051 noname.198:
2052         movl    -620(fp),r1
2053         movl    -624(fp),r2
2054         addl2   r1,r10
2055         bicl2   #0,r10
2056         cmpl    r10,r1
2057         bgequ   noname.199
2058         incl    r2
2059 noname.199:
2060         addl2   r2,r9
2061         bicl2   #0,r9
2062         cmpl    r9,r2
2063         bgequ   noname.200
2064         incl    r8
2065 noname.200:
2066
2067         movzwl  18(r6),r2
2068         bicl3   #-65536,16(r7),r3
2069         movzwl  18(r7),r0
2070         bicl2   #-65536,r0
2071         bicl3   #-65536,16(r6),-636(fp)
2072         bicl3   #-65536,r2,-640(fp)
2073         mull3   r0,-636(fp),-628(fp)
2074         mull2   r3,-636(fp)
2075         mull3   r3,-640(fp),-632(fp)
2076         mull2   r0,-640(fp)
2077         addl3   -628(fp),-632(fp),r0
2078         bicl3   #0,r0,-628(fp)
2079         cmpl    -628(fp),-632(fp)
2080         bgequ   noname.201
2081         addl2   #65536,-640(fp)
2082 noname.201:
2083         movzwl  -626(fp),r0
2084         bicl2   #-65536,r0
2085         addl2   r0,-640(fp)
2086         bicl3   #-65536,-628(fp),r0
2087         ashl    #16,r0,-632(fp)
2088         addl3   -632(fp),-636(fp),r0
2089         bicl3   #0,r0,-636(fp)
2090         cmpl    -636(fp),-632(fp)
2091         bgequ   noname.202
2092         incl    -640(fp)
2093 noname.202:
2094         movl    -636(fp),r1
2095         movl    -640(fp),r2
2096         addl2   r1,r10
2097         bicl2   #0,r10
2098         cmpl    r10,r1
2099         bgequ   noname.203
2100         incl    r2
2101 noname.203:
2102         addl2   r2,r9
2103         bicl2   #0,r9
2104         cmpl    r9,r2
2105         bgequ   noname.204
2106         incl    r8
2107 noname.204:
2108
2109         movzwl  14(r6),r2
2110         bicl3   #-65536,20(r7),r3
2111         movzwl  22(r7),r0
2112         bicl2   #-65536,r0
2113         bicl3   #-65536,12(r6),-652(fp)
2114         bicl3   #-65536,r2,-656(fp)
2115         mull3   r0,-652(fp),-644(fp)
2116         mull2   r3,-652(fp)
2117         mull3   r3,-656(fp),-648(fp)
2118         mull2   r0,-656(fp)
2119         addl3   -644(fp),-648(fp),r0
2120         bicl3   #0,r0,-644(fp)
2121         cmpl    -644(fp),-648(fp)
2122         bgequ   noname.205
2123         addl2   #65536,-656(fp)
2124 noname.205:
2125         movzwl  -642(fp),r0
2126         bicl2   #-65536,r0
2127         addl2   r0,-656(fp)
2128         bicl3   #-65536,-644(fp),r0
2129         ashl    #16,r0,-648(fp)
2130         addl3   -648(fp),-652(fp),r0
2131         bicl3   #0,r0,-652(fp)
2132         cmpl    -652(fp),-648(fp)
2133         bgequ   noname.206
2134         incl    -656(fp)
2135 noname.206:
2136         movl    -652(fp),r1
2137         movl    -656(fp),r2
2138         addl2   r1,r10
2139         bicl2   #0,r10
2140         cmpl    r10,r1
2141         bgequ   noname.207
2142         incl    r2
2143 noname.207:
2144         addl2   r2,r9
2145         bicl2   #0,r9
2146         cmpl    r9,r2
2147         bgequ   noname.208
2148         incl    r8
2149 noname.208:
2150
2151         movzwl  10(r6),r2
2152         bicl3   #-65536,24(r7),r3
2153         movzwl  26(r7),r0
2154         bicl2   #-65536,r0
2155         bicl3   #-65536,8(r6),-668(fp)
2156         bicl3   #-65536,r2,-672(fp)
2157         mull3   r0,-668(fp),-660(fp)
2158         mull2   r3,-668(fp)
2159         mull3   r3,-672(fp),-664(fp)
2160         mull2   r0,-672(fp)
2161         addl3   -660(fp),-664(fp),r0
2162         bicl3   #0,r0,-660(fp)
2163         cmpl    -660(fp),-664(fp)
2164         bgequ   noname.209
2165         addl2   #65536,-672(fp)
2166 noname.209:
2167         movzwl  -658(fp),r0
2168         bicl2   #-65536,r0
2169         addl2   r0,-672(fp)
2170         bicl3   #-65536,-660(fp),r0
2171         ashl    #16,r0,-664(fp)
2172         addl3   -664(fp),-668(fp),r0
2173         bicl3   #0,r0,-668(fp)
2174         cmpl    -668(fp),-664(fp)
2175         bgequ   noname.210
2176         incl    -672(fp)
2177 noname.210:
2178         movl    -668(fp),r1
2179         movl    -672(fp),r2
2180         addl2   r1,r10
2181         bicl2   #0,r10
2182         cmpl    r10,r1
2183         bgequ   noname.211
2184         incl    r2
2185 noname.211:
2186         addl2   r2,r9
2187         bicl2   #0,r9
2188         cmpl    r9,r2
2189         bgequ   noname.212
2190         incl    r8
2191 noname.212:
2192
2193         movzwl  6(r6),r2
2194         bicl3   #-65536,28(r7),r3
2195         movzwl  30(r7),r0
2196         bicl2   #-65536,r0
2197         bicl3   #-65536,4(r6),-684(fp)
2198         bicl3   #-65536,r2,-688(fp)
2199         mull3   r0,-684(fp),-676(fp)
2200         mull2   r3,-684(fp)
2201         mull3   r3,-688(fp),-680(fp)
2202         mull2   r0,-688(fp)
2203         addl3   -676(fp),-680(fp),r0
2204         bicl3   #0,r0,-676(fp)
2205         cmpl    -676(fp),-680(fp)
2206         bgequ   noname.213
2207         addl2   #65536,-688(fp)
2208 noname.213:
2209         movzwl  -674(fp),r0
2210         bicl2   #-65536,r0
2211         addl2   r0,-688(fp)
2212         bicl3   #-65536,-676(fp),r0
2213         ashl    #16,r0,-680(fp)
2214         addl3   -680(fp),-684(fp),r0
2215         bicl3   #0,r0,-684(fp)
2216         cmpl    -684(fp),-680(fp)
2217         bgequ   noname.214
2218         incl    -688(fp)
2219 noname.214:
2220         movl    -684(fp),r1
2221         movl    -688(fp),r2
2222         addl2   r1,r10
2223         bicl2   #0,r10
2224         cmpl    r10,r1
2225         bgequ   noname.215
2226         incl    r2
2227 noname.215:
2228         addl2   r2,r9
2229         bicl2   #0,r9
2230         cmpl    r9,r2
2231         bgequ   noname.216
2232         incl    r8
2233 noname.216:
2234
2235         movl    r10,32(r11)
2236
2237         clrl    r10
2238
2239         movzwl  10(r6),r2
2240         bicl3   #-65536,28(r7),r3
2241         movzwl  30(r7),r0
2242         bicl2   #-65536,r0
2243         bicl3   #-65536,8(r6),-700(fp)
2244         bicl3   #-65536,r2,-704(fp)
2245         mull3   r0,-700(fp),-692(fp)
2246         mull2   r3,-700(fp)
2247         mull3   r3,-704(fp),-696(fp)
2248         mull2   r0,-704(fp)
2249         addl3   -692(fp),-696(fp),r0
2250         bicl3   #0,r0,-692(fp)
2251         cmpl    -692(fp),-696(fp)
2252         bgequ   noname.217
2253         addl2   #65536,-704(fp)
2254 noname.217:
2255         movzwl  -690(fp),r0
2256         bicl2   #-65536,r0
2257         addl2   r0,-704(fp)
2258         bicl3   #-65536,-692(fp),r0
2259         ashl    #16,r0,-696(fp)
2260         addl3   -696(fp),-700(fp),r0
2261         bicl3   #0,r0,-700(fp)
2262         cmpl    -700(fp),-696(fp)
2263         bgequ   noname.218
2264         incl    -704(fp)
2265 noname.218:
2266         movl    -700(fp),r1
2267         movl    -704(fp),r2
2268         addl2   r1,r9
2269         bicl2   #0,r9
2270         cmpl    r9,r1
2271         bgequ   noname.219
2272         incl    r2
2273 noname.219:
2274         addl2   r2,r8
2275         bicl2   #0,r8
2276         cmpl    r8,r2
2277         bgequ   noname.220
2278         incl    r10
2279 noname.220:
2280
2281         movzwl  14(r6),r2
2282         bicl3   #-65536,24(r7),r3
2283         movzwl  26(r7),r0
2284         bicl2   #-65536,r0
2285         bicl3   #-65536,12(r6),-716(fp)
2286         bicl3   #-65536,r2,-720(fp)
2287         mull3   r0,-716(fp),-708(fp)
2288         mull2   r3,-716(fp)
2289         mull3   r3,-720(fp),-712(fp)
2290         mull2   r0,-720(fp)
2291         addl3   -708(fp),-712(fp),r0
2292         bicl3   #0,r0,-708(fp)
2293         cmpl    -708(fp),-712(fp)
2294         bgequ   noname.221
2295         addl2   #65536,-720(fp)
2296 noname.221:
2297         movzwl  -706(fp),r0
2298         bicl2   #-65536,r0
2299         addl2   r0,-720(fp)
2300         bicl3   #-65536,-708(fp),r0
2301         ashl    #16,r0,-712(fp)
2302         addl3   -712(fp),-716(fp),r0
2303         bicl3   #0,r0,-716(fp)
2304         cmpl    -716(fp),-712(fp)
2305         bgequ   noname.222
2306         incl    -720(fp)
2307 noname.222:
2308         movl    -716(fp),r1
2309         movl    -720(fp),r2
2310         addl2   r1,r9
2311         bicl2   #0,r9
2312         cmpl    r9,r1
2313         bgequ   noname.223
2314         incl    r2
2315 noname.223:
2316         addl2   r2,r8
2317         bicl2   #0,r8
2318         cmpl    r8,r2
2319         bgequ   noname.224
2320         incl    r10
2321 noname.224:
2322
2323         movzwl  18(r6),r2
2324         bicl3   #-65536,20(r7),r3
2325         movzwl  22(r7),r0
2326         bicl2   #-65536,r0
2327         bicl3   #-65536,16(r6),-732(fp)
2328         bicl3   #-65536,r2,-736(fp)
2329         mull3   r0,-732(fp),-724(fp)
2330         mull2   r3,-732(fp)
2331         mull3   r3,-736(fp),-728(fp)
2332         mull2   r0,-736(fp)
2333         addl3   -724(fp),-728(fp),r0
2334         bicl3   #0,r0,-724(fp)
2335         cmpl    -724(fp),-728(fp)
2336         bgequ   noname.225
2337         addl2   #65536,-736(fp)
2338 noname.225:
2339         movzwl  -722(fp),r0
2340         bicl2   #-65536,r0
2341         addl2   r0,-736(fp)
2342         bicl3   #-65536,-724(fp),r0
2343         ashl    #16,r0,-728(fp)
2344         addl3   -728(fp),-732(fp),r0
2345         bicl3   #0,r0,-732(fp)
2346         cmpl    -732(fp),-728(fp)
2347         bgequ   noname.226
2348         incl    -736(fp)
2349 noname.226:
2350         movl    -732(fp),r1
2351         movl    -736(fp),r2
2352         addl2   r1,r9
2353         bicl2   #0,r9
2354         cmpl    r9,r1
2355         bgequ   noname.227
2356         incl    r2
2357 noname.227:
2358         addl2   r2,r8
2359         bicl2   #0,r8
2360         cmpl    r8,r2
2361         bgequ   noname.228
2362         incl    r10
2363 noname.228:
2364
2365         movzwl  22(r6),r2
2366         bicl3   #-65536,16(r7),r3
2367         movzwl  18(r7),r0
2368         bicl2   #-65536,r0
2369         bicl3   #-65536,20(r6),-748(fp)
2370         bicl3   #-65536,r2,-752(fp)
2371         mull3   r0,-748(fp),-740(fp)
2372         mull2   r3,-748(fp)
2373         mull3   r3,-752(fp),-744(fp)
2374         mull2   r0,-752(fp)
2375         addl3   -740(fp),-744(fp),r0
2376         bicl3   #0,r0,-740(fp)
2377         cmpl    -740(fp),-744(fp)
2378         bgequ   noname.229
2379         addl2   #65536,-752(fp)
2380 noname.229:
2381         movzwl  -738(fp),r0
2382         bicl2   #-65536,r0
2383         addl2   r0,-752(fp)
2384         bicl3   #-65536,-740(fp),r0
2385         ashl    #16,r0,-744(fp)
2386         addl3   -744(fp),-748(fp),r0
2387         bicl3   #0,r0,-748(fp)
2388         cmpl    -748(fp),-744(fp)
2389         bgequ   noname.230
2390         incl    -752(fp)
2391 noname.230:
2392         movl    -748(fp),r1
2393         movl    -752(fp),r2
2394         addl2   r1,r9
2395         bicl2   #0,r9
2396         cmpl    r9,r1
2397         bgequ   noname.231
2398         incl    r2
2399 noname.231:
2400         addl2   r2,r8
2401         bicl2   #0,r8
2402         cmpl    r8,r2
2403         bgequ   noname.232
2404         incl    r10
2405 noname.232:
2406
2407         movzwl  26(r6),r2
2408         bicl3   #-65536,12(r7),r3
2409         movzwl  14(r7),r0
2410         bicl2   #-65536,r0
2411         bicl3   #-65536,24(r6),-764(fp)
2412         bicl3   #-65536,r2,-768(fp)
2413         mull3   r0,-764(fp),-756(fp)
2414         mull2   r3,-764(fp)
2415         mull3   r3,-768(fp),-760(fp)
2416         mull2   r0,-768(fp)
2417         addl3   -756(fp),-760(fp),r0
2418         bicl3   #0,r0,-756(fp)
2419         cmpl    -756(fp),-760(fp)
2420         bgequ   noname.233
2421         addl2   #65536,-768(fp)
2422 noname.233:
2423         movzwl  -754(fp),r0
2424         bicl2   #-65536,r0
2425         addl2   r0,-768(fp)
2426         bicl3   #-65536,-756(fp),r0
2427         ashl    #16,r0,-760(fp)
2428         addl3   -760(fp),-764(fp),r0
2429         bicl3   #0,r0,-764(fp)
2430         cmpl    -764(fp),-760(fp)
2431         bgequ   noname.234
2432         incl    -768(fp)
2433 noname.234:
2434         movl    -764(fp),r1
2435         movl    -768(fp),r2
2436         addl2   r1,r9
2437         bicl2   #0,r9
2438         cmpl    r9,r1
2439         bgequ   noname.235
2440         incl    r2
2441 noname.235:
2442         addl2   r2,r8
2443         bicl2   #0,r8
2444         cmpl    r8,r2
2445         bgequ   noname.236
2446         incl    r10
2447 noname.236:
2448
2449         bicl3   #-65536,28(r6),r3
2450         movzwl  30(r6),r1
2451         bicl2   #-65536,r1
2452         bicl3   #-65536,8(r7),r2
2453         movzwl  10(r7),r0
2454         bicl2   #-65536,r0
2455         movl    r3,r5
2456         movl    r1,r4
2457         mull3   r0,r5,-772(fp)
2458         mull2   r2,r5
2459         mull3   r2,r4,-776(fp)
2460         mull2   r0,r4
2461         addl3   -772(fp),-776(fp),r0
2462         bicl3   #0,r0,-772(fp)
2463         cmpl    -772(fp),-776(fp)
2464         bgequ   noname.237
2465         addl2   #65536,r4
2466 noname.237:
2467         movzwl  -770(fp),r0
2468         bicl2   #-65536,r0
2469         addl2   r0,r4
2470         bicl3   #-65536,-772(fp),r0
2471         ashl    #16,r0,-776(fp)
2472         addl2   -776(fp),r5
2473         bicl2   #0,r5
2474         cmpl    r5,-776(fp)
2475         bgequ   noname.238
2476         incl    r4
2477 noname.238:
2478         movl    r5,r1
2479         movl    r4,r2
2480         addl2   r1,r9
2481         bicl2   #0,r9
2482         cmpl    r9,r1
2483         bgequ   noname.239
2484         incl    r2
2485 noname.239:
2486         addl2   r2,r8
2487         bicl2   #0,r8
2488         cmpl    r8,r2
2489         bgequ   noname.240
2490         incl    r10
2491 noname.240:
2492
2493         movl    r9,36(r11)
2494
2495         clrl    r9
2496
2497         bicl3   #-65536,28(r6),r3
2498         movzwl  30(r6),r1
2499         bicl2   #-65536,r1
2500         bicl3   #-65536,12(r7),r2
2501         movzwl  14(r7),r0
2502         bicl2   #-65536,r0
2503         movl    r3,r5
2504         movl    r1,r4
2505         mull3   r0,r5,-780(fp)
2506         mull2   r2,r5
2507         mull3   r2,r4,-784(fp)
2508         mull2   r0,r4
2509         addl3   -780(fp),-784(fp),r0
2510         bicl3   #0,r0,-780(fp)
2511         cmpl    -780(fp),-784(fp)
2512         bgequ   noname.241
2513         addl2   #65536,r4
2514 noname.241:
2515         movzwl  -778(fp),r0
2516         bicl2   #-65536,r0
2517         addl2   r0,r4
2518         bicl3   #-65536,-780(fp),r0
2519         ashl    #16,r0,-784(fp)
2520         addl2   -784(fp),r5
2521         bicl2   #0,r5
2522         cmpl    r5,-784(fp)
2523         bgequ   noname.242
2524         incl    r4
2525 noname.242:
2526         movl    r5,r1
2527         movl    r4,r2
2528         addl2   r1,r8
2529         bicl2   #0,r8
2530         cmpl    r8,r1
2531         bgequ   noname.243
2532         incl    r2
2533 noname.243:
2534         addl2   r2,r10
2535         bicl2   #0,r10
2536         cmpl    r10,r2
2537         bgequ   noname.244
2538         incl    r9
2539 noname.244:
2540
2541         bicl3   #-65536,24(r6),r3
2542         movzwl  26(r6),r1
2543         bicl2   #-65536,r1
2544         bicl3   #-65536,16(r7),r2
2545         movzwl  18(r7),r0
2546         bicl2   #-65536,r0
2547         movl    r3,r5
2548         movl    r1,r4
2549         mull3   r0,r5,-788(fp)
2550         mull2   r2,r5
2551         mull3   r2,r4,-792(fp)
2552         mull2   r0,r4
2553         addl3   -788(fp),-792(fp),r0
2554         bicl3   #0,r0,-788(fp)
2555         cmpl    -788(fp),-792(fp)
2556         bgequ   noname.245
2557         addl2   #65536,r4
2558 noname.245:
2559         movzwl  -786(fp),r0
2560         bicl2   #-65536,r0
2561         addl2   r0,r4
2562         bicl3   #-65536,-788(fp),r0
2563         ashl    #16,r0,-792(fp)
2564         addl2   -792(fp),r5
2565         bicl2   #0,r5
2566         cmpl    r5,-792(fp)
2567         bgequ   noname.246
2568         incl    r4
2569 noname.246:
2570         movl    r5,r1
2571         movl    r4,r2
2572         addl2   r1,r8
2573         bicl2   #0,r8
2574         cmpl    r8,r1
2575         bgequ   noname.247
2576         incl    r2
2577 noname.247:
2578         addl2   r2,r10
2579         bicl2   #0,r10
2580         cmpl    r10,r2
2581         bgequ   noname.248
2582         incl    r9
2583 noname.248:
2584
2585         bicl3   #-65536,20(r6),r3
2586         movzwl  22(r6),r1
2587         bicl2   #-65536,r1
2588         bicl3   #-65536,20(r7),r2
2589         movzwl  22(r7),r0
2590         bicl2   #-65536,r0
2591         movl    r3,r5
2592         movl    r1,r4
2593         mull3   r0,r5,-796(fp)
2594         mull2   r2,r5
2595         mull3   r2,r4,-800(fp)
2596         mull2   r0,r4
2597         addl3   -796(fp),-800(fp),r0
2598         bicl3   #0,r0,-796(fp)
2599         cmpl    -796(fp),-800(fp)
2600         bgequ   noname.249
2601         addl2   #65536,r4
2602 noname.249:
2603         movzwl  -794(fp),r0
2604         bicl2   #-65536,r0
2605         addl2   r0,r4
2606         bicl3   #-65536,-796(fp),r0
2607         ashl    #16,r0,-800(fp)
2608         addl2   -800(fp),r5
2609         bicl2   #0,r5
2610         cmpl    r5,-800(fp)
2611         bgequ   noname.250
2612         incl    r4
2613 noname.250:
2614         movl    r5,r1
2615         movl    r4,r2
2616         addl2   r1,r8
2617         bicl2   #0,r8
2618         cmpl    r8,r1
2619         bgequ   noname.251
2620         incl    r2
2621 noname.251:
2622         addl2   r2,r10
2623         bicl2   #0,r10
2624         cmpl    r10,r2
2625         bgequ   noname.252
2626         incl    r9
2627 noname.252:
2628
2629         bicl3   #-65536,16(r6),r3
2630         movzwl  18(r6),r1
2631         bicl2   #-65536,r1
2632         bicl3   #-65536,24(r7),r2
2633         movzwl  26(r7),r0
2634         bicl2   #-65536,r0
2635         movl    r3,r5
2636         movl    r1,r4
2637         mull3   r0,r5,-804(fp)
2638         mull2   r2,r5
2639         mull3   r2,r4,-808(fp)
2640         mull2   r0,r4
2641         addl3   -804(fp),-808(fp),r0
2642         bicl3   #0,r0,-804(fp)
2643         cmpl    -804(fp),-808(fp)
2644         bgequ   noname.253
2645         addl2   #65536,r4
2646 noname.253:
2647         movzwl  -802(fp),r0
2648         bicl2   #-65536,r0
2649         addl2   r0,r4
2650         bicl3   #-65536,-804(fp),r0
2651         ashl    #16,r0,-808(fp)
2652         addl2   -808(fp),r5
2653         bicl2   #0,r5
2654         cmpl    r5,-808(fp)
2655         bgequ   noname.254
2656         incl    r4
2657 noname.254:
2658         movl    r5,r1
2659         movl    r4,r2
2660         addl2   r1,r8
2661         bicl2   #0,r8
2662         cmpl    r8,r1
2663         bgequ   noname.255
2664         incl    r2
2665 noname.255:
2666         addl2   r2,r10
2667         bicl2   #0,r10
2668         cmpl    r10,r2
2669         bgequ   noname.256
2670         incl    r9
2671 noname.256:
2672
2673         bicl3   #-65536,12(r6),r3
2674         movzwl  14(r6),r1
2675         bicl2   #-65536,r1
2676         bicl3   #-65536,28(r7),r2
2677         movzwl  30(r7),r0
2678         bicl2   #-65536,r0
2679         movl    r3,r5
2680         movl    r1,r4
2681         mull3   r0,r5,-812(fp)
2682         mull2   r2,r5
2683         mull3   r2,r4,-816(fp)
2684         mull2   r0,r4
2685         addl3   -812(fp),-816(fp),r0
2686         bicl3   #0,r0,-812(fp)
2687         cmpl    -812(fp),-816(fp)
2688         bgequ   noname.257
2689         addl2   #65536,r4
2690 noname.257:
2691         movzwl  -810(fp),r0
2692         bicl2   #-65536,r0
2693         addl2   r0,r4
2694         bicl3   #-65536,-812(fp),r0
2695         ashl    #16,r0,-816(fp)
2696         addl2   -816(fp),r5
2697         bicl2   #0,r5
2698         cmpl    r5,-816(fp)
2699         bgequ   noname.258
2700         incl    r4
2701 noname.258:
2702         movl    r5,r1
2703         movl    r4,r2
2704         addl2   r1,r8
2705         bicl2   #0,r8
2706         cmpl    r8,r1
2707         bgequ   noname.259
2708         incl    r2
2709 noname.259:
2710         addl2   r2,r10
2711         bicl2   #0,r10
2712         cmpl    r10,r2
2713         bgequ   noname.260
2714         incl    r9
2715 noname.260:
2716
2717         movl    r8,40(r11)
2718
2719         clrl    r8
2720
2721         bicl3   #-65536,16(r6),r3
2722         movzwl  18(r6),r2
2723         bicl3   #-65536,28(r7),r1
2724         movzwl  30(r7),r0
2725         bicl2   #-65536,r0
2726         movl    r3,r4
2727         bicl3   #-65536,r2,-828(fp)
2728         mull3   r0,r4,-820(fp)
2729         mull2   r1,r4
2730         mull3   r1,-828(fp),-824(fp)
2731         mull2   r0,-828(fp)
2732         addl3   -820(fp),-824(fp),r0
2733         bicl3   #0,r0,-820(fp)
2734         cmpl    -820(fp),-824(fp)
2735         bgequ   noname.261
2736         addl2   #65536,-828(fp)
2737 noname.261:
2738         movzwl  -818(fp),r0
2739         bicl2   #-65536,r0
2740         addl2   r0,-828(fp)
2741         bicl3   #-65536,-820(fp),r0
2742         ashl    #16,r0,-824(fp)
2743         addl2   -824(fp),r4
2744         bicl2   #0,r4
2745         cmpl    r4,-824(fp)
2746         bgequ   noname.262
2747         incl    -828(fp)
2748 noname.262:
2749         movl    r4,r1
2750         movl    -828(fp),r2
2751         addl2   r1,r10
2752         bicl2   #0,r10
2753         cmpl    r10,r1
2754         bgequ   noname.263
2755         incl    r2
2756 noname.263:
2757         addl2   r2,r9
2758         bicl2   #0,r9
2759         cmpl    r9,r2
2760         bgequ   noname.264
2761         incl    r8
2762 noname.264:
2763
2764         movzwl  22(r6),r2
2765         bicl3   #-65536,24(r7),r3
2766         movzwl  26(r7),r0
2767         bicl2   #-65536,r0
2768         bicl3   #-65536,20(r6),-840(fp)
2769         bicl3   #-65536,r2,-844(fp)
2770         mull3   r0,-840(fp),-832(fp)
2771         mull2   r3,-840(fp)
2772         mull3   r3,-844(fp),-836(fp)
2773         mull2   r0,-844(fp)
2774         addl3   -832(fp),-836(fp),r0
2775         bicl3   #0,r0,-832(fp)
2776         cmpl    -832(fp),-836(fp)
2777         bgequ   noname.265
2778         addl2   #65536,-844(fp)
2779 noname.265:
2780         movzwl  -830(fp),r0
2781         bicl2   #-65536,r0
2782         addl2   r0,-844(fp)
2783         bicl3   #-65536,-832(fp),r0
2784         ashl    #16,r0,-836(fp)
2785         addl3   -836(fp),-840(fp),r0
2786         bicl3   #0,r0,-840(fp)
2787         cmpl    -840(fp),-836(fp)
2788         bgequ   noname.266
2789         incl    -844(fp)
2790 noname.266:
2791         movl    -840(fp),r1
2792         movl    -844(fp),r2
2793         addl2   r1,r10
2794         bicl2   #0,r10
2795         cmpl    r10,r1
2796         bgequ   noname.267
2797         incl    r2
2798 noname.267:
2799         addl2   r2,r9
2800         bicl2   #0,r9
2801         cmpl    r9,r2
2802         bgequ   noname.268
2803         incl    r8
2804 noname.268:
2805
2806         bicl3   #-65536,24(r6),r3
2807         movzwl  26(r6),r1
2808         bicl2   #-65536,r1
2809         bicl3   #-65536,20(r7),r2
2810         movzwl  22(r7),r0
2811         bicl2   #-65536,r0
2812         movl    r3,r5
2813         movl    r1,r4
2814         mull3   r0,r5,-848(fp)
2815         mull2   r2,r5
2816         mull3   r2,r4,-852(fp)
2817         mull2   r0,r4
2818         addl3   -848(fp),-852(fp),r0
2819         bicl3   #0,r0,-848(fp)
2820         cmpl    -848(fp),-852(fp)
2821         bgequ   noname.269
2822         addl2   #65536,r4
2823 noname.269:
2824         movzwl  -846(fp),r0
2825         bicl2   #-65536,r0
2826         addl2   r0,r4
2827         bicl3   #-65536,-848(fp),r0
2828         ashl    #16,r0,-852(fp)
2829         addl2   -852(fp),r5
2830         bicl2   #0,r5
2831         cmpl    r5,-852(fp)
2832         bgequ   noname.270
2833         incl    r4
2834 noname.270:
2835         movl    r5,r1
2836         movl    r4,r2
2837         addl2   r1,r10
2838         bicl2   #0,r10
2839         cmpl    r10,r1
2840         bgequ   noname.271
2841         incl    r2
2842 noname.271:
2843         addl2   r2,r9
2844         bicl2   #0,r9
2845         cmpl    r9,r2
2846         bgequ   noname.272
2847         incl    r8
2848 noname.272:
2849
2850         bicl3   #-65536,28(r6),r3
2851         movzwl  30(r6),r1
2852         bicl2   #-65536,r1
2853         bicl3   #-65536,16(r7),r2
2854         movzwl  18(r7),r0
2855         bicl2   #-65536,r0
2856         movl    r3,r5
2857         movl    r1,r4
2858         mull3   r0,r5,-856(fp)
2859         mull2   r2,r5
2860         mull3   r2,r4,-860(fp)
2861         mull2   r0,r4
2862         addl3   -856(fp),-860(fp),r0
2863         bicl3   #0,r0,-856(fp)
2864         cmpl    -856(fp),-860(fp)
2865         bgequ   noname.273
2866         addl2   #65536,r4
2867 noname.273:
2868         movzwl  -854(fp),r0
2869         bicl2   #-65536,r0
2870         addl2   r0,r4
2871         bicl3   #-65536,-856(fp),r0
2872         ashl    #16,r0,-860(fp)
2873         addl2   -860(fp),r5
2874         bicl2   #0,r5
2875         cmpl    r5,-860(fp)
2876         bgequ   noname.274
2877         incl    r4
2878 noname.274:
2879         movl    r5,r1
2880         movl    r4,r2
2881         addl2   r1,r10
2882         bicl2   #0,r10
2883         cmpl    r10,r1
2884         bgequ   noname.275
2885         incl    r2
2886 noname.275:
2887         addl2   r2,r9
2888         bicl2   #0,r9
2889         cmpl    r9,r2
2890         bgequ   noname.276
2891         incl    r8
2892 noname.276:
2893
2894         movl    r10,44(r11)
2895
2896         clrl    r10
2897
2898         bicl3   #-65536,28(r6),r3
2899         movzwl  30(r6),r1
2900         bicl2   #-65536,r1
2901         bicl3   #-65536,20(r7),r2
2902         movzwl  22(r7),r0
2903         bicl2   #-65536,r0
2904         movl    r3,r5
2905         movl    r1,r4
2906         mull3   r0,r5,-864(fp)
2907         mull2   r2,r5
2908         mull3   r2,r4,-868(fp)
2909         mull2   r0,r4
2910         addl3   -864(fp),-868(fp),r0
2911         bicl3   #0,r0,-864(fp)
2912         cmpl    -864(fp),-868(fp)
2913         bgequ   noname.277
2914         addl2   #65536,r4
2915 noname.277:
2916         movzwl  -862(fp),r0
2917         bicl2   #-65536,r0
2918         addl2   r0,r4
2919         bicl3   #-65536,-864(fp),r0
2920         ashl    #16,r0,-868(fp)
2921         addl2   -868(fp),r5
2922         bicl2   #0,r5
2923         cmpl    r5,-868(fp)
2924         bgequ   noname.278
2925         incl    r4
2926 noname.278:
2927         movl    r5,r1
2928         movl    r4,r2
2929         addl2   r1,r9
2930         bicl2   #0,r9
2931         cmpl    r9,r1
2932         bgequ   noname.279
2933         incl    r2
2934 noname.279:
2935         addl2   r2,r8
2936         bicl2   #0,r8
2937         cmpl    r8,r2
2938         bgequ   noname.280
2939         incl    r10
2940 noname.280:
2941
2942         bicl3   #-65536,24(r6),r3
2943         movzwl  26(r6),r1
2944         bicl2   #-65536,r1
2945         bicl3   #-65536,24(r7),r2
2946         movzwl  26(r7),r0
2947         bicl2   #-65536,r0
2948         movl    r3,r5
2949         movl    r1,r4
2950         mull3   r0,r5,-872(fp)
2951         mull2   r2,r5
2952         mull3   r2,r4,-876(fp)
2953         mull2   r0,r4
2954         addl3   -872(fp),-876(fp),r0
2955         bicl3   #0,r0,-872(fp)
2956         cmpl    -872(fp),-876(fp)
2957         bgequ   noname.281
2958         addl2   #65536,r4
2959 noname.281:
2960         movzwl  -870(fp),r0
2961         bicl2   #-65536,r0
2962         addl2   r0,r4
2963         bicl3   #-65536,-872(fp),r0
2964         ashl    #16,r0,-876(fp)
2965         addl2   -876(fp),r5
2966         bicl2   #0,r5
2967         cmpl    r5,-876(fp)
2968         bgequ   noname.282
2969         incl    r4
2970 noname.282:
2971         movl    r5,r1
2972         movl    r4,r2
2973         addl2   r1,r9
2974         bicl2   #0,r9
2975         cmpl    r9,r1
2976         bgequ   noname.283
2977         incl    r2
2978 noname.283:
2979         addl2   r2,r8
2980         bicl2   #0,r8
2981         cmpl    r8,r2
2982         bgequ   noname.284
2983         incl    r10
2984 noname.284:
2985
2986         bicl3   #-65536,20(r6),r3
2987         movzwl  22(r6),r1
2988         bicl2   #-65536,r1
2989         bicl3   #-65536,28(r7),r2
2990         movzwl  30(r7),r0
2991         bicl2   #-65536,r0
2992         movl    r3,r5
2993         movl    r1,r4
2994         mull3   r0,r5,-880(fp)
2995         mull2   r2,r5
2996         mull3   r2,r4,-884(fp)
2997         mull2   r0,r4
2998         addl3   -880(fp),-884(fp),r0
2999         bicl3   #0,r0,-880(fp)
3000         cmpl    -880(fp),-884(fp)
3001         bgequ   noname.285
3002         addl2   #65536,r4
3003 noname.285:
3004         movzwl  -878(fp),r0
3005         bicl2   #-65536,r0
3006         addl2   r0,r4
3007         bicl3   #-65536,-880(fp),r0
3008         ashl    #16,r0,-884(fp)
3009         addl2   -884(fp),r5
3010         bicl2   #0,r5
3011         cmpl    r5,-884(fp)
3012         bgequ   noname.286
3013         incl    r4
3014 noname.286:
3015         movl    r5,r1
3016         movl    r4,r2
3017         addl2   r1,r9
3018         bicl2   #0,r9
3019         cmpl    r9,r1
3020         bgequ   noname.287
3021         incl    r2
3022 noname.287:
3023         addl2   r2,r8
3024         bicl2   #0,r8
3025         cmpl    r8,r2
3026         bgequ   noname.288
3027         incl    r10
3028 noname.288:
3029
3030         movl    r9,48(r11)
3031
3032         clrl    r9
3033
3034         bicl3   #-65536,24(r6),r3
3035         movzwl  26(r6),r1
3036         bicl2   #-65536,r1
3037         bicl3   #-65536,28(r7),r2
3038         movzwl  30(r7),r0
3039         bicl2   #-65536,r0
3040         movl    r3,r5
3041         movl    r1,r4
3042         mull3   r0,r5,-888(fp)
3043         mull2   r2,r5
3044         mull3   r2,r4,-892(fp)
3045         mull2   r0,r4
3046         addl3   -888(fp),-892(fp),r0
3047         bicl3   #0,r0,-888(fp)
3048         cmpl    -888(fp),-892(fp)
3049         bgequ   noname.289
3050         addl2   #65536,r4
3051 noname.289:
3052         movzwl  -886(fp),r0
3053         bicl2   #-65536,r0
3054         addl2   r0,r4
3055         bicl3   #-65536,-888(fp),r0
3056         ashl    #16,r0,-892(fp)
3057         addl2   -892(fp),r5
3058         bicl2   #0,r5
3059         cmpl    r5,-892(fp)
3060         bgequ   noname.290
3061         incl    r4
3062 noname.290:
3063         movl    r5,r1
3064         movl    r4,r2
3065         addl2   r1,r8
3066         bicl2   #0,r8
3067         cmpl    r8,r1
3068         bgequ   noname.291
3069         incl    r2
3070 noname.291:
3071         addl2   r2,r10
3072         bicl2   #0,r10
3073         cmpl    r10,r2
3074         bgequ   noname.292
3075         incl    r9
3076 noname.292:
3077
3078         movzwl  30(r6),r2
3079         bicl3   #-65536,24(r7),r3
3080         movzwl  26(r7),r0
3081         bicl2   #-65536,r0
3082         bicl3   #-65536,28(r6),-904(fp)
3083         bicl3   #-65536,r2,-908(fp)
3084         mull3   r0,-904(fp),-896(fp)
3085         mull2   r3,-904(fp)
3086         mull3   r3,-908(fp),-900(fp)
3087         mull2   r0,-908(fp)
3088         addl3   -896(fp),-900(fp),r0
3089         bicl3   #0,r0,-896(fp)
3090         cmpl    -896(fp),-900(fp)
3091         bgequ   noname.293
3092         addl2   #65536,-908(fp)
3093 noname.293:
3094         movzwl  -894(fp),r0
3095         bicl2   #-65536,r0
3096         addl2   r0,-908(fp)
3097         bicl3   #-65536,-896(fp),r0
3098         ashl    #16,r0,-900(fp)
3099         addl3   -900(fp),-904(fp),r0
3100         bicl3   #0,r0,-904(fp)
3101         cmpl    -904(fp),-900(fp)
3102         bgequ   noname.294
3103         incl    -908(fp)
3104 noname.294:
3105         movl    -904(fp),r1
3106         movl    -908(fp),r2
3107         addl2   r1,r8
3108         bicl2   #0,r8
3109         cmpl    r8,r1
3110         bgequ   noname.295
3111         incl    r2
3112 noname.295:
3113         addl2   r2,r10
3114         bicl2   #0,r10
3115         cmpl    r10,r2
3116         bgequ   noname.296
3117         incl    r9
3118 noname.296:
3119
3120         movl    r8,52(r11)
3121
3122         clrl    r8
3123
3124         movzwl  30(r6),r2
3125         bicl3   #-65536,28(r7),r3
3126         movzwl  30(r7),r0
3127         bicl2   #-65536,r0
3128         bicl3   #-65536,28(r6),-920(fp)
3129         bicl3   #-65536,r2,-924(fp)
3130         mull3   r0,-920(fp),-912(fp)
3131         mull2   r3,-920(fp)
3132         mull3   r3,-924(fp),-916(fp)
3133         mull2   r0,-924(fp)
3134         addl3   -912(fp),-916(fp),r0
3135         bicl3   #0,r0,-912(fp)
3136         cmpl    -912(fp),-916(fp)
3137         bgequ   noname.297
3138         addl2   #65536,-924(fp)
3139 noname.297:
3140         movzwl  -910(fp),r0
3141         bicl2   #-65536,r0
3142         addl2   r0,-924(fp)
3143         bicl3   #-65536,-912(fp),r0
3144         ashl    #16,r0,-916(fp)
3145         addl3   -916(fp),-920(fp),r0
3146         bicl3   #0,r0,-920(fp)
3147         cmpl    -920(fp),-916(fp)
3148         bgequ   noname.298
3149         incl    -924(fp)
3150 noname.298:
3151         movl    -920(fp),r1
3152         movl    -924(fp),r2
3153         addl2   r1,r10
3154         bicl2   #0,r10
3155         cmpl    r10,r1
3156         bgequ   noname.299
3157         incl    r2
3158 noname.299:
3159         addl2   r2,r9
3160         bicl2   #0,r9
3161         cmpl    r9,r2
3162         bgequ   noname.300
3163         incl    r8
3164 noname.300:
3165
3166         movl    r10,56(r11)
3167
3168         movl    r9,60(r11)
3169
3170         ret
3171
3172 \f
3173
3174 ;r=4 ;(AP)
3175 ;a=8 ;(AP)
3176 ;b=12 ;(AP)
3177 ;n=16 ;(AP)     n       by value (input)
3178
3179         .psect  code,nowrt
3180
3181 .entry  BN_MUL_COMBA4,^m<r2,r3,r4,r5,r6,r7,r8,r9,r10,r11>
3182         movab   -156(sp),sp
3183
3184         clrq    r9
3185
3186         clrl    r8
3187
3188         movl    8(ap),r6
3189         bicl3   #-65536,(r6),r3
3190         movzwl  2(r6),r2
3191         bicl2   #-65536,r2
3192         movl    12(ap),r7
3193         bicl3   #-65536,(r7),r1
3194         movzwl  2(r7),r0
3195         bicl2   #-65536,r0
3196         movl    r3,r5
3197         movl    r2,r4
3198         mull3   r0,r5,-4(fp)
3199         mull2   r1,r5
3200         mull3   r1,r4,-8(fp)
3201         mull2   r0,r4
3202         addl3   -4(fp),-8(fp),r0
3203         bicl3   #0,r0,-4(fp)
3204         cmpl    -4(fp),-8(fp)
3205         bgequ   noname.303
3206         addl2   #65536,r4
3207 noname.303:
3208         movzwl  -2(fp),r0
3209         bicl2   #-65536,r0
3210         addl2   r0,r4
3211         bicl3   #-65536,-4(fp),r0
3212         ashl    #16,r0,-8(fp)
3213         addl2   -8(fp),r5
3214         bicl2   #0,r5
3215         cmpl    r5,-8(fp)
3216         bgequ   noname.304
3217         incl    r4
3218 noname.304:
3219         movl    r5,r1
3220         movl    r4,r2
3221         addl2   r1,r10
3222         bicl2   #0,r10
3223         cmpl    r10,r1
3224         bgequ   noname.305
3225         incl    r2
3226 noname.305:
3227         addl2   r2,r9
3228         bicl2   #0,r9
3229         cmpl    r9,r2
3230         bgequ   noname.306
3231         incl    r8
3232 noname.306:
3233
3234         movl    4(ap),r11
3235         movl    r10,(r11)
3236
3237         clrl    r10
3238
3239         bicl3   #-65536,(r6),r3
3240         movzwl  2(r6),r1
3241         bicl2   #-65536,r1
3242         bicl3   #-65536,4(r7),r2
3243         movzwl  6(r7),r0
3244         bicl2   #-65536,r0
3245         movl    r3,r5
3246         movl    r1,r4
3247         mull3   r0,r5,-12(fp)
3248         mull2   r2,r5
3249         mull3   r2,r4,-16(fp)
3250         mull2   r0,r4
3251         addl3   -12(fp),-16(fp),r0
3252         bicl3   #0,r0,-12(fp)
3253         cmpl    -12(fp),-16(fp)
3254         bgequ   noname.307
3255         addl2   #65536,r4
3256 noname.307:
3257         movzwl  -10(fp),r0
3258         bicl2   #-65536,r0
3259         addl2   r0,r4
3260         bicl3   #-65536,-12(fp),r0
3261         ashl    #16,r0,-16(fp)
3262         addl2   -16(fp),r5
3263         bicl2   #0,r5
3264         cmpl    r5,-16(fp)
3265         bgequ   noname.308
3266         incl    r4
3267 noname.308:
3268         movl    r5,r1
3269         movl    r4,r2
3270         addl2   r1,r9
3271         bicl2   #0,r9
3272         cmpl    r9,r1
3273         bgequ   noname.309
3274         incl    r2
3275 noname.309:
3276         addl2   r2,r8
3277         bicl2   #0,r8
3278         cmpl    r8,r2
3279         bgequ   noname.310
3280         incl    r10
3281 noname.310:
3282
3283         bicl3   #-65536,4(r6),r3
3284         movzwl  6(r6),r1
3285         bicl2   #-65536,r1
3286         bicl3   #-65536,(r7),r2
3287         movzwl  2(r7),r0
3288         bicl2   #-65536,r0
3289         movl    r3,r5
3290         movl    r1,r4
3291         mull3   r0,r5,-20(fp)
3292         mull2   r2,r5
3293         mull3   r2,r4,-24(fp)
3294         mull2   r0,r4
3295         addl3   -20(fp),-24(fp),r0
3296         bicl3   #0,r0,-20(fp)
3297         cmpl    -20(fp),-24(fp)
3298         bgequ   noname.311
3299         addl2   #65536,r4
3300 noname.311:
3301         movzwl  -18(fp),r0
3302         bicl2   #-65536,r0
3303         addl2   r0,r4
3304         bicl3   #-65536,-20(fp),r0
3305         ashl    #16,r0,-24(fp)
3306         addl2   -24(fp),r5
3307         bicl2   #0,r5
3308         cmpl    r5,-24(fp)
3309         bgequ   noname.312
3310         incl    r4
3311 noname.312:
3312         movl    r5,r1
3313         movl    r4,r2
3314         addl2   r1,r9
3315         bicl2   #0,r9
3316         cmpl    r9,r1
3317         bgequ   noname.313
3318         incl    r2
3319 noname.313:
3320         addl2   r2,r8
3321         bicl2   #0,r8
3322         cmpl    r8,r2
3323         bgequ   noname.314
3324         incl    r10
3325 noname.314:
3326
3327         movl    r9,4(r11)
3328
3329         clrl    r9
3330
3331         bicl3   #-65536,8(r6),r3
3332         movzwl  10(r6),r1
3333         bicl2   #-65536,r1
3334         bicl3   #-65536,(r7),r2
3335         movzwl  2(r7),r0
3336         bicl2   #-65536,r0
3337         movl    r3,r5
3338         movl    r1,r4
3339         mull3   r0,r5,-28(fp)
3340         mull2   r2,r5
3341         mull3   r2,r4,-32(fp)
3342         mull2   r0,r4
3343         addl3   -28(fp),-32(fp),r0
3344         bicl3   #0,r0,-28(fp)
3345         cmpl    -28(fp),-32(fp)
3346         bgequ   noname.315
3347         addl2   #65536,r4
3348 noname.315:
3349         movzwl  -26(fp),r0
3350         bicl2   #-65536,r0
3351         addl2   r0,r4
3352         bicl3   #-65536,-28(fp),r0
3353         ashl    #16,r0,-32(fp)
3354         addl2   -32(fp),r5
3355         bicl2   #0,r5
3356         cmpl    r5,-32(fp)
3357         bgequ   noname.316
3358         incl    r4
3359 noname.316:
3360         movl    r5,r1
3361         movl    r4,r2
3362         addl2   r1,r8
3363         bicl2   #0,r8
3364         cmpl    r8,r1
3365         bgequ   noname.317
3366         incl    r2
3367 noname.317:
3368         addl2   r2,r10
3369         bicl2   #0,r10
3370         cmpl    r10,r2
3371         bgequ   noname.318
3372         incl    r9
3373 noname.318:
3374
3375         bicl3   #-65536,4(r6),r3
3376         movzwl  6(r6),r1
3377         bicl2   #-65536,r1
3378         bicl3   #-65536,4(r7),r2
3379         movzwl  6(r7),r0
3380         bicl2   #-65536,r0
3381         movl    r3,r5
3382         movl    r1,r4
3383         mull3   r0,r5,-36(fp)
3384         mull2   r2,r5
3385         mull3   r2,r4,-40(fp)
3386         mull2   r0,r4
3387         addl3   -36(fp),-40(fp),r0
3388         bicl3   #0,r0,-36(fp)
3389         cmpl    -36(fp),-40(fp)
3390         bgequ   noname.319
3391         addl2   #65536,r4
3392 noname.319:
3393         movzwl  -34(fp),r0
3394         bicl2   #-65536,r0
3395         addl2   r0,r4
3396         bicl3   #-65536,-36(fp),r0
3397         ashl    #16,r0,-40(fp)
3398         addl2   -40(fp),r5
3399         bicl2   #0,r5
3400         cmpl    r5,-40(fp)
3401         bgequ   noname.320
3402         incl    r4
3403 noname.320:
3404         movl    r5,r1
3405         movl    r4,r2
3406         addl2   r1,r8
3407         bicl2   #0,r8
3408         cmpl    r8,r1
3409         bgequ   noname.321
3410         incl    r2
3411 noname.321:
3412         addl2   r2,r10
3413         bicl2   #0,r10
3414         cmpl    r10,r2
3415         bgequ   noname.322
3416         incl    r9
3417 noname.322:
3418
3419         bicl3   #-65536,(r6),r3
3420         movzwl  2(r6),r1
3421         bicl2   #-65536,r1
3422         bicl3   #-65536,8(r7),r2
3423         movzwl  10(r7),r0
3424         bicl2   #-65536,r0
3425         movl    r3,r5
3426         movl    r1,r4
3427         mull3   r0,r5,-44(fp)
3428         mull2   r2,r5
3429         mull3   r2,r4,-48(fp)
3430         mull2   r0,r4
3431         addl3   -44(fp),-48(fp),r0
3432         bicl3   #0,r0,-44(fp)
3433         cmpl    -44(fp),-48(fp)
3434         bgequ   noname.323
3435         addl2   #65536,r4
3436 noname.323:
3437         movzwl  -42(fp),r0
3438         bicl2   #-65536,r0
3439         addl2   r0,r4
3440         bicl3   #-65536,-44(fp),r0
3441         ashl    #16,r0,-48(fp)
3442         addl2   -48(fp),r5
3443         bicl2   #0,r5
3444         cmpl    r5,-48(fp)
3445         bgequ   noname.324
3446         incl    r4
3447 noname.324:
3448         movl    r5,r1
3449         movl    r4,r2
3450         addl2   r1,r8
3451         bicl2   #0,r8
3452         cmpl    r8,r1
3453         bgequ   noname.325
3454         incl    r2
3455 noname.325:
3456         addl2   r2,r10
3457         bicl2   #0,r10
3458         cmpl    r10,r2
3459         bgequ   noname.326
3460         incl    r9
3461 noname.326:
3462
3463         movl    r8,8(r11)
3464
3465         clrl    r8
3466
3467         bicl3   #-65536,(r6),r3
3468         movzwl  2(r6),r2
3469         bicl3   #-65536,12(r7),r1
3470         movzwl  14(r7),r0
3471         bicl2   #-65536,r0
3472         movl    r3,r4
3473         bicl3   #-65536,r2,-60(fp)
3474         mull3   r0,r4,-52(fp)
3475         mull2   r1,r4
3476         mull3   r1,-60(fp),-56(fp)
3477         mull2   r0,-60(fp)
3478         addl3   -52(fp),-56(fp),r0
3479         bicl3   #0,r0,-52(fp)
3480         cmpl    -52(fp),-56(fp)
3481         bgequ   noname.327
3482         addl2   #65536,-60(fp)
3483 noname.327:
3484         movzwl  -50(fp),r0
3485         bicl2   #-65536,r0
3486         addl2   r0,-60(fp)
3487         bicl3   #-65536,-52(fp),r0
3488         ashl    #16,r0,-56(fp)
3489         addl2   -56(fp),r4
3490         bicl2   #0,r4
3491         cmpl    r4,-56(fp)
3492         bgequ   noname.328
3493         incl    -60(fp)
3494 noname.328:
3495         movl    r4,r1
3496         movl    -60(fp),r2
3497         addl2   r1,r10
3498         bicl2   #0,r10
3499         cmpl    r10,r1
3500         bgequ   noname.329
3501         incl    r2
3502 noname.329:
3503         addl2   r2,r9
3504         bicl2   #0,r9
3505         cmpl    r9,r2
3506         bgequ   noname.330
3507         incl    r8
3508 noname.330:
3509
3510         movzwl  6(r6),r2
3511         bicl3   #-65536,8(r7),r3
3512         movzwl  10(r7),r0
3513         bicl2   #-65536,r0
3514         bicl3   #-65536,4(r6),-72(fp)
3515         bicl3   #-65536,r2,-76(fp)
3516         mull3   r0,-72(fp),-64(fp)
3517         mull2   r3,-72(fp)
3518         mull3   r3,-76(fp),-68(fp)
3519         mull2   r0,-76(fp)
3520         addl3   -64(fp),-68(fp),r0
3521         bicl3   #0,r0,-64(fp)
3522         cmpl    -64(fp),-68(fp)
3523         bgequ   noname.331
3524         addl2   #65536,-76(fp)
3525 noname.331:
3526         movzwl  -62(fp),r0
3527         bicl2   #-65536,r0
3528         addl2   r0,-76(fp)
3529         bicl3   #-65536,-64(fp),r0
3530         ashl    #16,r0,-68(fp)
3531         addl3   -68(fp),-72(fp),r0
3532         bicl3   #0,r0,-72(fp)
3533         cmpl    -72(fp),-68(fp)
3534         bgequ   noname.332
3535         incl    -76(fp)
3536 noname.332:
3537         movl    -72(fp),r1
3538         movl    -76(fp),r2
3539         addl2   r1,r10
3540         bicl2   #0,r10
3541         cmpl    r10,r1
3542         bgequ   noname.333
3543         incl    r2
3544 noname.333:
3545         addl2   r2,r9
3546         bicl2   #0,r9
3547         cmpl    r9,r2
3548         bgequ   noname.334
3549         incl    r8
3550 noname.334:
3551
3552         bicl3   #-65536,8(r6),r3
3553         movzwl  10(r6),r1
3554         bicl2   #-65536,r1
3555         bicl3   #-65536,4(r7),r2
3556         movzwl  6(r7),r0
3557         bicl2   #-65536,r0
3558         movl    r3,r5
3559         movl    r1,r4
3560         mull3   r0,r5,-80(fp)
3561         mull2   r2,r5
3562         mull3   r2,r4,-84(fp)
3563         mull2   r0,r4
3564         addl3   -80(fp),-84(fp),r0
3565         bicl3   #0,r0,-80(fp)
3566         cmpl    -80(fp),-84(fp)
3567         bgequ   noname.335
3568         addl2   #65536,r4
3569 noname.335:
3570         movzwl  -78(fp),r0
3571         bicl2   #-65536,r0
3572         addl2   r0,r4
3573         bicl3   #-65536,-80(fp),r0
3574         ashl    #16,r0,-84(fp)
3575         addl2   -84(fp),r5
3576         bicl2   #0,r5
3577         cmpl    r5,-84(fp)
3578         bgequ   noname.336
3579         incl    r4
3580 noname.336:
3581         movl    r5,r1
3582         movl    r4,r2
3583         addl2   r1,r10
3584         bicl2   #0,r10
3585         cmpl    r10,r1
3586         bgequ   noname.337
3587         incl    r2
3588 noname.337:
3589         addl2   r2,r9
3590         bicl2   #0,r9
3591         cmpl    r9,r2
3592         bgequ   noname.338
3593         incl    r8
3594 noname.338:
3595
3596         bicl3   #-65536,12(r6),r3
3597         movzwl  14(r6),r1
3598         bicl2   #-65536,r1
3599         bicl3   #-65536,(r7),r2
3600         movzwl  2(r7),r0
3601         bicl2   #-65536,r0
3602         movl    r3,r5
3603         movl    r1,r4
3604         mull3   r0,r5,-88(fp)
3605         mull2   r2,r5
3606         mull3   r2,r4,-92(fp)
3607         mull2   r0,r4
3608         addl3   -88(fp),-92(fp),r0
3609         bicl3   #0,r0,-88(fp)
3610         cmpl    -88(fp),-92(fp)
3611         bgequ   noname.339
3612         addl2   #65536,r4
3613 noname.339:
3614         movzwl  -86(fp),r0
3615         bicl2   #-65536,r0
3616         addl2   r0,r4
3617         bicl3   #-65536,-88(fp),r0
3618         ashl    #16,r0,-92(fp)
3619         addl2   -92(fp),r5
3620         bicl2   #0,r5
3621         cmpl    r5,-92(fp)
3622         bgequ   noname.340
3623         incl    r4
3624 noname.340:
3625         movl    r5,r1
3626         movl    r4,r2
3627         addl2   r1,r10
3628         bicl2   #0,r10
3629         cmpl    r10,r1
3630         bgequ   noname.341
3631         incl    r2
3632 noname.341:
3633         addl2   r2,r9
3634         bicl2   #0,r9
3635         cmpl    r9,r2
3636         bgequ   noname.342
3637         incl    r8
3638 noname.342:
3639
3640         movl    r10,12(r11)
3641
3642         clrl    r10
3643
3644         bicl3   #-65536,12(r6),r3
3645         movzwl  14(r6),r1
3646         bicl2   #-65536,r1
3647         bicl3   #-65536,4(r7),r2
3648         movzwl  6(r7),r0
3649         bicl2   #-65536,r0
3650         movl    r3,r5
3651         movl    r1,r4
3652         mull3   r0,r5,-96(fp)
3653         mull2   r2,r5
3654         mull3   r2,r4,-100(fp)
3655         mull2   r0,r4
3656         addl3   -96(fp),-100(fp),r0
3657         bicl3   #0,r0,-96(fp)
3658         cmpl    -96(fp),-100(fp)
3659         bgequ   noname.343
3660         addl2   #65536,r4
3661 noname.343:
3662         movzwl  -94(fp),r0
3663         bicl2   #-65536,r0
3664         addl2   r0,r4
3665         bicl3   #-65536,-96(fp),r0
3666         ashl    #16,r0,-100(fp)
3667         addl2   -100(fp),r5
3668         bicl2   #0,r5
3669         cmpl    r5,-100(fp)
3670         bgequ   noname.344
3671         incl    r4
3672 noname.344:
3673         movl    r5,r1
3674         movl    r4,r2
3675         addl2   r1,r9
3676         bicl2   #0,r9
3677         cmpl    r9,r1
3678         bgequ   noname.345
3679         incl    r2
3680 noname.345:
3681         addl2   r2,r8
3682         bicl2   #0,r8
3683         cmpl    r8,r2
3684         bgequ   noname.346
3685         incl    r10
3686 noname.346:
3687
3688         bicl3   #-65536,8(r6),r3
3689         movzwl  10(r6),r1
3690         bicl2   #-65536,r1
3691         bicl3   #-65536,8(r7),r2
3692         movzwl  10(r7),r0
3693         bicl2   #-65536,r0
3694         movl    r3,r5
3695         movl    r1,r4
3696         mull3   r0,r5,-104(fp)
3697         mull2   r2,r5
3698         mull3   r2,r4,-108(fp)
3699         mull2   r0,r4
3700         addl3   -104(fp),-108(fp),r0
3701         bicl3   #0,r0,-104(fp)
3702         cmpl    -104(fp),-108(fp)
3703         bgequ   noname.347
3704         addl2   #65536,r4
3705 noname.347:
3706         movzwl  -102(fp),r0
3707         bicl2   #-65536,r0
3708         addl2   r0,r4
3709         bicl3   #-65536,-104(fp),r0
3710         ashl    #16,r0,-108(fp)
3711         addl2   -108(fp),r5
3712         bicl2   #0,r5
3713         cmpl    r5,-108(fp)
3714         bgequ   noname.348
3715         incl    r4
3716 noname.348:
3717         movl    r5,r1
3718         movl    r4,r2
3719         addl2   r1,r9
3720         bicl2   #0,r9
3721         cmpl    r9,r1
3722         bgequ   noname.349
3723         incl    r2
3724 noname.349:
3725         addl2   r2,r8
3726         bicl2   #0,r8
3727         cmpl    r8,r2
3728         bgequ   noname.350
3729         incl    r10
3730 noname.350:
3731
3732         bicl3   #-65536,4(r6),r3
3733         movzwl  6(r6),r1
3734         bicl2   #-65536,r1
3735         bicl3   #-65536,12(r7),r2
3736         movzwl  14(r7),r0
3737         bicl2   #-65536,r0
3738         movl    r3,r5
3739         movl    r1,r4
3740         mull3   r0,r5,-112(fp)
3741         mull2   r2,r5
3742         mull3   r2,r4,-116(fp)
3743         mull2   r0,r4
3744         addl3   -112(fp),-116(fp),r0
3745         bicl3   #0,r0,-112(fp)
3746         cmpl    -112(fp),-116(fp)
3747         bgequ   noname.351
3748         addl2   #65536,r4
3749 noname.351:
3750         movzwl  -110(fp),r0
3751         bicl2   #-65536,r0
3752         addl2   r0,r4
3753         bicl3   #-65536,-112(fp),r0
3754         ashl    #16,r0,-116(fp)
3755         addl2   -116(fp),r5
3756         bicl2   #0,r5
3757         cmpl    r5,-116(fp)
3758         bgequ   noname.352
3759         incl    r4
3760 noname.352:
3761         movl    r5,r1
3762         movl    r4,r2
3763         addl2   r1,r9
3764         bicl2   #0,r9
3765         cmpl    r9,r1
3766         bgequ   noname.353
3767         incl    r2
3768 noname.353:
3769         addl2   r2,r8
3770         bicl2   #0,r8
3771         cmpl    r8,r2
3772         bgequ   noname.354
3773         incl    r10
3774 noname.354:
3775
3776         movl    r9,16(r11)
3777
3778         clrl    r9
3779
3780         bicl3   #-65536,8(r6),r3
3781         movzwl  10(r6),r1
3782         bicl2   #-65536,r1
3783         bicl3   #-65536,12(r7),r2
3784         movzwl  14(r7),r0
3785         bicl2   #-65536,r0
3786         movl    r3,r5
3787         movl    r1,r4
3788         mull3   r0,r5,-120(fp)
3789         mull2   r2,r5
3790         mull3   r2,r4,-124(fp)
3791         mull2   r0,r4
3792         addl3   -120(fp),-124(fp),r0
3793         bicl3   #0,r0,-120(fp)
3794         cmpl    -120(fp),-124(fp)
3795         bgequ   noname.355
3796         addl2   #65536,r4
3797 noname.355:
3798         movzwl  -118(fp),r0
3799         bicl2   #-65536,r0
3800         addl2   r0,r4
3801         bicl3   #-65536,-120(fp),r0
3802         ashl    #16,r0,-124(fp)
3803         addl2   -124(fp),r5
3804         bicl2   #0,r5
3805         cmpl    r5,-124(fp)
3806         bgequ   noname.356
3807         incl    r4
3808 noname.356:
3809         movl    r5,r1
3810         movl    r4,r2
3811         addl2   r1,r8
3812         bicl2   #0,r8
3813         cmpl    r8,r1
3814         bgequ   noname.357
3815         incl    r2
3816 noname.357:
3817         addl2   r2,r10
3818         bicl2   #0,r10
3819         cmpl    r10,r2
3820         bgequ   noname.358
3821         incl    r9
3822 noname.358:
3823
3824         movzwl  14(r6),r2
3825         bicl3   #-65536,8(r7),r3
3826         movzwl  10(r7),r0
3827         bicl2   #-65536,r0
3828         bicl3   #-65536,12(r6),-136(fp)
3829         bicl3   #-65536,r2,-140(fp)
3830         mull3   r0,-136(fp),-128(fp)
3831         mull2   r3,-136(fp)
3832         mull3   r3,-140(fp),-132(fp)
3833         mull2   r0,-140(fp)
3834         addl3   -128(fp),-132(fp),r0
3835         bicl3   #0,r0,-128(fp)
3836         cmpl    -128(fp),-132(fp)
3837         bgequ   noname.359
3838         addl2   #65536,-140(fp)
3839 noname.359:
3840         movzwl  -126(fp),r0
3841         bicl2   #-65536,r0
3842         addl2   r0,-140(fp)
3843         bicl3   #-65536,-128(fp),r0
3844         ashl    #16,r0,-132(fp)
3845         addl3   -132(fp),-136(fp),r0
3846         bicl3   #0,r0,-136(fp)
3847         cmpl    -136(fp),-132(fp)
3848         bgequ   noname.360
3849         incl    -140(fp)
3850 noname.360:
3851         movl    -136(fp),r1
3852         movl    -140(fp),r2
3853         addl2   r1,r8
3854         bicl2   #0,r8
3855         cmpl    r8,r1
3856         bgequ   noname.361
3857         incl    r2
3858 noname.361:
3859         addl2   r2,r10
3860         bicl2   #0,r10
3861         cmpl    r10,r2
3862         bgequ   noname.362
3863         incl    r9
3864 noname.362:
3865
3866         movl    r8,20(r11)
3867
3868         clrl    r8
3869
3870         movzwl  14(r6),r2
3871         bicl3   #-65536,12(r7),r3
3872         movzwl  14(r7),r0
3873         bicl2   #-65536,r0
3874         bicl3   #-65536,12(r6),-152(fp)
3875         bicl3   #-65536,r2,-156(fp)
3876         mull3   r0,-152(fp),-144(fp)
3877         mull2   r3,-152(fp)
3878         mull3   r3,-156(fp),-148(fp)
3879         mull2   r0,-156(fp)
3880         addl3   -144(fp),-148(fp),r0
3881         bicl3   #0,r0,-144(fp)
3882         cmpl    -144(fp),-148(fp)
3883         bgequ   noname.363
3884         addl2   #65536,-156(fp)
3885 noname.363:
3886         movzwl  -142(fp),r0
3887         bicl2   #-65536,r0
3888         addl2   r0,-156(fp)
3889         bicl3   #-65536,-144(fp),r0
3890         ashl    #16,r0,-148(fp)
3891         addl3   -148(fp),-152(fp),r0
3892         bicl3   #0,r0,-152(fp)
3893         cmpl    -152(fp),-148(fp)
3894         bgequ   noname.364
3895         incl    -156(fp)
3896 noname.364:
3897         movl    -152(fp),r1
3898         movl    -156(fp),r2
3899         addl2   r1,r10
3900         bicl2   #0,r10
3901         cmpl    r10,r1
3902         bgequ   noname.365
3903         incl    r2
3904 noname.365:
3905         addl2   r2,r9
3906         bicl2   #0,r9
3907         cmpl    r9,r2
3908         bgequ   noname.366
3909         incl    r8
3910 noname.366:
3911
3912         movl    r10,24(r11)
3913
3914         movl    r9,28(r11)
3915
3916         ret
3917
3918 \f
3919
3920 ;r=4 ;(AP)
3921 ;a=8 ;(AP)
3922 ;b=12 ;(AP)
3923 ;n=16 ;(AP)     n       by value (input)
3924
3925         .psect  code,nowrt
3926
3927 .entry  BN_SQR_COMBA8,^m<r2,r3,r4,r5,r6,r7,r8,r9>
3928         movab   -444(sp),sp
3929
3930         clrq    r8
3931
3932         clrl    r7
3933
3934         movl    8(ap),r4
3935         movl    (r4),r3
3936         bicl3   #-65536,r3,-4(fp)
3937         extzv   #16,#16,r3,r0
3938         bicl3   #-65536,r0,r3
3939         movl    -4(fp),r0
3940         mull3   r0,r3,-8(fp)
3941         mull3   r0,r0,-4(fp)
3942         mull2   r3,r3
3943         bicl3   #32767,-8(fp),r0
3944         extzv   #15,#17,r0,r0
3945         addl2   r0,r3
3946         bicl3   #-65536,-8(fp),r0
3947         ashl    #17,r0,-8(fp)
3948         addl3   -4(fp),-8(fp),r0
3949         bicl3   #0,r0,-4(fp)
3950         cmpl    -4(fp),-8(fp)
3951         bgequ   noname.369
3952         incl    r3
3953 noname.369:
3954         movl    -4(fp),r1
3955         movl    r3,r2
3956         addl2   r1,r9
3957         bicl2   #0,r9
3958         cmpl    r9,r1
3959         bgequ   noname.370
3960         incl    r2
3961 noname.370:
3962         addl2   r2,r8
3963         bicl2   #0,r8
3964         cmpl    r8,r2
3965         bgequ   noname.371
3966         incl    r7
3967 noname.371:
3968
3969         movl    r9,@4(ap)
3970
3971         clrl    r9
3972
3973         movzwl  6(r4),r2
3974         bicl3   #-65536,(r4),r3
3975         movzwl  2(r4),r0
3976         bicl2   #-65536,r0
3977         bicl3   #-65536,4(r4),-20(fp)
3978         bicl3   #-65536,r2,-24(fp)
3979         mull3   r0,-20(fp),-12(fp)
3980         mull2   r3,-20(fp)
3981         mull3   r3,-24(fp),-16(fp)
3982         mull2   r0,-24(fp)
3983         addl3   -12(fp),-16(fp),r0
3984         bicl3   #0,r0,-12(fp)
3985         cmpl    -12(fp),-16(fp)
3986         bgequ   noname.372
3987         addl2   #65536,-24(fp)
3988 noname.372:
3989         movzwl  -10(fp),r0
3990         bicl2   #-65536,r0
3991         addl2   r0,-24(fp)
3992         bicl3   #-65536,-12(fp),r0
3993         ashl    #16,r0,-16(fp)
3994         addl3   -16(fp),-20(fp),r0
3995         bicl3   #0,r0,-20(fp)
3996         cmpl    -20(fp),-16(fp)
3997         bgequ   noname.373
3998         incl    -24(fp)
3999 noname.373:
4000         movl    -20(fp),r3
4001         movl    -24(fp),r2
4002         bbc     #31,r2,noname.374
4003         incl    r9
4004 noname.374:
4005         addl2   r2,r2
4006         bicl2   #0,r2
4007         bbc     #31,r3,noname.375
4008         incl    r2
4009 noname.375:
4010         addl2   r3,r3
4011         bicl2   #0,r3
4012         addl2   r3,r8
4013         bicl2   #0,r8
4014         cmpl    r8,r3
4015         bgequ   noname.376
4016         incl    r2
4017         bicl3   #0,r2,r0
4018         bneq    noname.376
4019         incl    r9
4020 noname.376:
4021         addl2   r2,r7
4022         bicl2   #0,r7
4023         cmpl    r7,r2
4024         bgequ   noname.377
4025         incl    r9
4026 noname.377:
4027
4028         movl    4(ap),r0
4029         movl    r8,4(r0)
4030
4031         clrl    r8
4032
4033         movl    8(ap),r4
4034         movl    4(r4),r3
4035         bicl3   #-65536,r3,-28(fp)
4036         extzv   #16,#16,r3,r0
4037         bicl3   #-65536,r0,r3
4038         movl    -28(fp),r0
4039         mull3   r0,r3,-32(fp)
4040         mull3   r0,r0,-28(fp)
4041         mull2   r3,r3
4042         bicl3   #32767,-32(fp),r0
4043         extzv   #15,#17,r0,r0
4044         addl2   r0,r3
4045         bicl3   #-65536,-32(fp),r0
4046         ashl    #17,r0,-32(fp)
4047         addl3   -28(fp),-32(fp),r0
4048         bicl3   #0,r0,-28(fp)
4049         cmpl    -28(fp),-32(fp)
4050         bgequ   noname.378
4051         incl    r3
4052 noname.378:
4053         movl    -28(fp),r1
4054         movl    r3,r2
4055         addl2   r1,r7
4056         bicl2   #0,r7
4057         cmpl    r7,r1
4058         bgequ   noname.379
4059         incl    r2
4060 noname.379:
4061         addl2   r2,r9
4062         bicl2   #0,r9
4063         cmpl    r9,r2
4064         bgequ   noname.380
4065         incl    r8
4066 noname.380:
4067
4068         movzwl  10(r4),r2
4069         bicl3   #-65536,(r4),r3
4070         movzwl  2(r4),r0
4071         bicl2   #-65536,r0
4072         bicl3   #-65536,8(r4),-44(fp)
4073         bicl3   #-65536,r2,-48(fp)
4074         mull3   r0,-44(fp),-36(fp)
4075         mull2   r3,-44(fp)
4076         mull3   r3,-48(fp),-40(fp)
4077         mull2   r0,-48(fp)
4078         addl3   -36(fp),-40(fp),r0
4079         bicl3   #0,r0,-36(fp)
4080         cmpl    -36(fp),-40(fp)
4081         bgequ   noname.381
4082         addl2   #65536,-48(fp)
4083 noname.381:
4084         movzwl  -34(fp),r0
4085         bicl2   #-65536,r0
4086         addl2   r0,-48(fp)
4087         bicl3   #-65536,-36(fp),r0
4088         ashl    #16,r0,-40(fp)
4089         addl3   -40(fp),-44(fp),r0
4090         bicl3   #0,r0,-44(fp)
4091         cmpl    -44(fp),-40(fp)
4092         bgequ   noname.382
4093         incl    -48(fp)
4094 noname.382:
4095         movl    -44(fp),r3
4096         movl    -48(fp),r2
4097         bbc     #31,r2,noname.383
4098         incl    r8
4099 noname.383:
4100         addl2   r2,r2
4101         bicl2   #0,r2
4102         bbc     #31,r3,noname.384
4103         incl    r2
4104 noname.384:
4105         addl2   r3,r3
4106         bicl2   #0,r3
4107         addl2   r3,r7
4108         bicl2   #0,r7
4109         cmpl    r7,r3
4110         bgequ   noname.385
4111         incl    r2
4112         bicl3   #0,r2,r0
4113         bneq    noname.385
4114         incl    r8
4115 noname.385:
4116         addl2   r2,r9
4117         bicl2   #0,r9
4118         cmpl    r9,r2
4119         bgequ   noname.386
4120         incl    r8
4121 noname.386:
4122
4123         movl    4(ap),r0
4124         movl    r7,8(r0)
4125
4126         clrl    r7
4127
4128         movl    8(ap),r0
4129         movzwl  14(r0),r2
4130         bicl3   #-65536,(r0),r3
4131         movzwl  2(r0),r1
4132         bicl2   #-65536,r1
4133         bicl3   #-65536,12(r0),-60(fp)
4134         bicl3   #-65536,r2,-64(fp)
4135         mull3   r1,-60(fp),-52(fp)
4136         mull2   r3,-60(fp)
4137         mull3   r3,-64(fp),-56(fp)
4138         mull2   r1,-64(fp)
4139         addl3   -52(fp),-56(fp),r0
4140         bicl3   #0,r0,-52(fp)
4141         cmpl    -52(fp),-56(fp)
4142         bgequ   noname.387
4143         addl2   #65536,-64(fp)
4144 noname.387:
4145         movzwl  -50(fp),r0
4146         bicl2   #-65536,r0
4147         addl2   r0,-64(fp)
4148         bicl3   #-65536,-52(fp),r0
4149         ashl    #16,r0,-56(fp)
4150         addl3   -56(fp),-60(fp),r0
4151         bicl3   #0,r0,-60(fp)
4152         cmpl    -60(fp),-56(fp)
4153         bgequ   noname.388
4154         incl    -64(fp)
4155 noname.388:
4156         movl    -60(fp),r3
4157         movl    -64(fp),r2
4158         bbc     #31,r2,noname.389
4159         incl    r7
4160 noname.389:
4161         addl2   r2,r2
4162         bicl2   #0,r2
4163         bbc     #31,r3,noname.390
4164         incl    r2
4165 noname.390:
4166         addl2   r3,r3
4167         bicl2   #0,r3
4168         addl2   r3,r9
4169         bicl2   #0,r9
4170         cmpl    r9,r3
4171         bgequ   noname.391
4172         incl    r2
4173         bicl3   #0,r2,r0
4174         bneq    noname.391
4175         incl    r7
4176 noname.391:
4177         addl2   r2,r8
4178         bicl2   #0,r8
4179         cmpl    r8,r2
4180         bgequ   noname.392
4181         incl    r7
4182 noname.392:
4183
4184         movl    8(ap),r0
4185         movzwl  10(r0),r2
4186         bicl3   #-65536,4(r0),r3
4187         movzwl  6(r0),r1
4188         bicl2   #-65536,r1
4189         bicl3   #-65536,8(r0),-76(fp)
4190         bicl3   #-65536,r2,-80(fp)
4191         mull3   r1,-76(fp),-68(fp)
4192         mull2   r3,-76(fp)
4193         mull3   r3,-80(fp),-72(fp)
4194         mull2   r1,-80(fp)
4195         addl3   -68(fp),-72(fp),r0
4196         bicl3   #0,r0,-68(fp)
4197         cmpl    -68(fp),-72(fp)
4198         bgequ   noname.393
4199         addl2   #65536,-80(fp)
4200 noname.393:
4201         movzwl  -66(fp),r0
4202         bicl2   #-65536,r0
4203         addl2   r0,-80(fp)
4204         bicl3   #-65536,-68(fp),r0
4205         ashl    #16,r0,-72(fp)
4206         addl3   -72(fp),-76(fp),r0
4207         bicl3   #0,r0,-76(fp)
4208         cmpl    -76(fp),-72(fp)
4209         bgequ   noname.394
4210         incl    -80(fp)
4211 noname.394:
4212         movl    -76(fp),r3
4213         movl    -80(fp),r2
4214         bbc     #31,r2,noname.395
4215         incl    r7
4216 noname.395:
4217         addl2   r2,r2
4218         bicl2   #0,r2
4219         bbc     #31,r3,noname.396
4220         incl    r2
4221 noname.396:
4222         addl2   r3,r3
4223         bicl2   #0,r3
4224         addl2   r3,r9
4225         bicl2   #0,r9
4226         cmpl    r9,r3
4227         bgequ   noname.397
4228         incl    r2
4229         bicl3   #0,r2,r0
4230         bneq    noname.397
4231         incl    r7
4232 noname.397:
4233         addl2   r2,r8
4234         bicl2   #0,r8
4235         cmpl    r8,r2
4236         bgequ   noname.398
4237         incl    r7
4238 noname.398:
4239
4240         movl    4(ap),r0
4241         movl    r9,12(r0)
4242
4243         clrl    r9
4244
4245         movl    8(ap),r2
4246         movl    8(r2),r4
4247         bicl3   #-65536,r4,-84(fp)
4248         extzv   #16,#16,r4,r0
4249         bicl3   #-65536,r0,r4
4250         movl    -84(fp),r0
4251         mull3   r0,r4,-88(fp)
4252         mull3   r0,r0,-84(fp)
4253         mull2   r4,r4
4254         bicl3   #32767,-88(fp),r0
4255         extzv   #15,#17,r0,r0
4256         addl2   r0,r4
4257         bicl3   #-65536,-88(fp),r0
4258         ashl    #17,r0,-88(fp)
4259         addl3   -84(fp),-88(fp),r0
4260         bicl3   #0,r0,-84(fp)
4261         cmpl    -84(fp),-88(fp)
4262         bgequ   noname.399
4263         incl    r4
4264 noname.399:
4265         movl    -84(fp),r1
4266         movl    r4,r3
4267         addl2   r1,r8
4268         bicl2   #0,r8
4269         cmpl    r8,r1
4270         bgequ   noname.400
4271         incl    r3
4272 noname.400:
4273         addl2   r3,r7
4274         bicl2   #0,r7
4275         cmpl    r7,r3
4276         bgequ   noname.401
4277         incl    r9
4278 noname.401:
4279
4280         movzwl  14(r2),r3
4281         bicl3   #-65536,4(r2),r1
4282         movzwl  6(r2),r0
4283         bicl2   #-65536,r0
4284         bicl3   #-65536,12(r2),-100(fp)
4285         bicl3   #-65536,r3,-104(fp)
4286         mull3   r0,-100(fp),-92(fp)
4287         mull2   r1,-100(fp)
4288         mull3   r1,-104(fp),-96(fp)
4289         mull2   r0,-104(fp)
4290         addl3   -92(fp),-96(fp),r0
4291         bicl3   #0,r0,-92(fp)
4292         cmpl    -92(fp),-96(fp)
4293         bgequ   noname.402
4294         addl2   #65536,-104(fp)
4295 noname.402:
4296         movzwl  -90(fp),r0
4297         bicl2   #-65536,r0
4298         addl2   r0,-104(fp)
4299         bicl3   #-65536,-92(fp),r0
4300         ashl    #16,r0,-96(fp)
4301         addl3   -96(fp),-100(fp),r0
4302         bicl3   #0,r0,-100(fp)
4303         cmpl    -100(fp),-96(fp)
4304         bgequ   noname.403
4305         incl    -104(fp)
4306 noname.403:
4307         movl    -100(fp),r3
4308         movl    -104(fp),r2
4309         bbc     #31,r2,noname.404
4310         incl    r9
4311 noname.404:
4312         addl2   r2,r2
4313         bicl2   #0,r2
4314         bbc     #31,r3,noname.405
4315         incl    r2
4316 noname.405:
4317         addl2   r3,r3
4318         bicl2   #0,r3
4319         addl2   r3,r8
4320         bicl2   #0,r8
4321         cmpl    r8,r3
4322         bgequ   noname.406
4323         incl    r2
4324         bicl3   #0,r2,r0
4325         bneq    noname.406
4326         incl    r9
4327 noname.406:
4328         addl2   r2,r7
4329         bicl2   #0,r7
4330         cmpl    r7,r2
4331         bgequ   noname.407
4332         incl    r9
4333 noname.407:
4334
4335         movl    8(ap),r0
4336         movzwl  18(r0),r2
4337         bicl3   #-65536,(r0),r3
4338         movzwl  2(r0),r1
4339         bicl2   #-65536,r1
4340         bicl3   #-65536,16(r0),-116(fp)
4341         bicl3   #-65536,r2,-120(fp)
4342         mull3   r1,-116(fp),-108(fp)
4343         mull2   r3,-116(fp)
4344         mull3   r3,-120(fp),-112(fp)
4345         mull2   r1,-120(fp)
4346         addl3   -108(fp),-112(fp),r0
4347         bicl3   #0,r0,-108(fp)
4348         cmpl    -108(fp),-112(fp)
4349         bgequ   noname.408
4350         addl2   #65536,-120(fp)
4351 noname.408:
4352         movzwl  -106(fp),r0
4353         bicl2   #-65536,r0
4354         addl2   r0,-120(fp)
4355         bicl3   #-65536,-108(fp),r0
4356         ashl    #16,r0,-112(fp)
4357         addl3   -112(fp),-116(fp),r0
4358         bicl3   #0,r0,-116(fp)
4359         cmpl    -116(fp),-112(fp)
4360         bgequ   noname.409
4361         incl    -120(fp)
4362 noname.409:
4363         movl    -116(fp),r3
4364         movl    -120(fp),r2
4365         bbc     #31,r2,noname.410
4366         incl    r9
4367 noname.410:
4368         addl2   r2,r2
4369         bicl2   #0,r2
4370         bbc     #31,r3,noname.411
4371         incl    r2
4372 noname.411:
4373         addl2   r3,r3
4374         bicl2   #0,r3
4375         addl2   r3,r8
4376         bicl2   #0,r8
4377         cmpl    r8,r3
4378         bgequ   noname.412
4379         incl    r2
4380         bicl3   #0,r2,r0
4381         bneq    noname.412
4382         incl    r9
4383 noname.412:
4384         addl2   r2,r7
4385         bicl2   #0,r7
4386         cmpl    r7,r2
4387         bgequ   noname.413
4388         incl    r9
4389 noname.413:
4390
4391         movl    4(ap),r0
4392         movl    r8,16(r0)
4393
4394         clrl    r8
4395
4396         movl    8(ap),r0
4397         movzwl  22(r0),r2
4398         bicl3   #-65536,(r0),r3
4399         movzwl  2(r0),r1
4400         bicl2   #-65536,r1
4401         bicl3   #-65536,20(r0),-132(fp)
4402         bicl3   #-65536,r2,-136(fp)
4403         mull3   r1,-132(fp),-124(fp)
4404         mull2   r3,-132(fp)
4405         mull3   r3,-136(fp),-128(fp)
4406         mull2   r1,-136(fp)
4407         addl3   -124(fp),-128(fp),r0
4408         bicl3   #0,r0,-124(fp)
4409         cmpl    -124(fp),-128(fp)
4410         bgequ   noname.414
4411         addl2   #65536,-136(fp)
4412 noname.414:
4413         movzwl  -122(fp),r0
4414         bicl2   #-65536,r0
4415         addl2   r0,-136(fp)
4416         bicl3   #-65536,-124(fp),r0
4417         ashl    #16,r0,-128(fp)
4418         addl3   -128(fp),-132(fp),r0
4419         bicl3   #0,r0,-132(fp)
4420         cmpl    -132(fp),-128(fp)
4421         bgequ   noname.415
4422         incl    -136(fp)
4423 noname.415:
4424         movl    -132(fp),r3
4425         movl    -136(fp),r2
4426         bbc     #31,r2,noname.416
4427         incl    r8
4428 noname.416:
4429         addl2   r2,r2
4430         bicl2   #0,r2
4431         bbc     #31,r3,noname.417
4432         incl    r2
4433 noname.417:
4434         addl2   r3,r3
4435         bicl2   #0,r3
4436         addl2   r3,r7
4437         bicl2   #0,r7
4438         cmpl    r7,r3
4439         bgequ   noname.418
4440         incl    r2
4441         bicl3   #0,r2,r0
4442         bneq    noname.418
4443         incl    r8
4444 noname.418:
4445         addl2   r2,r9
4446         bicl2   #0,r9
4447         cmpl    r9,r2
4448         bgequ   noname.419
4449         incl    r8
4450 noname.419:
4451
4452         movl    8(ap),r0
4453         movzwl  18(r0),r2
4454         bicl3   #-65536,4(r0),r3
4455         movzwl  6(r0),r1
4456         bicl2   #-65536,r1
4457         bicl3   #-65536,16(r0),-148(fp)
4458         bicl3   #-65536,r2,-152(fp)
4459         mull3   r1,-148(fp),-140(fp)
4460         mull2   r3,-148(fp)
4461         mull3   r3,-152(fp),-144(fp)
4462         mull2   r1,-152(fp)
4463         addl3   -140(fp),-144(fp),r0
4464         bicl3   #0,r0,-140(fp)
4465         cmpl    -140(fp),-144(fp)
4466         bgequ   noname.420
4467         addl2   #65536,-152(fp)
4468 noname.420:
4469         movzwl  -138(fp),r0
4470         bicl2   #-65536,r0
4471         addl2   r0,-152(fp)
4472         bicl3   #-65536,-140(fp),r0
4473         ashl    #16,r0,-144(fp)
4474         addl3   -144(fp),-148(fp),r0
4475         bicl3   #0,r0,-148(fp)
4476         cmpl    -148(fp),-144(fp)
4477         bgequ   noname.421
4478         incl    -152(fp)
4479 noname.421:
4480         movl    -148(fp),r3
4481         movl    -152(fp),r2
4482         bbc     #31,r2,noname.422
4483         incl    r8
4484 noname.422:
4485         addl2   r2,r2
4486         bicl2   #0,r2
4487         bbc     #31,r3,noname.423
4488         incl    r2
4489 noname.423:
4490         addl2   r3,r3
4491         bicl2   #0,r3
4492         addl2   r3,r7
4493         bicl2   #0,r7
4494         cmpl    r7,r3
4495         bgequ   noname.424
4496         incl    r2
4497         bicl3   #0,r2,r0
4498         bneq    noname.424
4499         incl    r8
4500 noname.424:
4501         addl2   r2,r9
4502         bicl2   #0,r9
4503         cmpl    r9,r2
4504         bgequ   noname.425
4505         incl    r8
4506 noname.425:
4507
4508         movl    8(ap),r0
4509         movzwl  14(r0),r2
4510         bicl3   #-65536,8(r0),r3
4511         movzwl  10(r0),r1
4512         bicl2   #-65536,r1
4513         bicl3   #-65536,12(r0),-164(fp)
4514         bicl3   #-65536,r2,-168(fp)
4515         mull3   r1,-164(fp),-156(fp)
4516         mull2   r3,-164(fp)
4517         mull3   r3,-168(fp),-160(fp)
4518         mull2   r1,-168(fp)
4519         addl3   -156(fp),-160(fp),r0
4520         bicl3   #0,r0,-156(fp)
4521         cmpl    -156(fp),-160(fp)
4522         bgequ   noname.426
4523         addl2   #65536,-168(fp)
4524 noname.426:
4525         movzwl  -154(fp),r0
4526         bicl2   #-65536,r0
4527         addl2   r0,-168(fp)
4528         bicl3   #-65536,-156(fp),r0
4529         ashl    #16,r0,-160(fp)
4530         addl3   -160(fp),-164(fp),r0
4531         bicl3   #0,r0,-164(fp)
4532         cmpl    -164(fp),-160(fp)
4533         bgequ   noname.427
4534         incl    -168(fp)
4535 noname.427:
4536         movl    -164(fp),r3
4537         movl    -168(fp),r2
4538         bbc     #31,r2,noname.428
4539         incl    r8
4540 noname.428:
4541         addl2   r2,r2
4542         bicl2   #0,r2
4543         bbc     #31,r3,noname.429
4544         incl    r2
4545 noname.429:
4546         addl2   r3,r3
4547         bicl2   #0,r3
4548         addl2   r3,r7
4549         bicl2   #0,r7
4550         cmpl    r7,r3
4551         bgequ   noname.430
4552         incl    r2
4553         bicl3   #0,r2,r0
4554         bneq    noname.430
4555         incl    r8
4556 noname.430:
4557         addl2   r2,r9
4558         bicl2   #0,r9
4559         cmpl    r9,r2
4560         bgequ   noname.431
4561         incl    r8
4562 noname.431:
4563
4564         movl    4(ap),r0
4565         movl    r7,20(r0)
4566
4567         clrl    r7
4568
4569         movl    8(ap),r2
4570         movl    12(r2),r4
4571         bicl3   #-65536,r4,-172(fp)
4572         extzv   #16,#16,r4,r0
4573         bicl3   #-65536,r0,r4
4574         movl    -172(fp),r0
4575         mull3   r0,r4,-176(fp)
4576         mull3   r0,r0,-172(fp)
4577         mull2   r4,r4
4578         bicl3   #32767,-176(fp),r0
4579         extzv   #15,#17,r0,r0
4580         addl2   r0,r4
4581         bicl3   #-65536,-176(fp),r0
4582         ashl    #17,r0,-176(fp)
4583         addl3   -172(fp),-176(fp),r0
4584         bicl3   #0,r0,-172(fp)
4585         cmpl    -172(fp),-176(fp)
4586         bgequ   noname.432
4587         incl    r4
4588 noname.432:
4589         movl    -172(fp),r1
4590         movl    r4,r3
4591         addl2   r1,r9
4592         bicl2   #0,r9
4593         cmpl    r9,r1
4594         bgequ   noname.433
4595         incl    r3
4596 noname.433:
4597         addl2   r3,r8
4598         bicl2   #0,r8
4599         cmpl    r8,r3
4600         bgequ   noname.434
4601         incl    r7
4602 noname.434:
4603
4604         movzwl  18(r2),r3
4605         bicl3   #-65536,8(r2),r1
4606         movzwl  10(r2),r0
4607         bicl2   #-65536,r0
4608         bicl3   #-65536,16(r2),-188(fp)
4609         bicl3   #-65536,r3,-192(fp)
4610         mull3   r0,-188(fp),-180(fp)
4611         mull2   r1,-188(fp)
4612         mull3   r1,-192(fp),-184(fp)
4613         mull2   r0,-192(fp)
4614         addl3   -180(fp),-184(fp),r0
4615         bicl3   #0,r0,-180(fp)
4616         cmpl    -180(fp),-184(fp)
4617         bgequ   noname.435
4618         addl2   #65536,-192(fp)
4619 noname.435:
4620         movzwl  -178(fp),r0
4621         bicl2   #-65536,r0
4622         addl2   r0,-192(fp)
4623         bicl3   #-65536,-180(fp),r0
4624         ashl    #16,r0,-184(fp)
4625         addl3   -184(fp),-188(fp),r0
4626         bicl3   #0,r0,-188(fp)
4627         cmpl    -188(fp),-184(fp)
4628         bgequ   noname.436
4629         incl    -192(fp)
4630 noname.436:
4631         movl    -188(fp),r3
4632         movl    -192(fp),r2
4633         bbc     #31,r2,noname.437
4634         incl    r7
4635 noname.437:
4636         addl2   r2,r2
4637         bicl2   #0,r2
4638         bbc     #31,r3,noname.438
4639         incl    r2
4640 noname.438:
4641         addl2   r3,r3
4642         bicl2   #0,r3
4643         addl2   r3,r9
4644         bicl2   #0,r9
4645         cmpl    r9,r3
4646         bgequ   noname.439
4647         incl    r2
4648         bicl3   #0,r2,r0
4649         bneq    noname.439
4650         incl    r7
4651 noname.439:
4652         addl2   r2,r8
4653         bicl2   #0,r8
4654         cmpl    r8,r2
4655         bgequ   noname.440
4656         incl    r7
4657 noname.440:
4658
4659         movl    8(ap),r0
4660         movzwl  22(r0),r2
4661         bicl3   #-65536,4(r0),r3
4662         movzwl  6(r0),r1
4663         bicl2   #-65536,r1
4664         bicl3   #-65536,20(r0),-204(fp)
4665         bicl3   #-65536,r2,-208(fp)
4666         mull3   r1,-204(fp),-196(fp)
4667         mull2   r3,-204(fp)
4668         mull3   r3,-208(fp),-200(fp)
4669         mull2   r1,-208(fp)
4670         addl3   -196(fp),-200(fp),r0
4671         bicl3   #0,r0,-196(fp)
4672         cmpl    -196(fp),-200(fp)
4673         bgequ   noname.441
4674         addl2   #65536,-208(fp)
4675 noname.441:
4676         movzwl  -194(fp),r0
4677         bicl2   #-65536,r0
4678         addl2   r0,-208(fp)
4679         bicl3   #-65536,-196(fp),r0
4680         ashl    #16,r0,-200(fp)
4681         addl3   -200(fp),-204(fp),r0
4682         bicl3   #0,r0,-204(fp)
4683         cmpl    -204(fp),-200(fp)
4684         bgequ   noname.442
4685         incl    -208(fp)
4686 noname.442:
4687         movl    -204(fp),r3
4688         movl    -208(fp),r2
4689         bbc     #31,r2,noname.443
4690         incl    r7
4691 noname.443:
4692         addl2   r2,r2
4693         bicl2   #0,r2
4694         bbc     #31,r3,noname.444
4695         incl    r2
4696 noname.444:
4697         addl2   r3,r3
4698         bicl2   #0,r3
4699         addl2   r3,r9
4700         bicl2   #0,r9
4701         cmpl    r9,r3
4702         bgequ   noname.445
4703         incl    r2
4704         bicl3   #0,r2,r0
4705         bneq    noname.445
4706         incl    r7
4707 noname.445:
4708         addl2   r2,r8
4709         bicl2   #0,r8
4710         cmpl    r8,r2
4711         bgequ   noname.446
4712         incl    r7
4713 noname.446:
4714
4715         movl    8(ap),r0
4716         movzwl  26(r0),r2
4717         bicl3   #-65536,(r0),r3
4718         movzwl  2(r0),r1
4719         bicl2   #-65536,r1
4720         bicl3   #-65536,24(r0),-220(fp)
4721         bicl3   #-65536,r2,-224(fp)
4722         mull3   r1,-220(fp),-212(fp)
4723         mull2   r3,-220(fp)
4724         mull3   r3,-224(fp),-216(fp)
4725         mull2   r1,-224(fp)
4726         addl3   -212(fp),-216(fp),r0
4727         bicl3   #0,r0,-212(fp)
4728         cmpl    -212(fp),-216(fp)
4729         bgequ   noname.447
4730         addl2   #65536,-224(fp)
4731 noname.447:
4732         movzwl  -210(fp),r0
4733         bicl2   #-65536,r0
4734         addl2   r0,-224(fp)
4735         bicl3   #-65536,-212(fp),r0
4736         ashl    #16,r0,-216(fp)
4737         addl3   -216(fp),-220(fp),r0
4738         bicl3   #0,r0,-220(fp)
4739         cmpl    -220(fp),-216(fp)
4740         bgequ   noname.448
4741         incl    -224(fp)
4742 noname.448:
4743         movl    -220(fp),r3
4744         movl    -224(fp),r2
4745         bbc     #31,r2,noname.449
4746         incl    r7
4747 noname.449:
4748         addl2   r2,r2
4749         bicl2   #0,r2
4750         bbc     #31,r3,noname.450
4751         incl    r2
4752 noname.450:
4753         addl2   r3,r3
4754         bicl2   #0,r3
4755         addl2   r3,r9
4756         bicl2   #0,r9
4757         cmpl    r9,r3
4758         bgequ   noname.451
4759         incl    r2
4760         bicl3   #0,r2,r0
4761         bneq    noname.451
4762         incl    r7
4763 noname.451:
4764         addl2   r2,r8
4765         bicl2   #0,r8
4766         cmpl    r8,r2
4767         bgequ   noname.452
4768         incl    r7
4769 noname.452:
4770
4771         movl    4(ap),r0
4772         movl    r9,24(r0)
4773
4774         clrl    r9
4775
4776         movl    8(ap),r0
4777         movzwl  30(r0),r2
4778         bicl3   #-65536,(r0),r3
4779         movzwl  2(r0),r1
4780         bicl2   #-65536,r1
4781         bicl3   #-65536,28(r0),-236(fp)
4782         bicl3   #-65536,r2,-240(fp)
4783         mull3   r1,-236(fp),-228(fp)
4784         mull2   r3,-236(fp)
4785         mull3   r3,-240(fp),-232(fp)
4786         mull2   r1,-240(fp)
4787         addl3   -228(fp),-232(fp),r0
4788         bicl3   #0,r0,-228(fp)
4789         cmpl    -228(fp),-232(fp)
4790         bgequ   noname.453
4791         addl2   #65536,-240(fp)
4792 noname.453:
4793         movzwl  -226(fp),r0
4794         bicl2   #-65536,r0
4795         addl2   r0,-240(fp)
4796         bicl3   #-65536,-228(fp),r0
4797         ashl    #16,r0,-232(fp)
4798         addl3   -232(fp),-236(fp),r0
4799         bicl3   #0,r0,-236(fp)
4800         cmpl    -236(fp),-232(fp)
4801         bgequ   noname.454
4802         incl    -240(fp)
4803 noname.454:
4804         movl    -236(fp),r3
4805         movl    -240(fp),r2
4806         bbc     #31,r2,noname.455
4807         incl    r9
4808 noname.455:
4809         addl2   r2,r2
4810         bicl2   #0,r2
4811         bbc     #31,r3,noname.456
4812         incl    r2
4813 noname.456:
4814         addl2   r3,r3
4815         bicl2   #0,r3
4816         addl2   r3,r8
4817         bicl2   #0,r8
4818         cmpl    r8,r3
4819         bgequ   noname.457
4820         incl    r2
4821         bicl3   #0,r2,r0
4822         bneq    noname.457
4823         incl    r9
4824 noname.457:
4825         addl2   r2,r7
4826         bicl2   #0,r7
4827         cmpl    r7,r2
4828         bgequ   noname.458
4829         incl    r9
4830 noname.458:
4831
4832         movl    8(ap),r0
4833         movzwl  26(r0),r2
4834         bicl3   #-65536,4(r0),r3
4835         movzwl  6(r0),r1
4836         bicl2   #-65536,r1
4837         bicl3   #-65536,24(r0),-252(fp)
4838         bicl3   #-65536,r2,-256(fp)
4839         mull3   r1,-252(fp),-244(fp)
4840         mull2   r3,-252(fp)
4841         mull3   r3,-256(fp),-248(fp)
4842         mull2   r1,-256(fp)
4843         addl3   -244(fp),-248(fp),r0
4844         bicl3   #0,r0,-244(fp)
4845         cmpl    -244(fp),-248(fp)
4846         bgequ   noname.459
4847         addl2   #65536,-256(fp)
4848 noname.459:
4849         movzwl  -242(fp),r0
4850         bicl2   #-65536,r0
4851         addl2   r0,-256(fp)
4852         bicl3   #-65536,-244(fp),r0
4853         ashl    #16,r0,-248(fp)
4854         addl3   -248(fp),-252(fp),r0
4855         bicl3   #0,r0,-252(fp)
4856         cmpl    -252(fp),-248(fp)
4857         bgequ   noname.460
4858         incl    -256(fp)
4859 noname.460:
4860         movl    -252(fp),r3
4861         movl    -256(fp),r2
4862         bbc     #31,r2,noname.461
4863         incl    r9
4864 noname.461:
4865         addl2   r2,r2
4866         bicl2   #0,r2
4867         bbc     #31,r3,noname.462
4868         incl    r2
4869 noname.462:
4870         addl2   r3,r3
4871         bicl2   #0,r3
4872         addl2   r3,r8
4873         bicl2   #0,r8
4874         cmpl    r8,r3
4875         bgequ   noname.463
4876         incl    r2
4877         bicl3   #0,r2,r0
4878         bneq    noname.463
4879         incl    r9
4880 noname.463:
4881         addl2   r2,r7
4882         bicl2   #0,r7
4883         cmpl    r7,r2
4884         bgequ   noname.464
4885         incl    r9
4886 noname.464:
4887
4888         movl    8(ap),r0
4889         movzwl  22(r0),r2
4890         bicl3   #-65536,8(r0),r3
4891         movzwl  10(r0),r1
4892         bicl2   #-65536,r1
4893         bicl3   #-65536,20(r0),-268(fp)
4894         bicl3   #-65536,r2,-272(fp)
4895         mull3   r1,-268(fp),-260(fp)
4896         mull2   r3,-268(fp)
4897         mull3   r3,-272(fp),-264(fp)
4898         mull2   r1,-272(fp)
4899         addl3   -260(fp),-264(fp),r0
4900         bicl3   #0,r0,-260(fp)
4901         cmpl    -260(fp),-264(fp)
4902         bgequ   noname.465
4903         addl2   #65536,-272(fp)
4904 noname.465:
4905         movzwl  -258(fp),r0
4906         bicl2   #-65536,r0
4907         addl2   r0,-272(fp)
4908         bicl3   #-65536,-260(fp),r0
4909         ashl    #16,r0,-264(fp)
4910         addl3   -264(fp),-268(fp),r0
4911         bicl3   #0,r0,-268(fp)
4912         cmpl    -268(fp),-264(fp)
4913         bgequ   noname.466
4914         incl    -272(fp)
4915 noname.466:
4916         movl    -268(fp),r3
4917         movl    -272(fp),r2
4918         bbc     #31,r2,noname.467
4919         incl    r9
4920 noname.467:
4921         addl2   r2,r2
4922         bicl2   #0,r2
4923         bbc     #31,r3,noname.468
4924         incl    r2
4925 noname.468:
4926         addl2   r3,r3
4927         bicl2   #0,r3
4928         addl2   r3,r8
4929         bicl2   #0,r8
4930         cmpl    r8,r3
4931         bgequ   noname.469
4932         incl    r2
4933         bicl3   #0,r2,r0
4934         bneq    noname.469
4935         incl    r9
4936 noname.469:
4937         addl2   r2,r7
4938         bicl2   #0,r7
4939         cmpl    r7,r2
4940         bgequ   noname.470
4941         incl    r9
4942 noname.470:
4943
4944         movl    8(ap),r0
4945         movzwl  18(r0),r2
4946         bicl3   #-65536,12(r0),r3
4947         movzwl  14(r0),r1
4948         bicl2   #-65536,r1
4949         bicl3   #-65536,16(r0),-284(fp)
4950         bicl3   #-65536,r2,-288(fp)
4951         mull3   r1,-284(fp),-276(fp)
4952         mull2   r3,-284(fp)
4953         mull3   r3,-288(fp),-280(fp)
4954         mull2   r1,-288(fp)
4955         addl3   -276(fp),-280(fp),r0
4956         bicl3   #0,r0,-276(fp)
4957         cmpl    -276(fp),-280(fp)
4958         bgequ   noname.471
4959         addl2   #65536,-288(fp)
4960 noname.471:
4961         movzwl  -274(fp),r0
4962         bicl2   #-65536,r0
4963         addl2   r0,-288(fp)
4964         bicl3   #-65536,-276(fp),r0
4965         ashl    #16,r0,-280(fp)
4966         addl3   -280(fp),-284(fp),r0
4967         bicl3   #0,r0,-284(fp)
4968         cmpl    -284(fp),-280(fp)
4969         bgequ   noname.472
4970         incl    -288(fp)
4971 noname.472:
4972         movl    -284(fp),r3
4973         movl    -288(fp),r2
4974         bbc     #31,r2,noname.473
4975         incl    r9
4976 noname.473:
4977         addl2   r2,r2
4978         bicl2   #0,r2
4979         bbc     #31,r3,noname.474
4980         incl    r2
4981 noname.474:
4982         addl2   r3,r3
4983         bicl2   #0,r3
4984         addl2   r3,r8
4985         bicl2   #0,r8
4986         cmpl    r8,r3
4987         bgequ   noname.475
4988         incl    r2
4989         bicl3   #0,r2,r0
4990         bneq    noname.475
4991         incl    r9
4992 noname.475:
4993         addl2   r2,r7
4994         bicl2   #0,r7
4995         cmpl    r7,r2
4996         bgequ   noname.476
4997         incl    r9
4998 noname.476:
4999
5000         movl    4(ap),r0
5001         movl    r8,28(r0)
5002
5003         clrl    r8
5004
5005         movl    8(ap),r3
5006         movl    16(r3),r4
5007         bicl3   #-65536,r4,r5
5008         extzv   #16,#16,r4,r0
5009         bicl3   #-65536,r0,r4
5010         mull3   r5,r4,-292(fp)
5011         mull2   r5,r5
5012         mull2   r4,r4
5013         bicl3   #32767,-292(fp),r0
5014         extzv   #15,#17,r0,r0
5015         addl2   r0,r4
5016         bicl3   #-65536,-292(fp),r0
5017         ashl    #17,r0,-292(fp)
5018         addl2   -292(fp),r5
5019         bicl2   #0,r5
5020         cmpl    r5,-292(fp)
5021         bgequ   noname.477
5022         incl    r4
5023 noname.477:
5024         movl    r5,r1
5025         movl    r4,r2
5026         addl2   r1,r7
5027         bicl2   #0,r7
5028         cmpl    r7,r1
5029         bgequ   noname.478
5030         incl    r2
5031 noname.478:
5032         addl2   r2,r9
5033         bicl2   #0,r9
5034         cmpl    r9,r2
5035         bgequ   noname.479
5036         incl    r8
5037 noname.479:
5038
5039         bicl3   #-65536,20(r3),r4
5040         movzwl  22(r3),r1
5041         bicl2   #-65536,r1
5042         bicl3   #-65536,12(r3),r2
5043         movzwl  14(r3),r0
5044         bicl2   #-65536,r0
5045         movl    r4,r6
5046         movl    r1,r5
5047         mull3   r0,r6,-296(fp)
5048         mull2   r2,r6
5049         mull3   r2,r5,-300(fp)
5050         mull2   r0,r5
5051         addl3   -296(fp),-300(fp),r0
5052         bicl3   #0,r0,-296(fp)
5053         cmpl    -296(fp),-300(fp)
5054         bgequ   noname.480
5055         addl2   #65536,r5
5056 noname.480:
5057         movzwl  -294(fp),r0
5058         bicl2   #-65536,r0
5059         addl2   r0,r5
5060         bicl3   #-65536,-296(fp),r0
5061         ashl    #16,r0,-300(fp)
5062         addl2   -300(fp),r6
5063         bicl2   #0,r6
5064         cmpl    r6,-300(fp)
5065         bgequ   noname.481
5066         incl    r5
5067 noname.481:
5068         movl    r6,r3
5069         movl    r5,r2
5070         bbc     #31,r2,noname.482
5071         incl    r8
5072 noname.482:
5073         addl2   r2,r2
5074         bicl2   #0,r2
5075         bbc     #31,r3,noname.483
5076         incl    r2
5077 noname.483:
5078         addl2   r3,r3
5079         bicl2   #0,r3
5080         addl2   r3,r7
5081         bicl2   #0,r7
5082         cmpl    r7,r3
5083         bgequ   noname.484
5084         incl    r2
5085         bicl3   #0,r2,r0
5086         bneq    noname.484
5087         incl    r8
5088 noname.484:
5089         addl2   r2,r9
5090         bicl2   #0,r9
5091         cmpl    r9,r2
5092         bgequ   noname.485
5093         incl    r8
5094 noname.485:
5095
5096         movl    8(ap),r0
5097         bicl3   #-65536,24(r0),r3
5098         movzwl  26(r0),r1
5099         bicl2   #-65536,r1
5100         bicl3   #-65536,8(r0),r2
5101         movzwl  10(r0),r0
5102         bicl2   #-65536,r0
5103         movl    r3,r5
5104         movl    r1,r4
5105         mull3   r0,r5,-304(fp)
5106         mull2   r2,r5
5107         mull3   r2,r4,-308(fp)
5108         mull2   r0,r4
5109         addl3   -304(fp),-308(fp),r0
5110         bicl3   #0,r0,-304(fp)
5111         cmpl    -304(fp),-308(fp)
5112         bgequ   noname.486
5113         addl2   #65536,r4
5114 noname.486:
5115         movzwl  -302(fp),r0
5116         bicl2   #-65536,r0
5117         addl2   r0,r4
5118         bicl3   #-65536,-304(fp),r0
5119         ashl    #16,r0,-308(fp)
5120         addl2   -308(fp),r5
5121         bicl2   #0,r5
5122         cmpl    r5,-308(fp)
5123         bgequ   noname.487
5124         incl    r4
5125 noname.487:
5126         movl    r5,r3
5127         movl    r4,r2
5128         bbc     #31,r2,noname.488
5129         incl    r8
5130 noname.488:
5131         addl2   r2,r2
5132         bicl2   #0,r2
5133         bbc     #31,r3,noname.489
5134         incl    r2
5135 noname.489:
5136         addl2   r3,r3
5137         bicl2   #0,r3
5138         addl2   r3,r7
5139         bicl2   #0,r7
5140         cmpl    r7,r3
5141         bgequ   noname.490
5142         incl    r2
5143         bicl3   #0,r2,r0
5144         bneq    noname.490
5145         incl    r8
5146 noname.490:
5147         addl2   r2,r9
5148         bicl2   #0,r9
5149         cmpl    r9,r2
5150         bgequ   noname.491
5151         incl    r8
5152 noname.491:
5153
5154         movl    8(ap),r0
5155         bicl3   #-65536,28(r0),r3
5156         movzwl  30(r0),r1
5157         bicl2   #-65536,r1
5158         bicl3   #-65536,4(r0),r2
5159         movzwl  6(r0),r0
5160         bicl2   #-65536,r0
5161         movl    r3,r5
5162         movl    r1,r4
5163         mull3   r0,r5,-312(fp)
5164         mull2   r2,r5
5165         mull3   r2,r4,-316(fp)
5166         mull2   r0,r4
5167         addl3   -312(fp),-316(fp),r0
5168         bicl3   #0,r0,-312(fp)
5169         cmpl    -312(fp),-316(fp)
5170         bgequ   noname.492
5171         addl2   #65536,r4
5172 noname.492:
5173         movzwl  -310(fp),r0
5174         bicl2   #-65536,r0
5175         addl2   r0,r4
5176         bicl3   #-65536,-312(fp),r0
5177         ashl    #16,r0,-316(fp)
5178         addl2   -316(fp),r5
5179         bicl2   #0,r5
5180         cmpl    r5,-316(fp)
5181         bgequ   noname.493
5182         incl    r4
5183 noname.493:
5184         movl    r5,r3
5185         movl    r4,r2
5186         bbc     #31,r2,noname.494
5187         incl    r8
5188 noname.494:
5189         addl2   r2,r2
5190         bicl2   #0,r2
5191         bbc     #31,r3,noname.495
5192         incl    r2
5193 noname.495:
5194         addl2   r3,r3
5195         bicl2   #0,r3
5196         addl2   r3,r7
5197         bicl2   #0,r7
5198         cmpl    r7,r3
5199         bgequ   noname.496
5200         incl    r2
5201         bicl3   #0,r2,r0
5202         bneq    noname.496
5203         incl    r8
5204 noname.496:
5205         addl2   r2,r9
5206         bicl2   #0,r9
5207         cmpl    r9,r2
5208         bgequ   noname.497
5209         incl    r8
5210 noname.497:
5211
5212         movl    4(ap),r0
5213         movl    r7,32(r0)
5214
5215         clrl    r7
5216
5217         movl    8(ap),r0
5218         bicl3   #-65536,28(r0),r3
5219         movzwl  30(r0),r2
5220         bicl3   #-65536,8(r0),r1
5221         movzwl  10(r0),r0
5222         bicl2   #-65536,r0
5223         movl    r3,r4
5224         bicl3   #-65536,r2,-328(fp)
5225         mull3   r0,r4,-320(fp)
5226         mull2   r1,r4
5227         mull3   r1,-328(fp),-324(fp)
5228         mull2   r0,-328(fp)
5229         addl3   -320(fp),-324(fp),r0
5230         bicl3   #0,r0,-320(fp)
5231         cmpl    -320(fp),-324(fp)
5232         bgequ   noname.498
5233         addl2   #65536,-328(fp)
5234 noname.498:
5235         movzwl  -318(fp),r0
5236         bicl2   #-65536,r0
5237         addl2   r0,-328(fp)
5238         bicl3   #-65536,-320(fp),r0
5239         ashl    #16,r0,-324(fp)
5240         addl2   -324(fp),r4
5241         bicl2   #0,r4
5242         cmpl    r4,-324(fp)
5243         bgequ   noname.499
5244         incl    -328(fp)
5245 noname.499:
5246         movl    r4,r3
5247         movl    -328(fp),r2
5248         bbc     #31,r2,noname.500
5249         incl    r7
5250 noname.500:
5251         addl2   r2,r2
5252         bicl2   #0,r2
5253         bbc     #31,r3,noname.501
5254         incl    r2
5255 noname.501:
5256         addl2   r3,r3
5257         bicl2   #0,r3
5258         addl2   r3,r9
5259         bicl2   #0,r9
5260         cmpl    r9,r3
5261         bgequ   noname.502
5262         incl    r2
5263         bicl3   #0,r2,r0
5264         bneq    noname.502
5265         incl    r7
5266 noname.502:
5267         addl2   r2,r8
5268         bicl2   #0,r8
5269         cmpl    r8,r2
5270         bgequ   noname.503
5271         incl    r7
5272 noname.503:
5273
5274         movl    8(ap),r0
5275         movzwl  26(r0),r2
5276         bicl3   #-65536,12(r0),r3
5277         movzwl  14(r0),r1
5278         bicl2   #-65536,r1
5279         bicl3   #-65536,24(r0),-340(fp)
5280         bicl3   #-65536,r2,-344(fp)
5281         mull3   r1,-340(fp),-332(fp)
5282         mull2   r3,-340(fp)
5283         mull3   r3,-344(fp),-336(fp)
5284         mull2   r1,-344(fp)
5285         addl3   -332(fp),-336(fp),r0
5286         bicl3   #0,r0,-332(fp)
5287         cmpl    -332(fp),-336(fp)
5288         bgequ   noname.504
5289         addl2   #65536,-344(fp)
5290 noname.504:
5291         movzwl  -330(fp),r0
5292         bicl2   #-65536,r0
5293         addl2   r0,-344(fp)
5294         bicl3   #-65536,-332(fp),r0
5295         ashl    #16,r0,-336(fp)
5296         addl3   -336(fp),-340(fp),r0
5297         bicl3   #0,r0,-340(fp)
5298         cmpl    -340(fp),-336(fp)
5299         bgequ   noname.505
5300         incl    -344(fp)
5301 noname.505:
5302         movl    -340(fp),r3
5303         movl    -344(fp),r2
5304         bbc     #31,r2,noname.506
5305         incl    r7
5306 noname.506:
5307         addl2   r2,r2
5308         bicl2   #0,r2
5309         bbc     #31,r3,noname.507
5310         incl    r2
5311 noname.507:
5312         addl2   r3,r3
5313         bicl2   #0,r3
5314         addl2   r3,r9
5315         bicl2   #0,r9
5316         cmpl    r9,r3
5317         bgequ   noname.508
5318         incl    r2
5319         bicl3   #0,r2,r0
5320         bneq    noname.508
5321         incl    r7
5322 noname.508:
5323         addl2   r2,r8
5324         bicl2   #0,r8
5325         cmpl    r8,r2
5326         bgequ   noname.509
5327         incl    r7
5328 noname.509:
5329
5330         movl    8(ap),r0
5331         movzwl  22(r0),r2
5332         bicl3   #-65536,16(r0),r3
5333         movzwl  18(r0),r1
5334         bicl2   #-65536,r1
5335         bicl3   #-65536,20(r0),-356(fp)
5336         bicl3   #-65536,r2,-360(fp)
5337         mull3   r1,-356(fp),-348(fp)
5338         mull2   r3,-356(fp)
5339         mull3   r3,-360(fp),-352(fp)
5340         mull2   r1,-360(fp)
5341         addl3   -348(fp),-352(fp),r0
5342         bicl3   #0,r0,-348(fp)
5343         cmpl    -348(fp),-352(fp)
5344         bgequ   noname.510
5345         addl2   #65536,-360(fp)
5346 noname.510:
5347         movzwl  -346(fp),r0
5348         bicl2   #-65536,r0
5349         addl2   r0,-360(fp)
5350         bicl3   #-65536,-348(fp),r0
5351         ashl    #16,r0,-352(fp)
5352         addl3   -352(fp),-356(fp),r0
5353         bicl3   #0,r0,-356(fp)
5354         cmpl    -356(fp),-352(fp)
5355         bgequ   noname.511
5356         incl    -360(fp)
5357 noname.511:
5358         movl    -356(fp),r3
5359         movl    -360(fp),r2
5360         bbc     #31,r2,noname.512
5361         incl    r7
5362 noname.512:
5363         addl2   r2,r2
5364         bicl2   #0,r2
5365         bbc     #31,r3,noname.513
5366         incl    r2
5367 noname.513:
5368         addl2   r3,r3
5369         bicl2   #0,r3
5370         addl2   r3,r9
5371         bicl2   #0,r9
5372         cmpl    r9,r3
5373         bgequ   noname.514
5374         incl    r2
5375         bicl3   #0,r2,r0
5376         bneq    noname.514
5377         incl    r7
5378 noname.514:
5379         addl2   r2,r8
5380         bicl2   #0,r8
5381         cmpl    r8,r2
5382         bgequ   noname.515
5383         incl    r7
5384 noname.515:
5385
5386         movl    4(ap),r0
5387         movl    r9,36(r0)
5388
5389         clrl    r9
5390
5391         movl    8(ap),r3
5392         movl    20(r3),r4
5393         bicl3   #-65536,r4,-364(fp)
5394         extzv   #16,#16,r4,r0
5395         bicl3   #-65536,r0,r4
5396         movl    -364(fp),r0
5397         mull3   r0,r4,-368(fp)
5398         mull3   r0,r0,-364(fp)
5399         mull2   r4,r4
5400         bicl3   #32767,-368(fp),r0
5401         extzv   #15,#17,r0,r0
5402         addl2   r0,r4
5403         bicl3   #-65536,-368(fp),r0
5404         ashl    #17,r0,-368(fp)
5405         addl3   -364(fp),-368(fp),r0
5406         bicl3   #0,r0,-364(fp)
5407         cmpl    -364(fp),-368(fp)
5408         bgequ   noname.516
5409         incl    r4
5410 noname.516:
5411         movl    -364(fp),r1
5412         movl    r4,r2
5413         addl2   r1,r8
5414         bicl2   #0,r8
5415         cmpl    r8,r1
5416         bgequ   noname.517
5417         incl    r2
5418 noname.517:
5419         addl2   r2,r7
5420         bicl2   #0,r7
5421         cmpl    r7,r2
5422         bgequ   noname.518
5423         incl    r9
5424 noname.518:
5425
5426         bicl3   #-65536,24(r3),r4
5427         movzwl  26(r3),r1
5428         bicl2   #-65536,r1
5429         bicl3   #-65536,16(r3),r2
5430         movzwl  18(r3),r0
5431         bicl2   #-65536,r0
5432         movl    r4,r6
5433         movl    r1,r5
5434         mull3   r0,r6,-372(fp)
5435         mull2   r2,r6
5436         mull3   r2,r5,-376(fp)
5437         mull2   r0,r5
5438         addl3   -372(fp),-376(fp),r0
5439         bicl3   #0,r0,-372(fp)
5440         cmpl    -372(fp),-376(fp)
5441         bgequ   noname.519
5442         addl2   #65536,r5
5443 noname.519:
5444         movzwl  -370(fp),r0
5445         bicl2   #-65536,r0
5446         addl2   r0,r5
5447         bicl3   #-65536,-372(fp),r0
5448         ashl    #16,r0,-376(fp)
5449         addl2   -376(fp),r6
5450         bicl2   #0,r6
5451         cmpl    r6,-376(fp)
5452         bgequ   noname.520
5453         incl    r5
5454 noname.520:
5455         movl    r6,r3
5456         movl    r5,r2
5457         bbc     #31,r2,noname.521
5458         incl    r9
5459 noname.521:
5460         addl2   r2,r2
5461         bicl2   #0,r2
5462         bbc     #31,r3,noname.522
5463         incl    r2
5464 noname.522:
5465         addl2   r3,r3
5466         bicl2   #0,r3
5467         addl2   r3,r8
5468         bicl2   #0,r8
5469         cmpl    r8,r3
5470         bgequ   noname.523
5471         incl    r2
5472         bicl3   #0,r2,r0
5473         bneq    noname.523
5474         incl    r9
5475 noname.523:
5476         addl2   r2,r7
5477         bicl2   #0,r7
5478         cmpl    r7,r2
5479         bgequ   noname.524
5480         incl    r9
5481 noname.524:
5482
5483         movl    8(ap),r0
5484         bicl3   #-65536,28(r0),r3
5485         movzwl  30(r0),r1
5486         bicl2   #-65536,r1
5487         bicl3   #-65536,12(r0),r2
5488         movzwl  14(r0),r0
5489         bicl2   #-65536,r0
5490         movl    r3,r5
5491         movl    r1,r4
5492         mull3   r0,r5,-380(fp)
5493         mull2   r2,r5
5494         mull3   r2,r4,-384(fp)
5495         mull2   r0,r4
5496         addl3   -380(fp),-384(fp),r0
5497         bicl3   #0,r0,-380(fp)
5498         cmpl    -380(fp),-384(fp)
5499         bgequ   noname.525
5500         addl2   #65536,r4
5501 noname.525:
5502         movzwl  -378(fp),r0
5503         bicl2   #-65536,r0
5504         addl2   r0,r4
5505         bicl3   #-65536,-380(fp),r0
5506         ashl    #16,r0,-384(fp)
5507         addl2   -384(fp),r5
5508         bicl2   #0,r5
5509         cmpl    r5,-384(fp)
5510         bgequ   noname.526
5511         incl    r4
5512 noname.526:
5513         movl    r5,r3
5514         movl    r4,r2
5515         bbc     #31,r2,noname.527
5516         incl    r9
5517 noname.527:
5518         addl2   r2,r2
5519         bicl2   #0,r2
5520         bbc     #31,r3,noname.528
5521         incl    r2
5522 noname.528:
5523         addl2   r3,r3
5524         bicl2   #0,r3
5525         addl2   r3,r8
5526         bicl2   #0,r8
5527         cmpl    r8,r3
5528         bgequ   noname.529
5529         incl    r2
5530         bicl3   #0,r2,r0
5531         bneq    noname.529
5532         incl    r9
5533 noname.529:
5534         addl2   r2,r7
5535         bicl2   #0,r7
5536         cmpl    r7,r2
5537         bgequ   noname.530
5538         incl    r9
5539 noname.530:
5540         movl    4(ap),r0
5541         movl    r8,40(r0)
5542
5543         clrl    r8
5544
5545         movl    8(ap),r0
5546         bicl3   #-65536,28(r0),r3
5547         movzwl  30(r0),r1
5548         bicl2   #-65536,r1
5549         bicl3   #-65536,16(r0),r2
5550         movzwl  18(r0),r0
5551         bicl2   #-65536,r0
5552         movl    r3,r5
5553         movl    r1,r4
5554         mull3   r0,r5,-388(fp)
5555         mull2   r2,r5
5556         mull3   r2,r4,-392(fp)
5557         mull2   r0,r4
5558         addl3   -388(fp),-392(fp),r0
5559         bicl3   #0,r0,-388(fp)
5560         cmpl    -388(fp),-392(fp)
5561         bgequ   noname.531
5562         addl2   #65536,r4
5563 noname.531:
5564         movzwl  -386(fp),r0
5565         bicl2   #-65536,r0
5566         addl2   r0,r4
5567         bicl3   #-65536,-388(fp),r0
5568         ashl    #16,r0,-392(fp)
5569         addl2   -392(fp),r5
5570         bicl2   #0,r5
5571         cmpl    r5,-392(fp)
5572         bgequ   noname.532
5573         incl    r4
5574 noname.532:
5575         movl    r5,r3
5576         movl    r4,r2
5577         bbc     #31,r2,noname.533
5578         incl    r8
5579 noname.533:
5580         addl2   r2,r2
5581         bicl2   #0,r2
5582         bbc     #31,r3,noname.534
5583         incl    r2
5584 noname.534:
5585         addl2   r3,r3
5586         bicl2   #0,r3
5587         addl2   r3,r7
5588         bicl2   #0,r7
5589         cmpl    r7,r3
5590         bgequ   noname.535
5591         incl    r2
5592         bicl3   #0,r2,r0
5593         bneq    noname.535
5594         incl    r8
5595 noname.535:
5596         addl2   r2,r9
5597         bicl2   #0,r9
5598         cmpl    r9,r2
5599         bgequ   noname.536
5600         incl    r8
5601 noname.536:
5602
5603         movl    8(ap),r0
5604         bicl3   #-65536,24(r0),r3
5605         movzwl  26(r0),r1
5606         bicl2   #-65536,r1
5607         bicl3   #-65536,20(r0),r2
5608         movzwl  22(r0),r0
5609         bicl2   #-65536,r0
5610         movl    r3,r5
5611         movl    r1,r4
5612         mull3   r0,r5,-396(fp)
5613         mull2   r2,r5
5614         mull3   r2,r4,-400(fp)
5615         mull2   r0,r4
5616         addl3   -396(fp),-400(fp),r0
5617         bicl3   #0,r0,-396(fp)
5618         cmpl    -396(fp),-400(fp)
5619         bgequ   noname.537
5620         addl2   #65536,r4
5621 noname.537:
5622         movzwl  -394(fp),r0
5623         bicl2   #-65536,r0
5624         addl2   r0,r4
5625         bicl3   #-65536,-396(fp),r0
5626         ashl    #16,r0,-400(fp)
5627         addl2   -400(fp),r5
5628         bicl2   #0,r5
5629         cmpl    r5,-400(fp)
5630         bgequ   noname.538
5631         incl    r4
5632 noname.538:
5633         movl    r5,r3
5634         movl    r4,r2
5635         bbc     #31,r2,noname.539
5636         incl    r8
5637 noname.539:
5638         addl2   r2,r2
5639         bicl2   #0,r2
5640         bbc     #31,r3,noname.540
5641         incl    r2
5642 noname.540:
5643         addl2   r3,r3
5644         bicl2   #0,r3
5645         addl2   r3,r7
5646         bicl2   #0,r7
5647         cmpl    r7,r3
5648         bgequ   noname.541
5649         incl    r2
5650         bicl3   #0,r2,r0
5651         bneq    noname.541
5652         incl    r8
5653 noname.541:
5654         addl2   r2,r9
5655         bicl2   #0,r9
5656         cmpl    r9,r2
5657         bgequ   noname.542
5658         incl    r8
5659 noname.542:
5660
5661         movl    4(ap),r0
5662         movl    r7,44(r0)
5663
5664         clrl    r7
5665
5666         movl    8(ap),r3
5667         movl    24(r3),r4
5668         bicl3   #-65536,r4,r5
5669         extzv   #16,#16,r4,r0
5670         bicl3   #-65536,r0,r4
5671         mull3   r5,r4,-404(fp)
5672         mull2   r5,r5
5673         mull2   r4,r4
5674         bicl3   #32767,-404(fp),r0
5675         extzv   #15,#17,r0,r0
5676         addl2   r0,r4
5677         bicl3   #-65536,-404(fp),r0
5678         ashl    #17,r0,-404(fp)
5679         addl2   -404(fp),r5
5680         bicl2   #0,r5
5681         cmpl    r5,-404(fp)
5682         bgequ   noname.543
5683         incl    r4
5684 noname.543:
5685         movl    r5,r1
5686         movl    r4,r2
5687         addl2   r1,r9
5688         bicl2   #0,r9
5689         cmpl    r9,r1
5690         bgequ   noname.544
5691         incl    r2
5692 noname.544:
5693         addl2   r2,r8
5694         bicl2   #0,r8
5695         cmpl    r8,r2
5696         bgequ   noname.545
5697         incl    r7
5698 noname.545:
5699
5700         movzwl  30(r3),r2
5701         bicl3   #-65536,20(r3),r1
5702         movzwl  22(r3),r0
5703         bicl2   #-65536,r0
5704         bicl3   #-65536,28(r3),-416(fp)
5705         bicl3   #-65536,r2,-420(fp)
5706         mull3   r0,-416(fp),-408(fp)
5707         mull2   r1,-416(fp)
5708         mull3   r1,-420(fp),-412(fp)
5709         mull2   r0,-420(fp)
5710         addl3   -408(fp),-412(fp),r0
5711         bicl3   #0,r0,-408(fp)
5712         cmpl    -408(fp),-412(fp)
5713         bgequ   noname.546
5714         addl2   #65536,-420(fp)
5715 noname.546:
5716         movzwl  -406(fp),r0
5717         bicl2   #-65536,r0
5718         addl2   r0,-420(fp)
5719         bicl3   #-65536,-408(fp),r0
5720         ashl    #16,r0,-412(fp)
5721         addl3   -412(fp),-416(fp),r0
5722         bicl3   #0,r0,-416(fp)
5723         cmpl    -416(fp),-412(fp)
5724         bgequ   noname.547
5725         incl    -420(fp)
5726 noname.547:
5727         movl    -416(fp),r3
5728         movl    -420(fp),r2
5729         bbc     #31,r2,noname.548
5730         incl    r7
5731 noname.548:
5732         addl2   r2,r2
5733         bicl2   #0,r2
5734         bbc     #31,r3,noname.549
5735         incl    r2
5736 noname.549:
5737         addl2   r3,r3
5738         bicl2   #0,r3
5739         addl2   r3,r9
5740         bicl2   #0,r9
5741         cmpl    r9,r3
5742         bgequ   noname.550
5743         incl    r2
5744         bicl3   #0,r2,r0
5745         bneq    noname.550
5746         incl    r7
5747 noname.550:
5748         addl2   r2,r8
5749         bicl2   #0,r8
5750         cmpl    r8,r2
5751         bgequ   noname.551
5752         incl    r7
5753 noname.551:
5754
5755         movl    4(ap),r0
5756         movl    r9,48(r0)
5757
5758         clrl    r9
5759
5760         movl    8(ap),r0
5761         movzwl  30(r0),r2
5762         bicl3   #-65536,24(r0),r3
5763         movzwl  26(r0),r1
5764         bicl2   #-65536,r1
5765         bicl3   #-65536,28(r0),-432(fp)
5766         bicl3   #-65536,r2,-436(fp)
5767         mull3   r1,-432(fp),-424(fp)
5768         mull2   r3,-432(fp)
5769         mull3   r3,-436(fp),-428(fp)
5770         mull2   r1,-436(fp)
5771         addl3   -424(fp),-428(fp),r0
5772         bicl3   #0,r0,-424(fp)
5773         cmpl    -424(fp),-428(fp)
5774         bgequ   noname.552
5775         addl2   #65536,-436(fp)
5776 noname.552:
5777         movzwl  -422(fp),r0
5778         bicl2   #-65536,r0
5779         addl2   r0,-436(fp)
5780         bicl3   #-65536,-424(fp),r0
5781         ashl    #16,r0,-428(fp)
5782         addl3   -428(fp),-432(fp),r0
5783         bicl3   #0,r0,-432(fp)
5784         cmpl    -432(fp),-428(fp)
5785         bgequ   noname.553
5786         incl    -436(fp)
5787 noname.553:
5788         movl    -432(fp),r3
5789         movl    -436(fp),r2
5790         bbc     #31,r2,noname.554
5791         incl    r9
5792 noname.554:
5793         addl2   r2,r2
5794         bicl2   #0,r2
5795         bbc     #31,r3,noname.555
5796         incl    r2
5797 noname.555:
5798         addl2   r3,r3
5799         bicl2   #0,r3
5800         addl2   r3,r8
5801         bicl2   #0,r8
5802         cmpl    r8,r3
5803         bgequ   noname.556
5804         incl    r2
5805         bicl3   #0,r2,r0
5806         bneq    noname.556
5807         incl    r9
5808 noname.556:
5809         addl2   r2,r7
5810         bicl2   #0,r7
5811         cmpl    r7,r2
5812         bgequ   noname.557
5813         incl    r9
5814 noname.557:
5815
5816         movl    4(ap),r4
5817         movl    r8,52(r4)
5818
5819         clrl    r8
5820
5821         movl    8(ap),r0
5822         movl    28(r0),r3
5823         bicl3   #-65536,r3,-440(fp)
5824         extzv   #16,#16,r3,r0
5825         bicl3   #-65536,r0,r3
5826         movl    -440(fp),r0
5827         mull3   r0,r3,-444(fp)
5828         mull3   r0,r0,-440(fp)
5829         mull2   r3,r3
5830         bicl3   #32767,-444(fp),r0
5831         extzv   #15,#17,r0,r0
5832         addl2   r0,r3
5833         bicl3   #-65536,-444(fp),r0
5834         ashl    #17,r0,-444(fp)
5835         addl3   -440(fp),-444(fp),r0
5836         bicl3   #0,r0,-440(fp)
5837         cmpl    -440(fp),-444(fp)
5838         bgequ   noname.558
5839         incl    r3
5840 noname.558:
5841         movl    -440(fp),r1
5842         movl    r3,r2
5843         addl2   r1,r7
5844         bicl2   #0,r7
5845         cmpl    r7,r1
5846         bgequ   noname.559
5847         incl    r2
5848 noname.559:
5849         addl2   r2,r9
5850         bicl2   #0,r9
5851         cmpl    r9,r2
5852         bgequ   noname.560
5853         incl    r8
5854 noname.560:
5855
5856         movl    r7,56(r4)
5857
5858         movl    r9,60(r4)
5859
5860         ret
5861
5862 \f
5863
5864 ;r=4 ;(AP)
5865 ;a=8 ;(AP)
5866 ;b=12 ;(AP)
5867 ;n=16 ;(AP)     n       by value (input)
5868
5869         .psect  code,nowrt
5870
5871 .entry  BN_SQR_COMBA4,^m<r2,r3,r4,r5,r6,r7,r8,r9,r10>
5872         subl2   #44,sp
5873
5874         clrq    r8
5875
5876         clrl    r10
5877
5878         movl    8(ap),r5
5879         movl    (r5),r3
5880         bicl3   #-65536,r3,r4
5881         extzv   #16,#16,r3,r0
5882         bicl3   #-65536,r0,r3
5883         mull3   r4,r3,-4(fp)
5884         mull2   r4,r4
5885         mull2   r3,r3
5886         bicl3   #32767,-4(fp),r0
5887         extzv   #15,#17,r0,r0
5888         addl2   r0,r3
5889         bicl3   #-65536,-4(fp),r0
5890         ashl    #17,r0,-4(fp)
5891         addl2   -4(fp),r4
5892         bicl2   #0,r4
5893         cmpl    r4,-4(fp)
5894         bgequ   noname.563
5895         incl    r3
5896 noname.563:
5897         movl    r4,r1
5898         movl    r3,r2
5899         addl2   r1,r9
5900         bicl2   #0,r9
5901         cmpl    r9,r1
5902         bgequ   noname.564
5903         incl    r2
5904 noname.564:
5905         addl2   r2,r8
5906         bicl2   #0,r8
5907         cmpl    r8,r2
5908         bgequ   noname.565
5909         incl    r10
5910 noname.565:
5911
5912         movl    r9,@4(ap)
5913
5914         clrl    r9
5915
5916         bicl3   #-65536,4(r5),r3
5917         movzwl  6(r5),r1
5918         bicl2   #-65536,r1
5919         bicl3   #-65536,(r5),r2
5920         movzwl  2(r5),r0
5921         bicl2   #-65536,r0
5922         movl    r3,r6
5923         movl    r1,r4
5924         mull3   r0,r6,-8(fp)
5925         mull2   r2,r6
5926         mull2   r4,r2
5927         mull2   r0,r4
5928         addl3   -8(fp),r2,r0
5929         bicl3   #0,r0,-8(fp)
5930         cmpl    -8(fp),r2
5931         bgequ   noname.566
5932         addl2   #65536,r4
5933 noname.566:
5934         movzwl  -6(fp),r0
5935         bicl2   #-65536,r0
5936         addl2   r0,r4
5937         bicl3   #-65536,-8(fp),r0
5938         ashl    #16,r0,r1
5939         addl2   r1,r6
5940         bicl2   #0,r6
5941         cmpl    r6,r1
5942         bgequ   noname.567
5943         incl    r4
5944 noname.567:
5945         movl    r6,r3
5946         movl    r4,r2
5947         bbc     #31,r2,noname.568
5948         incl    r9
5949 noname.568:
5950         addl2   r2,r2
5951         bicl2   #0,r2
5952         bbc     #31,r3,noname.569
5953         incl    r2
5954 noname.569:
5955         addl2   r3,r3
5956         bicl2   #0,r3
5957         addl2   r3,r8
5958         bicl2   #0,r8
5959         cmpl    r8,r3
5960         bgequ   noname.570
5961         incl    r2
5962         bicl3   #0,r2,r0
5963         bneq    noname.570
5964         incl    r9
5965 noname.570:
5966         addl2   r2,r10
5967         bicl2   #0,r10
5968         cmpl    r10,r2
5969         bgequ   noname.571
5970         incl    r9
5971 noname.571:
5972
5973         movl    4(ap),r0
5974         movl    r8,4(r0)
5975
5976         clrl    r8
5977
5978         movl    8(ap),r4
5979         movl    4(r4),r3
5980         bicl3   #-65536,r3,r5
5981         extzv   #16,#16,r3,r0
5982         bicl3   #-65536,r0,r3
5983         mull3   r5,r3,r1
5984         mull2   r5,r5
5985         mull2   r3,r3
5986         bicl3   #32767,r1,r0
5987         extzv   #15,#17,r0,r0
5988         addl2   r0,r3
5989         bicl2   #-65536,r1
5990         ashl    #17,r1,r1
5991         addl2   r1,r5
5992         bicl2   #0,r5
5993         cmpl    r5,r1
5994         bgequ   noname.572
5995         incl    r3
5996 noname.572:
5997         movl    r5,r1
5998         movl    r3,r2
5999         addl2   r1,r10
6000         bicl2   #0,r10
6001         cmpl    r10,r1
6002         bgequ   noname.573
6003         incl    r2
6004 noname.573:
6005         addl2   r2,r9
6006         bicl2   #0,r9
6007         cmpl    r9,r2
6008         bgequ   noname.574
6009         incl    r8
6010 noname.574:
6011
6012         bicl3   #-65536,8(r4),r3
6013         movzwl  10(r4),r1
6014         bicl2   #-65536,r1
6015         bicl3   #-65536,(r4),r2
6016         movzwl  2(r4),r0
6017         bicl2   #-65536,r0
6018         movl    r3,r6
6019         movl    r1,r5
6020         mull3   r0,r6,r7
6021         mull2   r2,r6
6022         mull2   r5,r2
6023         mull2   r0,r5
6024         addl2   r2,r7
6025         bicl2   #0,r7
6026         cmpl    r7,r2
6027         bgequ   noname.575
6028         addl2   #65536,r5
6029 noname.575:
6030         extzv   #16,#16,r7,r0
6031         bicl2   #-65536,r0
6032         addl2   r0,r5
6033         bicl3   #-65536,r7,r0
6034         ashl    #16,r0,r1
6035         addl2   r1,r6
6036         bicl2   #0,r6
6037         cmpl    r6,r1
6038         bgequ   noname.576
6039         incl    r5
6040 noname.576:
6041         movl    r6,r3
6042         movl    r5,r2
6043         bbc     #31,r2,noname.577
6044         incl    r8
6045 noname.577:
6046         addl2   r2,r2
6047         bicl2   #0,r2
6048         bbc     #31,r3,noname.578
6049         incl    r2
6050 noname.578:
6051         addl2   r3,r3
6052         bicl2   #0,r3
6053         addl2   r3,r10
6054         bicl2   #0,r10
6055         cmpl    r10,r3
6056         bgequ   noname.579
6057         incl    r2
6058         bicl3   #0,r2,r0
6059         bneq    noname.579
6060         incl    r8
6061 noname.579:
6062         addl2   r2,r9
6063         bicl2   #0,r9
6064         cmpl    r9,r2
6065         bgequ   noname.580
6066         incl    r8
6067 noname.580:
6068
6069         movl    4(ap),r0
6070         movl    r10,8(r0)
6071
6072         clrl    r10
6073
6074         movl    8(ap),r0
6075         bicl3   #-65536,12(r0),r3
6076         movzwl  14(r0),r1
6077         bicl2   #-65536,r1
6078         bicl3   #-65536,(r0),r2
6079         movzwl  2(r0),r0
6080         bicl2   #-65536,r0
6081         movl    r3,r5
6082         movl    r1,r4
6083         mull3   r0,r5,r6
6084         mull2   r2,r5
6085         mull3   r2,r4,-12(fp)
6086         mull2   r0,r4
6087         addl2   -12(fp),r6
6088         bicl2   #0,r6
6089         cmpl    r6,-12(fp)
6090         bgequ   noname.581
6091         addl2   #65536,r4
6092 noname.581:
6093         extzv   #16,#16,r6,r0
6094         bicl2   #-65536,r0
6095         addl2   r0,r4
6096         bicl3   #-65536,r6,r0
6097         ashl    #16,r0,-12(fp)
6098         addl2   -12(fp),r5
6099         bicl2   #0,r5
6100         cmpl    r5,-12(fp)
6101         bgequ   noname.582
6102         incl    r4
6103 noname.582:
6104         movl    r5,r3
6105         movl    r4,r2
6106         bbc     #31,r2,noname.583
6107         incl    r10
6108 noname.583:
6109         addl2   r2,r2
6110         bicl2   #0,r2
6111         bbc     #31,r3,noname.584
6112         incl    r2
6113 noname.584:
6114         addl2   r3,r3
6115         bicl2   #0,r3
6116         addl2   r3,r9
6117         bicl2   #0,r9
6118         cmpl    r9,r3
6119         bgequ   noname.585
6120         incl    r2
6121         bicl3   #0,r2,r0
6122         bneq    noname.585
6123         incl    r10
6124 noname.585:
6125         addl2   r2,r8
6126         bicl2   #0,r8
6127         cmpl    r8,r2
6128         bgequ   noname.586
6129         incl    r10
6130 noname.586:
6131
6132         movl    8(ap),r0
6133         bicl3   #-65536,8(r0),r3
6134         movzwl  10(r0),r1
6135         bicl2   #-65536,r1
6136         bicl3   #-65536,4(r0),r2
6137         movzwl  6(r0),r0
6138         bicl2   #-65536,r0
6139         movl    r3,r5
6140         movl    r1,r4
6141         mull3   r0,r5,-16(fp)
6142         mull2   r2,r5
6143         mull3   r2,r4,-20(fp)
6144         mull2   r0,r4
6145         addl3   -16(fp),-20(fp),r0
6146         bicl3   #0,r0,-16(fp)
6147         cmpl    -16(fp),-20(fp)
6148         bgequ   noname.587
6149         addl2   #65536,r4
6150 noname.587:
6151         movzwl  -14(fp),r0
6152         bicl2   #-65536,r0
6153         addl2   r0,r4
6154         bicl3   #-65536,-16(fp),r0
6155         ashl    #16,r0,-20(fp)
6156         addl2   -20(fp),r5
6157         bicl2   #0,r5
6158         cmpl    r5,-20(fp)
6159         bgequ   noname.588
6160         incl    r4
6161 noname.588:
6162         movl    r5,r3
6163         movl    r4,r2
6164         bbc     #31,r2,noname.589
6165         incl    r10
6166 noname.589:
6167         addl2   r2,r2
6168         bicl2   #0,r2
6169         bbc     #31,r3,noname.590
6170         incl    r2
6171 noname.590:
6172         addl2   r3,r3
6173         bicl2   #0,r3
6174         addl2   r3,r9
6175         bicl2   #0,r9
6176         cmpl    r9,r3
6177         bgequ   noname.591
6178         incl    r2
6179         bicl3   #0,r2,r0
6180         bneq    noname.591
6181         incl    r10
6182 noname.591:
6183         addl2   r2,r8
6184         bicl2   #0,r8
6185         cmpl    r8,r2
6186         bgequ   noname.592
6187         incl    r10
6188 noname.592:
6189         movl    4(ap),r0
6190         movl    r9,12(r0)
6191
6192         clrl    r9
6193
6194         movl    8(ap),r3
6195         movl    8(r3),r4
6196         bicl3   #-65536,r4,r5
6197         extzv   #16,#16,r4,r0
6198         bicl3   #-65536,r0,r4
6199         mull3   r5,r4,-24(fp)
6200         mull2   r5,r5
6201         mull2   r4,r4
6202         bicl3   #32767,-24(fp),r0
6203         extzv   #15,#17,r0,r0
6204         addl2   r0,r4
6205         bicl3   #-65536,-24(fp),r0
6206         ashl    #17,r0,-24(fp)
6207         addl2   -24(fp),r5
6208         bicl2   #0,r5
6209         cmpl    r5,-24(fp)
6210         bgequ   noname.593
6211         incl    r4
6212 noname.593:
6213         movl    r5,r1
6214         movl    r4,r2
6215         addl2   r1,r8
6216         bicl2   #0,r8
6217         cmpl    r8,r1
6218         bgequ   noname.594
6219         incl    r2
6220 noname.594:
6221         addl2   r2,r10
6222         bicl2   #0,r10
6223         cmpl    r10,r2
6224         bgequ   noname.595
6225         incl    r9
6226 noname.595:
6227
6228         bicl3   #-65536,12(r3),r4
6229         movzwl  14(r3),r1
6230         bicl2   #-65536,r1
6231         bicl3   #-65536,4(r3),r2
6232         movzwl  6(r3),r0
6233         bicl2   #-65536,r0
6234         movl    r4,r6
6235         movl    r1,r5
6236         mull3   r0,r6,-28(fp)
6237         mull2   r2,r6
6238         mull3   r2,r5,-32(fp)
6239         mull2   r0,r5
6240         addl3   -28(fp),-32(fp),r0
6241         bicl3   #0,r0,-28(fp)
6242         cmpl    -28(fp),-32(fp)
6243         bgequ   noname.596
6244         addl2   #65536,r5
6245 noname.596:
6246         movzwl  -26(fp),r0
6247         bicl2   #-65536,r0
6248         addl2   r0,r5
6249         bicl3   #-65536,-28(fp),r0
6250         ashl    #16,r0,-32(fp)
6251         addl2   -32(fp),r6
6252         bicl2   #0,r6
6253         cmpl    r6,-32(fp)
6254         bgequ   noname.597
6255         incl    r5
6256 noname.597:
6257         movl    r6,r3
6258         movl    r5,r2
6259         bbc     #31,r2,noname.598
6260         incl    r9
6261 noname.598:
6262         addl2   r2,r2
6263         bicl2   #0,r2
6264         bbc     #31,r3,noname.599
6265         incl    r2
6266 noname.599:
6267         addl2   r3,r3
6268         bicl2   #0,r3
6269         addl2   r3,r8
6270         bicl2   #0,r8
6271         cmpl    r8,r3
6272         bgequ   noname.600
6273         incl    r2
6274         bicl3   #0,r2,r0
6275         bneq    noname.600
6276         incl    r9
6277 noname.600:
6278         addl2   r2,r10
6279         bicl2   #0,r10
6280         cmpl    r10,r2
6281         bgequ   noname.601
6282         incl    r9
6283 noname.601:
6284
6285         movl    4(ap),r0
6286         movl    r8,16(r0)
6287
6288         clrl    r8
6289
6290         movl    8(ap),r0
6291         bicl3   #-65536,12(r0),r3
6292         movzwl  14(r0),r1
6293         bicl2   #-65536,r1
6294         bicl3   #-65536,8(r0),r2
6295         movzwl  10(r0),r0
6296         bicl2   #-65536,r0
6297         movl    r3,r5
6298         movl    r1,r4
6299         mull3   r0,r5,-36(fp)
6300         mull2   r2,r5
6301         mull3   r2,r4,-40(fp)
6302         mull2   r0,r4
6303         addl3   -36(fp),-40(fp),r0
6304         bicl3   #0,r0,-36(fp)
6305         cmpl    -36(fp),-40(fp)
6306         bgequ   noname.602
6307         addl2   #65536,r4
6308 noname.602:
6309         movzwl  -34(fp),r0
6310         bicl2   #-65536,r0
6311         addl2   r0,r4
6312         bicl3   #-65536,-36(fp),r0
6313         ashl    #16,r0,-40(fp)
6314         addl2   -40(fp),r5
6315         bicl2   #0,r5
6316         cmpl    r5,-40(fp)
6317         bgequ   noname.603
6318         incl    r4
6319 noname.603:
6320         movl    r5,r3
6321         movl    r4,r2
6322         bbc     #31,r2,noname.604
6323         incl    r8
6324 noname.604:
6325         addl2   r2,r2
6326         bicl2   #0,r2
6327         bbc     #31,r3,noname.605
6328         incl    r2
6329 noname.605:
6330         addl2   r3,r3
6331         bicl2   #0,r3
6332         addl2   r3,r10
6333         bicl2   #0,r10
6334         cmpl    r10,r3
6335         bgequ   noname.606
6336         incl    r2
6337         bicl3   #0,r2,r0
6338         bneq    noname.606
6339         incl    r8
6340 noname.606:
6341         addl2   r2,r9
6342         bicl2   #0,r9
6343         cmpl    r9,r2
6344         bgequ   noname.607
6345         incl    r8
6346 noname.607:
6347
6348         movl    4(ap),r4
6349         movl    r10,20(r4)
6350
6351         clrl    r10
6352
6353         movl    8(ap),r0
6354         movl    12(r0),r3
6355         bicl3   #-65536,r3,r5
6356         extzv   #16,#16,r3,r0
6357         bicl3   #-65536,r0,r3
6358         mull3   r5,r3,-44(fp)
6359         mull2   r5,r5
6360         mull2   r3,r3
6361         bicl3   #32767,-44(fp),r0
6362         extzv   #15,#17,r0,r0
6363         addl2   r0,r3
6364         bicl3   #-65536,-44(fp),r0
6365         ashl    #17,r0,-44(fp)
6366         addl2   -44(fp),r5
6367         bicl2   #0,r5
6368         cmpl    r5,-44(fp)
6369         bgequ   noname.608
6370         incl    r3
6371 noname.608:
6372         movl    r5,r1
6373         movl    r3,r2
6374         addl2   r1,r9
6375         bicl2   #0,r9
6376         cmpl    r9,r1
6377         bgequ   noname.609
6378         incl    r2
6379 noname.609:
6380         addl2   r2,r8
6381         bicl2   #0,r8
6382         cmpl    r8,r2
6383         bgequ   noname.610
6384         incl    r10
6385 noname.610:
6386
6387         movl    r9,24(r4)
6388
6389         movl    r8,28(r4)
6390
6391         ret
6392
6393 ; For now, the code below doesn't work, so I end this prematurely.
6394 .end