crypto/bn/asm/vms.mar

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