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