home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 5 / MA_Cover_5.iso / ppc / mesa / src / context.s < prev    next >
Encoding:
Text File  |  1998-01-31  |  85.8 KB  |  4,882 lines
  1.  
  2. ; Storm C Compiler
  3. ; TEMP:Mesa_2_5/src/context.c
  4.     mc68030
  5.     mc68881
  6.     XREF    _gl_set_color_function
  7.     XREF    _gl_set_vertex_function
  8.     XREF    _gl_alloc_vb
  9.     XREF    _gl_update_texture_state
  10.     XREF    _gl_free_texture_object
  11.     XREF    _gl_alloc_texture_object
  12.     XREF    _gl_free_texture_image
  13.     XREF    _gl_alloc_texture_image
  14.     XREF    _gl_set_triangle_function
  15.     XREF    _gl_alloc_stencil_buffer
  16.     XREF    _gl_set_quad_function
  17.     XREF    _gl_init_api_function_pointers
  18.     XREF    _gl_set_point_function
  19.     XREF    _gl_alloc_pb
  20.     XREF    _gl_init_math
  21.     XREF    _gl_destroy_list
  22.     XREF    _gl_init_lists
  23.     XREF    _gl_set_line_function
  24.     XREF    _gl_update_lighting
  25.     XREF    _gl_compute_material_shine_table
  26.     XREF    _gl_compute_spot_exp_table
  27.     XREF    _gl_material_bitmask
  28.     XREF    _HashFirstEntry
  29.     XREF    _DeleteHashTable
  30.     XREF    _NewHashTable
  31.     XREF    _gl_init_eval
  32.     XREF    _gl_clear_depth_buffer
  33.     XREF    _gl_alloc_depth_buffer
  34.     XREF    _gl_read_depth_span_int
  35.     XREF    _gl_read_depth_span_float
  36.     XREF    _gl_depth_test_pixels_greater
  37.     XREF    _gl_depth_test_pixels_less
  38.     XREF    _gl_depth_test_pixels_generic
  39.     XREF    _gl_depth_test_span_greater
  40.     XREF    _gl_depth_test_span_less
  41.     XREF    _gl_depth_test_span_generic
  42.     XREF    _gl_alloc_alpha_buffers
  43.     XREF    _gl_alloc_accum_buffer
  44.     XREF    _memset
  45.     XREF    _memcpy
  46.     XREF    _strcpy
  47.     XREF    _getenv
  48.     XREF    _free
  49.     XREF    _calloc
  50.     XREF    _fprintf
  51.     XREF    _std__in
  52.     XREF    _std__out
  53.     XREF    _std__err
  54.  
  55.     SECTION "_CC:1",DATA
  56.  
  57.     XDEF    _CC
  58. _CC
  59.     dc.l    0
  60.  
  61.     SECTION "_alloc_shared_state:0",CODE
  62.  
  63.     rts
  64.  
  65. ;static struct gl_shared_state *alloc_shared_state( void )
  66. _alloc_shared_state
  67.     move.l    a2,-(a7)
  68. L203
  69. ;   ss = (struct gl_shared_state*) calloc( 1, sizeof(struct gl_sha
  70.     pea    $1C.w
  71.     pea    1.w
  72.     jsr    _calloc
  73.     addq.w    #$8,a7
  74.     move.l    d0,a2
  75. ;   if (!ss)
  76.     cmp.w    #0,a2
  77.     bne.b    L205
  78. L204
  79.     moveq    #0,d0
  80.     move.l    (a7)+,a2
  81.     rts
  82. L205
  83. ;   ss->DisplayList = NewHashTable();
  84.     jsr    _NewHashTable
  85.     move.l    d0,4(a2)
  86. ;   ss->TexObjects = NewHashTable();
  87.     jsr    _NewHashTable
  88.     move.l    d0,$8(a2)
  89. ;   ss->Default1D = gl_alloc_texture_object(ss, 0, 1);
  90.     pea    1.w
  91.     clr.l    -(a7)
  92.     move.l    a2,-(a7)
  93.     jsr    _gl_alloc_texture_object
  94.     add.w    #$C,a7
  95.     move.l    d0,$10(a2)
  96. ;   ss->Default2D = gl_alloc_texture_object(ss, 0, 2);
  97.     pea    2.w
  98.     clr.l    -(a7)
  99.     move.l    a2,-(a7)
  100.     jsr    _gl_alloc_texture_object
  101.     add.w    #$C,a7
  102.     move.l    d0,$14(a2)
  103. ;   ss->Default3D = gl_alloc_texture_object(ss, 0, 3);
  104.     pea    3.w
  105.     clr.l    -(a7)
  106.     move.l    a2,-(a7)
  107.     jsr    _gl_alloc_texture_object
  108.     add.w    #$C,a7
  109.     move.l    d0,$18(a2)
  110. ;   if (!ss->DisplayList || !ss->TexObjects
  111.     move.l    4(a2),a0
  112.     cmp.w    #0,a0
  113.     beq.b    L210
  114. L206
  115.     move.l    $8(a2),a0
  116.     cmp.w    #0,a0
  117.     beq.b    L210
  118. L207
  119.     move.l    $10(a2),a0
  120.     cmp.w    #0,a0
  121.     beq.b    L210
  122. L208
  123.     move.l    $14(a2),a0
  124.     cmp.w    #0,a0
  125.     beq.b    L210
  126. L209
  127.     move.l    $18(a2),a0
  128.     cmp.w    #0,a0
  129.     bne    L221
  130. L210
  131. ;      if (!ss->DisplayList)
  132.     move.l    4(a2),a0
  133.     cmp.w    #0,a0
  134.     bne.b    L212
  135. L211
  136. ;     DeleteHashTable(ss->DisplayList);
  137.     move.l    4(a2),a0
  138.     move.l    a0,-(a7)
  139.     jsr    _DeleteHashTable
  140.     addq.w    #4,a7
  141. L212
  142. ;      if (!ss->TexObjects)
  143.     move.l    $8(a2),a0
  144.     cmp.w    #0,a0
  145.     bne.b    L214
  146. L213
  147. ;     DeleteHashTable(ss->TexObjects);
  148.     move.l    $8(a2),a0
  149.     move.l    a0,-(a7)
  150.     jsr    _DeleteHashTable
  151.     addq.w    #4,a7
  152. L214
  153. ;      if (!ss->Default1D)
  154.     move.l    $10(a2),a0
  155.     cmp.w    #0,a0
  156.     bne.b    L216
  157. L215
  158. ;     gl_free_texture_object(ss, ss->Default1D);
  159.     move.l    $10(a2),a0
  160.     move.l    a0,-(a7)
  161.     move.l    a2,-(a7)
  162.     jsr    _gl_free_texture_object
  163.     addq.w    #$8,a7
  164. L216
  165. ;      if (!ss->Default2D)
  166.     move.l    $14(a2),a0
  167.     cmp.w    #0,a0
  168.     bne.b    L218
  169. L217
  170. ;     gl_free_texture_object(ss, ss->Default2D);
  171.     move.l    $14(a2),a0
  172.     move.l    a0,-(a7)
  173.     move.l    a2,-(a7)
  174.     jsr    _gl_free_texture_object
  175.     addq.w    #$8,a7
  176. L218
  177. ;      if (!ss->Default3D)
  178.     move.l    $18(a2),a0
  179.     cmp.w    #0,a0
  180.     bne.b    L220
  181. L219
  182. ;     gl_free_texture_object(ss, ss->Default3D);
  183.     move.l    $18(a2),a0
  184.     move.l    a0,-(a7)
  185.     move.l    a2,-(a7)
  186.     jsr    _gl_free_texture_object
  187.     addq.w    #$8,a7
  188. L220
  189. ;      free(ss);
  190.     move.l    a2,-(a7)
  191.     jsr    _free
  192.     addq.w    #4,a7
  193.     moveq    #0,d0
  194.     move.l    (a7)+,a2
  195.     rts
  196. L221
  197.     move.l    a2,d0
  198.     move.l    (a7)+,a2
  199.     rts
  200.  
  201.     SECTION "_free_shared_state:0",CODE
  202.  
  203.  
  204. ;static void free_shared_state( GLcontext *ctx, struct gl_shared_stat
  205. _free_shared_state
  206. L231    EQU    -4
  207.     link    a5,#L231
  208.     move.l    a2,-(a7)
  209.     move.l    $C(a5),a2
  210. L222
  211. ;   while (1) 
  212.     bra.b    L226
  213. L223
  214. ;      GLuint list = HashFirstEntry(ss->DisplayList);
  215.     move.l    4(a2),a0
  216.     move.l    a0,-(a7)
  217.     jsr    _HashFirstEntry
  218.     addq.w    #4,a7
  219. ;      if (list) 
  220.     tst.l    d0
  221.     beq.b    L225
  222. L224
  223. ;     gl_destroy_list(ctx, list);
  224.     move.l    d0,-(a7)
  225.     move.l    $8(a5),-(a7)
  226.     jsr    _gl_destroy_list
  227.     addq.w    #$8,a7
  228.     bra.b    L226
  229. L225
  230. ;     
  231.     bra.b    L227
  232. L226
  233.     bra.b    L223
  234. L227
  235. ;   DeleteHashTable(ss->DisplayList);
  236.     move.l    4(a2),a0
  237.     move.l    a0,-(a7)
  238.     jsr    _DeleteHashTable
  239.     addq.w    #4,a7
  240. ;   while (ss->TexObjectList)
  241.     bra.b    L229
  242. L228
  243. ;      gl_free_texture_object(ss, ss->TexObjectList);
  244.     move.l    $C(a2),a0
  245.     move.l    a0,-(a7)
  246.     move.l    a2,-(a7)
  247.     jsr    _gl_free_texture_object
  248.     addq.w    #$8,a7
  249. L229
  250.     move.l    $C(a2),a0
  251.     cmp.w    #0,a0
  252.     bne.b    L228
  253. L230
  254. ;   DeleteHashTable(ss->TexObjects);
  255.     move.l    $8(a2),a0
  256.     move.l    a0,-(a7)
  257.     jsr    _DeleteHashTable
  258.     addq.w    #4,a7
  259. ;   free(ss);
  260.     move.l    a2,-(a7)
  261.     jsr    _free
  262.     addq.w    #4,a7
  263.     move.l    (a7)+,a2
  264.     unlk    a5
  265.     rts
  266.  
  267.     SECTION "_init_light:0",CODE
  268.  
  269.  
  270. ;static void init_light( struct gl_light *l, GLuint n )
  271. _init_light
  272.     move.l    a2,-(a7)
  273.     move.l    $C(a7),d0
  274.     move.l    $8(a7),a2
  275. L232
  276. ;   ASSIGN_4V( l->Ambien
  277.     clr.l    (a2)
  278. ;   ASSIGN_4V( l->Ambien
  279.     lea    4(a2),a0
  280.     clr.l    (a0)
  281. ;   ASSIGN_4V( l->Ambien
  282.     lea    $8(a2),a0
  283.     clr.l    (a0)
  284. ;   ASSIGN_4V( l->Ambien
  285.     lea    $C(a2),a0
  286.     move.l    #$3F800000,(a0)
  287. ;   if (n==0) 
  288.     tst.l    d0
  289.     bne.b    L234
  290. L233
  291. ;      ASSIGN_4V( l->
  292.     lea    $10(a2),a0
  293.     move.l    #$3F800000,(a0)
  294. ;      ASSIGN_4V( l->
  295.     lea    $10(a2),a0
  296.     addq.w    #4,a0
  297.     move.l    #$3F800000,(a0)
  298. ;      ASSIGN_4V( l->
  299.     lea    $10(a2),a0
  300.     addq.w    #$8,a0
  301.     move.l    #$3F800000,(a0)
  302. ;      ASSIGN_4V( l->
  303.     lea    $10(a2),a0
  304.     add.w    #$C,a0
  305.     move.l    #$3F800000,(a0)
  306. ;      ASSIGN_4V( l-
  307.     lea    $20(a2),a0
  308.     move.l    #$3F800000,(a0)
  309. ;      ASSIGN_4V( l-
  310.     lea    $20(a2),a0
  311.     addq.w    #4,a0
  312.     move.l    #$3F800000,(a0)
  313. ;      ASSIGN_4V( l-
  314.     lea    $20(a2),a0
  315.     addq.w    #$8,a0
  316.     move.l    #$3F800000,(a0)
  317. ;      ASSIGN_4V( l-
  318.     lea    $20(a2),a0
  319.     add.w    #$C,a0
  320.     move.l    #$3F800000,(a0)
  321.     bra.b    L235
  322. L234
  323. ;      ASSIGN_4V( l->
  324.     lea    $10(a2),a0
  325.     clr.l    (a0)
  326. ;      ASSIGN_4V( l->
  327.     lea    $10(a2),a0
  328.     addq.w    #4,a0
  329.     clr.l    (a0)
  330. ;      ASSIGN_4V( l->
  331.     lea    $10(a2),a0
  332.     addq.w    #$8,a0
  333.     clr.l    (a0)
  334. ;      ASSIGN_4V( l->
  335.     lea    $10(a2),a0
  336.     add.w    #$C,a0
  337.     move.l    #$3F800000,(a0)
  338. ;      ASSIGN_4V( l-
  339.     lea    $20(a2),a0
  340.     clr.l    (a0)
  341. ;      ASSIGN_4V( l-
  342.     lea    $20(a2),a0
  343.     addq.w    #4,a0
  344.     clr.l    (a0)
  345. ;      ASSIGN_4V( l-
  346.     lea    $20(a2),a0
  347.     addq.w    #$8,a0
  348.     clr.l    (a0)
  349. ;      ASSIGN_4V( l-
  350.     lea    $20(a2),a0
  351.     add.w    #$C,a0
  352.     move.l    #$3F800000,(a0)
  353. L235
  354. ;   ASSIGN_4V( l->Posit
  355.     lea    $30(a2),a0
  356.     clr.l    (a0)
  357. ;   ASSIGN_4V( l->Posit
  358.     lea    $30(a2),a0
  359.     addq.w    #4,a0
  360.     clr.l    (a0)
  361. ;   ASSIGN_4V( l->Posit
  362.     lea    $30(a2),a0
  363.     addq.w    #$8,a0
  364.     move.l    #$3F800000,(a0)
  365. ;   ASSIGN_4V( l->Posit
  366.     lea    $30(a2),a0
  367.     add.w    #$C,a0
  368.     clr.l    (a0)
  369. ;   ASSIGN_3V( l->Directio
  370.     lea    $40(a2),a0
  371.     clr.l    (a0)
  372. ;   ASSIGN_3V( l->Directio
  373.     lea    $40(a2),a0
  374.     addq.w    #4,a0
  375.     clr.l    (a0)
  376. ;   ASSIGN_3V( l->Directio
  377.     lea    $40(a2),a0
  378.     addq.w    #$8,a0
  379.     move.l    #$BF800000,(a0)
  380. ;   l->SpotExponent = 0.0;
  381.     clr.l    $50(a2)
  382. ;   gl_compute_spot_exp_table( l );
  383.     move.l    a2,-(a7)
  384.     jsr    _gl_compute_spot_exp_table
  385.     addq.w    #4,a7
  386. ;   l->SpotCutoff = 180.0;
  387.     move.l    #$43340000,$54(a2)
  388. ;   l->CosCutoff = -1.0;
  389.     move.l    #$BF800000,$58(a2)
  390. ;   l->ConstantAttenuation = 1.0;
  391.     move.l    #$3F800000,$5C(a2)
  392. ;   l->LinearAttenuation = 0.0;
  393.     clr.l    $60(a2)
  394. ;   l->QuadraticAttenuation = 0.0;
  395.     clr.l    $64(a2)
  396. ;   l->Enabled = GL_FALSE;
  397.     clr.b    $68(a2)
  398.     move.l    (a7)+,a2
  399.     rts
  400.  
  401.     SECTION "_init_lightmodel:0",CODE
  402.  
  403.  
  404. ;static void init_lightmodel( struct gl_lightmodel *lm )
  405. _init_lightmodel
  406.     move.l    4(a7),a0
  407. L236
  408. ;   ASSIGN_4V( lm->Ambi
  409.     move.l    #$3E4CCCCC,(a0)
  410. ;   ASSIGN_4V( lm->Ambi
  411.     lea    4(a0),a1
  412.     move.l    #$3E4CCCCC,(a1)
  413. ;   ASSIGN_4V( lm->Ambi
  414.     lea    $8(a0),a1
  415.     move.l    #$3E4CCCCC,(a1)
  416. ;   ASSIGN_4V( lm->Ambi
  417.     lea    $C(a0),a1
  418.     move.l    #$3F800000,(a1)
  419. ;   lm->LocalViewer = GL_FALSE;
  420.     clr.b    $10(a0)
  421. ;   lm->TwoSide = GL_FALSE;
  422.     clr.b    $11(a0)
  423.     rts
  424.  
  425.     SECTION "_init_material:0",CODE
  426.  
  427.  
  428. ;static void init_material( struct gl_material *m )
  429. _init_material
  430.     move.l    4(a7),a0
  431. L237
  432. ;   ASSIGN_4V( m->Ambie
  433.     move.l    #$3E4CCCCC,(a0)
  434. ;   ASSIGN_4V( m->Ambie
  435.     lea    4(a0),a1
  436.     move.l    #$3E4CCCCC,(a1)
  437. ;   ASSIGN_4V( m->Ambie
  438.     lea    $8(a0),a1
  439.     move.l    #$3E4CCCCC,(a1)
  440. ;   ASSIGN_4V( m->Ambie
  441.     lea    $C(a0),a1
  442.     move.l    #$3F800000,(a1)
  443. ;   ASSIGN_4V( m->Diffu
  444.     lea    $10(a0),a1
  445.     move.l    #$3F4CCCCC,(a1)
  446. ;   ASSIGN_4V( m->Diffu
  447.     lea    $10(a0),a1
  448.     addq.w    #4,a1
  449.     move.l    #$3F4CCCCC,(a1)
  450. ;   ASSIGN_4V( m->Diffu
  451.     lea    $10(a0),a1
  452.     addq.w    #$8,a1
  453.     move.l    #$3F4CCCCC,(a1)
  454. ;   ASSIGN_4V( m->Diffu
  455.     lea    $10(a0),a1
  456.     add.w    #$C,a1
  457.     move.l    #$3F800000,(a1)
  458. ;   ASSIGN_4V( m->Specu
  459.     lea    $20(a0),a1
  460.     clr.l    (a1)
  461. ;   ASSIGN_4V( m->Specu
  462.     lea    $20(a0),a1
  463.     addq.w    #4,a1
  464.     clr.l    (a1)
  465. ;   ASSIGN_4V( m->Specu
  466.     lea    $20(a0),a1
  467.     addq.w    #$8,a1
  468.     clr.l    (a1)
  469. ;   ASSIGN_4V( m->Specu
  470.     lea    $20(a0),a1
  471.     add.w    #$C,a1
  472.     move.l    #$3F800000,(a1)
  473. ;   ASSIGN_4V( m->Emiss
  474.     lea    $30(a0),a1
  475.     clr.l    (a1)
  476. ;   ASSIGN_4V( m->Emiss
  477.     lea    $30(a0),a1
  478.     addq.w    #4,a1
  479.     clr.l    (a1)
  480. ;   ASSIGN_4V( m->Emiss
  481.     lea    $30(a0),a1
  482.     addq.w    #$8,a1
  483.     clr.l    (a1)
  484. ;   ASSIGN_4V( m->Emiss
  485.     lea    $30(a0),a1
  486.     add.w    #$C,a1
  487.     move.l    #$3F800000,(a1)
  488. ;   m->Shininess = 0.0;
  489.     clr.l    $40(a0)
  490. ;   m->AmbientIndex = 0;
  491.     clr.l    $44(a0)
  492. ;   m->DiffuseIndex = 1;
  493.     move.l    #$3F800000,$48(a0)
  494. ;   m->SpecularIndex = 1;
  495.     move.l    #$3F800000,$4C(a0)
  496. ;   gl_compute_material_shine_table( m );
  497.     move.l    a0,-(a7)
  498.     jsr    _gl_compute_material_shine_table
  499.     addq.w    #4,a7
  500.     rts
  501.  
  502.     SECTION "_initialize_context:0",CODE
  503.  
  504.  
  505. ;static void initialize_context( GLcontext *ctx )
  506. _initialize_context
  507.     movem.l    d2/a2,-(a7)
  508.     move.l    $C(a7),a2
  509. L242
  510. ;   if (ctx) 
  511.     cmp.w    #0,a2
  512.     beq    L268
  513. L243
  514. ;      ctx->NewModelViewMatrix = GL_FALSE;
  515.     clr.b    $97C(a2)
  516. ;      ctx->ModelViewMatrixType = MATRIX_IDENTITY;
  517.     move.l    #1,$97E(a2)
  518. ;ctx->ModelViewMat
  519.     pea    $40.w
  520.     move.l    #_identity___initialize_context,-(a7)
  521.     lea    $982(a2),a0
  522.     move.l    a0,-(a7)
  523.     jsr    _memcpy
  524.     add.w    #$C,a7
  525. ;Y( ctx->ModelView
  526.     pea    $40.w
  527.     move.l    #_identity___initialize_context,-(a7)
  528.     lea    $9C2(a2),a0
  529.     move.l    a0,-(a7)
  530.     jsr    _memcpy
  531.     add.w    #$C,a7
  532. ;      ctx->ModelViewStackDepth = 0;
  533.     clr.l    $A02(a2)
  534. ;      ctx->NewProjectionMatrix = GL_FALSE;
  535.     clr.b    $1206(a2)
  536. ;      ctx->ProjectionMatrixType = MATRIX_IDENTITY;
  537.     move.l    #1,$1208(a2)
  538. ;tx->ProjectionMat
  539.     pea    $40.w
  540.     move.l    #_identity___initialize_context,-(a7)
  541.     lea    $120C(a2),a0
  542.     move.l    a0,-(a7)
  543.     jsr    _memcpy
  544.     add.w    #$C,a7
  545. ;      ctx->ProjectionStackDepth = 0;
  546.     clr.l    $124C(a2)
  547. ;      ctx->NearFarStack[0][0] = 1.0;
  548.     lea    $1A50(a2),a0
  549.     move.l    #$3F800000,(a0)
  550. ;      ctx->NearFarStack[0][1] = 0.0;
  551.     lea    $1A50(a2),a0
  552.     addq.w    #4,a0
  553.     clr.l    (a0)
  554. ;      ctx->NewTextureMatrix = GL_FALSE;
  555.     clr.b    $1B50(a2)
  556. ;      ctx->TextureMatrixType = MATRIX_IDENTITY;
  557.     move.l    #1,$1B52(a2)
  558. ;( ctx->TextureMat
  559.     pea    $40.w
  560.     move.l    #_identity___initialize_context,-(a7)
  561.     lea    $1B56(a2),a0
  562.     move.l    a0,-(a7)
  563.     jsr    _memcpy
  564.     add.w    #$C,a7
  565. ;      ctx->TextureStackDepth = 0;
  566.     clr.l    $1B96(a2)
  567. ;SIGN_4V( ctx->Acc
  568.     lea    $1E64(a2),a0
  569.     clr.l    (a0)
  570. ;SIGN_4V( ctx->Acc
  571.     lea    $1E64(a2),a0
  572.     addq.w    #4,a0
  573.     clr.l    (a0)
  574. ;SIGN_4V( ctx->Acc
  575.     lea    $1E64(a2),a0
  576.     addq.w    #$8,a0
  577.     clr.l    (a0)
  578. ;SIGN_4V( ctx->Acc
  579.     lea    $1E64(a2),a0
  580.     add.w    #$C,a0
  581.     clr.l    (a0)
  582. ;      ctx->Color.IndexMask = 0xffffffff;
  583.     move.l    #-1,$1E88(a2)
  584. ;      ctx->Color.ColorMask = 0xf;
  585.     move.l    #$F,$1E8C(a2)
  586. ;      ctx->Color.SWmasking = GL_FALSE;
  587.     clr.b    $1E90(a2)
  588. ;      ctx->Color.ClearIndex = 0;
  589.     clr.l    $1E74(a2)
  590. ;SIGN_4V( ctx->Col
  591.     lea    $1E78(a2),a0
  592.     clr.l    (a0)
  593. ;SIGN_4V( ctx->Col
  594.     lea    $1E78(a2),a0
  595.     addq.w    #4,a0
  596.     clr.l    (a0)
  597. ;SIGN_4V( ctx->Col
  598.     lea    $1E78(a2),a0
  599.     addq.w    #$8,a0
  600.     clr.l    (a0)
  601. ;SIGN_4V( ctx->Col
  602.     lea    $1E78(a2),a0
  603.     add.w    #$C,a0
  604.     clr.l    (a0)
  605. ;      ctx->Color.DrawBuffer = GL_FRONT;
  606.     move.l    #$404,$1E92(a2)
  607. ;      ctx->Color.AlphaEnabled = GL_FALSE;
  608.     clr.b    $1E96(a2)
  609. ;      ctx->Color.AlphaFunc = GL_ALWAYS;
  610.     move.l    #$207,$1E98(a2)
  611. ;      ctx->Color.AlphaRef = 0.0;
  612.     clr.l    $1E9C(a2)
  613. ;      ctx->Color.AlphaRefUbyte = 0;
  614.     clr.b    $1EA0(a2)
  615. ;      ctx->Color.BlendEnabled = GL_FALSE;
  616.     clr.b    $1EA1(a2)
  617. ;      ctx->Color.BlendSrc = GL_ONE;
  618.     move.l    #1,$1EA2(a2)
  619. ;      ctx->Color.BlendDst = GL_ZERO;
  620.     clr.l    $1EA6(a2)
  621. ;      ctx->Color.BlendEquation = GL_FUNC_ADD_EXT;
  622.     move.l    #$8006,$1EAA(a2)
  623. ;SIGN_4V( ctx->Col
  624.     lea    $1EAE(a2),a0
  625.     clr.l    (a0)
  626. ;SIGN_4V( ctx->Col
  627.     lea    $1EAE(a2),a0
  628.     addq.w    #4,a0
  629.     clr.l    (a0)
  630. ;SIGN_4V( ctx->Col
  631.     lea    $1EAE(a2),a0
  632.     addq.w    #$8,a0
  633.     clr.l    (a0)
  634. ;SIGN_4V( ctx->Col
  635.     lea    $1EAE(a2),a0
  636.     add.w    #$C,a0
  637.     clr.l    (a0)
  638. ;      ctx->Color.IndexLogicOpEnabled = GL_FALSE;
  639.     clr.b    $1EC2(a2)
  640. ;      ctx->Color.ColorLogicOpEnabled = GL_FALSE;
  641.     clr.b    $1EC3(a2)
  642. ;      ctx->Color.SWLogicOpEnabled = GL_FALSE;
  643.     clr.b    $1EC4(a2)
  644. ;      ctx->Color.LogicOp = GL_COPY;
  645.     move.l    #$1503,$1EBE(a2)
  646. ;      ctx->Color.DitherFlag = GL_TRUE;
  647.     move.b    #1,$1EC5(a2)
  648. ;      ctx->Current.Index = 1;
  649.     move.l    #1,$1ECA(a2)
  650. ;     ASSIGN_3V( c
  651.     lea    $1ECE(a2),a0
  652.     clr.l    (a0)
  653. ;     ASSIGN_3V( c
  654.     lea    $1ECE(a2),a0
  655.     addq.w    #4,a0
  656.     clr.l    (a0)
  657. ;     ASSIGN_3V( c
  658.     lea    $1ECE(a2),a0
  659.     addq.w    #$8,a0
  660.     move.l    #$3F800000,(a0)
  661. ;      ctx->Current.ByteColor[0] = (GLint) ctx->Visual->RedScal
  662.     move.l    $898(a2),a0
  663.     fmove.s    2(a0),fp0
  664.     fmove.l    fp0,d0
  665.     lea    $1EC6(a2),a0
  666.     move.b    d0,(a0)
  667. ;      ctx->Current.ByteColor[1] = (GLint) ctx->Visual->GreenSc
  668.     move.l    $898(a2),a0
  669.     fmove.s    6(a0),fp0
  670.     fmove.l    fp0,d0
  671.     lea    $1EC6(a2),a0
  672.     addq.w    #1,a0
  673.     move.b    d0,(a0)
  674. ;      ctx->Current.ByteColor[2] = (GLint) ctx->Visual->BlueSca
  675.     move.l    $898(a2),a0
  676.     fmove.s    $A(a0),fp0
  677.     fmove.l    fp0,d0
  678.     lea    $1EC6(a2),a0
  679.     addq.w    #2,a0
  680.     move.b    d0,(a0)
  681. ;      ctx->Current.ByteColor[3] = (GLint) ctx->Visual->AlphaSc
  682.     move.l    $898(a2),a0
  683.     fmove.s    $E(a0),fp0
  684.     fmove.l    fp0,d0
  685.     lea    $1EC6(a2),a0
  686.     addq.w    #3,a0
  687.     move.b    d0,(a0)
  688. ;IGN_4V( ctx->Curr
  689.     lea    $1EEA(a2),a0
  690.     clr.l    (a0)
  691. ;IGN_4V( ctx->Curr
  692.     lea    $1EEA(a2),a0
  693.     addq.w    #4,a0
  694.     clr.l    (a0)
  695. ;IGN_4V( ctx->Curr
  696.     lea    $1EEA(a2),a0
  697.     addq.w    #$8,a0
  698.     clr.l    (a0)
  699. ;IGN_4V( ctx->Curr
  700.     lea    $1EEA(a2),a0
  701.     add.w    #$C,a0
  702.     move.l    #$3F800000,(a0)
  703. ;      ctx->Current.RasterPosValid = GL_TRUE;
  704.     move.b    #1,$1F22(a2)
  705. ;      ctx->Current.RasterIndex = 1;
  706.     move.l    #1,$1F0E(a2)
  707. ;SIGN_4V( ctx->Cur
  708.     lea    $1EDA(a2),a0
  709.     clr.l    (a0)
  710. ;SIGN_4V( ctx->Cur
  711.     lea    $1EDA(a2),a0
  712.     addq.w    #4,a0
  713.     clr.l    (a0)
  714. ;SIGN_4V( ctx->Cur
  715.     lea    $1EDA(a2),a0
  716.     addq.w    #$8,a0
  717.     clr.l    (a0)
  718. ;SIGN_4V( ctx->Cur
  719.     lea    $1EDA(a2),a0
  720.     add.w    #$C,a0
  721.     move.l    #$3F800000,(a0)
  722. ;N_4V( ctx->Curren
  723.     lea    $1EFE(a2),a0
  724.     move.l    #$3F800000,(a0)
  725. ;N_4V( ctx->Curren
  726.     lea    $1EFE(a2),a0
  727.     addq.w    #4,a0
  728.     move.l    #$3F800000,(a0)
  729. ;N_4V( ctx->Curren
  730.     lea    $1EFE(a2),a0
  731.     addq.w    #$8,a0
  732.     move.l    #$3F800000,(a0)
  733. ;N_4V( ctx->Curren
  734.     lea    $1EFE(a2),a0
  735.     add.w    #$C,a0
  736.     move.l    #$3F800000,(a0)
  737. ;      ctx->Current.EdgeFlag = GL_TRUE;
  738.     move.b    #1,$1F23(a2)
  739. ;      ctx->Depth.Test = GL_FALSE;
  740.     clr.b    $1F2C(a2)
  741. ;      ctx->Depth.Clear = 1.0;
  742.     move.l    #$3F800000,$1F28(a2)
  743. ;      ctx->Depth.Func = GL_LESS;
  744.     move.l    #$201,$1F24(a2)
  745. ;      ctx->Depth.Mask = GL_TRUE;
  746.     move.b    #1,$1F2D(a2)
  747. ;      ctx->Eval.Map1Color4 = GL_FALSE;
  748.     clr.b    $1F2E(a2)
  749. ;      ctx->Eval.Map1Index = GL_FALSE;
  750.     clr.b    $1F2F(a2)
  751. ;      ctx->Eval.Map1Normal = GL_FALSE;
  752.     clr.b    $1F30(a2)
  753. ;      ctx->Eval.Map1TextureCoord1 = GL_FALSE;
  754.     clr.b    $1F31(a2)
  755. ;      ctx->Eval.Map1TextureCoord2 = GL_FALSE;
  756.     clr.b    $1F32(a2)
  757. ;      ctx->Eval.Map1TextureCoord3 = GL_FALSE;
  758.     clr.b    $1F33(a2)
  759. ;      ctx->Eval.Map1TextureCoord4 = GL_FALSE;
  760.     clr.b    $1F34(a2)
  761. ;      ctx->Eval.Map1Vertex3 = GL_FALSE;
  762.     clr.b    $1F35(a2)
  763. ;      ctx->Eval.Map1Vertex4 = GL_FALSE;
  764.     clr.b    $1F36(a2)
  765. ;      ctx->Eval.Map2Color4 = GL_FALSE;
  766.     clr.b    $1F37(a2)
  767. ;      ctx->Eval.Map2Index = GL_FALSE;
  768.     clr.b    $1F38(a2)
  769. ;      ctx->Eval.Map2Normal = GL_FALSE;
  770.     clr.b    $1F39(a2)
  771. ;      ctx->Eval.Map2TextureCoord1 = GL_FALSE;
  772.     clr.b    $1F3A(a2)
  773. ;      ctx->Eval.Map2TextureCoord2 = GL_FALSE;
  774.     clr.b    $1F3B(a2)
  775. ;      ctx->Eval.Map2TextureCoord3 = GL_FALSE;
  776.     clr.b    $1F3C(a2)
  777. ;      ctx->Eval.Map2TextureCoord4 = GL_FALSE;
  778.     clr.b    $1F3D(a2)
  779. ;      ctx->Eval.Map2Vertex3 = GL_FALSE;
  780.     clr.b    $1F3E(a2)
  781. ;      ctx->Eval.Map2Vertex4 = GL_FALSE;
  782.     clr.b    $1F3F(a2)
  783. ;      ctx->Eval.AutoNormal = GL_FALSE;
  784.     clr.b    $1F40(a2)
  785. ;      ctx->Eval.MapGrid1un = 1;
  786.     move.l    #1,$1F42(a2)
  787. ;      ctx->Eval.MapGrid1u1 = 0.0;
  788.     clr.l    $1F46(a2)
  789. ;      ctx->Eval.MapGrid1u2 = 1.0;
  790.     move.l    #$3F800000,$1F4A(a2)
  791. ;      ctx->Eval.MapGrid2un = 1;
  792.     move.l    #1,$1F4E(a2)
  793. ;      ctx->Eval.MapGrid2vn = 1;
  794.     move.l    #1,$1F52(a2)
  795. ;      ctx->Eval.MapGrid2u1 = 0.0;
  796.     clr.l    $1F56(a2)
  797. ;      ctx->Eval.MapGrid2u2 = 1.0;
  798.     move.l    #$3F800000,$1F5A(a2)
  799. ;      ctx->Eval.MapGrid2v1 = 0.0;
  800.     clr.l    $1F5E(a2)
  801. ;      ctx->Eval.MapGrid2v2 = 1.0;
  802.     move.l    #$3F800000,$1F62(a2)
  803. ;      ctx->Fog.Enabled = GL_FALSE;
  804.     clr.b    $1F66(a2)
  805. ;      ctx->Fog.Mode = GL_EXP;
  806.     move.l    #$800,$1F88(a2)
  807. ;     ASSIGN_4V( c
  808.     lea    $1F68(a2),a0
  809.     clr.l    (a0)
  810. ;     ASSIGN_4V( c
  811.     lea    $1F68(a2),a0
  812.     addq.w    #4,a0
  813.     clr.l    (a0)
  814. ;     ASSIGN_4V( c
  815.     lea    $1F68(a2),a0
  816.     addq.w    #$8,a0
  817.     clr.l    (a0)
  818. ;     ASSIGN_4V( c
  819.     lea    $1F68(a2),a0
  820.     add.w    #$C,a0
  821.     clr.l    (a0)
  822. ;      ctx->Fog.Index = 0.0;
  823.     clr.l    $1F84(a2)
  824. ;      ctx->Fog.Density = 1.0;
  825.     move.l    #$3F800000,$1F78(a2)
  826. ;      ctx->Fog.Start = 0.0;
  827.     clr.l    $1F7C(a2)
  828. ;      ctx->Fog.End = 1.0;
  829.     move.l    #$3F800000,$1F80(a2)
  830. ;      ctx->Hint.PerspectiveCorrection = GL_DONT_CARE;
  831.     move.l    #$1100,$1F8C(a2)
  832. ;      ctx->Hint.PointSmooth = GL_DONT_CARE;
  833.     move.l    #$1100,$1F90(a2)
  834. ;      ctx->Hint.LineSmooth = GL_DONT_CARE;
  835.     move.l    #$1100,$1F94(a2)
  836. ;      ctx->Hint.PolygonSmooth = GL_DONT_CARE;
  837.     move.l    #$1100,$1F98(a2)
  838. ;      ctx->Hint.Fog = GL_DONT_CARE;
  839.     move.l    #$1100,$1F9C(a2)
  840. ;      for (i=0;
  841.     moveq    #0,d2
  842.     bra.b    L245
  843. L244
  844. ;     init_light( &ctx->Light.Light[i], i );
  845.     move.l    d2,-(a7)
  846.     lea    $1FA0(a2),a0
  847.     move.l    d2,d0
  848.     muls.l    #$10E2,d0
  849.     add.l    d0,a0
  850.     move.l    a0,-(a7)
  851.     jsr    _init_light
  852.     addq.w    #$8,a7
  853.     addq.l    #1,d2
  854. L245
  855.     cmp.l    #$8,d2
  856.     blo.b    L244
  857. L246
  858. ;      init_lightmodel( &ctx->Light.Model );
  859.     move.l    a2,a0
  860.     add.l    #$A6B0,a0
  861.     lea    (a0),a0
  862.     move.l    a0,-(a7)
  863.     jsr    _init_lightmodel
  864.     addq.w    #4,a7
  865. ;      init_material( &ctx->Light.Material[0] );
  866.     move.l    a2,a0
  867.     add.l    #$A6C2,a0
  868.     lea    (a0),a0
  869.     move.l    a0,-(a7)
  870.     jsr    _init_material
  871.     addq.w    #4,a7
  872. ;      init_material( &ctx->Light.Material[1] );
  873.     move.l    a2,a0
  874.     add.l    #$A6C2,a0
  875.     lea    (a0),a0
  876.     add.w    #$370,a0
  877.     move.l    a0,-(a7)
  878.     jsr    _init_material
  879.     addq.w    #4,a7
  880. ;      ctx->Light.ShadeModel = GL_SMOOTH;
  881.     move.l    a2,a0
  882.     add.l    #$ADA4,a0
  883.     move.l    #$1D01,(a0)
  884. ;      ctx->Light.Enabled = GL_FALSE;
  885.     move.l    a2,a0
  886.     add.l    #$ADA2,a0
  887.     clr.b    (a0)
  888. ;      ctx->Light.ColorMaterialFace = GL_FRONT_AND_BACK;
  889.     move.l    a2,a0
  890.     add.l    #$ADA8,a0
  891.     move.l    #$408,(a0)
  892. ;      ctx->Light.ColorMaterialMode = GL_AMBIENT_AND_DIFFUSE;
  893.     move.l    a2,a0
  894.     add.l    #$ADAC,a0
  895.     move.l    #$1602,(a0)
  896. ;      ctx->Light.ColorMaterialBitmask
  897.     pea    $1602.w
  898.     pea    $408.w
  899.     jsr    _gl_material_bitmask
  900.     addq.w    #$8,a7
  901.     move.l    a2,a0
  902.     add.l    #$ADB0,a0
  903.     move.l    d0,(a0)
  904. ;      ctx->Light.ColorMaterialEnabled = GL_FALSE;
  905.     move.l    a2,a0
  906.     add.l    #$ADB4,a0
  907.     clr.b    (a0)
  908. ;      ctx->Line.SmoothFlag = GL_FALSE;
  909.     move.l    a2,a0
  910.     add.l    #$ADDC,a0
  911.     clr.b    (a0)
  912. ;      ctx->Line.StippleFlag = GL_FALSE;
  913.     move.l    a2,a0
  914.     add.l    #$ADDD,a0
  915.     clr.b    (a0)
  916. ;      ctx->Line.Width = 1.0;
  917.     move.l    a2,a0
  918.     add.l    #$ADE4,a0
  919.     move.l    #$3F800000,(a0)
  920. ;      ctx->Line.StipplePattern = 0xffff;
  921.     move.l    a2,a0
  922.     add.l    #$ADDE,a0
  923.     move.w    #$FFFF,(a0)
  924. ;      ctx->Line.StippleFactor = 1;
  925.     move.l    a2,a0
  926.     add.l    #$ADE0,a0
  927.     move.l    #1,(a0)
  928. ;      ctx->List.ListBase = 0;
  929.     move.l    a2,a0
  930.     add.l    #$ADE8,a0
  931.     clr.l    (a0)
  932. ;      ctx->Pixel.RedBias = 0.0;
  933.     move.l    a2,a0
  934.     add.l    #$ADF0,a0
  935.     clr.l    (a0)
  936. ;      ctx->Pixel.RedScale = 1.0;
  937.     move.l    a2,a0
  938.     add.l    #$ADF4,a0
  939.     move.l    #$3F800000,(a0)
  940. ;      ctx->Pixel.GreenBias = 0.0;
  941.     move.l    a2,a0
  942.     add.l    #$ADF8,a0
  943.     clr.l    (a0)
  944. ;      ctx->Pixel.GreenScale = 1.0;
  945.     move.l    a2,a0
  946.     add.l    #$ADFC,a0
  947.     move.l    #$3F800000,(a0)
  948. ;      ctx->Pixel.BlueBias = 0.0;
  949.     move.l    a2,a0
  950.     add.l    #$AE00,a0
  951.     clr.l    (a0)
  952. ;      ctx->Pixel.BlueScale = 1.0;
  953.     move.l    a2,a0
  954.     add.l    #$AE04,a0
  955.     move.l    #$3F800000,(a0)
  956. ;      ctx->Pixel.AlphaBias = 0.0;
  957.     move.l    a2,a0
  958.     add.l    #$AE08,a0
  959.     clr.l    (a0)
  960. ;      ctx->Pixel.AlphaScale = 1.0;
  961.     move.l    a2,a0
  962.     add.l    #$AE0C,a0
  963.     move.l    #$3F800000,(a0)
  964. ;      ctx->Pixel.DepthBias = 0.0;
  965.     move.l    a2,a0
  966.     add.l    #$AE10,a0
  967.     clr.l    (a0)
  968. ;      ctx->Pixel.DepthScale = 1.0;
  969.     move.l    a2,a0
  970.     add.l    #$AE14,a0
  971.     move.l    #$3F800000,(a0)
  972. ;      ctx->Pixel.IndexOffset = 0;
  973.     move.l    a2,a0
  974.     add.l    #$AE1C,a0
  975.     clr.l    (a0)
  976. ;      ctx->Pixel.IndexShift = 0;
  977.     move.l    a2,a0
  978.     add.l    #$AE18,a0
  979.     clr.l    (a0)
  980. ;      ctx->Pixel.ZoomX = 1.0;
  981.     move.l    a2,a0
  982.     add.l    #$AE22,a0
  983.     move.l    #$3F800000,(a0)
  984. ;      ctx->Pixel.ZoomY = 1.0;
  985.     move.l    a2,a0
  986.     add.l    #$AE26,a0
  987.     move.l    #$3F800000,(a0)
  988. ;      ctx->Pixel.MapColorFlag = GL_FALSE;
  989.     move.l    a2,a0
  990.     add.l    #$AE20,a0
  991.     clr.b    (a0)
  992. ;      ctx->Pixel.MapStencilFlag = GL_FALSE;
  993.     move.l    a2,a0
  994.     add.l    #$AE21,a0
  995.     clr.b    (a0)
  996. ;      ctx->Pixel.MapStoSsize = 1;
  997.     move.l    a2,a0
  998.     add.l    #$AE2A,a0
  999.     move.l    #1,(a0)
  1000. ;      ctx->Pixel.MapItoIsize = 1;
  1001.     move.l    a2,a0
  1002.     add.l    #$AE2E,a0
  1003.     move.l    #1,(a0)
  1004. ;      ctx->Pixel.MapItoRsize = 1;
  1005.     move.l    a2,a0
  1006.     add.l    #$AE32,a0
  1007.     move.l    #1,(a0)
  1008. ;      ctx->Pixel.MapItoGsize = 1;
  1009.     move.l    a2,a0
  1010.     add.l    #$AE36,a0
  1011.     move.l    #1,(a0)
  1012. ;      ctx->Pixel.MapItoBsize = 1;
  1013.     move.l    a2,a0
  1014.     add.l    #$AE3A,a0
  1015.     move.l    #1,(a0)
  1016. ;      ctx->Pixel.MapItoAsize = 1;
  1017.     move.l    a2,a0
  1018.     add.l    #$AE3E,a0
  1019.     move.l    #1,(a0)
  1020. ;      ctx->Pixel.MapRtoRsize = 1;
  1021.     move.l    a2,a0
  1022.     add.l    #$AE42,a0
  1023.     move.l    #1,(a0)
  1024. ;      ctx->Pixel.MapGtoGsize = 1;
  1025.     move.l    a2,a0
  1026.     add.l    #$AE46,a0
  1027.     move.l    #1,(a0)
  1028. ;      ctx->Pixel.MapBtoBsize = 1;
  1029.     move.l    a2,a0
  1030.     add.l    #$AE4A,a0
  1031.     move.l    #1,(a0)
  1032. ;      ctx->Pixel.MapAtoAsize = 1;
  1033.     move.l    a2,a0
  1034.     add.l    #$AE4E,a0
  1035.     move.l    #1,(a0)
  1036. ;      ctx->Pixel.MapStoS[0] = 0;
  1037.     move.l    a2,a0
  1038.     add.l    #$AE52,a0
  1039.     lea    (a0),a0
  1040.     clr.l    (a0)
  1041. ;      ctx->Pixel.MapItoI[0] = 0;
  1042.     move.l    a2,a0
  1043.     add.l    #$B252,a0
  1044.     lea    (a0),a0
  1045.     clr.l    (a0)
  1046. ;      ctx->Pixel.MapItoR[0] = 0.0;
  1047.     move.l    a2,a0
  1048.     add.l    #$B652,a0
  1049.     lea    (a0),a0
  1050.     clr.l    (a0)
  1051. ;      ctx->Pixel.MapItoG[0] = 0.0;
  1052.     move.l    a2,a0
  1053.     add.l    #$BA52,a0
  1054.     lea    (a0),a0
  1055.     clr.l    (a0)
  1056. ;      ctx->Pixel.MapItoB[0] = 0.0;
  1057.     move.l    a2,a0
  1058.     add.l    #$BE52,a0
  1059.     lea    (a0),a0
  1060.     clr.l    (a0)
  1061. ;      ctx->Pixel.MapItoA[0] = 0.0;
  1062.     move.l    a2,a0
  1063.     add.l    #$C252,a0
  1064.     lea    (a0),a0
  1065.     clr.l    (a0)
  1066. ;      ctx->Pixel.MapRtoR[0] = 0.0;
  1067.     move.l    a2,a0
  1068.     add.l    #$C652,a0
  1069.     lea    (a0),a0
  1070.     clr.l    (a0)
  1071. ;      ctx->Pixel.MapGtoG[0] = 0.0;
  1072.     move.l    a2,a0
  1073.     add.l    #$CA52,a0
  1074.     lea    (a0),a0
  1075.     clr.l    (a0)
  1076. ;      ctx->Pixel.MapBtoB[0] = 0.0;
  1077.     move.l    a2,a0
  1078.     add.l    #$CE52,a0
  1079.     lea    (a0),a0
  1080.     clr.l    (a0)
  1081. ;      ctx->Pixel.MapAtoA[0] = 0.0;
  1082.     move.l    a2,a0
  1083.     add.l    #$D252,a0
  1084.     lea    (a0),a0
  1085.     clr.l    (a0)
  1086. ;      ctx->Point.SmoothFlag = GL_FALSE;
  1087.     move.l    a2,a0
  1088.     add.l    #$D652,a0
  1089.     clr.b    (a0)
  1090. ;      ctx->Point.Size = 1.0;
  1091.     move.l    a2,a0
  1092.     add.l    #$D654,a0
  1093.     move.l    #$3F800000,(a0)
  1094. ;      ctx->Point.Params[0] = 1.0;
  1095.     move.l    a2,a0
  1096.     add.l    #$D658,a0
  1097.     lea    (a0),a0
  1098.     move.l    #$3F800000,(a0)
  1099. ;      ctx->Point.Params[1] = 0.0;
  1100.     move.l    a2,a0
  1101.     add.l    #$D658,a0
  1102.     lea    (a0),a0
  1103.     addq.w    #4,a0
  1104.     clr.l    (a0)
  1105. ;      ctx->Point.Params[2] = 0.0;
  1106.     move.l    a2,a0
  1107.     add.l    #$D658,a0
  1108.     lea    (a0),a0
  1109.     addq.w    #$8,a0
  1110.     clr.l    (a0)
  1111. ;      ctx->Point.MinSize = 0.0;
  1112.     move.l    a2,a0
  1113.     add.l    #$D664,a0
  1114.     clr.l    (a0)
  1115. ;      ctx->Point.MaxSize = (GLfloat) MAX_POINT_SIZE;
  1116.     move.l    a2,a0
  1117.     add.l    #$D668,a0
  1118.     move.l    #$41200000,(a0)
  1119. ;      ctx->Point.Threshold = 1.0;
  1120.     move.l    a2,a0
  1121.     add.l    #$D66C,a0
  1122.     move.l    #$3F800000,(a0)
  1123. ;      ctx->Polygon.CullFlag = GL_FALSE;
  1124.     move.l    a2,a0
  1125.     add.l    #$D67D,a0
  1126.     clr.b    (a0)
  1127. ;      ctx->Polygon.CullFaceMode = GL_BACK;
  1128.     move.l    a2,a0
  1129.     add.l    #$D67E,a0
  1130.     move.l    #$405,(a0)
  1131. ;      ctx->Polygon.FrontFace = GL_CCW;
  1132.     move.l    a2,a0
  1133.     add.l    #$D670,a0
  1134.     move.l    #$901,(a0)
  1135. ;      ctx->Polygon.FrontMode = GL_FILL;
  1136.     move.l    a2,a0
  1137.     add.l    #$D674,a0
  1138.     move.l    #$1B02,(a0)
  1139. ;      ctx->Polygon.BackMode = GL_FILL;
  1140.     move.l    a2,a0
  1141.     add.l    #$D678,a0
  1142.     move.l    #$1B02,(a0)
  1143. ;      ctx->Polygon.Unfilled = GL_FALSE;
  1144.     move.l    a2,a0
  1145.     add.l    #$D67C,a0
  1146.     clr.b    (a0)
  1147. ;      ctx->Polygon.SmoothFlag = GL_FALSE;
  1148.     move.l    a2,a0
  1149.     add.l    #$D686,a0
  1150.     clr.b    (a0)
  1151. ;      ctx->Polygon.StippleFlag = GL_FALSE;
  1152.     move.l    a2,a0
  1153.     add.l    #$D687,a0
  1154.     clr.b    (a0)
  1155. ;      ctx->Polygon.OffsetFactor = 0.0F;
  1156.     move.l    a2,a0
  1157.     add.l    #$D688,a0
  1158.     clr.l    (a0)
  1159. ;      ctx->Polygon.OffsetUnits = 0.0F;
  1160.     move.l    a2,a0
  1161.     add.l    #$D68C,a0
  1162.     clr.l    (a0)
  1163. ;      ctx->Polygon.OffsetPoint = GL_FALSE;
  1164.     move.l    a2,a0
  1165.     add.l    #$D690,a0
  1166.     clr.b    (a0)
  1167. ;      ctx->Polygon.OffsetLine = GL_FALSE;
  1168.     move.l    a2,a0
  1169.     add.l    #$D691,a0
  1170.     clr.b    (a0)
  1171. ;      ctx->Polygon.OffsetFill = GL_FALSE;
  1172.     move.l    a2,a0
  1173.     add.l    #$D692,a0
  1174.     clr.b    (a0)
  1175. ;      ctx->Polygon.OffsetAny = GL_FALSE;
  1176.     move.l    a2,a0
  1177.     add.l    #$D693,a0
  1178.     clr.b    (a0)
  1179. ;MSET( ctx->Polygo
  1180.     pea    $80.w
  1181.     pea    $FF.w
  1182.     move.l    a2,a0
  1183.     add.l    #$D694,a0
  1184.     lea    (a0),a0
  1185.     move.l    a0,-(a7)
  1186.     jsr    _memset
  1187.     add.w    #$C,a7
  1188. ;      ctx->Scissor.Enabled = GL_FALSE;
  1189.     move.l    a2,a0
  1190.     add.l    #$D714,a0
  1191.     clr.b    (a0)
  1192. ;      ctx->Scissor.X = 0;
  1193.     move.l    a2,a0
  1194.     add.l    #$D716,a0
  1195.     clr.l    (a0)
  1196. ;      ctx->Scissor.Y = 0;
  1197.     move.l    a2,a0
  1198.     add.l    #$D71A,a0
  1199.     clr.l    (a0)
  1200. ;      ctx->Scissor.Width = 0;
  1201.     move.l    a2,a0
  1202.     add.l    #$D71E,a0
  1203.     clr.l    (a0)
  1204. ;      ctx->Scissor.Height = 0;
  1205.     move.l    a2,a0
  1206.     add.l    #$D722,a0
  1207.     clr.l    (a0)
  1208. ;      ctx->Stencil.Enabled = GL_FALSE;
  1209.     move.l    a2,a0
  1210.     add.l    #$D726,a0
  1211.     clr.b    (a0)
  1212. ;      ctx->Stencil.Function = GL_ALWAYS;
  1213.     move.l    a2,a0
  1214.     add.l    #$D728,a0
  1215.     move.l    #$207,(a0)
  1216. ;      ctx->Stencil.FailFunc = GL_KEEP;
  1217.     move.l    a2,a0
  1218.     add.l    #$D72C,a0
  1219.     move.l    #$1E00,(a0)
  1220. ;      ctx->Stencil.ZPassFunc = GL_KEEP;
  1221.     move.l    a2,a0
  1222.     add.l    #$D730,a0
  1223.     move.l    #$1E00,(a0)
  1224. ;      ctx->Stencil.ZFailFunc = GL_KEEP;
  1225.     move.l    a2,a0
  1226.     add.l    #$D734,a0
  1227.     move.l    #$1E00,(a0)
  1228. ;      ctx->Stencil.Ref = 0;
  1229.     move.l    a2,a0
  1230.     add.l    #$D738,a0
  1231.     clr.b    (a0)
  1232. ;      ctx->Stencil.ValueMask = 0xff;
  1233.     move.l    a2,a0
  1234.     add.l    #$D739,a0
  1235.     move.b    #$FF,(a0)
  1236. ;      ctx->Stencil.Clear = 0;
  1237.     move.l    a2,a0
  1238.     add.l    #$D73A,a0
  1239.     clr.b    (a0)
  1240. ;      ctx->Stencil.WriteMask = 0xff;
  1241.     move.l    a2,a0
  1242.     add.l    #$D73B,a0
  1243.     move.b    #$FF,(a0)
  1244. ;      ctx->Texture.Enabled = 0;
  1245.     move.l    a2,a0
  1246.     add.l    #$D73C,a0
  1247.     clr.l    (a0)
  1248. ;      ctx->Texture.EnvMode = GL_MODULATE;
  1249.     move.l    a2,a0
  1250.     add.l    #$D740,a0
  1251.     move.l    #$2100,(a0)
  1252. ;SIGN_4V( ctx->Tex
  1253.     move.l    a2,a0
  1254.     add.l    #$D744,a0
  1255.     lea    (a0),a0
  1256.     clr.l    (a0)
  1257. ;SIGN_4V( ctx->Tex
  1258.     move.l    a2,a0
  1259.     add.l    #$D744,a0
  1260.     lea    (a0),a0
  1261.     addq.w    #4,a0
  1262.     clr.l    (a0)
  1263. ;SIGN_4V( ctx->Tex
  1264.     move.l    a2,a0
  1265.     add.l    #$D744,a0
  1266.     lea    (a0),a0
  1267.     addq.w    #$8,a0
  1268.     clr.l    (a0)
  1269. ;SIGN_4V( ctx->Tex
  1270.     move.l    a2,a0
  1271.     add.l    #$D744,a0
  1272.     lea    (a0),a0
  1273.     add.w    #$C,a0
  1274.     clr.l    (a0)
  1275. ;      ctx->Texture.TexGenEnabled = 0;
  1276.     move.l    a2,a0
  1277.     add.l    #$D754,a0
  1278.     clr.l    (a0)
  1279. ;      ctx->Texture.GenModeS = GL_EYE_LINEAR;
  1280.     move.l    a2,a0
  1281.     add.l    #$D758,a0
  1282.     move.l    #$2400,(a0)
  1283. ;      ctx->Texture.GenModeT = GL_EYE_LINEAR;
  1284.     move.l    a2,a0
  1285.     add.l    #$D75C,a0
  1286.     move.l    #$2400,(a0)
  1287. ;      ctx->Texture.GenModeR = GL_EYE_LINEAR;
  1288.     move.l    a2,a0
  1289.     add.l    #$D760,a0
  1290.     move.l    #$2400,(a0)
  1291. ;      ctx->Texture.GenModeQ = GL_EYE_LINEAR;
  1292.     move.l    a2,a0
  1293.     add.l    #$D764,a0
  1294.     move.l    #$2400,(a0)
  1295. ;_4V( ctx->Texture
  1296.     move.l    a2,a0
  1297.     add.l    #$D768,a0
  1298.     lea    (a0),a0
  1299.     move.l    #$3F800000,(a0)
  1300. ;_4V( ctx->Texture
  1301.     move.l    a2,a0
  1302.     add.l    #$D768,a0
  1303.     lea    (a0),a0
  1304.     addq.w    #4,a0
  1305.     clr.l    (a0)
  1306. ;_4V( ctx->Texture
  1307.     move.l    a2,a0
  1308.     add.l    #$D768,a0
  1309.     lea    (a0),a0
  1310.     addq.w    #$8,a0
  1311.     clr.l    (a0)
  1312. ;_4V( ctx->Texture
  1313.     move.l    a2,a0
  1314.     add.l    #$D768,a0
  1315.     lea    (a0),a0
  1316.     add.w    #$C,a0
  1317.     clr.l    (a0)
  1318. ;_4V( ctx->Texture
  1319.     move.l    a2,a0
  1320.     add.l    #$D778,a0
  1321.     lea    (a0),a0
  1322.     clr.l    (a0)
  1323. ;_4V( ctx->Texture
  1324.     move.l    a2,a0
  1325.     add.l    #$D778,a0
  1326.     lea    (a0),a0
  1327.     addq.w    #4,a0
  1328.     move.l    #$3F800000,(a0)
  1329. ;_4V( ctx->Texture
  1330.     move.l    a2,a0
  1331.     add.l    #$D778,a0
  1332.     lea    (a0),a0
  1333.     addq.w    #$8,a0
  1334.     clr.l    (a0)
  1335. ;_4V( ctx->Texture
  1336.     move.l    a2,a0
  1337.     add.l    #$D778,a0
  1338.     lea    (a0),a0
  1339.     add.w    #$C,a0
  1340.     clr.l    (a0)
  1341. ;_4V( ctx->Texture
  1342.     move.l    a2,a0
  1343.     add.l    #$D788,a0
  1344.     lea    (a0),a0
  1345.     clr.l    (a0)
  1346. ;_4V( ctx->Texture
  1347.     move.l    a2,a0
  1348.     add.l    #$D788,a0
  1349.     lea    (a0),a0
  1350.     addq.w    #4,a0
  1351.     clr.l    (a0)
  1352. ;_4V( ctx->Texture
  1353.     move.l    a2,a0
  1354.     add.l    #$D788,a0
  1355.     lea    (a0),a0
  1356.     addq.w    #$8,a0
  1357.     clr.l    (a0)
  1358. ;_4V( ctx->Texture
  1359.     move.l    a2,a0
  1360.     add.l    #$D788,a0
  1361.     lea    (a0),a0
  1362.     add.w    #$C,a0
  1363.     clr.l    (a0)
  1364. ;_4V( ctx->Texture
  1365.     move.l    a2,a0
  1366.     add.l    #$D798,a0
  1367.     lea    (a0),a0
  1368.     clr.l    (a0)
  1369. ;_4V( ctx->Texture
  1370.     move.l    a2,a0
  1371.     add.l    #$D798,a0
  1372.     lea    (a0),a0
  1373.     addq.w    #4,a0
  1374.     clr.l    (a0)
  1375. ;_4V( ctx->Texture
  1376.     move.l    a2,a0
  1377.     add.l    #$D798,a0
  1378.     lea    (a0),a0
  1379.     addq.w    #$8,a0
  1380.     clr.l    (a0)
  1381. ;_4V( ctx->Texture
  1382.     move.l    a2,a0
  1383.     add.l    #$D798,a0
  1384.     lea    (a0),a0
  1385.     add.w    #$C,a0
  1386.     clr.l    (a0)
  1387. ;IGN_4V( ctx->Text
  1388.     move.l    a2,a0
  1389.     add.l    #$D7A8,a0
  1390.     lea    (a0),a0
  1391.     move.l    #$3F800000,(a0)
  1392. ;IGN_4V( ctx->Text
  1393.     move.l    a2,a0
  1394.     add.l    #$D7A8,a0
  1395.     lea    (a0),a0
  1396.     addq.w    #4,a0
  1397.     clr.l    (a0)
  1398. ;IGN_4V( ctx->Text
  1399.     move.l    a2,a0
  1400.     add.l    #$D7A8,a0
  1401.     lea    (a0),a0
  1402.     addq.w    #$8,a0
  1403.     clr.l    (a0)
  1404. ;IGN_4V( ctx->Text
  1405.     move.l    a2,a0
  1406.     add.l    #$D7A8,a0
  1407.     lea    (a0),a0
  1408.     add.w    #$C,a0
  1409.     clr.l    (a0)
  1410. ;IGN_4V( ctx->Text
  1411.     move.l    a2,a0
  1412.     add.l    #$D7B8,a0
  1413.     lea    (a0),a0
  1414.     clr.l    (a0)
  1415. ;IGN_4V( ctx->Text
  1416.     move.l    a2,a0
  1417.     add.l    #$D7B8,a0
  1418.     lea    (a0),a0
  1419.     addq.w    #4,a0
  1420.     move.l    #$3F800000,(a0)
  1421. ;IGN_4V( ctx->Text
  1422.     move.l    a2,a0
  1423.     add.l    #$D7B8,a0
  1424.     lea    (a0),a0
  1425.     addq.w    #$8,a0
  1426.     clr.l    (a0)
  1427. ;IGN_4V( ctx->Text
  1428.     move.l    a2,a0
  1429.     add.l    #$D7B8,a0
  1430.     lea    (a0),a0
  1431.     add.w    #$C,a0
  1432.     clr.l    (a0)
  1433. ;IGN_4V( ctx->Text
  1434.     move.l    a2,a0
  1435.     add.l    #$D7C8,a0
  1436.     lea    (a0),a0
  1437.     clr.l    (a0)
  1438. ;IGN_4V( ctx->Text
  1439.     move.l    a2,a0
  1440.     add.l    #$D7C8,a0
  1441.     lea    (a0),a0
  1442.     addq.w    #4,a0
  1443.     clr.l    (a0)
  1444. ;IGN_4V( ctx->Text
  1445.     move.l    a2,a0
  1446.     add.l    #$D7C8,a0
  1447.     lea    (a0),a0
  1448.     addq.w    #$8,a0
  1449.     clr.l    (a0)
  1450. ;IGN_4V( ctx->Text
  1451.     move.l    a2,a0
  1452.     add.l    #$D7C8,a0
  1453.     lea    (a0),a0
  1454.     add.w    #$C,a0
  1455.     clr.l    (a0)
  1456. ;IGN_4V( ctx->Text
  1457.     move.l    a2,a0
  1458.     add.l    #$D7D8,a0
  1459.     lea    (a0),a0
  1460.     clr.l    (a0)
  1461. ;IGN_4V( ctx->Text
  1462.     move.l    a2,a0
  1463.     add.l    #$D7D8,a0
  1464.     lea    (a0),a0
  1465.     addq.w    #4,a0
  1466.     clr.l    (a0)
  1467. ;IGN_4V( ctx->Text
  1468.     move.l    a2,a0
  1469.     add.l    #$D7D8,a0
  1470.     lea    (a0),a0
  1471.     addq.w    #$8,a0
  1472.     clr.l    (a0)
  1473. ;IGN_4V( ctx->Text
  1474.     move.l    a2,a0
  1475.     add.l    #$D7D8,a0
  1476.     lea    (a0),a0
  1477.     add.w    #$C,a0
  1478.     clr.l    (a0)
  1479. ;      ctx->Texture.Current1D = ctx->Shared->Default1D;
  1480.     move.l    (a2),a0
  1481.     move.l    $10(a0),a0
  1482.     move.l    a2,a1
  1483.     add.l    #$D7E8,a1
  1484.     move.l    a0,(a1)
  1485. ;      ctx->Texture.Current2D = ctx->Shared->Default2D;
  1486.     move.l    (a2),a0
  1487.     move.l    $14(a0),a0
  1488.     move.l    a2,a1
  1489.     add.l    #$D7EC,a1
  1490.     move.l    a0,(a1)
  1491. ;      ctx->Texture.Current3D = ctx->Shared->Default3D;
  1492.     move.l    (a2),a0
  1493.     move.l    $18(a0),a0
  1494.     move.l    a2,a1
  1495.     add.l    #$D7F0,a1
  1496.     move.l    a0,(a1)
  1497. ;      ctx->Texture.SharedPalette = GL_FALSE;
  1498.     move.l    a2,a0
  1499.     add.l    #$D804,a0
  1500.     clr.b    (a0)
  1501. ;      ctx->Texture.Palette[0] = 255;
  1502.     move.l    a2,a0
  1503.     add.l    #$D805,a0
  1504.     lea    (a0),a0
  1505.     move.b    #$FF,(a0)
  1506. ;      ctx->Texture.Palette[1] = 255;
  1507.     move.l    a2,a0
  1508.     add.l    #$D805,a0
  1509.     lea    (a0),a0
  1510.     addq.w    #1,a0
  1511.     move.b    #$FF,(a0)
  1512. ;      ctx->Texture.Palette[2] = 255;
  1513.     move.l    a2,a0
  1514.     add.l    #$D805,a0
  1515.     lea    (a0),a0
  1516.     addq.w    #2,a0
  1517.     move.b    #$FF,(a0)
  1518. ;      ctx->Texture.Palette[3] = 255;
  1519.     move.l    a2,a0
  1520.     add.l    #$D805,a0
  1521.     lea    (a0),a0
  1522.     addq.w    #3,a0
  1523.     move.b    #$FF,(a0)
  1524. ;      ctx->Texture.PaletteSize = 1;
  1525.     move.l    a2,a0
  1526.     add.l    #$DC06,a0
  1527.     move.l    #1,(a0)
  1528. ;      ctx->Texture.PaletteIntFormat = GL_RGBA;
  1529.     move.l    a2,a0
  1530.     add.l    #$DC0A,a0
  1531.     move.l    #$1908,(a0)
  1532. ;      ctx->Texture.PaletteFormat = GL_RGBA;
  1533.     move.l    a2,a0
  1534.     add.l    #$DC0E,a0
  1535.     move.l    #$1908,(a0)
  1536. ;      ctx->Transform.MatrixMode = GL_MODELVIEW;
  1537.     move.l    a2,a0
  1538.     add.l    #$DC12,a0
  1539.     move.l    #$1700,(a0)
  1540. ;      ctx->Transform.Normalize = GL_FALSE;
  1541.     move.l    a2,a0
  1542.     add.l    #$DC7D,a0
  1543.     clr.b    (a0)
  1544. ;      for (i=0;
  1545.     moveq    #0,d2
  1546.     bra.b    L248
  1547. L247
  1548. ;     ctx->Transform.ClipEnabled[i] = GL_FALSE;
  1549.     move.l    a2,a0
  1550.     add.l    #$DC76,a0
  1551.     lea    (a0),a0
  1552.     add.l    d2,a0
  1553.     clr.b    (a0)
  1554. ;ctx->Transform.Cl
  1555.     move.l    a2,a0
  1556.     add.l    #$DC16,a0
  1557.     lea    (a0),a0
  1558.     move.l    d2,d0
  1559.     asl.l    #4,d0
  1560.     add.l    d0,a0
  1561.     clr.l    (a0)
  1562. ;ctx->Transform.Cl
  1563.     move.l    a2,a0
  1564.     add.l    #$DC16,a0
  1565.     lea    (a0),a0
  1566.     move.l    d2,d0
  1567.     asl.l    #4,d0
  1568.     add.l    d0,a0
  1569.     addq.w    #4,a0
  1570.     clr.l    (a0)
  1571. ;ctx->Transform.Cl
  1572.     move.l    a2,a0
  1573.     add.l    #$DC16,a0
  1574.     lea    (a0),a0
  1575.     move.l    d2,d0
  1576.     asl.l    #4,d0
  1577.     add.l    d0,a0
  1578.     addq.w    #$8,a0
  1579.     clr.l    (a0)
  1580. ;ctx->Transform.Cl
  1581.     move.l    a2,a0
  1582.     add.l    #$DC16,a0
  1583.     lea    (a0),a0
  1584.     move.l    d2,d0
  1585.     asl.l    #4,d0
  1586.     add.l    d0,a0
  1587.     add.w    #$C,a0
  1588.     clr.l    (a0)
  1589.     addq.l    #1,d2
  1590. L248
  1591.     cmp.l    #6,d2
  1592.     blo.b    L247
  1593. L249
  1594. ;      ctx->Transform.AnyClip = GL_FALSE;
  1595.     move.l    a2,a0
  1596.     add.l    #$DC7C,a0
  1597.     clr.b    (a0)
  1598. ;      ctx->Viewport.X = 0;
  1599.     move.l    a2,a0
  1600.     add.l    #$DC7E,a0
  1601.     clr.l    (a0)
  1602. ;      ctx->Viewport.Y = 0;
  1603.     move.l    a2,a0
  1604.     add.l    #$DC82,a0
  1605.     clr.l    (a0)
  1606. ;      ctx->Viewport.Width = 0;
  1607.     move.l    a2,a0
  1608.     add.l    #$DC86,a0
  1609.     clr.l    (a0)
  1610. ;      ctx->Viewport.Height = 0;
  1611.     move.l    a2,a0
  1612.     add.l    #$DC8A,a0
  1613.     clr.l    (a0)
  1614. ;      ctx->Viewport.Near = 0.0;
  1615.     move.l    a2,a0
  1616.     add.l    #$DC8E,a0
  1617.     clr.l    (a0)
  1618. ;      ctx->Viewport.Far = 1.0;
  1619.     move.l    a2,a0
  1620.     add.l    #$DC92,a0
  1621.     move.l    #$3F800000,(a0)
  1622. ;      ctx->Viewport.Sx = 0.0;
  1623.     move.l    a2,a0
  1624.     add.l    #$DC96,a0
  1625.     clr.l    (a0)
  1626. ;      ctx->Viewport.Tx = 0.0;
  1627.     move.l    a2,a0
  1628.     add.l    #$DCA2,a0
  1629.     clr.l    (a0)
  1630. ;      ctx->Viewport.Sy = 0.0;
  1631.     move.l    a2,a0
  1632.     add.l    #$DC9A,a0
  1633.     clr.l    (a0)
  1634. ;      ctx->Viewport.Ty = 0.0;
  1635.     move.l    a2,a0
  1636.     add.l    #$DCA6,a0
  1637.     clr.l    (a0)
  1638. ;      ctx->Viewport.Sz = 0.5 * DEPTH_SCALE;
  1639.     move.l    a2,a0
  1640.     add.l    #$DC9E,a0
  1641.     move.l    #$46FFFF00,(a0)
  1642. ;      ctx->Viewport.Tz = 0.5 * DEPTH_SCALE;
  1643.     move.l    a2,a0
  1644.     add.l    #$DCAA,a0
  1645.     move.l    #$46FFFF00,(a0)
  1646. ;      ctx->Pack.Alignment = 4;
  1647.     move.l    a2,a0
  1648.     add.l    #$DD66,a0
  1649.     move.l    #4,(a0)
  1650. ;      ctx->Pack.RowLength = 0;
  1651.     move.l    a2,a0
  1652.     add.l    #$DD6A,a0
  1653.     clr.l    (a0)
  1654. ;      ctx->Pack.SkipPixels = 0;
  1655.     move.l    a2,a0
  1656.     add.l    #$DD6E,a0
  1657.     clr.l    (a0)
  1658. ;      ctx->Pack.SkipRows = 0;
  1659.     move.l    a2,a0
  1660.     add.l    #$DD72,a0
  1661.     clr.l    (a0)
  1662. ;      ctx->Pack.SwapBytes = GL_FALSE;
  1663.     move.l    a2,a0
  1664.     add.l    #$DD7E,a0
  1665.     clr.b    (a0)
  1666. ;      ctx->Pack.LsbFirst = GL_FALSE;
  1667.     move.l    a2,a0
  1668.     add.l    #$DD7F,a0
  1669.     clr.b    (a0)
  1670. ;      ctx->Unpack.Alignment = 4;
  1671.     move.l    a2,a0
  1672.     add.l    #$DD80,a0
  1673.     move.l    #4,(a0)
  1674. ;      ctx->Unpack.RowLength = 0;
  1675.     move.l    a2,a0
  1676.     add.l    #$DD84,a0
  1677.     clr.l    (a0)
  1678. ;      ctx->Unpack.SkipPixels = 0;
  1679.     move.l    a2,a0
  1680.     add.l    #$DD88,a0
  1681.     clr.l    (a0)
  1682. ;      ctx->Unpack.SkipRows = 0;
  1683.     move.l    a2,a0
  1684.     add.l    #$DD8C,a0
  1685.     clr.l    (a0)
  1686. ;      ctx->Unpack.SwapBytes = GL_FALSE;
  1687.     move.l    a2,a0
  1688.     add.l    #$DD98,a0
  1689.     clr.b    (a0)
  1690. ;      ctx->Unpack.LsbFirst = GL_FALSE;
  1691.     move.l    a2,a0
  1692.     add.l    #$DD99,a0
  1693.     clr.b    (a0)
  1694. ;      ctx->Feedback.Type = GL_2D;
  1695.     move.l    a2,a0
  1696.     add.l    #$DF4A,a0
  1697.     move.l    #$600,(a0)
  1698. ;      ctx->Feedback.Buffer = NULL;
  1699.     move.l    a2,a1
  1700.     add.l    #$DF52,a1
  1701.     clr.l    (a1)
  1702. ;      ctx->Feedback.BufferSize = 0;
  1703.     move.l    a2,a0
  1704.     add.l    #$DF56,a0
  1705.     clr.l    (a0)
  1706. ;      ctx->Feedback.Count = 0;
  1707.     move.l    a2,a0
  1708.     add.l    #$DF5A,a0
  1709.     clr.l    (a0)
  1710. ;      ctx->Select.Buffer = NULL;
  1711.     move.l    a2,a1
  1712.     add.l    #$DF5E,a1
  1713.     clr.l    (a1)
  1714. ;      ctx->Select.BufferSize = 0;
  1715.     move.l    a2,a0
  1716.     add.l    #$DF62,a0
  1717.     clr.l    (a0)
  1718. ;      ctx->Select.BufferCount = 0;
  1719.     move.l    a2,a0
  1720.     add.l    #$DF66,a0
  1721.     clr.l    (a0)
  1722. ;      ctx->Select.Hits = 0;
  1723.     move.l    a2,a0
  1724.     add.l    #$DF6A,a0
  1725.     clr.l    (a0)
  1726. ;      ctx->Select.NameStackDepth = 0;
  1727.     move.l    a2,a0
  1728.     add.l    #$DF6E,a0
  1729.     clr.l    (a0)
  1730. ;      ctx->AttribStackDepth = 0;
  1731.     clr.l    $1E20(a2)
  1732. ;      ctx->ClientAttribStackDepth = 0;
  1733.     move.l    a2,a0
  1734.     add.l    #$DCAE,a0
  1735.     clr.l    (a0)
  1736. ;      ctx->NewState = NEW_ALL;
  1737.     move.l    a2,a0
  1738.     add.l    #$E082,a0
  1739.     move.l    #$F,(a0)
  1740. ;      ctx->RenderMode = GL_RENDER;
  1741.     move.l    a2,a0
  1742.     add.l    #$E086,a0
  1743.     move.l    #$1C00,(a0)
  1744. ;      ctx->Primitive = GL_BITMAP;
  1745.     move.l    a2,a0
  1746.     add.l    #$E08A,a0
  1747.     move.l    #$1A00,(a0)
  1748. ;      ctx->StippleCounter = 0;
  1749.     move.l    a2,a0
  1750.     add.l    #$E08E,a0
  1751.     clr.l    (a0)
  1752. ;      ctx->NeedNormals = GL_FALSE;
  1753.     move.l    a2,a0
  1754.     add.l    #$E0A8,a0
  1755.     clr.b    (a0)
  1756. ;      if (   ctx->Visual->RedScale==255.0F
  1757.     move.l    $898(a2),a0
  1758.     fmove.s    2(a0),fp0
  1759.     fcmp.s    #$.437F0000,fp0
  1760.     fbne.b    L254
  1761. L250
  1762.     move.l    $898(a2),a0
  1763.     fmove.s    6(a0),fp0
  1764.     fcmp.s    #$.437F0000,fp0
  1765.     fbne.b    L254
  1766. L251
  1767.     move.l    $898(a2),a0
  1768.     fmove.s    $A(a0),fp0
  1769.     fcmp.s    #$.437F0000,fp0
  1770.     fbne.b    L254
  1771. L252
  1772.     move.l    $898(a2),a0
  1773.     fmove.s    $E(a0),fp0
  1774.     fcmp.s    #$.437F0000,fp0
  1775.     fbne.b    L254
  1776. L253
  1777. ;     ctx->Visual->EightBitColor = GL_TRUE;
  1778.     move.l    $898(a2),a0
  1779.     move.b    #1,$12(a0)
  1780.     bra.b    L255
  1781. L254
  1782. ;     ctx->Visual->EightBitColor = GL_FALSE;
  1783.     move.l    $898(a2),a0
  1784.     clr.b    $12(a0)
  1785. L255
  1786. ;      ctx->FastDrawPixels = ctx->Visual->RGBAflag && ctx->Visu
  1787.     moveq    #0,d0
  1788.     move.l    $898(a2),a0
  1789.     move.b    (a0),d1
  1790.     beq.b    L258
  1791. L256
  1792.     move.l    $898(a2),a0
  1793.     move.b    $12(a0),d1
  1794.     beq.b    L258
  1795. L257
  1796.     moveq    #1,d0
  1797. L258
  1798.     move.l    a2,a0
  1799.     add.l    #$E0A9,a0
  1800.     move.b    d0,(a0)
  1801. ;      ctx->DirectContext = GL_TRUE;
  1802.     move.l    a2,a0
  1803.     add.l    #$E080,a0
  1804.     move.b    #1,(a0)
  1805. ;      ctx->CallDepth = 0;
  1806.     clr.l    $1E1A(a2)
  1807. ;      ctx->ExecuteFlag = GL_TRUE;
  1808.     move.b    #1,$1E1E(a2)
  1809. ;      ctx->CompileFlag = GL_FALSE;
  1810.     clr.b    $1E1F(a2)
  1811. ;      ctx->ErrorValue = GL_NO_ERROR;
  1812.     move.l    a2,a0
  1813.     add.l    #$E07C,a0
  1814.     clr.l    (a0)
  1815. ;      ctx->NoRaster = getenv("MESA_NO_RASTER") ? GL_TRUE : GL_
  1816.     move.l    #L238,-(a7)
  1817.     jsr    _getenv
  1818.     addq.w    #4,a7
  1819.     tst.l    d0
  1820.     beq.b    L260
  1821. L259
  1822.     moveq    #1,d0
  1823.     bra.b    L261
  1824. L260
  1825.     moveq    #0,d0
  1826. L261
  1827.     move.l    a2,a0
  1828.     add.l    #$E0C8,a0
  1829.     move.b    d0,(a0)
  1830. ;      ctx->NoDither = getenv("MESA_NO_DITHER") ? GL_TRUE : GL_
  1831.     move.l    #L239,-(a7)
  1832.     jsr    _getenv
  1833.     addq.w    #4,a7
  1834.     tst.l    d0
  1835.     beq.b    L263
  1836. L262
  1837.     moveq    #1,d0
  1838.     bra.b    L264
  1839. L263
  1840.     moveq    #0,d0
  1841. L264
  1842.     move.l    a2,a0
  1843.     add.l    #$E0C9,a0
  1844.     move.b    d0,(a0)
  1845. ;      if (ctx->NoDither) 
  1846.     move.l    a2,a0
  1847.     add.l    #$E0C9,a0
  1848.     move.b    (a0),d0
  1849.     beq.b    L268
  1850. L265
  1851. ;     if (getenv("MESA_DEBUG")) 
  1852.     move.l    #L240,-(a7)
  1853.     jsr    _getenv
  1854.     addq.w    #4,a7
  1855.     tst.l    d0
  1856.     beq.b    L267
  1857. L266
  1858. ;        fprintf(stderr, "MESA_NO_DITHER set - dithering disabled\n
  1859.     move.l    #L241,-(a7)
  1860.     move.l    #_std__err,-(a7)
  1861.     jsr    _fprintf
  1862.     addq.w    #$8,a7
  1863. L267
  1864. ;     ctx->Color.DitherFlag = GL_FALSE;
  1865.     clr.b    $1EC5(a2)
  1866. L268
  1867.     movem.l    (a7)+,d2/a2
  1868.     rts
  1869.  
  1870. L240
  1871.     dc.b    'MESA_DEBUG',0
  1872. L239
  1873.     dc.b    'MESA_NO_DITHER',0
  1874. L241
  1875.     dc.b    'MESA_NO_DITHER set - dithering disabled',$A,0
  1876. L238
  1877.     dc.b    'MESA_NO_RASTER',0
  1878.  
  1879.     SECTION "_initialize_context:1",DATA
  1880.  
  1881. _identity___initialize_context
  1882.     dc.l    $3F800000,0,0,0,0,$3F800000,0,0,0,0,$3F800000
  1883.     dc.l    0,0,0,0,$3F800000
  1884.  
  1885.     SECTION "_gl_create_visual:0",CODE
  1886.  
  1887.  
  1888. ; * the allocations clean up and return GL_FA
  1889.     XDEF    _gl_create_visual
  1890. _gl_create_visual
  1891. L307    EQU    -4
  1892.     link    a5,#L307
  1893.     movem.l    d2-d5,-(a7)
  1894.     fmovem.x fp2/fp3/fp4/fp5,-(a7)
  1895.     move.l    $3A(a5),d2
  1896.     move.b    $A(a5),d3
  1897.     move.b    $C(a5),d4
  1898.     move.l    $16(a5),d5
  1899.     fmove.s    $2A(a5),fp2
  1900.     fmove.s    $26(a5),fp3
  1901.     fmove.s    $22(a5),fp4
  1902.     fmove.s    $1E(a5),fp5
  1903. L269
  1904. ;   if (depth_bits > 8*sizeof(GLdepth)) 
  1905.     move.l    $E(a5),d0
  1906.     cmp.l    #$10,d0
  1907.     bls.b    L271
  1908. L270
  1909.     moveq    #0,d0
  1910.     fmovem.x (a7)+,fp2/fp3/fp4/fp5
  1911.     movem.l    (a7)+,d2-d5
  1912.     unlk    a5
  1913.     rts
  1914. L271
  1915. ;   if (stencil_bits > 8*sizeof(GLstencil)) 
  1916.     move.l    $12(a5),d0
  1917.     cmp.l    #$8,d0
  1918.     bls.b    L273
  1919. L272
  1920.     moveq    #0,d0
  1921.     fmovem.x (a7)+,fp2/fp3/fp4/fp5
  1922.     movem.l    (a7)+,d2-d5
  1923.     unlk    a5
  1924.     rts
  1925. L273
  1926. ;   if (accum_bits > 8*sizeof(GLaccum)) 
  1927.     cmp.l    #$10,d5
  1928.     bls.b    L275
  1929. L274
  1930.     moveq    #0,d0
  1931.     fmovem.x (a7)+,fp2/fp3/fp4/fp5
  1932.     movem.l    (a7)+,d2-d5
  1933.     unlk    a5
  1934.     rts
  1935. L275
  1936. ;   vis = (GLvisual *) calloc( 1, sizeof(GLvisual) );
  1937.     pea    $46.w
  1938.     pea    1.w
  1939.     jsr    _calloc
  1940.     addq.w    #$8,a7
  1941.     move.l    d0,a0
  1942. ;   if (!vis) 
  1943.     cmp.w    #0,a0
  1944.     bne.b    L277
  1945. L276
  1946.     moveq    #0,d0
  1947.     fmovem.x (a7)+,fp2/fp3/fp4/fp5
  1948.     movem.l    (a7)+,d2-d5
  1949.     unlk    a5
  1950.     rts
  1951. L277
  1952. ;   vis->RGBAflag      = rgb_flag;
  1953.     move.b    $8(a5),(a0)
  1954. ;   vis->DBflag        = db_flag;
  1955.     move.b    d4,1(a0)
  1956. ;   vis->RedScale      = red_scale;
  1957.     fmove.s    fp5,2(a0)
  1958. ;   vis->GreenScale    = green_scale;
  1959.     fmove.s    fp4,6(a0)
  1960. ;   vis->BlueScale     = blue_scale;
  1961.     fmove.s    fp3,$A(a0)
  1962. ;   vis->AlphaScale    = alpha_scale;
  1963.     fmove.s    fp2,$E(a0)
  1964. ;   if (red_scale) 
  1965.     ftst.s    fp5
  1966.     fbeq.b    L279
  1967. L278
  1968. ;      vis->InvRedScale   = 1.0F / red_scale;
  1969.     fmove.s    #$.3F800000,fp0
  1970.     fdiv.x    fp5,fp0
  1971.     fmove.s    fp0,$14(a0)
  1972. L279
  1973. ;   if (green_scale) 
  1974.     ftst.s    fp4
  1975.     fbeq.b    L281
  1976. L280
  1977. ;      vis->InvGreenScale = 1.0F / green_scale;
  1978.     fmove.s    #$.3F800000,fp0
  1979.     fdiv.x    fp4,fp0
  1980.     fmove.s    fp0,$18(a0)
  1981. L281
  1982. ;   if (blue_scale) 
  1983.     ftst.s    fp3
  1984.     fbeq.b    L283
  1985. L282
  1986. ;      vis->InvBlueScale  = 1.0F / blue_scale;
  1987.     fmove.s    #$.3F800000,fp0
  1988.     fdiv.x    fp3,fp0
  1989.     fmove.s    fp0,$1C(a0)
  1990. L283
  1991. ;   if (alpha_scale) 
  1992.     ftst.s    fp2
  1993.     fbeq.b    L285
  1994. L284
  1995. ;      vis->InvAlphaScale = 1.0F / alpha_scale;
  1996.     fmove.s    #$.3F800000,fp0
  1997.     fdiv.x    fp2,fp0
  1998.     fmove.s    fp0,$20(a0)
  1999. L285
  2000. ;   vis->RedBits   = red_bits;
  2001.     move.l    $2E(a5),$24(a0)
  2002. ;   vis->GreenBits = green_bits;
  2003.     move.l    $32(a5),$28(a0)
  2004. ;   vis->BlueBits  = blue_bits;
  2005.     move.l    $36(a5),$2C(a0)
  2006. ;   vis->AlphaBits = alpha_flag ? 8*sizeof(GLubyte) : alpha_bits;
  2007.     tst.b    d3
  2008.     beq.b    L287
  2009. L286
  2010.     moveq    #$8,d2
  2011. L287
  2012. L288
  2013.     move.l    d2,$30(a0)
  2014. ;   vis->IndexBits   = index_bits;
  2015.     move.l    $1A(a5),$34(a0)
  2016. ;   vis->DepthBits   = (depth_bits>0) ? 8*sizeof(GLdepth) : 0;
  2017.     move.l    $E(a5),d0
  2018.     cmp.l    #0,d0
  2019.     ble.b    L290
  2020. L289
  2021.     moveq    #$10,d0
  2022.     bra.b    L291
  2023. L290
  2024.     moveq    #0,d0
  2025. L291
  2026.     move.l    d0,$3C(a0)
  2027. ;   vis->AccumBits   = (accum_bits>0) ? 8*sizeof(GLaccum) : 0;
  2028.     cmp.l    #0,d5
  2029.     ble.b    L293
  2030. L292
  2031.     moveq    #$10,d0
  2032.     bra.b    L294
  2033. L293
  2034.     moveq    #0,d0
  2035. L294
  2036.     move.l    d0,$38(a0)
  2037. ;   vis->StencilBits = (stencil_bits>0) ? 8*sizeof(GLstencil) : 0;
  2038.     move.l    $12(a5),d0
  2039.     cmp.l    #0,d0
  2040.     ble.b    L296
  2041. L295
  2042.     moveq    #$8,d0
  2043.     bra.b    L297
  2044. L296
  2045.     moveq    #0,d0
  2046. L297
  2047.     move.l    d0,$40(a0)
  2048. ;   if (red_scale==255.0F && green_scale==255.0F
  2049.     fcmp.s    #$.437F0000,fp5
  2050.     fbne.b    L302
  2051. L298
  2052.     fcmp.s    #$.437F0000,fp4
  2053.     fbne.b    L302
  2054. L299
  2055.     fcmp.s    #$.437F0000,fp3
  2056.     fbne.b    L302
  2057. L300
  2058.     fcmp.s    #$.437F0000,fp2
  2059.     fbne.b    L302
  2060. L301
  2061. ;      vis->EightBitColor = GL_TRUE;
  2062.     move.b    #1,$12(a0)
  2063.     bra.b    L303
  2064. L302
  2065. ;      vis->EightBitColor = GL_FALSE;
  2066.     clr.b    $12(a0)
  2067. L303
  2068. ;   if (alpha_flag) 
  2069.     tst.b    d3
  2070.     beq.b    L306
  2071. L304
  2072. ;      vis->FrontAlphaEnabled = GL_TRUE;
  2073.     move.b    #1,$44(a0)
  2074. ;      if (db_flag) 
  2075.     tst.b    d4
  2076.     beq.b    L306
  2077. L305
  2078. ;     vis->BackAlphaEnabled = GL_TRUE;
  2079.     move.b    #1,$45(a0)
  2080. L306
  2081.     move.l    a0,d0
  2082.     fmovem.x (a7)+,fp2/fp3/fp4/fp5
  2083.     movem.l    (a7)+,d2-d5
  2084.     unlk    a5
  2085.     rts
  2086.  
  2087.     SECTION "_gl_destroy_visual:0",CODE
  2088.  
  2089.  
  2090. ;void gl_destroy_visual( GLvisual *vis )
  2091.     XDEF    _gl_destroy_visual
  2092. _gl_destroy_visual
  2093.     move.l    4(a7),a0
  2094. L308
  2095. ;   free( vis );
  2096.     move.l    a0,-(a7)
  2097.     jsr    _free
  2098.     addq.w    #4,a7
  2099.     rts
  2100.  
  2101.     SECTION "_alloc_proxy_textures:0",CODE
  2102.  
  2103.  
  2104. ;static GLboolean alloc_proxy_textures( GLcontext *ctx )
  2105. _alloc_proxy_textures
  2106.     movem.l    d2/d3/a2,-(a7)
  2107.     move.l    $10(a7),a2
  2108. L309
  2109. ;   ctx->Texture.Proxy1D = gl_alloc_texture_object(NULL, 0, 1);
  2110.     pea    1.w
  2111.     clr.l    -(a7)
  2112.     clr.l    -(a7)
  2113.     jsr    _gl_alloc_texture_object
  2114.     add.w    #$C,a7
  2115.     move.l    a2,a1
  2116.     add.l    #$D7F8,a1
  2117.     move.l    d0,(a1)
  2118. ;   if (!ctx->Texture.Proxy1D) 
  2119.     move.l    a2,a0
  2120.     add.l    #$D73C,a0
  2121.     lea    (a0),a0
  2122.     move.l    $BC(a0),a0
  2123.     cmp.w    #0,a0
  2124.     bne.b    L311
  2125. L310
  2126.     moveq    #0,d0
  2127.     movem.l    (a7)+,d2/d3/a2
  2128.     rts
  2129. L311
  2130. ;   ctx->Texture.Proxy2D = gl_alloc_texture_object(NULL, 0, 2);
  2131.     pea    2.w
  2132.     clr.l    -(a7)
  2133.     clr.l    -(a7)
  2134.     jsr    _gl_alloc_texture_object
  2135.     add.w    #$C,a7
  2136.     move.l    a2,a1
  2137.     add.l    #$D7FC,a1
  2138.     move.l    d0,(a1)
  2139. ;   if (!ctx->Texture.Proxy2D) 
  2140.     move.l    a2,a0
  2141.     add.l    #$D73C,a0
  2142.     lea    (a0),a0
  2143.     move.l    $C0(a0),a0
  2144.     cmp.w    #0,a0
  2145.     bne.b    L313
  2146. L312
  2147. ;      gl_free_texture_object(NULL, ctx->Texture.Proxy1D);
  2148.     move.l    a2,a0
  2149.     add.l    #$D73C,a0
  2150.     lea    (a0),a0
  2151.     move.l    $BC(a0),a0
  2152.     move.l    a0,-(a7)
  2153.     clr.l    -(a7)
  2154.     jsr    _gl_free_texture_object
  2155.     addq.w    #$8,a7
  2156.     moveq    #0,d0
  2157.     movem.l    (a7)+,d2/d3/a2
  2158.     rts
  2159. L313
  2160. ;   ctx->Texture.Proxy3D = gl_alloc_texture_object(NULL, 0, 3);
  2161.     pea    3.w
  2162.     clr.l    -(a7)
  2163.     clr.l    -(a7)
  2164.     jsr    _gl_alloc_texture_object
  2165.     add.w    #$C,a7
  2166.     move.l    a2,a1
  2167.     add.l    #$D800,a1
  2168.     move.l    d0,(a1)
  2169. ;   if (!ctx->Texture.Proxy3D) 
  2170.     move.l    a2,a0
  2171.     add.l    #$D73C,a0
  2172.     lea    (a0),a0
  2173.     move.l    $C4(a0),a0
  2174.     cmp.w    #0,a0
  2175.     bne.b    L315
  2176. L314
  2177. ;      gl_free_texture_object(NULL, ctx->Texture.Proxy1D);
  2178.     move.l    a2,a0
  2179.     add.l    #$D73C,a0
  2180.     lea    (a0),a0
  2181.     move.l    $BC(a0),a0
  2182.     move.l    a0,-(a7)
  2183.     clr.l    -(a7)
  2184.     jsr    _gl_free_texture_object
  2185.     addq.w    #$8,a7
  2186. ;      gl_free_texture_object(NULL, ctx->Texture.Proxy2D);
  2187.     move.l    a2,a0
  2188.     add.l    #$D73C,a0
  2189.     lea    (a0),a0
  2190.     move.l    $C0(a0),a0
  2191.     move.l    a0,-(a7)
  2192.     clr.l    -(a7)
  2193.     jsr    _gl_free_texture_object
  2194.     addq.w    #$8,a7
  2195.     moveq    #0,d0
  2196.     movem.l    (a7)+,d2/d3/a2
  2197.     rts
  2198. L315
  2199. ;   out_of_memory = GL_FALSE;
  2200.     moveq    #0,d3
  2201. ;   for (i=0;
  2202.     moveq    #0,d2
  2203.     bra    L321
  2204. L316
  2205. ;      ctx->Texture.Proxy1D->Image[i] = gl_alloc_texture_image()
  2206.     jsr    _gl_alloc_texture_image
  2207.     move.l    a2,a0
  2208.     add.l    #$D73C,a0
  2209.     lea    (a0),a0
  2210.     move.l    $BC(a0),a0
  2211.     add.w    #$38,a0
  2212.     lea    0(a0,d2.l*4),a0
  2213.     move.l    d0,(a0)
  2214. ;      ctx->Texture.Proxy2D->Image[i] = gl_alloc_texture_image()
  2215.     jsr    _gl_alloc_texture_image
  2216.     move.l    a2,a0
  2217.     add.l    #$D73C,a0
  2218.     lea    (a0),a0
  2219.     move.l    $C0(a0),a0
  2220.     add.w    #$38,a0
  2221.     lea    0(a0,d2.l*4),a0
  2222.     move.l    d0,(a0)
  2223. ;      ctx->Texture.Proxy3D->Image[i] = gl_alloc_texture_image()
  2224.     jsr    _gl_alloc_texture_image
  2225.     move.l    a2,a0
  2226.     add.l    #$D73C,a0
  2227.     lea    (a0),a0
  2228.     move.l    $C4(a0),a0
  2229.     add.w    #$38,a0
  2230.     lea    0(a0,d2.l*4),a0
  2231.     move.l    d0,(a0)
  2232. ;      if (!ctx->Texture.Proxy1D->Image[i]
  2233.     move.l    a2,a0
  2234.     add.l    #$D73C,a0
  2235.     lea    (a0),a0
  2236.     move.l    $BC(a0),a0
  2237.     add.w    #$38,a0
  2238.     lea    0(a0,d2.l*4),a0
  2239.     tst.l    (a0)
  2240.     beq.b    L319
  2241. L317
  2242.     move.l    a2,a0
  2243.     add.l    #$D73C,a0
  2244.     lea    (a0),a0
  2245.     move.l    $C0(a0),a0
  2246.     add.w    #$38,a0
  2247.     lea    0(a0,d2.l*4),a0
  2248.     tst.l    (a0)
  2249.     beq.b    L319
  2250. L318
  2251.     move.l    a2,a0
  2252.     add.l    #$D73C,a0
  2253.     lea    (a0),a0
  2254.     move.l    $C4(a0),a0
  2255.     add.w    #$38,a0
  2256.     lea    0(a0,d2.l*4),a0
  2257.     tst.l    (a0)
  2258.     bne.b    L320
  2259. L319
  2260. ;     out_of_memory = GL_TRUE;
  2261.     moveq    #1,d3
  2262. L320
  2263.     addq.l    #1,d2
  2264. L321
  2265.     cmp.l    #$B,d2
  2266.     blt    L316
  2267. L322
  2268. ;   if (out_of_memory) 
  2269.     tst.b    d3
  2270.     beq    L333
  2271. L323
  2272. ;      for (i=0;
  2273.     moveq    #0,d2
  2274.     bra    L331
  2275. L324
  2276. ;     if (ctx->Texture.Proxy1D->Image[i]) 
  2277.     move.l    a2,a0
  2278.     add.l    #$D73C,a0
  2279.     lea    (a0),a0
  2280.     move.l    $BC(a0),a0
  2281.     add.w    #$38,a0
  2282.     lea    0(a0,d2.l*4),a0
  2283.     move.l    (a0),d0
  2284.     beq.b    L326
  2285. L325
  2286. ;        gl_free_texture_image(ctx->Texture.Proxy1D->Image[i]);
  2287.     move.l    a2,a0
  2288.     add.l    #$D73C,a0
  2289.     lea    (a0),a0
  2290.     move.l    $BC(a0),a0
  2291.     add.w    #$38,a0
  2292.     lea    0(a0,d2.l*4),a0
  2293.     move.l    (a0),a0
  2294.     move.l    a0,-(a7)
  2295.     jsr    _gl_free_texture_image
  2296.     addq.w    #4,a7
  2297. L326
  2298. ;     if (ctx->Texture.Proxy2D->Image[i]) 
  2299.     move.l    a2,a0
  2300.     add.l    #$D73C,a0
  2301.     lea    (a0),a0
  2302.     move.l    $C0(a0),a0
  2303.     add.w    #$38,a0
  2304.     lea    0(a0,d2.l*4),a0
  2305.     move.l    (a0),d0
  2306.     beq.b    L328
  2307. L327
  2308. ;        gl_free_texture_image(ctx->Texture.Proxy2D->Image[i]);
  2309.     move.l    a2,a0
  2310.     add.l    #$D73C,a0
  2311.     lea    (a0),a0
  2312.     move.l    $C0(a0),a0
  2313.     add.w    #$38,a0
  2314.     lea    0(a0,d2.l*4),a0
  2315.     move.l    (a0),a0
  2316.     move.l    a0,-(a7)
  2317.     jsr    _gl_free_texture_image
  2318.     addq.w    #4,a7
  2319. L328
  2320. ;     if (ctx->Texture.Proxy3D->Image[i]) 
  2321.     move.l    a2,a0
  2322.     add.l    #$D73C,a0
  2323.     lea    (a0),a0
  2324.     move.l    $C4(a0),a0
  2325.     add.w    #$38,a0
  2326.     lea    0(a0,d2.l*4),a0
  2327.     move.l    (a0),d0
  2328.     beq.b    L330
  2329. L329
  2330. ;        gl_free_texture_image(ctx->Texture.Proxy3D->Image[i]);
  2331.     move.l    a2,a0
  2332.     add.l    #$D73C,a0
  2333.     lea    (a0),a0
  2334.     move.l    $C4(a0),a0
  2335.     add.w    #$38,a0
  2336.     lea    0(a0,d2.l*4),a0
  2337.     move.l    (a0),a0
  2338.     move.l    a0,-(a7)
  2339.     jsr    _gl_free_texture_image
  2340.     addq.w    #4,a7
  2341. L330
  2342.     addq.l    #1,d2
  2343. L331
  2344.     cmp.l    #$B,d2
  2345.     blt    L324
  2346. L332
  2347. ;      gl_free_texture_object(NULL, ctx->Texture.Proxy1D);
  2348.     move.l    a2,a0
  2349.     add.l    #$D73C,a0
  2350.     lea    (a0),a0
  2351.     move.l    $BC(a0),a0
  2352.     move.l    a0,-(a7)
  2353.     clr.l    -(a7)
  2354.     jsr    _gl_free_texture_object
  2355.     addq.w    #$8,a7
  2356. ;      gl_free_texture_object(NULL, ctx->Texture.Proxy2D);
  2357.     move.l    a2,a0
  2358.     add.l    #$D73C,a0
  2359.     lea    (a0),a0
  2360.     move.l    $C0(a0),a0
  2361.     move.l    a0,-(a7)
  2362.     clr.l    -(a7)
  2363.     jsr    _gl_free_texture_object
  2364.     addq.w    #$8,a7
  2365. ;      gl_free_texture_object(NULL, ctx->Texture.Proxy3D);
  2366.     move.l    a2,a0
  2367.     add.l    #$D73C,a0
  2368.     lea    (a0),a0
  2369.     move.l    $C4(a0),a0
  2370.     move.l    a0,-(a7)
  2371.     clr.l    -(a7)
  2372.     jsr    _gl_free_texture_object
  2373.     addq.w    #$8,a7
  2374.     moveq    #0,d0
  2375.     movem.l    (a7)+,d2/d3/a2
  2376.     rts
  2377. L333
  2378.     moveq    #1,d0
  2379.     movem.l    (a7)+,d2/d3/a2
  2380.     rts
  2381.  
  2382.     SECTION "_gl_create_context:0",CODE
  2383.  
  2384.  
  2385. ;GLcontext *gl_create_context( GLvisual *visual,
  2386.     XDEF    _gl_create_context
  2387. _gl_create_context
  2388. L350    EQU    -$C
  2389.     link    a5,#L350
  2390.     move.l    a2,-(a7)
  2391. L334
  2392. ;   gl_init_math();
  2393.     jsr    _gl_init_math
  2394. ;   gl_init_lists();
  2395.     jsr    _gl_init_lists
  2396. ;   gl_init_eval();
  2397.     jsr    _gl_init_eval
  2398. ;   ctx = (GLcontext *) calloc( 1, sizeof(GLcontext) );
  2399.     move.l    #$E0CA,-(a7)
  2400.     pea    1.w
  2401.     jsr    _calloc
  2402.     addq.w    #$8,a7
  2403.     move.l    d0,a2
  2404. ;   if (!ctx) 
  2405.     cmp.w    #0,a2
  2406.     bne.b    L336
  2407. L335
  2408.     moveq    #0,d0
  2409.     move.l    (a7)+,a2
  2410.     unlk    a5
  2411.     rts
  2412. L336
  2413. ;   ctx->DriverCtx = driver_ctx;
  2414.     move.l    $10(a5),$974(a2)
  2415. ;   ctx->Visual = visual;
  2416.     move.l    $8(a5),$898(a2)
  2417. ;   ctx->Buffer = NULL;
  2418.     clr.l    $89C(a2)
  2419. ;   ctx->VB = gl_alloc_vb();
  2420.     jsr    _gl_alloc_vb
  2421.     move.l    a2,a1
  2422.     add.l    #$E0C0,a1
  2423.     move.l    d0,(a1)
  2424. ;   if (!ctx->VB) 
  2425.     move.l    a2,a1
  2426.     add.l    #$E0C0,a1
  2427.     move.l    (a1),a0
  2428.     cmp.w    #0,a0
  2429.     bne.b    L338
  2430. L337
  2431. ;      free( ctx );
  2432.     move.l    a2,-(a7)
  2433.     jsr    _free
  2434.     addq.w    #4,a7
  2435.     moveq    #0,d0
  2436.     move.l    (a7)+,a2
  2437.     unlk    a5
  2438.     rts
  2439. L338
  2440. ;   ctx->PB = gl_alloc_pb();
  2441.     jsr    _gl_alloc_pb
  2442.     move.l    a2,a1
  2443.     add.l    #$E0C4,a1
  2444.     move.l    d0,(a1)
  2445. ;   if (!ctx->PB) 
  2446.     move.l    a2,a1
  2447.     add.l    #$E0C4,a1
  2448.     move.l    (a1),a0
  2449.     cmp.w    #0,a0
  2450.     bne.b    L340
  2451. L339
  2452. ;      free( ctx->VB );
  2453.     move.l    a2,a1
  2454.     add.l    #$E0C0,a1
  2455.     move.l    (a1),a0
  2456.     move.l    a0,-(a7)
  2457.     jsr    _free
  2458.     addq.w    #4,a7
  2459. ;      free( ctx );
  2460.     move.l    a2,-(a7)
  2461.     jsr    _free
  2462.     addq.w    #4,a7
  2463.     moveq    #0,d0
  2464.     move.l    (a7)+,a2
  2465.     unlk    a5
  2466.     rts
  2467. L340
  2468. ;   if (share_list) 
  2469.     tst.l    $C(a5)
  2470.     beq.b    L342
  2471. L341
  2472. ;      ctx->Shared = share_list->Shared;
  2473.     move.l    $C(a5),a1
  2474.     move.l    (a1),a0
  2475.     move.l    a0,(a2)
  2476.     bra.b    L344
  2477. L342
  2478. ;      ctx->Shared = alloc_shared_state();
  2479.     jsr    _alloc_shared_state
  2480.     move.l    d0,(a2)
  2481. ;      if (!ctx->Shared) 
  2482.     move.l    (a2),a0
  2483.     cmp.w    #0,a0
  2484.     bne.b    L344
  2485. L343
  2486. ;     free(ctx->VB);
  2487.     move.l    a2,a1
  2488.     add.l    #$E0C0,a1
  2489.     move.l    (a1),a0
  2490.     move.l    a0,-(a7)
  2491.     jsr    _free
  2492.     addq.w    #4,a7
  2493. ;     free(ctx->PB);
  2494.     move.l    a2,a1
  2495.     add.l    #$E0C4,a1
  2496.     move.l    (a1),a0
  2497.     move.l    a0,-(a7)
  2498.     jsr    _free
  2499.     addq.w    #4,a7
  2500. ;     free(ctx);
  2501.     move.l    a2,-(a7)
  2502.     jsr    _free
  2503.     addq.w    #4,a7
  2504.     moveq    #0,d0
  2505.     move.l    (a7)+,a2
  2506.     unlk    a5
  2507.     rts
  2508. L344
  2509. ;   ctx->Shared->RefCount++;
  2510.     move.l    (a2),a0
  2511.     move.l    (a0),d0
  2512.     addq.l    #1,d0
  2513.     move.l    d0,(a0)
  2514. ;   initialize_context( ctx );
  2515.     move.l    a2,-(a7)
  2516.     jsr    _initialize_context
  2517.     addq.w    #4,a7
  2518. ;   if (visual->DBflag) 
  2519.     move.l    $8(a5),a0
  2520.     move.b    1(a0),d0
  2521.     beq.b    L346
  2522. L345
  2523. ;      ctx->Color.DrawBuffer = GL_BACK;
  2524.     move.l    #$405,$1E92(a2)
  2525. ;      ctx->Pixel.ReadBuffer = GL_BACK;
  2526.     move.l    a2,a0
  2527.     add.l    #$ADEC,a0
  2528.     move.l    #$405,(a0)
  2529.     bra.b    L347
  2530. L346
  2531. ;      ctx->Color.DrawBuffer = GL_FRONT;
  2532.     move.l    #$404,$1E92(a2)
  2533. ;      ctx->Pixel.ReadBuffer = GL_FRONT;
  2534.     move.l    a2,a0
  2535.     add.l    #$ADEC,a0
  2536.     move.l    #$404,(a0)
  2537. L347
  2538. ;   if (!alloc_proxy_textures(ctx)) 
  2539.     move.l    a2,-(a7)
  2540.     jsr    _alloc_proxy_textures
  2541.     addq.w    #4,a7
  2542.     tst.b    d0
  2543.     bne.b    L349
  2544. L348
  2545. ;      free_shared_state(ctx, ctx->Shared);
  2546.     move.l    (a2),a0
  2547.     move.l    a0,-(a7)
  2548.     move.l    a2,-(a7)
  2549.     jsr    _free_shared_state
  2550.     addq.w    #$8,a7
  2551. ;      free(ctx->VB);
  2552.     move.l    a2,a1
  2553.     add.l    #$E0C0,a1
  2554.     move.l    (a1),a0
  2555.     move.l    a0,-(a7)
  2556.     jsr    _free
  2557.     addq.w    #4,a7
  2558. ;      free(ctx->PB);
  2559.     move.l    a2,a1
  2560.     add.l    #$E0C4,a1
  2561.     move.l    (a1),a0
  2562.     move.l    a0,-(a7)
  2563.     jsr    _free
  2564.     addq.w    #4,a7
  2565. ;      free(ctx);
  2566.     move.l    a2,-(a7)
  2567.     jsr    _free
  2568.     addq.w    #4,a7
  2569.     moveq    #0,d0
  2570.     move.l    (a7)+,a2
  2571.     unlk    a5
  2572.     rts
  2573. L349
  2574. ;   gl_init_api_function_pointers( ctx );
  2575.     move.l    a2,-(a7)
  2576.     jsr    _gl_init_api_function_pointers
  2577.     addq.w    #4,a7
  2578. ;   ctx->API = ctx->Exec;
  2579.     lea    4(a2),a1
  2580.     lea    $5BC(a2),a0
  2581.     move.w    #$B6,d0
  2582. L351
  2583.     move.l    (a0)+,(a1)+
  2584.     dbra    d0,L351
  2585.     move.l    a2,d0
  2586.     move.l    (a7)+,a2
  2587.     unlk    a5
  2588.     rts
  2589.  
  2590.     SECTION "_gl_destroy_context:0",CODE
  2591.  
  2592.  
  2593. ;void gl_destroy_context( GLcontext *ctx )
  2594.     XDEF    _gl_destroy_context
  2595. _gl_destroy_context
  2596.     move.l    a2,-(a7)
  2597.     move.l    $8(a7),a2
  2598. L352
  2599. ;   if (ctx) 
  2600.     cmp.w    #0,a2
  2601.     beq    L357
  2602. L353
  2603. ;      free( ctx->PB );
  2604.     move.l    a2,a1
  2605.     add.l    #$E0C4,a1
  2606.     move.l    (a1),a0
  2607.     move.l    a0,-(a7)
  2608.     jsr    _free
  2609.     addq.w    #4,a7
  2610. ;      free( ctx->VB );
  2611.     move.l    a2,a1
  2612.     add.l    #$E0C0,a1
  2613.     move.l    (a1),a0
  2614.     move.l    a0,-(a7)
  2615.     jsr    _free
  2616.     addq.w    #4,a7
  2617. ;      ctx->Shared->RefCount--;
  2618.     move.l    (a2),a0
  2619.     move.l    (a0),d0
  2620.     subq.l    #1,d0
  2621.     move.l    d0,(a0)
  2622. ;      if (ctx->Shared->RefCount==0) 
  2623.     move.l    (a2),a0
  2624.     move.l    (a0),d0
  2625.     bne.b    L355
  2626. L354
  2627. ;     free_shared_state( ctx, ctx->Shared );
  2628.     move.l    (a2),a0
  2629.     move.l    a0,-(a7)
  2630.     move.l    a2,-(a7)
  2631.     jsr    _free_shared_state
  2632.     addq.w    #$8,a7
  2633. L355
  2634. ;      gl_free_texture_object( NULL, ctx->Texture.Proxy1D );
  2635.     move.l    a2,a0
  2636.     add.l    #$D73C,a0
  2637.     lea    (a0),a0
  2638.     move.l    $BC(a0),a0
  2639.     move.l    a0,-(a7)
  2640.     clr.l    -(a7)
  2641.     jsr    _gl_free_texture_object
  2642.     addq.w    #$8,a7
  2643. ;      gl_free_texture_object( NULL, ctx->Texture.Proxy2D );
  2644.     move.l    a2,a0
  2645.     add.l    #$D73C,a0
  2646.     lea    (a0),a0
  2647.     move.l    $C0(a0),a0
  2648.     move.l    a0,-(a7)
  2649.     clr.l    -(a7)
  2650.     jsr    _gl_free_texture_object
  2651.     addq.w    #$8,a7
  2652. ;      gl_free_texture_object( NULL, ctx->Texture.Proxy3D );
  2653.     move.l    a2,a0
  2654.     add.l    #$D73C,a0
  2655.     lea    (a0),a0
  2656.     move.l    $C4(a0),a0
  2657.     move.l    a0,-(a7)
  2658.     clr.l    -(a7)
  2659.     jsr    _gl_free_texture_object
  2660.     addq.w    #$8,a7
  2661. ;      free( (void *) ctx );
  2662.     move.l    a2,-(a7)
  2663.     jsr    _free
  2664.     addq.w    #4,a7
  2665. ;      if (ctx==CC) 
  2666.     cmp.l    _CC,a2
  2667.     bne.b    L357
  2668. L356
  2669. ;     CC = NULL;
  2670.     clr.l    _CC
  2671. L357
  2672.     move.l    (a7)+,a2
  2673.     rts
  2674.  
  2675.     SECTION "_gl_create_framebuffer:0",CODE
  2676.  
  2677.  
  2678. ;GLframebuffer *gl_create_framebuffer( GLvisual *visual )
  2679.     XDEF    _gl_create_framebuffer
  2680. _gl_create_framebuffer
  2681.     move.l    a2,-(a7)
  2682.     move.l    $8(a7),a2
  2683. L358
  2684. ;   buffer = (GLframebuffer *) calloc( 1, sizeof(GLframebuffer) );
  2685.     pea    $34.w
  2686.     pea    1.w
  2687.     jsr    _calloc
  2688.     addq.w    #$8,a7
  2689.     move.l    d0,a0
  2690. ;   if (!buffer) 
  2691.     cmp.w    #0,a0
  2692.     bne.b    L360
  2693. L359
  2694.     moveq    #0,d0
  2695.     move.l    (a7)+,a2
  2696.     rts
  2697. L360
  2698. ;   buffer->Visual = visual;
  2699.     move.l    a2,(a0)
  2700.     move.l    a0,d0
  2701.     move.l    (a7)+,a2
  2702.     rts
  2703.  
  2704.     SECTION "_gl_destroy_framebuffer:0",CODE
  2705.  
  2706.  
  2707. ;void gl_destroy_framebuffer( GLframebuffer *buffer )
  2708.     XDEF    _gl_destroy_framebuffer
  2709. _gl_destroy_framebuffer
  2710.     move.l    a2,-(a7)
  2711.     move.l    $8(a7),a2
  2712. L361
  2713. ;   if (buffer) 
  2714.     cmp.w    #0,a2
  2715.     beq    L373
  2716. L362
  2717. ;      if (buffer->Depth) 
  2718.     move.l    $C(a2),a0
  2719.     cmp.w    #0,a0
  2720.     beq.b    L364
  2721. L363
  2722. ;     free( buffer->Depth );
  2723.     move.l    $C(a2),a0
  2724.     move.l    a0,-(a7)
  2725.     jsr    _free
  2726.     addq.w    #4,a7
  2727. L364
  2728. ;      if (buffer->Accum) 
  2729.     move.l    $14(a2),a0
  2730.     cmp.w    #0,a0
  2731.     beq.b    L366
  2732. L365
  2733. ;     free( buffer->Accum );
  2734.     move.l    $14(a2),a0
  2735.     move.l    a0,-(a7)
  2736.     jsr    _free
  2737.     addq.w    #4,a7
  2738. L366
  2739. ;      if (buffer->Stencil) 
  2740.     move.l    $10(a2),a0
  2741.     cmp.w    #0,a0
  2742.     beq.b    L368
  2743. L367
  2744. ;     free( buffer->Stencil );
  2745.     move.l    $10(a2),a0
  2746.     move.l    a0,-(a7)
  2747.     jsr    _free
  2748.     addq.w    #4,a7
  2749. L368
  2750. ;      if (buffer->FrontAlpha) 
  2751.     move.l    $18(a2),a0
  2752.     cmp.w    #0,a0
  2753.     beq.b    L370
  2754. L369
  2755. ;     free( buffer->FrontAlpha );
  2756.     move.l    $18(a2),a0
  2757.     move.l    a0,-(a7)
  2758.     jsr    _free
  2759.     addq.w    #4,a7
  2760. L370
  2761. ;      if (buffer->BackAlpha) 
  2762.     move.l    $1C(a2),a0
  2763.     cmp.w    #0,a0
  2764.     beq.b    L372
  2765. L371
  2766. ;     free( buffer->BackAlpha );
  2767.     move.l    $1C(a2),a0
  2768.     move.l    a0,-(a7)
  2769.     jsr    _free
  2770.     addq.w    #4,a7
  2771. L372
  2772. ;      free(buffer);
  2773.     move.l    a2,-(a7)
  2774.     jsr    _free
  2775.     addq.w    #4,a7
  2776. L373
  2777.     move.l    (a7)+,a2
  2778.     rts
  2779.  
  2780.     SECTION "_gl_make_current:0",CODE
  2781.  
  2782.  
  2783. ;void gl_make_current( GLcontext *ctx, GLframebuffer *buffer )
  2784.     XDEF    _gl_make_current
  2785. _gl_make_current
  2786.     movem.l    a2/a3,-(a7)
  2787.     movem.l    $C(a7),a0/a1
  2788. L374
  2789. ;   if (CC && CC->Buffer) 
  2790.     tst.l    _CC
  2791.     beq.b    L377
  2792. L375
  2793.     move.l    _CC,a2
  2794.     move.l    $89C(a2),a2
  2795.     cmp.w    #0,a2
  2796.     beq.b    L377
  2797. L376
  2798. ;      CC->Buffer = NULL;
  2799.     move.l    _CC,a3
  2800.     clr.l    $89C(a3)
  2801. L377
  2802. ;   CC = ctx;
  2803.     move.l    a0,_CC
  2804. ;   if (ctx && buffer) 
  2805.     cmp.w    #0,a0
  2806.     beq.b    L380
  2807. L378
  2808.     cmp.w    #0,a1
  2809.     beq.b    L380
  2810. L379
  2811. ;      ctx->Buffer = buffer;
  2812.     move.l    a1,$89C(a0)
  2813. ;      ctx->NewState = NEW_ALL;
  2814.     move.l    a0,a1
  2815.     add.l    #$E082,a1
  2816.     move.l    #$F,(a1)
  2817. ;      gl_update_state( ctx );
  2818.     move.l    a0,-(a7)
  2819.     jsr    _gl_update_state
  2820.     addq.w    #4,a7
  2821. L380
  2822.     movem.l    (a7)+,a2/a3
  2823.     rts
  2824.  
  2825.     SECTION "_gl_get_current_context:0",CODE
  2826.  
  2827.  
  2828. ;GLcontext *gl_get_current_context( void )
  2829.     XDEF    _gl_get_current_context
  2830. _gl_get_current_context
  2831. L381
  2832.     move.l    _CC,d0
  2833.     rts
  2834.  
  2835.     SECTION "_gl_copy_context:0",CODE
  2836.  
  2837.  
  2838. ;void gl_copy_context( const GLcontext *src, GLcontext *dst, GLuint m
  2839.     XDEF    _gl_copy_context
  2840. _gl_copy_context
  2841. L422    EQU    0
  2842.     link    a5,#L422
  2843.     movem.l    d2/a2,-(a7)
  2844.     move.l    $10(a5),d2
  2845.     move.l    $C(a5),a2
  2846. L382
  2847. ;   if (mask & GL_ACCUM_BUFFER_BIT) 
  2848.     move.l    d2,d0
  2849.     and.l    #$200,d0
  2850.     beq.b    L384
  2851. L383
  2852. ;Accum, &src->Accu
  2853.     pea    $10.w
  2854.     move.l    $8(a5),a1
  2855.     lea    $1E64(a1),a0
  2856.     move.l    a0,-(a7)
  2857.     lea    $1E64(a2),a0
  2858.     move.l    a0,-(a7)
  2859.     jsr    _memcpy
  2860.     add.w    #$C,a7
  2861. L384
  2862. ;   if (mask & GL_COLOR_BUFFER_BIT) 
  2863.     move.l    d2,d0
  2864.     and.l    #$4000,d0
  2865.     beq.b    L386
  2866. L385
  2867. ; &src->Color, siz
  2868.     pea    $52.w
  2869.     move.l    $8(a5),a1
  2870.     lea    $1E74(a1),a0
  2871.     move.l    a0,-(a7)
  2872.     lea    $1E74(a2),a0
  2873.     move.l    a0,-(a7)
  2874.     jsr    _memcpy
  2875.     add.w    #$C,a7
  2876. L386
  2877. ;   if (mask & GL_CURRENT_BIT) 
  2878.     move.l    d2,d0
  2879.     and.l    #1,d0
  2880.     beq.b    L388
  2881. L387
  2882. ;t, &src->Current,
  2883.     pea    $5E.w
  2884.     move.l    $8(a5),a1
  2885.     lea    $1EC6(a1),a0
  2886.     move.l    a0,-(a7)
  2887.     lea    $1EC6(a2),a0
  2888.     move.l    a0,-(a7)
  2889.     jsr    _memcpy
  2890.     add.w    #$C,a7
  2891. L388
  2892. ;   if (mask & GL_DEPTH_BUFFER_BIT) 
  2893.     move.l    d2,d0
  2894.     and.l    #$100,d0
  2895.     beq.b    L390
  2896. L389
  2897. ; &src->Depth, siz
  2898.     pea    $A.w
  2899.     move.l    $8(a5),a1
  2900.     lea    $1F24(a1),a0
  2901.     move.l    a0,-(a7)
  2902.     lea    $1F24(a2),a0
  2903.     move.l    a0,-(a7)
  2904.     jsr    _memcpy
  2905.     add.w    #$C,a7
  2906. L390
  2907. ;   if (mask & GL_ENABLE_BIT) 
  2908. L391
  2909. ;   if (mask & GL_EVAL_BIT) 
  2910.     move.l    d2,d0
  2911.     and.l    #$10000,d0
  2912.     beq.b    L393
  2913. L392
  2914. ;t->Eval, &src->Ev
  2915.     pea    $38.w
  2916.     move.l    $8(a5),a1
  2917.     lea    $1F2E(a1),a0
  2918.     move.l    a0,-(a7)
  2919.     lea    $1F2E(a2),a0
  2920.     move.l    a0,-(a7)
  2921.     jsr    _memcpy
  2922.     add.w    #$C,a7
  2923. L393
  2924. ;   if (mask & GL_FOG_BIT) 
  2925.     move.l    d2,d0
  2926.     and.l    #$80,d0
  2927.     beq.b    L395
  2928. L394
  2929. ;&dst->Fog, &src->
  2930.     pea    $26.w
  2931.     move.l    $8(a5),a1
  2932.     lea    $1F66(a1),a0
  2933.     move.l    a0,-(a7)
  2934.     lea    $1F66(a2),a0
  2935.     move.l    a0,-(a7)
  2936.     jsr    _memcpy
  2937.     add.w    #$C,a7
  2938. L395
  2939. ;   if (mask & GL_HINT_BIT) 
  2940.     move.l    d2,d0
  2941.     and.l    #$8000,d0
  2942.     beq.b    L397
  2943. L396
  2944. ;t->Hint, &src->Hi
  2945.     pea    $14.w
  2946.     move.l    $8(a5),a1
  2947.     lea    $1F8C(a1),a0
  2948.     move.l    a0,-(a7)
  2949.     lea    $1F8C(a2),a0
  2950.     move.l    a0,-(a7)
  2951.     jsr    _memcpy
  2952.     add.w    #$C,a7
  2953. L397
  2954. ;   if (mask & GL_LIGHTING_BIT) 
  2955.     move.l    d2,d0
  2956.     and.l    #$40,d0
  2957.     beq.b    L399
  2958. L398
  2959. ;Light, &src->Ligh
  2960.     move.l    #$8E3C,-(a7)
  2961.     move.l    $8(a5),a1
  2962.     lea    $1FA0(a1),a0
  2963.     move.l    a0,-(a7)
  2964.     lea    $1FA0(a2),a0
  2965.     move.l    a0,-(a7)
  2966.     jsr    _memcpy
  2967.     add.w    #$C,a7
  2968. L399
  2969. ;   if (mask & GL_LINE_BIT) 
  2970.     move.l    d2,d0
  2971.     and.l    #4,d0
  2972.     beq.b    L401
  2973. L400
  2974. ;t->Line, &src->Li
  2975.     pea    $C.w
  2976.     move.l    $8(a5),a1
  2977.     move.l    a1,a0
  2978.     add.l    #$ADDC,a0
  2979.     lea    (a0),a0
  2980.     move.l    a0,-(a7)
  2981.     move.l    a2,a0
  2982.     add.l    #$ADDC,a0
  2983.     lea    (a0),a0
  2984.     move.l    a0,-(a7)
  2985.     jsr    _memcpy
  2986.     add.w    #$C,a7
  2987. L401
  2988. ;   if (mask & GL_LIST_BIT) 
  2989.     move.l    d2,d0
  2990.     and.l    #$20000,d0
  2991.     beq.b    L403
  2992. L402
  2993. ;t->List, &src->Li
  2994.     pea    4.w
  2995.     move.l    $8(a5),a1
  2996.     move.l    a1,a0
  2997.     add.l    #$ADE8,a0
  2998.     lea    (a0),a0
  2999.     move.l    a0,-(a7)
  3000.     move.l    a2,a0
  3001.     add.l    #$ADE8,a0
  3002.     lea    (a0),a0
  3003.     move.l    a0,-(a7)
  3004.     jsr    _memcpy
  3005.     add.w    #$C,a7
  3006. L403
  3007. ;   if (mask & GL_PIXEL_MODE_BIT) 
  3008.     move.l    d2,d0
  3009.     and.l    #$20,d0
  3010.     beq.b    L405
  3011. L404
  3012. ;Pixel, &src->Pixe
  3013.     pea    $2866.w
  3014.     move.l    $8(a5),a1
  3015.     move.l    a1,a0
  3016.     add.l    #$ADEC,a0
  3017.     lea    (a0),a0
  3018.     move.l    a0,-(a7)
  3019.     move.l    a2,a0
  3020.     add.l    #$ADEC,a0
  3021.     lea    (a0),a0
  3022.     move.l    a0,-(a7)
  3023.     jsr    _memcpy
  3024.     add.w    #$C,a7
  3025. L405
  3026. ;   if (mask & GL_POINT_BIT) 
  3027.     move.l    d2,d0
  3028.     and.l    #2,d0
  3029.     beq.b    L407
  3030. L406
  3031. ;Point, &src->Poin
  3032.     pea    $1E.w
  3033.     move.l    $8(a5),a1
  3034.     move.l    a1,a0
  3035.     add.l    #$D652,a0
  3036.     lea    (a0),a0
  3037.     move.l    a0,-(a7)
  3038.     move.l    a2,a0
  3039.     add.l    #$D652,a0
  3040.     lea    (a0),a0
  3041.     move.l    a0,-(a7)
  3042.     jsr    _memcpy
  3043.     add.w    #$C,a7
  3044. L407
  3045. ;   if (mask & GL_POLYGON_BIT) 
  3046.     move.l    d2,d0
  3047.     and.l    #$8,d0
  3048.     beq.b    L409
  3049. L408
  3050. ;n, &src->Polygon,
  3051.     pea    $24.w
  3052.     move.l    $8(a5),a1
  3053.     move.l    a1,a0
  3054.     add.l    #$D670,a0
  3055.     lea    (a0),a0
  3056.     move.l    a0,-(a7)
  3057.     move.l    a2,a0
  3058.     add.l    #$D670,a0
  3059.     lea    (a0),a0
  3060.     move.l    a0,-(a7)
  3061.     jsr    _memcpy
  3062.     add.w    #$C,a7
  3063. L409
  3064. ;   if (mask & GL_POLYGON_STIPPLE_BIT) 
  3065.     move.l    d2,d0
  3066.     and.l    #$10,d0
  3067.     beq.b    L411
  3068. L410
  3069. ;onStipple, &src->
  3070.     pea    $80.w
  3071.     move.l    $8(a5),a1
  3072.     move.l    a1,a0
  3073.     add.l    #$D694,a0
  3074.     lea    (a0),a0
  3075.     move.l    a0,-(a7)
  3076.     move.l    a2,a0
  3077.     add.l    #$D694,a0
  3078.     lea    (a0),a0
  3079.     move.l    a0,-(a7)
  3080.     jsr    _memcpy
  3081.     add.w    #$C,a7
  3082. L411
  3083. ;   if (mask & GL_SCISSOR_BIT) 
  3084.     move.l    d2,d0
  3085.     and.l    #$80000,d0
  3086.     beq.b    L413
  3087. L412
  3088. ;r, &src->Scissor,
  3089.     pea    $12.w
  3090.     move.l    $8(a5),a1
  3091.     move.l    a1,a0
  3092.     add.l    #$D714,a0
  3093.     lea    (a0),a0
  3094.     move.l    a0,-(a7)
  3095.     move.l    a2,a0
  3096.     add.l    #$D714,a0
  3097.     lea    (a0),a0
  3098.     move.l    a0,-(a7)
  3099.     jsr    _memcpy
  3100.     add.w    #$C,a7
  3101. L413
  3102. ;   if (mask & GL_STENCIL_BUFFER_BIT) 
  3103.     move.l    d2,d0
  3104.     and.l    #$400,d0
  3105.     beq.b    L415
  3106. L414
  3107. ;l, &src->Stencil,
  3108.     pea    $16.w
  3109.     move.l    $8(a5),a1
  3110.     move.l    a1,a0
  3111.     add.l    #$D726,a0
  3112.     lea    (a0),a0
  3113.     move.l    a0,-(a7)
  3114.     move.l    a2,a0
  3115.     add.l    #$D726,a0
  3116.     lea    (a0),a0
  3117.     move.l    a0,-(a7)
  3118.     jsr    _memcpy
  3119.     add.w    #$C,a7
  3120. L415
  3121. ;   if (mask & GL_TEXTURE_BIT) 
  3122.     move.l    d2,d0
  3123.     and.l    #$40000,d0
  3124.     beq.b    L417
  3125. L416
  3126. ;e, &src->Texture,
  3127.     pea    $4D6.w
  3128.     move.l    $8(a5),a1
  3129.     move.l    a1,a0
  3130.     add.l    #$D73C,a0
  3131.     lea    (a0),a0
  3132.     move.l    a0,-(a7)
  3133.     move.l    a2,a0
  3134.     add.l    #$D73C,a0
  3135.     lea    (a0),a0
  3136.     move.l    a0,-(a7)
  3137.     jsr    _memcpy
  3138.     add.w    #$C,a7
  3139. L417
  3140. ;   if (mask & GL_TRANSFORM_BIT) 
  3141.     move.l    d2,d0
  3142.     and.l    #$1000,d0
  3143.     beq.b    L419
  3144. L418
  3145. ;src->Transform, s
  3146.     pea    $6C.w
  3147.     move.l    $8(a5),a1
  3148.     move.l    a1,a0
  3149.     add.l    #$DC12,a0
  3150.     lea    (a0),a0
  3151.     move.l    a0,-(a7)
  3152.     move.l    a2,a0
  3153.     add.l    #$DC12,a0
  3154.     lea    (a0),a0
  3155.     move.l    a0,-(a7)
  3156.     jsr    _memcpy
  3157.     add.w    #$C,a7
  3158. L419
  3159. ;   if (mask & GL_VIEWPORT_BIT) 
  3160.     and.l    #$800,d2
  3161.     beq.b    L421
  3162. L420
  3163. ; &src->Viewport, 
  3164.     pea    $30.w
  3165.     move.l    $8(a5),a1
  3166.     move.l    a1,a0
  3167.     add.l    #$DC7E,a0
  3168.     lea    (a0),a0
  3169.     move.l    a0,-(a7)
  3170.     move.l    a2,a0
  3171.     add.l    #$DC7E,a0
  3172.     lea    (a0),a0
  3173.     move.l    a0,-(a7)
  3174.     jsr    _memcpy
  3175.     add.w    #$C,a7
  3176. L421
  3177.     movem.l    (a7)+,d2/a2
  3178.     unlk    a5
  3179.     rts
  3180.  
  3181.     SECTION "_gl_set_api_table:0",CODE
  3182.  
  3183.  
  3184. ;void gl_set_api_table( GLcontext *ctx, const struct gl_api_table *ap
  3185.     XDEF    _gl_set_api_table
  3186. _gl_set_api_table
  3187.     movem.l    4(a7),a0/a1
  3188. L423
  3189. ;   if (api) 
  3190.     cmp.w    #0,a1
  3191.     beq.b    L425
  3192. L424
  3193. ;EMCPY( &ctx->API,
  3194.     pea    $2DC.w
  3195.     move.l    a1,-(a7)
  3196.     addq.w    #4,a0
  3197.     move.l    a0,-(a7)
  3198.     jsr    _memcpy
  3199.     add.w    #$C,a7
  3200.     bra.b    L426
  3201. L425
  3202. ;&ctx->API, &ctx->
  3203.     pea    $2DC.w
  3204.     lea    $5BC(a0),a1
  3205.     move.l    a1,-(a7)
  3206.     addq.w    #4,a0
  3207.     move.l    a0,-(a7)
  3208.     jsr    _memcpy
  3209.     add.w    #$C,a7
  3210. L426
  3211.     rts
  3212.  
  3213.     SECTION "_gl_problem:0",CODE
  3214.  
  3215.  
  3216. ;void gl_problem( const GLcontext *ctx, const char *s )
  3217.     XDEF    _gl_problem
  3218. _gl_problem
  3219.     move.l    $8(a7),a0
  3220. L429
  3221. ;   fprintf( stderr, "Mesa implementation error: %s\n", s );
  3222.     move.l    a0,-(a7)
  3223.     move.l    #L427,-(a7)
  3224.     move.l    #_std__err,-(a7)
  3225.     jsr    _fprintf
  3226.     add.w    #$C,a7
  3227. ;   fprintf( stderr, "Report to Mesa author.\n" );
  3228.     move.l    #L428,-(a7)
  3229.     move.l    #_std__err,-(a7)
  3230.     jsr    _fprintf
  3231.     addq.w    #$8,a7
  3232.     rts
  3233.  
  3234. L427
  3235.     dc.b    'Mesa implementation error: %s',$A,0
  3236. L428
  3237.     dc.b    'Report to Mesa author.',$A,0
  3238.  
  3239.     SECTION "_gl_warning:0",CODE
  3240.  
  3241.  
  3242. ;void gl_warning( const GLcontext *ctx, const char *s )
  3243.     XDEF    _gl_warning
  3244. _gl_warning
  3245.     move.l    a2,-(a7)
  3246.     move.l    $C(a7),a2
  3247. L432
  3248. ;   if (getenv("MESA_DEBUG")) 
  3249.     move.l    #L430,-(a7)
  3250.     jsr    _getenv
  3251.     addq.w    #4,a7
  3252.     tst.l    d0
  3253.     beq.b    L434
  3254. L433
  3255. ;      debug = GL_TRUE;
  3256.     moveq    #1,d0
  3257.     bra.b    L435
  3258. L434
  3259. ;      debug = GL_FALSE;
  3260.     moveq    #0,d0
  3261. L435
  3262. ;   if (debug) 
  3263.     tst.b    d0
  3264.     beq.b    L437
  3265. L436
  3266. ;      fprintf( stderr, "Mesa warning: %s\n", s );
  3267.     move.l    a2,-(a7)
  3268.     move.l    #L431,-(a7)
  3269.     move.l    #_std__err,-(a7)
  3270.     jsr    _fprintf
  3271.     add.w    #$C,a7
  3272. L437
  3273.     move.l    (a7)+,a2
  3274.     rts
  3275.  
  3276. L430
  3277.     dc.b    'MESA_DEBUG',0
  3278. L431
  3279.     dc.b    'Mesa warning: %s',$A,0
  3280.  
  3281.     SECTION "_gl_error:0",CODE
  3282.  
  3283.  
  3284. ;void gl_error( GLcontext *ctx, GLenum error, const char *s )
  3285.     XDEF    _gl_error
  3286. _gl_error
  3287. L467    EQU    -$3EA
  3288.     link    a5,#L467
  3289.     movem.l    d2/a2,-(a7)
  3290.     move.l    $C(a5),d2
  3291.     move.l    $8(a5),a2
  3292. L448
  3293. ;   if (getenv("MESA_DEBUG")) 
  3294.     move.l    #L438,-(a7)
  3295.     jsr    _getenv
  3296.     addq.w    #4,a7
  3297.     tst.l    d0
  3298.     beq.b    L450
  3299. L449
  3300. ;      debug = GL_TRUE;
  3301.     moveq    #1,d0
  3302.     bra.b    L451
  3303. L450
  3304. ;      debug = GL_FALSE;
  3305.     moveq    #0,d0
  3306. L451
  3307. ;   if (debug) 
  3308.     tst.b    d0
  3309.     beq    L462
  3310. L452
  3311. ;      switch (error)
  3312.     move.l    d2,d0
  3313.     cmp.l    #$502,d0
  3314.     beq    L456
  3315.     bgt.b    L468
  3316.     cmp.l    #$500,d0
  3317.     beq.b    L455
  3318.     bgt.b    L469
  3319.     cmp.l    #0,d0
  3320.     beq.b    L453
  3321.     bra    L460
  3322. L469
  3323.     bgt.b    L454
  3324. L468
  3325.     cmp.l    #$504,d0
  3326.     beq    L458
  3327.     bgt.b    L470
  3328.     blt.b    L457
  3329. L470
  3330.     cmp.l    #$505,d0
  3331.     beq    L459
  3332.     bra    L460
  3333. ;     
  3334. L453
  3335. ;        strcpy( errstr, "GL_NO_ERROR" );
  3336.     move.l    #L439,-(a7)
  3337.     lea    -$3EA(a5),a0
  3338.     move.l    a0,-(a7)
  3339.     jsr    _strcpy
  3340.     addq.w    #$8,a7
  3341. ;        
  3342.     bra    L461
  3343. L454
  3344. ;        strcpy( errstr, "GL_INVALID_VALUE" );
  3345.     move.l    #L440,-(a7)
  3346.     lea    -$3EA(a5),a0
  3347.     move.l    a0,-(a7)
  3348.     jsr    _strcpy
  3349.     addq.w    #$8,a7
  3350. ;        
  3351.     bra    L461
  3352. L455
  3353. ;        strcpy( errstr, "GL_INVALID_ENUM" );
  3354.     move.l    #L441,-(a7)
  3355.     lea    -$3EA(a5),a0
  3356.     move.l    a0,-(a7)
  3357.     jsr    _strcpy
  3358.     addq.w    #$8,a7
  3359. ;        
  3360.     bra.b    L461
  3361. L456
  3362. ;        strcpy( errstr, "GL_INVALID_OPERATION" );
  3363.     move.l    #L442,-(a7)
  3364.     lea    -$3EA(a5),a0
  3365.     move.l    a0,-(a7)
  3366.     jsr    _strcpy
  3367.     addq.w    #$8,a7
  3368. ;        
  3369.     bra.b    L461
  3370. L457
  3371. ;        strcpy( errstr, "GL_STACK_OVERFLOW" );
  3372.     move.l    #L443,-(a7)
  3373.     lea    -$3EA(a5),a0
  3374.     move.l    a0,-(a7)
  3375.     jsr    _strcpy
  3376.     addq.w    #$8,a7
  3377. ;        
  3378.     bra.b    L461
  3379. L458
  3380. ;        strcpy( errstr, "GL_STACK_UNDERFLOW" );
  3381.     move.l    #L444,-(a7)
  3382.     lea    -$3EA(a5),a0
  3383.     move.l    a0,-(a7)
  3384.     jsr    _strcpy
  3385.     addq.w    #$8,a7
  3386. ;        
  3387.     bra.b    L461
  3388. L459
  3389. ;        strcpy( errstr, "GL_OUT_OF_MEMORY" );
  3390.     move.l    #L445,-(a7)
  3391.     lea    -$3EA(a5),a0
  3392.     move.l    a0,-(a7)
  3393.     jsr    _strcpy
  3394.     addq.w    #$8,a7
  3395. ;        
  3396.     bra.b    L461
  3397. L460
  3398. ;        strcpy( errstr, "unknown" );
  3399.     move.l    #L446,-(a7)
  3400.     lea    -$3EA(a5),a0
  3401.     move.l    a0,-(a7)
  3402.     jsr    _strcpy
  3403.     addq.w    #$8,a7
  3404. ;        
  3405. L461
  3406. ;      fprintf( stderr, "Mesa user error: %s in %s\n", errstr, 
  3407.     move.l    $10(a5),-(a7)
  3408.     lea    -$3EA(a5),a0
  3409.     move.l    a0,-(a7)
  3410.     move.l    #L447,-(a7)
  3411.     move.l    #_std__err,-(a7)
  3412.     jsr    _fprintf
  3413.     add.w    #$10,a7
  3414. L462
  3415. ;   if (ctx->ErrorValue==GL_NO_ERROR) 
  3416.     move.l    a2,a0
  3417.     add.l    #$E07C,a0
  3418.     move.l    (a0),d0
  3419.     bne.b    L464
  3420. L463
  3421. ;      ctx->ErrorValue = error;
  3422.     move.l    a2,a0
  3423.     add.l    #$E07C,a0
  3424.     move.l    d2,(a0)
  3425. L464
  3426. ;   if (ctx->Driver.Error) 
  3427.     lea    $8A0(a2),a0
  3428.     move.l    $6C(a0),a0
  3429.     cmp.w    #0,a0
  3430.     beq.b    L466
  3431. L465
  3432. ;      (*ctx->Driver.Error)( ctx );
  3433.     move.l    a2,-(a7)
  3434.     lea    $8A0(a2),a0
  3435.     move.l    $6C(a0),a0
  3436.     jsr    (a0)
  3437.     addq.w    #4,a7
  3438. L466
  3439.     movem.l    (a7)+,d2/a2
  3440.     unlk    a5
  3441.     rts
  3442.  
  3443. L441
  3444.     dc.b    'GL_INVALID_ENUM',0
  3445. L442
  3446.     dc.b    'GL_INVALID_OPERATION',0
  3447. L440
  3448.     dc.b    'GL_INVALID_VALUE',0
  3449. L439
  3450.     dc.b    'GL_NO_ERROR',0
  3451. L445
  3452.     dc.b    'GL_OUT_OF_MEMORY',0
  3453. L443
  3454.     dc.b    'GL_STACK_OVERFLOW',0
  3455. L444
  3456.     dc.b    'GL_STACK_UNDERFLOW',0
  3457. L438
  3458.     dc.b    'MESA_DEBUG',0
  3459. L447
  3460.     dc.b    'Mesa user error: %s in %s',$A,0
  3461. L446
  3462.     dc.b    'unknown',0
  3463.  
  3464.     SECTION "_gl_GetError:0",CODE
  3465.  
  3466.  
  3467. ;GLenum gl_GetError( GLcontext *ctx )
  3468.     XDEF    _gl_GetError
  3469. _gl_GetError
  3470.     move.l    4(a7),a0
  3471. L472
  3472. ;   if (INSIDE_BEGIN_END(ctx)) 
  3473.     move.l    a0,a1
  3474.     add.l    #$E08A,a1
  3475.     move.l    (a1),d0
  3476.     cmp.l    #$1A00,d0
  3477.     beq.b    L474
  3478. L473
  3479. ;      gl_error( ctx, GL_INVALID_OPERATION, "glGetError" );
  3480.     move.l    #L471,-(a7)
  3481.     pea    $502.w
  3482.     move.l    a0,-(a7)
  3483.     jsr    _gl_error
  3484.     add.w    #$C,a7
  3485.     move.l    #$502,d0
  3486.     rts
  3487. L474
  3488. ;   e = ctx->ErrorValue;
  3489.     move.l    a0,a1
  3490.     add.l    #$E07C,a1
  3491.     move.l    (a1),d0
  3492. ;   ctx->ErrorValue = GL_NO_ERROR;
  3493.     add.l    #$E07C,a0
  3494.     clr.l    (a0)
  3495.     rts
  3496.  
  3497. L471
  3498.     dc.b    'glGetError',0
  3499.  
  3500.     SECTION "_gl_ResizeBuffersMESA:0",CODE
  3501.  
  3502.  
  3503. ;void gl_ResizeBuffersMESA( GLcontext *ctx )
  3504.     XDEF    _gl_ResizeBuffersMESA
  3505. _gl_ResizeBuffersMESA
  3506. L492    EQU    -$C
  3507.     link    a5,#L492
  3508.     movem.l    d2/a2,-(a7)
  3509.     move.l    $8(a5),a2
  3510. L475
  3511. ;   ctx->NewState |= NEW_ALL;
  3512.     move.l    a2,a0
  3513.     add.l    #$E082,a0
  3514.     move.l    (a0),d0
  3515.     or.l    #$F,d0
  3516.     move.l    a2,a0
  3517.     add.l    #$E082,a0
  3518.     move.l    d0,(a0)
  3519. ;   (*ctx->Driver.GetBufferSize)( ctx, &buf_width, &buf_height );
  3520.     lea    -$C(a5),a0
  3521.     move.l    a0,-(a7)
  3522.     lea    -$8(a5),a0
  3523.     move.l    a0,-(a7)
  3524.     move.l    a2,-(a7)
  3525.     lea    $8A0(a2),a0
  3526.     move.l    $20(a0),a0
  3527.     jsr    (a0)
  3528.     add.w    #$C,a7
  3529. ;   newsize = ctx->Buffer->Width!=buf_width || ctx->Buffer->Height
  3530.     moveq    #1,d2
  3531.     move.l    $89C(a2),a0
  3532.     move.l    4(a0),d0
  3533.     cmp.l    -$8(a5),d0
  3534.     bne.b    L478
  3535. L476
  3536.     move.l    $89C(a2),a0
  3537.     move.l    $8(a0),d0
  3538.     cmp.l    -$C(a5),d0
  3539.     bne.b    L478
  3540. L477
  3541.     moveq    #0,d2
  3542. L478
  3543. ;   ctx->Buffer->Width = buf_width;
  3544.     move.l    $89C(a2),a0
  3545.     move.l    -$8(a5),4(a0)
  3546. ;   ctx->Buffer->Height = buf_height;
  3547.     move.l    $89C(a2),a0
  3548.     move.l    -$C(a5),$8(a0)
  3549. ;   if (newsize && ctx->Visual->DepthBits>0) 
  3550.     tst.l    d2
  3551.     beq.b    L481
  3552. L479
  3553.     move.l    $898(a2),a0
  3554.     move.l    $3C(a0),d0
  3555.     cmp.l    #0,d0
  3556.     ble.b    L481
  3557. L480
  3558. ;      (*ctx->Driver.AllocDepthBuffer)( ctx );
  3559.     move.l    a2,-(a7)
  3560.     lea    $8A0(a2),a0
  3561.     move.l    $74(a0),a0
  3562.     jsr    (a0)
  3563.     addq.w    #4,a7
  3564. L481
  3565. ;   if (newsize && ctx->Visual->StencilBits>0) 
  3566.     tst.l    d2
  3567.     beq.b    L484
  3568. L482
  3569.     move.l    $898(a2),a0
  3570.     move.l    $40(a0),d0
  3571.     cmp.l    #0,d0
  3572.     ble.b    L484
  3573. L483
  3574. ;      gl_alloc_stencil_buffer( ctx );
  3575.     move.l    a2,-(a7)
  3576.     jsr    _gl_alloc_stencil_buffer
  3577.     addq.w    #4,a7
  3578. L484
  3579. ;   if (newsize && ctx->Visual->AccumBits>0) 
  3580.     tst.l    d2
  3581.     beq.b    L487
  3582. L485
  3583.     move.l    $898(a2),a0
  3584.     move.l    $38(a0),d0
  3585.     cmp.l    #0,d0
  3586.     ble.b    L487
  3587. L486
  3588. ;      gl_alloc_accum_buffer( ctx );
  3589.     move.l    a2,-(a7)
  3590.     jsr    _gl_alloc_accum_buffer
  3591.     addq.w    #4,a7
  3592. L487
  3593. ;   if (newsize
  3594.     tst.l    d2
  3595.     beq.b    L491
  3596. L488
  3597.     move.l    $898(a2),a0
  3598.     move.b    $44(a0),d0
  3599.     bne.b    L490
  3600. L489
  3601.     move.l    $898(a2),a0
  3602.     move.b    $45(a0),d0
  3603.     beq.b    L491
  3604. L490
  3605. ;      gl_alloc_alpha_buffers( ctx );
  3606.     move.l    a2,-(a7)
  3607.     jsr    _gl_alloc_alpha_buffers
  3608.     addq.w    #4,a7
  3609. L491
  3610.     movem.l    (a7)+,d2/a2
  3611.     unlk    a5
  3612.     rts
  3613.  
  3614.     SECTION "_update_pixel_logic:0",CODE
  3615.  
  3616.  
  3617. ;static void update_pixel_logic( GLcontext *ctx )
  3618. _update_pixel_logic
  3619.     move.l    a2,-(a7)
  3620.     move.l    $8(a7),a2
  3621. L493
  3622. ;   if (ctx->Visual->RGBAflag) 
  3623.     move.l    $898(a2),a0
  3624.     move.b    (a0),d0
  3625.     beq.b    L504
  3626. L494
  3627. ;      if (ctx->Color.ColorLogicOpEnabled) 
  3628.     lea    $1E74(a2),a0
  3629.     move.b    $4F(a0),d0
  3630.     beq.b    L500
  3631. L495
  3632. ;     if (ctx->Driver.LogicOp
  3633.     lea    $8A0(a2),a0
  3634.     move.l    $64(a0),a0
  3635.     cmp.w    #0,a0
  3636.     beq.b    L498
  3637. L496
  3638.     lea    $1E74(a2),a0
  3639.     move.l    $4A(a0),d0
  3640.     move.l    d0,-(a7)
  3641.     move.l    a2,-(a7)
  3642.     lea    $8A0(a2),a0
  3643.     move.l    $64(a0),a0
  3644.     jsr    (a0)
  3645.     addq.w    #$8,a7
  3646.     tst.b    d0
  3647.     beq.b    L498
  3648. L497
  3649. ;        ctx->Color.SWLogicOpEnabled = GL_FALSE;
  3650.     clr.b    $1EC4(a2)
  3651.     bra.b    L499
  3652. L498
  3653. ;        ctx->Color.SWLogicOpEnabled = GL_TRUE;
  3654.     move.b    #1,$1EC4(a2)
  3655. L499
  3656.     bra.b    L503
  3657. L500
  3658. ;     if (ctx->Driver.LogicOp) 
  3659.     lea    $8A0(a2),a0
  3660.     move.l    $64(a0),a0
  3661.     cmp.w    #0,a0
  3662.     beq.b    L502
  3663. L501
  3664. ;        (void) (*ctx->Driver.LogicOp)( ctx, GL_COPY );
  3665.     pea    $1503.w
  3666.     move.l    a2,-(a7)
  3667.     lea    $8A0(a2),a0
  3668.     move.l    $64(a0),a0
  3669.     jsr    (a0)
  3670.     addq.w    #$8,a7
  3671. L502
  3672. ;     ctx->Color.SWLogicOpEnabled = GL_FALSE;
  3673.     clr.b    $1EC4(a2)
  3674. L503
  3675.     bra.b    L513
  3676. L504
  3677. ;      if (ctx->Color.IndexLogicOpEnabled) 
  3678.     lea    $1E74(a2),a0
  3679.     move.b    $4E(a0),d0
  3680.     beq.b    L510
  3681. L505
  3682. ;     if (ctx->Driver.LogicOp
  3683.     lea    $8A0(a2),a0
  3684.     move.l    $64(a0),a0
  3685.     cmp.w    #0,a0
  3686.     beq.b    L508
  3687. L506
  3688.     lea    $1E74(a2),a0
  3689.     move.l    $4A(a0),d0
  3690.     move.l    d0,-(a7)
  3691.     move.l    a2,-(a7)
  3692.     lea    $8A0(a2),a0
  3693.     move.l    $64(a0),a0
  3694.     jsr    (a0)
  3695.     addq.w    #$8,a7
  3696.     tst.b    d0
  3697.     beq.b    L508
  3698. L507
  3699. ;        ctx->Color.SWLogicOpEnabled = GL_FALSE;
  3700.     clr.b    $1EC4(a2)
  3701.     bra.b    L509
  3702. L508
  3703. ;        ctx->Color.SWLogicOpEnabled = GL_TRUE;
  3704.     move.b    #1,$1EC4(a2)
  3705. L509
  3706.     bra.b    L513
  3707. L510
  3708. ;     if (ctx->Driver.LogicOp) 
  3709.     lea    $8A0(a2),a0
  3710.     move.l    $64(a0),a0
  3711.     cmp.w    #0,a0
  3712.     beq.b    L512
  3713. L511
  3714. ;        (void) (*ctx->Driver.LogicOp)( ctx, GL_COPY );
  3715.     pea    $1503.w
  3716.     move.l    a2,-(a7)
  3717.     lea    $8A0(a2),a0
  3718.     move.l    $64(a0),a0
  3719.     jsr    (a0)
  3720.     addq.w    #$8,a7
  3721. L512
  3722. ;     ctx->Color.SWLogicOpEnabled = GL_FALSE;
  3723.     clr.b    $1EC4(a2)
  3724. L513
  3725.     move.l    (a7)+,a2
  3726.     rts
  3727.  
  3728.     SECTION "_update_pixel_masking:0",CODE
  3729.  
  3730.  
  3731. ;static void update_pixel_masking( GLcontext *ctx )
  3732. _update_pixel_masking
  3733.     movem.l    d2-d4/a2,-(a7)
  3734.     move.l    $14(a7),a2
  3735. L514
  3736. ;   if (ctx->Visual->RGBAflag) 
  3737.     move.l    $898(a2),a0
  3738.     move.b    (a0),d0
  3739.     beq    L536
  3740. L515
  3741. ;      if (ctx->Color.ColorMask==0xf) 
  3742.     lea    $1E74(a2),a0
  3743.     move.l    $18(a0),d0
  3744.     cmp.l    #$F,d0
  3745.     bne.b    L519
  3746. L516
  3747. ;     if (ctx->Driver.ColorMask) 
  3748.     lea    $8A0(a2),a0
  3749.     move.l    $60(a0),a0
  3750.     cmp.w    #0,a0
  3751.     beq.b    L518
  3752. L517
  3753. ;        (void) (*ctx->Driver.ColorMask)( ctx, GL_TRUE, GL_TRUE, GL
  3754.     move.b    #1,-(a7)
  3755.     move.b    #1,-(a7)
  3756.     move.b    #1,-(a7)
  3757.     move.b    #1,-(a7)
  3758.     move.l    a2,-(a7)
  3759.     lea    $8A0(a2),a0
  3760.     move.l    $60(a0),a0
  3761.     jsr    (a0)
  3762.     add.w    #$C,a7
  3763. L518
  3764. ;     ctx->Color.SWmasking = GL_FALSE;
  3765.     clr.b    $1E90(a2)
  3766.     bra    L535
  3767. L519
  3768. ;     GLboolean red   = (ctx->Color.ColorMask & 8) ? GL_TRUE : GL_FALS
  3769.     lea    $1E74(a2),a0
  3770.     move.l    $18(a0),d0
  3771.     and.l    #$8,d0
  3772.     beq.b    L521
  3773. L520
  3774.     moveq    #1,d0
  3775.     bra.b    L522
  3776. L521
  3777.     moveq    #0,d0
  3778. L522
  3779.     move.b    d0,d3
  3780. ;     GLboolean green = (ctx->Color.ColorMask & 4) ? GL_TRUE : GL_FALS
  3781.     lea    $1E74(a2),a0
  3782.     move.l    $18(a0),d0
  3783.     and.l    #4,d0
  3784.     beq.b    L524
  3785. L523
  3786.     moveq    #1,d0
  3787.     bra.b    L525
  3788. L524
  3789.     moveq    #0,d0
  3790. L525
  3791.     move.b    d0,d2
  3792. ;     GLboolean blue  = (ctx->Color.ColorMask & 2) ? GL_TRUE : GL_FALS
  3793.     lea    $1E74(a2),a0
  3794.     move.l    $18(a0),d0
  3795.     and.l    #2,d0
  3796.     beq.b    L527
  3797. L526
  3798.     moveq    #1,d0
  3799.     bra.b    L528
  3800. L527
  3801.     moveq    #0,d0
  3802. L528
  3803.     move.b    d0,d1
  3804. ;     GLboolean alpha = (ctx->Color.ColorMask & 1) ? GL_TRUE : GL_FALS
  3805.     lea    $1E74(a2),a0
  3806.     move.l    $18(a0),d0
  3807.     and.l    #1,d0
  3808.     beq.b    L530
  3809. L529
  3810.     moveq    #1,d0
  3811.     bra.b    L531
  3812. L530
  3813.     moveq    #0,d0
  3814. L531
  3815. ;     if (ctx->Driver.ColorMask
  3816.     lea    $8A0(a2),a0
  3817.     move.l    $60(a0),a0
  3818.     cmp.w    #0,a0
  3819.     beq.b    L534
  3820. L532
  3821.     move.b    d0,-(a7)
  3822.     move.b    d1,-(a7)
  3823.     move.b    d2,-(a7)
  3824.     move.b    d3,-(a7)
  3825.     move.l    a2,-(a7)
  3826.     lea    $8A0(a2),a0
  3827.     move.l    $60(a0),a0
  3828.     jsr    (a0)
  3829.     add.w    #$C,a7
  3830.     tst.b    d0
  3831.     beq.b    L534
  3832. L533
  3833. ;        ctx->Color.SWmasking = GL_FALSE;
  3834.     clr.b    $1E90(a2)
  3835.     bra.b    L535
  3836. L534
  3837. ;        ctx->Color.SWmasking = GL_TRUE;
  3838.     move.b    #1,$1E90(a2)
  3839. L535
  3840.     bra.b    L544
  3841. L536
  3842. ;      if (ctx->Color.IndexMask==0xffffffff) 
  3843.     lea    $1E74(a2),a0
  3844.     move.l    $14(a0),d0
  3845.     cmp.l    #-1,d0
  3846.     bne.b    L540
  3847. L537
  3848. ;     if (ctx->Driver.IndexMask) 
  3849.     lea    $8A0(a2),a0
  3850.     move.l    $5C(a0),a0
  3851.     cmp.w    #0,a0
  3852.     beq.b    L539
  3853. L538
  3854. ;        (void) (*ctx->Driver.IndexMask)( ctx, 0xffffffff );
  3855.     move.l    #-1,-(a7)
  3856.     move.l    a2,-(a7)
  3857.     lea    $8A0(a2),a0
  3858.     move.l    $5C(a0),a0
  3859.     jsr    (a0)
  3860.     addq.w    #$8,a7
  3861. L539
  3862. ;     ctx->Color.SWmasking = GL_FALSE;
  3863.     clr.b    $1E90(a2)
  3864.     bra.b    L544
  3865. L540
  3866. ;     if (ctx->Driver.IndexMask
  3867.     lea    $8A0(a2),a0
  3868.     move.l    $5C(a0),a0
  3869.     cmp.w    #0,a0
  3870.     beq.b    L543
  3871. L541
  3872.     lea    $1E74(a2),a0
  3873.     move.l    $14(a0),d0
  3874.     move.l    d0,-(a7)
  3875.     move.l    a2,-(a7)
  3876.     lea    $8A0(a2),a0
  3877.     move.l    $5C(a0),a0
  3878.     jsr    (a0)
  3879.     addq.w    #$8,a7
  3880.     tst.b    d0
  3881.     beq.b    L543
  3882. L542
  3883. ;        ctx->Color.SWmasking = GL_FALSE;
  3884.     clr.b    $1E90(a2)
  3885.     bra.b    L544
  3886. L543
  3887. ;        ctx->Color.SWmasking = GL_TRUE;
  3888.     move.b    #1,$1E90(a2)
  3889. L544
  3890.     movem.l    (a7)+,d2-d4/a2
  3891.     rts
  3892.  
  3893.     SECTION "_update_rasterflags:0",CODE
  3894.  
  3895.  
  3896. ;static void update_rasterflags( GLcontext *ctx )
  3897. _update_rasterflags
  3898.     move.l    4(a7),a0
  3899. L545
  3900. ;   ctx->RasterMask = 0;
  3901.     move.l    a0,a1
  3902.     add.l    #$E096,a1
  3903.     clr.l    (a1)
  3904. ;   if (ctx->Color.AlphaEnabled)         
  3905.     lea    $1E74(a0),a1
  3906.     move.b    $22(a1),d0
  3907.     beq.b    L547
  3908. L546
  3909. ;   if (ctx->Color.AlphaEnabl
  3910.     move.l    a0,a1
  3911.     add.l    #$E096,a1
  3912.     move.l    (a1),d0
  3913.     or.l    #1,d0
  3914.     move.l    a0,a1
  3915.     add.l    #$E096,a1
  3916.     move.l    d0,(a1)
  3917. L547
  3918. ;   if (ctx->Color.BlendEnabled)         
  3919.     lea    $1E74(a0),a1
  3920.     move.b    $2D(a1),d0
  3921.     beq.b    L549
  3922. L548
  3923. ;   if (ctx->Color.BlendEnabl
  3924.     move.l    a0,a1
  3925.     add.l    #$E096,a1
  3926.     move.l    (a1),d0
  3927.     or.l    #2,d0
  3928.     move.l    a0,a1
  3929.     add.l    #$E096,a1
  3930.     move.l    d0,(a1)
  3931. L549
  3932. ;   if (ctx->Depth.Test)                 
  3933.     lea    $1F24(a0),a1
  3934.     move.b    $8(a1),d0
  3935.     beq.b    L551
  3936. L550
  3937. ;   if (ctx->Depth.Test)     
  3938.     move.l    a0,a1
  3939.     add.l    #$E096,a1
  3940.     move.l    (a1),d0
  3941.     or.l    #4,d0
  3942.     move.l    a0,a1
  3943.     add.l    #$E096,a1
  3944.     move.l    d0,(a1)
  3945. L551
  3946. ;   if (ctx->Fog.Enabled)                
  3947.     lea    $1F66(a0),a1
  3948.     move.b    (a1),d0
  3949.     beq.b    L553
  3950. L552
  3951. ;   if (ctx->Fog.Enabled)    
  3952.     move.l    a0,a1
  3953.     add.l    #$E096,a1
  3954.     move.l    (a1),d0
  3955.     or.l    #$8,d0
  3956.     move.l    a0,a1
  3957.     add.l    #$E096,a1
  3958.     move.l    d0,(a1)
  3959. L553
  3960. ;   if (ctx->Color.SWLogicOpEnabled)     
  3961.     lea    $1E74(a0),a1
  3962.     move.b    $50(a1),d0
  3963.     beq.b    L555
  3964. L554
  3965. ;   if (ctx->Color.SWLogicOpE
  3966.     move.l    a0,a1
  3967.     add.l    #$E096,a1
  3968.     move.l    (a1),d0
  3969.     or.l    #$10,d0
  3970.     move.l    a0,a1
  3971.     add.l    #$E096,a1
  3972.     move.l    d0,(a1)
  3973. L555
  3974. ;   if (ctx->Scissor.Enabled)            
  3975.     move.l    a0,a1
  3976.     add.l    #$D714,a1
  3977.     lea    (a1),a1
  3978.     move.b    (a1),d0
  3979.     beq.b    L557
  3980. L556
  3981. ;   if (ctx->Scissor.Enabled)
  3982.     move.l    a0,a1
  3983.     add.l    #$E096,a1
  3984.     move.l    (a1),d0
  3985.     or.l    #$20,d0
  3986.     move.l    a0,a1
  3987.     add.l    #$E096,a1
  3988.     move.l    d0,(a1)
  3989. L557
  3990. ;   if (ctx->Stencil.Enabled)            
  3991.     move.l    a0,a1
  3992.     add.l    #$D726,a1
  3993.     lea    (a1),a1
  3994.     move.b    (a1),d0
  3995.     beq.b    L559
  3996. L558
  3997. ;   if (ctx->Stencil.Enabled)
  3998.     move.l    a0,a1
  3999.     add.l    #$E096,a1
  4000.     move.l    (a1),d0
  4001.     or.l    #$40,d0
  4002.     move.l    a0,a1
  4003.     add.l    #$E096,a1
  4004.     move.l    d0,(a1)
  4005. L559
  4006. ;   if (ctx->Color.SWmasking)            
  4007.     lea    $1E74(a0),a1
  4008.     move.b    $1C(a1),d0
  4009.     beq.b    L561
  4010. L560
  4011. ;   if (ctx->Color.SWmasking)
  4012.     move.l    a0,a1
  4013.     add.l    #$E096,a1
  4014.     move.l    (a1),d0
  4015.     or.l    #$80,d0
  4016.     move.l    a0,a1
  4017.     add.l    #$E096,a1
  4018.     move.l    d0,(a1)
  4019. L561
  4020. ;   if (ctx->Visual->FrontAlphaEnabled)  
  4021.     move.l    $898(a0),a1
  4022.     move.b    $44(a1),d0
  4023.     beq.b    L563
  4024. L562
  4025. ;   if (ctx->Visual->FrontAlp
  4026.     move.l    a0,a1
  4027.     add.l    #$E096,a1
  4028.     move.l    (a1),d0
  4029.     or.l    #$100,d0
  4030.     move.l    a0,a1
  4031.     add.l    #$E096,a1
  4032.     move.l    d0,(a1)
  4033. L563
  4034. ;   if (ctx->Visual->BackAlphaEnabled)   
  4035.     move.l    $898(a0),a1
  4036.     move.b    $45(a1),d0
  4037.     beq.b    L565
  4038. L564
  4039. ;   if (ctx->Visual->BackAlph
  4040.     move.l    a0,a1
  4041.     add.l    #$E096,a1
  4042.     move.l    (a1),d0
  4043.     or.l    #$100,d0
  4044.     move.l    a0,a1
  4045.     add.l    #$E096,a1
  4046.     move.l    d0,(a1)
  4047. L565
  4048. ;   if (   ctx->Viewport.X<0
  4049.     move.l    a0,a1
  4050.     add.l    #$DC7E,a1
  4051.     lea    (a1),a1
  4052.     move.l    (a1),d0
  4053.     bmi.b    L569
  4054. L566
  4055.     move.l    a0,a1
  4056.     add.l    #$DC7E,a1
  4057.     lea    (a1),a1
  4058.     move.l    (a1),d0
  4059.     move.l    a0,a1
  4060.     add.l    #$DC7E,a1
  4061.     lea    (a1),a1
  4062.     move.l    $8(a1),d1
  4063.     add.l    d1,d0
  4064.     move.l    $89C(a0),a1
  4065.     move.l    4(a1),d1
  4066.     cmp.l    d1,d0
  4067.     bgt.b    L569
  4068. L567
  4069.     move.l    a0,a1
  4070.     add.l    #$DC7E,a1
  4071.     lea    (a1),a1
  4072.     move.l    4(a1),d0
  4073.     bmi.b    L569
  4074. L568
  4075.     move.l    a0,a1
  4076.     add.l    #$DC7E,a1
  4077.     lea    (a1),a1
  4078.     move.l    4(a1),d0
  4079.     move.l    a0,a1
  4080.     add.l    #$DC7E,a1
  4081.     lea    (a1),a1
  4082.     move.l    $C(a1),d1
  4083.     add.l    d1,d0
  4084.     move.l    $89C(a0),a1
  4085.     move.l    $8(a1),d1
  4086.     cmp.l    d1,d0
  4087.     ble.b    L570
  4088. L569
  4089. ;      ctx->RasterMask |= WINCLIP_BIT;
  4090.     move.l    a0,a1
  4091.     add.l    #$E096,a1
  4092.     move.l    (a1),d0
  4093.     or.l    #$200,d0
  4094.     move.l    a0,a1
  4095.     add.l    #$E096,a1
  4096.     move.l    d0,(a1)
  4097. L570
  4098. ;   if (ctx->Color.DrawBuffer==GL_FRONT_AND_BACK) 
  4099.     lea    $1E74(a0),a1
  4100.     move.l    $1E(a1),d0
  4101.     cmp.l    #$408,d0
  4102.     bne.b    L572
  4103. L571
  4104. ;      ctx->RasterMask |= FRONT_AND_BACK_BIT;
  4105.     move.l    a0,a1
  4106.     add.l    #$E096,a1
  4107.     move.l    (a1),d0
  4108.     or.l    #$400,d0
  4109.     move.l    a0,a1
  4110.     add.l    #$E096,a1
  4111.     move.l    d0,(a1)
  4112. L572
  4113. ;   if (ctx->Color.DrawBuffer==GL_NONE) 
  4114.     lea    $1E74(a0),a1
  4115.     move.l    $1E(a1),d0
  4116.     bne.b    L574
  4117. L573
  4118. ;      ctx->RasterMask |= NO_DRAW_BIT;
  4119.     move.l    a0,a1
  4120.     add.l    #$E096,a1
  4121.     move.l    (a1),d0
  4122.     add.l    #$E096,a0
  4123.     or.l    #$800,d0
  4124.     add.l    #$E096,a0
  4125.     move.l    d0,(a0)
  4126.     bra.b    L580
  4127. L574
  4128. ;   else if (ctx->Visual->RGBAflag && ctx->Color.ColorMask==0)
  4129.     move.l    $898(a0),a1
  4130.     move.b    (a1),d0
  4131.     beq.b    L577
  4132. L575
  4133.     lea    $1E74(a0),a1
  4134.     move.l    $18(a1),d0
  4135.     bne.b    L577
  4136. L576
  4137. ;      ctx->RasterMask |= NO_DRAW_BIT;
  4138.     move.l    a0,a1
  4139.     add.l    #$E096,a1
  4140.     move.l    (a1),d0
  4141.     add.l    #$E096,a0
  4142.     or.l    #$800,d0
  4143.     add.l    #$E096,a0
  4144.     move.l    d0,(a0)
  4145.     bra.b    L580
  4146. L577
  4147. ;   else if (!ctx->Visual->RGBAflag && ctx->Color.IndexMask==
  4148.     move.l    $898(a0),a1
  4149.     move.b    (a1),d0
  4150.     bne.b    L580
  4151. L578
  4152.     lea    $1E74(a0),a1
  4153.     move.l    $14(a1),d0
  4154.     bne.b    L580
  4155. L579
  4156. ;      ctx->RasterMask |= NO_DRAW_BIT;
  4157.     move.l    a0,a1
  4158.     add.l    #$E096,a1
  4159.     move.l    (a1),d0
  4160.     add.l    #$E096,a0
  4161.     or.l    #$800,d0
  4162.     add.l    #$E096,a0
  4163.     move.l    d0,(a0)
  4164. L580
  4165.     rts
  4166.  
  4167.     SECTION "_update_clipmask:0",CODE
  4168.  
  4169.  
  4170. ;static void update_clipmask(GLcontext *ctx)
  4171. _update_clipmask
  4172.     move.l    4(a7),a0
  4173. L581
  4174. ;   ctx->ClipMask = 0;
  4175.     move.l    a0,a1
  4176.     add.l    #$E092,a1
  4177.     clr.l    (a1)
  4178. ;   if (ctx->Texture.Enabled) 
  4179.     move.l    a0,a1
  4180.     add.l    #$D73C,a1
  4181.     lea    (a1),a1
  4182.     move.l    (a1),d0
  4183.     beq.b    L583
  4184. L582
  4185. ;      ctx->ClipMask |= CLIP_TEXTURE_BIT;
  4186.     move.l    a0,a1
  4187.     add.l    #$E092,a1
  4188.     move.l    (a1),d0
  4189.     or.l    #$10,d0
  4190.     move.l    a0,a1
  4191.     add.l    #$E092,a1
  4192.     move.l    d0,(a1)
  4193. L583
  4194. ;   if (ctx->Light.ShadeModel==GL_SMOOTH) 
  4195.     lea    $1FA0(a0),a1
  4196.     add.l    #$8E04,a1
  4197.     move.l    (a1),d0
  4198.     cmp.l    #$1D01,d0
  4199.     bne    L590
  4200. L584
  4201. ;      if (ctx->Visual->RGBAflag) 
  4202.     move.l    $898(a0),a1
  4203.     move.b    (a1),d0
  4204.     beq.b    L588
  4205. L585
  4206. ;     ctx->ClipMask |= CLIP_FCOLOR_BIT;
  4207.     move.l    a0,a1
  4208.     add.l    #$E092,a1
  4209.     move.l    (a1),d0
  4210.     or.l    #1,d0
  4211.     move.l    a0,a1
  4212.     add.l    #$E092,a1
  4213.     move.l    d0,(a1)
  4214. ;     if (ctx->Light.Model.TwoSide) 
  4215.     move.l    a0,a1
  4216.     add.l    #$A6B0,a1
  4217.     lea    (a1),a1
  4218.     move.b    $11(a1),d0
  4219.     beq.b    L587
  4220. L586
  4221. ;        ctx->ClipMask |= CLIP_BCOLOR_BIT;
  4222.     move.l    a0,a1
  4223.     add.l    #$E092,a1
  4224.     move.l    (a1),d0
  4225.     add.l    #$E092,a0
  4226.     or.l    #2,d0
  4227.     add.l    #$E092,a0
  4228.     move.l    d0,(a0)
  4229. L587
  4230.     bra.b    L590
  4231. L588
  4232. ;     ctx->ClipMask |= CLIP_FINDEX_BIT;
  4233.     move.l    a0,a1
  4234.     add.l    #$E092,a1
  4235.     move.l    (a1),d0
  4236.     or.l    #4,d0
  4237.     move.l    a0,a1
  4238.     add.l    #$E092,a1
  4239.     move.l    d0,(a1)
  4240. ;     if (ctx->Light.Model.TwoSide) 
  4241.     move.l    a0,a1
  4242.     add.l    #$A6B0,a1
  4243.     lea    (a1),a1
  4244.     move.b    $11(a1),d0
  4245.     beq.b    L590
  4246. L589
  4247. ;        ctx->ClipMask |= CLIP_BINDEX_BIT;
  4248.     move.l    a0,a1
  4249.     add.l    #$E092,a1
  4250.     move.l    (a1),d0
  4251.     add.l    #$E092,a0
  4252.     or.l    #$8,d0
  4253.     add.l    #$E092,a0
  4254.     move.l    d0,(a0)
  4255. L590
  4256.     rts
  4257.  
  4258.     SECTION "_gl_update_state:0",CODE
  4259.  
  4260.  
  4261. ;void gl_update_state( GLcontext *ctx )
  4262.     XDEF    _gl_update_state
  4263. _gl_update_state
  4264.     movem.l    d2/a2,-(a7)
  4265.     move.l    $C(a7),a2
  4266. L591
  4267. ;   if (ctx->NewState & NEW_RASTER_OPS) 
  4268.     move.l    a2,a0
  4269.     add.l    #$E082,a0
  4270.     move.l    (a0),d0
  4271.     and.l    #2,d0
  4272.     beq.b    L594
  4273. L592
  4274. ;      update_pixel_logic(ctx);
  4275.     move.l    a2,-(a7)
  4276.     jsr    _update_pixel_logic
  4277.     addq.w    #4,a7
  4278. ;      update_pixel_masking(ctx);
  4279.     move.l    a2,-(a7)
  4280.     jsr    _update_pixel_masking
  4281.     addq.w    #4,a7
  4282. ;      update_rasterflags(ctx);
  4283.     move.l    a2,-(a7)
  4284.     jsr    _update_rasterflags
  4285.     addq.w    #4,a7
  4286. ;      if (ctx->Driver.Dither) 
  4287.     lea    $8A0(a2),a0
  4288.     move.l    $68(a0),a0
  4289.     cmp.w    #0,a0
  4290.     beq.b    L594
  4291. L593
  4292. ;     (*ctx->Driver.Dither)( ctx, ctx->Color.DitherFlag );
  4293.     lea    $1E74(a2),a0
  4294.     move.b    $51(a0),d0
  4295.     move.b    d0,-(a7)
  4296.     move.l    a2,-(a7)
  4297.     lea    $8A0(a2),a0
  4298.     move.l    $68(a0),a0
  4299.     jsr    (a0)
  4300.     addq.w    #6,a7
  4301. L594
  4302. ;   if (ctx->NewState & (NEW_RASTER_OPS | NEW_LIGHTING)) 
  4303.     move.l    a2,a0
  4304.     add.l    #$E082,a0
  4305.     move.l    (a0),d0
  4306.     and.l    #3,d0
  4307.     beq.b    L596
  4308. L595
  4309. ;      update_clipmask(ctx);
  4310.     move.l    a2,-(a7)
  4311.     jsr    _update_clipmask
  4312.     addq.w    #4,a7
  4313. L596
  4314. ;   if (ctx->NewState & NEW_LIGHTING) 
  4315.     move.l    a2,a0
  4316.     add.l    #$E082,a0
  4317.     move.l    (a0),d0
  4318.     and.l    #1,d0
  4319.     beq.b    L598
  4320. L597
  4321. ;      gl_update_lighting(ctx);
  4322.     move.l    a2,-(a7)
  4323.     jsr    _gl_update_lighting
  4324.     addq.w    #4,a7
  4325. ;      gl_set_color_function(ctx);
  4326.     move.l    a2,-(a7)
  4327.     jsr    _gl_set_color_function
  4328.     addq.w    #4,a7
  4329. L598
  4330. ;   if (ctx->NewState & NEW_TEXTURING) 
  4331.     move.l    a2,a0
  4332.     add.l    #$E082,a0
  4333.     move.l    (a0),d0
  4334.     and.l    #4,d0
  4335.     beq.b    L600
  4336. L599
  4337. ;      gl_update_texture_state(ctx);
  4338.     move.l    a2,-(a7)
  4339.     jsr    _gl_update_texture_state
  4340.     addq.w    #4,a7
  4341. L600
  4342. ;   if (ctx->NewState & (NEW_LIGHTING | NEW_TEXTURING)) 
  4343.     move.l    a2,a0
  4344.     add.l    #$E082,a0
  4345.     move.l    (a0),d0
  4346.     and.l    #5,d0
  4347.     beq    L611
  4348. L601
  4349. ;   ctx->Buffer->Xmin = 0;
  4350.     moveq    #0,d1
  4351.     move.l    a2,a0
  4352.     add.l    #$D73C,a0
  4353.     lea    (a0),a0
  4354.     move.l    (a0),d0
  4355.     beq.b    L607
  4356. L602
  4357.     move.l    a2,a0
  4358.     add.l    #$D73C,a0
  4359.     lea    (a0),a0
  4360.     move.l    $1C(a0),d0
  4361.     cmp.l    #$2402,d0
  4362.     bne.b    L604
  4363. L603
  4364.     move.l    a2,a0
  4365.     add.l    #$D73C,a0
  4366.     lea    (a0),a0
  4367.     move.l    $18(a0),d0
  4368.     and.l    #4,d0
  4369.     bne.b    L606
  4370. L604
  4371.     move.l    a2,a0
  4372.     add.l    #$D73C,a0
  4373.     lea    (a0),a0
  4374.     move.l    $20(a0),d0
  4375.     cmp.l    #$2402,d0
  4376.     bne.b    L607
  4377. L605
  4378.     move.l    a2,a0
  4379.     add.l    #$D73C,a0
  4380.     lea    (a0),a0
  4381.     move.l    $18(a0),d0
  4382.     and.l    #$8,d0
  4383.     beq.b    L607
  4384. L606
  4385.     moveq    #1,d1
  4386. L607
  4387. ;      if (ctx->Light.Enabled || sphereGen) 
  4388.     lea    $1FA0(a2),a0
  4389.     add.l    #$8E02,a0
  4390.     move.b    (a0),d0
  4391.     bne.b    L609
  4392. L608
  4393.     tst.b    d1
  4394.     beq.b    L610
  4395. L609
  4396. ;     ctx->NeedNormals = GL_TRUE;
  4397.     move.l    a2,a0
  4398.     add.l    #$E0A8,a0
  4399.     move.b    #1,(a0)
  4400.     bra.b    L611
  4401. L610
  4402. ;     ctx->NeedNormals = GL_FALSE;
  4403.     move.l    a2,a0
  4404.     add.l    #$E0A8,a0
  4405.     clr.b    (a0)
  4406. L611
  4407. ;   if (ctx->NewState & NEW_RASTER_OPS) 
  4408.     move.l    a2,a0
  4409.     add.l    #$E082,a0
  4410.     move.l    (a0),d0
  4411.     and.l    #2,d0
  4412.     beq.b    L619
  4413. L612
  4414. ;      if (ctx->Fog.Enabled ||
  4415.     lea    $1F66(a2),a0
  4416.     move.b    (a0),d0
  4417.     bne.b    L617
  4418. L613
  4419.     move.l    a2,a0
  4420.     add.l    #$D73C,a0
  4421.     lea    (a0),a0
  4422.     move.l    (a0),d0
  4423.     bne.b    L617
  4424. L614
  4425.     lea    $1E74(a2),a0
  4426.     move.b    $2D(a0),d0
  4427.     bne.b    L617
  4428. L615
  4429.     lea    $1E74(a2),a0
  4430.     move.b    $1C(a0),d0
  4431.     bne.b    L617
  4432. L616
  4433.     lea    $1E74(a2),a0
  4434.     move.b    $50(a0),d0
  4435.     beq.b    L618
  4436. L617
  4437. ;     ctx->MutablePixels = GL_TRUE;
  4438.     move.l    a2,a0
  4439.     add.l    #$E0AA,a0
  4440.     move.b    #1,(a0)
  4441.     bra.b    L619
  4442. L618
  4443. ;     ctx->MutablePixels = GL_FALSE;
  4444.     move.l    a2,a0
  4445.     add.l    #$E0AA,a0
  4446.     clr.b    (a0)
  4447. L619
  4448. ;   if (ctx->NewState & (NEW_RASTER_OPS | NEW_LIGHTING)) 
  4449.     move.l    a2,a0
  4450.     add.l    #$E082,a0
  4451.     move.l    (a0),d0
  4452.     and.l    #3,d0
  4453.     beq.b    L629
  4454. L620
  4455. ;      if (ctx->Light.ShadeModel==GL_SMOOTH ||
  4456.     lea    $1FA0(a2),a0
  4457.     add.l    #$8E04,a0
  4458.     move.l    (a0),d0
  4459.     cmp.l    #$1D01,d0
  4460.     beq.b    L627
  4461. L621
  4462.     lea    $1FA0(a2),a0
  4463.     add.l    #$8E02,a0
  4464.     move.b    (a0),d0
  4465.     bne.b    L627
  4466. L622
  4467.     lea    $1F66(a2),a0
  4468.     move.b    (a0),d0
  4469.     bne.b    L627
  4470. L623
  4471.     move.l    a2,a0
  4472.     add.l    #$D73C,a0
  4473.     lea    (a0),a0
  4474.     move.l    (a0),d0
  4475.     bne.b    L627
  4476. L624
  4477.     lea    $1E74(a2),a0
  4478.     move.b    $2D(a0),d0
  4479.     bne.b    L627
  4480. L625
  4481.     lea    $1E74(a2),a0
  4482.     move.b    $1C(a0),d0
  4483.     bne.b    L627
  4484. L626
  4485.     lea    $1E74(a2),a0
  4486.     move.b    $50(a0),d0
  4487.     beq.b    L628
  4488. L627
  4489. ;     ctx->MonoPixels = GL_FALSE;
  4490.     move.l    a2,a0
  4491.     add.l    #$E0AB,a0
  4492.     clr.b    (a0)
  4493.     bra.b    L629
  4494. L628
  4495. ;     ctx->MonoPixels = GL_TRUE;
  4496.     move.l    a2,a0
  4497.     add.l    #$E0AB,a0
  4498.     move.b    #1,(a0)
  4499. L629
  4500. ;   if (ctx->NewState & NEW_POLYGON) 
  4501.     move.l    a2,a0
  4502.     add.l    #$E082,a0
  4503.     move.l    (a0),d0
  4504.     and.l    #$8,d0
  4505.     beq    L642
  4506. L630
  4507. ;      ctx->Polygon.CullBits = 0;
  4508.     move.l    a2,a0
  4509.     add.l    #$D682,a0
  4510.     clr.l    (a0)
  4511. ;      if (ctx->Polygon.CullFlag) 
  4512.     move.l    a2,a0
  4513.     add.l    #$D670,a0
  4514.     lea    (a0),a0
  4515.     move.b    $D(a0),d0
  4516.     beq    L637
  4517. L631
  4518. ;     if (ctx->Polygon.CullFaceMode==GL_FRONT ||
  4519.     move.l    a2,a0
  4520.     add.l    #$D670,a0
  4521.     lea    (a0),a0
  4522.     move.l    $E(a0),d0
  4523.     cmp.l    #$404,d0
  4524.     beq.b    L633
  4525. L632
  4526.     move.l    a2,a0
  4527.     add.l    #$D670,a0
  4528.     lea    (a0),a0
  4529.     move.l    $E(a0),d0
  4530.     cmp.l    #$408,d0
  4531.     bne.b    L634
  4532. L633
  4533. ;        ctx->Polygon.CullBits |= 1;
  4534.     move.l    a2,a0
  4535.     add.l    #$D682,a0
  4536.     move.l    (a0),d0
  4537.     or.l    #1,d0
  4538.     move.l    a2,a0
  4539.     add.l    #$D682,a0
  4540.     move.l    d0,(a0)
  4541. L634
  4542. ;     if (ctx->Polygon.CullFaceMode==GL_BACK ||
  4543.     move.l    a2,a0
  4544.     add.l    #$D670,a0
  4545.     lea    (a0),a0
  4546.     move.l    $E(a0),d0
  4547.     cmp.l    #$405,d0
  4548.     beq.b    L636
  4549. L635
  4550.     move.l    a2,a0
  4551.     add.l    #$D670,a0
  4552.     lea    (a0),a0
  4553.     move.l    $E(a0),d0
  4554.     cmp.l    #$408,d0
  4555.     bne.b    L637
  4556. L636
  4557. ;        ctx->Polygon.CullBits |= 2;
  4558.     move.l    a2,a0
  4559.     add.l    #$D682,a0
  4560.     move.l    (a0),d0
  4561.     or.l    #2,d0
  4562.     move.l    a2,a0
  4563.     add.l    #$D682,a0
  4564.     move.l    d0,(a0)
  4565. L637
  4566. ;      ctx->Polygon.OffsetAny = ctx->Polygon.OffsetPoint ||
  4567.     moveq    #1,d0
  4568.     move.l    a2,a0
  4569.     add.l    #$D670,a0
  4570.     lea    (a0),a0
  4571.     move.b    $20(a0),d1
  4572.     bne.b    L641
  4573. L638
  4574.     move.l    a2,a0
  4575.     add.l    #$D670,a0
  4576.     lea    (a0),a0
  4577.     move.b    $21(a0),d1
  4578.     bne.b    L641
  4579. L639
  4580.     move.l    a2,a0
  4581.     add.l    #$D670,a0
  4582.     lea    (a0),a0
  4583.     move.b    $22(a0),d1
  4584.     bne.b    L641
  4585. L640
  4586.     moveq    #0,d0
  4587. L641
  4588.     move.l    a2,a0
  4589.     add.l    #$D693,a0
  4590.     move.b    d0,(a0)
  4591. ;      ctx->PointZoffset   = 0.0;
  4592.     move.l    a2,a0
  4593.     add.l    #$E0A4,a0
  4594.     clr.l    (a0)
  4595. ;      ctx->LineZoffset    = 0.0;
  4596.     move.l    a2,a0
  4597.     add.l    #$E0A0,a0
  4598.     clr.l    (a0)
  4599. ;      ctx->PolygonZoffset = 0.0;
  4600.     move.l    a2,a0
  4601.     add.l    #$E09C,a0
  4602.     clr.l    (a0)
  4603. L642
  4604. ;   if (ctx->NewState & (NEW_POLYGON | NEW_LIGHTING)) 
  4605.     move.l    a2,a0
  4606.     add.l    #$E082,a0
  4607.     move.l    (a0),d0
  4608.     and.l    #$9,d0
  4609.     beq.b    L650
  4610. L643
  4611. ;      if (   ctx->Polygon.Unfilled
  4612.     move.l    a2,a0
  4613.     add.l    #$D670,a0
  4614.     lea    (a0),a0
  4615.     move.b    $C(a0),d0
  4616.     bne.b    L648
  4617. L644
  4618.     move.l    a2,a0
  4619.     add.l    #$D670,a0
  4620.     lea    (a0),a0
  4621.     move.b    $23(a0),d0
  4622.     bne.b    L648
  4623. L645
  4624.     move.l    a2,a0
  4625.     add.l    #$D670,a0
  4626.     lea    (a0),a0
  4627.     move.b    $D(a0),d0
  4628.     bne.b    L648
  4629. L646
  4630.     move.l    a2,a0
  4631.     add.l    #$A6B0,a0
  4632.     lea    (a0),a0
  4633.     move.b    $11(a0),d0
  4634.     bne.b    L648
  4635. L647
  4636.     move.l    a2,a0
  4637.     add.l    #$E086,a0
  4638.     move.l    (a0),d0
  4639.     cmp.l    #$1C00,d0
  4640.     beq.b    L649
  4641. L648
  4642. ;     ctx->DirectTriangles = GL_FALSE;
  4643.     move.l    a2,a0
  4644.     add.l    #$E09B,a0
  4645.     clr.b    (a0)
  4646.     bra.b    L650
  4647. L649
  4648. ;     ctx->DirectTriangles = GL_TRUE;
  4649.     move.l    a2,a0
  4650.     add.l    #$E09B,a0
  4651.     move.b    #1,(a0)
  4652. L650
  4653. ;   ctx->Buffer->Xmin = 0;
  4654.     move.l    $89C(a2),a0
  4655.     clr.l    $24(a0)
  4656. ;   ctx->Buffer->Ymin = 0;
  4657.     move.l    $89C(a2),a0
  4658.     clr.l    $2C(a0)
  4659. ;   ctx->Buffer->Xmax = ctx->Buffer->Width-1;
  4660.     move.l    $89C(a2),a0
  4661.     move.l    4(a0),d0
  4662.     subq.l    #1,d0
  4663.     move.l    $89C(a2),a0
  4664.     move.l    d0,$28(a0)
  4665. ;   ctx->Buffer->Ymax = ctx->Buffer->Height-1;
  4666.     move.l    $89C(a2),a0
  4667.     move.l    $8(a0),d0
  4668.     subq.l    #1,d0
  4669.     move.l    $89C(a2),a0
  4670.     move.l    d0,$30(a0)
  4671. ;   if (ctx->Scissor.Enabled) 
  4672.     move.l    a2,a0
  4673.     add.l    #$D714,a0
  4674.     lea    (a0),a0
  4675.     move.b    (a0),d0
  4676.     beq    L659
  4677. L651
  4678. ;      if (ctx->Scissor.X > ctx->Buffer->Xmin) 
  4679.     move.l    a2,a0
  4680.     add.l    #$D714,a0
  4681.     lea    (a0),a0
  4682.     move.l    2(a0),d1
  4683.     move.l    $89C(a2),a0
  4684.     move.l    $24(a0),d0
  4685.     cmp.l    d0,d1
  4686.     ble.b    L653
  4687. L652
  4688. ;     ctx->Buffer->Xmin = ctx->Scissor.X;
  4689.     move.l    a2,a0
  4690.     add.l    #$D714,a0
  4691.     lea    (a0),a0
  4692.     move.l    2(a0),d0
  4693.     move.l    $89C(a2),a0
  4694.     move.l    d0,$24(a0)
  4695. L653
  4696. ;      if (ctx->Scissor.Y > ctx->Buffer->Ymin) 
  4697.     move.l    a2,a0
  4698.     add.l    #$D714,a0
  4699.     lea    (a0),a0
  4700.     move.l    6(a0),d1
  4701.     move.l    $89C(a2),a0
  4702.     move.l    $2C(a0),d0
  4703.     cmp.l    d0,d1
  4704.     ble.b    L655
  4705. L654
  4706. ;     ctx->Buffer->Ymin = ctx->Scissor.Y;
  4707.     move.l    a2,a0
  4708.     add.l    #$D714,a0
  4709.     lea    (a0),a0
  4710.     move.l    6(a0),d0
  4711.     move.l    $89C(a2),a0
  4712.     move.l    d0,$2C(a0)
  4713. L655
  4714. ;      if (ctx->Scissor.X + ctx->Scissor.Width - 1 < ctx->Buffe
  4715.     move.l    a2,a0
  4716.     add.l    #$D714,a0
  4717.     lea    (a0),a0
  4718.     move.l    2(a0),d0
  4719.     move.l    a2,a0
  4720.     add.l    #$D714,a0
  4721.     lea    (a0),a0
  4722.     move.l    $A(a0),d1
  4723.     add.l    d1,d0
  4724.     subq.l    #1,d0
  4725.     move.l    $89C(a2),a0
  4726.     move.l    $28(a0),d1
  4727.     cmp.l    d1,d0
  4728.     bge.b    L657
  4729. L656
  4730. ;     ctx->Buffer->Xmax = ctx->Scissor.X + ctx->Scissor.Width - 1;
  4731.     move.l    a2,a0
  4732.     add.l    #$D714,a0
  4733.     lea    (a0),a0
  4734.     move.l    2(a0),d0
  4735.     move.l    a2,a0
  4736.     add.l    #$D714,a0
  4737.     lea    (a0),a0
  4738.     move.l    $A(a0),d1
  4739.     add.l    d1,d0
  4740.     subq.l    #1,d0
  4741.     move.l    $89C(a2),a0
  4742.     move.l    d0,$28(a0)
  4743. L657
  4744. ;      if (ctx->Scissor.Y + ctx->Scissor.Height - 1 < ctx->Buff
  4745.     move.l    a2,a0
  4746.     add.l    #$D714,a0
  4747.     lea    (a0),a0
  4748.     move.l    6(a0),d0
  4749.     move.l    a2,a0
  4750.     add.l    #$D714,a0
  4751.     lea    (a0),a0
  4752.     move.l    $E(a0),d1
  4753.     add.l    d1,d0
  4754.     subq.l    #1,d0
  4755.     move.l    $89C(a2),a0
  4756.     move.l    $30(a0),d1
  4757.     cmp.l    d1,d0
  4758.     bge.b    L659
  4759. L658
  4760. ;     ctx->Buffer->Ymax = ctx->Scissor.Y + ctx->Scissor.Height - 1;
  4761.     move.l    a2,a0
  4762.     add.l    #$D714,a0
  4763.     lea    (a0),a0
  4764.     move.l    6(a0),d0
  4765.     move.l    a2,a0
  4766.     add.l    #$D714,a0
  4767.     lea    (a0),a0
  4768.     move.l    $E(a0),d1
  4769.     add.l    d1,d0
  4770.     subq.l    #1,d0
  4771.     move.l    $89C(a2),a0
  4772.     move.l    d0,$30(a0)
  4773. L659
  4774. ;   if (ctx->NewState & NEW_RASTER_OPS) 
  4775.     move.l    a2,a0
  4776.     add.l    #$E082,a0
  4777.     move.l    (a0),d0
  4778.     and.l    #2,d0
  4779.     beq    L668
  4780. L660
  4781. ;      ctx->Driver.AllocDepthBuffer = gl_alloc_depth_buffer;
  4782.     move.l    #_gl_alloc_depth_buffer,$914(a2)
  4783. ;      ctx->Driver.ClearDepthBuffer = gl_clear_depth_buffer;
  4784.     move.l    #_gl_clear_depth_buffer,$918(a2)
  4785. ;      if (ctx->Depth.Mask) 
  4786.     lea    $1F24(a2),a0
  4787.     move.b    $9(a0),d0
  4788.     beq.b    L666
  4789. L661
  4790. ;     switch (ctx->Depth.Func)
  4791.     lea    $1F24(a2),a0
  4792.     move.l    (a0),d0
  4793.     cmp.l    #$201,d0
  4794.     beq.b    L662
  4795.     cmp.l    #$204,d0
  4796.     beq.b    L663
  4797.     bra.b    L664
  4798. ;        
  4799. L662
  4800. ;           ctx->Driver.DepthTestSpan = gl_depth_test_span_less;
  4801.     move.l    #_gl_depth_test_span_less,$91C(a2)
  4802. ;           ctx->Driver.DepthTestPixels = gl_depth_test_pixels_l
  4803.     move.l    #_gl_depth_test_pixels_less,$920(a2)
  4804. ;           
  4805.     bra.b    L665
  4806. L663
  4807. ;           ctx->Driver.DepthTestSpan = gl_depth_test_span_great
  4808.     move.l    #_gl_depth_test_span_greater,$91C(a2)
  4809. ;           ctx->Driver.DepthTestPixels = gl_depth_test_pixels_g
  4810.     move.l    #_gl_depth_test_pixels_greater,$920(a2)
  4811. ;           
  4812.     bra.b    L665
  4813. L664
  4814. ;           ctx->Driver.DepthTestSpan = gl_depth_test_span_gener
  4815.     move.l    #_gl_depth_test_span_generic,$91C(a2)
  4816. ;           ctx->Driver.DepthTestPixels = gl_depth_test_pixels_g
  4817.     move.l    #_gl_depth_test_pixels_generic,$920(a2)
  4818. L665
  4819.     bra.b    L667
  4820. L666
  4821. ;     ctx->Driver.DepthTestSpan = gl_depth_test_span_generic;
  4822.     move.l    #_gl_depth_test_span_generic,$91C(a2)
  4823. ;     ctx->Driver.DepthTestPixels = gl_depth_test_pixels_generic;
  4824.     move.l    #_gl_depth_test_pixels_generic,$920(a2)
  4825. L667
  4826. ;      ctx->Driver.ReadDepthSpanFloat = gl_read_depth_span_floa
  4827.     move.l    #_gl_read_depth_span_float,$924(a2)
  4828. ;      ctx->Driver.ReadDepthSpanInt = gl_read_depth_span_int;
  4829.     move.l    #_gl_read_depth_span_int,$928(a2)
  4830. L668
  4831. ;   ctx->Driver.PointsFunc = NULL;
  4832.     clr.l    $92C(a2)
  4833. ;   ctx->Driver.LineFunc = NULL;
  4834.     clr.l    $930(a2)
  4835. ;   ctx->Driver.TriangleFunc = NULL;
  4836.     clr.l    $934(a2)
  4837. ;   ctx->Driver.QuadFunc = NULL;
  4838.     clr.l    $938(a2)
  4839. ;   ctx->Driver.RectFunc = NULL;
  4840.     clr.l    $93C(a2)
  4841. ;   if (ctx->Driver.UpdateState) 
  4842.     lea    $8A0(a2),a0
  4843.     move.l    4(a0),a0
  4844.     cmp.w    #0,a0
  4845.     beq.b    L670
  4846. L669
  4847. ;      (*ctx->Driver.UpdateState)(ctx);
  4848.     move.l    a2,-(a7)
  4849.     lea    $8A0(a2),a0
  4850.     move.l    4(a0),a0
  4851.     jsr    (a0)
  4852.     addq.w    #4,a7
  4853. L670
  4854. ;   gl_set_point_function(ctx);
  4855.     move.l    a2,-(a7)
  4856.     jsr    _gl_set_point_function
  4857.     addq.w    #4,a7
  4858. ;   gl_set_line_function(ctx);
  4859.     move.l    a2,-(a7)
  4860.     jsr    _gl_set_line_function
  4861.     addq.w    #4,a7
  4862. ;   gl_set_triangle_function(ctx);
  4863.     move.l    a2,-(a7)
  4864.     jsr    _gl_set_triangle_function
  4865.     addq.w    #4,a7
  4866. ;   gl_set_quad_function(ctx);
  4867.     move.l    a2,-(a7)
  4868.     jsr    _gl_set_quad_function
  4869.     addq.w    #4,a7
  4870. ;   gl_set_vertex_function(ctx);
  4871.     move.l    a2,-(a7)
  4872.     jsr    _gl_set_vertex_function
  4873.     addq.w    #4,a7
  4874. ;   ctx->NewState = 0;
  4875.     move.l    a2,a0
  4876.     add.l    #$E082,a0
  4877.     clr.l    (a0)
  4878.     movem.l    (a7)+,d2/a2
  4879.     rts
  4880.  
  4881.     END
  4882.