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