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