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