crypto/bn/asm/vms.mar

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