Magazyn Amiga 5/MA_Cover_5.iso/ppc/mesa/src/eval.s

Text File | 1998-01-31 | 183.6 KB | 10,874 lines

; Storm C Compiler
; TEMP:Mesa_2_5/src/eval.c
    mc68030
    mc68881
    XREF    _gl_End
    XREF    _gl_Begin
    XREF    _gl_eval_vertex
    XREF    _gl_error
    XREF    _malloc
    XREF    _free
    XREF    _sqrt__r
    XREF    _std__in
    XREF    _std__out
    XREF    _std__err
    XREF    _CC

    SECTION "_gl_init_eval:0",CODE


;void gl_init_eval( void )
    XDEF    _gl_init_eval
_gl_init_eval
L630
;  if (init_flag==0)
L631
;  init_flag = 1;
    move.l    #1,_init_flag___gl_init_eval
    rts

    SECTION "_gl_init_eval:1",DATA

_init_flag___gl_init_eval
    dc.l    0

    SECTION "_horner_bezier_curve:0",CODE

    rts

;static void
_horner_bezier_curve
    movem.l    d2-d5/a2,-(a7)
    fmovem.x fp2/fp3/fp4/fp5,-(a7)
    movem.l    $54(a7),d2/d4
    move.l    $4C(a7),a0
    move.l    $48(a7),a1
    fmove.s    $50(a7),fp5
L632
;  if(order >= 2)
    cmp.l    #2,d4
    blo    L643
L633
;    bincoeff = order-1;
    move.l    d4,d1
    subq.l    #1,d1
;    s = 1.0-t;
    fmove.x    fp5,fp0
    fmove.d    #$.3FF00000.00000000,fp1
    fsub.x    fp0,fp1
    fmove.x    fp1,fp0
    fmove.x    fp0,fp4
;    for(k=0;
    moveq    #0,d0
    bra.b    L635
L634
;      out[k] = s*cp[k] + bincoeff*t*cp[dim+k];
    lea    0(a1,d0.l*4),a2
    fmove.s    (a2),fp1
    fmul.x    fp4,fp1
    fmove.l    d1,fp0
    fmul.x    fp5,fp0
    move.l    d2,d3
    add.l    d0,d3
    lea    0(a1,d3.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp2,fp0
    fadd.x    fp0,fp1
    lea    0(a0,d0.l*4),a2
    fmove.s    fp1,(a2)
    addq.l    #1,d0
L635
    cmp.l    d2,d0
    blo.b    L634
L636
;    for(i=2, cp+=2*dim, powert=t*t;
    moveq    #2,d3
    move.l    d2,d0
    moveq    #1,d5
    asl.l    d5,d0
    moveq    #2,d5
    asl.l    d5,d0
    add.l    d0,a1
    fmove.x    fp5,fp3
    fmul.x    fp5,fp3
    bra.b    L641
L637
;      bincoeff *= order-i;
    move.l    d4,d0
    sub.l    d3,d0
    mulu.l    d0,d1
;      bincoeff /= i;
    divul.l    d3,d1
;      for(k=0;
    moveq    #0,d0
    bra.b    L639
L638
;    out[k] = s*out[k] + bincoeff*powert*cp[k];
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp1
    fmul.x    fp4,fp1
    fmove.l    d1,fp0
    fmul.x    fp3,fp0
    lea    0(a1,d0.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp2,fp0
    fadd.x    fp0,fp1
    lea    0(a0,d0.l*4),a2
    fmove.s    fp1,(a2)
    addq.l    #1,d0
L639
    cmp.l    d2,d0
    blo.b    L638
L640
    addq.l    #1,d3
    fmul.x    fp5,fp3
    move.l    d2,d0
    moveq    #2,d5
    asl.l    d5,d0
    move.l    d0,a2
    move.l    a2,d0
    add.l    d0,a1
L641
    cmp.l    d4,d3
    blo.b    L637
L642
    bra.b    L646
L643
;    for(k=0;
    moveq    #0,d0
    bra.b    L645
L644
;      out[k] = cp[k];
    lea    0(a1,d0.l*4),a2
    fmove.s    (a2),fp0
    lea    0(a0,d0.l*4),a2
    fmove.s    fp0,(a2)
    addq.l    #1,d0
L645
    cmp.l    d2,d0
    blo.b    L644
L646
    fmovem.x (a7)+,fp2/fp3/fp4/fp5
    movem.l    (a7)+,d2-d5/a2
    rts

    SECTION "_horner_bezier_surf:0",CODE


;static void
_horner_bezier_surf
L671    EQU    -$28
    link    a5,#L671
    movem.l    d2-d6/a2,-(a7)
    fmovem.x fp2/fp3/fp4/fp5,-(a7)
    move.l    $18(a5),d2
    fmove.s    $10(a5),fp5
L647
;  GLfloat *cp = cn + uorder*vorder*dim;
    move.l    $1C(a5),d0
    mulu.l    $20(a5),d0
    mulu.l    d2,d0
    move.l    $8(a5),a0
    lea    0(a0,d0.l*4),a2
;  GLuint i, uinc = vorder*dim;
    move.l    $20(a5),d0
    mulu.l    d2,d0
    move.l    d0,-$C(a5)
;  if(vorder > uorder)
    move.l    $20(a5),d0
    cmp.l    $1C(a5),d0
    bls    L664
L648
;    if(uorder >= 2)
    move.l    $1C(a5),d0
    cmp.l    #2,d0
    blo    L662
L649
;      for(j=0;
    moveq    #0,d3
    bra    L660
L650
;    GLfloat *ucp = &cn[j*dim];
    move.l    d3,d0
    mulu.l    d2,d0
    move.l    $8(a5),a1
    lea    0(a1,d0.l*4),a0
;    bincoeff = uorder-1;
    move.l    $1C(a5),d4
    subq.l    #1,d4
;    s = 1.0-u;
    fmove.x    fp5,fp0
    fmove.d    #$.3FF00000.00000000,fp1
    fsub.x    fp0,fp1
    fmove.x    fp1,fp0
    fmove.x    fp0,fp4
;    for(k=0;
    moveq    #0,d0
    bra.b    L652
L651
;      cp[j*dim+k] = s*ucp[k] + bincoeff*u*ucp[uinc+k];
    lea    0(a0,d0.l*4),a1
    fmove.s    (a1),fp1
    fmul.x    fp4,fp1
    fmove.l    d4,fp0
    fmul.x    fp5,fp0
    move.l    -$C(a5),d1
    add.l    d0,d1
    lea    0(a0,d1.l*4),a1
    fmove.s    (a1),fp2
    fmul.x    fp2,fp0
    fadd.x    fp0,fp1
    move.l    d3,d1
    mulu.l    d2,d1
    add.l    d0,d1
    lea    0(a2,d1.l*4),a1
    fmove.s    fp1,(a1)
    addq.l    #1,d0
L652
    cmp.l    d2,d0
    blo.b    L651
L653
;    for(i=2, ucp+=2*uinc, poweru=u*u;
    moveq    #2,d5
    move.l    -$C(a5),d0
    moveq    #1,d1
    asl.l    d1,d0
    moveq    #2,d1
    asl.l    d1,d0
    add.l    d0,a0
    fmove.x    fp5,fp3
    fmul.x    fp5,fp3
    bra.b    L658
L654
;      bincoeff *= uorder-i;
    move.l    $1C(a5),d0
    sub.l    d5,d0
    mulu.l    d0,d4
;      bincoeff /= i;
    divul.l    d5,d4
;      for(k=0;
    moveq    #0,d0
    bra.b    L656
L655
;        cp[j*dim+k] = s*cp[j*dim+k] + bincoeff*poweru*ucp[k];
    move.l    d3,d1
    mulu.l    d2,d1
    add.l    d0,d1
    lea    0(a2,d1.l*4),a1
    fmove.s    (a1),fp1
    fmul.x    fp4,fp1
    fmove.l    d4,fp0
    fmul.x    fp3,fp0
    lea    0(a0,d0.l*4),a1
    fmove.s    (a1),fp2
    fmul.x    fp2,fp0
    fadd.x    fp0,fp1
    move.l    d3,d1
    mulu.l    d2,d1
    add.l    d0,d1
    lea    0(a2,d1.l*4),a1
    fmove.s    fp1,(a1)
    addq.l    #1,d0
L656
    cmp.l    d2,d0
    blo.b    L655
L657
    addq.l    #1,d5
    fmul.x    fp5,fp3
    move.l    -$C(a5),d0
    moveq    #2,d1
    asl.l    d1,d0
    move.l    d0,a1
    move.l    a1,d0
    add.l    d0,a0
L658
    cmp.l    $1C(a5),d5
    blo.b    L654
L659
    addq.l    #1,d3
L660
    cmp.l    $20(a5),d3
    blo    L650
L661
;      horner_bezier_curve(cp, out, v, dim, vorder);
    move.l    $20(a5),-(a7)
    move.l    d2,-(a7)
    move.l    $14(a5),-(a7)
    move.l    $C(a5),-(a7)
    move.l    a2,-(a7)
    jsr    _horner_bezier_curve
    add.w    #$14,a7
    bra.b    L663
L662
;      horner_bezier_curve(cn, out, v, dim, vorder);
    move.l    $20(a5),-(a7)
    move.l    d2,-(a7)
    move.l    $14(a5),-(a7)
    move.l    $C(a5),-(a7)
    move.l    $8(a5),-(a7)
    jsr    _horner_bezier_curve
    add.w    #$14,a7
L663
    bra    L670
L664
;    if(vorder > 1)
    move.l    $20(a5),d0
    cmp.l    #1,d0
    bls.b    L669
L665
;      for(i=0;
    moveq    #0,d3
    bra.b    L667
L666
;    horner_bezier_curve(cn, &cp[i*dim], v, dim, vorder);
    move.l    $20(a5),-(a7)
    move.l    d2,-(a7)
    move.l    $14(a5),-(a7)
    move.l    d3,d0
    mulu.l    d2,d0
    lea    0(a2,d0.l*4),a0
    move.l    a0,-(a7)
    move.l    $8(a5),-(a7)
    jsr    _horner_bezier_curve
    add.w    #$14,a7
    addq.l    #1,d3
    move.l    -$C(a5),d0
    moveq    #2,d1
    asl.l    d1,d0
    move.l    d0,a0
    move.l    a0,d0
    add.l    d0,$8(a5)
L667
    cmp.l    $1C(a5),d3
    blo.b    L666
L668
;      horner_bezier_curve(cp, out, u, dim, uorder);
    move.l    $1C(a5),-(a7)
    move.l    d2,-(a7)
    fmove.s    fp5,-(a7)
    move.l    $C(a5),-(a7)
    move.l    a2,-(a7)
    jsr    _horner_bezier_curve
    add.w    #$14,a7
    bra.b    L670
L669
;      horner_bezier_curve(cn, out, u, dim, uorder);
    move.l    $1C(a5),-(a7)
    move.l    d2,-(a7)
    fmove.s    fp5,-(a7)
    move.l    $C(a5),-(a7)
    move.l    $8(a5),-(a7)
    jsr    _horner_bezier_curve
    add.w    #$14,a7
L670
    fmovem.x (a7)+,fp2/fp3/fp4/fp5
    movem.l    (a7)+,d2-d6/a2
    unlk    a5
    rts

    SECTION "_de_casteljau_surf:0",CODE


;static void
_de_casteljau_surf
L785    EQU    -$90
    link    a5,#L785
    movem.l    d2-d7/a2-a4,-(a7)
    fmovem.x fp2/fp3/fp4/fp5/fp6/fp7,-(a7)
    move.l    $28(a5),d5
    move.l    $8(a5),a1
    move.l    $C(a5),a3
    fmove.s    $18(a5),fp0
    fmove.s    $1C(a5),fp3
L672
;  GLfloat *dcn = cn + uorder*vorder*dim;
    move.l    $24(a5),d0
    mulu.l    d5,d0
    mulu.l    $20(a5),d0
    lea    0(a1,d0.l*4),a0
;  GLfloat us = 1.0-u
    fmove.x    fp0,fp1
    fmove.d    #$.3FF00000.00000000,fp2
    fsub.x    fp1,fp2
    fmove.x    fp2,fp1
;  GLfloat us = 1.0-u, vs = 1.0-v;
    fmove.x    fp3,fp2
    fmove.d    #$.3FF00000.00000000,fp4
    fsub.x    fp2,fp4
    fmove.x    fp4,fp2
    fmove.x    fp2,fp4
;  GLuint minorder = uorder < vorder ? uorder : vorder;
    move.l    $24(a5),d0
    cmp.l    d5,d0
    bhs.b    L674
L673
    move.l    $24(a5),-$20(a5)
    bra.b    L675
L674
    move.l    d5,-$20(a5)
L675
;  GLuint uinc = vorder*dim;
    move.l    d5,d0
    mulu.l    $20(a5),d0
    move.l    d0,-$24(a5)
;  GLuint dcuinc = vorder;
    move.l    d5,d2
;  if(minorder < 3)
    move.l    -$20(a5),d0
    cmp.l    #3,d0
    bhs    L708
L676
;    if(uorder==vorder)
    move.l    $24(a5),d0
    cmp.l    d5,d0
    bne    L681
L677
;      for(k=0;
    clr.l    -$1C(a5)
    bra    L679
L678
;    du[k] = vs*(CN(1,0,k) - CN(0,0,k)) +
    move.l    $20(a5),d0
    moveq    #$20,d1
    asl.l    d1,d0
    add.l    -$24(a5),d0
    add.l    -$1C(a5),d0
    lea    0(a1,d0.l*4),a0
    fmove.s    (a0),fp2
    move.l    -$24(a5),d0
    moveq    #$20,d1
    asl.l    d1,d0
    move.l    $20(a5),d1
    moveq    #$20,d2
    asl.l    d2,d1
    add.l    d1,d0
    add.l    -$1C(a5),d0
    lea    0(a1,d0.l*4),a0
    fmove.s    (a0),fp5
    fsub.x    fp5,fp2
    fmul.x    fp4,fp2
    move.l    -$24(a5),d0
    add.l    $20(a5),d0
    add.l    -$1C(a5),d0
    lea    0(a1,d0.l*4),a0
    fmove.s    (a0),fp5
    move.l    -$24(a5),d0
    moveq    #$20,d1
    asl.l    d1,d0
    add.l    $20(a5),d0
    add.l    -$1C(a5),d0
    lea    0(a1,d0.l*4),a0
    move.l    (a0),-$88(a5)
    fsub.s    -$88(a5),fp5
    fmul.x    fp3,fp5
    fadd.x    fp5,fp2
    move.l    -$1C(a5),d0
    move.l    $10(a5),a2
    lea    0(a2,d0.l*4),a0
    fmove.s    fp2,(a0)
;    dv[k] = us*(CN(0,1,k) - CN(0,0,k)) +
    move.l    -$24(a5),d0
    moveq    #$20,d1
    asl.l    d1,d0
    add.l    $20(a5),d0
    add.l    -$1C(a5),d0
    lea    0(a1,d0.l*4),a0
    fmove.s    (a0),fp2
    move.l    -$24(a5),d0
    moveq    #$20,d1
    asl.l    d1,d0
    move.l    $20(a5),d1
    moveq    #$20,d2
    asl.l    d2,d1
    add.l    d1,d0
    add.l    -$1C(a5),d0
    lea    0(a1,d0.l*4),a0
    fmove.s    (a0),fp5
    fsub.x    fp5,fp2
    fmul.x    fp1,fp2
    move.l    -$24(a5),d0
    add.l    $20(a5),d0
    add.l    -$1C(a5),d0
    lea    0(a1,d0.l*4),a0
    fmove.s    (a0),fp5
    move.l    $20(a5),d0
    moveq    #$20,d1
    asl.l    d1,d0
    add.l    -$24(a5),d0
    add.l    -$1C(a5),d0
    lea    0(a1,d0.l*4),a0
    move.l    (a0),-$84(a5)
    fsub.s    -$84(a5),fp5
    fmul.x    fp0,fp5
    fadd.x    fp5,fp2
    move.l    -$1C(a5),d0
    move.l    $14(a5),a2
    lea    0(a2,d0.l*4),a0
    fmove.s    fp2,(a0)
;    out[k] =  us*(vs*CN(0,0,k) + v*CN(0,1,k)) +
    move.l    -$24(a5),d0
    moveq    #$20,d1
    asl.l    d1,d0
    move.l    $20(a5),d1
    moveq    #$20,d2
    asl.l    d2,d1
    add.l    d1,d0
    add.l    -$1C(a5),d0
    lea    0(a1,d0.l*4),a0
    fmove.s    (a0),fp2
    fmul.x    fp4,fp2
    move.l    -$24(a5),d0
    moveq    #$20,d1
    asl.l    d1,d0
    add.l    $20(a5),d0
    add.l    -$1C(a5),d0
    lea    0(a1,d0.l*4),a0
    fmove.s    (a0),fp5
    fmul.x    fp3,fp5
    fadd.x    fp5,fp2
    fmul.x    fp1,fp2
    move.l    $20(a5),d0
    moveq    #$20,d1
    asl.l    d1,d0
    add.l    -$24(a5),d0
    add.l    -$1C(a5),d0
    lea    0(a1,d0.l*4),a0
    fmove.s    (a0),fp5
    fmul.x    fp4,fp5
    move.l    -$24(a5),d0
    add.l    $20(a5),d0
    add.l    -$1C(a5),d0
    lea    0(a1,d0.l*4),a0
    move.l    (a0),-$80(a5)
    fmove.s    -$80(a5),fp6
    fmul.x    fp3,fp6
    fmove.s    fp6,-$80(a5)
    fadd.s    -$80(a5),fp5
    fmul.x    fp0,fp5
    fadd.x    fp5,fp2
    move.l    -$1C(a5),d0
    lea    0(a3,d0.l*4),a0
    fmove.s    fp2,(a0)
    addq.l    #1,-$1C(a5)
L679
    move.l    -$1C(a5),d0
    cmp.l    $20(a5),d0
    blo    L678
L680
    bra    L707
L681
;    else if(minorder == uorder)
    move.l    -$20(a5),d0
    cmp.l    $24(a5),d0
    bne    L695
L682
;      for(k=0;
    clr.l    -$1C(a5)
    bra    L693
L683
;    DCN(1,0) =    CN(1,0,k) -   CN(0,0,k);
    move.l    $20(a5),d0
    moveq    #$20,d1
    asl.l    d1,d0
    add.l    -$24(a5),d0
    add.l    -$1C(a5),d0
    lea    0(a1,d0.l*4),a2
    fmove.s    (a2),fp2
    move.l    -$24(a5),d0
    moveq    #$20,d1
    asl.l    d1,d0
    move.l    $20(a5),d1
    moveq    #$20,d3
    asl.l    d3,d1
    add.l    d1,d0
    add.l    -$1C(a5),d0
    lea    0(a1,d0.l*4),a2
    fmove.s    (a2),fp5
    fsub.x    fp5,fp2
    move.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    fp2,(a2)
;    DCN(0,0) = us*CN(0,0,k) + u*CN(1,0,k);
    move.l    -$24(a5),d0
    moveq    #$20,d1
    asl.l    d1,d0
    move.l    $20(a5),d1
    moveq    #$20,d3
    asl.l    d3,d1
    add.l    d1,d0
    add.l    -$1C(a5),d0
    lea    0(a1,d0.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp1,fp2
    move.l    $20(a5),d0
    moveq    #$20,d1
    asl.l    d1,d0
    add.l    -$24(a5),d0
    add.l    -$1C(a5),d0
    lea    0(a1,d0.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp0,fp5
    fadd.x    fp5,fp2
    move.l    d2,d0
    moveq    #$20,d1
    asl.l    d1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    fp2,(a2)
;    for(j=0;
    moveq    #0,d0
    bra    L685
L684
;      DCN(1,j+1) =    CN(1,j+1,k) -   CN(0,j+1,k);
    move.l    d0,d1
    addq.l    #1,d1
    mulu.l    $20(a5),d1
    add.l    -$24(a5),d1
    add.l    -$1C(a5),d1
    lea    0(a1,d1.l*4),a2
    fmove.s    (a2),fp2
    move.l    -$24(a5),d1
    moveq    #$20,d3
    asl.l    d3,d1
    move.l    d0,d3
    addq.l    #1,d3
    mulu.l    $20(a5),d3
    add.l    d3,d1
    add.l    -$1C(a5),d1
    lea    0(a1,d1.l*4),a2
    fmove.s    (a2),fp5
    fsub.x    fp5,fp2
    move.l    d0,d1
    addq.l    #1,d1
    add.l    d2,d1
    lea    0(a0,d1.l*4),a2
    fmove.s    fp2,(a2)
;      DCN(1,j)   = vs*DCN(1,j)    + v*DCN(1,j+1);
    move.l    d2,d1
    add.l    d0,d1
    lea    0(a0,d1.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp4,fp2
    move.l    d0,d1
    addq.l    #1,d1
    add.l    d2,d1
    lea    0(a0,d1.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp3,fp5
    fadd.x    fp5,fp2
    move.l    d2,d1
    add.l    d0,d1
    lea    0(a0,d1.l*4),a2
    fmove.s    fp2,(a2)
;      DCN(0,j+1) = us*CN(0,j+1,k) + u*CN(1,j+1,k);
    move.l    -$24(a5),d1
    moveq    #$20,d3
    asl.l    d3,d1
    move.l    d0,d3
    addq.l    #1,d3
    mulu.l    $20(a5),d3
    add.l    d3,d1
    add.l    -$1C(a5),d1
    lea    0(a1,d1.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp1,fp2
    move.l    d0,d1
    addq.l    #1,d1
    mulu.l    $20(a5),d1
    add.l    -$24(a5),d1
    add.l    -$1C(a5),d1
    lea    0(a1,d1.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp0,fp5
    fadd.x    fp5,fp2
    move.l    d2,d1
    moveq    #$20,d3
    asl.l    d3,d1
    move.l    d0,d3
    addq.l    #1,d3
    add.l    d3,d1
    lea    0(a0,d1.l*4),a2
    fmove.s    fp2,(a2)
;      DCN(0,j)   = vs*DCN(0,j)    + v*DCN(0,j+1);
    move.l    d2,d1
    moveq    #$20,d3
    asl.l    d3,d1
    add.l    d0,d1
    lea    0(a0,d1.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp4,fp2
    move.l    d2,d1
    moveq    #$20,d3
    asl.l    d3,d1
    move.l    d0,d3
    addq.l    #1,d3
    add.l    d3,d1
    lea    0(a0,d1.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp3,fp5
    fadd.x    fp5,fp2
    move.l    d2,d1
    moveq    #$20,d3
    asl.l    d3,d1
    add.l    d0,d1
    lea    0(a0,d1.l*4),a2
    fmove.s    fp2,(a2)
    addq.l    #1,d0
L685
    move.l    d5,d1
    subq.l    #1,d1
    cmp.l    d1,d0
    blo    L684
L686
;    for(h=minorder;
    move.l    -$20(a5),d3
    bra    L691
L687
;      for(j=0;
    moveq    #0,d0
    bra.b    L689
L688
;        DCN(1,j) = vs*DCN(1,j) + v*DCN(1,j+1);
    move.l    d2,d1
    add.l    d0,d1
    lea    0(a0,d1.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp4,fp2
    move.l    d0,d1
    addq.l    #1,d1
    add.l    d2,d1
    lea    0(a0,d1.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp3,fp5
    fadd.x    fp5,fp2
    move.l    d2,d1
    add.l    d0,d1
    lea    0(a0,d1.l*4),a2
    fmove.s    fp2,(a2)
;        DCN(0,j) = vs*DCN(0,j) + v*DCN(0,j+1);
    move.l    d2,d1
    moveq    #$20,d4
    asl.l    d4,d1
    add.l    d0,d1
    lea    0(a0,d1.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp4,fp2
    move.l    d2,d1
    moveq    #$20,d4
    asl.l    d4,d1
    move.l    d0,d4
    addq.l    #1,d4
    add.l    d4,d1
    lea    0(a0,d1.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp3,fp5
    fadd.x    fp5,fp2
    move.l    d2,d1
    moveq    #$20,d4
    asl.l    d4,d1
    add.l    d0,d1
    lea    0(a0,d1.l*4),a2
    fmove.s    fp2,(a2)
    addq.l    #1,d0
L689
    move.l    d5,d1
    sub.l    d3,d1
    cmp.l    d1,d0
    blo    L688
L690
    addq.l    #1,d3
L691
    move.l    d5,d0
    subq.l    #1,d0
    cmp.l    d0,d3
    blo    L687
L692
;    dv[k] = DCN(0,1) - DCN(0,0);
    move.l    d2,d0
    moveq    #$20,d1
    asl.l    d1,d0
    addq.l    #1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp2
    move.l    d2,d0
    moveq    #$20,d1
    asl.l    d1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fsub.x    fp5,fp2
    move.l    -$1C(a5),d0
    move.l    $14(a5),a4
    lea    0(a4,d0.l*4),a2
    fmove.s    fp2,(a2)
;    du[k] =   vs*DCN(1,0) + v*DCN(1,1);
    move.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp4,fp2
    move.l    d2,d0
    addq.l    #1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp3,fp5
    fadd.x    fp5,fp2
    move.l    -$1C(a5),d0
    move.l    $10(a5),a4
    lea    0(a4,d0.l*4),a2
    fmove.s    fp2,(a2)
;    out[k] =  vs*DCN(0,0) + v*DCN(0,1);
    move.l    d2,d0
    moveq    #$20,d1
    asl.l    d1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp4,fp2
    move.l    d2,d0
    moveq    #$20,d1
    asl.l    d1,d0
    addq.l    #1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp3,fp5
    fadd.x    fp5,fp2
    move.l    -$1C(a5),d0
    lea    0(a3,d0.l*4),a2
    fmove.s    fp2,(a2)
    addq.l    #1,-$1C(a5)
L693
    move.l    -$1C(a5),d0
    cmp.l    $20(a5),d0
    blo    L683
L694
    bra    L707
L695
;      for(k=0;
    clr.l    -$1C(a5)
    bra    L706
L696
;    DCN(0,1) =    CN(0,1,k) -   CN(0,0,k);
    move.l    -$24(a5),d0
    moveq    #$20,d1
    asl.l    d1,d0
    add.l    $20(a5),d0
    add.l    -$1C(a5),d0
    lea    0(a1,d0.l*4),a2
    fmove.s    (a2),fp2
    move.l    -$24(a5),d0
    moveq    #$20,d1
    asl.l    d1,d0
    move.l    $20(a5),d1
    moveq    #$20,d3
    asl.l    d3,d1
    add.l    d1,d0
    add.l    -$1C(a5),d0
    lea    0(a1,d0.l*4),a2
    fmove.s    (a2),fp5
    fsub.x    fp5,fp2
    move.l    d2,d0
    moveq    #$20,d1
    asl.l    d1,d0
    addq.l    #1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    fp2,(a2)
;    DCN(0,0) = vs*CN(0,0,k) + v*CN(0,1,k);
    move.l    -$24(a5),d0
    moveq    #$20,d1
    asl.l    d1,d0
    move.l    $20(a5),d1
    moveq    #$20,d3
    asl.l    d3,d1
    add.l    d1,d0
    add.l    -$1C(a5),d0
    lea    0(a1,d0.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp4,fp2
    move.l    -$24(a5),d0
    moveq    #$20,d1
    asl.l    d1,d0
    add.l    $20(a5),d0
    add.l    -$1C(a5),d0
    lea    0(a1,d0.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp3,fp5
    fadd.x    fp5,fp2
    move.l    d2,d0
    moveq    #$20,d1
    asl.l    d1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    fp2,(a2)
;    for(i=0;
    moveq    #0,d1
    bra    L698
L697
;      DCN(i+1,1) =    CN(i+1,1,k) -   CN(i+1,0,k);
    move.l    d1,d0
    addq.l    #1,d0
    mulu.l    -$24(a5),d0
    add.l    $20(a5),d0
    add.l    -$1C(a5),d0
    lea    0(a1,d0.l*4),a2
    fmove.s    (a2),fp2
    move.l    d1,d0
    addq.l    #1,d0
    mulu.l    -$24(a5),d0
    move.l    $20(a5),d3
    moveq    #$20,d4
    asl.l    d4,d3
    add.l    d3,d0
    add.l    -$1C(a5),d0
    lea    0(a1,d0.l*4),a2
    fmove.s    (a2),fp5
    fsub.x    fp5,fp2
    move.l    d1,d0
    addq.l    #1,d0
    mulu.l    d2,d0
    addq.l    #1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    fp2,(a2)
;      DCN(i,1)   = us*DCN(i,1)    + u*DCN(i+1,1);
    move.l    d1,d0
    mulu.l    d2,d0
    addq.l    #1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp1,fp2
    move.l    d1,d0
    addq.l    #1,d0
    mulu.l    d2,d0
    addq.l    #1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp0,fp5
    fadd.x    fp5,fp2
    move.l    d1,d0
    mulu.l    d2,d0
    addq.l    #1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    fp2,(a2)
;      DCN(i+1,0) = vs*CN(i+1,0,k) + v*CN(i+1,1,k);
    move.l    d1,d0
    addq.l    #1,d0
    mulu.l    -$24(a5),d0
    move.l    $20(a5),d3
    moveq    #$20,d4
    asl.l    d4,d3
    add.l    d3,d0
    add.l    -$1C(a5),d0
    lea    0(a1,d0.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp4,fp2
    move.l    d1,d0
    addq.l    #1,d0
    mulu.l    -$24(a5),d0
    add.l    $20(a5),d0
    add.l    -$1C(a5),d0
    lea    0(a1,d0.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp3,fp5
    fadd.x    fp5,fp2
    move.l    d1,d0
    addq.l    #1,d0
    mulu.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    fp2,(a2)
;      DCN(i,0)   = us*DCN(i,0)    + u*DCN(i+1,0);
    move.l    d1,d0
    mulu.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp1,fp2
    move.l    d1,d0
    addq.l    #1,d0
    mulu.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp0,fp5
    fadd.x    fp5,fp2
    move.l    d1,d0
    mulu.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    fp2,(a2)
    addq.l    #1,d1
L698
    move.l    $24(a5),d0
    subq.l    #1,d0
    cmp.l    d0,d1
    blo    L697
L699
;    for(h=minorder;
    move.l    -$20(a5),d3
    bra    L704
L700
;      for(i=0;
    moveq    #0,d1
    bra.b    L702
L701
;        DCN(i,1) = us*DCN(i,1) + u*DCN(i+1,1);
    move.l    d1,d0
    mulu.l    d2,d0
    addq.l    #1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp1,fp2
    move.l    d1,d0
    addq.l    #1,d0
    mulu.l    d2,d0
    addq.l    #1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp0,fp5
    fadd.x    fp5,fp2
    move.l    d1,d0
    mulu.l    d2,d0
    addq.l    #1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    fp2,(a2)
;        DCN(i,0) = us*DCN(i,0) + u*DCN(i+1,0);
    move.l    d1,d0
    mulu.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp1,fp2
    move.l    d1,d0
    addq.l    #1,d0
    mulu.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp0,fp5
    fadd.x    fp5,fp2
    move.l    d1,d0
    mulu.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    fp2,(a2)
    addq.l    #1,d1
L702
    move.l    $24(a5),d0
    sub.l    d3,d0
    cmp.l    d0,d1
    blo    L701
L703
    addq.l    #1,d3
L704
    move.l    $24(a5),d0
    subq.l    #1,d0
    cmp.l    d0,d3
    blo    L700
L705
;    du[k] = DCN(1,0) - DCN(0,0);
    move.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp2
    move.l    d2,d0
    moveq    #$20,d1
    asl.l    d1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fsub.x    fp5,fp2
    move.l    -$1C(a5),d0
    move.l    $10(a5),a4
    lea    0(a4,d0.l*4),a2
    fmove.s    fp2,(a2)
;    dv[k] =   us*DCN(0,1) + u*DCN(1,1);
    move.l    d2,d0
    moveq    #$20,d1
    asl.l    d1,d0
    addq.l    #1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp1,fp2
    move.l    d2,d0
    addq.l    #1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp0,fp5
    fadd.x    fp5,fp2
    move.l    -$1C(a5),d0
    move.l    $14(a5),a4
    lea    0(a4,d0.l*4),a2
    fmove.s    fp2,(a2)
;    out[k] =  us*DCN(0,0) + u*DCN(1,0);
    move.l    d2,d0
    moveq    #$20,d1
    asl.l    d1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp1,fp2
    move.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp0,fp5
    fadd.x    fp5,fp2
    move.l    -$1C(a5),d0
    lea    0(a3,d0.l*4),a2
    fmove.s    fp2,(a2)
    addq.l    #1,-$1C(a5)
L706
    move.l    -$1C(a5),d0
    cmp.l    $20(a5),d0
    blo    L696
L707
    bra    L784
L708
;  else if(uorder == vorder)
    move.l    $24(a5),d0
    cmp.l    d5,d0
    bne    L728
L709
;    for(k=0;
    clr.l    -$1C(a5)
    bra    L726
L710
;      for(i=0;
    moveq    #0,d1
    bra    L715
L711
;    DCN(i,0) = us*CN(i,0,k) + u*CN(i+1,0,k);
    move.l    d1,d0
    mulu.l    -$24(a5),d0
    move.l    $20(a5),d3
    moveq    #$20,d4
    asl.l    d4,d3
    add.l    d3,d0
    add.l    -$1C(a5),d0
    lea    0(a1,d0.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp1,fp2
    move.l    d1,d0
    addq.l    #1,d0
    mulu.l    -$24(a5),d0
    move.l    $20(a5),d3
    moveq    #$20,d4
    asl.l    d4,d3
    add.l    d3,d0
    add.l    -$1C(a5),d0
    lea    0(a1,d0.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp0,fp5
    fadd.x    fp5,fp2
    move.l    d1,d0
    mulu.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    fp2,(a2)
;    for(j=0;
    moveq    #0,d0
    bra    L713
L712
;      DCN(i,j+1) = us*CN(i,j+1,k) + u*CN(i+1,j+1,k);
    move.l    d1,d3
    mulu.l    -$24(a5),d3
    move.l    d0,d4
    addq.l    #1,d4
    mulu.l    $20(a5),d4
    add.l    d4,d3
    add.l    -$1C(a5),d3
    lea    0(a1,d3.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp1,fp2
    move.l    d1,d3
    addq.l    #1,d3
    mulu.l    -$24(a5),d3
    move.l    d0,d4
    addq.l    #1,d4
    mulu.l    $20(a5),d4
    add.l    d4,d3
    add.l    -$1C(a5),d3
    lea    0(a1,d3.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp0,fp5
    fadd.x    fp5,fp2
    move.l    d1,d3
    mulu.l    d2,d3
    move.l    d0,d4
    addq.l    #1,d4
    add.l    d4,d3
    lea    0(a0,d3.l*4),a2
    fmove.s    fp2,(a2)
;      DCN(i,j)   = vs*DCN(i,j)    + v*DCN(i,j+1);
    move.l    d1,d3
    mulu.l    d2,d3
    add.l    d0,d3
    lea    0(a0,d3.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp4,fp2
    move.l    d1,d3
    mulu.l    d2,d3
    move.l    d0,d4
    addq.l    #1,d4
    add.l    d4,d3
    lea    0(a0,d3.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp3,fp5
    fadd.x    fp5,fp2
    move.l    d1,d3
    mulu.l    d2,d3
    add.l    d0,d3
    lea    0(a0,d3.l*4),a2
    fmove.s    fp2,(a2)
    addq.l    #1,d0
L713
    move.l    d5,d3
    subq.l    #1,d3
    cmp.l    d3,d0
    blo    L712
L714
    addq.l    #1,d1
L715
    move.l    $24(a5),d0
    subq.l    #1,d0
    cmp.l    d0,d1
    blo    L711
L716
;      for(h=2;
    moveq    #2,d3
    bra    L724
L717
;    for(i=0;
    moveq    #0,d1
    bra    L722
L718
;      DCN(i,0) = us*DCN(i,0) + u*DCN(i+1,0);
    move.l    d1,d0
    mulu.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp1,fp2
    move.l    d1,d0
    addq.l    #1,d0
    mulu.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp0,fp5
    fadd.x    fp5,fp2
    move.l    d1,d0
    mulu.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    fp2,(a2)
;      for(j=0;
    moveq    #0,d0
    bra    L720
L719
;        DCN(i,j+1) = us*DCN(i,j+1) + u*DCN(i+1,j+1);
    move.l    d1,d4
    mulu.l    d2,d4
    move.l    d0,d6
    addq.l    #1,d6
    move.l    d6,-$70(a5)
    add.l    -$70(a5),d4
    lea    0(a0,d4.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp1,fp2
    move.l    d1,d4
    addq.l    #1,d4
    mulu.l    d2,d4
    move.l    d0,d6
    addq.l    #1,d6
    move.l    d6,-$6C(a5)
    add.l    -$6C(a5),d4
    lea    0(a0,d4.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp0,fp5
    fadd.x    fp5,fp2
    move.l    d1,d4
    mulu.l    d2,d4
    move.l    d0,d6
    addq.l    #1,d6
    move.l    d6,-$68(a5)
    add.l    -$68(a5),d4
    lea    0(a0,d4.l*4),a2
    fmove.s    fp2,(a2)
;        DCN(i,j)   = vs*DCN(i,j)   + v*DCN(i,j+1);
    move.l    d1,d4
    mulu.l    d2,d4
    add.l    d0,d4
    lea    0(a0,d4.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp4,fp2
    move.l    d1,d4
    mulu.l    d2,d4
    move.l    d0,d6
    addq.l    #1,d6
    move.l    d6,-$64(a5)
    add.l    -$64(a5),d4
    lea    0(a0,d4.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp3,fp5
    fadd.x    fp5,fp2
    move.l    d1,d4
    mulu.l    d2,d4
    add.l    d0,d4
    lea    0(a0,d4.l*4),a2
    fmove.s    fp2,(a2)
    addq.l    #1,d0
L720
    move.l    d5,d4
    sub.l    d3,d4
    cmp.l    d4,d0
    blo    L719
L721
    addq.l    #1,d1
L722
    move.l    $24(a5),d0
    sub.l    d3,d0
    cmp.l    d0,d1
    blo    L718
L723
    addq.l    #1,d3
L724
    move.l    -$20(a5),d0
    subq.l    #1,d0
    cmp.l    d0,d3
    blo    L717
L725
;      du[k] = vs*(DCN(1,0) - DCN(0,0)) +
    move.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp2
    move.l    d2,d0
    moveq    #$20,d1
    asl.l    d1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fsub.x    fp5,fp2
    fmul.x    fp4,fp2
    move.l    d2,d0
    addq.l    #1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    move.l    d2,d0
    moveq    #$20,d1
    asl.l    d1,d0
    addq.l    #1,d0
    lea    0(a0,d0.l*4),a2
    move.l    (a2),-$60(a5)
    fsub.s    -$60(a5),fp5
    fmul.x    fp3,fp5
    fadd.x    fp5,fp2
    move.l    -$1C(a5),d0
    move.l    $10(a5),a4
    lea    0(a4,d0.l*4),a2
    fmove.s    fp2,(a2)
;      dv[k] = us*(DCN(0,1) - DCN(0,0)) +
    move.l    d2,d0
    moveq    #$20,d1
    asl.l    d1,d0
    addq.l    #1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp2
    move.l    d2,d0
    moveq    #$20,d1
    asl.l    d1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fsub.x    fp5,fp2
    fmul.x    fp1,fp2
    move.l    d2,d0
    addq.l    #1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    move.l    d2,d0
    lea    0(a0,d0.l*4),a2
    move.l    (a2),-$5C(a5)
    fsub.s    -$5C(a5),fp5
    fmul.x    fp0,fp5
    fadd.x    fp5,fp2
    move.l    -$1C(a5),d0
    move.l    $14(a5),a4
    lea    0(a4,d0.l*4),a2
    fmove.s    fp2,(a2)
;      out[k] =  us*(vs*DCN(0,0) + v*DCN(0,1)) +
    move.l    d2,d0
    moveq    #$20,d1
    asl.l    d1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp4,fp2
    move.l    d2,d0
    moveq    #$20,d1
    asl.l    d1,d0
    addq.l    #1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp3,fp5
    fadd.x    fp5,fp2
    fmul.x    fp1,fp2
    move.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp4,fp5
    move.l    d2,d0
    addq.l    #1,d0
    lea    0(a0,d0.l*4),a2
    move.l    (a2),-$58(a5)
    fmove.s    -$58(a5),fp6
    fmul.x    fp3,fp6
    fmove.s    fp6,-$58(a5)
    fadd.s    -$58(a5),fp5
    fmul.x    fp0,fp5
    fadd.x    fp5,fp2
    move.l    -$1C(a5),d0
    lea    0(a3,d0.l*4),a2
    fmove.s    fp2,(a2)
    addq.l    #1,-$1C(a5)
L726
    move.l    -$1C(a5),d0
    cmp.l    $20(a5),d0
    blo    L710
L727
    bra    L784
L728
;  else if(minorder == uorder)
    move.l    -$20(a5),d0
    cmp.l    $24(a5),d0
    bne    L757
L729
;    for(k=0;
    clr.l    -$1C(a5)
    bra    L755
L730
;      for(i=0;
    moveq    #0,d1
    bra    L735
L731
;    DCN(i,0) = us*CN(i,0,k) + u*CN(i+1,0,k);
    move.l    d1,d0
    mulu.l    -$24(a5),d0
    move.l    $20(a5),d3
    moveq    #$20,d4
    asl.l    d4,d3
    add.l    d3,d0
    add.l    -$1C(a5),d0
    lea    0(a1,d0.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp1,fp2
    move.l    d1,d0
    addq.l    #1,d0
    mulu.l    -$24(a5),d0
    move.l    $20(a5),d3
    moveq    #$20,d4
    asl.l    d4,d3
    add.l    d3,d0
    add.l    -$1C(a5),d0
    lea    0(a1,d0.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp0,fp5
    fadd.x    fp5,fp2
    move.l    d1,d0
    mulu.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    fp2,(a2)
;    for(j=0;
    moveq    #0,d0
    bra    L733
L732
;      DCN(i,j+1) = us*CN(i,j+1,k) + u*CN(i+1,j+1,k);
    move.l    d1,d3
    mulu.l    -$24(a5),d3
    move.l    d0,d4
    addq.l    #1,d4
    mulu.l    $20(a5),d4
    add.l    d4,d3
    add.l    -$1C(a5),d3
    lea    0(a1,d3.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp1,fp2
    move.l    d1,d3
    addq.l    #1,d3
    mulu.l    -$24(a5),d3
    move.l    d0,d4
    addq.l    #1,d4
    mulu.l    $20(a5),d4
    add.l    d4,d3
    add.l    -$1C(a5),d3
    lea    0(a1,d3.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp0,fp5
    fadd.x    fp5,fp2
    move.l    d1,d3
    mulu.l    d2,d3
    move.l    d0,d4
    addq.l    #1,d4
    add.l    d4,d3
    lea    0(a0,d3.l*4),a2
    fmove.s    fp2,(a2)
;      DCN(i,j)   = vs*DCN(i,j)    + v*DCN(i,j+1);
    move.l    d1,d3
    mulu.l    d2,d3
    add.l    d0,d3
    lea    0(a0,d3.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp4,fp2
    move.l    d1,d3
    mulu.l    d2,d3
    move.l    d0,d4
    addq.l    #1,d4
    add.l    d4,d3
    lea    0(a0,d3.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp3,fp5
    fadd.x    fp5,fp2
    move.l    d1,d3
    mulu.l    d2,d3
    add.l    d0,d3
    lea    0(a0,d3.l*4),a2
    fmove.s    fp2,(a2)
    addq.l    #1,d0
L733
    move.l    d5,d3
    subq.l    #1,d3
    cmp.l    d3,d0
    blo    L732
L734
    addq.l    #1,d1
L735
    move.l    $24(a5),d0
    subq.l    #1,d0
    cmp.l    d0,d1
    blo    L731
L736
;      for(h=2;
    moveq    #2,d3
    bra    L744
L737
;    for(i=0;
    moveq    #0,d1
    bra    L742
L738
;      DCN(i,0) = us*DCN(i,0) + u*DCN(i+1,0);
    move.l    d1,d0
    mulu.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp1,fp2
    move.l    d1,d0
    addq.l    #1,d0
    mulu.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp0,fp5
    fadd.x    fp5,fp2
    move.l    d1,d0
    mulu.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    fp2,(a2)
;      for(j=0;
    moveq    #0,d0
    bra    L740
L739
;        DCN(i,j+1) = us*DCN(i,j+1) + u*DCN(i+1,j+1);
    move.l    d1,d4
    mulu.l    d2,d4
    move.l    d0,d6
    addq.l    #1,d6
    move.l    d6,-$50(a5)
    add.l    -$50(a5),d4
    lea    0(a0,d4.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp1,fp2
    move.l    d1,d4
    addq.l    #1,d4
    mulu.l    d2,d4
    move.l    d0,d6
    addq.l    #1,d6
    move.l    d6,-$4C(a5)
    add.l    -$4C(a5),d4
    lea    0(a0,d4.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp0,fp5
    fadd.x    fp5,fp2
    move.l    d1,d4
    mulu.l    d2,d4
    move.l    d0,d6
    addq.l    #1,d6
    move.l    d6,-$48(a5)
    add.l    -$48(a5),d4
    lea    0(a0,d4.l*4),a2
    fmove.s    fp2,(a2)
;        DCN(i,j)   = vs*DCN(i,j)   + v*DCN(i,j+1);
    move.l    d1,d4
    mulu.l    d2,d4
    add.l    d0,d4
    lea    0(a0,d4.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp4,fp2
    move.l    d1,d4
    mulu.l    d2,d4
    move.l    d0,d6
    addq.l    #1,d6
    move.l    d6,-$44(a5)
    add.l    -$44(a5),d4
    lea    0(a0,d4.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp3,fp5
    fadd.x    fp5,fp2
    move.l    d1,d4
    mulu.l    d2,d4
    add.l    d0,d4
    lea    0(a0,d4.l*4),a2
    fmove.s    fp2,(a2)
    addq.l    #1,d0
L740
    move.l    d5,d4
    sub.l    d3,d4
    cmp.l    d4,d0
    blo    L739
L741
    addq.l    #1,d1
L742
    move.l    $24(a5),d0
    sub.l    d3,d0
    cmp.l    d0,d1
    blo    L738
L743
    addq.l    #1,d3
L744
    move.l    -$20(a5),d0
    subq.l    #1,d0
    cmp.l    d0,d3
    blo    L737
L745
;      DCN(2,0) =    DCN(1,0) -   DCN(0,0);
    move.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp2
    move.l    d2,d0
    moveq    #$20,d1
    asl.l    d1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fsub.x    fp5,fp2
    move.l    d2,d0
    moveq    #1,d1
    asl.l    d1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    fp2,(a2)
;      DCN(0,0) = us*DCN(0,0) + u*DCN(1,0);
    move.l    d2,d0
    moveq    #$20,d1
    asl.l    d1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp1,fp2
    move.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp0,fp5
    fadd.x    fp5,fp2
    move.l    d2,d0
    moveq    #$20,d1
    asl.l    d1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    fp2,(a2)
;      for(j=0;
    moveq    #0,d0
    bra    L747
L746
;    DCN(2,j+1) =    DCN(1,j+1) -    DCN(0,j+1);
    move.l    d0,d1
    addq.l    #1,d1
    add.l    d2,d1
    lea    0(a0,d1.l*4),a2
    fmove.s    (a2),fp2
    move.l    d2,d1
    moveq    #$20,d3
    asl.l    d3,d1
    move.l    d0,d3
    addq.l    #1,d3
    add.l    d3,d1
    lea    0(a0,d1.l*4),a2
    fmove.s    (a2),fp5
    fsub.x    fp5,fp2
    move.l    d2,d1
    moveq    #1,d3
    asl.l    d3,d1
    move.l    d0,d3
    addq.l    #1,d3
    add.l    d3,d1
    lea    0(a0,d1.l*4),a2
    fmove.s    fp2,(a2)
;    DCN(2,j)   = vs*DCN(2,j)    + v*DCN(2,j+1);
    move.l    d2,d1
    moveq    #1,d3
    asl.l    d3,d1
    add.l    d0,d1
    lea    0(a0,d1.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp4,fp2
    move.l    d2,d1
    moveq    #1,d3
    asl.l    d3,d1
    move.l    d0,d3
    addq.l    #1,d3
    add.l    d3,d1
    lea    0(a0,d1.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp3,fp5
    fadd.x    fp5,fp2
    move.l    d2,d1
    moveq    #1,d3
    asl.l    d3,d1
    add.l    d0,d1
    lea    0(a0,d1.l*4),a2
    fmove.s    fp2,(a2)
;    DCN(0,j+1) = us*DCN(0,j+1 ) + u*DCN(1,j+1);
    move.l    d2,d1
    moveq    #$20,d3
    asl.l    d3,d1
    move.l    d0,d3
    addq.l    #1,d3
    add.l    d3,d1
    lea    0(a0,d1.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp1,fp2
    move.l    d0,d1
    addq.l    #1,d1
    add.l    d2,d1
    lea    0(a0,d1.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp0,fp5
    fadd.x    fp5,fp2
    move.l    d2,d1
    moveq    #$20,d3
    asl.l    d3,d1
    move.l    d0,d3
    addq.l    #1,d3
    add.l    d3,d1
    lea    0(a0,d1.l*4),a2
    fmove.s    fp2,(a2)
;    DCN(0,j)   = vs*DCN(0,j)    + v*DCN(0,j+1);
    move.l    d2,d1
    moveq    #$20,d3
    asl.l    d3,d1
    add.l    d0,d1
    lea    0(a0,d1.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp4,fp2
    move.l    d2,d1
    moveq    #$20,d3
    asl.l    d3,d1
    move.l    d0,d3
    addq.l    #1,d3
    add.l    d3,d1
    lea    0(a0,d1.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp3,fp5
    fadd.x    fp5,fp2
    move.l    d2,d1
    moveq    #$20,d3
    asl.l    d3,d1
    add.l    d0,d1
    lea    0(a0,d1.l*4),a2
    fmove.s    fp2,(a2)
    addq.l    #1,d0
L747
    move.l    d5,d1
    subq.l    #1,d1
    cmp.l    d1,d0
    blo    L746
L748
;      for(h=minorder;
    move.l    -$20(a5),d3
    bra    L753
L749
;    for(j=0;
    moveq    #0,d0
    bra    L751
L750
;      DCN(2,j) = vs*DCN(2,j) + v*DCN(2,j+1);
    move.l    d2,d1
    moveq    #1,d4
    asl.l    d4,d1
    add.l    d0,d1
    lea    0(a0,d1.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp4,fp2
    move.l    d2,d1
    moveq    #1,d4
    asl.l    d4,d1
    move.l    d0,d4
    addq.l    #1,d4
    add.l    d4,d1
    lea    0(a0,d1.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp3,fp5
    fadd.x    fp5,fp2
    move.l    d2,d1
    moveq    #1,d4
    asl.l    d4,d1
    add.l    d0,d1
    lea    0(a0,d1.l*4),a2
    fmove.s    fp2,(a2)
;      DCN(0,j) = vs*DCN(0,j) + v*DCN(0,j+1);
    move.l    d2,d1
    moveq    #$20,d4
    asl.l    d4,d1
    add.l    d0,d1
    lea    0(a0,d1.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp4,fp2
    move.l    d2,d1
    moveq    #$20,d4
    asl.l    d4,d1
    move.l    d0,d4
    addq.l    #1,d4
    add.l    d4,d1
    lea    0(a0,d1.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp3,fp5
    fadd.x    fp5,fp2
    move.l    d2,d1
    moveq    #$20,d4
    asl.l    d4,d1
    add.l    d0,d1
    lea    0(a0,d1.l*4),a2
    fmove.s    fp2,(a2)
    addq.l    #1,d0
L751
    move.l    d5,d1
    sub.l    d3,d1
    cmp.l    d1,d0
    blo    L750
L752
    addq.l    #1,d3
L753
    move.l    d5,d0
    subq.l    #1,d0
    cmp.l    d0,d3
    blo    L749
L754
;      dv[k] = DCN(0,1) - DCN(0,0);
    move.l    d2,d0
    moveq    #$20,d1
    asl.l    d1,d0
    addq.l    #1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp2
    move.l    d2,d0
    moveq    #$20,d1
    asl.l    d1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fsub.x    fp5,fp2
    move.l    -$1C(a5),d0
    move.l    $14(a5),a4
    lea    0(a4,d0.l*4),a2
    fmove.s    fp2,(a2)
;      du[k] =   vs*DCN(2,0) + v*DCN(2,1);
    move.l    d2,d0
    moveq    #1,d1
    asl.l    d1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp4,fp2
    move.l    d2,d0
    moveq    #1,d1
    asl.l    d1,d0
    addq.l    #1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp3,fp5
    fadd.x    fp5,fp2
    move.l    -$1C(a5),d0
    move.l    $10(a5),a4
    lea    0(a4,d0.l*4),a2
    fmove.s    fp2,(a2)
;      out[k] =  vs*DCN(0,0) + v*DCN(0,1);
    move.l    d2,d0
    moveq    #$20,d1
    asl.l    d1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp4,fp2
    move.l    d2,d0
    moveq    #$20,d1
    asl.l    d1,d0
    addq.l    #1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp3,fp5
    fadd.x    fp5,fp2
    move.l    -$1C(a5),d0
    lea    0(a3,d0.l*4),a2
    fmove.s    fp2,(a2)
    addq.l    #1,-$1C(a5)
L755
    move.l    -$1C(a5),d0
    cmp.l    $20(a5),d0
    blo    L730
L756
    bra    L784
L757
;    for(k=0;
    clr.l    -$1C(a5)
    bra    L783
L758
;      for(i=0;
    moveq    #0,d1
    bra    L763
L759
;    DCN(i,0) = us*CN(i,0,k) + u*CN(i+1,0,k);
    move.l    d1,d0
    mulu.l    -$24(a5),d0
    move.l    $20(a5),d3
    moveq    #$20,d4
    asl.l    d4,d3
    add.l    d3,d0
    add.l    -$1C(a5),d0
    lea    0(a1,d0.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp1,fp2
    move.l    d1,d0
    addq.l    #1,d0
    mulu.l    -$24(a5),d0
    move.l    $20(a5),d3
    moveq    #$20,d4
    asl.l    d4,d3
    add.l    d3,d0
    add.l    -$1C(a5),d0
    lea    0(a1,d0.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp0,fp5
    fadd.x    fp5,fp2
    move.l    d1,d0
    mulu.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    fp2,(a2)
;    for(j=0;
    moveq    #0,d0
    bra    L761
L760
;      DCN(i,j+1) = us*CN(i,j+1,k) + u*CN(i+1,j+1,k);
    move.l    d1,d3
    mulu.l    -$24(a5),d3
    move.l    d0,d4
    addq.l    #1,d4
    mulu.l    $20(a5),d4
    add.l    d4,d3
    add.l    -$1C(a5),d3
    lea    0(a1,d3.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp1,fp2
    move.l    d1,d3
    addq.l    #1,d3
    mulu.l    -$24(a5),d3
    move.l    d0,d4
    addq.l    #1,d4
    mulu.l    $20(a5),d4
    add.l    d4,d3
    add.l    -$1C(a5),d3
    lea    0(a1,d3.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp0,fp5
    fadd.x    fp5,fp2
    move.l    d1,d3
    mulu.l    d2,d3
    move.l    d0,d4
    addq.l    #1,d4
    add.l    d4,d3
    lea    0(a0,d3.l*4),a2
    fmove.s    fp2,(a2)
;      DCN(i,j)   = vs*DCN(i,j)    + v*DCN(i,j+1);
    move.l    d1,d3
    mulu.l    d2,d3
    add.l    d0,d3
    lea    0(a0,d3.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp4,fp2
    move.l    d1,d3
    mulu.l    d2,d3
    move.l    d0,d4
    addq.l    #1,d4
    add.l    d4,d3
    lea    0(a0,d3.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp3,fp5
    fadd.x    fp5,fp2
    move.l    d1,d3
    mulu.l    d2,d3
    add.l    d0,d3
    lea    0(a0,d3.l*4),a2
    fmove.s    fp2,(a2)
    addq.l    #1,d0
L761
    move.l    d5,d3
    subq.l    #1,d3
    cmp.l    d3,d0
    blo    L760
L762
    addq.l    #1,d1
L763
    move.l    $24(a5),d0
    subq.l    #1,d0
    cmp.l    d0,d1
    blo    L759
L764
;      for(h=2;
    moveq    #2,d3
    bra    L772
L765
;    for(i=0;
    moveq    #0,d1
    bra    L770
L766
;      DCN(i,0) = us*DCN(i,0) + u*DCN(i+1,0);
    move.l    d1,d0
    mulu.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp1,fp2
    move.l    d1,d0
    addq.l    #1,d0
    mulu.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp0,fp5
    fadd.x    fp5,fp2
    move.l    d1,d0
    mulu.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    fp2,(a2)
;      for(j=0;
    moveq    #0,d0
    bra    L768
L767
;        DCN(i,j+1) = us*DCN(i,j+1) + u*DCN(i+1,j+1);
    move.l    d1,d4
    mulu.l    d2,d4
    move.l    d0,d6
    addq.l    #1,d6
    move.l    d6,-$3C(a5)
    add.l    -$3C(a5),d4
    lea    0(a0,d4.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp1,fp2
    move.l    d1,d4
    addq.l    #1,d4
    mulu.l    d2,d4
    move.l    d0,d6
    addq.l    #1,d6
    move.l    d6,-$38(a5)
    add.l    -$38(a5),d4
    lea    0(a0,d4.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp0,fp5
    fadd.x    fp5,fp2
    move.l    d1,d4
    mulu.l    d2,d4
    move.l    d0,d6
    addq.l    #1,d6
    move.l    d6,-$34(a5)
    add.l    -$34(a5),d4
    lea    0(a0,d4.l*4),a2
    fmove.s    fp2,(a2)
;        DCN(i,j)   = vs*DCN(i,j)   + v*DCN(i,j+1);
    move.l    d1,d4
    mulu.l    d2,d4
    add.l    d0,d4
    lea    0(a0,d4.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp4,fp2
    move.l    d1,d4
    mulu.l    d2,d4
    move.l    d0,d6
    addq.l    #1,d6
    move.l    d6,-$30(a5)
    add.l    -$30(a5),d4
    lea    0(a0,d4.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp3,fp5
    fadd.x    fp5,fp2
    move.l    d1,d4
    mulu.l    d2,d4
    add.l    d0,d4
    lea    0(a0,d4.l*4),a2
    fmove.s    fp2,(a2)
    addq.l    #1,d0
L768
    move.l    d5,d4
    sub.l    d3,d4
    cmp.l    d4,d0
    blo    L767
L769
    addq.l    #1,d1
L770
    move.l    $24(a5),d0
    sub.l    d3,d0
    cmp.l    d0,d1
    blo    L766
L771
    addq.l    #1,d3
L772
    move.l    -$20(a5),d0
    subq.l    #1,d0
    cmp.l    d0,d3
    blo    L765
L773
;      DCN(0,2) =    DCN(0,1) -   DCN(0,0);
    move.l    d2,d0
    moveq    #$20,d1
    asl.l    d1,d0
    addq.l    #1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp2
    move.l    d2,d0
    moveq    #$20,d1
    asl.l    d1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fsub.x    fp5,fp2
    move.l    d2,d0
    moveq    #$20,d1
    asl.l    d1,d0
    addq.l    #2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    fp2,(a2)
;      DCN(0,0) = vs*DCN(0,0) + v*DCN(0,1);
    move.l    d2,d0
    moveq    #$20,d1
    asl.l    d1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp4,fp2
    move.l    d2,d0
    moveq    #$20,d1
    asl.l    d1,d0
    addq.l    #1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp3,fp5
    fadd.x    fp5,fp2
    move.l    d2,d0
    moveq    #$20,d1
    asl.l    d1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    fp2,(a2)
;      for(i=0;
    moveq    #0,d1
    bra    L775
L774
;    DCN(i+1,2) =    DCN(i+1,1)  -   DCN(i+1,0);
    move.l    d1,d0
    addq.l    #1,d0
    mulu.l    d2,d0
    addq.l    #1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp2
    move.l    d1,d0
    addq.l    #1,d0
    mulu.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fsub.x    fp5,fp2
    move.l    d1,d0
    addq.l    #1,d0
    mulu.l    d2,d0
    addq.l    #2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    fp2,(a2)
;    DCN(i,2)   = us*DCN(i,2)    + u*DCN(i+1,2);
    move.l    d1,d0
    mulu.l    d2,d0
    addq.l    #2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp1,fp2
    move.l    d1,d0
    addq.l    #1,d0
    mulu.l    d2,d0
    addq.l    #2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp0,fp5
    fadd.x    fp5,fp2
    move.l    d1,d0
    mulu.l    d2,d0
    addq.l    #2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    fp2,(a2)
;    DCN(i+1,0) = vs*DCN(i+1,0)  + v*DCN(i+1,1);
    move.l    d1,d0
    addq.l    #1,d0
    mulu.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp4,fp2
    move.l    d1,d0
    addq.l    #1,d0
    mulu.l    d2,d0
    addq.l    #1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp3,fp5
    fadd.x    fp5,fp2
    move.l    d1,d0
    addq.l    #1,d0
    mulu.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    fp2,(a2)
;    DCN(i,0)   = us*DCN(i,0)    + u*DCN(i+1,0);
    move.l    d1,d0
    mulu.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp1,fp2
    move.l    d1,d0
    addq.l    #1,d0
    mulu.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp0,fp5
    fadd.x    fp5,fp2
    move.l    d1,d0
    mulu.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    fp2,(a2)
    addq.l    #1,d1
L775
    move.l    $24(a5),d0
    subq.l    #1,d0
    cmp.l    d0,d1
    blo    L774
L776
;      for(h=minorder;
    move.l    -$20(a5),d3
    bra    L781
L777
;    for(i=0;
    moveq    #0,d1
    bra    L779
L778
;      DCN(i,2) = us*DCN(i,2) + u*DCN(i+1,2);
    move.l    d1,d0
    mulu.l    d2,d0
    addq.l    #2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp1,fp2
    move.l    d1,d0
    addq.l    #1,d0
    mulu.l    d2,d0
    addq.l    #2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp0,fp5
    fadd.x    fp5,fp2
    move.l    d1,d0
    mulu.l    d2,d0
    addq.l    #2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    fp2,(a2)
;      DCN(i,0) = us*DCN(i,0) + u*DCN(i+1,0);
    move.l    d1,d0
    mulu.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp1,fp2
    move.l    d1,d0
    addq.l    #1,d0
    mulu.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp0,fp5
    fadd.x    fp5,fp2
    move.l    d1,d0
    mulu.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    fp2,(a2)
    addq.l    #1,d1
L779
    move.l    $24(a5),d0
    sub.l    d3,d0
    cmp.l    d0,d1
    blo    L778
L780
    addq.l    #1,d3
L781
    move.l    $24(a5),d0
    subq.l    #1,d0
    cmp.l    d0,d3
    blo    L777
L782
;      du[k] = DCN(1,0) - DCN(0,0);
    move.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp2
    move.l    d2,d0
    moveq    #$20,d1
    asl.l    d1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fsub.x    fp5,fp2
    move.l    -$1C(a5),d0
    move.l    $10(a5),a4
    lea    0(a4,d0.l*4),a2
    fmove.s    fp2,(a2)
;      dv[k] =   us*DCN(0,2) + u*DCN(1,2);
    move.l    d2,d0
    moveq    #$20,d1
    asl.l    d1,d0
    addq.l    #2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp1,fp2
    move.l    d2,d0
    addq.l    #2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp0,fp5
    fadd.x    fp5,fp2
    move.l    -$1C(a5),d0
    move.l    $14(a5),a4
    lea    0(a4,d0.l*4),a2
    fmove.s    fp2,(a2)
;      out[k] =  us*DCN(0,0) + u*DCN(1,0);
    move.l    d2,d0
    moveq    #$20,d1
    asl.l    d1,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp2
    fmul.x    fp1,fp2
    move.l    d2,d0
    lea    0(a0,d0.l*4),a2
    fmove.s    (a2),fp5
    fmul.x    fp0,fp5
    fadd.x    fp5,fp2
    move.l    -$1C(a5),d0
    lea    0(a3,d0.l*4),a2
    fmove.s    fp2,(a2)
    addq.l    #1,-$1C(a5)
L783
    move.l    -$1C(a5),d0
    cmp.l    $20(a5),d0
    blo    L758
L784
    fmovem.x (a7)+,fp2/fp3/fp4/fp5/fp6/fp7
    movem.l    (a7)+,d2-d7/a2-a4
    unlk    a5
    rts

    SECTION "_components:0",CODE


;static GLint components( GLenum target )
_components
    move.l    4(a7),d0
L786
;   switch (target)
    cmp.l    #$DB0,d0
    beq    L799
    bgt.b    L806
    sub.l    #$D90,d0
    cmp.l    #$8,d0
    bhi    L805
    move.l    L807(pc,d0.l*4),a0
    jmp    (a0)
L807
    dc.l    L790
    dc.l    L789
    dc.l    L791
    dc.l    L792
    dc.l    L793
    dc.l    L794
    dc.l    L795
    dc.l    L787
    dc.l    L788
L806
    sub.l    #$DB1,d0
    cmp.l    #7,d0
    bhi.b    L805
    move.l    L808(pc,d0.l*4),a0
    jmp    (a0)
L808
    dc.l    L798
    dc.l    L800
    dc.l    L801
    dc.l    L802
    dc.l    L803
    dc.l    L804
    dc.l    L796
    dc.l    L797
;
L787
    moveq    #3,d0
    rts
L788
    moveq    #4,d0
    rts
L789
    moveq    #1,d0
    rts
L790
    moveq    #4,d0
    rts
L791
    moveq    #3,d0
    rts
L792
    moveq    #1,d0
    rts
L793
    moveq    #2,d0
    rts
L794
    moveq    #3,d0
    rts
L795
    moveq    #4,d0
    rts
L796
    moveq    #3,d0
    rts
L797
    moveq    #4,d0
    rts
L798
    moveq    #1,d0
    rts
L799
    moveq    #4,d0
    rts
L800
    moveq    #3,d0
    rts
L801
    moveq    #1,d0
    rts
L802
    moveq    #2,d0
    rts
L803
    moveq    #3,d0
    rts
L804
    moveq    #4,d0
    rts
L805
    moveq    #0,d0
    rts

    SECTION "_gl_copy_map_points1f:0",CODE


;GLfloat *gl_copy_map_points1f( GLenum target,
    XDEF    _gl_copy_map_points1f
_gl_copy_map_points1f
L820    EQU    -$14
    link    a5,#L820
    movem.l    d2-d5/a2,-(a7)
    movem.l    $8(a5),d0/d4
    movem.l    $10(a5),d3/a2
L809
;   GLuint i, k, size = components(target);
    move.l    d0,-(a7)
    jsr    _components
    addq.w    #4,a7
    move.l    d0,d2
;   if (!points || size==0)
    cmp.w    #0,a2
    beq.b    L811
L810
    tst.l    d2
    bne.b    L812
L811
    moveq    #0,d0
    movem.l    (a7)+,d2-d5/a2
    unlk    a5
    rts
L812
;   buffer = (GLfloat *) malloc(uorder * size * sizeof(GLfloat));
    move.l    d3,d0
    mulu.l    d2,d0
    moveq    #2,d1
    asl.l    d1,d0
    move.l    d0,-(a7)
    jsr    _malloc
    addq.w    #4,a7
    move.l    d0,-4(a5)
;   if(buffer)
    tst.l    -4(a5)
    beq.b    L819
L813
;      for(i=0, p=buffer;
    moveq    #0,d1
    move.l    -4(a5),a0
    bra.b    L818
L814
;    for(k=0;
    moveq    #0,d0
    bra.b    L816
L815
;      *p++ = points[k];
    lea    0(a2,d0.l*4),a1
    fmove.s    (a1),fp0
    move.l    a0,a1
    addq.w    #4,a0
    fmove.s    fp0,(a1)
    addq.l    #1,d0
L816
    cmp.l    d2,d0
    blo.b    L815
L817
    addq.l    #1,d1
    move.l    d4,d0
    moveq    #2,d5
    asl.l    d5,d0
    move.l    d0,a1
    move.l    a1,d0
    add.l    d0,a2
L818
    cmp.l    d3,d1
    blo.b    L814
L819
    move.l    -4(a5),d0
    movem.l    (a7)+,d2-d5/a2
    unlk    a5
    rts

    SECTION "_gl_copy_map_points1d:0",CODE


;GLfloat *gl_copy_map_points1d( GLenum target,
    XDEF    _gl_copy_map_points1d
_gl_copy_map_points1d
L832    EQU    -$14
    link    a5,#L832
    movem.l    d2-d5/a2,-(a7)
    movem.l    $8(a5),d0/d4
    movem.l    $10(a5),d3/a2
L821
;   GLuint i, k, size = components(target);
    move.l    d0,-(a7)
    jsr    _components
    addq.w    #4,a7
    move.l    d0,d2
;   if (!points || size==0)
    cmp.w    #0,a2
    beq.b    L823
L822
    tst.l    d2
    bne.b    L824
L823
    moveq    #0,d0
    movem.l    (a7)+,d2-d5/a2
    unlk    a5
    rts
L824
;   buffer = (GLfloat *) malloc(uorder * size * sizeof(GLfloat));
    move.l    d3,d0
    mulu.l    d2,d0
    moveq    #2,d1
    asl.l    d1,d0
    move.l    d0,-(a7)
    jsr    _malloc
    addq.w    #4,a7
    move.l    d0,-4(a5)
;   if(buffer)
    tst.l    -4(a5)
    beq.b    L831
L825
;      for(i=0, p=buffer;
    moveq    #0,d1
    move.l    -4(a5),a0
    bra.b    L830
L826
;    for(k=0;
    moveq    #0,d0
    bra.b    L828
L827
;      *p++ = (GLfloat) points[k];
    lea    0(a2,d0.l*8),a1
    fmove.d    (a1),fp0
    move.l    a0,a1
    addq.w    #4,a0
    fmove.s    fp0,(a1)
    addq.l    #1,d0
L828
    cmp.l    d2,d0
    blo.b    L827
L829
    addq.l    #1,d1
    move.l    d4,d0
    moveq    #3,d5
    asl.l    d5,d0
    move.l    d0,a1
    move.l    a1,d0
    add.l    d0,a2
L830
    cmp.l    d3,d1
    blo.b    L826
L831
    move.l    -4(a5),d0
    movem.l    (a7)+,d2-d5/a2
    unlk    a5
    rts

    SECTION "_gl_copy_map_points2f:0",CODE


;GLfloat *gl_copy_map_points2f( GLenum target,
    XDEF    _gl_copy_map_points2f
_gl_copy_map_points2f
L854    EQU    -$28
    link    a5,#L854
    movem.l    d2-d6/a2,-(a7)
    move.l    $8(a5),d0
    move.l    $18(a5),d3
    move.l    $14(a5),d4
    move.l    $1C(a5),a2
L833
;   size = components(target);
    move.l    d0,-(a7)
    jsr    _components
    addq.w    #4,a7
    move.l    d0,d2
;   dsize = (uorder == 2 && vorder == 2)? 0 : uorder*vorder;
    move.l    $10(a5),d0
    cmp.l    #2,d0
    bne.b    L836
L834
    cmp.l    #2,d3
    bne.b    L836
L835
    moveq    #0,d5
    bra.b    L837
L836
    move.l    $10(a5),d5
    muls.l    d3,d5
L837
;   hsize = (uorder > vorder ? uorder : vorder)*size;
    move.l    $10(a5),d0
    cmp.l    d3,d0
    ble.b    L839
L838
    move.l    $10(a5),d1
    bra.b    L840
L839
    move.l    d3,d1
L840
    mulu.l    d2,d1
;   if(hsize>dsize)
    cmp.l    d5,d1
    bls.b    L842
L841
;     buffer = (GLfloat *) malloc((uorder*vorder*size+hsize)*siz
    move.l    $10(a5),d0
    muls.l    d3,d0
    mulu.l    d2,d0
    add.l    d1,d0
    moveq    #2,d1
    asl.l    d1,d0
    move.l    d0,-(a7)
    jsr    _malloc
    addq.w    #4,a7
    move.l    d0,-4(a5)
    bra.b    L843
L842
;     buffer = (GLfloat *) malloc((uorder*vorder*size+dsize)*siz
    move.l    $10(a5),d0
    muls.l    d3,d0
    mulu.l    d2,d0
    add.l    d5,d0
    moveq    #2,d1
    asl.l    d1,d0
    move.l    d0,-(a7)
    jsr    _malloc
    addq.w    #4,a7
    move.l    d0,-4(a5)
L843
;   uinc = ustride - vorder*vstride;
    move.l    d3,d0
    muls.l    d4,d0
    move.l    d0,-$24(a5)
    move.l    $C(a5),d0
    sub.l    -$24(a5),d0
    move.l    d0,-$24(a5)
;   if (buffer)
    tst.l    -4(a5)
    beq.b    L853
L844
;      for (i=0, p=buffer;
    moveq    #0,d5
    move.l    -4(a5),a0
    bra.b    L852
L845
;     for (j=0;
    moveq    #0,d1
    bra.b    L850
L846
;        for (k=0;
    moveq    #0,d0
    bra.b    L848
L847
;           *p++ = points[k];
    lea    0(a2,d0.l*4),a1
    fmove.s    (a1),fp0
    move.l    a0,a1
    addq.w    #4,a0
    fmove.s    fp0,(a1)
    addq.l    #1,d0
L848
    cmp.l    d2,d0
    blo.b    L847
L849
    addq.l    #1,d1
    move.l    d4,d0
    moveq    #2,d6
    asl.l    d6,d0
    move.l    d0,a1
    move.l    a1,d0
    add.l    d0,a2
L850
    cmp.l    d3,d1
    blo.b    L846
L851
    addq.l    #1,d5
    move.l    -$24(a5),d0
    moveq    #2,d1
    asl.l    d1,d0
    move.l    d0,a1
    move.l    a1,d0
    add.l    d0,a2
L852
    cmp.l    $10(a5),d5
    blo.b    L845
L853
    move.l    -4(a5),d0
    movem.l    (a7)+,d2-d6/a2
    unlk    a5
    rts

    SECTION "_gl_copy_map_points2d:0",CODE


;GLfloat *gl_copy_map_points2d(GLenum target,
    XDEF    _gl_copy_map_points2d
_gl_copy_map_points2d
L876    EQU    -$28
    link    a5,#L876
    movem.l    d2-d6/a2,-(a7)
    move.l    $8(a5),d0
    move.l    $18(a5),d3
    move.l    $14(a5),d4
    move.l    $1C(a5),a2
L855
;   size = components(target);
    move.l    d0,-(a7)
    jsr    _components
    addq.w    #4,a7
    move.l    d0,d2
;   dsize = (uorder == 2 && vorder == 2)? 0 : uorder*vorder;
    move.l    $10(a5),d0
    cmp.l    #2,d0
    bne.b    L858
L856
    cmp.l    #2,d3
    bne.b    L858
L857
    moveq    #0,d5
    bra.b    L859
L858
    move.l    $10(a5),d5
    muls.l    d3,d5
L859
;   hsize = (uorder > vorder ? uorder : vorder)*size;
    move.l    $10(a5),d0
    cmp.l    d3,d0
    ble.b    L861
L860
    move.l    $10(a5),d1
    bra.b    L862
L861
    move.l    d3,d1
L862
    mulu.l    d2,d1
;   if(hsize>dsize)
    cmp.l    d5,d1
    bls.b    L864
L863
;     buffer = (GLfloat *) malloc((uorder*vorder*size+hsize)*siz
    move.l    $10(a5),d0
    muls.l    d3,d0
    mulu.l    d2,d0
    add.l    d1,d0
    moveq    #2,d1
    asl.l    d1,d0
    move.l    d0,-(a7)
    jsr    _malloc
    addq.w    #4,a7
    move.l    d0,-4(a5)
    bra.b    L865
L864
;     buffer = (GLfloat *) malloc((uorder*vorder*size+dsize)*siz
    move.l    $10(a5),d0
    muls.l    d3,d0
    mulu.l    d2,d0
    add.l    d5,d0
    moveq    #2,d1
    asl.l    d1,d0
    move.l    d0,-(a7)
    jsr    _malloc
    addq.w    #4,a7
    move.l    d0,-4(a5)
L865
;   uinc = ustride - vorder*vstride;
    move.l    d3,d0
    muls.l    d4,d0
    move.l    d0,-$24(a5)
    move.l    $C(a5),d0
    sub.l    -$24(a5),d0
    move.l    d0,-$24(a5)
;   if (buffer)
    tst.l    -4(a5)
    beq.b    L875
L866
;      for (i=0, p=buffer;
    moveq    #0,d5
    move.l    -4(a5),a0
    bra.b    L874
L867
;     for (j=0;
    moveq    #0,d1
    bra.b    L872
L868
;        for (k=0;
    moveq    #0,d0
    bra.b    L870
L869
;           *p++ = (GLfloat) points[k];
    lea    0(a2,d0.l*8),a1
    fmove.d    (a1),fp0
    move.l    a0,a1
    addq.w    #4,a0
    fmove.s    fp0,(a1)
    addq.l    #1,d0
L870
    cmp.l    d2,d0
    blo.b    L869
L871
    addq.l    #1,d1
    move.l    d4,d0
    moveq    #3,d6
    asl.l    d6,d0
    move.l    d0,a1
    move.l    a1,d0
    add.l    d0,a2
L872
    cmp.l    d3,d1
    blo.b    L868
L873
    addq.l    #1,d5
    move.l    -$24(a5),d0
    moveq    #3,d1
    asl.l    d1,d0
    move.l    d0,a1
    move.l    a1,d0
    add.l    d0,a2
L874
    cmp.l    $10(a5),d5
    blo.b    L867
L875
    move.l    -4(a5),d0
    movem.l    (a7)+,d2-d6/a2
    unlk    a5
    rts

    SECTION "_gl_free_control_points:0",CODE


;void gl_free_control_points( GLcontext* ctx, GLenum target, GLfloat
    XDEF    _gl_free_control_points
_gl_free_control_points
L907    EQU    -$8
    link    a5,#L907
    movem.l    a2/a3,-(a7)
    move.l    $C(a5),d0
    move.l    $8(a5),a0
L878
;   struct gl_1d_map *map1 = NULL;
    sub.l    a1,a1
;   struct gl_2d_map *map2 = NULL;
    sub.l    a2,a2
;   switch (target)
    cmp.l    #$DB0,d0
    beq    L891
    bgt.b    L908
    sub.l    #$D90,d0
    cmp.l    #$8,d0
    bhi    L897
    move.l    L909(pc,d0.l*4),a3
    jmp    (a3)
L909
    dc.l    L882
    dc.l    L881
    dc.l    L883
    dc.l    L884
    dc.l    L885
    dc.l    L886
    dc.l    L887
    dc.l    L879
    dc.l    L880
L908
    sub.l    #$DB1,d0
    cmp.l    #7,d0
    bhi    L897
    move.l    L910(pc,d0.l*4),a3
    jmp    (a3)
L910
    dc.l    L890
    dc.l    L892
    dc.l    L893
    dc.l    L894
    dc.l    L895
    dc.l    L896
    dc.l    L888
    dc.l    L889
;
L879
;     map1 = &ctx->EvalMap.Map1Vertex3;
    move.l    a0,a1
    add.l    #$DD9A,a1
    lea    (a1),a1
;
    bra    L898
L880
;     map1 = &ctx->EvalMap.Map1Vertex4;
    move.l    a0,a1
    add.l    #$DDAC,a1
    lea    (a1),a1
;
    bra    L898
L881
;     map1 = &ctx->EvalMap.Map1Index;
    move.l    a0,a1
    add.l    #$DDBE,a1
    lea    (a1),a1
;
    bra    L898
L882
;     map1 = &ctx->EvalMap.Map1Color4;
    move.l    a0,a1
    add.l    #$DDD0,a1
    lea    (a1),a1
;
    bra    L898
L883
;     map1 = &ctx->EvalMap.Map1Normal;
    move.l    a0,a1
    add.l    #$DDE2,a1
    lea    (a1),a1
;
    bra    L898
L884
;     map1 = &ctx->EvalMap.Map1Texture1;
    move.l    a0,a1
    add.l    #$DDF4,a1
    lea    (a1),a1
;
    bra    L898
L885
;     map1 = &ctx->EvalMap.Map1Texture2;
    move.l    a0,a1
    add.l    #$DE06,a1
    lea    (a1),a1
;
    bra    L898
L886
;     map1 = &ctx->EvalMap.Map1Texture3;
    move.l    a0,a1
    add.l    #$DE18,a1
    lea    (a1),a1
;
    bra    L898
L887
;     map1 = &ctx->EvalMap.Map1Texture4;
    move.l    a0,a1
    add.l    #$DE2A,a1
    lea    (a1),a1
;
    bra    L898
L888
;     map2 = &ctx->EvalMap.Map2Vertex3;
    move.l    a0,a2
    add.l    #$DE3C,a2
    lea    (a2),a2
;
    bra    L898
L889
;     map2 = &ctx->EvalMap.Map2Vertex4;
    move.l    a0,a2
    add.l    #$DE5A,a2
    lea    (a2),a2
;
    bra.b    L898
L890
;     map2 = &ctx->EvalMap.Map2Index;
    move.l    a0,a2
    add.l    #$DE78,a2
    lea    (a2),a2
;
    bra.b    L898
L891
;     map2 = &ctx->EvalMap.Map2Color4;
    move.l    a0,a2
    add.l    #$DE96,a2
    lea    (a2),a2
;
    bra.b    L898
L892
;     map2 = &ctx->EvalMap.Map2Normal;
    move.l    a0,a2
    add.l    #$DEB4,a2
    lea    (a2),a2
;
    bra.b    L898
L893
;     map2 = &ctx->EvalMap.Map2Texture1;
    move.l    a0,a2
    add.l    #$DED2,a2
    lea    (a2),a2
;
    bra.b    L898
L894
;     map2 = &ctx->EvalMap.Map2Texture2;
    move.l    a0,a2
    add.l    #$DEF0,a2
    lea    (a2),a2
;
    bra.b    L898
L895
;     map2 = &ctx->EvalMap.Map2Texture3;
    move.l    a0,a2
    add.l    #$DF0E,a2
    lea    (a2),a2
;
    bra.b    L898
L896
;     map2 = &ctx->EvalMap.Map2Texture4;
    move.l    a0,a2
    add.l    #$DF2C,a2
    lea    (a2),a2
;
    bra.b    L898
L897
;     gl_error( ctx, GL_INVALID_ENUM, "gl_free_control_points" );
    move.l    #L877,-(a7)
    pea    $500.w
    move.l    a0,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
    movem.l    (a7)+,a2/a3
    unlk    a5
    rts
L898
;     return;
;   if (map1)
    cmp.w    #0,a1
    beq.b    L902
L899
;      if (data==map1->Points)
    move.l    $C(a1),a0
    move.l    $10(a5),a3
    cmp.l    a0,a3
    bne.b    L901
L900
;     map1->Retain = GL_FALSE;
    clr.b    $10(a1)
    bra.b    L902
L901
;     free( data );
    move.l    $10(a5),-(a7)
    jsr    _free
    addq.w    #4,a7
L902
;   if (map2)
    cmp.w    #0,a2
    beq.b    L906
L903
;      if (data==map2->Points)
    move.l    $18(a2),a0
    move.l    $10(a5),a1
    cmp.l    a0,a1
    bne.b    L905
L904
;     map2->Retain = GL_FALSE;
    clr.b    $1C(a2)
    bra.b    L906
L905
;     free( data );
    move.l    $10(a5),-(a7)
    jsr    _free
    addq.w    #4,a7
L906
    movem.l    (a7)+,a2/a3
    unlk    a5
    rts

L877
    dc.b    'gl_free_control_points',0

    SECTION "_gl_Map1f:0",CODE


;void gl_Map1f( GLcontext* ctx, GLenum target,
    XDEF    _gl_Map1f
_gl_Map1f
L969    EQU    -4
    link    a5,#L969
    movem.l    d2-d5/a2,-(a7)
    fmovem.x fp2/fp3,-(a7)
    move.l    $1C(a5),d2
    move.b    $24(a5),d3
    move.l    $C(a5),d5
    move.l    $8(a5),a2
    fmove.s    $14(a5),fp2
    fmove.s    $10(a5),fp3
L917
;   if (!points)
    tst.l    $20(a5)
    bne.b    L919
L918
;      gl_error( ctx, GL_OUT_OF_MEMORY, "glMap1f" );
    move.l    #L911,-(a7)
    pea    $505.w
    move.l    a2,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
    fmovem.x (a7)+,fp2/fp3
    movem.l    (a7)+,d2-d5/a2
    unlk    a5
    rts
L919
;   stride = components( target );
    move.l    d5,-(a7)
    jsr    _components
    addq.w    #4,a7
    move.l    d0,$18(a5)
;   if (INSIDE_BEGIN_END(ctx))
    move.l    a2,a0
    add.l    #$E08A,a0
    move.l    (a0),d0
    cmp.l    #$1A00,d0
    beq.b    L921
L920
;      gl_error( ctx, GL_INVALID_OPERATION, "glMap1" );
    move.l    #L912,-(a7)
    pea    $502.w
    move.l    a2,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
    fmovem.x (a7)+,fp2/fp3
    movem.l    (a7)+,d2-d5/a2
    unlk    a5
    rts
L921
;   if (u1==u2)
    fcmp.x    fp2,fp3
    fbne.b    L923
L922
;      gl_error( ctx, GL_INVALID_VALUE, "glMap1(u1,u2)" );
    move.l    #L913,-(a7)
    pea    $501.w
    move.l    a2,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
    fmovem.x (a7)+,fp2/fp3
    movem.l    (a7)+,d2-d5/a2
    unlk    a5
    rts
L923
;   if (order<1 || order>MAX_EVAL_ORDER)
    cmp.l    #1,d2
    blt.b    L925
L924
    cmp.l    #$1E,d2
    ble.b    L926
L925
;      gl_error( ctx, GL_INVALID_VALUE, "glMap1(order)" );
    move.l    #L914,-(a7)
    pea    $501.w
    move.l    a2,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
    fmovem.x (a7)+,fp2/fp3
    movem.l    (a7)+,d2-d5/a2
    unlk    a5
    rts
L926
;   k = components( target );
    move.l    d5,-(a7)
    jsr    _components
    addq.w    #4,a7
    move.l    d0,d4
;   if (k==0)
    bne.b    L928
L927
;      gl_error( ctx, GL_INVALID_ENUM, "glMap1(target)" );
    move.l    #L915,-(a7)
    pea    $500.w
    move.l    a2,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
L928
;   if (stride < k)
    move.l    $18(a5),d0
    cmp.l    d4,d0
    bhs.b    L930
L929
;      gl_error( ctx, GL_INVALID_VALUE, "glMap1(stride)" );
    move.l    #L916,-(a7)
    pea    $501.w
    move.l    a2,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
    fmovem.x (a7)+,fp2/fp3
    movem.l    (a7)+,d2-d5/a2
    unlk    a5
    rts
L930
;   switch (target)
    sub.l    #$D90,d5
    cmp.l    #$8,d5
    bhi    L967
    move.l    L970(pc,d5.l*4),a0
    jmp    (a0)
L970
    dc.l    L943
    dc.l    L939
    dc.l    L947
    dc.l    L951
    dc.l    L955
    dc.l    L959
    dc.l    L963
    dc.l    L931
    dc.l    L935
;
L931
;     ctx->EvalMap.Map1Vertex3.Order = order;
    move.l    a2,a0
    add.l    #$DD9A,a0
    move.l    d2,(a0)
;     ctx->EvalMap.Map1Vertex3.u1 = u1;
    move.l    a2,a0
    add.l    #$DD9E,a0
    fmove.s    fp3,(a0)
;     ctx->EvalMap.Map1Vertex3.u2 = u2;
    move.l    a2,a0
    add.l    #$DDA2,a0
    fmove.s    fp2,(a0)
;     if (ctx->EvalMap.Map1Vertex3.Points
    move.l    a2,a0
    add.l    #$DD9A,a0
    lea    (a0),a0
    move.l    $C(a0),a0
    cmp.w    #0,a0
    beq.b    L934
L932
    move.l    a2,a0
    add.l    #$DD9A,a0
    lea    (a0),a0
    move.b    $10(a0),d0
    bne.b    L934
L933
;        free( ctx->EvalMap.Map1Vertex3.Points );
    move.l    a2,a0
    add.l    #$DD9A,a0
    lea    (a0),a0
    move.l    $C(a0),a0
    move.l    a0,-(a7)
    jsr    _free
    addq.w    #4,a7
L934
;     ctx->EvalMap.Map1Vertex3.Points = (GLfloat *) points;
    move.l    a2,a1
    add.l    #$DDA6,a1
    move.l    $20(a5),(a1)
;     ctx->EvalMap.Map1Vertex3.Retain = retain;
    move.l    a2,a0
    add.l    #$DDAA,a0
    move.b    d3,(a0)
;
    bra    L968
L935
;     ctx->EvalMap.Map1Vertex4.Order = order;
    move.l    a2,a0
    add.l    #$DDAC,a0
    move.l    d2,(a0)
;     ctx->EvalMap.Map1Vertex4.u1 = u1;
    move.l    a2,a0
    add.l    #$DDB0,a0
    fmove.s    fp3,(a0)
;     ctx->EvalMap.Map1Vertex4.u2 = u2;
    move.l    a2,a0
    add.l    #$DDB4,a0
    fmove.s    fp2,(a0)
;     if (ctx->EvalMap.Map1Vertex4.Points
    move.l    a2,a0
    add.l    #$DDAC,a0
    lea    (a0),a0
    move.l    $C(a0),a0
    cmp.w    #0,a0
    beq.b    L938
L936
    move.l    a2,a0
    add.l    #$DDAC,a0
    lea    (a0),a0
    move.b    $10(a0),d0
    bne.b    L938
L937
;        free( ctx->EvalMap.Map1Vertex4.Points );
    move.l    a2,a0
    add.l    #$DDAC,a0
    lea    (a0),a0
    move.l    $C(a0),a0
    move.l    a0,-(a7)
    jsr    _free
    addq.w    #4,a7
L938
;     ctx->EvalMap.Map1Vertex4.Points = (GLfloat *) points;
    move.l    a2,a1
    add.l    #$DDB8,a1
    move.l    $20(a5),(a1)
;     ctx->EvalMap.Map1Vertex4.Retain = retain;
    move.l    a2,a0
    add.l    #$DDBC,a0
    move.b    d3,(a0)
;
    bra    L968
L939
;     ctx->EvalMap.Map1Index.Order = order;
    move.l    a2,a0
    add.l    #$DDBE,a0
    move.l    d2,(a0)
;     ctx->EvalMap.Map1Index.u1 = u1;
    move.l    a2,a0
    add.l    #$DDC2,a0
    fmove.s    fp3,(a0)
;     ctx->EvalMap.Map1Index.u2 = u2;
    move.l    a2,a0
    add.l    #$DDC6,a0
    fmove.s    fp2,(a0)
;     if (ctx->EvalMap.Map1Index.Points
    move.l    a2,a0
    add.l    #$DDBE,a0
    lea    (a0),a0
    move.l    $C(a0),a0
    cmp.w    #0,a0
    beq.b    L942
L940
    move.l    a2,a0
    add.l    #$DDBE,a0
    lea    (a0),a0
    move.b    $10(a0),d0
    bne.b    L942
L941
;        free( ctx->EvalMap.Map1Index.Points );
    move.l    a2,a0
    add.l    #$DDBE,a0
    lea    (a0),a0
    move.l    $C(a0),a0
    move.l    a0,-(a7)
    jsr    _free
    addq.w    #4,a7
L942
;     ctx->EvalMap.Map1Index.Points = (GLfloat *) points;
    move.l    a2,a1
    add.l    #$DDCA,a1
    move.l    $20(a5),(a1)
;     ctx->EvalMap.Map1Index.Retain = retain;
    move.l    a2,a0
    add.l    #$DDCE,a0
    move.b    d3,(a0)
;
    bra    L968
L943
;     ctx->EvalMap.Map1Color4.Order = order;
    move.l    a2,a0
    add.l    #$DDD0,a0
    move.l    d2,(a0)
;     ctx->EvalMap.Map1Color4.u1 = u1;
    move.l    a2,a0
    add.l    #$DDD4,a0
    fmove.s    fp3,(a0)
;     ctx->EvalMap.Map1Color4.u2 = u2;
    move.l    a2,a0
    add.l    #$DDD8,a0
    fmove.s    fp2,(a0)
;     if (ctx->EvalMap.Map1Color4.Points
    move.l    a2,a0
    add.l    #$DDD0,a0
    lea    (a0),a0
    move.l    $C(a0),a0
    cmp.w    #0,a0
    beq.b    L946
L944
    move.l    a2,a0
    add.l    #$DDD0,a0
    lea    (a0),a0
    move.b    $10(a0),d0
    bne.b    L946
L945
;        free( ctx->EvalMap.Map1Color4.Points );
    move.l    a2,a0
    add.l    #$DDD0,a0
    lea    (a0),a0
    move.l    $C(a0),a0
    move.l    a0,-(a7)
    jsr    _free
    addq.w    #4,a7
L946
;     ctx->EvalMap.Map1Color4.Points = (GLfloat *) points;
    move.l    a2,a1
    add.l    #$DDDC,a1
    move.l    $20(a5),(a1)
;     ctx->EvalMap.Map1Color4.Retain = retain;
    move.l    a2,a0
    add.l    #$DDE0,a0
    move.b    d3,(a0)
;
    bra    L968
L947
;     ctx->EvalMap.Map1Normal.Order = order;
    move.l    a2,a0
    add.l    #$DDE2,a0
    move.l    d2,(a0)
;     ctx->EvalMap.Map1Normal.u1 = u1;
    move.l    a2,a0
    add.l    #$DDE6,a0
    fmove.s    fp3,(a0)
;     ctx->EvalMap.Map1Normal.u2 = u2;
    move.l    a2,a0
    add.l    #$DDEA,a0
    fmove.s    fp2,(a0)
;     if (ctx->EvalMap.Map1Normal.Points
    move.l    a2,a0
    add.l    #$DDE2,a0
    lea    (a0),a0
    move.l    $C(a0),a0
    cmp.w    #0,a0
    beq.b    L950
L948
    move.l    a2,a0
    add.l    #$DDE2,a0
    lea    (a0),a0
    move.b    $10(a0),d0
    bne.b    L950
L949
;        free( ctx->EvalMap.Map1Normal.Points );
    move.l    a2,a0
    add.l    #$DDE2,a0
    lea    (a0),a0
    move.l    $C(a0),a0
    move.l    a0,-(a7)
    jsr    _free
    addq.w    #4,a7
L950
;     ctx->EvalMap.Map1Normal.Points = (GLfloat *) points;
    move.l    a2,a1
    add.l    #$DDEE,a1
    move.l    $20(a5),(a1)
;     ctx->EvalMap.Map1Normal.Retain = retain;
    move.l    a2,a0
    add.l    #$DDF2,a0
    move.b    d3,(a0)
;
    bra    L968
L951
;     ctx->EvalMap.Map1Texture1.Order = order;
    move.l    a2,a0
    add.l    #$DDF4,a0
    move.l    d2,(a0)
;     ctx->EvalMap.Map1Texture1.u1 = u1;
    move.l    a2,a0
    add.l    #$DDF8,a0
    fmove.s    fp3,(a0)
;     ctx->EvalMap.Map1Texture1.u2 = u2;
    move.l    a2,a0
    add.l    #$DDFC,a0
    fmove.s    fp2,(a0)
;     if (ctx->EvalMap.Map1Texture1.Points
    move.l    a2,a0
    add.l    #$DDF4,a0
    lea    (a0),a0
    move.l    $C(a0),a0
    cmp.w    #0,a0
    beq.b    L954
L952
    move.l    a2,a0
    add.l    #$DDF4,a0
    lea    (a0),a0
    move.b    $10(a0),d0
    bne.b    L954
L953
;        free( ctx->EvalMap.Map1Texture1.Points );
    move.l    a2,a0
    add.l    #$DDF4,a0
    lea    (a0),a0
    move.l    $C(a0),a0
    move.l    a0,-(a7)
    jsr    _free
    addq.w    #4,a7
L954
;     ctx->EvalMap.Map1Texture1.Points = (GLfloat *) points;
    move.l    a2,a1
    add.l    #$DE00,a1
    move.l    $20(a5),(a1)
;     ctx->EvalMap.Map1Texture1.Retain = retain;
    move.l    a2,a0
    add.l    #$DE04,a0
    move.b    d3,(a0)
;
    bra    L968
L955
;     ctx->EvalMap.Map1Texture2.Order = order;
    move.l    a2,a0
    add.l    #$DE06,a0
    move.l    d2,(a0)
;     ctx->EvalMap.Map1Texture2.u1 = u1;
    move.l    a2,a0
    add.l    #$DE0A,a0
    fmove.s    fp3,(a0)
;     ctx->EvalMap.Map1Texture2.u2 = u2;
    move.l    a2,a0
    add.l    #$DE0E,a0
    fmove.s    fp2,(a0)
;     if (ctx->EvalMap.Map1Texture2.Points
    move.l    a2,a0
    add.l    #$DE06,a0
    lea    (a0),a0
    move.l    $C(a0),a0
    cmp.w    #0,a0
    beq.b    L958
L956
    move.l    a2,a0
    add.l    #$DE06,a0
    lea    (a0),a0
    move.b    $10(a0),d0
    bne.b    L958
L957
;        free( ctx->EvalMap.Map1Texture2.Points );
    move.l    a2,a0
    add.l    #$DE06,a0
    lea    (a0),a0
    move.l    $C(a0),a0
    move.l    a0,-(a7)
    jsr    _free
    addq.w    #4,a7
L958
;     ctx->EvalMap.Map1Texture2.Points = (GLfloat *) points;
    move.l    a2,a1
    add.l    #$DE12,a1
    move.l    $20(a5),(a1)
;     ctx->EvalMap.Map1Texture2.Retain = retain;
    move.l    a2,a0
    add.l    #$DE16,a0
    move.b    d3,(a0)
;
    bra    L968
L959
;     ctx->EvalMap.Map1Texture3.Order = order;
    move.l    a2,a0
    add.l    #$DE18,a0
    move.l    d2,(a0)
;     ctx->EvalMap.Map1Texture3.u1 = u1;
    move.l    a2,a0
    add.l    #$DE1C,a0
    fmove.s    fp3,(a0)
;     ctx->EvalMap.Map1Texture3.u2 = u2;
    move.l    a2,a0
    add.l    #$DE20,a0
    fmove.s    fp2,(a0)
;     if (ctx->EvalMap.Map1Texture3.Points
    move.l    a2,a0
    add.l    #$DE18,a0
    lea    (a0),a0
    move.l    $C(a0),a0
    cmp.w    #0,a0
    beq.b    L962
L960
    move.l    a2,a0
    add.l    #$DE18,a0
    lea    (a0),a0
    move.b    $10(a0),d0
    bne.b    L962
L961
;        free( ctx->EvalMap.Map1Texture3.Points );
    move.l    a2,a0
    add.l    #$DE18,a0
    lea    (a0),a0
    move.l    $C(a0),a0
    move.l    a0,-(a7)
    jsr    _free
    addq.w    #4,a7
L962
;     ctx->EvalMap.Map1Texture3.Points = (GLfloat *) points;
    move.l    a2,a1
    add.l    #$DE24,a1
    move.l    $20(a5),(a1)
;     ctx->EvalMap.Map1Texture3.Retain = retain;
    move.l    a2,a0
    add.l    #$DE28,a0
    move.b    d3,(a0)
;
    bra    L968
L963
;     ctx->EvalMap.Map1Texture4.Order = order;
    move.l    a2,a0
    add.l    #$DE2A,a0
    move.l    d2,(a0)
;     ctx->EvalMap.Map1Texture4.u1 = u1;
    move.l    a2,a0
    add.l    #$DE2E,a0
    fmove.s    fp3,(a0)
;     ctx->EvalMap.Map1Texture4.u2 = u2;
    move.l    a2,a0
    add.l    #$DE32,a0
    fmove.s    fp2,(a0)
;     if (ctx->EvalMap.Map1Texture4.Points
    move.l    a2,a0
    add.l    #$DE2A,a0
    lea    (a0),a0
    move.l    $C(a0),a0
    cmp.w    #0,a0
    beq.b    L966
L964
    move.l    a2,a0
    add.l    #$DE2A,a0
    lea    (a0),a0
    move.b    $10(a0),d0
    bne.b    L966
L965
;        free( ctx->EvalMap.Map1Texture4.Points );
    move.l    a2,a0
    add.l    #$DE2A,a0
    lea    (a0),a0
    move.l    $C(a0),a0
    move.l    a0,-(a7)
    jsr    _free
    addq.w    #4,a7
L966
;     ctx->EvalMap.Map1Texture4.Points = (GLfloat *) points;
    move.l    a2,a1
    add.l    #$DE36,a1
    move.l    $20(a5),(a1)
;     ctx->EvalMap.Map1Texture4.Retain = retain;
    move.l    a2,a0
    add.l    #$DE3A,a0
    move.b    d3,(a0)
;
    bra.b    L968
L967
;     gl_error( ctx, GL_INVALID_ENUM, "glMap1(target)" );
    move.l    #L915,-(a7)
    pea    $500.w
    move.l    a2,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
L968
    fmovem.x (a7)+,fp2/fp3
    movem.l    (a7)+,d2-d5/a2
    unlk    a5
    rts

L912
    dc.b    'glMap1',0
L914
    dc.b    'glMap1(order)',0
L916
    dc.b    'glMap1(stride)',0
L915
    dc.b    'glMap1(target)',0
L913
    dc.b    'glMap1(u1,u2)',0
L911
    dc.b    'glMap1f',0

    SECTION "_gl_Map2f:0",CODE


;void gl_Map2f( GLcontext* ctx, GLenum target,
    XDEF    _gl_Map2f
_gl_Map2f
L1036    EQU    -4
    link    a5,#L1036
    movem.l    d2-d5/a2,-(a7)
    fmovem.x fp2/fp3/fp4/fp5,-(a7)
    move.l    $2C(a5),d2
    move.l    $1C(a5),d3
    move.b    $34(a5),d4
    move.l    $8(a5),a2
    fmove.s    $24(a5),fp2
    fmove.s    $20(a5),fp3
    fmove.s    $14(a5),fp4
    fmove.s    $10(a5),fp5
L979
;   if (INSIDE_BEGIN_END(ctx))
    move.l    a2,a0
    add.l    #$E08A,a0
    move.l    (a0),d0
    cmp.l    #$1A00,d0
    beq.b    L981
L980
;      gl_error( ctx, GL_INVALID_OPERATION, "glMap2" );
    move.l    #L971,-(a7)
    pea    $502.w
    move.l    a2,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
    fmovem.x (a7)+,fp2/fp3/fp4/fp5
    movem.l    (a7)+,d2-d5/a2
    unlk    a5
    rts
L981
;   if (u1==u2)
    fcmp.x    fp4,fp5
    fbne.b    L983
L982
;      gl_error( ctx, GL_INVALID_VALUE, "glMap2(u1,u2)" );
    move.l    #L972,-(a7)
    pea    $501.w
    move.l    a2,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
    fmovem.x (a7)+,fp2/fp3/fp4/fp5
    movem.l    (a7)+,d2-d5/a2
    unlk    a5
    rts
L983
;   if (v1==v2)
    fcmp.x    fp2,fp3
    fbne.b    L985
L984
;      gl_error( ctx, GL_INVALID_VALUE, "glMap2(v1,v2)" );
    move.l    #L973,-(a7)
    pea    $501.w
    move.l    a2,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
    fmovem.x (a7)+,fp2/fp3/fp4/fp5
    movem.l    (a7)+,d2-d5/a2
    unlk    a5
    rts
L985
;   if (uorder<1 || uorder>MAX_EVAL_ORDER)
    cmp.l    #1,d3
    blt.b    L987
L986
    cmp.l    #$1E,d3
    ble.b    L988
L987
;      gl_error( ctx, GL_INVALID_VALUE, "glMap2(uorder)" );
    move.l    #L974,-(a7)
    pea    $501.w
    move.l    a2,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
    fmovem.x (a7)+,fp2/fp3/fp4/fp5
    movem.l    (a7)+,d2-d5/a2
    unlk    a5
    rts
L988
;   if (vorder<1 || vorder>MAX_EVAL_ORDER)
    cmp.l    #1,d2
    blt.b    L990
L989
    cmp.l    #$1E,d2
    ble.b    L991
L990
;      gl_error( ctx, GL_INVALID_VALUE, "glMap2(vorder)" );
    move.l    #L975,-(a7)
    pea    $501.w
    move.l    a2,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
    fmovem.x (a7)+,fp2/fp3/fp4/fp5
    movem.l    (a7)+,d2-d5/a2
    unlk    a5
    rts
L991
;   k = components( target );
    move.l    $C(a5),-(a7)
    jsr    _components
    addq.w    #4,a7
    move.l    d0,d5
;   if (k==0)
    bne.b    L993
L992
;      gl_error( ctx, GL_INVALID_ENUM, "glMap2(target)" );
    move.l    #L976,-(a7)
    pea    $500.w
    move.l    a2,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
L993
;   if (ustride < k)
    move.l    $18(a5),d0
    cmp.l    d5,d0
    bhs.b    L995
L994
;      gl_error( ctx, GL_INVALID_VALUE, "glMap2(ustride)" );
    move.l    #L977,-(a7)
    pea    $501.w
    move.l    a2,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
    fmovem.x (a7)+,fp2/fp3/fp4/fp5
    movem.l    (a7)+,d2-d5/a2
    unlk    a5
    rts
L995
;   if (vstride < k)
    move.l    $28(a5),d0
    cmp.l    d5,d0
    bhs.b    L997
L996
;      gl_error( ctx, GL_INVALID_VALUE, "glMap2(vstride)" );
    move.l    #L978,-(a7)
    pea    $501.w
    move.l    a2,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
    fmovem.x (a7)+,fp2/fp3/fp4/fp5
    movem.l    (a7)+,d2-d5/a2
    unlk    a5
    rts
L997
;   switch (target)
    move.l    $C(a5),d0
    sub.l    #$DB0,d0
    cmp.l    #$8,d0
    bhi    L1034
    move.l    L1037(pc,d0.l*4),a0
    jmp    (a0)
L1037
    dc.l    L1010
    dc.l    L1006
    dc.l    L1014
    dc.l    L1018
    dc.l    L1022
    dc.l    L1026
    dc.l    L1030
    dc.l    L998
    dc.l    L1002
;
L998
;     ctx->EvalMap.Map2Vertex3.Uorder = uorder;
    move.l    a2,a0
    add.l    #$DE3C,a0
    move.l    d3,(a0)
;     ctx->EvalMap.Map2Vertex3.u1 = u1;
    move.l    a2,a0
    add.l    #$DE44,a0
    fmove.s    fp5,(a0)
;     ctx->EvalMap.Map2Vertex3.u2 = u2;
    move.l    a2,a0
    add.l    #$DE48,a0
    fmove.s    fp4,(a0)
;     ctx->EvalMap.Map2Vertex3.Vorder = vorder;
    move.l    a2,a0
    add.l    #$DE40,a0
    move.l    d2,(a0)
;     ctx->EvalMap.Map2Vertex3.v1 = v1;
    move.l    a2,a0
    add.l    #$DE4C,a0
    fmove.s    fp3,(a0)
;     ctx->EvalMap.Map2Vertex3.v2 = v2;
    move.l    a2,a0
    add.l    #$DE50,a0
    fmove.s    fp2,(a0)
;     if (ctx->EvalMap.Map2Vertex3.Points
    move.l    a2,a0
    add.l    #$DE3C,a0
    lea    (a0),a0
    move.l    $18(a0),a0
    cmp.w    #0,a0
    beq.b    L1001
L999
    move.l    a2,a0
    add.l    #$DE3C,a0
    lea    (a0),a0
    move.b    $1C(a0),d0
    bne.b    L1001
L1000
;        free( ctx->EvalMap.Map2Vertex3.Points );
    move.l    a2,a0
    add.l    #$DE3C,a0
    lea    (a0),a0
    move.l    $18(a0),a0
    move.l    a0,-(a7)
    jsr    _free
    addq.w    #4,a7
L1001
;     ctx->EvalMap.Map2Vertex3.Retain = retain;
    move.l    a2,a0
    add.l    #$DE58,a0
    move.b    d4,(a0)
;     ctx->EvalMap.Map2Vertex3.Points = (GLfloat *) points;
    move.l    a2,a1
    add.l    #$DE54,a1
    move.l    $30(a5),(a1)
;
    bra    L1035
L1002
;     ctx->EvalMap.Map2Vertex4.Uorder = uorder;
    move.l    a2,a0
    add.l    #$DE5A,a0
    move.l    d3,(a0)
;     ctx->EvalMap.Map2Vertex4.u1 = u1;
    move.l    a2,a0
    add.l    #$DE62,a0
    fmove.s    fp5,(a0)
;     ctx->EvalMap.Map2Vertex4.u2 = u2;
    move.l    a2,a0
    add.l    #$DE66,a0
    fmove.s    fp4,(a0)
;     ctx->EvalMap.Map2Vertex4.Vorder = vorder;
    move.l    a2,a0
    add.l    #$DE5E,a0
    move.l    d2,(a0)
;     ctx->EvalMap.Map2Vertex4.v1 = v1;
    move.l    a2,a0
    add.l    #$DE6A,a0
    fmove.s    fp3,(a0)
;     ctx->EvalMap.Map2Vertex4.v2 = v2;
    move.l    a2,a0
    add.l    #$DE6E,a0
    fmove.s    fp2,(a0)
;     if (ctx->EvalMap.Map2Vertex4.Points
    move.l    a2,a0
    add.l    #$DE5A,a0
    lea    (a0),a0
    move.l    $18(a0),a0
    cmp.w    #0,a0
    beq.b    L1005
L1003
    move.l    a2,a0
    add.l    #$DE5A,a0
    lea    (a0),a0
    move.b    $1C(a0),d0
    bne.b    L1005
L1004
;        free( ctx->EvalMap.Map2Vertex4.Points );
    move.l    a2,a0
    add.l    #$DE5A,a0
    lea    (a0),a0
    move.l    $18(a0),a0
    move.l    a0,-(a7)
    jsr    _free
    addq.w    #4,a7
L1005
;     ctx->EvalMap.Map2Vertex4.Points = (GLfloat *) points;
    move.l    a2,a1
    add.l    #$DE72,a1
    move.l    $30(a5),(a1)
;     ctx->EvalMap.Map2Vertex4.Retain = retain;
    move.l    a2,a0
    add.l    #$DE76,a0
    move.b    d4,(a0)
;
    bra    L1035
L1006
;     ctx->EvalMap.Map2Index.Uorder = uorder;
    move.l    a2,a0
    add.l    #$DE78,a0
    move.l    d3,(a0)
;     ctx->EvalMap.Map2Index.u1 = u1;
    move.l    a2,a0
    add.l    #$DE80,a0
    fmove.s    fp5,(a0)
;     ctx->EvalMap.Map2Index.u2 = u2;
    move.l    a2,a0
    add.l    #$DE84,a0
    fmove.s    fp4,(a0)
;     ctx->EvalMap.Map2Index.Vorder = vorder;
    move.l    a2,a0
    add.l    #$DE7C,a0
    move.l    d2,(a0)
;     ctx->EvalMap.Map2Index.v1 = v1;
    move.l    a2,a0
    add.l    #$DE88,a0
    fmove.s    fp3,(a0)
;     ctx->EvalMap.Map2Index.v2 = v2;
    move.l    a2,a0
    add.l    #$DE8C,a0
    fmove.s    fp2,(a0)
;     if (ctx->EvalMap.Map2Index.Points
    move.l    a2,a0
    add.l    #$DE78,a0
    lea    (a0),a0
    move.l    $18(a0),a0
    cmp.w    #0,a0
    beq.b    L1009
L1007
    move.l    a2,a0
    add.l    #$DE78,a0
    lea    (a0),a0
    move.b    $1C(a0),d0
    bne.b    L1009
L1008
;        free( ctx->EvalMap.Map2Index.Points );
    move.l    a2,a0
    add.l    #$DE78,a0
    lea    (a0),a0
    move.l    $18(a0),a0
    move.l    a0,-(a7)
    jsr    _free
    addq.w    #4,a7
L1009
;     ctx->EvalMap.Map2Index.Retain = retain;
    move.l    a2,a0
    add.l    #$DE94,a0
    move.b    d4,(a0)
;     ctx->EvalMap.Map2Index.Points = (GLfloat *) points;
    move.l    a2,a1
    add.l    #$DE90,a1
    move.l    $30(a5),(a1)
;
    bra    L1035
L1010
;     ctx->EvalMap.Map2Color4.Uorder = uorder;
    move.l    a2,a0
    add.l    #$DE96,a0
    move.l    d3,(a0)
;     ctx->EvalMap.Map2Color4.u1 = u1;
    move.l    a2,a0
    add.l    #$DE9E,a0
    fmove.s    fp5,(a0)
;     ctx->EvalMap.Map2Color4.u2 = u2;
    move.l    a2,a0
    add.l    #$DEA2,a0
    fmove.s    fp4,(a0)
;     ctx->EvalMap.Map2Color4.Vorder = vorder;
    move.l    a2,a0
    add.l    #$DE9A,a0
    move.l    d2,(a0)
;     ctx->EvalMap.Map2Color4.v1 = v1;
    move.l    a2,a0
    add.l    #$DEA6,a0
    fmove.s    fp3,(a0)
;     ctx->EvalMap.Map2Color4.v2 = v2;
    move.l    a2,a0
    add.l    #$DEAA,a0
    fmove.s    fp2,(a0)
;     if (ctx->EvalMap.Map2Color4.Points
    move.l    a2,a0
    add.l    #$DE96,a0
    lea    (a0),a0
    move.l    $18(a0),a0
    cmp.w    #0,a0
    beq.b    L1013
L1011
    move.l    a2,a0
    add.l    #$DE96,a0
    lea    (a0),a0
    move.b    $1C(a0),d0
    bne.b    L1013
L1012
;        free( ctx->EvalMap.Map2Color4.Points );
    move.l    a2,a0
    add.l    #$DE96,a0
    lea    (a0),a0
    move.l    $18(a0),a0
    move.l    a0,-(a7)
    jsr    _free
    addq.w    #4,a7
L1013
;     ctx->EvalMap.Map2Color4.Retain = retain;
    move.l    a2,a0
    add.l    #$DEB2,a0
    move.b    d4,(a0)
;     ctx->EvalMap.Map2Color4.Points = (GLfloat *) points;
    move.l    a2,a1
    add.l    #$DEAE,a1
    move.l    $30(a5),(a1)
;
    bra    L1035
L1014
;     ctx->EvalMap.Map2Normal.Uorder = uorder;
    move.l    a2,a0
    add.l    #$DEB4,a0
    move.l    d3,(a0)
;     ctx->EvalMap.Map2Normal.u1 = u1;
    move.l    a2,a0
    add.l    #$DEBC,a0
    fmove.s    fp5,(a0)
;     ctx->EvalMap.Map2Normal.u2 = u2;
    move.l    a2,a0
    add.l    #$DEC0,a0
    fmove.s    fp4,(a0)
;     ctx->EvalMap.Map2Normal.Vorder = vorder;
    move.l    a2,a0
    add.l    #$DEB8,a0
    move.l    d2,(a0)
;     ctx->EvalMap.Map2Normal.v1 = v1;
    move.l    a2,a0
    add.l    #$DEC4,a0
    fmove.s    fp3,(a0)
;     ctx->EvalMap.Map2Normal.v2 = v2;
    move.l    a2,a0
    add.l    #$DEC8,a0
    fmove.s    fp2,(a0)
;     if (ctx->EvalMap.Map2Normal.Points
    move.l    a2,a0
    add.l    #$DEB4,a0
    lea    (a0),a0
    move.l    $18(a0),a0
    cmp.w    #0,a0
    beq.b    L1017
L1015
    move.l    a2,a0
    add.l    #$DEB4,a0
    lea    (a0),a0
    move.b    $1C(a0),d0
    bne.b    L1017
L1016
;        free( ctx->EvalMap.Map2Normal.Points );
    move.l    a2,a0
    add.l    #$DEB4,a0
    lea    (a0),a0
    move.l    $18(a0),a0
    move.l    a0,-(a7)
    jsr    _free
    addq.w    #4,a7
L1017
;     ctx->EvalMap.Map2Normal.Retain = retain;
    move.l    a2,a0
    add.l    #$DED0,a0
    move.b    d4,(a0)
;     ctx->EvalMap.Map2Normal.Points = (GLfloat *) points;
    move.l    a2,a1
    add.l    #$DECC,a1
    move.l    $30(a5),(a1)
;
    bra    L1035
L1018
;     ctx->EvalMap.Map2Texture1.Uorder = uorder;
    move.l    a2,a0
    add.l    #$DED2,a0
    move.l    d3,(a0)
;     ctx->EvalMap.Map2Texture1.u1 = u1;
    move.l    a2,a0
    add.l    #$DEDA,a0
    fmove.s    fp5,(a0)
;     ctx->EvalMap.Map2Texture1.u2 = u2;
    move.l    a2,a0
    add.l    #$DEDE,a0
    fmove.s    fp4,(a0)
;     ctx->EvalMap.Map2Texture1.Vorder = vorder;
    move.l    a2,a0
    add.l    #$DED6,a0
    move.l    d2,(a0)
;     ctx->EvalMap.Map2Texture1.v1 = v1;
    move.l    a2,a0
    add.l    #$DEE2,a0
    fmove.s    fp3,(a0)
;     ctx->EvalMap.Map2Texture1.v2 = v2;
    move.l    a2,a0
    add.l    #$DEE6,a0
    fmove.s    fp2,(a0)
;     if (ctx->EvalMap.Map2Texture1.Points
    move.l    a2,a0
    add.l    #$DED2,a0
    lea    (a0),a0
    move.l    $18(a0),a0
    cmp.w    #0,a0
    beq.b    L1021
L1019
    move.l    a2,a0
    add.l    #$DED2,a0
    lea    (a0),a0
    move.b    $1C(a0),d0
    bne.b    L1021
L1020
;        free( ctx->EvalMap.Map2Texture1.Points );
    move.l    a2,a0
    add.l    #$DED2,a0
    lea    (a0),a0
    move.l    $18(a0),a0
    move.l    a0,-(a7)
    jsr    _free
    addq.w    #4,a7
L1021
;     ctx->EvalMap.Map2Texture1.Retain = retain;
    move.l    a2,a0
    add.l    #$DEEE,a0
    move.b    d4,(a0)
;     ctx->EvalMap.Map2Texture1.Points = (GLfloat *) points;
    move.l    a2,a1
    add.l    #$DEEA,a1
    move.l    $30(a5),(a1)
;
    bra    L1035
L1022
;     ctx->EvalMap.Map2Texture2.Uorder = uorder;
    move.l    a2,a0
    add.l    #$DEF0,a0
    move.l    d3,(a0)
;     ctx->EvalMap.Map2Texture2.u1 = u1;
    move.l    a2,a0
    add.l    #$DEF8,a0
    fmove.s    fp5,(a0)
;     ctx->EvalMap.Map2Texture2.u2 = u2;
    move.l    a2,a0
    add.l    #$DEFC,a0
    fmove.s    fp4,(a0)
;     ctx->EvalMap.Map2Texture2.Vorder = vorder;
    move.l    a2,a0
    add.l    #$DEF4,a0
    move.l    d2,(a0)
;     ctx->EvalMap.Map2Texture2.v1 = v1;
    move.l    a2,a0
    add.l    #$DF00,a0
    fmove.s    fp3,(a0)
;     ctx->EvalMap.Map2Texture2.v2 = v2;
    move.l    a2,a0
    add.l    #$DF04,a0
    fmove.s    fp2,(a0)
;     if (ctx->EvalMap.Map2Texture2.Points
    move.l    a2,a0
    add.l    #$DEF0,a0
    lea    (a0),a0
    move.l    $18(a0),a0
    cmp.w    #0,a0
    beq.b    L1025
L1023
    move.l    a2,a0
    add.l    #$DEF0,a0
    lea    (a0),a0
    move.b    $1C(a0),d0
    bne.b    L1025
L1024
;        free( ctx->EvalMap.Map2Texture2.Points );
    move.l    a2,a0
    add.l    #$DEF0,a0
    lea    (a0),a0
    move.l    $18(a0),a0
    move.l    a0,-(a7)
    jsr    _free
    addq.w    #4,a7
L1025
;     ctx->EvalMap.Map2Texture2.Retain = retain;
    move.l    a2,a0
    add.l    #$DF0C,a0
    move.b    d4,(a0)
;     ctx->EvalMap.Map2Texture2.Points = (GLfloat *) points;
    move.l    a2,a1
    add.l    #$DF08,a1
    move.l    $30(a5),(a1)
;
    bra    L1035
L1026
;     ctx->EvalMap.Map2Texture3.Uorder = uorder;
    move.l    a2,a0
    add.l    #$DF0E,a0
    move.l    d3,(a0)
;     ctx->EvalMap.Map2Texture3.u1 = u1;
    move.l    a2,a0
    add.l    #$DF16,a0
    fmove.s    fp5,(a0)
;     ctx->EvalMap.Map2Texture3.u2 = u2;
    move.l    a2,a0
    add.l    #$DF1A,a0
    fmove.s    fp4,(a0)
;     ctx->EvalMap.Map2Texture3.Vorder = vorder;
    move.l    a2,a0
    add.l    #$DF12,a0
    move.l    d2,(a0)
;     ctx->EvalMap.Map2Texture3.v1 = v1;
    move.l    a2,a0
    add.l    #$DF1E,a0
    fmove.s    fp3,(a0)
;     ctx->EvalMap.Map2Texture3.v2 = v2;
    move.l    a2,a0
    add.l    #$DF22,a0
    fmove.s    fp2,(a0)
;     if (ctx->EvalMap.Map2Texture3.Points
    move.l    a2,a0
    add.l    #$DF0E,a0
    lea    (a0),a0
    move.l    $18(a0),a0
    cmp.w    #0,a0
    beq.b    L1029
L1027
    move.l    a2,a0
    add.l    #$DF0E,a0
    lea    (a0),a0
    move.b    $1C(a0),d0
    bne.b    L1029
L1028
;        free( ctx->EvalMap.Map2Texture3.Points );
    move.l    a2,a0
    add.l    #$DF0E,a0
    lea    (a0),a0
    move.l    $18(a0),a0
    move.l    a0,-(a7)
    jsr    _free
    addq.w    #4,a7
L1029
;     ctx->EvalMap.Map2Texture3.Retain = retain;
    move.l    a2,a0
    add.l    #$DF2A,a0
    move.b    d4,(a0)
;     ctx->EvalMap.Map2Texture3.Points = (GLfloat *) points;
    move.l    a2,a1
    add.l    #$DF26,a1
    move.l    $30(a5),(a1)
;
    bra    L1035
L1030
;     ctx->EvalMap.Map2Texture4.Uorder = uorder;
    move.l    a2,a0
    add.l    #$DF2C,a0
    move.l    d3,(a0)
;     ctx->EvalMap.Map2Texture4.u1 = u1;
    move.l    a2,a0
    add.l    #$DF34,a0
    fmove.s    fp5,(a0)
;     ctx->EvalMap.Map2Texture4.u2 = u2;
    move.l    a2,a0
    add.l    #$DF38,a0
    fmove.s    fp4,(a0)
;     ctx->EvalMap.Map2Texture4.Vorder = vorder;
    move.l    a2,a0
    add.l    #$DF30,a0
    move.l    d2,(a0)
;     ctx->EvalMap.Map2Texture4.v1 = v1;
    move.l    a2,a0
    add.l    #$DF3C,a0
    fmove.s    fp3,(a0)
;     ctx->EvalMap.Map2Texture4.v2 = v2;
    move.l    a2,a0
    add.l    #$DF40,a0
    fmove.s    fp2,(a0)
;     if (ctx->EvalMap.Map2Texture4.Points
    move.l    a2,a0
    add.l    #$DF2C,a0
    lea    (a0),a0
    move.l    $18(a0),a0
    cmp.w    #0,a0
    beq.b    L1033
L1031
    move.l    a2,a0
    add.l    #$DF2C,a0
    lea    (a0),a0
    move.b    $1C(a0),d0
    bne.b    L1033
L1032
;        free( ctx->EvalMap.Map2Texture4.Points );
    move.l    a2,a0
    add.l    #$DF2C,a0
    lea    (a0),a0
    move.l    $18(a0),a0
    move.l    a0,-(a7)
    jsr    _free
    addq.w    #4,a7
L1033
;     ctx->EvalMap.Map2Texture4.Retain = retain;
    move.l    a2,a0
    add.l    #$DF48,a0
    move.b    d4,(a0)
;     ctx->EvalMap.Map2Texture4.Points = (GLfloat *) points;
    move.l    a2,a1
    add.l    #$DF44,a1
    move.l    $30(a5),(a1)
;
    bra.b    L1035
L1034
;     gl_error( ctx, GL_INVALID_ENUM, "glMap2(target)" );
    move.l    #L976,-(a7)
    pea    $500.w
    move.l    a2,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
L1035
    fmovem.x (a7)+,fp2/fp3/fp4/fp5
    movem.l    (a7)+,d2-d5/a2
    unlk    a5
    rts

L971
    dc.b    'glMap2',0
L976
    dc.b    'glMap2(target)',0
L972
    dc.b    'glMap2(u1,u2)',0
L974
    dc.b    'glMap2(uorder)',0
L977
    dc.b    'glMap2(ustride)',0
L973
    dc.b    'glMap2(v1,v2)',0
L975
    dc.b    'glMap2(vorder)',0
L978
    dc.b    'glMap2(vstride)',0

    SECTION "_gl_GetMapdv:0",CODE


;void gl_GetMapdv( GLcontext* ctx, GLenum target, GLenum query, GLdou
    XDEF    _gl_GetMapdv
_gl_GetMapdv
L1110    EQU    -$54
    link    a5,#L1110
    movem.l    d2/a2,-(a7)
    movem.l    $C(a5),d0/d1/a2
    move.l    $8(a5),a0
L1040
;   switch (query)
    cmp.l    #$A01,d1
    beq    L1066
    bgt.b    L1111
    cmp.l    #$A00,d1
    beq.b    L1041
    bra    L1108
L1111
    cmp.l    #$A02,d1
    beq    L1087
    bra    L1108
;
L1041
;     switch (target)
    cmp.l    #$DB0,d0
    beq    L1051
    bgt.b    L1112
    sub.l    #$D90,d0
    cmp.l    #$8,d0
    bhi    L1060
    move.l    L1113(pc,d0.l*4),a1
    jmp    (a1)
L1113
    dc.l    L1042
    dc.l    L1043
    dc.l    L1044
    dc.l    L1045
    dc.l    L1046
    dc.l    L1047
    dc.l    L1048
    dc.l    L1049
    dc.l    L1050
L1112
    sub.l    #$DB1,d0
    cmp.l    #7,d0
    bhi    L1060
    move.l    L1114(pc,d0.l*4),a1
    jmp    (a1)
L1114
    dc.l    L1052
    dc.l    L1053
    dc.l    L1054
    dc.l    L1055
    dc.l    L1056
    dc.l    L1057
    dc.l    L1058
    dc.l    L1059
;
L1042
;           data = ctx->EvalMap.Map1Color4.Points;
    move.l    a0,a1
    add.l    #$DDD0,a1
    lea    (a1),a1
    move.l    $C(a1),-$C(a5)
;           n = ctx->EvalMap.Map1Color4.Order * 4;
    add.l    #$DDD0,a0
    lea    (a0),a0
    move.l    (a0),d2
    moveq    #2,d0
    asl.l    d0,d2
;
    bra    L1061
L1043
;           data = ctx->EvalMap.Map1Index.Points;
    move.l    a0,a1
    add.l    #$DDBE,a1
    lea    (a1),a1
    move.l    $C(a1),-$C(a5)
;           n = ctx->EvalMap.Map1Index.Order;
    add.l    #$DDBE,a0
    lea    (a0),a0
    move.l    (a0),d2
;
    bra    L1061
L1044
;           data = ctx->EvalMap.Map1Normal.Points;
    move.l    a0,a1
    add.l    #$DDE2,a1
    lea    (a1),a1
    move.l    $C(a1),-$C(a5)
;           n = ctx->EvalMap.Map1Normal.Order * 3;
    add.l    #$DDE2,a0
    lea    (a0),a0
    move.l    (a0),d2
    mulu.l    #3,d2
;
    bra    L1061
L1045
;           data = ctx->EvalMap.Map1Texture1.Points;
    move.l    a0,a1
    add.l    #$DDF4,a1
    lea    (a1),a1
    move.l    $C(a1),-$C(a5)
;           n = ctx->EvalMap.Map1Texture1.Order * 1;
    add.l    #$DDF4,a0
    lea    (a0),a0
    move.l    (a0),d2
;
    bra    L1061
L1046
;           data = ctx->EvalMap.Map1Texture2.Points;
    move.l    a0,a1
    add.l    #$DE06,a1
    lea    (a1),a1
    move.l    $C(a1),-$C(a5)
;           n = ctx->EvalMap.Map1Texture2.Order * 2;
    add.l    #$DE06,a0
    lea    (a0),a0
    move.l    (a0),d2
    moveq    #1,d0
    asl.l    d0,d2
;
    bra    L1061
L1047
;           data = ctx->EvalMap.Map1Texture3.Points;
    move.l    a0,a1
    add.l    #$DE18,a1
    lea    (a1),a1
    move.l    $C(a1),-$C(a5)
;           n = ctx->EvalMap.Map1Texture3.Order * 3;
    add.l    #$DE18,a0
    lea    (a0),a0
    move.l    (a0),d2
    mulu.l    #3,d2
;
    bra    L1061
L1048
;           data = ctx->EvalMap.Map1Texture4.Points;
    move.l    a0,a1
    add.l    #$DE2A,a1
    lea    (a1),a1
    move.l    $C(a1),-$C(a5)
;           n = ctx->EvalMap.Map1Texture4.Order * 4;
    add.l    #$DE2A,a0
    lea    (a0),a0
    move.l    (a0),d2
    moveq    #2,d0
    asl.l    d0,d2
;
    bra    L1061
L1049
;           data = ctx->EvalMap.Map1Vertex3.Points;
    move.l    a0,a1
    add.l    #$DD9A,a1
    lea    (a1),a1
    move.l    $C(a1),-$C(a5)
;           n = ctx->EvalMap.Map1Vertex3.Order * 3;
    add.l    #$DD9A,a0
    lea    (a0),a0
    move.l    (a0),d2
    mulu.l    #3,d2
;
    bra    L1061
L1050
;           data = ctx->EvalMap.Map1Vertex4.Points;
    move.l    a0,a1
    add.l    #$DDAC,a1
    lea    (a1),a1
    move.l    $C(a1),-$C(a5)
;           n = ctx->EvalMap.Map1Vertex4.Order * 4;
    add.l    #$DDAC,a0
    lea    (a0),a0
    move.l    (a0),d2
    moveq    #2,d0
    asl.l    d0,d2
;
    bra    L1061
L1051
;           data = ctx->EvalMap.Map2Color4.Points;
    move.l    a0,a1
    add.l    #$DE96,a1
    lea    (a1),a1
    move.l    $18(a1),-$C(a5)
;           n = ctx->EvalMap.Map2Color4.Uorder
    move.l    a0,a1
    add.l    #$DE96,a1
    lea    (a1),a1
    move.l    (a1),d2
    add.l    #$DE96,a0
    lea    (a0),a0
    move.l    4(a0),d0
    mulu.l    d0,d2
    moveq    #2,d0
    asl.l    d0,d2
;
    bra    L1061
L1052
;           data = ctx->EvalMap.Map2Index.Points;
    move.l    a0,a1
    add.l    #$DE78,a1
    lea    (a1),a1
    move.l    $18(a1),-$C(a5)
;           n = ctx->EvalMap.Map2Index.Uorder
    move.l    a0,a1
    add.l    #$DE78,a1
    lea    (a1),a1
    move.l    (a1),d2
    add.l    #$DE78,a0
    lea    (a0),a0
    move.l    4(a0),d0
    mulu.l    d0,d2
;
    bra    L1061
L1053
;           data = ctx->EvalMap.Map2Normal.Points;
    move.l    a0,a1
    add.l    #$DEB4,a1
    lea    (a1),a1
    move.l    $18(a1),-$C(a5)
;           break;
    move.l    a0,a1
    add.l    #$DEB4,a1
    lea    (a1),a1
    move.l    (a1),d2
    add.l    #$DEB4,a0
    lea    (a0),a0
    move.l    4(a0),d0
    mulu.l    d0,d2
    mulu.l    #3,d2
;
    bra    L1061
L1054
;           data = ctx->EvalMap.Map2Texture1.Points;
    move.l    a0,a1
    add.l    #$DED2,a1
    lea    (a1),a1
    move.l    $18(a1),-$C(a5)
;           n = ctx->EvalMap.Map2Texture1.Uorder
    move.l    a0,a1
    add.l    #$DED2,a1
    lea    (a1),a1
    move.l    (a1),d2
    add.l    #$DED2,a0
    lea    (a0),a0
    move.l    4(a0),d0
    mulu.l    d0,d2
;
    bra    L1061
L1055
;           data = ctx->EvalMap.Map2Texture2.Points;
    move.l    a0,a1
    add.l    #$DEF0,a1
    lea    (a1),a1
    move.l    $18(a1),-$C(a5)
;           n = ctx->EvalMap.Map2Texture2.Uorder
    move.l    a0,a1
    add.l    #$DEF0,a1
    lea    (a1),a1
    move.l    (a1),d2
    add.l    #$DEF0,a0
    lea    (a0),a0
    move.l    4(a0),d0
    mulu.l    d0,d2
    moveq    #1,d0
    asl.l    d0,d2
;
    bra    L1061
L1056
;           data = ctx->EvalMap.Map2Texture3.Points;
    move.l    a0,a1
    add.l    #$DF0E,a1
    lea    (a1),a1
    move.l    $18(a1),-$C(a5)
;           n = ctx->EvalMap.Map2Texture3.Uorder
    move.l    a0,a1
    add.l    #$DF0E,a1
    lea    (a1),a1
    move.l    (a1),d2
    add.l    #$DF0E,a0
    lea    (a0),a0
    move.l    4(a0),d0
    mulu.l    d0,d2
    mulu.l    #3,d2
;
    bra    L1061
L1057
;           data = ctx->EvalMap.Map2Texture4.Points;
    move.l    a0,a1
    add.l    #$DF2C,a1
    lea    (a1),a1
    move.l    $18(a1),-$C(a5)
;           n = ctx->EvalMap.Map2Texture4.Uorder
    move.l    a0,a1
    add.l    #$DF2C,a1
    lea    (a1),a1
    move.l    (a1),d2
    add.l    #$DF2C,a0
    lea    (a0),a0
    move.l    4(a0),d0
    mulu.l    d0,d2
    moveq    #2,d0
    asl.l    d0,d2
;
    bra    L1061
L1058
;           data = ctx->EvalMap.Map2Vertex3.Points;
    move.l    a0,a1
    add.l    #$DE3C,a1
    lea    (a1),a1
    move.l    $18(a1),-$C(a5)
;           n = ctx->EvalMap.Map2Vertex3.Uorder
    move.l    a0,a1
    add.l    #$DE3C,a1
    lea    (a1),a1
    move.l    (a1),d2
    add.l    #$DE3C,a0
    lea    (a0),a0
    move.l    4(a0),d0
    mulu.l    d0,d2
    mulu.l    #3,d2
;
    bra.b    L1061
L1059
;           data = ctx->EvalMap.Map2Vertex4.Points;
    move.l    a0,a1
    add.l    #$DE5A,a1
    lea    (a1),a1
    move.l    $18(a1),-$C(a5)
;           n = ctx->EvalMap.Map2Vertex4.Uorder
    move.l    a0,a1
    add.l    #$DE5A,a1
    lea    (a1),a1
    move.l    (a1),d2
    add.l    #$DE5A,a0
    lea    (a0),a0
    move.l    4(a0),d0
    mulu.l    d0,d2
    moveq    #2,d0
    asl.l    d0,d2
;
    bra.b    L1061
L1060
;           gl_error( ctx, GL_INVALID_ENUM, "glGetMapdv(target)"
    move.l    #L1038,-(a7)
    pea    $500.w
    move.l    a0,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
L1061
;     if (data)
    tst.l    -$C(a5)
    beq.b    L1065
L1062
;        for (i=0;
    moveq    #0,d0
    bra.b    L1064
L1063
;           v[i] = data[i];
    move.l    -$C(a5),a1
    lea    0(a1,d0.l*4),a0
    fmove.s    (a0),fp0
    lea    0(a2,d0.l*8),a0
    fmove.d    fp0,(a0)
    addq.l    #1,d0
L1064
    cmp.l    d2,d0
    blo.b    L1063
L1065
;
    bra    L1109
L1066
;     switch (target)
    cmp.l    #$DB0,d0
    beq    L1076
    bgt.b    L1115
    sub.l    #$D90,d0
    cmp.l    #$8,d0
    bhi    L1085
    move.l    L1116(pc,d0.l*4),a1
    jmp    (a1)
L1116
    dc.l    L1067
    dc.l    L1068
    dc.l    L1069
    dc.l    L1070
    dc.l    L1071
    dc.l    L1072
    dc.l    L1073
    dc.l    L1074
    dc.l    L1075
L1115
    sub.l    #$DB1,d0
    cmp.l    #7,d0
    bhi    L1085
    move.l    L1117(pc,d0.l*4),a1
    jmp    (a1)
L1117
    dc.l    L1077
    dc.l    L1078
    dc.l    L1079
    dc.l    L1080
    dc.l    L1081
    dc.l    L1082
    dc.l    L1083
    dc.l    L1084
;
L1067
;           *v = ctx->EvalMap.Map1Color4.Order;
    add.l    #$DDD0,a0
    lea    (a0),a0
    move.l    (a0),d0
    fmove.l    d0,fp0
    fmove.d    fp0,(a2)
;
    bra    L1086
L1068
;           *v = ctx->EvalMap.Map1Index.Order;
    add.l    #$DDBE,a0
    lea    (a0),a0
    move.l    (a0),d0
    fmove.l    d0,fp0
    fmove.d    fp0,(a2)
;
    bra    L1086
L1069
;           *v = ctx->EvalMap.Map1Normal.Order;
    add.l    #$DDE2,a0
    lea    (a0),a0
    move.l    (a0),d0
    fmove.l    d0,fp0
    fmove.d    fp0,(a2)
;
    bra    L1086
L1070
;           *v = ctx->EvalMap.Map1Texture1.Order;
    add.l    #$DDF4,a0
    lea    (a0),a0
    move.l    (a0),d0
    fmove.l    d0,fp0
    fmove.d    fp0,(a2)
;
    bra    L1086
L1071
;           *v = ctx->EvalMap.Map1Texture2.Order;
    add.l    #$DE06,a0
    lea    (a0),a0
    move.l    (a0),d0
    fmove.l    d0,fp0
    fmove.d    fp0,(a2)
;
    bra    L1086
L1072
;           *v = ctx->EvalMap.Map1Texture3.Order;
    add.l    #$DE18,a0
    lea    (a0),a0
    move.l    (a0),d0
    fmove.l    d0,fp0
    fmove.d    fp0,(a2)
;
    bra    L1086
L1073
;           *v = ctx->EvalMap.Map1Texture4.Order;
    add.l    #$DE2A,a0
    lea    (a0),a0
    move.l    (a0),d0
    fmove.l    d0,fp0
    fmove.d    fp0,(a2)
;
    bra    L1086
L1074
;           *v = ctx->EvalMap.Map1Vertex3.Order;
    add.l    #$DD9A,a0
    lea    (a0),a0
    move.l    (a0),d0
    fmove.l    d0,fp0
    fmove.d    fp0,(a2)
;
    bra    L1086
L1075
;           *v = ctx->EvalMap.Map1Vertex4.Order;
    add.l    #$DDAC,a0
    lea    (a0),a0
    move.l    (a0),d0
    fmove.l    d0,fp0
    fmove.d    fp0,(a2)
;
    bra    L1086
L1076
;           v[0] = ctx->EvalMap.Map2Color4.Uorder;
    move.l    a0,a1
    add.l    #$DE96,a1
    lea    (a1),a1
    move.l    (a1),d0
    fmove.l    d0,fp0
    fmove.d    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Color4.Vorder;
    add.l    #$DE96,a0
    lea    (a0),a0
    move.l    4(a0),d0
    fmove.l    d0,fp0
    lea    $8(a2),a0
    fmove.d    fp0,(a0)
;
    bra    L1086
L1077
;           v[0] = ctx->EvalMap.Map2Index.Uorder;
    move.l    a0,a1
    add.l    #$DE78,a1
    lea    (a1),a1
    move.l    (a1),d0
    fmove.l    d0,fp0
    fmove.d    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Index.Vorder;
    add.l    #$DE78,a0
    lea    (a0),a0
    move.l    4(a0),d0
    fmove.l    d0,fp0
    lea    $8(a2),a0
    fmove.d    fp0,(a0)
;
    bra    L1086
L1078
;           v[0] = ctx->EvalMap.Map2Normal.Uorder;
    move.l    a0,a1
    add.l    #$DEB4,a1
    lea    (a1),a1
    move.l    (a1),d0
    fmove.l    d0,fp0
    fmove.d    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Normal.Vorder;
    add.l    #$DEB4,a0
    lea    (a0),a0
    move.l    4(a0),d0
    fmove.l    d0,fp0
    lea    $8(a2),a0
    fmove.d    fp0,(a0)
;
    bra    L1086
L1079
;           v[0] = ctx->EvalMap.Map2Texture1.Uorder;
    move.l    a0,a1
    add.l    #$DED2,a1
    lea    (a1),a1
    move.l    (a1),d0
    fmove.l    d0,fp0
    fmove.d    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Texture1.Vorder;
    add.l    #$DED2,a0
    lea    (a0),a0
    move.l    4(a0),d0
    fmove.l    d0,fp0
    lea    $8(a2),a0
    fmove.d    fp0,(a0)
;
    bra    L1086
L1080
;           v[0] = ctx->EvalMap.Map2Texture2.Uorder;
    move.l    a0,a1
    add.l    #$DEF0,a1
    lea    (a1),a1
    move.l    (a1),d0
    fmove.l    d0,fp0
    fmove.d    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Texture2.Vorder;
    add.l    #$DEF0,a0
    lea    (a0),a0
    move.l    4(a0),d0
    fmove.l    d0,fp0
    lea    $8(a2),a0
    fmove.d    fp0,(a0)
;
    bra    L1086
L1081
;           v[0] = ctx->EvalMap.Map2Texture3.Uorder;
    move.l    a0,a1
    add.l    #$DF0E,a1
    lea    (a1),a1
    move.l    (a1),d0
    fmove.l    d0,fp0
    fmove.d    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Texture3.Vorder;
    add.l    #$DF0E,a0
    lea    (a0),a0
    move.l    4(a0),d0
    fmove.l    d0,fp0
    lea    $8(a2),a0
    fmove.d    fp0,(a0)
;
    bra    L1086
L1082
;           v[0] = ctx->EvalMap.Map2Texture4.Uorder;
    move.l    a0,a1
    add.l    #$DF2C,a1
    lea    (a1),a1
    move.l    (a1),d0
    fmove.l    d0,fp0
    fmove.d    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Texture4.Vorder;
    add.l    #$DF2C,a0
    lea    (a0),a0
    move.l    4(a0),d0
    fmove.l    d0,fp0
    lea    $8(a2),a0
    fmove.d    fp0,(a0)
;
    bra.b    L1086
L1083
;           v[0] = ctx->EvalMap.Map2Vertex3.Uorder;
    move.l    a0,a1
    add.l    #$DE3C,a1
    lea    (a1),a1
    move.l    (a1),d0
    fmove.l    d0,fp0
    fmove.d    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Vertex3.Vorder;
    add.l    #$DE3C,a0
    lea    (a0),a0
    move.l    4(a0),d0
    fmove.l    d0,fp0
    lea    $8(a2),a0
    fmove.d    fp0,(a0)
;
    bra.b    L1086
L1084
;           v[0] = ctx->EvalMap.Map2Vertex4.Uorder;
    move.l    a0,a1
    add.l    #$DE5A,a1
    lea    (a1),a1
    move.l    (a1),d0
    fmove.l    d0,fp0
    fmove.d    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Vertex4.Vorder;
    add.l    #$DE5A,a0
    lea    (a0),a0
    move.l    4(a0),d0
    fmove.l    d0,fp0
    lea    $8(a2),a0
    fmove.d    fp0,(a0)
;
    bra.b    L1086
L1085
;           gl_error( ctx, GL_INVALID_ENUM, "glGetMapdv(target)"
    move.l    #L1038,-(a7)
    pea    $500.w
    move.l    a0,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
L1086
;
    bra    L1109
L1087
;     switch (target)
    cmp.l    #$DB0,d0
    beq    L1097
    bgt.b    L1118
    sub.l    #$D90,d0
    cmp.l    #$8,d0
    bhi    L1106
    move.l    L1119(pc,d0.l*4),a1
    jmp    (a1)
L1119
    dc.l    L1088
    dc.l    L1089
    dc.l    L1090
    dc.l    L1091
    dc.l    L1092
    dc.l    L1093
    dc.l    L1094
    dc.l    L1095
    dc.l    L1096
L1118
    sub.l    #$DB1,d0
    cmp.l    #7,d0
    bhi    L1106
    move.l    L1120(pc,d0.l*4),a1
    jmp    (a1)
L1120
    dc.l    L1098
    dc.l    L1099
    dc.l    L1100
    dc.l    L1101
    dc.l    L1102
    dc.l    L1103
    dc.l    L1104
    dc.l    L1105
;
L1088
;           v[0] = ctx->EvalMap.Map1Color4.u1;
    move.l    a0,a1
    add.l    #$DDD0,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fmove.d    fp0,(a2)
;           v[1] = ctx->EvalMap.Map1Color4.u2;
    add.l    #$DDD0,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    lea    $8(a2),a0
    fmove.d    fp0,(a0)
;
    bra    L1107
L1089
;           v[0] = ctx->EvalMap.Map1Index.u1;
    move.l    a0,a1
    add.l    #$DDBE,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fmove.d    fp0,(a2)
;           v[1] = ctx->EvalMap.Map1Index.u2;
    add.l    #$DDBE,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    lea    $8(a2),a0
    fmove.d    fp0,(a0)
;
    bra    L1107
L1090
;           v[0] = ctx->EvalMap.Map1Normal.u1;
    move.l    a0,a1
    add.l    #$DDE2,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fmove.d    fp0,(a2)
;           v[1] = ctx->EvalMap.Map1Normal.u2;
    add.l    #$DDE2,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    lea    $8(a2),a0
    fmove.d    fp0,(a0)
;
    bra    L1107
L1091
;           v[0] = ctx->EvalMap.Map1Texture1.u1;
    move.l    a0,a1
    add.l    #$DDF4,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fmove.d    fp0,(a2)
;           v[1] = ctx->EvalMap.Map1Texture1.u2;
    add.l    #$DDF4,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    lea    $8(a2),a0
    fmove.d    fp0,(a0)
;
    bra    L1107
L1092
;           v[0] = ctx->EvalMap.Map1Texture2.u1;
    move.l    a0,a1
    add.l    #$DE06,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fmove.d    fp0,(a2)
;           v[1] = ctx->EvalMap.Map1Texture2.u2;
    add.l    #$DE06,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    lea    $8(a2),a0
    fmove.d    fp0,(a0)
;
    bra    L1107
L1093
;           v[0] = ctx->EvalMap.Map1Texture3.u1;
    move.l    a0,a1
    add.l    #$DE18,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fmove.d    fp0,(a2)
;           v[1] = ctx->EvalMap.Map1Texture3.u2;
    add.l    #$DE18,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    lea    $8(a2),a0
    fmove.d    fp0,(a0)
;
    bra    L1107
L1094
;           v[0] = ctx->EvalMap.Map1Texture4.u1;
    move.l    a0,a1
    add.l    #$DE2A,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fmove.d    fp0,(a2)
;           v[1] = ctx->EvalMap.Map1Texture4.u2;
    add.l    #$DE2A,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    lea    $8(a2),a0
    fmove.d    fp0,(a0)
;
    bra    L1107
L1095
;           v[0] = ctx->EvalMap.Map1Vertex3.u1;
    move.l    a0,a1
    add.l    #$DD9A,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fmove.d    fp0,(a2)
;           v[1] = ctx->EvalMap.Map1Vertex3.u2;
    add.l    #$DD9A,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    lea    $8(a2),a0
    fmove.d    fp0,(a0)
;
    bra    L1107
L1096
;           v[0] = ctx->EvalMap.Map1Vertex4.u1;
    move.l    a0,a1
    add.l    #$DDAC,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fmove.d    fp0,(a2)
;           v[1] = ctx->EvalMap.Map1Vertex4.u2;
    add.l    #$DDAC,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    lea    $8(a2),a0
    fmove.d    fp0,(a0)
;
    bra    L1107
L1097
;           v[0] = ctx->EvalMap.Map2Color4.u1;
    move.l    a0,a1
    add.l    #$DE96,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fmove.d    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Color4.u2;
    move.l    a0,a1
    add.l    #$DE96,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    lea    $8(a2),a1
    fmove.d    fp0,(a1)
;           v[2] = ctx->EvalMap.Map2Color4.v1;
    move.l    a0,a1
    add.l    #$DE96,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    lea    $10(a2),a1
    fmove.d    fp0,(a1)
;           v[3] = ctx->EvalMap.Map2Color4.v2;
    add.l    #$DE96,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    lea    $18(a2),a0
    fmove.d    fp0,(a0)
;
    bra    L1107
L1098
;           v[0] = ctx->EvalMap.Map2Index.u1;
    move.l    a0,a1
    add.l    #$DE78,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fmove.d    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Index.u2;
    move.l    a0,a1
    add.l    #$DE78,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    lea    $8(a2),a1
    fmove.d    fp0,(a1)
;           v[2] = ctx->EvalMap.Map2Index.v1;
    move.l    a0,a1
    add.l    #$DE78,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    lea    $10(a2),a1
    fmove.d    fp0,(a1)
;           v[3] = ctx->EvalMap.Map2Index.v2;
    add.l    #$DE78,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    lea    $18(a2),a0
    fmove.d    fp0,(a0)
;
    bra    L1107
L1099
;           v[0] = ctx->EvalMap.Map2Normal.u1;
    move.l    a0,a1
    add.l    #$DEB4,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fmove.d    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Normal.u2;
    move.l    a0,a1
    add.l    #$DEB4,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    lea    $8(a2),a1
    fmove.d    fp0,(a1)
;           v[2] = ctx->EvalMap.Map2Normal.v1;
    move.l    a0,a1
    add.l    #$DEB4,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    lea    $10(a2),a1
    fmove.d    fp0,(a1)
;           v[3] = ctx->EvalMap.Map2Normal.v2;
    add.l    #$DEB4,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    lea    $18(a2),a0
    fmove.d    fp0,(a0)
;
    bra    L1107
L1100
;           v[0] = ctx->EvalMap.Map2Texture1.u1;
    move.l    a0,a1
    add.l    #$DED2,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fmove.d    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Texture1.u2;
    move.l    a0,a1
    add.l    #$DED2,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    lea    $8(a2),a1
    fmove.d    fp0,(a1)
;           v[2] = ctx->EvalMap.Map2Texture1.v1;
    move.l    a0,a1
    add.l    #$DED2,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    lea    $10(a2),a1
    fmove.d    fp0,(a1)
;           v[3] = ctx->EvalMap.Map2Texture1.v2;
    add.l    #$DED2,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    lea    $18(a2),a0
    fmove.d    fp0,(a0)
;
    bra    L1107
L1101
;           v[0] = ctx->EvalMap.Map2Texture2.u1;
    move.l    a0,a1
    add.l    #$DEF0,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fmove.d    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Texture2.u2;
    move.l    a0,a1
    add.l    #$DEF0,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    lea    $8(a2),a1
    fmove.d    fp0,(a1)
;           v[2] = ctx->EvalMap.Map2Texture2.v1;
    move.l    a0,a1
    add.l    #$DEF0,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    lea    $10(a2),a1
    fmove.d    fp0,(a1)
;           v[3] = ctx->EvalMap.Map2Texture2.v2;
    add.l    #$DEF0,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    lea    $18(a2),a0
    fmove.d    fp0,(a0)
;
    bra    L1107
L1102
;           v[0] = ctx->EvalMap.Map2Texture3.u1;
    move.l    a0,a1
    add.l    #$DF0E,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fmove.d    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Texture3.u2;
    move.l    a0,a1
    add.l    #$DF0E,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    lea    $8(a2),a1
    fmove.d    fp0,(a1)
;           v[2] = ctx->EvalMap.Map2Texture3.v1;
    move.l    a0,a1
    add.l    #$DF0E,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    lea    $10(a2),a1
    fmove.d    fp0,(a1)
;           v[3] = ctx->EvalMap.Map2Texture3.v2;
    add.l    #$DF0E,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    lea    $18(a2),a0
    fmove.d    fp0,(a0)
;
    bra    L1107
L1103
;           v[0] = ctx->EvalMap.Map2Texture4.u1;
    move.l    a0,a1
    add.l    #$DF2C,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fmove.d    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Texture4.u2;
    move.l    a0,a1
    add.l    #$DF2C,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    lea    $8(a2),a1
    fmove.d    fp0,(a1)
;           v[2] = ctx->EvalMap.Map2Texture4.v1;
    move.l    a0,a1
    add.l    #$DF2C,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    lea    $10(a2),a1
    fmove.d    fp0,(a1)
;           v[3] = ctx->EvalMap.Map2Texture4.v2;
    add.l    #$DF2C,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    lea    $18(a2),a0
    fmove.d    fp0,(a0)
;
    bra    L1107
L1104
;           v[0] = ctx->EvalMap.Map2Vertex3.u1;
    move.l    a0,a1
    add.l    #$DE3C,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fmove.d    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Vertex3.u2;
    move.l    a0,a1
    add.l    #$DE3C,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    lea    $8(a2),a1
    fmove.d    fp0,(a1)
;           v[2] = ctx->EvalMap.Map2Vertex3.v1;
    move.l    a0,a1
    add.l    #$DE3C,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    lea    $10(a2),a1
    fmove.d    fp0,(a1)
;           v[3] = ctx->EvalMap.Map2Vertex3.v2;
    add.l    #$DE3C,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    lea    $18(a2),a0
    fmove.d    fp0,(a0)
;
    bra.b    L1107
L1105
;           v[0] = ctx->EvalMap.Map2Vertex4.u1;
    move.l    a0,a1
    add.l    #$DE5A,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fmove.d    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Vertex4.u2;
    move.l    a0,a1
    add.l    #$DE5A,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    lea    $8(a2),a1
    fmove.d    fp0,(a1)
;           v[2] = ctx->EvalMap.Map2Vertex4.v1;
    move.l    a0,a1
    add.l    #$DE5A,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    lea    $10(a2),a1
    fmove.d    fp0,(a1)
;           v[3] = ctx->EvalMap.Map2Vertex4.v2;
    add.l    #$DE5A,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    lea    $18(a2),a0
    fmove.d    fp0,(a0)
;
    bra.b    L1107
L1106
;           gl_error( ctx, GL_INVALID_ENUM, "glGetMapdv(target)"
    move.l    #L1038,-(a7)
    pea    $500.w
    move.l    a0,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
L1107
;
    bra.b    L1109
L1108
;     gl_error( ctx, GL_INVALID_ENUM, "glGetMapdv(query)" );
    move.l    #L1039,-(a7)
    pea    $500.w
    move.l    a0,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
L1109
    movem.l    (a7)+,d2/a2
    unlk    a5
    rts

L1039
    dc.b    'glGetMapdv(query)',0
L1038
    dc.b    'glGetMapdv(target)',0

    SECTION "_gl_GetMapfv:0",CODE


;void gl_GetMapfv( GLcontext* ctx, GLenum target, GLenum query, GLflo
    XDEF    _gl_GetMapfv
_gl_GetMapfv
L1193    EQU    -$54
    link    a5,#L1193
    movem.l    d2/a2,-(a7)
    movem.l    $C(a5),d0/d1/a2
    move.l    $8(a5),a0
L1123
;   switch (query)
    cmp.l    #$A01,d1
    beq    L1149
    bgt.b    L1194
    cmp.l    #$A00,d1
    beq.b    L1124
    bra    L1191
L1194
    cmp.l    #$A02,d1
    beq    L1170
    bra    L1191
;
L1124
;     switch (target)
    cmp.l    #$DB0,d0
    beq    L1134
    bgt.b    L1195
    sub.l    #$D90,d0
    cmp.l    #$8,d0
    bhi    L1143
    move.l    L1196(pc,d0.l*4),a1
    jmp    (a1)
L1196
    dc.l    L1125
    dc.l    L1126
    dc.l    L1127
    dc.l    L1128
    dc.l    L1129
    dc.l    L1130
    dc.l    L1131
    dc.l    L1132
    dc.l    L1133
L1195
    sub.l    #$DB1,d0
    cmp.l    #7,d0
    bhi    L1143
    move.l    L1197(pc,d0.l*4),a1
    jmp    (a1)
L1197
    dc.l    L1135
    dc.l    L1136
    dc.l    L1137
    dc.l    L1138
    dc.l    L1139
    dc.l    L1140
    dc.l    L1141
    dc.l    L1142
;
L1125
;           data = ctx->EvalMap.Map1Color4.Points;
    move.l    a0,a1
    add.l    #$DDD0,a1
    lea    (a1),a1
    move.l    $C(a1),-$C(a5)
;           n = ctx->EvalMap.Map1Color4.Order * 4;
    add.l    #$DDD0,a0
    lea    (a0),a0
    move.l    (a0),d2
    moveq    #2,d0
    asl.l    d0,d2
;
    bra    L1144
L1126
;           data = ctx->EvalMap.Map1Index.Points;
    move.l    a0,a1
    add.l    #$DDBE,a1
    lea    (a1),a1
    move.l    $C(a1),-$C(a5)
;           n = ctx->EvalMap.Map1Index.Order;
    add.l    #$DDBE,a0
    lea    (a0),a0
    move.l    (a0),d2
;
    bra    L1144
L1127
;           data = ctx->EvalMap.Map1Normal.Points;
    move.l    a0,a1
    add.l    #$DDE2,a1
    lea    (a1),a1
    move.l    $C(a1),-$C(a5)
;           n = ctx->EvalMap.Map1Normal.Order * 3;
    add.l    #$DDE2,a0
    lea    (a0),a0
    move.l    (a0),d2
    mulu.l    #3,d2
;
    bra    L1144
L1128
;           data = ctx->EvalMap.Map1Texture1.Points;
    move.l    a0,a1
    add.l    #$DDF4,a1
    lea    (a1),a1
    move.l    $C(a1),-$C(a5)
;           n = ctx->EvalMap.Map1Texture1.Order * 1;
    add.l    #$DDF4,a0
    lea    (a0),a0
    move.l    (a0),d2
;
    bra    L1144
L1129
;           data = ctx->EvalMap.Map1Texture2.Points;
    move.l    a0,a1
    add.l    #$DE06,a1
    lea    (a1),a1
    move.l    $C(a1),-$C(a5)
;           n = ctx->EvalMap.Map1Texture2.Order * 2;
    add.l    #$DE06,a0
    lea    (a0),a0
    move.l    (a0),d2
    moveq    #1,d0
    asl.l    d0,d2
;
    bra    L1144
L1130
;           data = ctx->EvalMap.Map1Texture3.Points;
    move.l    a0,a1
    add.l    #$DE18,a1
    lea    (a1),a1
    move.l    $C(a1),-$C(a5)
;           n = ctx->EvalMap.Map1Texture3.Order * 3;
    add.l    #$DE18,a0
    lea    (a0),a0
    move.l    (a0),d2
    mulu.l    #3,d2
;
    bra    L1144
L1131
;           data = ctx->EvalMap.Map1Texture4.Points;
    move.l    a0,a1
    add.l    #$DE2A,a1
    lea    (a1),a1
    move.l    $C(a1),-$C(a5)
;           n = ctx->EvalMap.Map1Texture4.Order * 4;
    add.l    #$DE2A,a0
    lea    (a0),a0
    move.l    (a0),d2
    moveq    #2,d0
    asl.l    d0,d2
;
    bra    L1144
L1132
;           data = ctx->EvalMap.Map1Vertex3.Points;
    move.l    a0,a1
    add.l    #$DD9A,a1
    lea    (a1),a1
    move.l    $C(a1),-$C(a5)
;           n = ctx->EvalMap.Map1Vertex3.Order * 3;
    add.l    #$DD9A,a0
    lea    (a0),a0
    move.l    (a0),d2
    mulu.l    #3,d2
;
    bra    L1144
L1133
;           data = ctx->EvalMap.Map1Vertex4.Points;
    move.l    a0,a1
    add.l    #$DDAC,a1
    lea    (a1),a1
    move.l    $C(a1),-$C(a5)
;           n = ctx->EvalMap.Map1Vertex4.Order * 4;
    add.l    #$DDAC,a0
    lea    (a0),a0
    move.l    (a0),d2
    moveq    #2,d0
    asl.l    d0,d2
;
    bra    L1144
L1134
;           data = ctx->EvalMap.Map2Color4.Points;
    move.l    a0,a1
    add.l    #$DE96,a1
    lea    (a1),a1
    move.l    $18(a1),-$C(a5)
;           n = ctx->EvalMap.Map2Color4.Uorder
    move.l    a0,a1
    add.l    #$DE96,a1
    lea    (a1),a1
    move.l    (a1),d2
    add.l    #$DE96,a0
    lea    (a0),a0
    move.l    4(a0),d0
    mulu.l    d0,d2
    moveq    #2,d0
    asl.l    d0,d2
;
    bra    L1144
L1135
;           data = ctx->EvalMap.Map2Index.Points;
    move.l    a0,a1
    add.l    #$DE78,a1
    lea    (a1),a1
    move.l    $18(a1),-$C(a5)
;           n = ctx->EvalMap.Map2Index.Uorder
    move.l    a0,a1
    add.l    #$DE78,a1
    lea    (a1),a1
    move.l    (a1),d2
    add.l    #$DE78,a0
    lea    (a0),a0
    move.l    4(a0),d0
    mulu.l    d0,d2
;
    bra    L1144
L1136
;           data = ctx->EvalMap.Map2Normal.Points;
    move.l    a0,a1
    add.l    #$DEB4,a1
    lea    (a1),a1
    move.l    $18(a1),-$C(a5)
;           n = ctx->EvalMap.Map2Normal.Uorder
    move.l    a0,a1
    add.l    #$DEB4,a1
    lea    (a1),a1
    move.l    (a1),d2
    add.l    #$DEB4,a0
    lea    (a0),a0
    move.l    4(a0),d0
    mulu.l    d0,d2
    mulu.l    #3,d2
;
    bra    L1144
L1137
;           data = ctx->EvalMap.Map2Texture1.Points;
    move.l    a0,a1
    add.l    #$DED2,a1
    lea    (a1),a1
    move.l    $18(a1),-$C(a5)
;           n = ctx->EvalMap.Map2Texture1.Uorder
    move.l    a0,a1
    add.l    #$DED2,a1
    lea    (a1),a1
    move.l    (a1),d2
    add.l    #$DED2,a0
    lea    (a0),a0
    move.l    4(a0),d0
    mulu.l    d0,d2
;
    bra    L1144
L1138
;           data = ctx->EvalMap.Map2Texture2.Points;
    move.l    a0,a1
    add.l    #$DEF0,a1
    lea    (a1),a1
    move.l    $18(a1),-$C(a5)
;           n = ctx->EvalMap.Map2Texture2.Uorder
    move.l    a0,a1
    add.l    #$DEF0,a1
    lea    (a1),a1
    move.l    (a1),d2
    add.l    #$DEF0,a0
    lea    (a0),a0
    move.l    4(a0),d0
    mulu.l    d0,d2
    moveq    #1,d0
    asl.l    d0,d2
;
    bra    L1144
L1139
;           data = ctx->EvalMap.Map2Texture3.Points;
    move.l    a0,a1
    add.l    #$DF0E,a1
    lea    (a1),a1
    move.l    $18(a1),-$C(a5)
;           n = ctx->EvalMap.Map2Texture3.Uorder
    move.l    a0,a1
    add.l    #$DF0E,a1
    lea    (a1),a1
    move.l    (a1),d2
    add.l    #$DF0E,a0
    lea    (a0),a0
    move.l    4(a0),d0
    mulu.l    d0,d2
    mulu.l    #3,d2
;
    bra    L1144
L1140
;           data = ctx->EvalMap.Map2Texture4.Points;
    move.l    a0,a1
    add.l    #$DF2C,a1
    lea    (a1),a1
    move.l    $18(a1),-$C(a5)
;           n = ctx->EvalMap.Map2Texture4.Uorder
    move.l    a0,a1
    add.l    #$DF2C,a1
    lea    (a1),a1
    move.l    (a1),d2
    add.l    #$DF2C,a0
    lea    (a0),a0
    move.l    4(a0),d0
    mulu.l    d0,d2
    moveq    #2,d0
    asl.l    d0,d2
;
    bra    L1144
L1141
;           data = ctx->EvalMap.Map2Vertex3.Points;
    move.l    a0,a1
    add.l    #$DE3C,a1
    lea    (a1),a1
    move.l    $18(a1),-$C(a5)
;           n = ctx->EvalMap.Map2Vertex3.Uorder
    move.l    a0,a1
    add.l    #$DE3C,a1
    lea    (a1),a1
    move.l    (a1),d2
    add.l    #$DE3C,a0
    lea    (a0),a0
    move.l    4(a0),d0
    mulu.l    d0,d2
    mulu.l    #3,d2
;
    bra.b    L1144
L1142
;           data = ctx->EvalMap.Map2Vertex4.Points;
    move.l    a0,a1
    add.l    #$DE5A,a1
    lea    (a1),a1
    move.l    $18(a1),-$C(a5)
;           n = ctx->EvalMap.Map2Vertex4.Uorder
    move.l    a0,a1
    add.l    #$DE5A,a1
    lea    (a1),a1
    move.l    (a1),d2
    add.l    #$DE5A,a0
    lea    (a0),a0
    move.l    4(a0),d0
    mulu.l    d0,d2
    moveq    #2,d0
    asl.l    d0,d2
;
    bra.b    L1144
L1143
;           gl_error( ctx, GL_INVALID_ENUM, "glGetMapfv(target)"
    move.l    #L1121,-(a7)
    pea    $500.w
    move.l    a0,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
L1144
;     if (data)
    tst.l    -$C(a5)
    beq.b    L1148
L1145
;        for (i=0;
    moveq    #0,d0
    bra.b    L1147
L1146
;           v[i] = data[i];
    move.l    -$C(a5),a1
    lea    0(a1,d0.l*4),a0
    fmove.s    (a0),fp0
    lea    0(a2,d0.l*4),a0
    fmove.s    fp0,(a0)
    addq.l    #1,d0
L1147
    cmp.l    d2,d0
    blo.b    L1146
L1148
;
    bra    L1192
L1149
;     switch (target)
    cmp.l    #$DB0,d0
    beq    L1159
    bgt.b    L1198
    sub.l    #$D90,d0
    cmp.l    #$8,d0
    bhi    L1168
    move.l    L1199(pc,d0.l*4),a1
    jmp    (a1)
L1199
    dc.l    L1150
    dc.l    L1151
    dc.l    L1152
    dc.l    L1153
    dc.l    L1154
    dc.l    L1155
    dc.l    L1156
    dc.l    L1157
    dc.l    L1158
L1198
    sub.l    #$DB1,d0
    cmp.l    #7,d0
    bhi    L1168
    move.l    L1200(pc,d0.l*4),a1
    jmp    (a1)
L1200
    dc.l    L1160
    dc.l    L1161
    dc.l    L1162
    dc.l    L1163
    dc.l    L1164
    dc.l    L1165
    dc.l    L1166
    dc.l    L1167
;
L1150
;           *v = ctx->EvalMap.Map1Color4.Order;
    add.l    #$DDD0,a0
    lea    (a0),a0
    move.l    (a0),d0
    fmove.l    d0,fp0
    fmove.s    fp0,(a2)
;
    bra    L1169
L1151
;           *v = ctx->EvalMap.Map1Index.Order;
    add.l    #$DDBE,a0
    lea    (a0),a0
    move.l    (a0),d0
    fmove.l    d0,fp0
    fmove.s    fp0,(a2)
;
    bra    L1169
L1152
;           *v = ctx->EvalMap.Map1Normal.Order;
    add.l    #$DDE2,a0
    lea    (a0),a0
    move.l    (a0),d0
    fmove.l    d0,fp0
    fmove.s    fp0,(a2)
;
    bra    L1169
L1153
;           *v = ctx->EvalMap.Map1Texture1.Order;
    add.l    #$DDF4,a0
    lea    (a0),a0
    move.l    (a0),d0
    fmove.l    d0,fp0
    fmove.s    fp0,(a2)
;
    bra    L1169
L1154
;           *v = ctx->EvalMap.Map1Texture2.Order;
    add.l    #$DE06,a0
    lea    (a0),a0
    move.l    (a0),d0
    fmove.l    d0,fp0
    fmove.s    fp0,(a2)
;
    bra    L1169
L1155
;           *v = ctx->EvalMap.Map1Texture3.Order;
    add.l    #$DE18,a0
    lea    (a0),a0
    move.l    (a0),d0
    fmove.l    d0,fp0
    fmove.s    fp0,(a2)
;
    bra    L1169
L1156
;           *v = ctx->EvalMap.Map1Texture4.Order;
    add.l    #$DE2A,a0
    lea    (a0),a0
    move.l    (a0),d0
    fmove.l    d0,fp0
    fmove.s    fp0,(a2)
;
    bra    L1169
L1157
;           *v = ctx->EvalMap.Map1Vertex3.Order;
    add.l    #$DD9A,a0
    lea    (a0),a0
    move.l    (a0),d0
    fmove.l    d0,fp0
    fmove.s    fp0,(a2)
;
    bra    L1169
L1158
;           *v = ctx->EvalMap.Map1Vertex4.Order;
    add.l    #$DDAC,a0
    lea    (a0),a0
    move.l    (a0),d0
    fmove.l    d0,fp0
    fmove.s    fp0,(a2)
;
    bra    L1169
L1159
;           v[0] = ctx->EvalMap.Map2Color4.Uorder;
    move.l    a0,a1
    add.l    #$DE96,a1
    lea    (a1),a1
    move.l    (a1),d0
    fmove.l    d0,fp0
    fmove.s    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Color4.Vorder;
    add.l    #$DE96,a0
    lea    (a0),a0
    move.l    4(a0),d0
    fmove.l    d0,fp0
    lea    4(a2),a0
    fmove.s    fp0,(a0)
;
    bra    L1169
L1160
;           v[0] = ctx->EvalMap.Map2Index.Uorder;
    move.l    a0,a1
    add.l    #$DE78,a1
    lea    (a1),a1
    move.l    (a1),d0
    fmove.l    d0,fp0
    fmove.s    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Index.Vorder;
    add.l    #$DE78,a0
    lea    (a0),a0
    move.l    4(a0),d0
    fmove.l    d0,fp0
    lea    4(a2),a0
    fmove.s    fp0,(a0)
;
    bra    L1169
L1161
;           v[0] = ctx->EvalMap.Map2Normal.Uorder;
    move.l    a0,a1
    add.l    #$DEB4,a1
    lea    (a1),a1
    move.l    (a1),d0
    fmove.l    d0,fp0
    fmove.s    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Normal.Vorder;
    add.l    #$DEB4,a0
    lea    (a0),a0
    move.l    4(a0),d0
    fmove.l    d0,fp0
    lea    4(a2),a0
    fmove.s    fp0,(a0)
;
    bra    L1169
L1162
;           v[0] = ctx->EvalMap.Map2Texture1.Uorder;
    move.l    a0,a1
    add.l    #$DED2,a1
    lea    (a1),a1
    move.l    (a1),d0
    fmove.l    d0,fp0
    fmove.s    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Texture1.Vorder;
    add.l    #$DED2,a0
    lea    (a0),a0
    move.l    4(a0),d0
    fmove.l    d0,fp0
    lea    4(a2),a0
    fmove.s    fp0,(a0)
;
    bra    L1169
L1163
;           v[0] = ctx->EvalMap.Map2Texture2.Uorder;
    move.l    a0,a1
    add.l    #$DEF0,a1
    lea    (a1),a1
    move.l    (a1),d0
    fmove.l    d0,fp0
    fmove.s    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Texture2.Vorder;
    add.l    #$DEF0,a0
    lea    (a0),a0
    move.l    4(a0),d0
    fmove.l    d0,fp0
    lea    4(a2),a0
    fmove.s    fp0,(a0)
;
    bra    L1169
L1164
;           v[0] = ctx->EvalMap.Map2Texture3.Uorder;
    move.l    a0,a1
    add.l    #$DF0E,a1
    lea    (a1),a1
    move.l    (a1),d0
    fmove.l    d0,fp0
    fmove.s    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Texture3.Vorder;
    add.l    #$DF0E,a0
    lea    (a0),a0
    move.l    4(a0),d0
    fmove.l    d0,fp0
    lea    4(a2),a0
    fmove.s    fp0,(a0)
;
    bra    L1169
L1165
;           v[0] = ctx->EvalMap.Map2Texture4.Uorder;
    move.l    a0,a1
    add.l    #$DF2C,a1
    lea    (a1),a1
    move.l    (a1),d0
    fmove.l    d0,fp0
    fmove.s    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Texture4.Vorder;
    add.l    #$DF2C,a0
    lea    (a0),a0
    move.l    4(a0),d0
    fmove.l    d0,fp0
    lea    4(a2),a0
    fmove.s    fp0,(a0)
;
    bra.b    L1169
L1166
;           v[0] = ctx->EvalMap.Map2Vertex3.Uorder;
    move.l    a0,a1
    add.l    #$DE3C,a1
    lea    (a1),a1
    move.l    (a1),d0
    fmove.l    d0,fp0
    fmove.s    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Vertex3.Vorder;
    add.l    #$DE3C,a0
    lea    (a0),a0
    move.l    4(a0),d0
    fmove.l    d0,fp0
    lea    4(a2),a0
    fmove.s    fp0,(a0)
;
    bra.b    L1169
L1167
;           v[0] = ctx->EvalMap.Map2Vertex4.Uorder;
    move.l    a0,a1
    add.l    #$DE5A,a1
    lea    (a1),a1
    move.l    (a1),d0
    fmove.l    d0,fp0
    fmove.s    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Vertex4.Vorder;
    add.l    #$DE5A,a0
    lea    (a0),a0
    move.l    4(a0),d0
    fmove.l    d0,fp0
    lea    4(a2),a0
    fmove.s    fp0,(a0)
;
    bra.b    L1169
L1168
;           gl_error( ctx, GL_INVALID_ENUM, "glGetMapfv(target)"
    move.l    #L1121,-(a7)
    pea    $500.w
    move.l    a0,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
L1169
;
    bra    L1192
L1170
;     switch (target)
    cmp.l    #$DB0,d0
    beq    L1180
    bgt.b    L1201
    sub.l    #$D90,d0
    cmp.l    #$8,d0
    bhi    L1189
    move.l    L1202(pc,d0.l*4),a1
    jmp    (a1)
L1202
    dc.l    L1171
    dc.l    L1172
    dc.l    L1173
    dc.l    L1174
    dc.l    L1175
    dc.l    L1176
    dc.l    L1177
    dc.l    L1178
    dc.l    L1179
L1201
    sub.l    #$DB1,d0
    cmp.l    #7,d0
    bhi    L1189
    move.l    L1203(pc,d0.l*4),a1
    jmp    (a1)
L1203
    dc.l    L1181
    dc.l    L1182
    dc.l    L1183
    dc.l    L1184
    dc.l    L1185
    dc.l    L1186
    dc.l    L1187
    dc.l    L1188
;
L1171
;           v[0] = ctx->EvalMap.Map1Color4.u1;
    move.l    a0,a1
    add.l    #$DDD0,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fmove.s    fp0,(a2)
;           v[1] = ctx->EvalMap.Map1Color4.u2;
    add.l    #$DDD0,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    lea    4(a2),a0
    fmove.s    fp0,(a0)
;
    bra    L1190
L1172
;           v[0] = ctx->EvalMap.Map1Index.u1;
    move.l    a0,a1
    add.l    #$DDBE,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fmove.s    fp0,(a2)
;           v[1] = ctx->EvalMap.Map1Index.u2;
    add.l    #$DDBE,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    lea    4(a2),a0
    fmove.s    fp0,(a0)
;
    bra    L1190
L1173
;           v[0] = ctx->EvalMap.Map1Normal.u1;
    move.l    a0,a1
    add.l    #$DDE2,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fmove.s    fp0,(a2)
;           v[1] = ctx->EvalMap.Map1Normal.u2;
    add.l    #$DDE2,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    lea    4(a2),a0
    fmove.s    fp0,(a0)
;
    bra    L1190
L1174
;           v[0] = ctx->EvalMap.Map1Texture1.u1;
    move.l    a0,a1
    add.l    #$DDF4,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fmove.s    fp0,(a2)
;           v[1] = ctx->EvalMap.Map1Texture1.u2;
    add.l    #$DDF4,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    lea    4(a2),a0
    fmove.s    fp0,(a0)
;
    bra    L1190
L1175
;           v[0] = ctx->EvalMap.Map1Texture2.u1;
    move.l    a0,a1
    add.l    #$DE06,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fmove.s    fp0,(a2)
;           v[1] = ctx->EvalMap.Map1Texture2.u2;
    add.l    #$DE06,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    lea    4(a2),a0
    fmove.s    fp0,(a0)
;
    bra    L1190
L1176
;           v[0] = ctx->EvalMap.Map1Texture3.u1;
    move.l    a0,a1
    add.l    #$DE18,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fmove.s    fp0,(a2)
;           v[1] = ctx->EvalMap.Map1Texture3.u2;
    add.l    #$DE18,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    lea    4(a2),a0
    fmove.s    fp0,(a0)
;
    bra    L1190
L1177
;           v[0] = ctx->EvalMap.Map1Texture4.u1;
    move.l    a0,a1
    add.l    #$DE2A,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fmove.s    fp0,(a2)
;           v[1] = ctx->EvalMap.Map1Texture4.u2;
    add.l    #$DE2A,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    lea    4(a2),a0
    fmove.s    fp0,(a0)
;
    bra    L1190
L1178
;           v[0] = ctx->EvalMap.Map1Vertex3.u1;
    move.l    a0,a1
    add.l    #$DD9A,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fmove.s    fp0,(a2)
;           v[1] = ctx->EvalMap.Map1Vertex3.u2;
    add.l    #$DD9A,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    lea    4(a2),a0
    fmove.s    fp0,(a0)
;
    bra    L1190
L1179
;           v[0] = ctx->EvalMap.Map1Vertex4.u1;
    move.l    a0,a1
    add.l    #$DDAC,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fmove.s    fp0,(a2)
;           v[1] = ctx->EvalMap.Map1Vertex4.u2;
    add.l    #$DDAC,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    lea    4(a2),a0
    fmove.s    fp0,(a0)
;
    bra    L1190
L1180
;           v[0] = ctx->EvalMap.Map2Color4.u1;
    move.l    a0,a1
    add.l    #$DE96,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fmove.s    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Color4.u2;
    move.l    a0,a1
    add.l    #$DE96,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    lea    4(a2),a1
    fmove.s    fp0,(a1)
;           v[2] = ctx->EvalMap.Map2Color4.v1;
    move.l    a0,a1
    add.l    #$DE96,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    lea    $8(a2),a1
    fmove.s    fp0,(a1)
;           v[3] = ctx->EvalMap.Map2Color4.v2;
    add.l    #$DE96,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    lea    $C(a2),a0
    fmove.s    fp0,(a0)
;
    bra    L1190
L1181
;           v[0] = ctx->EvalMap.Map2Index.u1;
    move.l    a0,a1
    add.l    #$DE78,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fmove.s    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Index.u2;
    move.l    a0,a1
    add.l    #$DE78,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    lea    4(a2),a1
    fmove.s    fp0,(a1)
;           v[2] = ctx->EvalMap.Map2Index.v1;
    move.l    a0,a1
    add.l    #$DE78,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    lea    $8(a2),a1
    fmove.s    fp0,(a1)
;           v[3] = ctx->EvalMap.Map2Index.v2;
    add.l    #$DE78,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    lea    $C(a2),a0
    fmove.s    fp0,(a0)
;
    bra    L1190
L1182
;           v[0] = ctx->EvalMap.Map2Normal.u1;
    move.l    a0,a1
    add.l    #$DEB4,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fmove.s    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Normal.u2;
    move.l    a0,a1
    add.l    #$DEB4,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    lea    4(a2),a1
    fmove.s    fp0,(a1)
;           v[2] = ctx->EvalMap.Map2Normal.v1;
    move.l    a0,a1
    add.l    #$DEB4,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    lea    $8(a2),a1
    fmove.s    fp0,(a1)
;           v[3] = ctx->EvalMap.Map2Normal.v2;
    add.l    #$DEB4,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    lea    $C(a2),a0
    fmove.s    fp0,(a0)
;
    bra    L1190
L1183
;           v[0] = ctx->EvalMap.Map2Texture1.u1;
    move.l    a0,a1
    add.l    #$DED2,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fmove.s    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Texture1.u2;
    move.l    a0,a1
    add.l    #$DED2,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    lea    4(a2),a1
    fmove.s    fp0,(a1)
;           v[2] = ctx->EvalMap.Map2Texture1.v1;
    move.l    a0,a1
    add.l    #$DED2,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    lea    $8(a2),a1
    fmove.s    fp0,(a1)
;           v[3] = ctx->EvalMap.Map2Texture1.v2;
    add.l    #$DED2,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    lea    $C(a2),a0
    fmove.s    fp0,(a0)
;
    bra    L1190
L1184
;           v[0] = ctx->EvalMap.Map2Texture2.u1;
    move.l    a0,a1
    add.l    #$DEF0,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fmove.s    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Texture2.u2;
    move.l    a0,a1
    add.l    #$DEF0,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    lea    4(a2),a1
    fmove.s    fp0,(a1)
;           v[2] = ctx->EvalMap.Map2Texture2.v1;
    move.l    a0,a1
    add.l    #$DEF0,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    lea    $8(a2),a1
    fmove.s    fp0,(a1)
;           v[3] = ctx->EvalMap.Map2Texture2.v2;
    add.l    #$DEF0,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    lea    $C(a2),a0
    fmove.s    fp0,(a0)
;
    bra    L1190
L1185
;           v[0] = ctx->EvalMap.Map2Texture3.u1;
    move.l    a0,a1
    add.l    #$DF0E,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fmove.s    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Texture3.u2;
    move.l    a0,a1
    add.l    #$DF0E,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    lea    4(a2),a1
    fmove.s    fp0,(a1)
;           v[2] = ctx->EvalMap.Map2Texture3.v1;
    move.l    a0,a1
    add.l    #$DF0E,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    lea    $8(a2),a1
    fmove.s    fp0,(a1)
;           v[3] = ctx->EvalMap.Map2Texture3.v2;
    add.l    #$DF0E,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    lea    $C(a2),a0
    fmove.s    fp0,(a0)
;
    bra    L1190
L1186
;           v[0] = ctx->EvalMap.Map2Texture4.u1;
    move.l    a0,a1
    add.l    #$DF2C,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fmove.s    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Texture4.u2;
    move.l    a0,a1
    add.l    #$DF2C,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    lea    4(a2),a1
    fmove.s    fp0,(a1)
;           v[2] = ctx->EvalMap.Map2Texture4.v1;
    move.l    a0,a1
    add.l    #$DF2C,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    lea    $8(a2),a1
    fmove.s    fp0,(a1)
;           v[3] = ctx->EvalMap.Map2Texture4.v2;
    add.l    #$DF2C,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    lea    $C(a2),a0
    fmove.s    fp0,(a0)
;
    bra    L1190
L1187
;           v[0] = ctx->EvalMap.Map2Vertex3.u1;
    move.l    a0,a1
    add.l    #$DE3C,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fmove.s    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Vertex3.u2;
    move.l    a0,a1
    add.l    #$DE3C,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    lea    4(a2),a1
    fmove.s    fp0,(a1)
;           v[2] = ctx->EvalMap.Map2Vertex3.v1;
    move.l    a0,a1
    add.l    #$DE3C,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    lea    $8(a2),a1
    fmove.s    fp0,(a1)
;           v[3] = ctx->EvalMap.Map2Vertex3.v2;
    add.l    #$DE3C,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    lea    $C(a2),a0
    fmove.s    fp0,(a0)
;
    bra.b    L1190
L1188
;           v[0] = ctx->EvalMap.Map2Vertex4.u1;
    move.l    a0,a1
    add.l    #$DE5A,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fmove.s    fp0,(a2)
;           v[1] = ctx->EvalMap.Map2Vertex4.u2;
    move.l    a0,a1
    add.l    #$DE5A,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    lea    4(a2),a1
    fmove.s    fp0,(a1)
;           v[2] = ctx->EvalMap.Map2Vertex4.v1;
    move.l    a0,a1
    add.l    #$DE5A,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    lea    $8(a2),a1
    fmove.s    fp0,(a1)
;           v[3] = ctx->EvalMap.Map2Vertex4.v2;
    add.l    #$DE5A,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    lea    $C(a2),a0
    fmove.s    fp0,(a0)
;
    bra.b    L1190
L1189
;           gl_error( ctx, GL_INVALID_ENUM, "glGetMapfv(target)"
    move.l    #L1121,-(a7)
    pea    $500.w
    move.l    a0,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
L1190
;
    bra.b    L1192
L1191
;     gl_error( ctx, GL_INVALID_ENUM, "glGetMapfv(query)" );
    move.l    #L1122,-(a7)
    pea    $500.w
    move.l    a0,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
L1192
    movem.l    (a7)+,d2/a2
    unlk    a5
    rts

L1122
    dc.b    'glGetMapfv(query)',0
L1121
    dc.b    'glGetMapfv(target)',0

    SECTION "_gl_GetMapiv:0",CODE


;void gl_GetMapiv( GLcontext* ctx, GLenum target, GLenum query, GLint
    XDEF    _gl_GetMapiv
_gl_GetMapiv
L1441    EQU    -$54
    link    a5,#L1441
    movem.l    d2/a2,-(a7)
    movem.l    $C(a5),d0/d1/a2
    move.l    $8(a5),a0
L1206
;   switch (query)
    cmp.l    #$A01,d1
    beq    L1235
    bgt.b    L1442
    cmp.l    #$A00,d1
    beq.b    L1207
    bra    L1439
L1442
    cmp.l    #$A02,d1
    beq    L1256
    bra    L1439
;
L1207
;     switch (target)
    cmp.l    #$DB0,d0
    beq    L1217
    bgt.b    L1443
    sub.l    #$D90,d0
    cmp.l    #$8,d0
    bhi    L1226
    move.l    L1444(pc,d0.l*4),a1
    jmp    (a1)
L1444
    dc.l    L1208
    dc.l    L1209
    dc.l    L1210
    dc.l    L1211
    dc.l    L1212
    dc.l    L1213
    dc.l    L1214
    dc.l    L1215
    dc.l    L1216
L1443
    sub.l    #$DB1,d0
    cmp.l    #7,d0
    bhi    L1226
    move.l    L1445(pc,d0.l*4),a1
    jmp    (a1)
L1445
    dc.l    L1218
    dc.l    L1219
    dc.l    L1220
    dc.l    L1221
    dc.l    L1222
    dc.l    L1223
    dc.l    L1224
    dc.l    L1225
;
L1208
;           data = ctx->EvalMap.Map1Color4.Points;
    move.l    a0,a1
    add.l    #$DDD0,a1
    lea    (a1),a1
    move.l    $C(a1),-$C(a5)
;           n = ctx->EvalMap.Map1Color4.Order * 4;
    add.l    #$DDD0,a0
    lea    (a0),a0
    move.l    (a0),d2
    moveq    #2,d0
    asl.l    d0,d2
;
    bra    L1227
L1209
;           data = ctx->EvalMap.Map1Index.Points;
    move.l    a0,a1
    add.l    #$DDBE,a1
    lea    (a1),a1
    move.l    $C(a1),-$C(a5)
;           n = ctx->EvalMap.Map1Index.Order;
    add.l    #$DDBE,a0
    lea    (a0),a0
    move.l    (a0),d2
;
    bra    L1227
L1210
;           data = ctx->EvalMap.Map1Normal.Points;
    move.l    a0,a1
    add.l    #$DDE2,a1
    lea    (a1),a1
    move.l    $C(a1),-$C(a5)
;           n = ctx->EvalMap.Map1Normal.Order * 3;
    add.l    #$DDE2,a0
    lea    (a0),a0
    move.l    (a0),d2
    mulu.l    #3,d2
;
    bra    L1227
L1211
;           data = ctx->EvalMap.Map1Texture1.Points;
    move.l    a0,a1
    add.l    #$DDF4,a1
    lea    (a1),a1
    move.l    $C(a1),-$C(a5)
;           n = ctx->EvalMap.Map1Texture1.Order * 1;
    add.l    #$DDF4,a0
    lea    (a0),a0
    move.l    (a0),d2
;
    bra    L1227
L1212
;           data = ctx->EvalMap.Map1Texture2.Points;
    move.l    a0,a1
    add.l    #$DE06,a1
    lea    (a1),a1
    move.l    $C(a1),-$C(a5)
;           n = ctx->EvalMap.Map1Texture2.Order * 2;
    add.l    #$DE06,a0
    lea    (a0),a0
    move.l    (a0),d2
    moveq    #1,d0
    asl.l    d0,d2
;
    bra    L1227
L1213
;           data = ctx->EvalMap.Map1Texture3.Points;
    move.l    a0,a1
    add.l    #$DE18,a1
    lea    (a1),a1
    move.l    $C(a1),-$C(a5)
;           n = ctx->EvalMap.Map1Texture3.Order * 3;
    add.l    #$DE18,a0
    lea    (a0),a0
    move.l    (a0),d2
    mulu.l    #3,d2
;
    bra    L1227
L1214
;           data = ctx->EvalMap.Map1Texture4.Points;
    move.l    a0,a1
    add.l    #$DE2A,a1
    lea    (a1),a1
    move.l    $C(a1),-$C(a5)
;           n = ctx->EvalMap.Map1Texture4.Order * 4;
    add.l    #$DE2A,a0
    lea    (a0),a0
    move.l    (a0),d2
    moveq    #2,d0
    asl.l    d0,d2
;
    bra    L1227
L1215
;           data = ctx->EvalMap.Map1Vertex3.Points;
    move.l    a0,a1
    add.l    #$DD9A,a1
    lea    (a1),a1
    move.l    $C(a1),-$C(a5)
;           n = ctx->EvalMap.Map1Vertex3.Order * 3;
    add.l    #$DD9A,a0
    lea    (a0),a0
    move.l    (a0),d2
    mulu.l    #3,d2
;
    bra    L1227
L1216
;           data = ctx->EvalMap.Map1Vertex4.Points;
    move.l    a0,a1
    add.l    #$DDAC,a1
    lea    (a1),a1
    move.l    $C(a1),-$C(a5)
;           n = ctx->EvalMap.Map1Vertex4.Order * 4;
    add.l    #$DDAC,a0
    lea    (a0),a0
    move.l    (a0),d2
    moveq    #2,d0
    asl.l    d0,d2
;
    bra    L1227
L1217
;           data = ctx->EvalMap.Map2Color4.Points;
    move.l    a0,a1
    add.l    #$DE96,a1
    lea    (a1),a1
    move.l    $18(a1),-$C(a5)
;           n = ctx->EvalMap.Map2Color4.Uorder
    move.l    a0,a1
    add.l    #$DE96,a1
    lea    (a1),a1
    move.l    (a1),d2
    add.l    #$DE96,a0
    lea    (a0),a0
    move.l    4(a0),d0
    mulu.l    d0,d2
    moveq    #2,d0
    asl.l    d0,d2
;
    bra    L1227
L1218
;           data = ctx->EvalMap.Map2Index.Points;
    move.l    a0,a1
    add.l    #$DE78,a1
    lea    (a1),a1
    move.l    $18(a1),-$C(a5)
;           n = ctx->EvalMap.Map2Index.Uorder
    move.l    a0,a1
    add.l    #$DE78,a1
    lea    (a1),a1
    move.l    (a1),d2
    add.l    #$DE78,a0
    lea    (a0),a0
    move.l    4(a0),d0
    mulu.l    d0,d2
;
    bra    L1227
L1219
;           data = ctx->EvalMap.Map2Normal.Points;
    move.l    a0,a1
    add.l    #$DEB4,a1
    lea    (a1),a1
    move.l    $18(a1),-$C(a5)
;           n = ctx->EvalMap.Map2Normal.Uorder
    move.l    a0,a1
    add.l    #$DEB4,a1
    lea    (a1),a1
    move.l    (a1),d2
    add.l    #$DEB4,a0
    lea    (a0),a0
    move.l    4(a0),d0
    mulu.l    d0,d2
    mulu.l    #3,d2
;
    bra    L1227
L1220
;           data = ctx->EvalMap.Map2Texture1.Points;
    move.l    a0,a1
    add.l    #$DED2,a1
    lea    (a1),a1
    move.l    $18(a1),-$C(a5)
;           n = ctx->EvalMap.Map2Texture1.Uorder
    move.l    a0,a1
    add.l    #$DED2,a1
    lea    (a1),a1
    move.l    (a1),d2
    add.l    #$DED2,a0
    lea    (a0),a0
    move.l    4(a0),d0
    mulu.l    d0,d2
;
    bra    L1227
L1221
;           data = ctx->EvalMap.Map2Texture2.Points;
    move.l    a0,a1
    add.l    #$DEF0,a1
    lea    (a1),a1
    move.l    $18(a1),-$C(a5)
;           n = ctx->EvalMap.Map2Texture2.Uorder
    move.l    a0,a1
    add.l    #$DEF0,a1
    lea    (a1),a1
    move.l    (a1),d2
    add.l    #$DEF0,a0
    lea    (a0),a0
    move.l    4(a0),d0
    mulu.l    d0,d2
    moveq    #1,d0
    asl.l    d0,d2
;
    bra    L1227
L1222
;           data = ctx->EvalMap.Map2Texture3.Points;
    move.l    a0,a1
    add.l    #$DF0E,a1
    lea    (a1),a1
    move.l    $18(a1),-$C(a5)
;           n = ctx->EvalMap.Map2Texture3.Uorder
    move.l    a0,a1
    add.l    #$DF0E,a1
    lea    (a1),a1
    move.l    (a1),d2
    add.l    #$DF0E,a0
    lea    (a0),a0
    move.l    4(a0),d0
    mulu.l    d0,d2
    mulu.l    #3,d2
;
    bra    L1227
L1223
;           data = ctx->EvalMap.Map2Texture4.Points;
    move.l    a0,a1
    add.l    #$DF2C,a1
    lea    (a1),a1
    move.l    $18(a1),-$C(a5)
;           n = ctx->EvalMap.Map2Texture4.Uorder
    move.l    a0,a1
    add.l    #$DF2C,a1
    lea    (a1),a1
    move.l    (a1),d2
    add.l    #$DF2C,a0
    lea    (a0),a0
    move.l    4(a0),d0
    mulu.l    d0,d2
    moveq    #2,d0
    asl.l    d0,d2
;
    bra    L1227
L1224
;           data = ctx->EvalMap.Map2Vertex3.Points;
    move.l    a0,a1
    add.l    #$DE3C,a1
    lea    (a1),a1
    move.l    $18(a1),-$C(a5)
;           n = ctx->EvalMap.Map2Vertex3.Uorder
    move.l    a0,a1
    add.l    #$DE3C,a1
    lea    (a1),a1
    move.l    (a1),d2
    add.l    #$DE3C,a0
    lea    (a0),a0
    move.l    4(a0),d0
    mulu.l    d0,d2
    mulu.l    #3,d2
;
    bra.b    L1227
L1225
;           data = ctx->EvalMap.Map2Vertex4.Points;
    move.l    a0,a1
    add.l    #$DE5A,a1
    lea    (a1),a1
    move.l    $18(a1),-$C(a5)
;           n = ctx->EvalMap.Map2Vertex4.Uorder
    move.l    a0,a1
    add.l    #$DE5A,a1
    lea    (a1),a1
    move.l    (a1),d2
    add.l    #$DE5A,a0
    lea    (a0),a0
    move.l    4(a0),d0
    mulu.l    d0,d2
    moveq    #2,d0
    asl.l    d0,d2
;
    bra.b    L1227
L1226
;           gl_error( ctx, GL_INVALID_ENUM, "glGetMapiv(target)"
    move.l    #L1204,-(a7)
    pea    $500.w
    move.l    a0,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
L1227
;     if (data)
    tst.l    -$C(a5)
    beq.b    L1234
L1228
;        for (i=0;
    moveq    #0,d0
    bra.b    L1233
L1229
;           v[i] = ROUNDF(data[i]);
    move.l    -$C(a5),a1
    lea    0(a1,d0.l*4),a0
    fmove.s    (a0),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1231
L1230
    move.l    -$C(a5),a1
    lea    0(a1,d0.l*4),a0
    fmove.s    (a0),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d1
    bra.b    L1232
L1231
    move.l    -$C(a5),a1
    lea    0(a1,d0.l*4),a0
    fmove.s    (a0),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d1
L1232
    lea    0(a2,d0.l*4),a0
    move.l    d1,(a0)
    addq.l    #1,d0
L1233
    cmp.l    d2,d0
    blo.b    L1229
L1234
;
    bra    L1440
L1235
;     switch (target)
    cmp.l    #$DB0,d0
    beq    L1245
    bgt.b    L1446
    sub.l    #$D90,d0
    cmp.l    #$8,d0
    bhi    L1254
    move.l    L1447(pc,d0.l*4),a1
    jmp    (a1)
L1447
    dc.l    L1236
    dc.l    L1237
    dc.l    L1238
    dc.l    L1239
    dc.l    L1240
    dc.l    L1241
    dc.l    L1242
    dc.l    L1243
    dc.l    L1244
L1446
    sub.l    #$DB1,d0
    cmp.l    #7,d0
    bhi    L1254
    move.l    L1448(pc,d0.l*4),a1
    jmp    (a1)
L1448
    dc.l    L1246
    dc.l    L1247
    dc.l    L1248
    dc.l    L1249
    dc.l    L1250
    dc.l    L1251
    dc.l    L1252
    dc.l    L1253
;
L1236
;           *v = ctx->EvalMap.Map1Color4.Order;
    add.l    #$DDD0,a0
    lea    (a0),a0
    move.l    (a0),d0
    move.l    d0,(a2)
;
    bra    L1255
L1237
;           *v = ctx->EvalMap.Map1Index.Order;
    add.l    #$DDBE,a0
    lea    (a0),a0
    move.l    (a0),d0
    move.l    d0,(a2)
;
    bra    L1255
L1238
;           *v = ctx->EvalMap.Map1Normal.Order;
    add.l    #$DDE2,a0
    lea    (a0),a0
    move.l    (a0),d0
    move.l    d0,(a2)
;
    bra    L1255
L1239
;           *v = ctx->EvalMap.Map1Texture1.Order;
    add.l    #$DDF4,a0
    lea    (a0),a0
    move.l    (a0),d0
    move.l    d0,(a2)
;
    bra    L1255
L1240
;           *v = ctx->EvalMap.Map1Texture2.Order;
    add.l    #$DE06,a0
    lea    (a0),a0
    move.l    (a0),d0
    move.l    d0,(a2)
;
    bra    L1255
L1241
;           *v = ctx->EvalMap.Map1Texture3.Order;
    add.l    #$DE18,a0
    lea    (a0),a0
    move.l    (a0),d0
    move.l    d0,(a2)
;
    bra    L1255
L1242
;           *v = ctx->EvalMap.Map1Texture4.Order;
    add.l    #$DE2A,a0
    lea    (a0),a0
    move.l    (a0),d0
    move.l    d0,(a2)
;
    bra    L1255
L1243
;           *v = ctx->EvalMap.Map1Vertex3.Order;
    add.l    #$DD9A,a0
    lea    (a0),a0
    move.l    (a0),d0
    move.l    d0,(a2)
;
    bra    L1255
L1244
;           *v = ctx->EvalMap.Map1Vertex4.Order;
    add.l    #$DDAC,a0
    lea    (a0),a0
    move.l    (a0),d0
    move.l    d0,(a2)
;
    bra    L1255
L1245
;           v[0] = ctx->EvalMap.Map2Color4.Uorder;
    move.l    a0,a1
    add.l    #$DE96,a1
    lea    (a1),a1
    move.l    (a1),d0
    move.l    d0,(a2)
;           v[1] = ctx->EvalMap.Map2Color4.Vorder;
    add.l    #$DE96,a0
    lea    (a0),a0
    move.l    4(a0),d0
    lea    4(a2),a0
    move.l    d0,(a0)
;
    bra    L1255
L1246
;           v[0] = ctx->EvalMap.Map2Index.Uorder;
    move.l    a0,a1
    add.l    #$DE78,a1
    lea    (a1),a1
    move.l    (a1),d0
    move.l    d0,(a2)
;           v[1] = ctx->EvalMap.Map2Index.Vorder;
    add.l    #$DE78,a0
    lea    (a0),a0
    move.l    4(a0),d0
    lea    4(a2),a0
    move.l    d0,(a0)
;
    bra    L1255
L1247
;           v[0] = ctx->EvalMap.Map2Normal.Uorder;
    move.l    a0,a1
    add.l    #$DEB4,a1
    lea    (a1),a1
    move.l    (a1),d0
    move.l    d0,(a2)
;           v[1] = ctx->EvalMap.Map2Normal.Vorder;
    add.l    #$DEB4,a0
    lea    (a0),a0
    move.l    4(a0),d0
    lea    4(a2),a0
    move.l    d0,(a0)
;
    bra    L1255
L1248
;           v[0] = ctx->EvalMap.Map2Texture1.Uorder;
    move.l    a0,a1
    add.l    #$DED2,a1
    lea    (a1),a1
    move.l    (a1),d0
    move.l    d0,(a2)
;           v[1] = ctx->EvalMap.Map2Texture1.Vorder;
    add.l    #$DED2,a0
    lea    (a0),a0
    move.l    4(a0),d0
    lea    4(a2),a0
    move.l    d0,(a0)
;
    bra    L1255
L1249
;           v[0] = ctx->EvalMap.Map2Texture2.Uorder;
    move.l    a0,a1
    add.l    #$DEF0,a1
    lea    (a1),a1
    move.l    (a1),d0
    move.l    d0,(a2)
;           v[1] = ctx->EvalMap.Map2Texture2.Vorder;
    add.l    #$DEF0,a0
    lea    (a0),a0
    move.l    4(a0),d0
    lea    4(a2),a0
    move.l    d0,(a0)
;
    bra    L1255
L1250
;           v[0] = ctx->EvalMap.Map2Texture3.Uorder;
    move.l    a0,a1
    add.l    #$DF0E,a1
    lea    (a1),a1
    move.l    (a1),d0
    move.l    d0,(a2)
;           v[1] = ctx->EvalMap.Map2Texture3.Vorder;
    add.l    #$DF0E,a0
    lea    (a0),a0
    move.l    4(a0),d0
    lea    4(a2),a0
    move.l    d0,(a0)
;
    bra    L1255
L1251
;           v[0] = ctx->EvalMap.Map2Texture4.Uorder;
    move.l    a0,a1
    add.l    #$DF2C,a1
    lea    (a1),a1
    move.l    (a1),d0
    move.l    d0,(a2)
;           v[1] = ctx->EvalMap.Map2Texture4.Vorder;
    add.l    #$DF2C,a0
    lea    (a0),a0
    move.l    4(a0),d0
    lea    4(a2),a0
    move.l    d0,(a0)
;
    bra.b    L1255
L1252
;           v[0] = ctx->EvalMap.Map2Vertex3.Uorder;
    move.l    a0,a1
    add.l    #$DE3C,a1
    lea    (a1),a1
    move.l    (a1),d0
    move.l    d0,(a2)
;           v[1] = ctx->EvalMap.Map2Vertex3.Vorder;
    add.l    #$DE3C,a0
    lea    (a0),a0
    move.l    4(a0),d0
    lea    4(a2),a0
    move.l    d0,(a0)
;
    bra.b    L1255
L1253
;           v[0] = ctx->EvalMap.Map2Vertex4.Uorder;
    move.l    a0,a1
    add.l    #$DE5A,a1
    lea    (a1),a1
    move.l    (a1),d0
    move.l    d0,(a2)
;           v[1] = ctx->EvalMap.Map2Vertex4.Vorder;
    add.l    #$DE5A,a0
    lea    (a0),a0
    move.l    4(a0),d0
    lea    4(a2),a0
    move.l    d0,(a0)
;
    bra.b    L1255
L1254
;           gl_error( ctx, GL_INVALID_ENUM, "glGetMapiv(target)"
    move.l    #L1204,-(a7)
    pea    $500.w
    move.l    a0,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
L1255
;
    bra    L1440
L1256
;     switch (target)
    cmp.l    #$DB0,d0
    beq    L1320
    bgt.b    L1449
    sub.l    #$D90,d0
    cmp.l    #$8,d0
    bhi    L1437
    move.l    L1450(pc,d0.l*4),a1
    jmp    (a1)
L1450
    dc.l    L1257
    dc.l    L1264
    dc.l    L1271
    dc.l    L1278
    dc.l    L1285
    dc.l    L1292
    dc.l    L1299
    dc.l    L1306
    dc.l    L1313
L1449
    sub.l    #$DB1,d0
    cmp.l    #7,d0
    bhi    L1437
    move.l    L1451(pc,d0.l*4),a1
    jmp    (a1)
L1451
    dc.l    L1333
    dc.l    L1346
    dc.l    L1359
    dc.l    L1372
    dc.l    L1385
    dc.l    L1398
    dc.l    L1411
    dc.l    L1424
;
L1257
;           v[0] = ROUNDF(ctx->EvalMap.Map1Color4.u1);
    move.l    a0,a1
    add.l    #$DDD0,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1259
L1258
    move.l    a0,a1
    add.l    #$DDD0,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1260
L1259
    move.l    a0,a1
    add.l    #$DDD0,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1260
    move.l    d0,(a2)
;           v[1] = ROUNDF(ctx->EvalMap.Map1Color4.u2);
    move.l    a0,a1
    add.l    #$DDD0,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1262
L1261
    add.l    #$DDD0,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1263
L1262
    add.l    #$DDD0,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1263
    lea    4(a2),a0
    move.l    d0,(a0)
;
    bra    L1438
L1264
;           v[0] = ROUNDF(ctx->EvalMap.Map1Index.u1);
    move.l    a0,a1
    add.l    #$DDBE,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1266
L1265
    move.l    a0,a1
    add.l    #$DDBE,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1267
L1266
    move.l    a0,a1
    add.l    #$DDBE,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1267
    move.l    d0,(a2)
;           v[1] = ROUNDF(ctx->EvalMap.Map1Index.u2);
    move.l    a0,a1
    add.l    #$DDBE,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1269
L1268
    add.l    #$DDBE,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1270
L1269
    add.l    #$DDBE,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1270
    lea    4(a2),a0
    move.l    d0,(a0)
;
    bra    L1438
L1271
;           v[0] = ROUNDF(ctx->EvalMap.Map1Normal.u1);
    move.l    a0,a1
    add.l    #$DDE2,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1273
L1272
    move.l    a0,a1
    add.l    #$DDE2,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1274
L1273
    move.l    a0,a1
    add.l    #$DDE2,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1274
    move.l    d0,(a2)
;           v[1] = ROUNDF(ctx->EvalMap.Map1Normal.u2);
    move.l    a0,a1
    add.l    #$DDE2,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1276
L1275
    add.l    #$DDE2,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1277
L1276
    add.l    #$DDE2,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1277
    lea    4(a2),a0
    move.l    d0,(a0)
;
    bra    L1438
L1278
;           v[0] = ROUNDF(ctx->EvalMap.Map1Texture1.u1);
    move.l    a0,a1
    add.l    #$DDF4,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1280
L1279
    move.l    a0,a1
    add.l    #$DDF4,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1281
L1280
    move.l    a0,a1
    add.l    #$DDF4,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1281
    move.l    d0,(a2)
;           v[1] = ROUNDF(ctx->EvalMap.Map1Texture1.u2);
    move.l    a0,a1
    add.l    #$DDF4,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1283
L1282
    add.l    #$DDF4,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1284
L1283
    add.l    #$DDF4,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1284
    lea    4(a2),a0
    move.l    d0,(a0)
;
    bra    L1438
L1285
;           v[0] = ROUNDF(ctx->EvalMap.Map1Texture2.u1);
    move.l    a0,a1
    add.l    #$DE06,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1287
L1286
    move.l    a0,a1
    add.l    #$DE06,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1288
L1287
    move.l    a0,a1
    add.l    #$DE06,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1288
    move.l    d0,(a2)
;           v[1] = ROUNDF(ctx->EvalMap.Map1Texture2.u2);
    move.l    a0,a1
    add.l    #$DE06,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1290
L1289
    add.l    #$DE06,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1291
L1290
    add.l    #$DE06,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1291
    lea    4(a2),a0
    move.l    d0,(a0)
;
    bra    L1438
L1292
;           v[0] = ROUNDF(ctx->EvalMap.Map1Texture3.u1);
    move.l    a0,a1
    add.l    #$DE18,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1294
L1293
    move.l    a0,a1
    add.l    #$DE18,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1295
L1294
    move.l    a0,a1
    add.l    #$DE18,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1295
    move.l    d0,(a2)
;           v[1] = ROUNDF(ctx->EvalMap.Map1Texture3.u2);
    move.l    a0,a1
    add.l    #$DE18,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1297
L1296
    add.l    #$DE18,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1298
L1297
    add.l    #$DE18,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1298
    lea    4(a2),a0
    move.l    d0,(a0)
;
    bra    L1438
L1299
;           v[0] = ROUNDF(ctx->EvalMap.Map1Texture4.u1);
    move.l    a0,a1
    add.l    #$DE2A,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1301
L1300
    move.l    a0,a1
    add.l    #$DE2A,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1302
L1301
    move.l    a0,a1
    add.l    #$DE2A,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1302
    move.l    d0,(a2)
;           v[1] = ROUNDF(ctx->EvalMap.Map1Texture4.u2);
    move.l    a0,a1
    add.l    #$DE2A,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1304
L1303
    add.l    #$DE2A,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1305
L1304
    add.l    #$DE2A,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1305
    lea    4(a2),a0
    move.l    d0,(a0)
;
    bra    L1438
L1306
;           v[0] = ROUNDF(ctx->EvalMap.Map1Vertex3.u1);
    move.l    a0,a1
    add.l    #$DD9A,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1308
L1307
    move.l    a0,a1
    add.l    #$DD9A,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1309
L1308
    move.l    a0,a1
    add.l    #$DD9A,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1309
    move.l    d0,(a2)
;           v[1] = ROUNDF(ctx->EvalMap.Map1Vertex3.u2);
    move.l    a0,a1
    add.l    #$DD9A,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1311
L1310
    add.l    #$DD9A,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1312
L1311
    add.l    #$DD9A,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1312
    lea    4(a2),a0
    move.l    d0,(a0)
;
    bra    L1438
L1313
;           v[0] = ROUNDF(ctx->EvalMap.Map1Vertex4.u1);
    move.l    a0,a1
    add.l    #$DDAC,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1315
L1314
    move.l    a0,a1
    add.l    #$DDAC,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1316
L1315
    move.l    a0,a1
    add.l    #$DDAC,a1
    lea    (a1),a1
    fmove.s    4(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1316
    move.l    d0,(a2)
;           v[1] = ROUNDF(ctx->EvalMap.Map1Vertex4.u2);
    move.l    a0,a1
    add.l    #$DDAC,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1318
L1317
    add.l    #$DDAC,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1319
L1318
    add.l    #$DDAC,a0
    lea    (a0),a0
    fmove.s    $8(a0),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1319
    lea    4(a2),a0
    move.l    d0,(a0)
;
    bra    L1438
L1320
;           v[0] = ROUNDF(ctx->EvalMap.Map2Color4.u1);
    move.l    a0,a1
    add.l    #$DE96,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1322
L1321
    move.l    a0,a1
    add.l    #$DE96,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1323
L1322
    move.l    a0,a1
    add.l    #$DE96,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1323
    move.l    d0,(a2)
;           v[1] = ROUNDF(ctx->EvalMap.Map2Color4.u2);
    move.l    a0,a1
    add.l    #$DE96,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1325
L1324
    move.l    a0,a1
    add.l    #$DE96,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1326
L1325
    move.l    a0,a1
    add.l    #$DE96,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1326
    lea    4(a2),a1
    move.l    d0,(a1)
;           v[2] = ROUNDF(ctx->EvalMap.Map2Color4.v1);
    move.l    a0,a1
    add.l    #$DE96,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1328
L1327
    move.l    a0,a1
    add.l    #$DE96,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1329
L1328
    move.l    a0,a1
    add.l    #$DE96,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1329
    lea    $8(a2),a1
    move.l    d0,(a1)
;           v[3] = ROUNDF(ctx->EvalMap.Map2Color4.v2);
    move.l    a0,a1
    add.l    #$DE96,a1
    lea    (a1),a1
    fmove.s    $14(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1331
L1330
    add.l    #$DE96,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1332
L1331
    add.l    #$DE96,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1332
    lea    $C(a2),a0
    move.l    d0,(a0)
;
    bra    L1438
L1333
;           v[0] = ROUNDF(ctx->EvalMap.Map2Index.u1);
    move.l    a0,a1
    add.l    #$DE78,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1335
L1334
    move.l    a0,a1
    add.l    #$DE78,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1336
L1335
    move.l    a0,a1
    add.l    #$DE78,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1336
    move.l    d0,(a2)
;           v[1] = ROUNDF(ctx->EvalMap.Map2Index.u2);
    move.l    a0,a1
    add.l    #$DE78,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1338
L1337
    move.l    a0,a1
    add.l    #$DE78,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1339
L1338
    move.l    a0,a1
    add.l    #$DE78,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1339
    lea    4(a2),a1
    move.l    d0,(a1)
;           v[2] = ROUNDF(ctx->EvalMap.Map2Index.v1);
    move.l    a0,a1
    add.l    #$DE78,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1341
L1340
    move.l    a0,a1
    add.l    #$DE78,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1342
L1341
    move.l    a0,a1
    add.l    #$DE78,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1342
    lea    $8(a2),a1
    move.l    d0,(a1)
;           v[3] = ROUNDF(ctx->EvalMap.Map2Index.v2);
    move.l    a0,a1
    add.l    #$DE78,a1
    lea    (a1),a1
    fmove.s    $14(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1344
L1343
    add.l    #$DE78,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1345
L1344
    add.l    #$DE78,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1345
    lea    $C(a2),a0
    move.l    d0,(a0)
;
    bra    L1438
L1346
;           v[0] = ROUNDF(ctx->EvalMap.Map2Normal.u1);
    move.l    a0,a1
    add.l    #$DEB4,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1348
L1347
    move.l    a0,a1
    add.l    #$DEB4,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1349
L1348
    move.l    a0,a1
    add.l    #$DEB4,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1349
    move.l    d0,(a2)
;           v[1] = ROUNDF(ctx->EvalMap.Map2Normal.u2);
    move.l    a0,a1
    add.l    #$DEB4,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1351
L1350
    move.l    a0,a1
    add.l    #$DEB4,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1352
L1351
    move.l    a0,a1
    add.l    #$DEB4,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1352
    lea    4(a2),a1
    move.l    d0,(a1)
;           v[2] = ROUNDF(ctx->EvalMap.Map2Normal.v1);
    move.l    a0,a1
    add.l    #$DEB4,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1354
L1353
    move.l    a0,a1
    add.l    #$DEB4,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1355
L1354
    move.l    a0,a1
    add.l    #$DEB4,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1355
    lea    $8(a2),a1
    move.l    d0,(a1)
;           v[3] = ROUNDF(ctx->EvalMap.Map2Normal.v2);
    move.l    a0,a1
    add.l    #$DEB4,a1
    lea    (a1),a1
    fmove.s    $14(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1357
L1356
    add.l    #$DEB4,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1358
L1357
    add.l    #$DEB4,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1358
    lea    $C(a2),a0
    move.l    d0,(a0)
;
    bra    L1438
L1359
;           v[0] = ROUNDF(ctx->EvalMap.Map2Texture1.u1);
    move.l    a0,a1
    add.l    #$DED2,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1361
L1360
    move.l    a0,a1
    add.l    #$DED2,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1362
L1361
    move.l    a0,a1
    add.l    #$DED2,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1362
    move.l    d0,(a2)
;           v[1] = ROUNDF(ctx->EvalMap.Map2Texture1.u2);
    move.l    a0,a1
    add.l    #$DED2,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1364
L1363
    move.l    a0,a1
    add.l    #$DED2,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1365
L1364
    move.l    a0,a1
    add.l    #$DED2,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1365
    lea    4(a2),a1
    move.l    d0,(a1)
;           v[2] = ROUNDF(ctx->EvalMap.Map2Texture1.v1);
    move.l    a0,a1
    add.l    #$DED2,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1367
L1366
    move.l    a0,a1
    add.l    #$DED2,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1368
L1367
    move.l    a0,a1
    add.l    #$DED2,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1368
    lea    $8(a2),a1
    move.l    d0,(a1)
;           v[3] = ROUNDF(ctx->EvalMap.Map2Texture1.v2);
    move.l    a0,a1
    add.l    #$DED2,a1
    lea    (a1),a1
    fmove.s    $14(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1370
L1369
    add.l    #$DED2,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1371
L1370
    add.l    #$DED2,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1371
    lea    $C(a2),a0
    move.l    d0,(a0)
;
    bra    L1438
L1372
;           v[0] = ROUNDF(ctx->EvalMap.Map2Texture2.u1);
    move.l    a0,a1
    add.l    #$DEF0,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1374
L1373
    move.l    a0,a1
    add.l    #$DEF0,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1375
L1374
    move.l    a0,a1
    add.l    #$DEF0,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1375
    move.l    d0,(a2)
;           v[1] = ROUNDF(ctx->EvalMap.Map2Texture2.u2);
    move.l    a0,a1
    add.l    #$DEF0,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1377
L1376
    move.l    a0,a1
    add.l    #$DEF0,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1378
L1377
    move.l    a0,a1
    add.l    #$DEF0,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1378
    lea    4(a2),a1
    move.l    d0,(a1)
;           v[2] = ROUNDF(ctx->EvalMap.Map2Texture2.v1);
    move.l    a0,a1
    add.l    #$DEF0,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1380
L1379
    move.l    a0,a1
    add.l    #$DEF0,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1381
L1380
    move.l    a0,a1
    add.l    #$DEF0,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1381
    lea    $8(a2),a1
    move.l    d0,(a1)
;           v[3] = ROUNDF(ctx->EvalMap.Map2Texture2.v2);
    move.l    a0,a1
    add.l    #$DEF0,a1
    lea    (a1),a1
    fmove.s    $14(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1383
L1382
    add.l    #$DEF0,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1384
L1383
    add.l    #$DEF0,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1384
    lea    $C(a2),a0
    move.l    d0,(a0)
;
    bra    L1438
L1385
;           v[0] = ROUNDF(ctx->EvalMap.Map2Texture3.u1);
    move.l    a0,a1
    add.l    #$DF0E,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1387
L1386
    move.l    a0,a1
    add.l    #$DF0E,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1388
L1387
    move.l    a0,a1
    add.l    #$DF0E,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1388
    move.l    d0,(a2)
;           v[1] = ROUNDF(ctx->EvalMap.Map2Texture3.u2);
    move.l    a0,a1
    add.l    #$DF0E,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1390
L1389
    move.l    a0,a1
    add.l    #$DF0E,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1391
L1390
    move.l    a0,a1
    add.l    #$DF0E,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1391
    lea    4(a2),a1
    move.l    d0,(a1)
;           v[2] = ROUNDF(ctx->EvalMap.Map2Texture3.v1);
    move.l    a0,a1
    add.l    #$DF0E,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1393
L1392
    move.l    a0,a1
    add.l    #$DF0E,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1394
L1393
    move.l    a0,a1
    add.l    #$DF0E,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1394
    lea    $8(a2),a1
    move.l    d0,(a1)
;           v[3] = ROUNDF(ctx->EvalMap.Map2Texture3.v2);
    move.l    a0,a1
    add.l    #$DF0E,a1
    lea    (a1),a1
    fmove.s    $14(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1396
L1395
    add.l    #$DF0E,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1397
L1396
    add.l    #$DF0E,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1397
    lea    $C(a2),a0
    move.l    d0,(a0)
;
    bra    L1438
L1398
;           v[0] = ROUNDF(ctx->EvalMap.Map2Texture4.u1);
    move.l    a0,a1
    add.l    #$DF2C,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1400
L1399
    move.l    a0,a1
    add.l    #$DF2C,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1401
L1400
    move.l    a0,a1
    add.l    #$DF2C,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1401
    move.l    d0,(a2)
;           v[1] = ROUNDF(ctx->EvalMap.Map2Texture4.u2);
    move.l    a0,a1
    add.l    #$DF2C,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1403
L1402
    move.l    a0,a1
    add.l    #$DF2C,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1404
L1403
    move.l    a0,a1
    add.l    #$DF2C,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1404
    lea    4(a2),a1
    move.l    d0,(a1)
;           v[2] = ROUNDF(ctx->EvalMap.Map2Texture4.v1);
    move.l    a0,a1
    add.l    #$DF2C,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1406
L1405
    move.l    a0,a1
    add.l    #$DF2C,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1407
L1406
    move.l    a0,a1
    add.l    #$DF2C,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1407
    lea    $8(a2),a1
    move.l    d0,(a1)
;           v[3] = ROUNDF(ctx->EvalMap.Map2Texture4.v2);
    move.l    a0,a1
    add.l    #$DF2C,a1
    lea    (a1),a1
    fmove.s    $14(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1409
L1408
    add.l    #$DF2C,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1410
L1409
    add.l    #$DF2C,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1410
    lea    $C(a2),a0
    move.l    d0,(a0)
;
    bra    L1438
L1411
;           v[0] = ROUNDF(ctx->EvalMap.Map2Vertex3.u1);
    move.l    a0,a1
    add.l    #$DE3C,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1413
L1412
    move.l    a0,a1
    add.l    #$DE3C,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1414
L1413
    move.l    a0,a1
    add.l    #$DE3C,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1414
    move.l    d0,(a2)
;           v[1] = ROUNDF(ctx->EvalMap.Map2Vertex3.u2);
    move.l    a0,a1
    add.l    #$DE3C,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1416
L1415
    move.l    a0,a1
    add.l    #$DE3C,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1417
L1416
    move.l    a0,a1
    add.l    #$DE3C,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1417
    lea    4(a2),a1
    move.l    d0,(a1)
;           v[2] = ROUNDF(ctx->EvalMap.Map2Vertex3.v1);
    move.l    a0,a1
    add.l    #$DE3C,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1419
L1418
    move.l    a0,a1
    add.l    #$DE3C,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1420
L1419
    move.l    a0,a1
    add.l    #$DE3C,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1420
    lea    $8(a2),a1
    move.l    d0,(a1)
;           v[3] = ROUNDF(ctx->EvalMap.Map2Vertex3.v2);
    move.l    a0,a1
    add.l    #$DE3C,a1
    lea    (a1),a1
    fmove.s    $14(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1422
L1421
    add.l    #$DE3C,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1423
L1422
    add.l    #$DE3C,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1423
    lea    $C(a2),a0
    move.l    d0,(a0)
;
    bra    L1438
L1424
;           v[0] = ROUNDF(ctx->EvalMap.Map2Vertex4.u1);
    move.l    a0,a1
    add.l    #$DE5A,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1426
L1425
    move.l    a0,a1
    add.l    #$DE5A,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1427
L1426
    move.l    a0,a1
    add.l    #$DE5A,a1
    lea    (a1),a1
    fmove.s    $8(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1427
    move.l    d0,(a2)
;           v[1] = ROUNDF(ctx->EvalMap.Map2Vertex4.u2);
    move.l    a0,a1
    add.l    #$DE5A,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1429
L1428
    move.l    a0,a1
    add.l    #$DE5A,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1430
L1429
    move.l    a0,a1
    add.l    #$DE5A,a1
    lea    (a1),a1
    fmove.s    $C(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1430
    lea    4(a2),a1
    move.l    d0,(a1)
;           v[2] = ROUNDF(ctx->EvalMap.Map2Vertex4.v1);
    move.l    a0,a1
    add.l    #$DE5A,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1432
L1431
    move.l    a0,a1
    add.l    #$DE5A,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1433
L1432
    move.l    a0,a1
    add.l    #$DE5A,a1
    lea    (a1),a1
    fmove.s    $10(a1),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1433
    lea    $8(a2),a1
    move.l    d0,(a1)
;           v[3] = ROUNDF(ctx->EvalMap.Map2Vertex4.v2);
    move.l    a0,a1
    add.l    #$DE5A,a1
    lea    (a1),a1
    fmove.s    $14(a1),fp0
    fcmp.s    #$.00000000,fp0
    fboge.b    L1435
L1434
    add.l    #$DE5A,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    fsub.s    #$.3F000000,fp0
    fmove.l    fp0,d0
    bra.b    L1436
L1435
    add.l    #$DE5A,a0
    lea    (a0),a0
    fmove.s    $14(a0),fp0
    fadd.s    #$.3F000000,fp0
    fmove.l    fp0,d0
L1436
    lea    $C(a2),a0
    move.l    d0,(a0)
;
    bra.b    L1438
L1437
;           gl_error( ctx, GL_INVALID_ENUM, "glGetMapiv(target)"
    move.l    #L1204,-(a7)
    pea    $500.w
    move.l    a0,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
L1438
;
    bra.b    L1440
L1439
;     gl_error( ctx, GL_INVALID_ENUM, "glGetMapiv(query)" );
    move.l    #L1205,-(a7)
    pea    $500.w
    move.l    a0,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
L1440
    movem.l    (a7)+,d2/a2
    unlk    a5
    rts

L1205
    dc.b    'glGetMapiv(query)',0
L1204
    dc.b    'glGetMapiv(target)',0

    SECTION "_gl_EvalCoord1f:0",CODE


;void gl_EvalCoord1f(GLcontext* ctx, GLfloat u)
    XDEF    _gl_EvalCoord1f
_gl_EvalCoord1f
L1475    EQU    -$6C
    link    a5,#L1475
    movem.l    d2/a2,-(a7)
    fmovem.x fp2/fp3,-(a7)
    move.l    $8(a5),a2
    fmove.s    $C(a5),fp2
L1452
;  if (ctx->Eval.Map1Vertex4)
    lea    $1F2E(a2),a0
    move.b    $8(a0),d0
    beq.b    L1454
L1453
;     struct gl_1d_map *map = &ctx->EvalMap.Map1Vertex4;
    move.l    a2,a0
    add.l    #$DDAC,a0
    lea    (a0),a0
;     uu = (u - map->u1) / (map->u2 - map->u1);
    fmove.s    4(a0),fp0
    fmove.x    fp2,fp1
    fsub.x    fp0,fp1
    fmove.x    fp1,fp0
    fmove.s    $8(a0),fp1
    fmove.s    4(a0),fp3
    fsub.x    fp3,fp1
    fdiv.x    fp1,fp0
;     horner_bezier_curve(map->Points, vertex, uu, 4, map->Order)
    move.l    (a0),d0
    move.l    d0,-(a7)
    pea    4.w
    fmove.s    fp0,-(a7)
    lea    -$10(a5),a1
    move.l    a1,-(a7)
    move.l    $C(a0),a0
    move.l    a0,-(a7)
    jsr    _horner_bezier_curve
    add.w    #$14,a7
    bra.b    L1456
L1454
;  else if (ctx->Eval.Map1Vertex3)
    lea    $1F2E(a2),a0
    move.b    7(a0),d0
    beq.b    L1456
L1455
;     struct gl_1d_map *map = &ctx->EvalMap.Map1Vertex3;
    move.l    a2,a0
    add.l    #$DD9A,a0
    lea    (a0),a0
;     uu = (u - map->u1) / (map->u2 - map->u1);
    fmove.s    4(a0),fp0
    fmove.x    fp2,fp1
    fsub.x    fp0,fp1
    fmove.x    fp1,fp0
    fmove.s    $8(a0),fp1
    fmove.s    4(a0),fp3
    fsub.x    fp3,fp1
    fdiv.x    fp1,fp0
;     horner_bezier_curve(map->Points, vertex, uu, 3, map->Order)
    move.l    (a0),d0
    move.l    d0,-(a7)
    pea    3.w
    fmove.s    fp0,-(a7)
    lea    -$10(a5),a1
    move.l    a1,-(a7)
    move.l    $C(a0),a0
    move.l    a0,-(a7)
    jsr    _horner_bezier_curve
    add.w    #$14,a7
;     vertex[3] = 1.0;
    lea    -$10(a5),a0
    add.w    #$C,a0
    move.l    #$3F800000,(a0)
L1456
;  if (ctx->Eval.Map1Index)
    lea    $1F2E(a2),a0
    move.b    1(a0),d0
    beq.b    L1458
L1457
;     struct gl_1d_map *map = &ctx->EvalMap.Map1Index;
    move.l    a2,a0
    add.l    #$DDBE,a0
    lea    (a0),a0
;     uu = (u - map->u1) / (map->u2 - map->u1);
    fmove.s    4(a0),fp0
    fmove.x    fp2,fp1
    fsub.x    fp0,fp1
    fmove.x    fp1,fp0
    fmove.s    $8(a0),fp1
    fmove.s    4(a0),fp3
    fsub.x    fp3,fp1
    fdiv.x    fp1,fp0
;     horner_bezier_curve(map->Points, &findex, uu, 1, map->Orde
    move.l    (a0),d0
    move.l    d0,-(a7)
    pea    1.w
    fmove.s    fp0,-(a7)
    lea    -$54(a5),a1
    move.l    a1,-(a7)
    move.l    $C(a0),a0
    move.l    a0,-(a7)
    jsr    _horner_bezier_curve
    add.w    #$14,a7
;     index = (GLuint) (GLint) findex;
    fmove.s    -$54(a5),fp0
    fmove.l    fp0,d2
    bra.b    L1459
L1458
;     index = ctx->Current.Index;
    lea    $1EC6(a2),a0
    move.l    4(a0),d2
L1459
;  if (ctx->Eval.Map1Color4)
    lea    $1F2E(a2),a0
    move.b    (a0),d0
    beq    L1461
L1460
;     struct gl_1d_map *map = &ctx->EvalMap.Map1Color4;
    move.l    a2,a0
    add.l    #$DDD0,a0
    lea    (a0),a0
;     uu = (u - map->u1) / (map->u2 - map->u1);
    fmove.s    4(a0),fp0
    fmove.x    fp2,fp1
    fsub.x    fp0,fp1
    fmove.x    fp1,fp0
    fmove.s    $8(a0),fp1
    fmove.s    4(a0),fp3
    fsub.x    fp3,fp1
    fdiv.x    fp1,fp0
;     horner_bezier_curve(map->Points, fcolor, uu, 4, map->Order)
    move.l    (a0),d0
    move.l    d0,-(a7)
    pea    4.w
    fmove.s    fp0,-(a7)
    lea    -$2C(a5),a1
    move.l    a1,-(a7)
    move.l    $C(a0),a0
    move.l    a0,-(a7)
    jsr    _horner_bezier_curve
    add.w    #$14,a7
;     icolor[0] = (GLint) (fcolor[0] * ctx->Visual->RedScale);
    lea    -$2C(a5),a0
    fmove.s    (a0),fp0
    move.l    $898(a2),a0
    fmove.s    2(a0),fp1
    fmul.x    fp1,fp0
    fmove.l    fp0,d0
    lea    -$30(a5),a0
    move.b    d0,(a0)
;     icolor[1] = (GLint) (fcolor[1] * ctx->Visual->GreenScale);
    lea    -$2C(a5),a0
    addq.w    #4,a0
    fmove.s    (a0),fp0
    move.l    $898(a2),a0
    fmove.s    6(a0),fp1
    fmul.x    fp1,fp0
    fmove.l    fp0,d0
    lea    -$30(a5),a0
    addq.w    #1,a0
    move.b    d0,(a0)
;     icolor[2] = (GLint) (fcolor[2] * ctx->Visual->BlueScale);
    lea    -$2C(a5),a0
    addq.w    #$8,a0
    fmove.s    (a0),fp0
    move.l    $898(a2),a0
    fmove.s    $A(a0),fp1
    fmul.x    fp1,fp0
    fmove.l    fp0,d0
    lea    -$30(a5),a0
    addq.w    #2,a0
    move.b    d0,(a0)
;     icolor[3] = (GLint) (fcolor[3] * ctx->Visual->AlphaScale);
    lea    -$2C(a5),a0
    add.w    #$C,a0
    fmove.s    (a0),fp0
    move.l    $898(a2),a0
    fmove.s    $E(a0),fp1
    fmul.x    fp1,fp0
    fmove.l    fp0,d0
    lea    -$30(a5),a0
    addq.w    #3,a0
    move.b    d0,(a0)
;     colorptr = icolor;
    lea    -$30(a5),a0
    move.l    a0,-$34(a5)
    bra.b    L1462
L1461
;     COPY_4V(col, ctx->Curr
    lea    $1EC6(a2),a0
    move.b    (a0),d0
    lea    -$58(a5),a0
    move.b    d0,(a0)
;     COPY_4V(col, ctx->Curr
    lea    $1EC6(a2),a0
    addq.w    #1,a0
    move.b    (a0),d0
    lea    -$58(a5),a0
    addq.w    #1,a0
    move.b    d0,(a0)
;     COPY_4V(col, ctx->Curr
    lea    $1EC6(a2),a0
    addq.w    #2,a0
    move.b    (a0),d0
    lea    -$58(a5),a0
    addq.w    #2,a0
    move.b    d0,(a0)
;     COPY_4V(col, ctx->Curr
    lea    $1EC6(a2),a0
    addq.w    #3,a0
    move.b    (a0),d0
    lea    -$58(a5),a0
    addq.w    #3,a0
    move.b    d0,(a0)
;     colorptr = col;
    lea    -$58(a5),a0
    move.l    a0,-$34(a5)
L1462
;  if (ctx->Eval.Map1Normal)
    lea    $1F2E(a2),a0
    move.b    2(a0),d0
    beq.b    L1464
L1463
;     struct gl_1d_map *map = &ctx->EvalMap.Map1Normal;
    move.l    a2,a0
    add.l    #$DDE2,a0
    lea    (a0),a0
;     uu = (u - map->u1) / (map->u2 - map->u1);
    fmove.s    4(a0),fp0
    fmove.x    fp2,fp1
    fsub.x    fp0,fp1
    fmove.x    fp1,fp0
    fmove.s    $8(a0),fp1
    fmove.s    4(a0),fp3
    fsub.x    fp3,fp1
    fdiv.x    fp1,fp0
;     horner_bezier_curve(map->Points, normal, uu, 3, map->Order)
    move.l    (a0),d0
    move.l    d0,-(a7)
    pea    3.w
    fmove.s    fp0,-(a7)
    lea    -$1C(a5),a1
    move.l    a1,-(a7)
    move.l    $C(a0),a0
    move.l    a0,-(a7)
    jsr    _horner_bezier_curve
    add.w    #$14,a7
    bra.b    L1465
L1464
;    normal[0] = ctx->Current.Normal[0];
    lea    $1ECE(a2),a0
    fmove.s    (a0),fp0
    lea    -$1C(a5),a0
    fmove.s    fp0,(a0)
;    normal[1] = ctx->Current.Normal[1];
    lea    $1ECE(a2),a0
    addq.w    #4,a0
    fmove.s    (a0),fp0
    lea    -$1C(a5),a0
    addq.w    #4,a0
    fmove.s    fp0,(a0)
;    normal[2] = ctx->Current.Normal[2];
    lea    $1ECE(a2),a0
    addq.w    #$8,a0
    fmove.s    (a0),fp0
    lea    -$1C(a5),a0
    addq.w    #$8,a0
    fmove.s    fp0,(a0)
L1465
;  if (ctx->Eval.Map1TextureCoord4)
    lea    $1F2E(a2),a0
    move.b    6(a0),d0
    beq.b    L1467
L1466
;     struct gl_1d_map *map = &ctx->EvalMap.Map1Texture4;
    move.l    a2,a0
    add.l    #$DE2A,a0
    lea    (a0),a0
;     uu = (u - map->u1) / (map->u2 - map->u1);
    fmove.s    4(a0),fp0
    fsub.x    fp0,fp2
    fmove.x    fp2,fp0
    fmove.s    $8(a0),fp1
    fmove.s    4(a0),fp2
    fsub.x    fp2,fp1
    fdiv.x    fp1,fp0
;     horner_bezier_curve(map->Points, texcoord, uu, 4, map->Ord
    move.l    (a0),d0
    move.l    d0,-(a7)
    pea    4.w
    fmove.s    fp0,-(a7)
    lea    -$44(a5),a1
    move.l    a1,-(a7)
    move.l    $C(a0),a0
    move.l    a0,-(a7)
    jsr    _horner_bezier_curve
    add.w    #$14,a7
    bra    L1474
L1467
;  else if (ctx->Eval.Map1TextureCoord3)
    lea    $1F2E(a2),a0
    move.b    5(a0),d0
    beq.b    L1469
L1468
;     struct gl_1d_map *map = &ctx->EvalMap.Map1Texture3;
    move.l    a2,a0
    add.l    #$DE18,a0
    lea    (a0),a0
;     uu = (u - map->u1) / (map->u2 - map->u1);
    fmove.s    4(a0),fp0
    fsub.x    fp0,fp2
    fmove.x    fp2,fp0
    fmove.s    $8(a0),fp1
    fmove.s    4(a0),fp2
    fsub.x    fp2,fp1
    fdiv.x    fp1,fp0
;     horner_bezier_curve(map->Points, texcoord, uu, 3, map->Ord
    move.l    (a0),d0
    move.l    d0,-(a7)
    pea    3.w
    fmove.s    fp0,-(a7)
    lea    -$44(a5),a1
    move.l    a1,-(a7)
    move.l    $C(a0),a0
    move.l    a0,-(a7)
    jsr    _horner_bezier_curve
    add.w    #$14,a7
;     texcoord[3] = 1.0;
    lea    -$44(a5),a0
    add.w    #$C,a0
    move.l    #$3F800000,(a0)
    bra    L1474
L1469
;  else if (ctx->Eval.Map1TextureCoord2)
    lea    $1F2E(a2),a0
    move.b    4(a0),d0
    beq.b    L1471
L1470
;     struct gl_1d_map *map = &ctx->EvalMap.Map1Texture2;
    move.l    a2,a0
    add.l    #$DE06,a0
    lea    (a0),a0
;     uu = (u - map->u1) / (map->u2 - map->u1);
    fmove.s    4(a0),fp0
    fsub.x    fp0,fp2
    fmove.x    fp2,fp0
    fmove.s    $8(a0),fp1
    fmove.s    4(a0),fp2
    fsub.x    fp2,fp1
    fdiv.x    fp1,fp0
;     horner_bezier_curve(map->Points, texcoord, uu, 2, map->Ord
    move.l    (a0),d0
    move.l    d0,-(a7)
    pea    2.w
    fmove.s    fp0,-(a7)
    lea    -$44(a5),a1
    move.l    a1,-(a7)
    move.l    $C(a0),a0
    move.l    a0,-(a7)
    jsr    _horner_bezier_curve
    add.w    #$14,a7
;     texcoord[2] = 0.0;
    lea    -$44(a5),a0
    addq.w    #$8,a0
    clr.l    (a0)
;     texcoord[3] = 1.0;
    lea    -$44(a5),a0
    add.w    #$C,a0
    move.l    #$3F800000,(a0)
    bra    L1474
L1471
;  else if (ctx->Eval.Map1TextureCoord1)
    lea    $1F2E(a2),a0
    move.b    3(a0),d0
    beq.b    L1473
L1472
;     struct gl_1d_map *map = &ctx->EvalMap.Map1Texture1;
    move.l    a2,a0
    add.l    #$DDF4,a0
    lea    (a0),a0
;     uu = (u - map->u1) / (map->u2 - map->u1);
    fmove.s    4(a0),fp0
    fsub.x    fp0,fp2
    fmove.x    fp2,fp0
    fmove.s    $8(a0),fp1
    fmove.s    4(a0),fp2
    fsub.x    fp2,fp1
    fdiv.x    fp1,fp0
;     horner_bezier_curve(map->Points, texcoord, uu, 1, map->Ord
    move.l    (a0),d0
    move.l    d0,-(a7)
    pea    1.w
    fmove.s    fp0,-(a7)
    lea    -$44(a5),a1
    move.l    a1,-(a7)
    move.l    $C(a0),a0
    move.l    a0,-(a7)
    jsr    _horner_bezier_curve
    add.w    #$14,a7
;     texcoord[1] = 0.0;
    lea    -$44(a5),a0
    addq.w    #4,a0
    clr.l    (a0)
;     texcoord[2] = 0.0;
    lea    -$44(a5),a0
    addq.w    #$8,a0
    clr.l    (a0)
;     texcoord[3] = 1.0;
    lea    -$44(a5),a0
    add.w    #$C,a0
    move.l    #$3F800000,(a0)
    bra.b    L1474
L1473
;     texcoord[0] = ctx->Current.TexCoord[0];
    lea    $1EDA(a2),a0
    fmove.s    (a0),fp0
    lea    -$44(a5),a0
    fmove.s    fp0,(a0)
;     texcoord[1] = ctx->Current.TexCoord[1];
    lea    $1EDA(a2),a0
    addq.w    #4,a0
    fmove.s    (a0),fp0
    lea    -$44(a5),a0
    addq.w    #4,a0
    fmove.s    fp0,(a0)
;     texcoord[2] = ctx->Current.TexCoord[2];
    lea    $1EDA(a2),a0
    addq.w    #$8,a0
    fmove.s    (a0),fp0
    lea    -$44(a5),a0
    addq.w    #$8,a0
    fmove.s    fp0,(a0)
;     texcoord[3] = ctx->Current.TexCoord[3];
    lea    $1EDA(a2),a0
    add.w    #$C,a0
    fmove.s    (a0),fp0
    lea    -$44(a5),a0
    add.w    #$C,a0
    fmove.s    fp0,(a0)
L1474
;  gl_eval_vertex( ctx, vertex, normal, colorptr, index, texcoord );
    lea    -$44(a5),a0
    move.l    a0,-(a7)
    move.l    d2,-(a7)
    move.l    -$34(a5),-(a7)
    lea    -$1C(a5),a0
    move.l    a0,-(a7)
    lea    -$10(a5),a0
    move.l    a0,-(a7)
    move.l    a2,-(a7)
    jsr    _gl_eval_vertex
    add.w    #$18,a7
    fmovem.x (a7)+,fp2/fp3
    movem.l    (a7)+,d2/a2
    unlk    a5
    rts

    SECTION "_gl_EvalCoord2f:0",CODE


;void gl_EvalCoord2f( GLcontext* ctx, GLfloat u, GLfloat v )
    XDEF    _gl_EvalCoord2f
_gl_EvalCoord2f
L1512    EQU    -$90
    link    a5,#L1512
    movem.l    d2/a2,-(a7)
    fmovem.x fp2/fp3/fp4/fp5,-(a7)
    move.l    $8(a5),a2
    fmove.s    $10(a5),fp2
    fmove.s    $C(a5),fp3
L1476
;   if(ctx->Eval.Map2Vertex4)
    lea    $1F2E(a2),a0
    move.b    $11(a0),d0
    beq    L1483
L1477
;      struct gl_2d_map *map = &ctx->EvalMap.Map2Vertex4;
    move.l    a2,a0
    add.l    #$DE5A,a0
    lea    (a0),a0
;      uu = (u - map->u1) / (map->u2 - map->u1);
    fmove.s    $8(a0),fp1
    fmove.x    fp3,fp0
    fsub.x    fp1,fp0
    fmove.x    fp0,fp1
    fmove.s    $C(a0),fp0
    fmove.s    $8(a0),fp4
    fsub.x    fp4,fp0
    fdiv.x    fp0,fp1
;      vv = (v - map->v1) / (map->v2 - map->v1);
    fmove.s    $10(a0),fp0
    fmove.x    fp2,fp4
    fsub.x    fp0,fp4
    fmove.x    fp4,fp0
    fmove.s    $14(a0),fp4
    fmove.s    $10(a0),fp5
    fsub.x    fp5,fp4
    fdiv.x    fp4,fp0
;      if (ctx->Eval.AutoNormal)
    lea    $1F2E(a2),a1
    move.b    $12(a1),d0
    beq    L1481
L1478
;     de_casteljau_surf(map->Points, vertex, du, dv, uu, vv, 4,
    move.l    4(a0),d0
    move.l    d0,-(a7)
    move.l    (a0),d0
    move.l    d0,-(a7)
    pea    4.w
    fmove.s    fp0,-(a7)
    fmove.s    fp1,-(a7)
    lea    -$6C(a5),a1
    move.l    a1,-(a7)
    lea    -$5C(a5),a1
    move.l    a1,-(a7)
    lea    -$10(a5),a1
    move.l    a1,-(a7)
    move.l    $18(a0),a0
    move.l    a0,-(a7)
    jsr    _de_casteljau_surf
    add.w    #$24,a7
;     CROSS_PROD(normal, du, dv)
    lea    -$5C(a5),a0
    addq.w    #4,a0
    fmove.s    (a0),fp0
    lea    -$6C(a5),a0
    addq.w    #$8,a0
    fmove.s    (a0),fp1
    fmul.x    fp1,fp0
    lea    -$5C(a5),a0
    addq.w    #$8,a0
    fmove.s    (a0),fp1
    lea    -$6C(a5),a0
    addq.w    #4,a0
    fmove.s    (a0),fp4
    fmul.x    fp4,fp1
    fsub.x    fp1,fp0
    lea    -$1C(a5),a0
    fmove.s    fp0,(a0)
;     CROSS_PROD(normal, du, dv)
    lea    -$5C(a5),a0
    addq.w    #$8,a0
    fmove.s    (a0),fp0
    lea    -$6C(a5),a0
    fmove.s    (a0),fp1
    fmul.x    fp1,fp0
    lea    -$5C(a5),a0
    fmove.s    (a0),fp1
    lea    -$6C(a5),a0
    addq.w    #$8,a0
    fmove.s    (a0),fp4
    fmul.x    fp4,fp1
    fsub.x    fp1,fp0
    lea    -$1C(a5),a0
    addq.w    #4,a0
    fmove.s    fp0,(a0)
;     CROSS_PROD(normal, du, dv);
    lea    -$5C(a5),a0
    fmove.s    (a0),fp0
    lea    -$6C(a5),a0
    addq.w    #4,a0
    fmove.s    (a0),fp1
    fmul.x    fp1,fp0
    lea    -$5C(a5),a0
    addq.w    #4,a0
    fmove.s    (a0),fp1
    lea    -$6C(a5),a0
    fmove.s    (a0),fp4
    fmul.x    fp4,fp1
    fsub.x    fp1,fp0
    lea    -$1C(a5),a0
    addq.w    #$8,a0
    fmove.s    fp0,(a0)
;     NORMALIZE_3FV(normal)
    lea    -$1C(a5),a0
    fmove.s    (a0),fp0
    lea    -$1C(a5),a0
    fmove.s    (a0),fp1
    fmul.x    fp1,fp0
    lea    -$1C(a5),a0
    addq.w    #4,a0
    fmove.s    (a0),fp1
    lea    -$1C(a5),a0
    addq.w    #4,a0
    fmove.s    (a0),fp4
    fmul.x    fp4,fp1
    fadd.x    fp1,fp0
    lea    -$1C(a5),a0
    addq.w    #$8,a0
    fmove.s    (a0),fp1
    lea    -$1C(a5),a0
    addq.w    #$8,a0
    fmove.s    (a0),fp4
    fmul.x    fp4,fp1
    fadd.x    fp1,fp0
    fmove.d    fp0,-(a7)
    jsr    _sqrt__r
    addq.w    #$8,a7
;     NORMALIZE_3FV(normal)
    fcmp.s    #$.38D1B717,fp0
    fbole.b    L1480
L1479
;     NORMALIZE_3FV(normal)
    fmove.s    #$.3F800000,fp1
    fdiv.x    fp0,fp1
    fmove.x    fp1,fp0
;     NORMALIZE_3FV(normal)
    lea    -$1C(a5),a0
    fmove.s    (a0),fp1
    fmul.x    fp0,fp1
    fmove.s    fp1,(a0)
;     NORMALIZE_3FV(normal)
    lea    -$1C(a5),a0
    addq.w    #4,a0
    fmove.s    (a0),fp1
    fmul.x    fp0,fp1
    fmove.s    fp1,(a0)
;     NORMALIZE_3FV(normal)
    lea    -$1C(a5),a0
    addq.w    #$8,a0
    fmove.s    (a0),fp1
    fmul.x    fp0,fp1
    fmove.s    fp1,(a0)
L1480
    bra.b    L1482
L1481
;     horner_bezier_surf(map->Points, vertex, uu, vv, 4,
    move.l    4(a0),d0
    move.l    d0,-(a7)
    move.l    (a0),d0
    move.l    d0,-(a7)
    pea    4.w
    fmove.s    fp0,-(a7)
    fmove.s    fp1,-(a7)
    lea    -$10(a5),a1
    move.l    a1,-(a7)
    move.l    $18(a0),a0
    move.l    a0,-(a7)
    jsr    _horner_bezier_surf
    add.w    #$1C,a7
L1482
    bra    L1490
L1483
;   else if (ctx->Eval.Map2Vertex3)
    lea    $1F2E(a2),a0
    move.b    $10(a0),d0
    beq    L1490
L1484
;      struct gl_2d_map *map = &ctx->EvalMap.Map2Vertex3;
    move.l    a2,a0
    add.l    #$DE3C,a0
    lea    (a0),a0
;      uu = (u - map->u1) / (map->u2 - map->u1);
    fmove.s    $8(a0),fp1
    fmove.x    fp3,fp0
    fsub.x    fp1,fp0
    fmove.x    fp0,fp1
    fmove.s    $C(a0),fp0
    fmove.s    $8(a0),fp4
    fsub.x    fp4,fp0
    fdiv.x    fp0,fp1
;      vv = (v - map->v1) / (map->v2 - map->v1);
    fmove.s    $10(a0),fp0
    fmove.x    fp2,fp4
    fsub.x    fp0,fp4
    fmove.x    fp4,fp0
    fmove.s    $14(a0),fp4
    fmove.s    $10(a0),fp5
    fsub.x    fp5,fp4
    fdiv.x    fp4,fp0
;      if (ctx->Eval.AutoNormal)
    lea    $1F2E(a2),a1
    move.b    $12(a1),d0
    beq    L1488
L1485
;     de_casteljau_surf(map->Points, vertex, du, dv, uu, vv, 3,
    move.l    4(a0),d0
    move.l    d0,-(a7)
    move.l    (a0),d0
    move.l    d0,-(a7)
    pea    3.w
    fmove.s    fp0,-(a7)
    fmove.s    fp1,-(a7)
    lea    -$64(a5),a1
    move.l    a1,-(a7)
    lea    -$58(a5),a1
    move.l    a1,-(a7)
    lea    -$10(a5),a1
    move.l    a1,-(a7)
    move.l    $18(a0),a0
    move.l    a0,-(a7)
    jsr    _de_casteljau_surf
    add.w    #$24,a7
;     CROSS_PROD(normal, du, dv)
    lea    -$58(a5),a0
    addq.w    #4,a0
    fmove.s    (a0),fp0
    lea    -$64(a5),a0
    addq.w    #$8,a0
    fmove.s    (a0),fp1
    fmul.x    fp1,fp0
    lea    -$58(a5),a0
    addq.w    #$8,a0
    fmove.s    (a0),fp1
    lea    -$64(a5),a0
    addq.w    #4,a0
    fmove.s    (a0),fp4
    fmul.x    fp4,fp1
    fsub.x    fp1,fp0
    lea    -$1C(a5),a0
    fmove.s    fp0,(a0)
;     CROSS_PROD(normal, du, dv)
    lea    -$58(a5),a0
    addq.w    #$8,a0
    fmove.s    (a0),fp0
    lea    -$64(a5),a0
    fmove.s    (a0),fp1
    fmul.x    fp1,fp0
    lea    -$58(a5),a0
    fmove.s    (a0),fp1
    lea    -$64(a5),a0
    addq.w    #$8,a0
    fmove.s    (a0),fp4
    fmul.x    fp4,fp1
    fsub.x    fp1,fp0
    lea    -$1C(a5),a0
    addq.w    #4,a0
    fmove.s    fp0,(a0)
;     CROSS_PROD(normal, du, dv);
    lea    -$58(a5),a0
    fmove.s    (a0),fp0
    lea    -$64(a5),a0
    addq.w    #4,a0
    fmove.s    (a0),fp1
    fmul.x    fp1,fp0
    lea    -$58(a5),a0
    addq.w    #4,a0
    fmove.s    (a0),fp1
    lea    -$64(a5),a0
    fmove.s    (a0),fp4
    fmul.x    fp4,fp1
    fsub.x    fp1,fp0
    lea    -$1C(a5),a0
    addq.w    #$8,a0
    fmove.s    fp0,(a0)
;     NORMALIZE_3FV(normal)
    lea    -$1C(a5),a0
    fmove.s    (a0),fp0
    lea    -$1C(a5),a0
    fmove.s    (a0),fp1
    fmul.x    fp1,fp0
    lea    -$1C(a5),a0
    addq.w    #4,a0
    fmove.s    (a0),fp1
    lea    -$1C(a5),a0
    addq.w    #4,a0
    fmove.s    (a0),fp4
    fmul.x    fp4,fp1
    fadd.x    fp1,fp0
    lea    -$1C(a5),a0
    addq.w    #$8,a0
    fmove.s    (a0),fp1
    lea    -$1C(a5),a0
    addq.w    #$8,a0
    fmove.s    (a0),fp4
    fmul.x    fp4,fp1
    fadd.x    fp1,fp0
    fmove.d    fp0,-(a7)
    jsr    _sqrt__r
    addq.w    #$8,a7
;     NORMALIZE_3FV(normal)
    fcmp.s    #$.38D1B717,fp0
    fbole.b    L1487
L1486
;     NORMALIZE_3FV(normal)
    fmove.s    #$.3F800000,fp1
    fdiv.x    fp0,fp1
    fmove.x    fp1,fp0
;     NORMALIZE_3FV(normal)
    lea    -$1C(a5),a0
    fmove.s    (a0),fp1
    fmul.x    fp0,fp1
    fmove.s    fp1,(a0)
;     NORMALIZE_3FV(normal)
    lea    -$1C(a5),a0
    addq.w    #4,a0
    fmove.s    (a0),fp1
    fmul.x    fp0,fp1
    fmove.s    fp1,(a0)
;     NORMALIZE_3FV(normal)
    lea    -$1C(a5),a0
    addq.w    #$8,a0
    fmove.s    (a0),fp1
    fmul.x    fp0,fp1
    fmove.s    fp1,(a0)
L1487
    bra.b    L1489
L1488
;     horner_bezier_surf(map->Points, vertex, uu, vv, 3,
    move.l    4(a0),d0
    move.l    d0,-(a7)
    move.l    (a0),d0
    move.l    d0,-(a7)
    pea    3.w
    fmove.s    fp0,-(a7)
    fmove.s    fp1,-(a7)
    lea    -$10(a5),a1
    move.l    a1,-(a7)
    move.l    $18(a0),a0
    move.l    a0,-(a7)
    jsr    _horner_bezier_surf
    add.w    #$1C,a7
L1489
;      vertex[3] = 1.0;
    lea    -$10(a5),a0
    add.w    #$C,a0
    move.l    #$3F800000,(a0)
L1490
;   if (ctx->Eval.Map2Index)
    lea    $1F2E(a2),a0
    move.b    $A(a0),d0
    beq    L1492
L1491
;      struct gl_2d_map *map = &ctx->EvalMap.Map2Index;
    move.l    a2,a0
    add.l    #$DE78,a0
    lea    (a0),a0
;      uu = (u - map->u1) / (map->u2 - map->u1);
    fmove.s    $8(a0),fp1
    fmove.x    fp3,fp0
    fsub.x    fp1,fp0
    fmove.x    fp0,fp1
    fmove.s    $C(a0),fp0
    fmove.s    $8(a0),fp4
    fsub.x    fp4,fp0
    fdiv.x    fp0,fp1
;      vv = (v - map->v1) / (map->v2 - map->v1);
    fmove.s    $10(a0),fp0
    fmove.x    fp2,fp4
    fsub.x    fp0,fp4
    fmove.x    fp4,fp0
    fmove.s    $14(a0),fp4
    fmove.s    $10(a0),fp5
    fsub.x    fp5,fp4
    fdiv.x    fp4,fp0
;      horner_bezier_surf(map->Points, &findex, uu, vv, 1,
    move.l    4(a0),d0
    move.l    d0,-(a7)
    move.l    (a0),d0
    move.l    d0,-(a7)
    pea    1.w
    fmove.s    fp0,-(a7)
    fmove.s    fp1,-(a7)
    lea    -$74(a5),a1
    move.l    a1,-(a7)
    move.l    $18(a0),a0
    move.l    a0,-(a7)
    jsr    _horner_bezier_surf
    add.w    #$1C,a7
;      index = (GLuint) (GLint) findex;
    fmove.s    -$74(a5),fp0
    fmove.l    fp0,d2
    bra.b    L1493
L1492
;      index = ctx->Current.Index;
    lea    $1EC6(a2),a0
    move.l    4(a0),d2
L1493
;   if (ctx->Eval.Map2Color4)
    lea    $1F2E(a2),a0
    move.b    $9(a0),d0
    beq    L1495
L1494
;      struct gl_2d_map *map = &ctx->EvalMap.Map2Color4;
    move.l    a2,a0
    add.l    #$DE96,a0
    lea    (a0),a0
;      uu = (u - map->u1) / (map->u2 - map->u1);
    fmove.s    $8(a0),fp1
    fmove.x    fp3,fp0
    fsub.x    fp1,fp0
    fmove.x    fp0,fp1
    fmove.s    $C(a0),fp0
    fmove.s    $8(a0),fp4
    fsub.x    fp4,fp0
    fdiv.x    fp0,fp1
;      vv = (v - map->v1) / (map->v2 - map->v1);
    fmove.s    $10(a0),fp0
    fmove.x    fp2,fp4
    fsub.x    fp0,fp4
    fmove.x    fp4,fp0
    fmove.s    $14(a0),fp4
    fmove.s    $10(a0),fp5
    fsub.x    fp5,fp4
    fdiv.x    fp4,fp0
;      horner_bezier_surf(map->Points, fcolor, uu, vv, 4,
    move.l    4(a0),d0
    move.l    d0,-(a7)
    move.l    (a0),d0
    move.l    d0,-(a7)
    pea    4.w
    fmove.s    fp0,-(a7)
    fmove.s    fp1,-(a7)
    lea    -$2C(a5),a1
    move.l    a1,-(a7)
    move.l    $18(a0),a0
    move.l    a0,-(a7)
    jsr    _horner_bezier_surf
    add.w    #$1C,a7
;      icolor[0] = (GLint) (fcolor[0] * ctx->Visual->RedScale);
    lea    -$2C(a5),a0
    fmove.s    (a0),fp0
    move.l    $898(a2),a0
    fmove.s    2(a0),fp1
    fmul.x    fp1,fp0
    fmove.l    fp0,d0
    lea    -$30(a5),a0
    move.b    d0,(a0)
;      icolor[1] = (GLint) (fcolor[1] * ctx->Visual->GreenScale)
    lea    -$2C(a5),a0
    addq.w    #4,a0
    fmove.s    (a0),fp0
    move.l    $898(a2),a0
    fmove.s    6(a0),fp1
    fmul.x    fp1,fp0
    fmove.l    fp0,d0
    lea    -$30(a5),a0
    addq.w    #1,a0
    move.b    d0,(a0)
;      icolor[2] = (GLint) (fcolor[2] * ctx->Visual->BlueScale);
    lea    -$2C(a5),a0
    addq.w    #$8,a0
    fmove.s    (a0),fp0
    move.l    $898(a2),a0
    fmove.s    $A(a0),fp1
    fmul.x    fp1,fp0
    fmove.l    fp0,d0
    lea    -$30(a5),a0
    addq.w    #2,a0
    move.b    d0,(a0)
;      icolor[3] = (GLint) (fcolor[3] * ctx->Visual->AlphaScale)
    lea    -$2C(a5),a0
    add.w    #$C,a0
    fmove.s    (a0),fp0
    move.l    $898(a2),a0
    fmove.s    $E(a0),fp1
    fmul.x    fp1,fp0
    fmove.l    fp0,d0
    lea    -$30(a5),a0
    addq.w    #3,a0
    move.b    d0,(a0)
;      colorptr = icolor;
    lea    -$30(a5),a0
    move.l    a0,-$34(a5)
    bra.b    L1496
L1495
;     COPY_4V(col, ctx->Curr
    lea    $1EC6(a2),a0
    move.b    (a0),d0
    lea    -$7C(a5),a0
    move.b    d0,(a0)
;     COPY_4V(col, ctx->Curr
    lea    $1EC6(a2),a0
    addq.w    #1,a0
    move.b    (a0),d0
    lea    -$7C(a5),a0
    addq.w    #1,a0
    move.b    d0,(a0)
;     COPY_4V(col, ctx->Curr
    lea    $1EC6(a2),a0
    addq.w    #2,a0
    move.b    (a0),d0
    lea    -$7C(a5),a0
    addq.w    #2,a0
    move.b    d0,(a0)
;     COPY_4V(col, ctx->Curr
    lea    $1EC6(a2),a0
    addq.w    #3,a0
    move.b    (a0),d0
    lea    -$7C(a5),a0
    addq.w    #3,a0
    move.b    d0,(a0)
;     colorptr = col;
    lea    -$7C(a5),a0
    move.l    a0,-$34(a5)
L1496
;   if (!ctx->Eval.AutoNormal
    lea    $1F2E(a2),a0
    move.b    $12(a0),d0
    beq.b    L1499
L1497
    lea    $1F2E(a2),a0
    move.b    $10(a0),d0
    bne    L1502
L1498
    lea    $1F2E(a2),a0
    move.b    $11(a0),d0
    bne    L1502
L1499
;      if (ctx->Eval.Map2Normal)
    lea    $1F2E(a2),a0
    move.b    $B(a0),d0
    beq    L1501
L1500
;     struct gl_2d_map *map = &ctx->EvalMap.Map2Normal;
    move.l    a2,a0
    add.l    #$DEB4,a0
    lea    (a0),a0
;     uu = (u - map->u1) / (map->u2 - map->u1);
    fmove.s    $8(a0),fp1
    fmove.x    fp3,fp0
    fsub.x    fp1,fp0
    fmove.x    fp0,fp1
    fmove.s    $C(a0),fp0
    fmove.s    $8(a0),fp4
    fsub.x    fp4,fp0
    fdiv.x    fp0,fp1
;     vv = (v - map->v1) / (map->v2 - map->v1);
    fmove.s    $10(a0),fp0
    fmove.x    fp2,fp4
    fsub.x    fp0,fp4
    fmove.x    fp4,fp0
    fmove.s    $14(a0),fp4
    fmove.s    $10(a0),fp5
    fsub.x    fp5,fp4
    fdiv.x    fp4,fp0
;     horner_bezier_surf(map->Points, normal, uu, vv, 3,
    move.l    4(a0),d0
    move.l    d0,-(a7)
    move.l    (a0),d0
    move.l    d0,-(a7)
    pea    3.w
    fmove.s    fp0,-(a7)
    fmove.s    fp1,-(a7)
    lea    -$1C(a5),a1
    move.l    a1,-(a7)
    move.l    $18(a0),a0
    move.l    a0,-(a7)
    jsr    _horner_bezier_surf
    add.w    #$1C,a7
    bra.b    L1502
L1501
;     normal[0] = ctx->Current.Normal[0];
    lea    $1ECE(a2),a0
    fmove.s    (a0),fp0
    lea    -$1C(a5),a0
    fmove.s    fp0,(a0)
;     normal[1] = ctx->Current.Normal[1];
    lea    $1ECE(a2),a0
    addq.w    #4,a0
    fmove.s    (a0),fp0
    lea    -$1C(a5),a0
    addq.w    #4,a0
    fmove.s    fp0,(a0)
;     normal[2] = ctx->Current.Normal[2];
    lea    $1ECE(a2),a0
    addq.w    #$8,a0
    fmove.s    (a0),fp0
    lea    -$1C(a5),a0
    addq.w    #$8,a0
    fmove.s    fp0,(a0)
L1502
;   if (ctx->Eval.Map2TextureCoord4)
    lea    $1F2E(a2),a0
    move.b    $F(a0),d0
    beq    L1504
L1503
;      struct gl_2d_map *map = &ctx->EvalMap.Map2Texture4;
    move.l    a2,a0
    add.l    #$DF2C,a0
    lea    (a0),a0
;      uu = (u - map->u1) / (map->u2 - map->u1);
    fmove.s    $8(a0),fp1
    fsub.x    fp1,fp3
    fmove.x    fp3,fp1
    fmove.s    $C(a0),fp0
    fmove.s    $8(a0),fp3
    fsub.x    fp3,fp0
    fdiv.x    fp0,fp1
;      vv = (v - map->v1) / (map->v2 - map->v1);
    fmove.s    $10(a0),fp0
    fsub.x    fp0,fp2
    fmove.x    fp2,fp0
    fmove.s    $14(a0),fp2
    fmove.s    $10(a0),fp3
    fsub.x    fp3,fp2
    fdiv.x    fp2,fp0
;      horner_bezier_surf(map->Points, texcoord, uu, vv, 4,
    move.l    4(a0),d0
    move.l    d0,-(a7)
    move.l    (a0),d0
    move.l    d0,-(a7)
    pea    4.w
    fmove.s    fp0,-(a7)
    fmove.s    fp1,-(a7)
    lea    -$44(a5),a1
    move.l    a1,-(a7)
    move.l    $18(a0),a0
    move.l    a0,-(a7)
    jsr    _horner_bezier_surf
    add.w    #$1C,a7
    bra    L1511
L1504
;   else if (ctx->Eval.Map2TextureCoord3)
    lea    $1F2E(a2),a0
    move.b    $E(a0),d0
    beq    L1506
L1505
;      struct gl_2d_map *map = &ctx->EvalMap.Map2Texture3;
    move.l    a2,a0
    add.l    #$DF0E,a0
    lea    (a0),a0
;      uu = (u - map->u1) / (map->u2 - map->u1);
    fmove.s    $8(a0),fp1
    fsub.x    fp1,fp3
    fmove.x    fp3,fp1
    fmove.s    $C(a0),fp0
    fmove.s    $8(a0),fp3
    fsub.x    fp3,fp0
    fdiv.x    fp0,fp1
;      vv = (v - map->v1) / (map->v2 - map->v1);
    fmove.s    $10(a0),fp0
    fsub.x    fp0,fp2
    fmove.x    fp2,fp0
    fmove.s    $14(a0),fp2
    fmove.s    $10(a0),fp3
    fsub.x    fp3,fp2
    fdiv.x    fp2,fp0
;      horner_bezier_surf(map->Points, texcoord, uu, vv, 3,
    move.l    4(a0),d0
    move.l    d0,-(a7)
    move.l    (a0),d0
    move.l    d0,-(a7)
    pea    3.w
    fmove.s    fp0,-(a7)
    fmove.s    fp1,-(a7)
    lea    -$44(a5),a1
    move.l    a1,-(a7)
    move.l    $18(a0),a0
    move.l    a0,-(a7)
    jsr    _horner_bezier_surf
    add.w    #$1C,a7
;     texcoord[3] = 1.0;
    lea    -$44(a5),a0
    add.w    #$C,a0
    move.l    #$3F800000,(a0)
    bra    L1511
L1506
;   else if (ctx->Eval.Map2TextureCoord2)
    lea    $1F2E(a2),a0
    move.b    $D(a0),d0
    beq    L1508
L1507
;      struct gl_2d_map *map = &ctx->EvalMap.Map2Texture2;
    move.l    a2,a0
    add.l    #$DEF0,a0
    lea    (a0),a0
;      uu = (u - map->u1) / (map->u2 - map->u1);
    fmove.s    $8(a0),fp1
    fsub.x    fp1,fp3
    fmove.x    fp3,fp1
    fmove.s    $C(a0),fp0
    fmove.s    $8(a0),fp3
    fsub.x    fp3,fp0
    fdiv.x    fp0,fp1
;      vv = (v - map->v1) / (map->v2 - map->v1);
    fmove.s    $10(a0),fp0
    fsub.x    fp0,fp2
    fmove.x    fp2,fp0
    fmove.s    $14(a0),fp2
    fmove.s    $10(a0),fp3
    fsub.x    fp3,fp2
    fdiv.x    fp2,fp0
;      horner_bezier_surf(map->Points, texcoord, uu, vv, 2,
    move.l    4(a0),d0
    move.l    d0,-(a7)
    move.l    (a0),d0
    move.l    d0,-(a7)
    pea    2.w
    fmove.s    fp0,-(a7)
    fmove.s    fp1,-(a7)
    lea    -$44(a5),a1
    move.l    a1,-(a7)
    move.l    $18(a0),a0
    move.l    a0,-(a7)
    jsr    _horner_bezier_surf
    add.w    #$1C,a7
;     texcoord[2] = 0.0;
    lea    -$44(a5),a0
    addq.w    #$8,a0
    clr.l    (a0)
;     texcoord[3] = 1.0;
    lea    -$44(a5),a0
    add.w    #$C,a0
    move.l    #$3F800000,(a0)
    bra    L1511
L1508
;   else if (ctx->Eval.Map2TextureCoord1)
    lea    $1F2E(a2),a0
    move.b    $C(a0),d0
    beq    L1510
L1509
;      struct gl_2d_map *map = &ctx->EvalMap.Map2Texture1;
    move.l    a2,a0
    add.l    #$DED2,a0
    lea    (a0),a0
;      uu = (u - map->u1) / (map->u2 - map->u1);
    fmove.s    $8(a0),fp1
    fsub.x    fp1,fp3
    fmove.x    fp3,fp1
    fmove.s    $C(a0),fp0
    fmove.s    $8(a0),fp3
    fsub.x    fp3,fp0
    fdiv.x    fp0,fp1
;      vv = (v - map->v1) / (map->v2 - map->v1);
    fmove.s    $10(a0),fp0
    fsub.x    fp0,fp2
    fmove.x    fp2,fp0
    fmove.s    $14(a0),fp2
    fmove.s    $10(a0),fp3
    fsub.x    fp3,fp2
    fdiv.x    fp2,fp0
;      horner_bezier_surf(map->Points, texcoord, uu, vv, 1,
    move.l    4(a0),d0
    move.l    d0,-(a7)
    move.l    (a0),d0
    move.l    d0,-(a7)
    pea    1.w
    fmove.s    fp0,-(a7)
    fmove.s    fp1,-(a7)
    lea    -$44(a5),a1
    move.l    a1,-(a7)
    move.l    $18(a0),a0
    move.l    a0,-(a7)
    jsr    _horner_bezier_surf
    add.w    #$1C,a7
;     texcoord[1] = 0.0;
    lea    -$44(a5),a0
    addq.w    #4,a0
    clr.l    (a0)
;     texcoord[2] = 0.0;
    lea    -$44(a5),a0
    addq.w    #$8,a0
    clr.l    (a0)
;     texcoord[3] = 1.0;
    lea    -$44(a5),a0
    add.w    #$C,a0
    move.l    #$3F800000,(a0)
    bra.b    L1511
L1510
;     texcoord[0] = ctx->Current.TexCoord[0];
    lea    $1EDA(a2),a0
    fmove.s    (a0),fp0
    lea    -$44(a5),a0
    fmove.s    fp0,(a0)
;     texcoord[1] = ctx->Current.TexCoord[1];
    lea    $1EDA(a2),a0
    addq.w    #4,a0
    fmove.s    (a0),fp0
    lea    -$44(a5),a0
    addq.w    #4,a0
    fmove.s    fp0,(a0)
;     texcoord[2] = ctx->Current.TexCoord[2];
    lea    $1EDA(a2),a0
    addq.w    #$8,a0
    fmove.s    (a0),fp0
    lea    -$44(a5),a0
    addq.w    #$8,a0
    fmove.s    fp0,(a0)
;     texcoord[3] = ctx->Current.TexCoord[3];
    lea    $1EDA(a2),a0
    add.w    #$C,a0
    fmove.s    (a0),fp0
    lea    -$44(a5),a0
    add.w    #$C,a0
    fmove.s    fp0,(a0)
L1511
;   gl_eval_vertex( ctx, vertex, normal, colorptr, index, texcoord
    lea    -$44(a5),a0
    move.l    a0,-(a7)
    move.l    d2,-(a7)
    move.l    -$34(a5),-(a7)
    lea    -$1C(a5),a0
    move.l    a0,-(a7)
    lea    -$10(a5),a0
    move.l    a0,-(a7)
    move.l    a2,-(a7)
    jsr    _gl_eval_vertex
    add.w    #$18,a7
    fmovem.x (a7)+,fp2/fp3/fp4/fp5
    movem.l    (a7)+,d2/a2
    unlk    a5
    rts

    SECTION "_gl_MapGrid1f:0",CODE


;void gl_MapGrid1f( GLcontext* ctx, GLint un, GLfloat u1, GLfloat u2 )
    XDEF    _gl_MapGrid1f
_gl_MapGrid1f
    move.l    $8(a7),d0
    move.l    4(a7),a0
    fmove.s    $10(a7),fp0
    fmove.s    $C(a7),fp1
L1514
;   if (INSIDE_BEGIN_END(ctx))
    move.l    a0,a1
    add.l    #$E08A,a1
    move.l    (a1),d1
    cmp.l    #$1A00,d1
    beq.b    L1516
L1515
;      gl_error( ctx, GL_INVALID_OPERATION, "glMapGrid1f" );
    move.l    #L1513,-(a7)
    pea    $502.w
    move.l    a0,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
    rts
L1516
;   if (un<1)
    cmp.l    #1,d0
    bge.b    L1518
L1517
;      gl_error( ctx, GL_INVALID_VALUE, "glMapGrid1f" );
    move.l    #L1513,-(a7)
    pea    $501.w
    move.l    a0,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
    rts
L1518
;   ctx->Eval.MapGrid1un = un;
    move.l    d0,$1F42(a0)
;   ctx->Eval.MapGrid1u1 = u1;
    fmove.s    fp1,$1F46(a0)
;   ctx->Eval.MapGrid1u2 = u2;
    fmove.s    fp0,$1F4A(a0)
    rts

L1513
    dc.b    'glMapGrid1f',0

    SECTION "_gl_MapGrid2f:0",CODE


;void gl_MapGrid2f( GLcontext* ctx, GLint un, GLfloat u1, GLfloat u2,
    XDEF    _gl_MapGrid2f
_gl_MapGrid2f
    move.l    d2,-(a7)
    fmovem.x fp2/fp3,-(a7)
    move.l    $30(a7),d0
    move.l    $24(a7),d1
    move.l    $20(a7),a0
    fmove.s    $38(a7),fp0
    fmove.s    $34(a7),fp1
    fmove.s    $2C(a7),fp2
    fmove.s    $28(a7),fp3
L1522
;   if (INSIDE_BEGIN_END(ctx))
    move.l    a0,a1
    add.l    #$E08A,a1
    move.l    (a1),d2
    cmp.l    #$1A00,d2
    beq.b    L1524
L1523
;      gl_error( ctx, GL_INVALID_OPERATION, "glMapGrid2f" );
    move.l    #L1519,-(a7)
    pea    $502.w
    move.l    a0,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
    fmovem.x (a7)+,fp2/fp3
    move.l    (a7)+,d2
    rts
L1524
;   if (un<1)
    cmp.l    #1,d1
    bge.b    L1526
L1525
;      gl_error( ctx, GL_INVALID_VALUE, "glMapGrid2f(un)" );
    move.l    #L1520,-(a7)
    pea    $501.w
    move.l    a0,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
    fmovem.x (a7)+,fp2/fp3
    move.l    (a7)+,d2
    rts
L1526
;   if (vn<1)
    cmp.l    #1,d0
    bge.b    L1528
L1527
;      gl_error( ctx, GL_INVALID_VALUE, "glMapGrid2f(vn)" );
    move.l    #L1521,-(a7)
    pea    $501.w
    move.l    a0,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
    fmovem.x (a7)+,fp2/fp3
    move.l    (a7)+,d2
    rts
L1528
;   ctx->Eval.MapGrid2un = un;
    move.l    d1,$1F4E(a0)
;   ctx->Eval.MapGrid2u1 = u1;
    fmove.s    fp3,$1F56(a0)
;   ctx->Eval.MapGrid2u2 = u2;
    fmove.s    fp2,$1F5A(a0)
;   ctx->Eval.MapGrid2vn = vn;
    move.l    d0,$1F52(a0)
;   ctx->Eval.MapGrid2v1 = v1;
    fmove.s    fp1,$1F5E(a0)
;   ctx->Eval.MapGrid2v2 = v2;
    fmove.s    fp0,$1F62(a0)
    fmovem.x (a7)+,fp2/fp3
    move.l    (a7)+,d2
    rts

L1519
    dc.b    'glMapGrid2f',0
L1520
    dc.b    'glMapGrid2f(un)',0
L1521
    dc.b    'glMapGrid2f(vn)',0

    SECTION "_gl_EvalPoint1:0",CODE


;void gl_EvalPoint1( GLcontext* ctx, GLint i )
    XDEF    _gl_EvalPoint1
_gl_EvalPoint1
    move.l    $8(a7),d0
    move.l    4(a7),a0
L1529
;    if (i==0)
    tst.l    d0
    bne.b    L1531
L1530
;        u = ctx->Eval.MapGrid1u1;
    lea    $1F2E(a0),a1
    fmove.s    $18(a1),fp0
    bra.b    L1534
L1531
;    else if (i==ctx->Eval.MapGrid1un)
    lea    $1F2E(a0),a1
    move.l    $14(a1),d1
    cmp.l    d1,d0
    bne.b    L1533
L1532
;        u = ctx->Eval.MapGrid1u2;
    lea    $1F2E(a0),a1
    fmove.s    $1C(a1),fp0
    bra.b    L1534
L1533
;        du = (ctx->Eval.MapGrid1u2 - ctx->Eval.MapGrid1u1)
    lea    $1F2E(a0),a1
    fmove.s    $1C(a1),fp1
    lea    $1F2E(a0),a1
    fmove.s    $18(a1),fp0
    fsub.x    fp0,fp1
    lea    $1F2E(a0),a1
    move.l    $14(a1),d1
    fmove.l    d1,fp0
    fdiv.x    fp0,fp1
;        u = i * du + ctx->Eval.MapGrid1u1;
    fmove.l    d0,fp0
    fmul.x    fp1,fp0
    lea    $1F2E(a0),a1
    fmove.s    $18(a1),fp1
    fadd.x    fp1,fp0
L1534
;    gl_EvalCoord1f( ctx, u );
    fmove.s    fp0,-(a7)
    move.l    a0,-(a7)
    jsr    _gl_EvalCoord1f
    addq.w    #$8,a7
    rts

    SECTION "_gl_EvalPoint2:0",CODE


;void gl_EvalPoint2( GLcontext* ctx, GLint i, GLint j )
    XDEF    _gl_EvalPoint2
_gl_EvalPoint2
    move.l    d2,-(a7)
    fmovem.x fp2,-(a7)
    move.l    $1C(a7),d0
    move.l    $18(a7),d1
    move.l    $14(a7),a0
L1535
;    if (i==0)
    tst.l    d1
    bne.b    L1537
L1536
;        u = ctx->Eval.MapGrid2u1;
    lea    $1F2E(a0),a1
    fmove.s    $28(a1),fp1
    bra.b    L1540
L1537
;    else if (i==ctx->Eval.MapGrid2un)
    lea    $1F2E(a0),a1
    move.l    $20(a1),d2
    cmp.l    d2,d1
    bne.b    L1539
L1538
;        u = ctx->Eval.MapGrid2u2;
    lea    $1F2E(a0),a1
    fmove.s    $2C(a1),fp1
    bra.b    L1540
L1539
;        du = (ctx->Eval.MapGrid2u2 - ctx->Eval.MapGrid2u1)
    lea    $1F2E(a0),a1
    fmove.s    $2C(a1),fp0
    lea    $1F2E(a0),a1
    fmove.s    $28(a1),fp1
    fsub.x    fp1,fp0
    lea    $1F2E(a0),a1
    move.l    $20(a1),d2
    fmove.l    d2,fp1
    fdiv.x    fp1,fp0
;        u = i * du + ctx->Eval.MapGrid2u1;
    fmove.l    d1,fp1
    fmul.x    fp0,fp1
    lea    $1F2E(a0),a1
    fmove.s    $28(a1),fp0
    fadd.x    fp0,fp1
L1540
;    if (j==0)
    tst.l    d0
    bne.b    L1542
L1541
;        v = ctx->Eval.MapGrid2v1;
    lea    $1F2E(a0),a1
    fmove.s    $30(a1),fp0
    bra.b    L1545
L1542
;    else if (j==ctx->Eval.MapGrid2vn)
    lea    $1F2E(a0),a1
    move.l    $24(a1),d1
    cmp.l    d1,d0
    bne.b    L1544
L1543
;        v = ctx->Eval.MapGrid2v2;
    lea    $1F2E(a0),a1
    fmove.s    $34(a1),fp0
    bra.b    L1545
L1544
;        dv = (ctx->Eval.MapGrid2v2 - ctx->Eval.MapGrid2v1)
    lea    $1F2E(a0),a1
    fmove.s    $34(a1),fp2
    lea    $1F2E(a0),a1
    fmove.s    $30(a1),fp0
    fsub.x    fp0,fp2
    lea    $1F2E(a0),a1
    move.l    $24(a1),d1
    fmove.l    d1,fp0
    fdiv.x    fp0,fp2
;        v = j * dv + ctx->Eval.MapGrid2v1;
    fmove.l    d0,fp0
    fmul.x    fp2,fp0
    lea    $1F2E(a0),a1
    fmove.s    $30(a1),fp2
    fadd.x    fp2,fp0
L1545
;    gl_EvalCoord2f( ctx, u, v );
    fmove.s    fp0,-(a7)
    fmove.s    fp1,-(a7)
    move.l    a0,-(a7)
    jsr    _gl_EvalCoord2f
    add.w    #$C,a7
    fmovem.x (a7)+,fp2
    move.l    (a7)+,d2
    rts

    SECTION "_gl_EvalMesh1:0",CODE


;void gl_EvalMesh1( GLcontext* ctx, GLenum mode, GLint i1, GLint i2 )
    XDEF    _gl_EvalMesh1
_gl_EvalMesh1
    movem.l    d2/d3/a2,-(a7)
    fmovem.x fp2,-(a7)
    movem.l    $20(a7),d1-d3
    move.l    $1C(a7),a2
L1548
;    if (INSIDE_BEGIN_END(ctx))
    move.l    a2,a0
    add.l    #$E08A,a0
    move.l    (a0),d0
    cmp.l    #$1A00,d0
    beq.b    L1550
L1549
;        gl_error( ctx, GL_INVALID_OPERATION, "glEvalMesh1" );
    move.l    #L1546,-(a7)
    pea    $502.w
    move.l    a2,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
    fmovem.x (a7)+,fp2
    movem.l    (a7)+,d2/d3/a2
    rts
L1550
;    switch (mode)
    cmp.l    #$1B00,d1
    beq.b    L1551
    cmp.l    #$1B01,d1
    beq.b    L1552
    bra.b    L1553
;
L1551
;        prim = GL_POINTS;
    moveq    #0,d0
;
    bra.b    L1554
L1552
;        prim = GL_LINE_STRIP;
    moveq    #3,d0
;
    bra.b    L1554
L1553
;        gl_error( ctx, GL_INVALID_ENUM, "glEvalMesh1(mode)" );
    move.l    #L1547,-(a7)
    pea    $500.w
    move.l    a2,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
    fmovem.x (a7)+,fp2
    movem.l    (a7)+,d2/d3/a2
    rts
L1554
;        return;
;    du = (ctx->Eval.MapGrid1u2 - ctx->Eval.MapGrid1u1)
    lea    $1F2E(a2),a0
    fmove.s    $1C(a0),fp2
    lea    $1F2E(a2),a0
    fmove.s    $18(a0),fp0
    fsub.x    fp0,fp2
    lea    $1F2E(a2),a0
    move.l    $14(a0),d1
    fmove.l    d1,fp0
    fdiv.x    fp0,fp2
;    gl_Begin( ctx, prim );
    move.l    d0,-(a7)
    move.l    a2,-(a7)
    jsr    _gl_Begin
    addq.w    #$8,a7
;    for (i=i1;
    bra.b    L1561
L1555
;        if (i==0)
    tst.l    d2
    bne.b    L1557
L1556
;            u = ctx->Eval.MapGrid1u1;
    lea    $1F2E(a2),a0
    fmove.s    $18(a0),fp0
    bra.b    L1560
L1557
;        else if (i==ctx->Eval.MapGrid1un)
    lea    $1F2E(a2),a0
    move.l    $14(a0),d0
    cmp.l    d0,d2
    bne.b    L1559
L1558
;            u = ctx->Eval.MapGrid1u2;
    lea    $1F2E(a2),a0
    fmove.s    $1C(a0),fp0
    bra.b    L1560
L1559
;            u = i * du + ctx->Eval.MapGrid1u1;
    fmove.l    d2,fp0
    fmul.x    fp2,fp0
    lea    $1F2E(a2),a0
    fmove.s    $18(a0),fp1
    fadd.x    fp1,fp0
L1560
;        gl_EvalCoord1f( ctx, u );
    fmove.s    fp0,-(a7)
    move.l    a2,-(a7)
    jsr    _gl_EvalCoord1f
    addq.w    #$8,a7
    addq.l    #1,d2
L1561
    cmp.l    d3,d2
    ble.b    L1555
L1562
;    gl_End(ctx);
    move.l    a2,-(a7)
    jsr    _gl_End
    addq.w    #4,a7
    fmovem.x (a7)+,fp2
    movem.l    (a7)+,d2/d3/a2
    rts

L1546
    dc.b    'glEvalMesh1',0
L1547
    dc.b    'glEvalMesh1(mode)',0

    SECTION "_gl_EvalMesh2:0",CODE


;void gl_EvalMesh2( GLcontext* ctx, GLenum mode, GLint i1, GLint i2,
    XDEF    _gl_EvalMesh2
_gl_EvalMesh2
L1642    EQU    -$24
    link    a5,#L1642
    movem.l    d2-d5/a2,-(a7)
    fmovem.x fp2/fp3/fp4/fp5,-(a7)
    move.l    $C(a5),d1
    move.l    $14(a5),d4
    move.l    $1C(a5),d5
    move.l    $8(a5),a2
L1565
;    if (INSIDE_BEGIN_END(ctx))
    move.l    a2,a0
    add.l    #$E08A,a0
    move.l    (a0),d0
    cmp.l    #$1A00,d0
    beq.b    L1567
L1566
;        gl_error( ctx, GL_INVALID_OPERATION, "glEvalMesh2" );
    move.l    #L1563,-(a7)
    pea    $502.w
    move.l    a2,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
    fmovem.x (a7)+,fp2/fp3/fp4/fp5
    movem.l    (a7)+,d2-d5/a2
    unlk    a5
    rts
L1567
;    du = (ctx->Eval.MapGrid2u2 - ctx->Eval.MapGrid2u1)
    lea    $1F2E(a2),a0
    fmove.s    $2C(a0),fp4
    lea    $1F2E(a2),a0
    fmove.s    $28(a0),fp0
    fsub.x    fp0,fp4
    lea    $1F2E(a2),a0
    move.l    $20(a0),d0
    fmove.l    d0,fp0
    fdiv.x    fp0,fp4
;    dv = (ctx->Eval.MapGrid2v2 - ctx->Eval.MapGrid2v1)
    lea    $1F2E(a2),a0
    move.l    $34(a0),-$18(a5)
    lea    $1F2E(a2),a0
    fmove.s    $30(a0),fp0
    fmove.s    -$18(a5),fp1
    fsub.x    fp0,fp1
    fmove.s    fp1,-$18(a5)
    lea    $1F2E(a2),a0
    move.l    $24(a0),d0
    fmove.l    d0,fp0
    fmove.s    -$18(a5),fp1
    fdiv.x    fp0,fp1
    fmove.s    fp1,-$18(a5)
;    switch (mode)
    cmp.l    #$1B01,d1
    beq    L1585
    bgt.b    L1643
    cmp.l    #$1B00,d1
    beq.b    L1568
    bra    L1640
L1643
    cmp.l    #$1B02,d1
    beq    L1618
    bra    L1640
;
L1568
;        gl_Begin( ctx, GL_POINTS );
    clr.l    -(a7)
    move.l    a2,-(a7)
    jsr    _gl_Begin
    addq.w    #$8,a7
;        for (j=j1;
    move.l    $18(a5),d3
    bra    L1583
L1569
;            J_TO_V( j, v )
    tst.l    d3
    bne.b    L1571
L1570
;            J_TO_V( j, v )
    lea    $1F2E(a2),a0
    fmove.s    $30(a0),fp3
    bra.b    L1574
L1571
;            J_TO_V( j, v )
    lea    $1F2E(a2),a0
    move.l    $24(a0),d0
    cmp.l    d0,d3
    bne.b    L1573
L1572
;            J_TO_V( j, v )
    lea    $1F2E(a2),a0
    fmove.s    $34(a0),fp3
    bra.b    L1574
L1573
;            J_TO_V( j, v )
    fmove.l    d3,fp3
    fmul.s    -$18(a5),fp3
    lea    $1F2E(a2),a0
    fmove.s    $30(a0),fp0
    fadd.x    fp0,fp3
L1574
;            for (i=i1;
    move.l    $10(a5),d2
    bra.b    L1581
L1575
;                I_TO_U( i, u )
    tst.l    d2
    bne.b    L1577
L1576
;                I_TO_U( i, u )
    lea    $1F2E(a2),a0
    fmove.s    $28(a0),fp2
    bra.b    L1580
L1577
;                I_TO_U( i, u )
    lea    $1F2E(a2),a0
    move.l    $20(a0),d0
    cmp.l    d0,d2
    bne.b    L1579
L1578
;                I_TO_U( i, u )
    lea    $1F2E(a2),a0
    fmove.s    $2C(a0),fp2
    bra.b    L1580
L1579
;                I_TO_U( i, u )
    fmove.l    d2,fp2
    fmul.x    fp4,fp2
    lea    $1F2E(a2),a0
    fmove.s    $28(a0),fp0
    fadd.x    fp0,fp2
L1580
;                gl_EvalCoord2f( ctx, u, v );
    fmove.s    fp3,-(a7)
    fmove.s    fp2,-(a7)
    move.l    a2,-(a7)
    jsr    _gl_EvalCoord2f
    add.w    #$C,a7
    addq.l    #1,d2
L1581
    cmp.l    d4,d2
    ble.b    L1575
L1582
    addq.l    #1,d3
L1583
    cmp.l    d5,d3
    ble    L1569
L1584
;        gl_End(ctx);
    move.l    a2,-(a7)
    jsr    _gl_End
    addq.w    #4,a7
;
    bra    L1641
L1585
;        for (j=j1;
    move.l    $18(a5),d3
    bra    L1600
L1586
;            J_TO_V( j, v )
    tst.l    d3
    bne.b    L1588
L1587
;            J_TO_V( j, v )
    lea    $1F2E(a2),a0
    fmove.s    $30(a0),fp3
    bra.b    L1591
L1588
;            J_TO_V( j, v )
    lea    $1F2E(a2),a0
    move.l    $24(a0),d0
    cmp.l    d0,d3
    bne.b    L1590
L1589
;            J_TO_V( j, v )
    lea    $1F2E(a2),a0
    fmove.s    $34(a0),fp3
    bra.b    L1591
L1590
;            J_TO_V( j, v )
    fmove.l    d3,fp3
    fmul.s    -$18(a5),fp3
    lea    $1F2E(a2),a0
    fmove.s    $30(a0),fp0
    fadd.x    fp0,fp3
L1591
;            gl_Begin( ctx, GL_LINE_STRIP );
    pea    3.w
    move.l    a2,-(a7)
    jsr    _gl_Begin
    addq.w    #$8,a7
;            for (i=i1;
    move.l    $10(a5),d2
    bra.b    L1598
L1592
;                I_TO_U( i, u )
    tst.l    d2
    bne.b    L1594
L1593
;                I_TO_U( i, u )
    lea    $1F2E(a2),a0
    fmove.s    $28(a0),fp2
    bra.b    L1597
L1594
;                I_TO_U( i, u )
    lea    $1F2E(a2),a0
    move.l    $20(a0),d0
    cmp.l    d0,d2
    bne.b    L1596
L1595
;                I_TO_U( i, u )
    lea    $1F2E(a2),a0
    fmove.s    $2C(a0),fp2
    bra.b    L1597
L1596
;                I_TO_U( i, u )
    fmove.l    d2,fp2
    fmul.x    fp4,fp2
    lea    $1F2E(a2),a0
    fmove.s    $28(a0),fp0
    fadd.x    fp0,fp2
L1597
;                gl_EvalCoord2f( ctx, u, v );
    fmove.s    fp3,-(a7)
    fmove.s    fp2,-(a7)
    move.l    a2,-(a7)
    jsr    _gl_EvalCoord2f
    add.w    #$C,a7
    addq.l    #1,d2
L1598
    cmp.l    d4,d2
    ble.b    L1592
L1599
;            gl_End(ctx);
    move.l    a2,-(a7)
    jsr    _gl_End
    addq.w    #4,a7
    addq.l    #1,d3
L1600
    cmp.l    d5,d3
    ble    L1586
L1601
;        for (i=i1;
    move.l    $10(a5),d2
    bra    L1616
L1602
;            I_TO_U( i, u )
    tst.l    d2
    bne.b    L1604
L1603
;            I_TO_U( i, u )
    lea    $1F2E(a2),a0
    fmove.s    $28(a0),fp2
    bra.b    L1607
L1604
;            I_TO_U( i, u )
    lea    $1F2E(a2),a0
    move.l    $20(a0),d0
    cmp.l    d0,d2
    bne.b    L1606
L1605
;            I_TO_U( i, u )
    lea    $1F2E(a2),a0
    fmove.s    $2C(a0),fp2
    bra.b    L1607
L1606
;            I_TO_U( i, u )
    fmove.l    d2,fp2
    fmul.x    fp4,fp2
    lea    $1F2E(a2),a0
    fmove.s    $28(a0),fp0
    fadd.x    fp0,fp2
L1607
;            gl_Begin( ctx, GL_LINE_STRIP );
    pea    3.w
    move.l    a2,-(a7)
    jsr    _gl_Begin
    addq.w    #$8,a7
;            for (j=j1;
    move.l    $18(a5),d3
    bra.b    L1614
L1608
;                J_TO_V( j, v )
    tst.l    d3
    bne.b    L1610
L1609
;                J_TO_V( j, v )
    lea    $1F2E(a2),a0
    fmove.s    $30(a0),fp3
    bra.b    L1613
L1610
;                J_TO_V( j, v )
    lea    $1F2E(a2),a0
    move.l    $24(a0),d0
    cmp.l    d0,d3
    bne.b    L1612
L1611
;                J_TO_V( j, v )
    lea    $1F2E(a2),a0
    fmove.s    $34(a0),fp3
    bra.b    L1613
L1612
;                J_TO_V( j, v )
    fmove.l    d3,fp3
    fmul.s    -$18(a5),fp3
    lea    $1F2E(a2),a0
    fmove.s    $30(a0),fp0
    fadd.x    fp0,fp3
L1613
;                gl_EvalCoord2f( ctx, u, v );
    fmove.s    fp3,-(a7)
    fmove.s    fp2,-(a7)
    move.l    a2,-(a7)
    jsr    _gl_EvalCoord2f
    add.w    #$C,a7
    addq.l    #1,d3
L1614
    cmp.l    d5,d3
    ble.b    L1608
L1615
;            gl_End(ctx);
    move.l    a2,-(a7)
    jsr    _gl_End
    addq.w    #4,a7
    addq.l    #1,d2
L1616
    cmp.l    d4,d2
    ble    L1602
L1617
;
    bra    L1641
L1618
;        for (j=j1;
    move.l    $18(a5),d3
    bra    L1638
L1619
;            gl_Begin( ctx, GL_TRIANGLE_STRIP );
    pea    5.w
    move.l    a2,-(a7)
    jsr    _gl_Begin
    addq.w    #$8,a7
;            J_TO_V( j, v1 )
    tst.l    d3
    bne.b    L1621
L1620
;            J_TO_V( j, v1 )
    lea    $1F2E(a2),a0
    fmove.s    $30(a0),fp5
    bra.b    L1624
L1621
;            J_TO_V( j, v1 )
    lea    $1F2E(a2),a0
    move.l    $24(a0),d0
    cmp.l    d0,d3
    bne.b    L1623
L1622
;            J_TO_V( j, v1 )
    lea    $1F2E(a2),a0
    fmove.s    $34(a0),fp5
    bra.b    L1624
L1623
;            J_TO_V( j, v1 )
    fmove.l    d3,fp5
    fmul.s    -$18(a5),fp5
    lea    $1F2E(a2),a0
    fmove.s    $30(a0),fp0
    fadd.x    fp0,fp5
L1624
;            J_TO_V( j+1, v2 )
    move.l    d3,d0
    addq.l    #1,d0
    tst.l    d0
    bne.b    L1626
L1625
;            J_TO_V( j+1, v2 )
    lea    $1F2E(a2),a0
    fmove.s    $30(a0),fp3
    bra.b    L1629
L1626
;            J_TO_V( j+1, v2 )
    move.l    d3,d1
    addq.l    #1,d1
    lea    $1F2E(a2),a0
    move.l    $24(a0),d0
    cmp.l    d0,d1
    bne.b    L1628
L1627
;            J_TO_V( j+1, v2 )
    lea    $1F2E(a2),a0
    fmove.s    $34(a0),fp3
    bra.b    L1629
L1628
;            J_TO_V( j+1, v2 )
    move.l    d3,d0
    addq.l    #1,d0
    fmove.l    d0,fp3
    fmul.s    -$18(a5),fp3
    lea    $1F2E(a2),a0
    fmove.s    $30(a0),fp0
    fadd.x    fp0,fp3
L1629
;            for (i=i1;
    move.l    $10(a5),d2
    bra.b    L1636
L1630
;                I_TO_U( i, u )
    tst.l    d2
    bne.b    L1632
L1631
;                I_TO_U( i, u )
    lea    $1F2E(a2),a0
    fmove.s    $28(a0),fp2
    bra.b    L1635
L1632
;                I_TO_U( i, u )
    lea    $1F2E(a2),a0
    move.l    $20(a0),d0
    cmp.l    d0,d2
    bne.b    L1634
L1633
;                I_TO_U( i, u )
    lea    $1F2E(a2),a0
    fmove.s    $2C(a0),fp2
    bra.b    L1635
L1634
;                I_TO_U( i, u )
    fmove.l    d2,fp2
    fmul.x    fp4,fp2
    lea    $1F2E(a2),a0
    fmove.s    $28(a0),fp0
    fadd.x    fp0,fp2
L1635
;                gl_EvalCoord2f( ctx, u, v1 );
    fmove.s    fp5,-(a7)
    fmove.s    fp2,-(a7)
    move.l    a2,-(a7)
    jsr    _gl_EvalCoord2f
    add.w    #$C,a7
;                gl_EvalCoord2f( ctx, u, v2 );
    fmove.s    fp3,-(a7)
    fmove.s    fp2,-(a7)
    move.l    a2,-(a7)
    jsr    _gl_EvalCoord2f
    add.w    #$C,a7
    addq.l    #1,d2
L1636
    cmp.l    d4,d2
    ble.b    L1630
L1637
;            gl_End(ctx);
    move.l    a2,-(a7)
    jsr    _gl_End
    addq.w    #4,a7
    addq.l    #1,d3
L1638
    cmp.l    d5,d3
    blt    L1619
L1639
;
    bra.b    L1641
L1640
;        gl_error( ctx, GL_INVALID_ENUM, "glEvalMesh2(mode)" );
    move.l    #L1564,-(a7)
    pea    $500.w
    move.l    a2,-(a7)
    jsr    _gl_error
    add.w    #$C,a7
    fmovem.x (a7)+,fp2/fp3/fp4/fp5
    movem.l    (a7)+,d2-d5/a2
    unlk    a5
    rts
L1641
;        return;
    fmovem.x (a7)+,fp2/fp3/fp4/fp5
    movem.l    (a7)+,d2-d5/a2
    unlk    a5
    rts

L1563
    dc.b    'glEvalMesh2',0
L1564
    dc.b    'glEvalMesh2(mode)',0

    END