home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 5 / MA_Cover_5.iso / ppc / mesa / src / texstate.s < prev    next >
Encoding:
Text File  |  1998-01-31  |  72.5 KB  |  4,425 lines
  1.  
  2. ; Storm C Compiler
  3. ; TEMP:Mesa_2_5/src/texstate.c
  4.     mc68030
  5.     mc68881
  6.     XREF    _gl_transform_vector
  7.     XREF    _gl_set_texture_sampler
  8.     XREF    _gl_test_texture_object_completeness
  9.     XREF    _gl_analyze_modelview_matrix
  10.     XREF    _gl_error
  11.     XREF    _CC
  12.  
  13.     SECTION "_gl_TexEnvfv:0",CODE
  14.  
  15.  
  16. ;void gl_TexEnvfv( GLcontext *ctx,
  17.     XDEF    _gl_TexEnvfv
  18. _gl_TexEnvfv
  19.     movem.l    d2/a2,-(a7)
  20.     movem.l    $14(a7),d1/a0
  21.     move.l    $10(a7),d2
  22.     move.l    $C(a7),a1
  23. L317
  24. ;   if (INSIDE_BEGIN_END(ctx)) 
  25.     move.l    a1,a2
  26.     add.l    #$E08A,a2
  27.     move.l    (a2),d0
  28.     cmp.l    #$1A00,d0
  29.     beq.b    L319
  30. L318
  31. ;      gl_error( ctx, GL_INVALID_OPERATION, "glTexEnv" );
  32.     move.l    #L313,-(a7)
  33.     pea    $502.w
  34.     move.l    a1,-(a7)
  35.     jsr    _gl_error
  36.     add.w    #$C,a7
  37.     movem.l    (a7)+,d2/a2
  38.     rts
  39. L319
  40. ;   if (target!=GL_TEXTURE_ENV) 
  41.     cmp.l    #$2300,d2
  42.     beq.b    L321
  43. L320
  44. ;      gl_error( ctx, GL_INVALID_ENUM, "glTexEnv(target)" );
  45.     move.l    #L314,-(a7)
  46.     pea    $500.w
  47.     move.l    a1,-(a7)
  48.     jsr    _gl_error
  49.     add.w    #$C,a7
  50.     movem.l    (a7)+,d2/a2
  51.     rts
  52. L321
  53. ;   if (pname==GL_TEXTURE_ENV_MODE) 
  54.     cmp.l    #$2200,d1
  55.     bne.b    L326
  56. L322
  57. ;      GLenum mode = (GLenum) (GLint) *param;
  58.     fmove.s    (a0),fp0
  59.     fmove.l    fp0,d0
  60. ;      switch (mode)
  61.     move.l    d0,d2
  62.     cmp.l    #$2100,d2
  63.     beq.b    L323
  64.     bgt.b    L356
  65.     cmp.l    #$BE2,d2
  66.     beq.b    L323
  67.     cmp.l    #$1E01,d2
  68.     beq.b    L323
  69.     bra.b    L324
  70. L356
  71.     cmp.l    #$2101,d2
  72.     beq.b    L323
  73.     bra.b    L324
  74. ;     
  75. L323
  76. ;        ctx->Texture.EnvMode = mode;
  77.     move.l    a1,a2
  78.     add.l    #$D740,a2
  79.     move.l    d0,(a2)
  80. ;        
  81.     bra    L353
  82. L324
  83. ;        gl_error( ctx, GL_INVALID_ENUM, "glTexEnv(param)" );
  84.     move.l    #L315,-(a7)
  85.     pea    $500.w
  86.     move.l    a1,-(a7)
  87.     jsr    _gl_error
  88.     add.w    #$C,a7
  89.     movem.l    (a7)+,d2/a2
  90.     rts
  91. L325
  92. ;        return;
  93.     bra    L353
  94. L326
  95. ;   else if (pname==GL_TEXTURE_ENV_COLOR) 
  96.     cmp.l    #$2201,d1
  97.     bne    L352
  98. L327
  99. ;      ctx->Texture.EnvColor[0] = CLAMP( param[0], 0.0, 1.0 );
  100.     fmove.s    (a0),fp0
  101.     fcmp.d    #$.00000000.00000000,fp0
  102.     fboge.b    L329
  103. L328
  104.     fmove.d    #$.00000000.00000000,fp0
  105.     bra.b    L333
  106. L329
  107.     fmove.s    (a0),fp0
  108.     fcmp.d    #$.3FF00000.00000000,fp0
  109.     fbole.b    L331
  110. L330
  111.     fmove.d    #$.3FF00000.00000000,fp0
  112.     bra.b    L333
  113. L331
  114.     fmove.s    (a0),fp0
  115. L332
  116. L333
  117.     move.l    a1,a2
  118.     add.l    #$D744,a2
  119.     lea    (a2),a2
  120.     fmove.s    fp0,(a2)
  121. ;      ctx->Texture.EnvColor[1] = CLAMP( param[1], 0.0, 1.0 );
  122.     lea    4(a0),a2
  123.     fmove.s    (a2),fp0
  124.     fcmp.d    #$.00000000.00000000,fp0
  125.     fboge.b    L335
  126. L334
  127.     fmove.d    #$.00000000.00000000,fp0
  128.     bra.b    L339
  129. L335
  130.     lea    4(a0),a2
  131.     fmove.s    (a2),fp0
  132.     fcmp.d    #$.3FF00000.00000000,fp0
  133.     fbole.b    L337
  134. L336
  135.     fmove.d    #$.3FF00000.00000000,fp0
  136.     bra.b    L339
  137. L337
  138.     lea    4(a0),a2
  139.     fmove.s    (a2),fp0
  140. L338
  141. L339
  142.     move.l    a1,a2
  143.     add.l    #$D744,a2
  144.     lea    (a2),a2
  145.     addq.w    #4,a2
  146.     fmove.s    fp0,(a2)
  147. ;      ctx->Texture.EnvColor[2] = CLAMP( param[2], 0.0, 1.0 );
  148.     lea    $8(a0),a2
  149.     fmove.s    (a2),fp0
  150.     fcmp.d    #$.00000000.00000000,fp0
  151.     fboge.b    L341
  152. L340
  153.     fmove.d    #$.00000000.00000000,fp0
  154.     bra.b    L345
  155. L341
  156.     lea    $8(a0),a2
  157.     fmove.s    (a2),fp0
  158.     fcmp.d    #$.3FF00000.00000000,fp0
  159.     fbole.b    L343
  160. L342
  161.     fmove.d    #$.3FF00000.00000000,fp0
  162.     bra.b    L345
  163. L343
  164.     lea    $8(a0),a2
  165.     fmove.s    (a2),fp0
  166. L344
  167. L345
  168.     move.l    a1,a2
  169.     add.l    #$D744,a2
  170.     lea    (a2),a2
  171.     addq.w    #$8,a2
  172.     fmove.s    fp0,(a2)
  173. ;      ctx->Texture.EnvColor[3] = CLAMP( param[3], 0.0, 1.0 );
  174.     lea    $C(a0),a2
  175.     fmove.s    (a2),fp0
  176.     fcmp.d    #$.00000000.00000000,fp0
  177.     fboge.b    L347
  178. L346
  179.     fmove.d    #$.00000000.00000000,fp0
  180.     bra.b    L351
  181. L347
  182.     lea    $C(a0),a2
  183.     fmove.s    (a2),fp0
  184.     fcmp.d    #$.3FF00000.00000000,fp0
  185.     fbole.b    L349
  186. L348
  187.     fmove.d    #$.3FF00000.00000000,fp0
  188.     bra.b    L351
  189. L349
  190.     lea    $C(a0),a2
  191.     fmove.s    (a2),fp0
  192. L350
  193. L351
  194.     move.l    a1,a2
  195.     add.l    #$D744,a2
  196.     lea    (a2),a2
  197.     add.w    #$C,a2
  198.     fmove.s    fp0,(a2)
  199.     bra.b    L353
  200. L352
  201. ;      gl_error( ctx, GL_INVALID_ENUM, "glTexEnv(pname)" );
  202.     move.l    #L316,-(a7)
  203.     pea    $500.w
  204.     move.l    a1,-(a7)
  205.     jsr    _gl_error
  206.     add.w    #$C,a7
  207.     movem.l    (a7)+,d2/a2
  208.     rts
  209. L353
  210. ;   if (ctx->Driver.TexEnv) 
  211.     lea    $8A0(a1),a2
  212.     move.l    $B8(a2),a2
  213.     cmp.w    #0,a2
  214.     beq.b    L355
  215. L354
  216. ;      (*ctx->Driver.TexEnv)( ctx, pname, param );
  217.     move.l    a0,-(a7)
  218.     move.l    d1,-(a7)
  219.     move.l    a1,-(a7)
  220.     lea    $8A0(a1),a0
  221.     move.l    $B8(a0),a0
  222.     jsr    (a0)
  223.     add.w    #$C,a7
  224. L355
  225.     movem.l    (a7)+,d2/a2
  226.     rts
  227.  
  228. L313
  229.     dc.b    'glTexEnv',0
  230. L315
  231.     dc.b    'glTexEnv(param)',0
  232. L316
  233.     dc.b    'glTexEnv(pname)',0
  234. L314
  235.     dc.b    'glTexEnv(target)',0
  236.  
  237.     SECTION "_gl_GetTexEnvfv:0",CODE
  238.  
  239.     rts
  240.  
  241. ;void gl_GetTexEnvfv( GLcontext *ctx,
  242.     XDEF    _gl_GetTexEnvfv
  243. _gl_GetTexEnvfv
  244.     move.l    a2,-(a7)
  245.     movem.l    $10(a7),d0/a1
  246.     move.l    $C(a7),d1
  247.     move.l    $8(a7),a0
  248. L359
  249. ;   if (target!=GL_TEXTURE_ENV) 
  250.     cmp.l    #$2300,d1
  251.     beq.b    L361
  252. L360
  253. ;      gl_error( ctx, GL_INVALID_ENUM, "glGetTexEnvfv(target)" )
  254.     move.l    #L357,-(a7)
  255.     pea    $500.w
  256.     move.l    a0,-(a7)
  257.     jsr    _gl_error
  258.     add.w    #$C,a7
  259.     move.l    (a7)+,a2
  260.     rts
  261. L361
  262. ;   switch (pname)
  263.     cmp.l    #$2200,d0
  264.     beq.b    L362
  265.     cmp.l    #$2201,d0
  266.     beq.b    L363
  267.     bra.b    L364
  268. ;      
  269. L362
  270. ;     *params = BOOL_TO_FLOAT( ctx->Texture.EnvMode );
  271.     add.l    #$D73C,a0
  272.     lea    (a0),a0
  273.     move.l    4(a0),d0
  274.     fmove.l    d0,fp0
  275.     fmove.s    fp0,(a1)
  276. ;     
  277.     bra.b    L365
  278. L363
  279. ;     COPY_4V( params, ctx->Tex
  280.     move.l    a0,a2
  281.     add.l    #$D744,a2
  282.     lea    (a2),a2
  283.     fmove.s    (a2),fp0
  284.     fmove.s    fp0,(a1)
  285. ;     COPY_4V( params, ctx->Tex
  286.     move.l    a0,a2
  287.     add.l    #$D744,a2
  288.     lea    (a2),a2
  289.     addq.w    #4,a2
  290.     fmove.s    (a2),fp0
  291.     lea    4(a1),a2
  292.     fmove.s    fp0,(a2)
  293. ;     COPY_4V( params, ctx->Tex
  294.     move.l    a0,a2
  295.     add.l    #$D744,a2
  296.     lea    (a2),a2
  297.     addq.w    #$8,a2
  298.     fmove.s    (a2),fp0
  299.     lea    $8(a1),a2
  300.     fmove.s    fp0,(a2)
  301. ;     COPY_4V( params, ctx->Tex
  302.     add.l    #$D744,a0
  303.     lea    (a0),a0
  304.     add.w    #$C,a0
  305.     fmove.s    (a0),fp0
  306.     lea    $C(a1),a0
  307.     fmove.s    fp0,(a0)
  308. ;     
  309.     bra.b    L365
  310. L364
  311. ;     gl_error( ctx, GL_INVALID_ENUM, "glGetTexEnvfv(pname)" );
  312.     move.l    #L358,-(a7)
  313.     pea    $500.w
  314.     move.l    a0,-(a7)
  315.     jsr    _gl_error
  316.     add.w    #$C,a7
  317. L365
  318.     move.l    (a7)+,a2
  319.     rts
  320.  
  321. L358
  322.     dc.b    'glGetTexEnvfv(pname)',0
  323. L357
  324.     dc.b    'glGetTexEnvfv(target)',0
  325.  
  326.     SECTION "_gl_GetTexEnviv:0",CODE
  327.  
  328.  
  329. ;void gl_GetTexEnviv( GLcontext *ctx,
  330.     XDEF    _gl_GetTexEnviv
  331. _gl_GetTexEnviv
  332.     move.l    a2,-(a7)
  333.     movem.l    $10(a7),d0/a1
  334.     move.l    $C(a7),d1
  335.     move.l    $8(a7),a0
  336. L368
  337. ;   if (target!=GL_TEXTURE_ENV) 
  338.     cmp.l    #$2300,d1
  339.     beq.b    L370
  340. L369
  341. ;      gl_error( ctx, GL_INVALID_ENUM, "glGetTexEnvfv(target)" )
  342.     move.l    #L366,-(a7)
  343.     pea    $500.w
  344.     move.l    a0,-(a7)
  345.     jsr    _gl_error
  346.     add.w    #$C,a7
  347.     move.l    (a7)+,a2
  348.     rts
  349. L370
  350. ;   switch (pname)
  351.     cmp.l    #$2200,d0
  352.     beq.b    L371
  353.     cmp.l    #$2201,d0
  354.     beq.b    L372
  355.     bra    L373
  356. ;      
  357. L371
  358. ;     *params = (GLint) ctx->Texture.EnvMode;
  359.     add.l    #$D73C,a0
  360.     lea    (a0),a0
  361.     move.l    4(a0),d0
  362.     move.l    d0,(a1)
  363. ;     
  364.     bra    L374
  365. L372
  366. ;     params[0] = FLOAT_TO_INT( ctx->Texture.EnvColor[0] );
  367.     move.l    a0,a2
  368.     add.l    #$D744,a2
  369.     lea    (a2),a2
  370.     fmove.s    (a2),fp0
  371.     fmul.d    #$.41DFFFFF.FFC00000,fp0
  372.     fmove.l    fp0,d0
  373.     move.l    d0,(a1)
  374. ;     params[1] = FLOAT_TO_INT( ctx->Texture.EnvColor[1] );
  375.     move.l    a0,a2
  376.     add.l    #$D744,a2
  377.     lea    (a2),a2
  378.     addq.w    #4,a2
  379.     fmove.s    (a2),fp0
  380.     fmul.d    #$.41DFFFFF.FFC00000,fp0
  381.     fmove.l    fp0,d0
  382.     lea    4(a1),a2
  383.     move.l    d0,(a2)
  384. ;     params[2] = FLOAT_TO_INT( ctx->Texture.EnvColor[2] );
  385.     move.l    a0,a2
  386.     add.l    #$D744,a2
  387.     lea    (a2),a2
  388.     addq.w    #$8,a2
  389.     fmove.s    (a2),fp0
  390.     fmul.d    #$.41DFFFFF.FFC00000,fp0
  391.     fmove.l    fp0,d0
  392.     lea    $8(a1),a2
  393.     move.l    d0,(a2)
  394. ;     params[3] = FLOAT_TO_INT( ctx->Texture.EnvColor[3] );
  395.     add.l    #$D744,a0
  396.     lea    (a0),a0
  397.     add.w    #$C,a0
  398.     fmove.s    (a0),fp0
  399.     fmul.d    #$.41DFFFFF.FFC00000,fp0
  400.     fmove.l    fp0,d0
  401.     lea    $C(a1),a0
  402.     move.l    d0,(a0)
  403. ;     
  404.     bra.b    L374
  405. L373
  406. ;     gl_error( ctx, GL_INVALID_ENUM, "glGetTexEnvfv(pname)" );
  407.     move.l    #L367,-(a7)
  408.     pea    $500.w
  409.     move.l    a0,-(a7)
  410.     jsr    _gl_error
  411.     add.w    #$C,a7
  412. L374
  413.     move.l    (a7)+,a2
  414.     rts
  415.  
  416. L367
  417.     dc.b    'glGetTexEnvfv(pname)',0
  418. L366
  419.     dc.b    'glGetTexEnvfv(target)',0
  420.  
  421.     SECTION "_gl_TexParameterfv:0",CODE
  422.  
  423.  
  424. ;void gl_TexParameterfv( GLcontext *ctx,
  425.     XDEF    _gl_TexParameterfv
  426. _gl_TexParameterfv
  427. L442    EQU    -$14
  428.     link    a5,#L442
  429.     movem.l    d2/d3/a2,-(a7)
  430.     move.l    $10(a5),d2
  431.     move.l    $C(a5),d3
  432.     move.l    $8(a5),a2
  433. L378
  434. ;   GLenum eparam = (GLenum) (GLint) params[0];
  435.     move.l    $14(a5),a0
  436.     fmove.s    (a0),fp0
  437.     fmove.l    fp0,d0
  438. ;   switch (target)
  439.     move.l    d3,d1
  440.     cmp.l    #$DE1,d1
  441.     beq.b    L380
  442.     bgt.b    L443
  443.     cmp.l    #$DE0,d1
  444.     beq.b    L379
  445.     bra.b    L382
  446. L443
  447.     cmp.l    #$806F,d1
  448.     beq.b    L381
  449.     bra.b    L382
  450. ;      
  451. L379
  452. ;     texObj = ctx->Texture.Current1D;
  453.     move.l    a2,a0
  454.     add.l    #$D73C,a0
  455.     lea    (a0),a0
  456.     move.l    $AC(a0),-$8(a5)
  457. ;     
  458.     bra.b    L383
  459. L380
  460. ;     texObj = ctx->Texture.Current2D;
  461.     move.l    a2,a0
  462.     add.l    #$D73C,a0
  463.     lea    (a0),a0
  464.     move.l    $B0(a0),-$8(a5)
  465. ;     
  466.     bra.b    L383
  467. L381
  468. ;     texObj = ctx->Texture.Current3D;
  469.     move.l    a2,a0
  470.     add.l    #$D73C,a0
  471.     lea    (a0),a0
  472.     move.l    $B4(a0),-$8(a5)
  473. ;     
  474.     bra.b    L383
  475. L382
  476. ;     gl_error( ctx, GL_INVALID_ENUM, "glTexParameter(target)" );
  477.     move.l    #L375,-(a7)
  478.     pea    $500.w
  479.     move.l    a2,-(a7)
  480.     jsr    _gl_error
  481.     add.w    #$C,a7
  482.     movem.l    (a7)+,d2/d3/a2
  483.     unlk    a5
  484.     rts
  485. L383
  486. ;     return;
  487. ;   switch (pname)
  488.     move.l    d2,d1
  489.     cmp.l    #$2802,d1
  490.     beq    L398
  491.     bgt.b    L444
  492.     cmp.l    #$2800,d1
  493.     beq    L393
  494.     bgt.b    L445
  495.     cmp.l    #$1004,d1
  496.     beq    L413
  497.     bra    L438
  498. L445
  499.     bgt.b    L384
  500. L444
  501.     cmp.l    #$2803,d1
  502.     beq    L403
  503.     cmp.l    #$8072,d1
  504.     beq    L408
  505.     bra    L438
  506. ;      
  507. L384
  508. ;     if (eparam==GL_NEAREST || eparam==GL_LINEAR
  509.     cmp.l    #$2600,d0
  510.     beq.b    L390
  511. L385
  512.     cmp.l    #$2601,d0
  513.     beq.b    L390
  514. L386
  515.     cmp.l    #$2700,d0
  516.     beq.b    L390
  517. L387
  518.     cmp.l    #$2701,d0
  519.     beq.b    L390
  520. L388
  521.     cmp.l    #$2702,d0
  522.     beq.b    L390
  523. L389
  524.     cmp.l    #$2703,d0
  525.     bne.b    L391
  526. L390
  527. ;        texObj->MinFilter = eparam;
  528.     move.l    -$8(a5),a0
  529.     move.l    d0,$2C(a0)
  530. ;        ctx->NewState |= NEW_TEXTURING;
  531.     move.l    a2,a0
  532.     add.l    #$E082,a0
  533.     move.l    (a0),d0
  534.     or.l    #4,d0
  535.     move.l    a2,a0
  536.     add.l    #$E082,a0
  537.     move.l    d0,(a0)
  538.     bra.b    L392
  539. L391
  540. ;        gl_error( ctx, GL_INVALID_VALUE, "glTexParameter(param)" );
  541.     move.l    #L376,-(a7)
  542.     pea    $501.w
  543.     move.l    a2,-(a7)
  544.     jsr    _gl_error
  545.     add.w    #$C,a7
  546.     movem.l    (a7)+,d2/d3/a2
  547.     unlk    a5
  548.     rts
  549. L392
  550. ;     
  551.     bra    L439
  552. L393
  553. ;     if (eparam==GL_NEAREST || eparam==GL_LINEAR) 
  554.     cmp.l    #$2600,d0
  555.     beq.b    L395
  556. L394
  557.     cmp.l    #$2601,d0
  558.     bne.b    L396
  559. L395
  560. ;        texObj->MagFilter = eparam;
  561.     move.l    -$8(a5),a0
  562.     move.l    d0,$30(a0)
  563. ;        ctx->NewState |= NEW_TEXTURING;
  564.     move.l    a2,a0
  565.     add.l    #$E082,a0
  566.     move.l    (a0),d0
  567.     or.l    #4,d0
  568.     move.l    a2,a0
  569.     add.l    #$E082,a0
  570.     move.l    d0,(a0)
  571.     bra.b    L397
  572. L396
  573. ;        gl_error( ctx, GL_INVALID_VALUE, "glTexParameter(param)" );
  574.     move.l    #L376,-(a7)
  575.     pea    $501.w
  576.     move.l    a2,-(a7)
  577.     jsr    _gl_error
  578.     add.w    #$C,a7
  579.     movem.l    (a7)+,d2/d3/a2
  580.     unlk    a5
  581.     rts
  582. L397
  583. ;     
  584.     bra    L439
  585. L398
  586. ;     if (eparam==GL_CLAMP || eparam==GL_REPEAT) 
  587.     cmp.l    #$2900,d0
  588.     beq.b    L400
  589. L399
  590.     cmp.l    #$2901,d0
  591.     bne.b    L401
  592. L400
  593. ;        texObj->WrapS = eparam;
  594.     move.l    -$8(a5),a0
  595.     move.l    d0,$20(a0)
  596.     bra.b    L402
  597. L401
  598. ;        gl_error( ctx, GL_INVALID_VALUE, "glTexParameter(param)" );
  599.     move.l    #L376,-(a7)
  600.     pea    $501.w
  601.     move.l    a2,-(a7)
  602.     jsr    _gl_error
  603.     add.w    #$C,a7
  604.     movem.l    (a7)+,d2/d3/a2
  605.     unlk    a5
  606.     rts
  607. L402
  608. ;     
  609.     bra    L439
  610. L403
  611. ;     if (eparam==GL_CLAMP || eparam==GL_REPEAT) 
  612.     cmp.l    #$2900,d0
  613.     beq.b    L405
  614. L404
  615.     cmp.l    #$2901,d0
  616.     bne.b    L406
  617. L405
  618. ;        texObj->WrapT = eparam;
  619.     move.l    -$8(a5),a0
  620.     move.l    d0,$24(a0)
  621.     bra.b    L407
  622. L406
  623. ;        gl_error( ctx, GL_INVALID_VALUE, "glTexParameter(param)" );
  624.     move.l    #L376,-(a7)
  625.     pea    $501.w
  626.     move.l    a2,-(a7)
  627.     jsr    _gl_error
  628.     add.w    #$C,a7
  629.     movem.l    (a7)+,d2/d3/a2
  630.     unlk    a5
  631.     rts
  632. L407
  633. ;     
  634.     bra    L439
  635. L408
  636. ;     if (eparam==GL_CLAMP || eparam==GL_REPEAT) 
  637.     cmp.l    #$2900,d0
  638.     beq.b    L410
  639. L409
  640.     cmp.l    #$2901,d0
  641.     bne.b    L411
  642. L410
  643. ;        texObj->WrapR = eparam;
  644.     move.l    -$8(a5),a0
  645.     move.l    d0,$28(a0)
  646.     bra.b    L412
  647. L411
  648. ;        gl_error( ctx, GL_INVALID_VALUE, "glTexParameter(param)" );
  649.     move.l    #L376,-(a7)
  650.     pea    $501.w
  651.     move.l    a2,-(a7)
  652.     jsr    _gl_error
  653.     add.w    #$C,a7
  654. L412
  655. ;     
  656.     bra    L439
  657. L413
  658. ;     texObj->BorderColor[0] = CLAMP((GLint)(params[0]*255.0), 0, 255);
  659.     move.l    $14(a5),a0
  660.     fmove.s    (a0),fp0
  661.     fmul.d    #$.406FE000.00000000,fp0
  662.     fmove.l    fp0,d0
  663.     tst.l    d0
  664.     bpl.b    L415
  665. L414
  666.     moveq    #0,d0
  667.     bra.b    L419
  668. L415
  669.     move.l    $14(a5),a0
  670.     fmove.s    (a0),fp0
  671.     fmul.d    #$.406FE000.00000000,fp0
  672.     fmove.l    fp0,d0
  673.     cmp.l    #$FF,d0
  674.     ble.b    L417
  675. L416
  676.     move.l    #$FF,d0
  677.     bra.b    L418
  678. L417
  679.     move.l    $14(a5),a0
  680.     fmove.s    (a0),fp0
  681.     fmul.d    #$.406FE000.00000000,fp0
  682.     fmove.l    fp0,d0
  683. L418
  684. L419
  685.     move.l    -$8(a5),a1
  686.     lea    $10(a1),a0
  687.     move.l    d0,(a0)
  688. ;     texObj->BorderColor[1] = CLAMP((GLint)(params[1]*255.0), 0, 255);
  689.     move.l    $14(a5),a1
  690.     lea    4(a1),a0
  691.     fmove.s    (a0),fp0
  692.     fmul.d    #$.406FE000.00000000,fp0
  693.     fmove.l    fp0,d0
  694.     tst.l    d0
  695.     bpl.b    L421
  696. L420
  697.     moveq    #0,d0
  698.     bra.b    L425
  699. L421
  700.     move.l    $14(a5),a1
  701.     lea    4(a1),a0
  702.     fmove.s    (a0),fp0
  703.     fmul.d    #$.406FE000.00000000,fp0
  704.     fmove.l    fp0,d0
  705.     cmp.l    #$FF,d0
  706.     ble.b    L423
  707. L422
  708.     move.l    #$FF,d0
  709.     bra.b    L424
  710. L423
  711.     move.l    $14(a5),a1
  712.     lea    4(a1),a0
  713.     fmove.s    (a0),fp0
  714.     fmul.d    #$.406FE000.00000000,fp0
  715.     fmove.l    fp0,d0
  716. L424
  717. L425
  718.     move.l    -$8(a5),a1
  719.     lea    $10(a1),a0
  720.     addq.w    #4,a0
  721.     move.l    d0,(a0)
  722. ;     texObj->BorderColor[2] = CLAMP((GLint)(params[2]*255.0), 0, 255);
  723.     move.l    $14(a5),a1
  724.     lea    $8(a1),a0
  725.     fmove.s    (a0),fp0
  726.     fmul.d    #$.406FE000.00000000,fp0
  727.     fmove.l    fp0,d0
  728.     tst.l    d0
  729.     bpl.b    L427
  730. L426
  731.     moveq    #0,d0
  732.     bra.b    L431
  733. L427
  734.     move.l    $14(a5),a1
  735.     lea    $8(a1),a0
  736.     fmove.s    (a0),fp0
  737.     fmul.d    #$.406FE000.00000000,fp0
  738.     fmove.l    fp0,d0
  739.     cmp.l    #$FF,d0
  740.     ble.b    L429
  741. L428
  742.     move.l    #$FF,d0
  743.     bra.b    L430
  744. L429
  745.     move.l    $14(a5),a1
  746.     lea    $8(a1),a0
  747.     fmove.s    (a0),fp0
  748.     fmul.d    #$.406FE000.00000000,fp0
  749.     fmove.l    fp0,d0
  750. L430
  751. L431
  752.     move.l    -$8(a5),a1
  753.     lea    $10(a1),a0
  754.     addq.w    #$8,a0
  755.     move.l    d0,(a0)
  756. ;     texObj->BorderColor[3] = CLAMP((GLint)(params[3]*255.0), 0, 255);
  757.     move.l    $14(a5),a1
  758.     lea    $C(a1),a0
  759.     fmove.s    (a0),fp0
  760.     fmul.d    #$.406FE000.00000000,fp0
  761.     fmove.l    fp0,d0
  762.     tst.l    d0
  763.     bpl.b    L433
  764. L432
  765.     moveq    #0,d0
  766.     bra.b    L437
  767. L433
  768.     move.l    $14(a5),a1
  769.     lea    $C(a1),a0
  770.     fmove.s    (a0),fp0
  771.     fmul.d    #$.406FE000.00000000,fp0
  772.     fmove.l    fp0,d0
  773.     cmp.l    #$FF,d0
  774.     ble.b    L435
  775. L434
  776.     move.l    #$FF,d0
  777.     bra.b    L436
  778. L435
  779.     move.l    $14(a5),a1
  780.     lea    $C(a1),a0
  781.     fmove.s    (a0),fp0
  782.     fmul.d    #$.406FE000.00000000,fp0
  783.     fmove.l    fp0,d0
  784. L436
  785. L437
  786.     move.l    -$8(a5),a1
  787.     lea    $10(a1),a0
  788.     add.w    #$C,a0
  789.     move.l    d0,(a0)
  790. ;     
  791.     bra.b    L439
  792. L438
  793. ;     gl_error( ctx, GL_INVALID_ENUM, "glTexParameter(pname)" );
  794.     move.l    #L377,-(a7)
  795.     pea    $500.w
  796.     move.l    a2,-(a7)
  797.     jsr    _gl_error
  798.     add.w    #$C,a7
  799.     movem.l    (a7)+,d2/d3/a2
  800.     unlk    a5
  801.     rts
  802. L439
  803. ;     return;
  804. ;   texObj->Dirty = GL_TRUE;
  805.     move.l    -$8(a5),a0
  806.     move.b    #1,$470(a0)
  807. ;   if (ctx->Driver.TexParameter) 
  808.     lea    $8A0(a2),a0
  809.     move.l    $C0(a0),a0
  810.     cmp.w    #0,a0
  811.     beq.b    L441
  812. L440
  813. ;      (*ctx->Driver.TexParameter)( ctx, target, texObj, pname,
  814.     move.l    $14(a5),-(a7)
  815.     move.l    d2,-(a7)
  816.     move.l    -$8(a5),-(a7)
  817.     move.l    d3,-(a7)
  818.     move.l    a2,-(a7)
  819.     lea    $8A0(a2),a0
  820.     move.l    $C0(a0),a0
  821.     jsr    (a0)
  822.     add.w    #$14,a7
  823. L441
  824.     movem.l    (a7)+,d2/d3/a2
  825.     unlk    a5
  826.     rts
  827.  
  828. L376
  829.     dc.b    'glTexParameter(param)',0
  830. L377
  831.     dc.b    'glTexParameter(pname)',0
  832. L375
  833.     dc.b    'glTexParameter(target)',0
  834.  
  835.     SECTION "_gl_GetTexLevelParameterfv:0",CODE
  836.  
  837.  
  838. ;void gl_GetTexLevelParameterfv( GLcontext *ctx, GLenum target, GLint
  839.     XDEF    _gl_GetTexLevelParameterfv
  840. _gl_GetTexLevelParameterfv
  841. L447    EQU    -4
  842.     link    a5,#L447
  843.     movem.l    d2/a2,-(a7)
  844.     movem.l    $C(a5),d0-d2/a2
  845.     move.l    $8(a5),a1
  846. L446
  847. ;   gl_GetTexLevelParameteriv( ctx, target, level, pname, &iparam )
  848.     lea    -4(a5),a0
  849.     move.l    a0,-(a7)
  850.     move.l    d2,-(a7)
  851.     move.l    d1,-(a7)
  852.     move.l    d0,-(a7)
  853.     move.l    a1,-(a7)
  854.     jsr    _gl_GetTexLevelParameteriv
  855.     add.w    #$14,a7
  856. ;   *params = (GLfloat) iparam;
  857.     fmove.l    -4(a5),fp0
  858.     fmove.s    fp0,(a2)
  859.     movem.l    (a7)+,d2/a2
  860.     unlk    a5
  861.     rts
  862.  
  863.     SECTION "_gl_GetTexLevelParameteriv:0",CODE
  864.  
  865.  
  866. ;void gl_GetTexLevelParameteriv( GLcontext *ctx, GLenum target, GLint
  867.     XDEF    _gl_GetTexLevelParameteriv
  868. _gl_GetTexLevelParameteriv
  869.     movem.l    d2/a2/a3,-(a7)
  870.     movem.l    $18(a7),d0/d1/a0
  871.     move.l    $14(a7),d2
  872.     move.l    $10(a7),a2
  873. L451
  874. ;   if (level<0 || level>=MAX_TEXTURE_LEVELS) 
  875.     tst.l    d0
  876.     bmi.b    L453
  877. L452
  878.     cmp.l    #$B,d0
  879.     blt.b    L454
  880. L453
  881. ;      gl_error( ctx, GL_INVALID_VALUE, "glGetTexLevelParameter
  882.     move.l    #L448,-(a7)
  883.     pea    $501.w
  884.     move.l    a2,-(a7)
  885.     jsr    _gl_error
  886.     add.w    #$C,a7
  887.     movem.l    (a7)+,d2/a2/a3
  888.     rts
  889. L454
  890. ;   switch (target)
  891.     cmp.l    #$8064,d2
  892.     beq    L489
  893.     bgt.b    L510
  894.     cmp.l    #$DE1,d2
  895.     beq    L463
  896.     bgt.b    L511
  897.     cmp.l    #$DE0,d2
  898.     beq.b    L455
  899.     bra    L508
  900. L511
  901.     cmp.l    #$8063,d2
  902.     beq    L481
  903.     bra    L508
  904. L510
  905.     cmp.l    #$806F,d2
  906.     beq    L472
  907.     cmp.l    #$8070,d2
  908.     beq    L498
  909.     bra    L508
  910. ;      
  911. L455
  912. ;     tex = ctx->Texture.Current1D->Image[level];
  913.     move.l    a2,a1
  914.     add.l    #$D73C,a1
  915.     lea    (a1),a1
  916.     move.l    $AC(a1),a1
  917.     add.w    #$38,a1
  918.     lea    0(a1,d0.l*4),a1
  919.     move.l    (a1),a1
  920. ;     switch (pname)
  921.     cmp.l    #$805E,d1
  922.     beq.b    L459
  923.     bgt.b    L512
  924.     cmp.l    #$1005,d1
  925.     beq.b    L458
  926.     bgt.b    L513
  927.     cmp.l    #$1000,d1
  928.     beq.b    L456
  929.     cmp.l    #$1003,d1
  930.     beq.b    L457
  931.     bra.b    L461
  932. L513
  933.     cmp.l    #$805C,d1
  934.     beq.b    L459
  935.     cmp.l    #$805D,d1
  936.     beq.b    L459
  937.     bra.b    L461
  938. L512
  939.     cmp.l    #$8061,d1
  940.     beq.b    L459
  941.     bgt.b    L514
  942.     cmp.l    #$805F,d1
  943.     beq.b    L459
  944.     cmp.l    #$8060,d1
  945.     beq.b    L459
  946.     bra.b    L461
  947. L514
  948.     cmp.l    #$80E1,d1
  949.     beq.b    L460
  950.     bra.b    L461
  951. ;        
  952. L456
  953. ;           *params = tex->Width;
  954.     move.l    $C(a1),d0
  955.     move.l    d0,(a0)
  956. ;           
  957.     bra.b    L462
  958. L457
  959. ;           *params = tex->Format;
  960.     move.l    (a1),d0
  961.     move.l    d0,(a0)
  962. ;           
  963.     bra.b    L462
  964. L458
  965. ;           *params = tex->Border;
  966.     move.l    $8(a1),d0
  967.     move.l    d0,(a0)
  968. ;           
  969.     bra.b    L462
  970. L459
  971. ;           *params = 8;
  972.     move.l    #$8,(a0)
  973. ;           
  974.     bra.b    L462
  975. L460
  976. ;           *params = 8;
  977.     move.l    #$8,(a0)
  978. ;           
  979.     bra.b    L462
  980. L461
  981. ;           gl_error( ctx, GL_INVALID_ENUM,
  982.     move.l    #L449,-(a7)
  983.     pea    $500.w
  984.     move.l    a2,-(a7)
  985.     jsr    _gl_error
  986.     add.w    #$C,a7
  987. L462
  988. ;     
  989.     bra    L509
  990. L463
  991. ;     tex = ctx->Texture.Current2D->Image[level];
  992.     move.l    a2,a1
  993.     add.l    #$D73C,a1
  994.     lea    (a1),a1
  995.     move.l    $B0(a1),a1
  996.     add.w    #$38,a1
  997.     lea    0(a1,d0.l*4),a1
  998.     move.l    (a1),a1
  999. ;     switch (pname)
  1000.     cmp.l    #$805D,d1
  1001.     beq    L468
  1002.     bgt.b    L515
  1003.     cmp.l    #$1003,d1
  1004.     beq    L466
  1005.     bgt.b    L516
  1006.     cmp.l    #$1000,d1
  1007.     beq.b    L464
  1008.     cmp.l    #$1001,d1
  1009.     beq.b    L465
  1010.     bra    L470
  1011. L516
  1012.     cmp.l    #$1005,d1
  1013.     beq.b    L467
  1014.     cmp.l    #$805C,d1
  1015.     beq.b    L468
  1016.     bra.b    L470
  1017. L515
  1018.     cmp.l    #$8060,d1
  1019.     beq.b    L468
  1020.     bgt.b    L517
  1021.     cmp.l    #$805E,d1
  1022.     beq.b    L468
  1023.     cmp.l    #$805F,d1
  1024.     beq.b    L468
  1025.     bra.b    L470
  1026. L517
  1027.     cmp.l    #$8061,d1
  1028.     beq.b    L468
  1029.     cmp.l    #$80E1,d1
  1030.     beq.b    L469
  1031.     bra.b    L470
  1032. ;        
  1033. L464
  1034. ;           *params = tex->Width;
  1035.     move.l    $C(a1),d0
  1036.     move.l    d0,(a0)
  1037. ;           
  1038.     bra.b    L471
  1039. L465
  1040. ;           *params = tex->Height;
  1041.     move.l    $10(a1),d0
  1042.     move.l    d0,(a0)
  1043. ;           
  1044.     bra.b    L471
  1045. L466
  1046. ;           *params = tex->Format;
  1047.     move.l    (a1),d0
  1048.     move.l    d0,(a0)
  1049. ;           
  1050.     bra.b    L471
  1051. L467
  1052. ;           *params = tex->Border;
  1053.     move.l    $8(a1),d0
  1054.     move.l    d0,(a0)
  1055. ;           
  1056.     bra.b    L471
  1057. L468
  1058. ;           *params = 8;
  1059.     move.l    #$8,(a0)
  1060. ;           
  1061.     bra.b    L471
  1062. L469
  1063. ;           *params = 8;
  1064.     move.l    #$8,(a0)
  1065. ;           
  1066.     bra.b    L471
  1067. L470
  1068. ;           gl_error( ctx, GL_INVALID_ENUM,
  1069.     move.l    #L449,-(a7)
  1070.     pea    $500.w
  1071.     move.l    a2,-(a7)
  1072.     jsr    _gl_error
  1073.     add.w    #$C,a7
  1074. L471
  1075. ;     
  1076.     bra    L509
  1077. L472
  1078. ;     tex = ctx->Texture.Current3D->Image[level];
  1079.     move.l    a2,a1
  1080.     add.l    #$D73C,a1
  1081.     lea    (a1),a1
  1082.     move.l    $B4(a1),a1
  1083.     add.w    #$38,a1
  1084.     lea    0(a1,d0.l*4),a1
  1085.     move.l    (a1),a1
  1086. ;     switch (pname)
  1087.     cmp.l    #$1005,d1
  1088.     beq    L477
  1089.     bgt.b    L518
  1090.     cmp.l    #$1001,d1
  1091.     beq.b    L474
  1092.     bgt.b    L519
  1093.     cmp.l    #$1000,d1
  1094.     beq.b    L473
  1095.     bra.b    L479
  1096. L519
  1097.     cmp.l    #$1003,d1
  1098.     beq.b    L476
  1099.     bra.b    L479
  1100. L518
  1101.     cmp.l    #$8071,d1
  1102.     beq.b    L475
  1103.     cmp.l    #$80E1,d1
  1104.     beq.b    L478
  1105.     bra.b    L479
  1106. ;        
  1107. L473
  1108. ;           *params = tex->Width;
  1109.     move.l    $C(a1),d0
  1110.     move.l    d0,(a0)
  1111. ;           
  1112.     bra.b    L480
  1113. L474
  1114. ;           *params = tex->Height;
  1115.     move.l    $10(a1),d0
  1116.     move.l    d0,(a0)
  1117. ;           
  1118.     bra.b    L480
  1119. L475
  1120. ;           *params = tex->Depth;
  1121.     move.l    $14(a1),d0
  1122.     move.l    d0,(a0)
  1123. ;           
  1124.     bra.b    L480
  1125. L476
  1126. ;           *params = tex->Format;
  1127.     move.l    (a1),d0
  1128.     move.l    d0,(a0)
  1129. ;           
  1130.     bra.b    L480
  1131. L477
  1132. ;           *params = tex->Border;
  1133.     move.l    $8(a1),d0
  1134.     move.l    d0,(a0)
  1135. ;           
  1136.     bra.b    L480
  1137. L478
  1138. ;           *params = 8;
  1139.     move.l    #$8,(a0)
  1140. ;           
  1141.     bra.b    L480
  1142. L479
  1143. ;        default:
  1144.     move.l    #L449,-(a7)
  1145.     pea    $500.w
  1146.     move.l    a2,-(a7)
  1147.     jsr    _gl_error
  1148.     add.w    #$C,a7
  1149. L480
  1150. ;     
  1151.     bra    L509
  1152. L481
  1153. ;     tex = ctx->Texture.Proxy1D->Image[level];
  1154.     move.l    a2,a1
  1155.     add.l    #$D73C,a1
  1156.     lea    (a1),a1
  1157.     move.l    $BC(a1),a1
  1158.     add.w    #$38,a1
  1159.     lea    0(a1,d0.l*4),a1
  1160.     move.l    (a1),a1
  1161. ;     switch (pname)
  1162.     cmp.l    #$805E,d1
  1163.     beq    L485
  1164.     bgt.b    L520
  1165.     cmp.l    #$1005,d1
  1166.     beq    L484
  1167.     bgt.b    L521
  1168.     cmp.l    #$1000,d1
  1169.     beq    L482
  1170.     cmp.l    #$1003,d1
  1171.     beq    L483
  1172.     bra    L487
  1173. L521
  1174.     cmp.l    #$805C,d1
  1175.     beq    L485
  1176.     cmp.l    #$805D,d1
  1177.     beq    L485
  1178.     bra    L487
  1179. L520
  1180.     cmp.l    #$8061,d1
  1181.     beq.b    L485
  1182.     bgt.b    L522
  1183.     cmp.l    #$805F,d1
  1184.     beq.b    L485
  1185.     cmp.l    #$8060,d1
  1186.     beq.b    L485
  1187.     bra.b    L487
  1188. L522
  1189.     cmp.l    #$80E1,d1
  1190.     beq.b    L486
  1191.     bra.b    L487
  1192. ;        
  1193. L482
  1194. ;           *params = tex->Width;
  1195.     move.l    $C(a1),d0
  1196.     move.l    d0,(a0)
  1197. ;           
  1198.     bra.b    L488
  1199. L483
  1200. ;           *params = tex->Format;
  1201.     move.l    (a1),d0
  1202.     move.l    d0,(a0)
  1203. ;           
  1204.     bra.b    L488
  1205. L484
  1206. ;           *params = tex->Border;
  1207.     move.l    $8(a1),d0
  1208.     move.l    d0,(a0)
  1209. ;           
  1210.     bra.b    L488
  1211. L485
  1212. ;           *params = 8;
  1213.     move.l    #$8,(a0)
  1214. ;           
  1215.     bra.b    L488
  1216. L486
  1217. ;           *params = 8;
  1218.     move.l    #$8,(a0)
  1219. ;           
  1220.     bra.b    L488
  1221. L487
  1222. ;           gl_error( ctx, GL_INVALID_ENUM,
  1223.     move.l    #L449,-(a7)
  1224.     pea    $500.w
  1225.     move.l    a2,-(a7)
  1226.     jsr    _gl_error
  1227.     add.w    #$C,a7
  1228. L488
  1229. ;     
  1230.     bra    L509
  1231. L489
  1232. ;     tex = ctx->Texture.Proxy2D->Image[level];
  1233.     move.l    a2,a1
  1234.     add.l    #$D73C,a1
  1235.     lea    (a1),a1
  1236.     move.l    $C0(a1),a1
  1237.     add.w    #$38,a1
  1238.     lea    0(a1,d0.l*4),a1
  1239.     move.l    (a1),a1
  1240. ;     switch (pname)
  1241.     cmp.l    #$805D,d1
  1242.     beq    L494
  1243.     bgt    L523
  1244.     cmp.l    #$1003,d1
  1245.     beq    L492
  1246.     bgt.b    L524
  1247.     cmp.l    #$1000,d1
  1248.     beq    L490
  1249.     cmp.l    #$1001,d1
  1250.     beq    L491
  1251.     bra    L496
  1252. L524
  1253.     cmp.l    #$1005,d1
  1254.     beq    L493
  1255.     cmp.l    #$805C,d1
  1256.     beq    L494
  1257.     bra    L496
  1258. L523
  1259.     cmp.l    #$8060,d1
  1260.     beq    L494
  1261.     bgt.b    L525
  1262.     cmp.l    #$805E,d1
  1263.     beq    L494
  1264.     cmp.l    #$805F,d1
  1265.     beq    L494
  1266.     bra    L496
  1267. L525
  1268.     cmp.l    #$8061,d1
  1269.     beq.b    L494
  1270.     cmp.l    #$80E1,d1
  1271.     beq.b    L495
  1272.     bra    L496
  1273. ;        
  1274. L490
  1275. ;           *params = tex->Width;
  1276.     move.l    $C(a1),d0
  1277.     move.l    d0,(a0)
  1278. ;           
  1279.     bra    L497
  1280. L491
  1281. ;           *params = tex->Height;
  1282.     move.l    $10(a1),d0
  1283.     move.l    d0,(a0)
  1284. ;           
  1285.     bra    L497
  1286. L492
  1287. ;           *params = tex->Format;
  1288.     move.l    (a1),d0
  1289.     move.l    d0,(a0)
  1290. ;           
  1291.     bra.b    L497
  1292. L493
  1293. ;           *params = tex->Border;
  1294.     move.l    $8(a1),d0
  1295.     move.l    d0,(a0)
  1296. ;           
  1297.     bra.b    L497
  1298. L494
  1299. ;           *params = 8;
  1300.     move.l    #$8,(a0)
  1301. ;           
  1302.     bra.b    L497
  1303. L495
  1304. ;           *params = 8;
  1305.     move.l    #$8,(a0)
  1306. ;           
  1307.     bra.b    L497
  1308. L496
  1309. ;           gl_error( ctx, GL_INVALID_ENUM,
  1310.     move.l    #L449,-(a7)
  1311.     pea    $500.w
  1312.     move.l    a2,-(a7)
  1313.     jsr    _gl_error
  1314.     add.w    #$C,a7
  1315. L497
  1316. ;     
  1317.     bra    L509
  1318. L498
  1319. ;     tex = ctx->Texture.Proxy3D->Image[level];
  1320.     move.l    a2,a1
  1321.     add.l    #$D73C,a1
  1322.     lea    (a1),a1
  1323.     move.l    $C4(a1),a1
  1324.     add.w    #$38,a1
  1325.     lea    0(a1,d0.l*4),a1
  1326.     move.l    (a1),a1
  1327. ;     switch (pname)
  1328.     cmp.l    #$805E,d1
  1329.     beq    L504
  1330.     bgt    L526
  1331.     cmp.l    #$1005,d1
  1332.     beq    L503
  1333.     bgt.b    L527
  1334.     cmp.l    #$1001,d1
  1335.     beq    L500
  1336.     bgt.b    L528
  1337.     cmp.l    #$1000,d1
  1338.     beq    L499
  1339.     bra    L506
  1340. L528
  1341.     cmp.l    #$1003,d1
  1342.     beq    L502
  1343.     bra    L506
  1344. L527
  1345.     cmp.l    #$805C,d1
  1346.     beq    L504
  1347.     cmp.l    #$805D,d1
  1348.     beq    L504
  1349.     bra    L506
  1350. L526
  1351.     cmp.l    #$8061,d1
  1352.     beq    L504
  1353.     bgt.b    L529
  1354.     cmp.l    #$805F,d1
  1355.     beq    L504
  1356.     cmp.l    #$8060,d1
  1357.     beq    L504
  1358.     bra    L506
  1359. L529
  1360.     cmp.l    #$8071,d1
  1361.     beq.b    L501
  1362.     cmp.l    #$80E1,d1
  1363.     beq    L505
  1364.     bra    L506
  1365. ;        
  1366. L499
  1367. ;           *params = tex->Width;
  1368.     move.l    $C(a1),d0
  1369.     move.l    d0,(a0)
  1370. ;           
  1371.     bra    L507
  1372. L500
  1373. ;           *params = tex->Height;
  1374.     move.l    $10(a1),d0
  1375.     move.l    d0,(a0)
  1376. ;           
  1377.     bra    L507
  1378. L501
  1379. ;           *params = tex->Depth;
  1380.     move.l    $14(a1),d0
  1381.     move.l    d0,(a0)
  1382. ;           
  1383.     bra    L507
  1384. L502
  1385. ;           *params = tex->Format;
  1386.     move.l    (a1),d0
  1387.     move.l    d0,(a0)
  1388. ;           
  1389.     bra    L507
  1390. L503
  1391. ;           *params = tex->Border;
  1392.     move.l    $8(a1),d0
  1393.     move.l    d0,(a0)
  1394. ;           
  1395.     bra    L507
  1396. L504
  1397. ;           *params = 8;
  1398.     move.l    #$8,(a0)
  1399. ;           
  1400.     bra.b    L507
  1401. L505
  1402. ;           *params = 8;
  1403.     move.l    #$8,(a0)
  1404. ;           
  1405.     bra.b    L507
  1406. L506
  1407. ;           gl_error( ctx, GL_INVALID_ENUM,
  1408.     move.l    #L449,-(a7)
  1409.     pea    $500.w
  1410.     move.l    a2,-(a7)
  1411.     jsr    _gl_error
  1412.     add.w    #$C,a7
  1413. L507
  1414. ;     
  1415.     bra.b    L509
  1416. L508
  1417. ;     gl_error(ctx, GL_INVALID_ENUM, "glGetTexLevelParameter[if]v(targ
  1418.     move.l    #L450,-(a7)
  1419.     pea    $500.w
  1420.     move.l    a2,-(a7)
  1421.     jsr    _gl_error
  1422.     add.w    #$C,a7
  1423. L509
  1424.     movem.l    (a7)+,d2/a2/a3
  1425.     rts
  1426.  
  1427. L448
  1428.     dc.b    'glGetTexLevelParameter[if]v',0
  1429. L449
  1430.     dc.b    'glGetTexLevelParameter[if]v(pname)',0
  1431. L450
  1432.     dc.b    'glGetTexLevelParameter[if]v(target)',0
  1433.  
  1434.     SECTION "_gl_GetTexParameterfv:0",CODE
  1435.  
  1436.  
  1437. ;void gl_GetTexParameterfv( GLcontext *ctx,
  1438.     XDEF    _gl_GetTexParameterfv
  1439. _gl_GetTexParameterfv
  1440.     move.l    a2,-(a7)
  1441.     movem.l    $10(a7),d0/a1
  1442.     move.l    $C(a7),d1
  1443.     move.l    $8(a7),a0
  1444. L532
  1445. ;   switch (target)
  1446.     cmp.l    #$DE1,d1
  1447.     beq    L543
  1448.     bgt.b    L566
  1449.     cmp.l    #$DE0,d1
  1450.     beq.b    L533
  1451.     bra    L564
  1452. L566
  1453.     cmp.l    #$806F,d1
  1454.     beq    L553
  1455.     bra    L564
  1456. ;      
  1457. L533
  1458. ;     switch (pname)
  1459.     cmp.l    #$2802,d0
  1460.     beq    L536
  1461.     bgt.b    L567
  1462.     cmp.l    #$2800,d0
  1463.     beq.b    L534
  1464.     bgt.b    L568
  1465.     cmp.l    #$1004,d0
  1466.     beq    L538
  1467.     bra    L541
  1468. L568
  1469.     bgt.b    L535
  1470. L567
  1471.     cmp.l    #$8066,d0
  1472.     beq    L540
  1473.     bgt.b    L569
  1474.     cmp.l    #$2803,d0
  1475.     beq.b    L537
  1476.     bra    L541
  1477. L569
  1478.     cmp.l    #$8067,d0
  1479.     beq    L539
  1480.     bra    L541
  1481. ;        
  1482. L534
  1483. ;           *params = BOOL_TO_FLOAT( ctx->Texture.Current1D->Mag
  1484.     add.l    #$D73C,a0
  1485.     lea    (a0),a0
  1486.     move.l    $AC(a0),a0
  1487.     move.l    $30(a0),d0
  1488.     fmove.l    d0,fp0
  1489.     fmove.s    fp0,(a1)
  1490. ;           
  1491.     bra    L542
  1492. L535
  1493. ;           *params = BOOL_TO_FLOAT( ctx->Texture.Current1D->Min
  1494.     add.l    #$D73C,a0
  1495.     lea    (a0),a0
  1496.     move.l    $AC(a0),a0
  1497.     move.l    $2C(a0),d0
  1498.     fmove.l    d0,fp0
  1499.     fmove.s    fp0,(a1)
  1500. ;           
  1501.     bra    L542
  1502. L536
  1503. ;           *params = BOOL_TO_FLOAT( ctx->Texture.Current1D->Wra
  1504.     add.l    #$D73C,a0
  1505.     lea    (a0),a0
  1506.     move.l    $AC(a0),a0
  1507.     move.l    $20(a0),d0
  1508.     fmove.l    d0,fp0
  1509.     fmove.s    fp0,(a1)
  1510. ;           
  1511.     bra    L542
  1512. L537
  1513. ;           *params = BOOL_TO_FLOAT( ctx->Texture.Current1D->Wra
  1514.     add.l    #$D73C,a0
  1515.     lea    (a0),a0
  1516.     move.l    $AC(a0),a0
  1517.     move.l    $24(a0),d0
  1518.     fmove.l    d0,fp0
  1519.     fmove.s    fp0,(a1)
  1520. ;           
  1521.     bra    L542
  1522. L538
  1523. ;           params[0] = ctx->Texture.Current1D->BorderColor[0] /
  1524.     move.l    a0,a2
  1525.     add.l    #$D73C,a2
  1526.     lea    (a2),a2
  1527.     move.l    $AC(a2),a2
  1528.     add.w    #$10,a2
  1529.     move.l    (a2),d0
  1530.     fmove.l    d0,fp0
  1531.     fdiv.s    #$.437F0000,fp0
  1532.     fmove.s    fp0,(a1)
  1533. ;           params[1] = ctx->Texture.Current1D->BorderColor[1] /
  1534.     move.l    a0,a2
  1535.     add.l    #$D73C,a2
  1536.     lea    (a2),a2
  1537.     move.l    $AC(a2),a2
  1538.     add.w    #$10,a2
  1539.     addq.w    #4,a2
  1540.     move.l    (a2),d0
  1541.     fmove.l    d0,fp0
  1542.     fdiv.s    #$.437F0000,fp0
  1543.     lea    4(a1),a2
  1544.     fmove.s    fp0,(a2)
  1545. ;           params[2] = ctx->Texture.Current1D->BorderColor[2] /
  1546.     move.l    a0,a2
  1547.     add.l    #$D73C,a2
  1548.     lea    (a2),a2
  1549.     move.l    $AC(a2),a2
  1550.     add.w    #$10,a2
  1551.     addq.w    #$8,a2
  1552.     move.l    (a2),d0
  1553.     fmove.l    d0,fp0
  1554.     fdiv.s    #$.437F0000,fp0
  1555.     lea    $8(a1),a2
  1556.     fmove.s    fp0,(a2)
  1557. ;           params[3] = ctx->Texture.Current1D->BorderColor[3] /
  1558.     add.l    #$D73C,a0
  1559.     lea    (a0),a0
  1560.     move.l    $AC(a0),a0
  1561.     add.w    #$10,a0
  1562.     add.w    #$C,a0
  1563.     move.l    (a0),d0
  1564.     fmove.l    d0,fp0
  1565.     fdiv.s    #$.437F0000,fp0
  1566.     lea    $C(a1),a0
  1567.     fmove.s    fp0,(a0)
  1568. ;           
  1569.     bra.b    L542
  1570. L539
  1571. ;           *params = BOOL_TO_FLOAT( GL_TRUE );
  1572.     move.l    #$3F800000,(a1)
  1573. ;           
  1574.     bra.b    L542
  1575. L540
  1576. ;           *params = ctx->Texture.Current1D->Priority;
  1577.     add.l    #$D73C,a0
  1578.     lea    (a0),a0
  1579.     move.l    $AC(a0),a0
  1580.     fmove.s    $C(a0),fp0
  1581.     fmove.s    fp0,(a1)
  1582. ;           
  1583.     bra.b    L542
  1584. L541
  1585. ;           gl_error( ctx, GL_INVALID_ENUM, "glGetTexParameterfv
  1586.     move.l    #L530,-(a7)
  1587.     pea    $500.w
  1588.     move.l    a0,-(a7)
  1589.     jsr    _gl_error
  1590.     add.w    #$C,a7
  1591. L542
  1592. ;     
  1593.     bra    L565
  1594. L543
  1595. ;     switch (pname)
  1596.     cmp.l    #$2802,d0
  1597.     beq    L546
  1598.     bgt.b    L570
  1599.     cmp.l    #$2800,d0
  1600.     beq.b    L544
  1601.     bgt.b    L571
  1602.     cmp.l    #$1004,d0
  1603.     beq    L548
  1604.     bra    L551
  1605. L571
  1606.     bgt.b    L545
  1607. L570
  1608.     cmp.l    #$8066,d0
  1609.     beq    L550
  1610.     bgt.b    L572
  1611.     cmp.l    #$2803,d0
  1612.     beq.b    L547
  1613.     bra    L551
  1614. L572
  1615.     cmp.l    #$8067,d0
  1616.     beq    L549
  1617.     bra    L551
  1618. ;        
  1619. L544
  1620. ;           *params = BOOL_TO_FLOAT( ctx->Texture.Current2D->Mag
  1621.     add.l    #$D73C,a0
  1622.     lea    (a0),a0
  1623.     move.l    $B0(a0),a0
  1624.     move.l    $30(a0),d0
  1625.     fmove.l    d0,fp0
  1626.     fmove.s    fp0,(a1)
  1627. ;           
  1628.     bra    L552
  1629. L545
  1630. ;           *params = BOOL_TO_FLOAT( ctx->Texture.Current2D->Min
  1631.     add.l    #$D73C,a0
  1632.     lea    (a0),a0
  1633.     move.l    $B0(a0),a0
  1634.     move.l    $2C(a0),d0
  1635.     fmove.l    d0,fp0
  1636.     fmove.s    fp0,(a1)
  1637. ;           
  1638.     bra    L552
  1639. L546
  1640. ;           *params = BOOL_TO_FLOAT( ctx->Texture.Current2D->Wra
  1641.     add.l    #$D73C,a0
  1642.     lea    (a0),a0
  1643.     move.l    $B0(a0),a0
  1644.     move.l    $20(a0),d0
  1645.     fmove.l    d0,fp0
  1646.     fmove.s    fp0,(a1)
  1647. ;           
  1648.     bra    L552
  1649. L547
  1650. ;           *params = BOOL_TO_FLOAT( ctx->Texture.Current2D->Wra
  1651.     add.l    #$D73C,a0
  1652.     lea    (a0),a0
  1653.     move.l    $B0(a0),a0
  1654.     move.l    $24(a0),d0
  1655.     fmove.l    d0,fp0
  1656.     fmove.s    fp0,(a1)
  1657. ;           
  1658.     bra    L552
  1659. L548
  1660. ;           params[0] = ctx->Texture.Current2D->BorderColor[0] /
  1661.     move.l    a0,a2
  1662.     add.l    #$D73C,a2
  1663.     lea    (a2),a2
  1664.     move.l    $B0(a2),a2
  1665.     add.w    #$10,a2
  1666.     move.l    (a2),d0
  1667.     fmove.l    d0,fp0
  1668.     fdiv.s    #$.437F0000,fp0
  1669.     fmove.s    fp0,(a1)
  1670. ;           params[1] = ctx->Texture.Current2D->BorderColor[1] /
  1671.     move.l    a0,a2
  1672.     add.l    #$D73C,a2
  1673.     lea    (a2),a2
  1674.     move.l    $B0(a2),a2
  1675.     add.w    #$10,a2
  1676.     addq.w    #4,a2
  1677.     move.l    (a2),d0
  1678.     fmove.l    d0,fp0
  1679.     fdiv.s    #$.437F0000,fp0
  1680.     lea    4(a1),a2
  1681.     fmove.s    fp0,(a2)
  1682. ;           params[2] = ctx->Texture.Current2D->BorderColor[2] /
  1683.     move.l    a0,a2
  1684.     add.l    #$D73C,a2
  1685.     lea    (a2),a2
  1686.     move.l    $B0(a2),a2
  1687.     add.w    #$10,a2
  1688.     addq.w    #$8,a2
  1689.     move.l    (a2),d0
  1690.     fmove.l    d0,fp0
  1691.     fdiv.s    #$.437F0000,fp0
  1692.     lea    $8(a1),a2
  1693.     fmove.s    fp0,(a2)
  1694. ;           params[3] = ctx->Texture.Current2D->BorderColor[3] /
  1695.     add.l    #$D73C,a0
  1696.     lea    (a0),a0
  1697.     move.l    $B0(a0),a0
  1698.     add.w    #$10,a0
  1699.     add.w    #$C,a0
  1700.     move.l    (a0),d0
  1701.     fmove.l    d0,fp0
  1702.     fdiv.s    #$.437F0000,fp0
  1703.     lea    $C(a1),a0
  1704.     fmove.s    fp0,(a0)
  1705. ;           
  1706.     bra.b    L552
  1707. L549
  1708. ;           *params = BOOL_TO_FLOAT( GL_TRUE );
  1709.     move.l    #$3F800000,(a1)
  1710. ;           
  1711.     bra.b    L552
  1712. L550
  1713. ;           *params = ctx->Texture.Current2D->Priority;
  1714.     add.l    #$D73C,a0
  1715.     lea    (a0),a0
  1716.     move.l    $B0(a0),a0
  1717.     fmove.s    $C(a0),fp0
  1718.     fmove.s    fp0,(a1)
  1719. ;           
  1720.     bra.b    L552
  1721. L551
  1722. ;           gl_error( ctx, GL_INVALID_ENUM, "glGetTexParameterfv
  1723.     move.l    #L530,-(a7)
  1724.     pea    $500.w
  1725.     move.l    a0,-(a7)
  1726.     jsr    _gl_error
  1727.     add.w    #$C,a7
  1728. L552
  1729. ;     
  1730.     bra    L565
  1731. L553
  1732. ;     switch (pname)
  1733.     cmp.l    #$2803,d0
  1734.     beq    L557
  1735.     bgt.b    L573
  1736.     cmp.l    #$2801,d0
  1737.     beq.b    L555
  1738.     bgt.b    L574
  1739.     cmp.l    #$1004,d0
  1740.     beq    L559
  1741.     cmp.l    #$2800,d0
  1742.     beq.b    L554
  1743.     bra    L562
  1744. L574
  1745.     bgt.b    L556
  1746. L573
  1747.     cmp.l    #$8067,d0
  1748.     beq    L560
  1749.     bgt.b    L575
  1750.     cmp.l    #$8066,d0
  1751.     beq    L561
  1752.     bra    L562
  1753. L575
  1754.     cmp.l    #$8072,d0
  1755.     beq    L558
  1756.     bra    L562
  1757. ;        
  1758. L554
  1759. ;           *params = BOOL_TO_FLOAT( ctx->Texture.Current3D->Mag
  1760.     add.l    #$D73C,a0
  1761.     lea    (a0),a0
  1762.     move.l    $B4(a0),a0
  1763.     move.l    $30(a0),d0
  1764.     fmove.l    d0,fp0
  1765.     fmove.s    fp0,(a1)
  1766. ;           
  1767.     bra    L563
  1768. L555
  1769. ;           *params = BOOL_TO_FLOAT( ctx->Texture.Current3D->Min
  1770.     add.l    #$D73C,a0
  1771.     lea    (a0),a0
  1772.     move.l    $B4(a0),a0
  1773.     move.l    $2C(a0),d0
  1774.     fmove.l    d0,fp0
  1775.     fmove.s    fp0,(a1)
  1776. ;           
  1777.     bra    L563
  1778. L556
  1779. ;           *params = BOOL_TO_FLOAT( ctx->Texture.Current3D->Wra
  1780.     add.l    #$D73C,a0
  1781.     lea    (a0),a0
  1782.     move.l    $B4(a0),a0
  1783.     move.l    $20(a0),d0
  1784.     fmove.l    d0,fp0
  1785.     fmove.s    fp0,(a1)
  1786. ;           
  1787.     bra    L563
  1788. L557
  1789. ;           *params = BOOL_TO_FLOAT( ctx->Texture.Current3D->Wra
  1790.     add.l    #$D73C,a0
  1791.     lea    (a0),a0
  1792.     move.l    $B4(a0),a0
  1793.     move.l    $24(a0),d0
  1794.     fmove.l    d0,fp0
  1795.     fmove.s    fp0,(a1)
  1796. ;           
  1797.     bra    L563
  1798. L558
  1799. ;           *params = BOOL_TO_FLOAT( ctx->Texture.Current3D->Wra
  1800.     add.l    #$D73C,a0
  1801.     lea    (a0),a0
  1802.     move.l    $B4(a0),a0
  1803.     move.l    $28(a0),d0
  1804.     fmove.l    d0,fp0
  1805.     fmove.s    fp0,(a1)
  1806. ;           
  1807.     bra    L563
  1808. L559
  1809. ;           params[0] = ctx->Texture.Current3D->BorderColor[0] /
  1810.     move.l    a0,a2
  1811.     add.l    #$D73C,a2
  1812.     lea    (a2),a2
  1813.     move.l    $B4(a2),a2
  1814.     add.w    #$10,a2
  1815.     move.l    (a2),d0
  1816.     fmove.l    d0,fp0
  1817.     fdiv.s    #$.437F0000,fp0
  1818.     fmove.s    fp0,(a1)
  1819. ;           params[1] = ctx->Texture.Current3D->BorderColor[1] /
  1820.     move.l    a0,a2
  1821.     add.l    #$D73C,a2
  1822.     lea    (a2),a2
  1823.     move.l    $B4(a2),a2
  1824.     add.w    #$10,a2
  1825.     addq.w    #4,a2
  1826.     move.l    (a2),d0
  1827.     fmove.l    d0,fp0
  1828.     fdiv.s    #$.437F0000,fp0
  1829.     lea    4(a1),a2
  1830.     fmove.s    fp0,(a2)
  1831. ;           params[2] = ctx->Texture.Current3D->BorderColor[2] /
  1832.     move.l    a0,a2
  1833.     add.l    #$D73C,a2
  1834.     lea    (a2),a2
  1835.     move.l    $B4(a2),a2
  1836.     add.w    #$10,a2
  1837.     addq.w    #$8,a2
  1838.     move.l    (a2),d0
  1839.     fmove.l    d0,fp0
  1840.     fdiv.s    #$.437F0000,fp0
  1841.     lea    $8(a1),a2
  1842.     fmove.s    fp0,(a2)
  1843. ;           params[3] = ctx->Texture.Current3D->BorderColor[3] /
  1844.     add.l    #$D73C,a0
  1845.     lea    (a0),a0
  1846.     move.l    $B4(a0),a0
  1847.     add.w    #$10,a0
  1848.     add.w    #$C,a0
  1849.     move.l    (a0),d0
  1850.     fmove.l    d0,fp0
  1851.     fdiv.s    #$.437F0000,fp0
  1852.     lea    $C(a1),a0
  1853.     fmove.s    fp0,(a0)
  1854. ;           
  1855.     bra.b    L563
  1856. L560
  1857. ;           *params = BOOL_TO_FLOAT( GL_TRUE );
  1858.     move.l    #$3F800000,(a1)
  1859. ;           
  1860.     bra.b    L563
  1861. L561
  1862. ;           *params = ctx->Texture.Current3D->Priority;
  1863.     add.l    #$D73C,a0
  1864.     lea    (a0),a0
  1865.     move.l    $B4(a0),a0
  1866.     fmove.s    $C(a0),fp0
  1867.     fmove.s    fp0,(a1)
  1868. ;           
  1869.     bra.b    L563
  1870. L562
  1871. ;           gl_error( ctx, GL_INVALID_ENUM, "glGetTexParameterfv
  1872.     move.l    #L530,-(a7)
  1873.     pea    $500.w
  1874.     move.l    a0,-(a7)
  1875.     jsr    _gl_error
  1876.     add.w    #$C,a7
  1877. L563
  1878. ;     
  1879.     bra.b    L565
  1880. L564
  1881. ;     gl_error( ctx, GL_INVALID_ENUM, "glGetTexParameterfv(target)" );
  1882.     move.l    #L531,-(a7)
  1883.     pea    $500.w
  1884.     move.l    a0,-(a7)
  1885.     jsr    _gl_error
  1886.     add.w    #$C,a7
  1887. L565
  1888.     move.l    (a7)+,a2
  1889.     rts
  1890.  
  1891. L530
  1892.     dc.b    'glGetTexParameterfv(pname)',0
  1893. L531
  1894.     dc.b    'glGetTexParameterfv(target)',0
  1895.  
  1896.     SECTION "_gl_GetTexParameteriv:0",CODE
  1897.  
  1898.  
  1899. ;void gl_GetTexParameteriv( GLcontext *ctx,
  1900.     XDEF    _gl_GetTexParameteriv
  1901. _gl_GetTexParameteriv
  1902. L612    EQU    -$20
  1903.     link    a5,#L612
  1904.     move.l    a2,-(a7)
  1905.     movem.l    $10(a5),d0/a1
  1906.     move.l    $C(a5),d1
  1907.     move.l    $8(a5),a0
  1908. L578
  1909. ;   switch (target)
  1910.     cmp.l    #$DE1,d1
  1911.     beq    L589
  1912.     bgt.b    L613
  1913.     cmp.l    #$DE0,d1
  1914.     beq.b    L579
  1915.     bra    L610
  1916. L613
  1917.     cmp.l    #$806F,d1
  1918.     beq    L599
  1919.     bra    L610
  1920. ;      
  1921. L579
  1922. ;     switch (pname)
  1923.     cmp.l    #$2802,d0
  1924.     beq.b    L582
  1925.     bgt.b    L614
  1926.     cmp.l    #$2800,d0
  1927.     beq.b    L580
  1928.     bgt.b    L615
  1929.     cmp.l    #$1004,d0
  1930.     beq    L584
  1931.     bra    L587
  1932. L615
  1933.     bgt.b    L581
  1934. L614
  1935.     cmp.l    #$8066,d0
  1936.     beq    L586
  1937.     bgt.b    L616
  1938.     cmp.l    #$2803,d0
  1939.     beq.b    L583
  1940.     bra    L587
  1941. L616
  1942.     cmp.l    #$8067,d0
  1943.     beq    L585
  1944.     bra    L587
  1945. ;        
  1946. L580
  1947. ;           *params = (GLint) ctx->Texture.Current1D->MagFilter;
  1948.     add.l    #$D73C,a0
  1949.     lea    (a0),a0
  1950.     move.l    $AC(a0),a0
  1951.     move.l    $30(a0),d0
  1952.     move.l    d0,(a1)
  1953. ;           
  1954.     bra    L588
  1955. L581
  1956. ;           *params = (GLint) ctx->Texture.Current1D->MinFilter;
  1957.     add.l    #$D73C,a0
  1958.     lea    (a0),a0
  1959.     move.l    $AC(a0),a0
  1960.     move.l    $2C(a0),d0
  1961.     move.l    d0,(a1)
  1962. ;           
  1963.     bra    L588
  1964. L582
  1965. ;           *params = (GLint) ctx->Texture.Current1D->WrapS;
  1966.     add.l    #$D73C,a0
  1967.     lea    (a0),a0
  1968.     move.l    $AC(a0),a0
  1969.     move.l    $20(a0),d0
  1970.     move.l    d0,(a1)
  1971. ;           
  1972.     bra    L588
  1973. L583
  1974. ;           *params = (GLint) ctx->Texture.Current1D->WrapT;
  1975.     add.l    #$D73C,a0
  1976.     lea    (a0),a0
  1977.     move.l    $AC(a0),a0
  1978.     move.l    $24(a0),d0
  1979.     move.l    d0,(a1)
  1980. ;           
  1981.     bra    L588
  1982. L584
  1983. ;          color[0] = ctx->Texture.Current1D->BorderColor[0]/255.0;
  1984.     move.l    a0,a2
  1985.     add.l    #$D73C,a2
  1986.     lea    (a2),a2
  1987.     move.l    $AC(a2),a2
  1988.     add.w    #$10,a2
  1989.     move.l    (a2),d0
  1990.     fmove.l    d0,fp0
  1991.     fdiv.d    #$.406FE000.00000000,fp0
  1992.     lea    -$10(a5),a2
  1993.     fmove.s    fp0,(a2)
  1994. ;          color[1] = ctx->Texture.Current1D->BorderColor[1]/255.0;
  1995.     move.l    a0,a2
  1996.     add.l    #$D73C,a2
  1997.     lea    (a2),a2
  1998.     move.l    $AC(a2),a2
  1999.     add.w    #$10,a2
  2000.     addq.w    #4,a2
  2001.     move.l    (a2),d0
  2002.     fmove.l    d0,fp0
  2003.     fdiv.d    #$.406FE000.00000000,fp0
  2004.     lea    -$10(a5),a2
  2005.     addq.w    #4,a2
  2006.     fmove.s    fp0,(a2)
  2007. ;          color[2] = ctx->Texture.Current1D->BorderColor[2]/255.0;
  2008.     move.l    a0,a2
  2009.     add.l    #$D73C,a2
  2010.     lea    (a2),a2
  2011.     move.l    $AC(a2),a2
  2012.     add.w    #$10,a2
  2013.     addq.w    #$8,a2
  2014.     move.l    (a2),d0
  2015.     fmove.l    d0,fp0
  2016.     fdiv.d    #$.406FE000.00000000,fp0
  2017.     lea    -$10(a5),a2
  2018.     addq.w    #$8,a2
  2019.     fmove.s    fp0,(a2)
  2020. ;          color[3] = ctx->Texture.Current1D->BorderColor[3]/255.0;
  2021.     add.l    #$D73C,a0
  2022.     lea    (a0),a0
  2023.     move.l    $AC(a0),a0
  2024.     add.w    #$10,a0
  2025.     add.w    #$C,a0
  2026.     move.l    (a0),d0
  2027.     fmove.l    d0,fp0
  2028.     fdiv.d    #$.406FE000.00000000,fp0
  2029.     lea    -$10(a5),a0
  2030.     add.w    #$C,a0
  2031.     fmove.s    fp0,(a0)
  2032. ;          params[0] = FLOAT_TO_INT( color[0] );
  2033.     lea    -$10(a5),a0
  2034.     fmove.s    (a0),fp0
  2035.     fmul.d    #$.41DFFFFF.FFC00000,fp0
  2036.     fmove.l    fp0,d0
  2037.     move.l    d0,(a1)
  2038. ;          params[1] = FLOAT_TO_INT( color[1] );
  2039.     lea    -$10(a5),a0
  2040.     addq.w    #4,a0
  2041.     fmove.s    (a0),fp0
  2042.     fmul.d    #$.41DFFFFF.FFC00000,fp0
  2043.     fmove.l    fp0,d0
  2044.     lea    4(a1),a0
  2045.     move.l    d0,(a0)
  2046. ;          params[2] = FLOAT_TO_INT( color[2] );
  2047.     lea    -$10(a5),a0
  2048.     addq.w    #$8,a0
  2049.     fmove.s    (a0),fp0
  2050.     fmul.d    #$.41DFFFFF.FFC00000,fp0
  2051.     fmove.l    fp0,d0
  2052.     lea    $8(a1),a0
  2053.     move.l    d0,(a0)
  2054. ;          params[3] = FLOAT_TO_INT( color[3] );
  2055.     lea    -$10(a5),a0
  2056.     add.w    #$C,a0
  2057.     fmove.s    (a0),fp0
  2058.     fmul.d    #$.41DFFFFF.FFC00000,fp0
  2059.     fmove.l    fp0,d0
  2060.     lea    $C(a1),a0
  2061.     move.l    d0,(a0)
  2062. ;           
  2063.     bra.b    L588
  2064. L585
  2065. ;           *params = (GLint) GL_TRUE;
  2066.     move.l    #1,(a1)
  2067. ;           
  2068.     bra.b    L588
  2069. L586
  2070. ;           *params = (GLint) ctx->Texture.Current1D->Priority;
  2071.     add.l    #$D73C,a0
  2072.     lea    (a0),a0
  2073.     move.l    $AC(a0),a0
  2074.     fmove.s    $C(a0),fp0
  2075.     fmove.l    fp0,d0
  2076.     move.l    d0,(a1)
  2077. ;           
  2078.     bra.b    L588
  2079. L587
  2080. ;           gl_error( ctx, GL_INVALID_ENUM, "glGetTexParameteriv
  2081.     move.l    #L576,-(a7)
  2082.     pea    $500.w
  2083.     move.l    a0,-(a7)
  2084.     jsr    _gl_error
  2085.     add.w    #$C,a7
  2086. L588
  2087. ;     
  2088.     bra    L611
  2089. L589
  2090. ;     switch (pname)
  2091.     cmp.l    #$2802,d0
  2092.     beq.b    L592
  2093.     bgt.b    L617
  2094.     cmp.l    #$2800,d0
  2095.     beq.b    L590
  2096.     bgt.b    L618
  2097.     cmp.l    #$1004,d0
  2098.     beq    L594
  2099.     bra    L597
  2100. L618
  2101.     bgt.b    L591
  2102. L617
  2103.     cmp.l    #$8066,d0
  2104.     beq    L596
  2105.     bgt.b    L619
  2106.     cmp.l    #$2803,d0
  2107.     beq.b    L593
  2108.     bra    L597
  2109. L619
  2110.     cmp.l    #$8067,d0
  2111.     beq    L595
  2112.     bra    L597
  2113. ;        
  2114. L590
  2115. ;           *params = (GLint) ctx->Texture.Current2D->MagFilter;
  2116.     add.l    #$D73C,a0
  2117.     lea    (a0),a0
  2118.     move.l    $B0(a0),a0
  2119.     move.l    $30(a0),d0
  2120.     move.l    d0,(a1)
  2121. ;           
  2122.     bra    L598
  2123. L591
  2124. ;           *params = (GLint) ctx->Texture.Current2D->MinFilter;
  2125.     add.l    #$D73C,a0
  2126.     lea    (a0),a0
  2127.     move.l    $B0(a0),a0
  2128.     move.l    $2C(a0),d0
  2129.     move.l    d0,(a1)
  2130. ;           
  2131.     bra    L598
  2132. L592
  2133. ;           *params = (GLint) ctx->Texture.Current2D->WrapS;
  2134.     add.l    #$D73C,a0
  2135.     lea    (a0),a0
  2136.     move.l    $B0(a0),a0
  2137.     move.l    $20(a0),d0
  2138.     move.l    d0,(a1)
  2139. ;           
  2140.     bra    L598
  2141. L593
  2142. ;           *params = (GLint) ctx->Texture.Current2D->WrapT;
  2143.     add.l    #$D73C,a0
  2144.     lea    (a0),a0
  2145.     move.l    $B0(a0),a0
  2146.     move.l    $24(a0),d0
  2147.     move.l    d0,(a1)
  2148. ;           
  2149.     bra    L598
  2150. L594
  2151. ;          color[0] = ctx->Texture.Current2D->BorderColor[0]/255.0;
  2152.     move.l    a0,a2
  2153.     add.l    #$D73C,a2
  2154.     lea    (a2),a2
  2155.     move.l    $B0(a2),a2
  2156.     add.w    #$10,a2
  2157.     move.l    (a2),d0
  2158.     fmove.l    d0,fp0
  2159.     fdiv.d    #$.406FE000.00000000,fp0
  2160.     lea    -$10(a5),a2
  2161.     fmove.s    fp0,(a2)
  2162. ;          color[1] = ctx->Texture.Current2D->BorderColor[1]/255.0;
  2163.     move.l    a0,a2
  2164.     add.l    #$D73C,a2
  2165.     lea    (a2),a2
  2166.     move.l    $B0(a2),a2
  2167.     add.w    #$10,a2
  2168.     addq.w    #4,a2
  2169.     move.l    (a2),d0
  2170.     fmove.l    d0,fp0
  2171.     fdiv.d    #$.406FE000.00000000,fp0
  2172.     lea    -$10(a5),a2
  2173.     addq.w    #4,a2
  2174.     fmove.s    fp0,(a2)
  2175. ;          color[2] = ctx->Texture.Current2D->BorderColor[2]/255.0;
  2176.     move.l    a0,a2
  2177.     add.l    #$D73C,a2
  2178.     lea    (a2),a2
  2179.     move.l    $B0(a2),a2
  2180.     add.w    #$10,a2
  2181.     addq.w    #$8,a2
  2182.     move.l    (a2),d0
  2183.     fmove.l    d0,fp0
  2184.     fdiv.d    #$.406FE000.00000000,fp0
  2185.     lea    -$10(a5),a2
  2186.     addq.w    #$8,a2
  2187.     fmove.s    fp0,(a2)
  2188. ;          color[3] = ctx->Texture.Current2D->BorderColor[3]/255.0;
  2189.     add.l    #$D73C,a0
  2190.     lea    (a0),a0
  2191.     move.l    $B0(a0),a0
  2192.     add.w    #$10,a0
  2193.     add.w    #$C,a0
  2194.     move.l    (a0),d0
  2195.     fmove.l    d0,fp0
  2196.     fdiv.d    #$.406FE000.00000000,fp0
  2197.     lea    -$10(a5),a0
  2198.     add.w    #$C,a0
  2199.     fmove.s    fp0,(a0)
  2200. ;          params[0] = FLOAT_TO_INT( color[0] );
  2201.     lea    -$10(a5),a0
  2202.     fmove.s    (a0),fp0
  2203.     fmul.d    #$.41DFFFFF.FFC00000,fp0
  2204.     fmove.l    fp0,d0
  2205.     move.l    d0,(a1)
  2206. ;          params[1] = FLOAT_TO_INT( color[1] );
  2207.     lea    -$10(a5),a0
  2208.     addq.w    #4,a0
  2209.     fmove.s    (a0),fp0
  2210.     fmul.d    #$.41DFFFFF.FFC00000,fp0
  2211.     fmove.l    fp0,d0
  2212.     lea    4(a1),a0
  2213.     move.l    d0,(a0)
  2214. ;          params[2] = FLOAT_TO_INT( color[2] );
  2215.     lea    -$10(a5),a0
  2216.     addq.w    #$8,a0
  2217.     fmove.s    (a0),fp0
  2218.     fmul.d    #$.41DFFFFF.FFC00000,fp0
  2219.     fmove.l    fp0,d0
  2220.     lea    $8(a1),a0
  2221.     move.l    d0,(a0)
  2222. ;          params[3] = FLOAT_TO_INT( color[3] );
  2223.     lea    -$10(a5),a0
  2224.     add.w    #$C,a0
  2225.     fmove.s    (a0),fp0
  2226.     fmul.d    #$.41DFFFFF.FFC00000,fp0
  2227.     fmove.l    fp0,d0
  2228.     lea    $C(a1),a0
  2229.     move.l    d0,(a0)
  2230. ;           
  2231.     bra.b    L598
  2232. L595
  2233. ;           *params = (GLint) GL_TRUE;
  2234.     move.l    #1,(a1)
  2235. ;           
  2236.     bra.b    L598
  2237. L596
  2238. ;           *params = (GLint) ctx->Texture.Current2D->Priority;
  2239.     add.l    #$D73C,a0
  2240.     lea    (a0),a0
  2241.     move.l    $B0(a0),a0
  2242.     fmove.s    $C(a0),fp0
  2243.     fmove.l    fp0,d0
  2244.     move.l    d0,(a1)
  2245. ;           
  2246.     bra.b    L598
  2247. L597
  2248. ;           gl_error( ctx, GL_INVALID_ENUM, "glGetTexParameteriv
  2249.     move.l    #L576,-(a7)
  2250.     pea    $500.w
  2251.     move.l    a0,-(a7)
  2252.     jsr    _gl_error
  2253.     add.w    #$C,a7
  2254. L598
  2255. ;     
  2256.     bra    L611
  2257. L599
  2258. ;     switch (pname)
  2259.     cmp.l    #$2803,d0
  2260.     beq    L603
  2261.     bgt.b    L620
  2262.     cmp.l    #$2801,d0
  2263.     beq.b    L601
  2264.     bgt.b    L621
  2265.     cmp.l    #$1004,d0
  2266.     beq    L605
  2267.     cmp.l    #$2800,d0
  2268.     beq.b    L600
  2269.     bra    L608
  2270. L621
  2271.     bgt.b    L602
  2272. L620
  2273.     cmp.l    #$8067,d0
  2274.     beq    L606
  2275.     bgt.b    L622
  2276.     cmp.l    #$8066,d0
  2277.     beq    L607
  2278.     bra    L608
  2279. L622
  2280.     cmp.l    #$8072,d0
  2281.     beq.b    L604
  2282.     bra    L608
  2283. ;        
  2284. L600
  2285. ;           *params = (GLint) ctx->Texture.Current3D->MagFilter;
  2286.     add.l    #$D73C,a0
  2287.     lea    (a0),a0
  2288.     move.l    $B4(a0),a0
  2289.     move.l    $30(a0),d0
  2290.     move.l    d0,(a1)
  2291. ;           
  2292.     bra    L609
  2293. L601
  2294. ;           *params = (GLint) ctx->Texture.Current3D->MinFilter;
  2295.     add.l    #$D73C,a0
  2296.     lea    (a0),a0
  2297.     move.l    $B4(a0),a0
  2298.     move.l    $2C(a0),d0
  2299.     move.l    d0,(a1)
  2300. ;           
  2301.     bra    L609
  2302. L602
  2303. ;           *params = (GLint) ctx->Texture.Current3D->WrapS;
  2304.     add.l    #$D73C,a0
  2305.     lea    (a0),a0
  2306.     move.l    $B4(a0),a0
  2307.     move.l    $20(a0),d0
  2308.     move.l    d0,(a1)
  2309. ;           
  2310.     bra    L609
  2311. L603
  2312. ;           *params = (GLint) ctx->Texture.Current3D->WrapT;
  2313.     add.l    #$D73C,a0
  2314.     lea    (a0),a0
  2315.     move.l    $B4(a0),a0
  2316.     move.l    $24(a0),d0
  2317.     move.l    d0,(a1)
  2318. ;           
  2319.     bra    L609
  2320. L604
  2321. ;           *params = (GLint) ctx->Texture.Current3D->WrapR;
  2322.     add.l    #$D73C,a0
  2323.     lea    (a0),a0
  2324.     move.l    $B4(a0),a0
  2325.     move.l    $28(a0),d0
  2326.     move.l    d0,(a1)
  2327. ;           
  2328.     bra    L609
  2329. L605
  2330. ;          color[0] = ctx->Texture.Current3D->BorderColor[0]/255.0;
  2331.     move.l    a0,a2
  2332.     add.l    #$D73C,a2
  2333.     lea    (a2),a2
  2334.     move.l    $B4(a2),a2
  2335.     add.w    #$10,a2
  2336.     move.l    (a2),d0
  2337.     fmove.l    d0,fp0
  2338.     fdiv.d    #$.406FE000.00000000,fp0
  2339.     lea    -$20(a5),a2
  2340.     fmove.s    fp0,(a2)
  2341. ;          color[1] = ctx->Texture.Current3D->BorderColor[1]/255.0;
  2342.     move.l    a0,a2
  2343.     add.l    #$D73C,a2
  2344.     lea    (a2),a2
  2345.     move.l    $B4(a2),a2
  2346.     add.w    #$10,a2
  2347.     addq.w    #4,a2
  2348.     move.l    (a2),d0
  2349.     fmove.l    d0,fp0
  2350.     fdiv.d    #$.406FE000.00000000,fp0
  2351.     lea    -$20(a5),a2
  2352.     addq.w    #4,a2
  2353.     fmove.s    fp0,(a2)
  2354. ;          color[2] = ctx->Texture.Current3D->BorderColor[2]/255.0;
  2355.     move.l    a0,a2
  2356.     add.l    #$D73C,a2
  2357.     lea    (a2),a2
  2358.     move.l    $B4(a2),a2
  2359.     add.w    #$10,a2
  2360.     addq.w    #$8,a2
  2361.     move.l    (a2),d0
  2362.     fmove.l    d0,fp0
  2363.     fdiv.d    #$.406FE000.00000000,fp0
  2364.     lea    -$20(a5),a2
  2365.     addq.w    #$8,a2
  2366.     fmove.s    fp0,(a2)
  2367. ;          color[3] = ctx->Texture.Current3D->BorderColor[3]/255.0;
  2368.     add.l    #$D73C,a0
  2369.     lea    (a0),a0
  2370.     move.l    $B4(a0),a0
  2371.     add.w    #$10,a0
  2372.     add.w    #$C,a0
  2373.     move.l    (a0),d0
  2374.     fmove.l    d0,fp0
  2375.     fdiv.d    #$.406FE000.00000000,fp0
  2376.     lea    -$20(a5),a0
  2377.     add.w    #$C,a0
  2378.     fmove.s    fp0,(a0)
  2379. ;          params[0] = FLOAT_TO_INT( color[0] );
  2380.     lea    -$20(a5),a0
  2381.     fmove.s    (a0),fp0
  2382.     fmul.d    #$.41DFFFFF.FFC00000,fp0
  2383.     fmove.l    fp0,d0
  2384.     move.l    d0,(a1)
  2385. ;          params[1] = FLOAT_TO_INT( color[1] );
  2386.     lea    -$20(a5),a0
  2387.     addq.w    #4,a0
  2388.     fmove.s    (a0),fp0
  2389.     fmul.d    #$.41DFFFFF.FFC00000,fp0
  2390.     fmove.l    fp0,d0
  2391.     lea    4(a1),a0
  2392.     move.l    d0,(a0)
  2393. ;          params[2] = FLOAT_TO_INT( color[2] );
  2394.     lea    -$20(a5),a0
  2395.     addq.w    #$8,a0
  2396.     fmove.s    (a0),fp0
  2397.     fmul.d    #$.41DFFFFF.FFC00000,fp0
  2398.     fmove.l    fp0,d0
  2399.     lea    $8(a1),a0
  2400.     move.l    d0,(a0)
  2401. ;          params[3] = FLOAT_TO_INT( color[3] );
  2402.     lea    -$20(a5),a0
  2403.     add.w    #$C,a0
  2404.     fmove.s    (a0),fp0
  2405.     fmul.d    #$.41DFFFFF.FFC00000,fp0
  2406.     fmove.l    fp0,d0
  2407.     lea    $C(a1),a0
  2408.     move.l    d0,(a0)
  2409. ;           
  2410.     bra.b    L609
  2411. L606
  2412. ;           *params = (GLint) GL_TRUE;
  2413.     move.l    #1,(a1)
  2414. ;           
  2415.     bra.b    L609
  2416. L607
  2417. ;           *params = (GLint) ctx->Texture.Current3D->Priority;
  2418.     add.l    #$D73C,a0
  2419.     lea    (a0),a0
  2420.     move.l    $B4(a0),a0
  2421.     fmove.s    $C(a0),fp0
  2422.     fmove.l    fp0,d0
  2423.     move.l    d0,(a1)
  2424. ;           
  2425.     bra.b    L609
  2426. L608
  2427. ;           gl_error( ctx, GL_INVALID_ENUM, "glGetTexParameteriv
  2428.     move.l    #L576,-(a7)
  2429.     pea    $500.w
  2430.     move.l    a0,-(a7)
  2431.     jsr    _gl_error
  2432.     add.w    #$C,a7
  2433. L609
  2434. ;     
  2435.     bra.b    L611
  2436. L610
  2437. ;     gl_error( ctx, GL_INVALID_ENUM, "glGetTexParameteriv(target)" );
  2438.     move.l    #L577,-(a7)
  2439.     pea    $500.w
  2440.     move.l    a0,-(a7)
  2441.     jsr    _gl_error
  2442.     add.w    #$C,a7
  2443. L611
  2444.     move.l    (a7)+,a2
  2445.     unlk    a5
  2446.     rts
  2447.  
  2448. L576
  2449.     dc.b    'glGetTexParameteriv(pname)',0
  2450. L577
  2451.     dc.b    'glGetTexParameteriv(target)',0
  2452.  
  2453.     SECTION "_gl_TexGenfv:0",CODE
  2454.  
  2455.  
  2456. ;void gl_TexGenfv( GLcontext *ctx,
  2457.     XDEF    _gl_TexGenfv
  2458. _gl_TexGenfv
  2459. L690    EQU    -$10
  2460.     link    a5,#L690
  2461.     movem.l    d2/a2,-(a7)
  2462.     move.l    $10(a5),d0
  2463.     move.l    $C(a5),d2
  2464.     move.l    $8(a5),a2
  2465. L627
  2466. ;   if (INSIDE_BEGIN_END(ctx)) 
  2467.     move.l    a2,a0
  2468.     add.l    #$E08A,a0
  2469.     move.l    (a0),d1
  2470.     cmp.l    #$1A00,d1
  2471.     beq.b    L629
  2472. L628
  2473. ;      gl_error( ctx, GL_INVALID_OPERATION, "glTexGenfv" );
  2474.     move.l    #L623,-(a7)
  2475.     pea    $502.w
  2476.     move.l    a2,-(a7)
  2477.     jsr    _gl_error
  2478.     add.w    #$C,a7
  2479.     movem.l    (a7)+,d2/a2
  2480.     unlk    a5
  2481.     rts
  2482. L629
  2483. ;   switch( coord )
  2484.     cmp.l    #$2002,d2
  2485.     beq    L660
  2486.     bgt.b    L691
  2487.     cmp.l    #$2000,d2
  2488.     beq.b    L630
  2489.     cmp.l    #$2001,d2
  2490.     beq    L645
  2491.     bra    L688
  2492. L691
  2493.     cmp.l    #$2003,d2
  2494.     beq    L674
  2495.     bra    L688
  2496. ;      
  2497. L630
  2498. ;     if (pname==GL_TEXTURE_GEN_MODE) 
  2499.     cmp.l    #$2500,d0
  2500.     bne.b    L637
  2501. L631
  2502. ;        GLenum mode = (GLenum) (GLint) *params;
  2503.     move.l    $14(a5),a0
  2504.     fmove.s    (a0),fp0
  2505.     fmove.l    fp0,d0
  2506. ;        if (mode==GL_OBJECT_LINEAR ||
  2507.     cmp.l    #$2401,d0
  2508.     beq.b    L634
  2509. L632
  2510.     cmp.l    #$2400,d0
  2511.     beq.b    L634
  2512. L633
  2513.     cmp.l    #$2402,d0
  2514.     bne.b    L635
  2515. L634
  2516. ;           ctx->Texture.GenModeS = mode;
  2517.     move.l    a2,a0
  2518.     add.l    #$D758,a0
  2519.     move.l    d0,(a0)
  2520.     bra.b    L636
  2521. L635
  2522. ;           gl_error( ctx, GL_INVALID_ENUM, "glTexGenfv(param)" )
  2523.     move.l    #L624,-(a7)
  2524.     pea    $500.w
  2525.     move.l    a2,-(a7)
  2526.     jsr    _gl_error
  2527.     add.w    #$C,a7
  2528.     movem.l    (a7)+,d2/a2
  2529.     unlk    a5
  2530.     rts
  2531. L636
  2532. ;           return;
  2533.     bra    L644
  2534. L637
  2535. ;     else if (pname==GL_OBJECT_PLANE) 
  2536.     cmp.l    #$2501,d0
  2537.     bne.b    L639
  2538. L638
  2539. ;        ctx->Texture.ObjectPlaneS[0] = params[0];
  2540.     move.l    $14(a5),a0
  2541.     fmove.s    (a0),fp0
  2542.     move.l    a2,a0
  2543.     add.l    #$D768,a0
  2544.     lea    (a0),a0
  2545.     fmove.s    fp0,(a0)
  2546. ;        ctx->Texture.ObjectPlaneS[1] = params[1];
  2547.     move.l    $14(a5),a1
  2548.     lea    4(a1),a0
  2549.     fmove.s    (a0),fp0
  2550.     move.l    a2,a0
  2551.     add.l    #$D768,a0
  2552.     lea    (a0),a0
  2553.     addq.w    #4,a0
  2554.     fmove.s    fp0,(a0)
  2555. ;        ctx->Texture.ObjectPlaneS[2] = params[2];
  2556.     move.l    $14(a5),a1
  2557.     lea    $8(a1),a0
  2558.     fmove.s    (a0),fp0
  2559.     move.l    a2,a0
  2560.     add.l    #$D768,a0
  2561.     lea    (a0),a0
  2562.     addq.w    #$8,a0
  2563.     fmove.s    fp0,(a0)
  2564. ;        ctx->Texture.ObjectPlaneS[3] = params[3];
  2565.     move.l    $14(a5),a1
  2566.     lea    $C(a1),a0
  2567.     fmove.s    (a0),fp0
  2568.     move.l    a2,a0
  2569.     add.l    #$D768,a0
  2570.     lea    (a0),a0
  2571.     add.w    #$C,a0
  2572.     fmove.s    fp0,(a0)
  2573.     bra.b    L644
  2574. L639
  2575. ;     else if (pname==GL_EYE_PLANE) 
  2576.     cmp.l    #$2502,d0
  2577.     bne.b    L643
  2578. L640
  2579. ;        if (ctx->NewModelViewMatrix) 
  2580.     move.b    $97C(a2),d0
  2581.     beq.b    L642
  2582. L641
  2583. ;           gl_analyze_modelview_matrix(ctx);
  2584.     move.l    a2,-(a7)
  2585.     jsr    _gl_analyze_modelview_matrix
  2586.     addq.w    #4,a7
  2587. L642
  2588. ;        gl_transform_vector( ctx->Texture.EyePlaneS, params,
  2589.     lea    $9C2(a2),a0
  2590.     move.l    a0,-(a7)
  2591.     move.l    $14(a5),-(a7)
  2592.     move.l    a2,a0
  2593.     add.l    #$D7A8,a0
  2594.     lea    (a0),a0
  2595.     move.l    a0,-(a7)
  2596.     jsr    _gl_transform_vector
  2597.     add.w    #$C,a7
  2598.     bra.b    L644
  2599. L643
  2600. ;        gl_error( ctx, GL_INVALID_ENUM, "glTexGenfv(pname)" );
  2601.     move.l    #L625,-(a7)
  2602.     pea    $500.w
  2603.     move.l    a2,-(a7)
  2604.     jsr    _gl_error
  2605.     add.w    #$C,a7
  2606.     movem.l    (a7)+,d2/a2
  2607.     unlk    a5
  2608.     rts
  2609. L644
  2610. ;     
  2611.     bra    L689
  2612. L645
  2613. ;     if (pname==GL_TEXTURE_GEN_MODE) 
  2614.     cmp.l    #$2500,d0
  2615.     bne.b    L652
  2616. L646
  2617. ;        GLenum mode = (GLenum) (GLint) *params;
  2618.     move.l    $14(a5),a0
  2619.     fmove.s    (a0),fp0
  2620.     fmove.l    fp0,d0
  2621. ;        if (mode==GL_OBJECT_LINEAR ||
  2622.     cmp.l    #$2401,d0
  2623.     beq.b    L649
  2624. L647
  2625.     cmp.l    #$2400,d0
  2626.     beq.b    L649
  2627. L648
  2628.     cmp.l    #$2402,d0
  2629.     bne.b    L650
  2630. L649
  2631. ;           ctx->Texture.GenModeT = mode;
  2632.     move.l    a2,a0
  2633.     add.l    #$D75C,a0
  2634.     move.l    d0,(a0)
  2635.     bra.b    L651
  2636. L650
  2637. ;           gl_error( ctx, GL_INVALID_ENUM, "glTexGenfv(param)" )
  2638.     move.l    #L624,-(a7)
  2639.     pea    $500.w
  2640.     move.l    a2,-(a7)
  2641.     jsr    _gl_error
  2642.     add.w    #$C,a7
  2643.     movem.l    (a7)+,d2/a2
  2644.     unlk    a5
  2645.     rts
  2646. L651
  2647. ;           return;
  2648.     bra    L659
  2649. L652
  2650. ;     else if (pname==GL_OBJECT_PLANE) 
  2651.     cmp.l    #$2501,d0
  2652.     bne.b    L654
  2653. L653
  2654. ;        ctx->Texture.ObjectPlaneT[0] = params[0];
  2655.     move.l    $14(a5),a0
  2656.     fmove.s    (a0),fp0
  2657.     move.l    a2,a0
  2658.     add.l    #$D778,a0
  2659.     lea    (a0),a0
  2660.     fmove.s    fp0,(a0)
  2661. ;        ctx->Texture.ObjectPlaneT[1] = params[1];
  2662.     move.l    $14(a5),a1
  2663.     lea    4(a1),a0
  2664.     fmove.s    (a0),fp0
  2665.     move.l    a2,a0
  2666.     add.l    #$D778,a0
  2667.     lea    (a0),a0
  2668.     addq.w    #4,a0
  2669.     fmove.s    fp0,(a0)
  2670. ;        ctx->Texture.ObjectPlaneT[2] = params[2];
  2671.     move.l    $14(a5),a1
  2672.     lea    $8(a1),a0
  2673.     fmove.s    (a0),fp0
  2674.     move.l    a2,a0
  2675.     add.l    #$D778,a0
  2676.     lea    (a0),a0
  2677.     addq.w    #$8,a0
  2678.     fmove.s    fp0,(a0)
  2679. ;        ctx->Texture.ObjectPlaneT[3] = params[3];
  2680.     move.l    $14(a5),a1
  2681.     lea    $C(a1),a0
  2682.     fmove.s    (a0),fp0
  2683.     move.l    a2,a0
  2684.     add.l    #$D778,a0
  2685.     lea    (a0),a0
  2686.     add.w    #$C,a0
  2687.     fmove.s    fp0,(a0)
  2688.     bra.b    L659
  2689. L654
  2690. ;     else if (pname==GL_EYE_PLANE) 
  2691.     cmp.l    #$2502,d0
  2692.     bne.b    L658
  2693. L655
  2694. ;        if (ctx->NewModelViewMatrix) 
  2695.     move.b    $97C(a2),d0
  2696.     beq.b    L657
  2697. L656
  2698. ;           gl_analyze_modelview_matrix(ctx);
  2699.     move.l    a2,-(a7)
  2700.     jsr    _gl_analyze_modelview_matrix
  2701.     addq.w    #4,a7
  2702. L657
  2703. ;        gl_transform_vector( ctx->Texture.EyePlaneT, params,
  2704.     lea    $9C2(a2),a0
  2705.     move.l    a0,-(a7)
  2706.     move.l    $14(a5),-(a7)
  2707.     move.l    a2,a0
  2708.     add.l    #$D7B8,a0
  2709.     lea    (a0),a0
  2710.     move.l    a0,-(a7)
  2711.     jsr    _gl_transform_vector
  2712.     add.w    #$C,a7
  2713.     bra.b    L659
  2714. L658
  2715. ;        gl_error( ctx, GL_INVALID_ENUM, "glTexGenfv(pname)" );
  2716.     move.l    #L625,-(a7)
  2717.     pea    $500.w
  2718.     move.l    a2,-(a7)
  2719.     jsr    _gl_error
  2720.     add.w    #$C,a7
  2721.     movem.l    (a7)+,d2/a2
  2722.     unlk    a5
  2723.     rts
  2724. L659
  2725. ;     
  2726.     bra    L689
  2727. L660
  2728. ;     if (pname==GL_TEXTURE_GEN_MODE) 
  2729.     cmp.l    #$2500,d0
  2730.     bne.b    L666
  2731. L661
  2732. ;        GLenum mode = (GLenum) (GLint) *params;
  2733.     move.l    $14(a5),a0
  2734.     fmove.s    (a0),fp0
  2735.     fmove.l    fp0,d0
  2736. ;        if (mode==GL_OBJECT_LINEAR ||
  2737.     cmp.l    #$2401,d0
  2738.     beq.b    L663
  2739. L662
  2740.     cmp.l    #$2400,d0
  2741.     bne.b    L664
  2742. L663
  2743. ;           ctx->Texture.GenModeR = mode;
  2744.     move.l    a2,a0
  2745.     add.l    #$D760,a0
  2746.     move.l    d0,(a0)
  2747.     bra.b    L665
  2748. L664
  2749. ;           gl_error( ctx, GL_INVALID_ENUM, "glTexGenfv(param)" )
  2750.     move.l    #L624,-(a7)
  2751.     pea    $500.w
  2752.     move.l    a2,-(a7)
  2753.     jsr    _gl_error
  2754.     add.w    #$C,a7
  2755.     movem.l    (a7)+,d2/a2
  2756.     unlk    a5
  2757.     rts
  2758. L665
  2759. ;           return;
  2760.     bra    L673
  2761. L666
  2762. ;     else if (pname==GL_OBJECT_PLANE) 
  2763.     cmp.l    #$2501,d0
  2764.     bne.b    L668
  2765. L667
  2766. ;        ctx->Texture.ObjectPlaneR[0] = params[0];
  2767.     move.l    $14(a5),a0
  2768.     fmove.s    (a0),fp0
  2769.     move.l    a2,a0
  2770.     add.l    #$D788,a0
  2771.     lea    (a0),a0
  2772.     fmove.s    fp0,(a0)
  2773. ;        ctx->Texture.ObjectPlaneR[1] = params[1];
  2774.     move.l    $14(a5),a1
  2775.     lea    4(a1),a0
  2776.     fmove.s    (a0),fp0
  2777.     move.l    a2,a0
  2778.     add.l    #$D788,a0
  2779.     lea    (a0),a0
  2780.     addq.w    #4,a0
  2781.     fmove.s    fp0,(a0)
  2782. ;        ctx->Texture.ObjectPlaneR[2] = params[2];
  2783.     move.l    $14(a5),a1
  2784.     lea    $8(a1),a0
  2785.     fmove.s    (a0),fp0
  2786.     move.l    a2,a0
  2787.     add.l    #$D788,a0
  2788.     lea    (a0),a0
  2789.     addq.w    #$8,a0
  2790.     fmove.s    fp0,(a0)
  2791. ;        ctx->Texture.ObjectPlaneR[3] = params[3];
  2792.     move.l    $14(a5),a1
  2793.     lea    $C(a1),a0
  2794.     fmove.s    (a0),fp0
  2795.     move.l    a2,a0
  2796.     add.l    #$D788,a0
  2797.     lea    (a0),a0
  2798.     add.w    #$C,a0
  2799.     fmove.s    fp0,(a0)
  2800.     bra.b    L673
  2801. L668
  2802. ;     else if (pname==GL_EYE_PLANE) 
  2803.     cmp.l    #$2502,d0
  2804.     bne.b    L672
  2805. L669
  2806. ;        if (ctx->NewModelViewMatrix) 
  2807.     move.b    $97C(a2),d0
  2808.     beq.b    L671
  2809. L670
  2810. ;           gl_analyze_modelview_matrix(ctx);
  2811.     move.l    a2,-(a7)
  2812.     jsr    _gl_analyze_modelview_matrix
  2813.     addq.w    #4,a7
  2814. L671
  2815. ;        gl_transform_vector( ctx->Texture.EyePlaneR, params,
  2816.     lea    $9C2(a2),a0
  2817.     move.l    a0,-(a7)
  2818.     move.l    $14(a5),-(a7)
  2819.     move.l    a2,a0
  2820.     add.l    #$D7C8,a0
  2821.     lea    (a0),a0
  2822.     move.l    a0,-(a7)
  2823.     jsr    _gl_transform_vector
  2824.     add.w    #$C,a7
  2825.     bra.b    L673
  2826. L672
  2827. ;        gl_error( ctx, GL_INVALID_ENUM, "glTexGenfv(pname)" );
  2828.     move.l    #L625,-(a7)
  2829.     pea    $500.w
  2830.     move.l    a2,-(a7)
  2831.     jsr    _gl_error
  2832.     add.w    #$C,a7
  2833.     movem.l    (a7)+,d2/a2
  2834.     unlk    a5
  2835.     rts
  2836. L673
  2837. ;     
  2838.     bra    L689
  2839. L674
  2840. ;     if (pname==GL_TEXTURE_GEN_MODE) 
  2841.     cmp.l    #$2500,d0
  2842.     bne.b    L680
  2843. L675
  2844. ;        GLenum mode = (GLenum) (GLint) *params;
  2845.     move.l    $14(a5),a0
  2846.     fmove.s    (a0),fp0
  2847.     fmove.l    fp0,d0
  2848. ;        if (mode==GL_OBJECT_LINEAR ||
  2849.     cmp.l    #$2401,d0
  2850.     beq.b    L677
  2851. L676
  2852.     cmp.l    #$2400,d0
  2853.     bne.b    L678
  2854. L677
  2855. ;           ctx->Texture.GenModeQ = mode;
  2856.     move.l    a2,a0
  2857.     add.l    #$D764,a0
  2858.     move.l    d0,(a0)
  2859.     bra.b    L679
  2860. L678
  2861. ;           gl_error( ctx, GL_INVALID_ENUM, "glTexGenfv(param)" )
  2862.     move.l    #L624,-(a7)
  2863.     pea    $500.w
  2864.     move.l    a2,-(a7)
  2865.     jsr    _gl_error
  2866.     add.w    #$C,a7
  2867.     movem.l    (a7)+,d2/a2
  2868.     unlk    a5
  2869.     rts
  2870. L679
  2871. ;           return;
  2872.     bra    L687
  2873. L680
  2874. ;     else if (pname==GL_OBJECT_PLANE) 
  2875.     cmp.l    #$2501,d0
  2876.     bne    L682
  2877. L681
  2878. ;        ctx->Texture.ObjectPlaneQ[0] = params[0];
  2879.     move.l    $14(a5),a0
  2880.     fmove.s    (a0),fp0
  2881.     move.l    a2,a0
  2882.     add.l    #$D798,a0
  2883.     lea    (a0),a0
  2884.     fmove.s    fp0,(a0)
  2885. ;        ctx->Texture.ObjectPlaneQ[1] = params[1];
  2886.     move.l    $14(a5),a1
  2887.     lea    4(a1),a0
  2888.     fmove.s    (a0),fp0
  2889.     move.l    a2,a0
  2890.     add.l    #$D798,a0
  2891.     lea    (a0),a0
  2892.     addq.w    #4,a0
  2893.     fmove.s    fp0,(a0)
  2894. ;        ctx->Texture.ObjectPlaneQ[2] = params[2];
  2895.     move.l    $14(a5),a1
  2896.     lea    $8(a1),a0
  2897.     fmove.s    (a0),fp0
  2898.     move.l    a2,a0
  2899.     add.l    #$D798,a0
  2900.     lea    (a0),a0
  2901.     addq.w    #$8,a0
  2902.     fmove.s    fp0,(a0)
  2903. ;        ctx->Texture.ObjectPlaneQ[3] = params[3];
  2904.     move.l    $14(a5),a1
  2905.     lea    $C(a1),a0
  2906.     fmove.s    (a0),fp0
  2907.     move.l    a2,a0
  2908.     add.l    #$D798,a0
  2909.     lea    (a0),a0
  2910.     add.w    #$C,a0
  2911.     fmove.s    fp0,(a0)
  2912.     bra.b    L687
  2913. L682
  2914. ;     else if (pname==GL_EYE_PLANE) 
  2915.     cmp.l    #$2502,d0
  2916.     bne.b    L686
  2917. L683
  2918. ;        if (ctx->NewModelViewMatrix) 
  2919.     move.b    $97C(a2),d0
  2920.     beq.b    L685
  2921. L684
  2922. ;           gl_analyze_modelview_matrix(ctx);
  2923.     move.l    a2,-(a7)
  2924.     jsr    _gl_analyze_modelview_matrix
  2925.     addq.w    #4,a7
  2926. L685
  2927. ;        gl_transform_vector( ctx->Texture.EyePlaneQ, params,
  2928.     lea    $9C2(a2),a0
  2929.     move.l    a0,-(a7)
  2930.     move.l    $14(a5),-(a7)
  2931.     move.l    a2,a0
  2932.     add.l    #$D7D8,a0
  2933.     lea    (a0),a0
  2934.     move.l    a0,-(a7)
  2935.     jsr    _gl_transform_vector
  2936.     add.w    #$C,a7
  2937.     bra.b    L687
  2938. L686
  2939. ;        gl_error( ctx, GL_INVALID_ENUM, "glTexGenfv(pname)" );
  2940.     move.l    #L625,-(a7)
  2941.     pea    $500.w
  2942.     move.l    a2,-(a7)
  2943.     jsr    _gl_error
  2944.     add.w    #$C,a7
  2945.     movem.l    (a7)+,d2/a2
  2946.     unlk    a5
  2947.     rts
  2948. L687
  2949. ;     
  2950.     bra.b    L689
  2951. L688
  2952. ;     gl_error( ctx, GL_INVALID_ENUM, "glTexGenfv(coord)" );
  2953.     move.l    #L626,-(a7)
  2954.     pea    $500.w
  2955.     move.l    a2,-(a7)
  2956.     jsr    _gl_error
  2957.     add.w    #$C,a7
  2958.     movem.l    (a7)+,d2/a2
  2959.     unlk    a5
  2960.     rts
  2961. L689
  2962. ;     return;
  2963. ;   ctx->NewState |= NEW_TEXTURING;
  2964.     move.l    a2,a0
  2965.     add.l    #$E082,a0
  2966.     move.l    (a0),d0
  2967.     or.l    #4,d0
  2968.     move.l    a2,a0
  2969.     add.l    #$E082,a0
  2970.     move.l    d0,(a0)
  2971. ;    int i = 0;
  2972. ;    i++;
  2973.     movem.l    (a7)+,d2/a2
  2974.     unlk    a5
  2975.     rts
  2976.  
  2977. L623
  2978.     dc.b    'glTexGenfv',0
  2979. L626
  2980.     dc.b    'glTexGenfv(coord)',0
  2981. L624
  2982.     dc.b    'glTexGenfv(param)',0
  2983. L625
  2984.     dc.b    'glTexGenfv(pname)',0
  2985.  
  2986.     SECTION "_gl_GetTexGendv:0",CODE
  2987.  
  2988.  
  2989. ;void gl_GetTexGendv( GLcontext *ctx,
  2990.     XDEF    _gl_GetTexGendv
  2991. _gl_GetTexGendv
  2992.     movem.l    d2/a2,-(a7)
  2993.     movem.l    $14(a7),d0/a1
  2994.     move.l    $10(a7),d2
  2995.     move.l    $C(a7),a0
  2996. L695
  2997. ;   if (INSIDE_BEGIN_END(ctx)) 
  2998.     move.l    a0,a2
  2999.     add.l    #$E08A,a2
  3000.     move.l    (a2),d1
  3001.     cmp.l    #$1A00,d1
  3002.     beq.b    L697
  3003. L696
  3004. ;      gl_error( ctx, GL_INVALID_OPERATION, "glGetTexGendv" );
  3005.     move.l    #L692,-(a7)
  3006.     pea    $502.w
  3007.     move.l    a0,-(a7)
  3008.     jsr    _gl_error
  3009.     add.w    #$C,a7
  3010.     movem.l    (a7)+,d2/a2
  3011.     rts
  3012. L697
  3013. ;   switch( coord )
  3014.     cmp.l    #$2002,d2
  3015.     beq    L714
  3016.     bgt.b    L732
  3017.     cmp.l    #$2000,d2
  3018.     beq.b    L698
  3019.     cmp.l    #$2001,d2
  3020.     beq    L706
  3021.     bra    L730
  3022. L732
  3023.     cmp.l    #$2003,d2
  3024.     beq    L722
  3025.     bra    L730
  3026. ;      
  3027. L698
  3028. ;     if (pname==GL_TEXTURE_GEN_MODE) 
  3029.     cmp.l    #$2500,d0
  3030.     bne.b    L700
  3031. L699
  3032. ;        params[0] = BOOL_TO_DOUBLE(ctx->Texture.GenModeS);
  3033.     add.l    #$D73C,a0
  3034.     lea    (a0),a0
  3035.     move.l    $1C(a0),d0
  3036.     fmove.l    d0,fp0
  3037.     fmove.d    fp0,(a1)
  3038.     bra    L705
  3039. L700
  3040. ;     else if (pname==GL_OBJECT_PLANE) 
  3041.     cmp.l    #$2501,d0
  3042.     bne.b    L702
  3043. L701
  3044. ;        COPY_4V( params
  3045.     move.l    a0,a2
  3046.     add.l    #$D768,a2
  3047.     lea    (a2),a2
  3048.     fmove.s    (a2),fp0
  3049.     fmove.d    fp0,(a1)
  3050. ;        COPY_4V( params
  3051.     move.l    a0,a2
  3052.     add.l    #$D768,a2
  3053.     lea    (a2),a2
  3054.     addq.w    #4,a2
  3055.     fmove.s    (a2),fp0
  3056.     lea    $8(a1),a2
  3057.     fmove.d    fp0,(a2)
  3058. ;        COPY_4V( params
  3059.     move.l    a0,a2
  3060.     add.l    #$D768,a2
  3061.     lea    (a2),a2
  3062.     addq.w    #$8,a2
  3063.     fmove.s    (a2),fp0
  3064.     lea    $10(a1),a2
  3065.     fmove.d    fp0,(a2)
  3066. ;        COPY_4V( params
  3067.     add.l    #$D768,a0
  3068.     lea    (a0),a0
  3069.     add.w    #$C,a0
  3070.     fmove.s    (a0),fp0
  3071.     lea    $18(a1),a0
  3072.     fmove.d    fp0,(a0)
  3073.     bra    L705
  3074. L702
  3075. ;     else if (pname==GL_EYE_PLANE) 
  3076.     cmp.l    #$2502,d0
  3077.     bne.b    L704
  3078. L703
  3079. ;        COPY_4V( params, c
  3080.     move.l    a0,a2
  3081.     add.l    #$D7A8,a2
  3082.     lea    (a2),a2
  3083.     fmove.s    (a2),fp0
  3084.     fmove.d    fp0,(a1)
  3085. ;        COPY_4V( params, c
  3086.     move.l    a0,a2
  3087.     add.l    #$D7A8,a2
  3088.     lea    (a2),a2
  3089.     addq.w    #4,a2
  3090.     fmove.s    (a2),fp0
  3091.     lea    $8(a1),a2
  3092.     fmove.d    fp0,(a2)
  3093. ;        COPY_4V( params, c
  3094.     move.l    a0,a2
  3095.     add.l    #$D7A8,a2
  3096.     lea    (a2),a2
  3097.     addq.w    #$8,a2
  3098.     fmove.s    (a2),fp0
  3099.     lea    $10(a1),a2
  3100.     fmove.d    fp0,(a2)
  3101. ;        COPY_4V( params, c
  3102.     add.l    #$D7A8,a0
  3103.     lea    (a0),a0
  3104.     add.w    #$C,a0
  3105.     fmove.s    (a0),fp0
  3106.     lea    $18(a1),a0
  3107.     fmove.d    fp0,(a0)
  3108.     bra.b    L705
  3109. L704
  3110. ;        gl_error( ctx, GL_INVALID_ENUM, "glGetTexGendv(pname)" );
  3111.     move.l    #L693,-(a7)
  3112.     pea    $500.w
  3113.     move.l    a0,-(a7)
  3114.     jsr    _gl_error
  3115.     add.w    #$C,a7
  3116.     movem.l    (a7)+,d2/a2
  3117.     rts
  3118. L705
  3119. ;     
  3120.     bra    L731
  3121. L706
  3122. ;     if (pname==GL_TEXTURE_GEN_MODE) 
  3123.     cmp.l    #$2500,d0
  3124.     bne.b    L708
  3125. L707
  3126. ;        params[0] = BOOL_TO_DOUBLE(ctx->Texture.GenModeT);
  3127.     add.l    #$D73C,a0
  3128.     lea    (a0),a0
  3129.     move.l    $20(a0),d0
  3130.     fmove.l    d0,fp0
  3131.     fmove.d    fp0,(a1)
  3132.     bra    L713
  3133. L708
  3134. ;     else if (pname==GL_OBJECT_PLANE) 
  3135.     cmp.l    #$2501,d0
  3136.     bne.b    L710
  3137. L709
  3138. ;        COPY_4V( params
  3139.     move.l    a0,a2
  3140.     add.l    #$D778,a2
  3141.     lea    (a2),a2
  3142.     fmove.s    (a2),fp0
  3143.     fmove.d    fp0,(a1)
  3144. ;        COPY_4V( params
  3145.     move.l    a0,a2
  3146.     add.l    #$D778,a2
  3147.     lea    (a2),a2
  3148.     addq.w    #4,a2
  3149.     fmove.s    (a2),fp0
  3150.     lea    $8(a1),a2
  3151.     fmove.d    fp0,(a2)
  3152. ;        COPY_4V( params
  3153.     move.l    a0,a2
  3154.     add.l    #$D778,a2
  3155.     lea    (a2),a2
  3156.     addq.w    #$8,a2
  3157.     fmove.s    (a2),fp0
  3158.     lea    $10(a1),a2
  3159.     fmove.d    fp0,(a2)
  3160. ;        COPY_4V( params
  3161.     add.l    #$D778,a0
  3162.     lea    (a0),a0
  3163.     add.w    #$C,a0
  3164.     fmove.s    (a0),fp0
  3165.     lea    $18(a1),a0
  3166.     fmove.d    fp0,(a0)
  3167.     bra    L713
  3168. L710
  3169. ;     else if (pname==GL_EYE_PLANE) 
  3170.     cmp.l    #$2502,d0
  3171.     bne.b    L712
  3172. L711
  3173. ;        COPY_4V( params, c
  3174.     move.l    a0,a2
  3175.     add.l    #$D7B8,a2
  3176.     lea    (a2),a2
  3177.     fmove.s    (a2),fp0
  3178.     fmove.d    fp0,(a1)
  3179. ;        COPY_4V( params, c
  3180.     move.l    a0,a2
  3181.     add.l    #$D7B8,a2
  3182.     lea    (a2),a2
  3183.     addq.w    #4,a2
  3184.     fmove.s    (a2),fp0
  3185.     lea    $8(a1),a2
  3186.     fmove.d    fp0,(a2)
  3187. ;        COPY_4V( params, c
  3188.     move.l    a0,a2
  3189.     add.l    #$D7B8,a2
  3190.     lea    (a2),a2
  3191.     addq.w    #$8,a2
  3192.     fmove.s    (a2),fp0
  3193.     lea    $10(a1),a2
  3194.     fmove.d    fp0,(a2)
  3195. ;        COPY_4V( params, c
  3196.     add.l    #$D7B8,a0
  3197.     lea    (a0),a0
  3198.     add.w    #$C,a0
  3199.     fmove.s    (a0),fp0
  3200.     lea    $18(a1),a0
  3201.     fmove.d    fp0,(a0)
  3202.     bra.b    L713
  3203. L712
  3204. ;        gl_error( ctx, GL_INVALID_ENUM, "glGetTexGendv(pname)" );
  3205.     move.l    #L693,-(a7)
  3206.     pea    $500.w
  3207.     move.l    a0,-(a7)
  3208.     jsr    _gl_error
  3209.     add.w    #$C,a7
  3210.     movem.l    (a7)+,d2/a2
  3211.     rts
  3212. L713
  3213. ;     
  3214.     bra    L731
  3215. L714
  3216. ;     if (pname==GL_TEXTURE_GEN_MODE) 
  3217.     cmp.l    #$2500,d0
  3218.     bne.b    L716
  3219. L715
  3220. ;        params[0] = BOOL_TO_DOUBLE(ctx->Texture.GenModeR);
  3221.     add.l    #$D73C,a0
  3222.     lea    (a0),a0
  3223.     move.l    $24(a0),d0
  3224.     fmove.l    d0,fp0
  3225.     fmove.d    fp0,(a1)
  3226.     bra    L721
  3227. L716
  3228. ;     else if (pname==GL_OBJECT_PLANE) 
  3229.     cmp.l    #$2501,d0
  3230.     bne.b    L718
  3231. L717
  3232. ;        COPY_4V( params
  3233.     move.l    a0,a2
  3234.     add.l    #$D788,a2
  3235.     lea    (a2),a2
  3236.     fmove.s    (a2),fp0
  3237.     fmove.d    fp0,(a1)
  3238. ;        COPY_4V( params
  3239.     move.l    a0,a2
  3240.     add.l    #$D788,a2
  3241.     lea    (a2),a2
  3242.     addq.w    #4,a2
  3243.     fmove.s    (a2),fp0
  3244.     lea    $8(a1),a2
  3245.     fmove.d    fp0,(a2)
  3246. ;        COPY_4V( params
  3247.     move.l    a0,a2
  3248.     add.l    #$D788,a2
  3249.     lea    (a2),a2
  3250.     addq.w    #$8,a2
  3251.     fmove.s    (a2),fp0
  3252.     lea    $10(a1),a2
  3253.     fmove.d    fp0,(a2)
  3254. ;        COPY_4V( params
  3255.     add.l    #$D788,a0
  3256.     lea    (a0),a0
  3257.     add.w    #$C,a0
  3258.     fmove.s    (a0),fp0
  3259.     lea    $18(a1),a0
  3260.     fmove.d    fp0,(a0)
  3261.     bra    L721
  3262. L718
  3263. ;     else if (pname==GL_EYE_PLANE) 
  3264.     cmp.l    #$2502,d0
  3265.     bne.b    L720
  3266. L719
  3267. ;        COPY_4V( params, c
  3268.     move.l    a0,a2
  3269.     add.l    #$D7C8,a2
  3270.     lea    (a2),a2
  3271.     fmove.s    (a2),fp0
  3272.     fmove.d    fp0,(a1)
  3273. ;        COPY_4V( params, c
  3274.     move.l    a0,a2
  3275.     add.l    #$D7C8,a2
  3276.     lea    (a2),a2
  3277.     addq.w    #4,a2
  3278.     fmove.s    (a2),fp0
  3279.     lea    $8(a1),a2
  3280.     fmove.d    fp0,(a2)
  3281. ;        COPY_4V( params, c
  3282.     move.l    a0,a2
  3283.     add.l    #$D7C8,a2
  3284.     lea    (a2),a2
  3285.     addq.w    #$8,a2
  3286.     fmove.s    (a2),fp0
  3287.     lea    $10(a1),a2
  3288.     fmove.d    fp0,(a2)
  3289. ;        COPY_4V( params, c
  3290.     add.l    #$D7C8,a0
  3291.     lea    (a0),a0
  3292.     add.w    #$C,a0
  3293.     fmove.s    (a0),fp0
  3294.     lea    $18(a1),a0
  3295.     fmove.d    fp0,(a0)
  3296.     bra.b    L721
  3297. L720
  3298. ;        gl_error( ctx, GL_INVALID_ENUM, "glGetTexGendv(pname)" );
  3299.     move.l    #L693,-(a7)
  3300.     pea    $500.w
  3301.     move.l    a0,-(a7)
  3302.     jsr    _gl_error
  3303.     add.w    #$C,a7
  3304.     movem.l    (a7)+,d2/a2
  3305.     rts
  3306. L721
  3307. ;     
  3308.     bra    L731
  3309. L722
  3310. ;     if (pname==GL_TEXTURE_GEN_MODE) 
  3311.     cmp.l    #$2500,d0
  3312.     bne.b    L724
  3313. L723
  3314. ;        params[0] = BOOL_TO_DOUBLE(ctx->Texture.GenModeQ);
  3315.     add.l    #$D73C,a0
  3316.     lea    (a0),a0
  3317.     move.l    $28(a0),d0
  3318.     fmove.l    d0,fp0
  3319.     fmove.d    fp0,(a1)
  3320.     bra    L729
  3321. L724
  3322. ;     else if (pname==GL_OBJECT_PLANE) 
  3323.     cmp.l    #$2501,d0
  3324.     bne.b    L726
  3325. L725
  3326. ;        COPY_4V( params
  3327.     move.l    a0,a2
  3328.     add.l    #$D798,a2
  3329.     lea    (a2),a2
  3330.     fmove.s    (a2),fp0
  3331.     fmove.d    fp0,(a1)
  3332. ;        COPY_4V( params
  3333.     move.l    a0,a2
  3334.     add.l    #$D798,a2
  3335.     lea    (a2),a2
  3336.     addq.w    #4,a2
  3337.     fmove.s    (a2),fp0
  3338.     lea    $8(a1),a2
  3339.     fmove.d    fp0,(a2)
  3340. ;        COPY_4V( params
  3341.     move.l    a0,a2
  3342.     add.l    #$D798,a2
  3343.     lea    (a2),a2
  3344.     addq.w    #$8,a2
  3345.     fmove.s    (a2),fp0
  3346.     lea    $10(a1),a2
  3347.     fmove.d    fp0,(a2)
  3348. ;        COPY_4V( params
  3349.     add.l    #$D798,a0
  3350.     lea    (a0),a0
  3351.     add.w    #$C,a0
  3352.     fmove.s    (a0),fp0
  3353.     lea    $18(a1),a0
  3354.     fmove.d    fp0,(a0)
  3355.     bra    L729
  3356. L726
  3357. ;     else if (pname==GL_EYE_PLANE) 
  3358.     cmp.l    #$2502,d0
  3359.     bne.b    L728
  3360. L727
  3361. ;        COPY_4V( params, c
  3362.     move.l    a0,a2
  3363.     add.l    #$D7D8,a2
  3364.     lea    (a2),a2
  3365.     fmove.s    (a2),fp0
  3366.     fmove.d    fp0,(a1)
  3367. ;        COPY_4V( params, c
  3368.     move.l    a0,a2
  3369.     add.l    #$D7D8,a2
  3370.     lea    (a2),a2
  3371.     addq.w    #4,a2
  3372.     fmove.s    (a2),fp0
  3373.     lea    $8(a1),a2
  3374.     fmove.d    fp0,(a2)
  3375. ;        COPY_4V( params, c
  3376.     move.l    a0,a2
  3377.     add.l    #$D7D8,a2
  3378.     lea    (a2),a2
  3379.     addq.w    #$8,a2
  3380.     fmove.s    (a2),fp0
  3381.     lea    $10(a1),a2
  3382.     fmove.d    fp0,(a2)
  3383. ;        COPY_4V( params, c
  3384.     add.l    #$D7D8,a0
  3385.     lea    (a0),a0
  3386.     add.w    #$C,a0
  3387.     fmove.s    (a0),fp0
  3388.     lea    $18(a1),a0
  3389.     fmove.d    fp0,(a0)
  3390.     bra.b    L729
  3391. L728
  3392. ;        gl_error( ctx, GL_INVALID_ENUM, "glGetTexGendv(pname)" );
  3393.     move.l    #L693,-(a7)
  3394.     pea    $500.w
  3395.     move.l    a0,-(a7)
  3396.     jsr    _gl_error
  3397.     add.w    #$C,a7
  3398.     movem.l    (a7)+,d2/a2
  3399.     rts
  3400. L729
  3401. ;     
  3402.     bra.b    L731
  3403. L730
  3404. ;     gl_error( ctx, GL_INVALID_ENUM, "glGetTexGendv(coord)" );
  3405.     move.l    #L694,-(a7)
  3406.     pea    $500.w
  3407.     move.l    a0,-(a7)
  3408.     jsr    _gl_error
  3409.     add.w    #$C,a7
  3410.     movem.l    (a7)+,d2/a2
  3411.     rts
  3412. L731
  3413. ;     return;
  3414.     movem.l    (a7)+,d2/a2
  3415.     rts
  3416.  
  3417. L692
  3418.     dc.b    'glGetTexGendv',0
  3419. L694
  3420.     dc.b    'glGetTexGendv(coord)',0
  3421. L693
  3422.     dc.b    'glGetTexGendv(pname)',0
  3423.  
  3424.     SECTION "_gl_GetTexGenfv:0",CODE
  3425.  
  3426.  
  3427. ;void gl_GetTexGenfv( GLcontext *ctx,
  3428.     XDEF    _gl_GetTexGenfv
  3429. _gl_GetTexGenfv
  3430.     movem.l    d2/a2,-(a7)
  3431.     movem.l    $14(a7),d0/a1
  3432.     move.l    $10(a7),d2
  3433.     move.l    $C(a7),a0
  3434. L736
  3435. ;   if (INSIDE_BEGIN_END(ctx)) 
  3436.     move.l    a0,a2
  3437.     add.l    #$E08A,a2
  3438.     move.l    (a2),d1
  3439.     cmp.l    #$1A00,d1
  3440.     beq.b    L738
  3441. L737
  3442. ;      gl_error( ctx, GL_INVALID_OPERATION, "glGetTexGenfv" );
  3443.     move.l    #L733,-(a7)
  3444.     pea    $502.w
  3445.     move.l    a0,-(a7)
  3446.     jsr    _gl_error
  3447.     add.w    #$C,a7
  3448.     movem.l    (a7)+,d2/a2
  3449.     rts
  3450. L738
  3451. ;   switch( coord )
  3452.     cmp.l    #$2002,d2
  3453.     beq    L755
  3454.     bgt.b    L773
  3455.     cmp.l    #$2000,d2
  3456.     beq.b    L739
  3457.     cmp.l    #$2001,d2
  3458.     beq    L747
  3459.     bra    L771
  3460. L773
  3461.     cmp.l    #$2003,d2
  3462.     beq    L763
  3463.     bra    L771
  3464. ;      
  3465. L739
  3466. ;     if (pname==GL_TEXTURE_GEN_MODE) 
  3467.     cmp.l    #$2500,d0
  3468.     bne.b    L741
  3469. L740
  3470. ;        params[0] = BOOL_TO_FLOAT(ctx->Texture.GenModeS);
  3471.     add.l    #$D73C,a0
  3472.     lea    (a0),a0
  3473.     move.l    $1C(a0),d0
  3474.     fmove.l    d0,fp0
  3475.     fmove.s    fp0,(a1)
  3476.     bra    L746
  3477. L741
  3478. ;     else if (pname==GL_OBJECT_PLANE) 
  3479.     cmp.l    #$2501,d0
  3480.     bne.b    L743
  3481. L742
  3482. ;        COPY_4V( params
  3483.     move.l    a0,a2
  3484.     add.l    #$D768,a2
  3485.     lea    (a2),a2
  3486.     fmove.s    (a2),fp0
  3487.     fmove.s    fp0,(a1)
  3488. ;        COPY_4V( params
  3489.     move.l    a0,a2
  3490.     add.l    #$D768,a2
  3491.     lea    (a2),a2
  3492.     addq.w    #4,a2
  3493.     fmove.s    (a2),fp0
  3494.     lea    4(a1),a2
  3495.     fmove.s    fp0,(a2)
  3496. ;        COPY_4V( params
  3497.     move.l    a0,a2
  3498.     add.l    #$D768,a2
  3499.     lea    (a2),a2
  3500.     addq.w    #$8,a2
  3501.     fmove.s    (a2),fp0
  3502.     lea    $8(a1),a2
  3503.     fmove.s    fp0,(a2)
  3504. ;        COPY_4V( params
  3505.     add.l    #$D768,a0
  3506.     lea    (a0),a0
  3507.     add.w    #$C,a0
  3508.     fmove.s    (a0),fp0
  3509.     lea    $C(a1),a0
  3510.     fmove.s    fp0,(a0)
  3511.     bra    L746
  3512. L743
  3513. ;     else if (pname==GL_EYE_PLANE) 
  3514.     cmp.l    #$2502,d0
  3515.     bne.b    L745
  3516. L744
  3517. ;        COPY_4V( params, c
  3518.     move.l    a0,a2
  3519.     add.l    #$D7A8,a2
  3520.     lea    (a2),a2
  3521.     fmove.s    (a2),fp0
  3522.     fmove.s    fp0,(a1)
  3523. ;        COPY_4V( params, c
  3524.     move.l    a0,a2
  3525.     add.l    #$D7A8,a2
  3526.     lea    (a2),a2
  3527.     addq.w    #4,a2
  3528.     fmove.s    (a2),fp0
  3529.     lea    4(a1),a2
  3530.     fmove.s    fp0,(a2)
  3531. ;        COPY_4V( params, c
  3532.     move.l    a0,a2
  3533.     add.l    #$D7A8,a2
  3534.     lea    (a2),a2
  3535.     addq.w    #$8,a2
  3536.     fmove.s    (a2),fp0
  3537.     lea    $8(a1),a2
  3538.     fmove.s    fp0,(a2)
  3539. ;        COPY_4V( params, c
  3540.     add.l    #$D7A8,a0
  3541.     lea    (a0),a0
  3542.     add.w    #$C,a0
  3543.     fmove.s    (a0),fp0
  3544.     lea    $C(a1),a0
  3545.     fmove.s    fp0,(a0)
  3546.     bra.b    L746
  3547. L745
  3548. ;        gl_error( ctx, GL_INVALID_ENUM, "glGetTexGenfv(pname)" );
  3549.     move.l    #L734,-(a7)
  3550.     pea    $500.w
  3551.     move.l    a0,-(a7)
  3552.     jsr    _gl_error
  3553.     add.w    #$C,a7
  3554.     movem.l    (a7)+,d2/a2
  3555.     rts
  3556. L746
  3557. ;     
  3558.     bra    L772
  3559. L747
  3560. ;     if (pname==GL_TEXTURE_GEN_MODE) 
  3561.     cmp.l    #$2500,d0
  3562.     bne.b    L749
  3563. L748
  3564. ;        params[0] = BOOL_TO_FLOAT(ctx->Texture.GenModeT);
  3565.     add.l    #$D73C,a0
  3566.     lea    (a0),a0
  3567.     move.l    $20(a0),d0
  3568.     fmove.l    d0,fp0
  3569.     fmove.s    fp0,(a1)
  3570.     bra    L754
  3571. L749
  3572. ;     else if (pname==GL_OBJECT_PLANE) 
  3573.     cmp.l    #$2501,d0
  3574.     bne.b    L751
  3575. L750
  3576. ;        COPY_4V( params
  3577.     move.l    a0,a2
  3578.     add.l    #$D778,a2
  3579.     lea    (a2),a2
  3580.     fmove.s    (a2),fp0
  3581.     fmove.s    fp0,(a1)
  3582. ;        COPY_4V( params
  3583.     move.l    a0,a2
  3584.     add.l    #$D778,a2
  3585.     lea    (a2),a2
  3586.     addq.w    #4,a2
  3587.     fmove.s    (a2),fp0
  3588.     lea    4(a1),a2
  3589.     fmove.s    fp0,(a2)
  3590. ;        COPY_4V( params
  3591.     move.l    a0,a2
  3592.     add.l    #$D778,a2
  3593.     lea    (a2),a2
  3594.     addq.w    #$8,a2
  3595.     fmove.s    (a2),fp0
  3596.     lea    $8(a1),a2
  3597.     fmove.s    fp0,(a2)
  3598. ;        COPY_4V( params
  3599.     add.l    #$D778,a0
  3600.     lea    (a0),a0
  3601.     add.w    #$C,a0
  3602.     fmove.s    (a0),fp0
  3603.     lea    $C(a1),a0
  3604.     fmove.s    fp0,(a0)
  3605.     bra    L754
  3606. L751
  3607. ;     else if (pname==GL_EYE_PLANE) 
  3608.     cmp.l    #$2502,d0
  3609.     bne.b    L753
  3610. L752
  3611. ;        COPY_4V( params, c
  3612.     move.l    a0,a2
  3613.     add.l    #$D7B8,a2
  3614.     lea    (a2),a2
  3615.     fmove.s    (a2),fp0
  3616.     fmove.s    fp0,(a1)
  3617. ;        COPY_4V( params, c
  3618.     move.l    a0,a2
  3619.     add.l    #$D7B8,a2
  3620.     lea    (a2),a2
  3621.     addq.w    #4,a2
  3622.     fmove.s    (a2),fp0
  3623.     lea    4(a1),a2
  3624.     fmove.s    fp0,(a2)
  3625. ;        COPY_4V( params, c
  3626.     move.l    a0,a2
  3627.     add.l    #$D7B8,a2
  3628.     lea    (a2),a2
  3629.     addq.w    #$8,a2
  3630.     fmove.s    (a2),fp0
  3631.     lea    $8(a1),a2
  3632.     fmove.s    fp0,(a2)
  3633. ;        COPY_4V( params, c
  3634.     add.l    #$D7B8,a0
  3635.     lea    (a0),a0
  3636.     add.w    #$C,a0
  3637.     fmove.s    (a0),fp0
  3638.     lea    $C(a1),a0
  3639.     fmove.s    fp0,(a0)
  3640.     bra.b    L754
  3641. L753
  3642. ;        gl_error( ctx, GL_INVALID_ENUM, "glGetTexGenfv(pname)" );
  3643.     move.l    #L734,-(a7)
  3644.     pea    $500.w
  3645.     move.l    a0,-(a7)
  3646.     jsr    _gl_error
  3647.     add.w    #$C,a7
  3648.     movem.l    (a7)+,d2/a2
  3649.     rts
  3650. L754
  3651. ;     
  3652.     bra    L772
  3653. L755
  3654. ;     if (pname==GL_TEXTURE_GEN_MODE) 
  3655.     cmp.l    #$2500,d0
  3656.     bne.b    L757
  3657. L756
  3658. ;        params[0] = BOOL_TO_FLOAT(ctx->Texture.GenModeR);
  3659.     add.l    #$D73C,a0
  3660.     lea    (a0),a0
  3661.     move.l    $24(a0),d0
  3662.     fmove.l    d0,fp0
  3663.     fmove.s    fp0,(a1)
  3664.     bra    L762
  3665. L757
  3666. ;     else if (pname==GL_OBJECT_PLANE) 
  3667.     cmp.l    #$2501,d0
  3668.     bne.b    L759
  3669. L758
  3670. ;        COPY_4V( params
  3671.     move.l    a0,a2
  3672.     add.l    #$D788,a2
  3673.     lea    (a2),a2
  3674.     fmove.s    (a2),fp0
  3675.     fmove.s    fp0,(a1)
  3676. ;        COPY_4V( params
  3677.     move.l    a0,a2
  3678.     add.l    #$D788,a2
  3679.     lea    (a2),a2
  3680.     addq.w    #4,a2
  3681.     fmove.s    (a2),fp0
  3682.     lea    4(a1),a2
  3683.     fmove.s    fp0,(a2)
  3684. ;        COPY_4V( params
  3685.     move.l    a0,a2
  3686.     add.l    #$D788,a2
  3687.     lea    (a2),a2
  3688.     addq.w    #$8,a2
  3689.     fmove.s    (a2),fp0
  3690.     lea    $8(a1),a2
  3691.     fmove.s    fp0,(a2)
  3692. ;        COPY_4V( params
  3693.     add.l    #$D788,a0
  3694.     lea    (a0),a0
  3695.     add.w    #$C,a0
  3696.     fmove.s    (a0),fp0
  3697.     lea    $C(a1),a0
  3698.     fmove.s    fp0,(a0)
  3699.     bra    L762
  3700. L759
  3701. ;     else if (pname==GL_EYE_PLANE) 
  3702.     cmp.l    #$2502,d0
  3703.     bne.b    L761
  3704. L760
  3705. ;        COPY_4V( params, c
  3706.     move.l    a0,a2
  3707.     add.l    #$D7C8,a2
  3708.     lea    (a2),a2
  3709.     fmove.s    (a2),fp0
  3710.     fmove.s    fp0,(a1)
  3711. ;        COPY_4V( params, c
  3712.     move.l    a0,a2
  3713.     add.l    #$D7C8,a2
  3714.     lea    (a2),a2
  3715.     addq.w    #4,a2
  3716.     fmove.s    (a2),fp0
  3717.     lea    4(a1),a2
  3718.     fmove.s    fp0,(a2)
  3719. ;        COPY_4V( params, c
  3720.     move.l    a0,a2
  3721.     add.l    #$D7C8,a2
  3722.     lea    (a2),a2
  3723.     addq.w    #$8,a2
  3724.     fmove.s    (a2),fp0
  3725.     lea    $8(a1),a2
  3726.     fmove.s    fp0,(a2)
  3727. ;        COPY_4V( params, c
  3728.     add.l    #$D7C8,a0
  3729.     lea    (a0),a0
  3730.     add.w    #$C,a0
  3731.     fmove.s    (a0),fp0
  3732.     lea    $C(a1),a0
  3733.     fmove.s    fp0,(a0)
  3734.     bra.b    L762
  3735. L761
  3736. ;        gl_error( ctx, GL_INVALID_ENUM, "glGetTexGenfv(pname)" );
  3737.     move.l    #L734,-(a7)
  3738.     pea    $500.w
  3739.     move.l    a0,-(a7)
  3740.     jsr    _gl_error
  3741.     add.w    #$C,a7
  3742.     movem.l    (a7)+,d2/a2
  3743.     rts
  3744. L762
  3745. ;     
  3746.     bra    L772
  3747. L763
  3748. ;     if (pname==GL_TEXTURE_GEN_MODE) 
  3749.     cmp.l    #$2500,d0
  3750.     bne.b    L765
  3751. L764
  3752. ;        params[0] = BOOL_TO_FLOAT(ctx->Texture.GenModeQ);
  3753.     add.l    #$D73C,a0
  3754.     lea    (a0),a0
  3755.     move.l    $28(a0),d0
  3756.     fmove.l    d0,fp0
  3757.     fmove.s    fp0,(a1)
  3758.     bra    L770
  3759. L765
  3760. ;     else if (pname==GL_OBJECT_PLANE) 
  3761.     cmp.l    #$2501,d0
  3762.     bne.b    L767
  3763. L766
  3764. ;        COPY_4V( params
  3765.     move.l    a0,a2
  3766.     add.l    #$D798,a2
  3767.     lea    (a2),a2
  3768.     fmove.s    (a2),fp0
  3769.     fmove.s    fp0,(a1)
  3770. ;        COPY_4V( params
  3771.     move.l    a0,a2
  3772.     add.l    #$D798,a2
  3773.     lea    (a2),a2
  3774.     addq.w    #4,a2
  3775.     fmove.s    (a2),fp0
  3776.     lea    4(a1),a2
  3777.     fmove.s    fp0,(a2)
  3778. ;        COPY_4V( params
  3779.     move.l    a0,a2
  3780.     add.l    #$D798,a2
  3781.     lea    (a2),a2
  3782.     addq.w    #$8,a2
  3783.     fmove.s    (a2),fp0
  3784.     lea    $8(a1),a2
  3785.     fmove.s    fp0,(a2)
  3786. ;        COPY_4V( params
  3787.     add.l    #$D798,a0
  3788.     lea    (a0),a0
  3789.     add.w    #$C,a0
  3790.     fmove.s    (a0),fp0
  3791.     lea    $C(a1),a0
  3792.     fmove.s    fp0,(a0)
  3793.     bra    L770
  3794. L767
  3795. ;     else if (pname==GL_EYE_PLANE) 
  3796.     cmp.l    #$2502,d0
  3797.     bne.b    L769
  3798. L768
  3799. ;        COPY_4V( params, c
  3800.     move.l    a0,a2
  3801.     add.l    #$D7D8,a2
  3802.     lea    (a2),a2
  3803.     fmove.s    (a2),fp0
  3804.     fmove.s    fp0,(a1)
  3805. ;        COPY_4V( params, c
  3806.     move.l    a0,a2
  3807.     add.l    #$D7D8,a2
  3808.     lea    (a2),a2
  3809.     addq.w    #4,a2
  3810.     fmove.s    (a2),fp0
  3811.     lea    4(a1),a2
  3812.     fmove.s    fp0,(a2)
  3813. ;        COPY_4V( params, c
  3814.     move.l    a0,a2
  3815.     add.l    #$D7D8,a2
  3816.     lea    (a2),a2
  3817.     addq.w    #$8,a2
  3818.     fmove.s    (a2),fp0
  3819.     lea    $8(a1),a2
  3820.     fmove.s    fp0,(a2)
  3821. ;        COPY_4V( params, c
  3822.     add.l    #$D7D8,a0
  3823.     lea    (a0),a0
  3824.     add.w    #$C,a0
  3825.     fmove.s    (a0),fp0
  3826.     lea    $C(a1),a0
  3827.     fmove.s    fp0,(a0)
  3828.     bra.b    L770
  3829. L769
  3830. ;        gl_error( ctx, GL_INVALID_ENUM, "glGetTexGenfv(pname)" );
  3831.     move.l    #L734,-(a7)
  3832.     pea    $500.w
  3833.     move.l    a0,-(a7)
  3834.     jsr    _gl_error
  3835.     add.w    #$C,a7
  3836.     movem.l    (a7)+,d2/a2
  3837.     rts
  3838. L770
  3839. ;     
  3840.     bra.b    L772
  3841. L771
  3842. ;     gl_error( ctx, GL_INVALID_ENUM, "glGetTexGenfv(coord)" );
  3843.     move.l    #L735,-(a7)
  3844.     pea    $500.w
  3845.     move.l    a0,-(a7)
  3846.     jsr    _gl_error
  3847.     add.w    #$C,a7
  3848.     movem.l    (a7)+,d2/a2
  3849.     rts
  3850. L772
  3851. ;     return;
  3852.     movem.l    (a7)+,d2/a2
  3853.     rts
  3854.  
  3855. L733
  3856.     dc.b    'glGetTexGenfv',0
  3857. L735
  3858.     dc.b    'glGetTexGenfv(coord)',0
  3859. L734
  3860.     dc.b    'glGetTexGenfv(pname)',0
  3861.  
  3862.     SECTION "_gl_GetTexGeniv:0",CODE
  3863.  
  3864.  
  3865. ;void gl_GetTexGeniv( GLcontext *ctx,
  3866.     XDEF    _gl_GetTexGeniv
  3867. _gl_GetTexGeniv
  3868.     movem.l    d2/a2,-(a7)
  3869.     movem.l    $14(a7),d0/a1
  3870.     move.l    $10(a7),d2
  3871.     move.l    $C(a7),a0
  3872. L777
  3873. ;   if (INSIDE_BEGIN_END(ctx)) 
  3874.     move.l    a0,a2
  3875.     add.l    #$E08A,a2
  3876.     move.l    (a2),d1
  3877.     cmp.l    #$1A00,d1
  3878.     beq.b    L779
  3879. L778
  3880. ;      gl_error( ctx, GL_INVALID_OPERATION, "glGetTexGeniv" );
  3881.     move.l    #L774,-(a7)
  3882.     pea    $502.w
  3883.     move.l    a0,-(a7)
  3884.     jsr    _gl_error
  3885.     add.w    #$C,a7
  3886.     movem.l    (a7)+,d2/a2
  3887.     rts
  3888. L779
  3889. ;   switch( coord )
  3890.     cmp.l    #$2002,d2
  3891.     beq    L796
  3892.     bgt.b    L814
  3893.     cmp.l    #$2000,d2
  3894.     beq.b    L780
  3895.     cmp.l    #$2001,d2
  3896.     beq    L788
  3897.     bra    L812
  3898. L814
  3899.     cmp.l    #$2003,d2
  3900.     beq    L804
  3901.     bra    L812
  3902. ;      
  3903. L780
  3904. ;     if (pname==GL_TEXTURE_GEN_MODE) 
  3905.     cmp.l    #$2500,d0
  3906.     bne.b    L782
  3907. L781
  3908. ;        params[0] = ctx->Texture.GenModeS;
  3909.     add.l    #$D73C,a0
  3910.     lea    (a0),a0
  3911.     move.l    $1C(a0),d0
  3912.     move.l    d0,(a1)
  3913.     bra    L787
  3914. L782
  3915. ;     else if (pname==GL_OBJECT_PLANE) 
  3916.     cmp.l    #$2501,d0
  3917.     bne.b    L784
  3918. L783
  3919. ;        COPY_4V( params
  3920.     move.l    a0,a2
  3921.     add.l    #$D768,a2
  3922.     lea    (a2),a2
  3923.     fmove.s    (a2),fp0
  3924.     fmove.l    fp0,d0
  3925.     move.l    d0,(a1)
  3926. ;        COPY_4V( params
  3927.     move.l    a0,a2
  3928.     add.l    #$D768,a2
  3929.     lea    (a2),a2
  3930.     addq.w    #4,a2
  3931.     fmove.s    (a2),fp0
  3932.     fmove.l    fp0,d0
  3933.     lea    4(a1),a2
  3934.     move.l    d0,(a2)
  3935. ;        COPY_4V( params
  3936.     move.l    a0,a2
  3937.     add.l    #$D768,a2
  3938.     lea    (a2),a2
  3939.     addq.w    #$8,a2
  3940.     fmove.s    (a2),fp0
  3941.     fmove.l    fp0,d0
  3942.     lea    $8(a1),a2
  3943.     move.l    d0,(a2)
  3944. ;        COPY_4V( params
  3945.     add.l    #$D768,a0
  3946.     lea    (a0),a0
  3947.     add.w    #$C,a0
  3948.     fmove.s    (a0),fp0
  3949.     fmove.l    fp0,d0
  3950.     lea    $C(a1),a0
  3951.     move.l    d0,(a0)
  3952.     bra    L787
  3953. L784
  3954. ;     else if (pname==GL_EYE_PLANE) 
  3955.     cmp.l    #$2502,d0
  3956.     bne.b    L786
  3957. L785
  3958. ;        COPY_4V( params, c
  3959.     move.l    a0,a2
  3960.     add.l    #$D7A8,a2
  3961.     lea    (a2),a2
  3962.     fmove.s    (a2),fp0
  3963.     fmove.l    fp0,d0
  3964.     move.l    d0,(a1)
  3965. ;        COPY_4V( params, c
  3966.     move.l    a0,a2
  3967.     add.l    #$D7A8,a2
  3968.     lea    (a2),a2
  3969.     addq.w    #4,a2
  3970.     fmove.s    (a2),fp0
  3971.     fmove.l    fp0,d0
  3972.     lea    4(a1),a2
  3973.     move.l    d0,(a2)
  3974. ;        COPY_4V( params, c
  3975.     move.l    a0,a2
  3976.     add.l    #$D7A8,a2
  3977.     lea    (a2),a2
  3978.     addq.w    #$8,a2
  3979.     fmove.s    (a2),fp0
  3980.     fmove.l    fp0,d0
  3981.     lea    $8(a1),a2
  3982.     move.l    d0,(a2)
  3983. ;        COPY_4V( params, c
  3984.     add.l    #$D7A8,a0
  3985.     lea    (a0),a0
  3986.     add.w    #$C,a0
  3987.     fmove.s    (a0),fp0
  3988.     fmove.l    fp0,d0
  3989.     lea    $C(a1),a0
  3990.     move.l    d0,(a0)
  3991.     bra.b    L787
  3992. L786
  3993. ;        gl_error( ctx, GL_INVALID_ENUM, "glGetTexGeniv(pname)" );
  3994.     move.l    #L775,-(a7)
  3995.     pea    $500.w
  3996.     move.l    a0,-(a7)
  3997.     jsr    _gl_error
  3998.     add.w    #$C,a7
  3999.     movem.l    (a7)+,d2/a2
  4000.     rts
  4001. L787
  4002. ;     
  4003.     bra    L813
  4004. L788
  4005. ;     if (pname==GL_TEXTURE_GEN_MODE) 
  4006.     cmp.l    #$2500,d0
  4007.     bne.b    L790
  4008. L789
  4009. ;        params[0] = ctx->Texture.GenModeT;
  4010.     add.l    #$D73C,a0
  4011.     lea    (a0),a0
  4012.     move.l    $20(a0),d0
  4013.     move.l    d0,(a1)
  4014.     bra    L795
  4015. L790
  4016. ;     else if (pname==GL_OBJECT_PLANE) 
  4017.     cmp.l    #$2501,d0
  4018.     bne.b    L792
  4019. L791
  4020. ;        COPY_4V( params
  4021.     move.l    a0,a2
  4022.     add.l    #$D778,a2
  4023.     lea    (a2),a2
  4024.     fmove.s    (a2),fp0
  4025.     fmove.l    fp0,d0
  4026.     move.l    d0,(a1)
  4027. ;        COPY_4V( params
  4028.     move.l    a0,a2
  4029.     add.l    #$D778,a2
  4030.     lea    (a2),a2
  4031.     addq.w    #4,a2
  4032.     fmove.s    (a2),fp0
  4033.     fmove.l    fp0,d0
  4034.     lea    4(a1),a2
  4035.     move.l    d0,(a2)
  4036. ;        COPY_4V( params
  4037.     move.l    a0,a2
  4038.     add.l    #$D778,a2
  4039.     lea    (a2),a2
  4040.     addq.w    #$8,a2
  4041.     fmove.s    (a2),fp0
  4042.     fmove.l    fp0,d0
  4043.     lea    $8(a1),a2
  4044.     move.l    d0,(a2)
  4045. ;        COPY_4V( params
  4046.     add.l    #$D778,a0
  4047.     lea    (a0),a0
  4048.     add.w    #$C,a0
  4049.     fmove.s    (a0),fp0
  4050.     fmove.l    fp0,d0
  4051.     lea    $C(a1),a0
  4052.     move.l    d0,(a0)
  4053.     bra    L795
  4054. L792
  4055. ;     else if (pname==GL_EYE_PLANE) 
  4056.     cmp.l    #$2502,d0
  4057.     bne.b    L794
  4058. L793
  4059. ;        COPY_4V( params, c
  4060.     move.l    a0,a2
  4061.     add.l    #$D7B8,a2
  4062.     lea    (a2),a2
  4063.     fmove.s    (a2),fp0
  4064.     fmove.l    fp0,d0
  4065.     move.l    d0,(a1)
  4066. ;        COPY_4V( params, c
  4067.     move.l    a0,a2
  4068.     add.l    #$D7B8,a2
  4069.     lea    (a2),a2
  4070.     addq.w    #4,a2
  4071.     fmove.s    (a2),fp0
  4072.     fmove.l    fp0,d0
  4073.     lea    4(a1),a2
  4074.     move.l    d0,(a2)
  4075. ;        COPY_4V( params, c
  4076.     move.l    a0,a2
  4077.     add.l    #$D7B8,a2
  4078.     lea    (a2),a2
  4079.     addq.w    #$8,a2
  4080.     fmove.s    (a2),fp0
  4081.     fmove.l    fp0,d0
  4082.     lea    $8(a1),a2
  4083.     move.l    d0,(a2)
  4084. ;        COPY_4V( params, c
  4085.     add.l    #$D7B8,a0
  4086.     lea    (a0),a0
  4087.     add.w    #$C,a0
  4088.     fmove.s    (a0),fp0
  4089.     fmove.l    fp0,d0
  4090.     lea    $C(a1),a0
  4091.     move.l    d0,(a0)
  4092.     bra.b    L795
  4093. L794
  4094. ;        gl_error( ctx, GL_INVALID_ENUM, "glGetTexGeniv(pname)" );
  4095.     move.l    #L775,-(a7)
  4096.     pea    $500.w
  4097.     move.l    a0,-(a7)
  4098.     jsr    _gl_error
  4099.     add.w    #$C,a7
  4100.     movem.l    (a7)+,d2/a2
  4101.     rts
  4102. L795
  4103. ;     
  4104.     bra    L813
  4105. L796
  4106. ;     if (pname==GL_TEXTURE_GEN_MODE) 
  4107.     cmp.l    #$2500,d0
  4108.     bne.b    L798
  4109. L797
  4110. ;        params[0] = ctx->Texture.GenModeR;
  4111.     add.l    #$D73C,a0
  4112.     lea    (a0),a0
  4113.     move.l    $24(a0),d0
  4114.     move.l    d0,(a1)
  4115.     bra    L803
  4116. L798
  4117. ;     else if (pname==GL_OBJECT_PLANE) 
  4118.     cmp.l    #$2501,d0
  4119.     bne.b    L800
  4120. L799
  4121. ;        COPY_4V( params
  4122.     move.l    a0,a2
  4123.     add.l    #$D788,a2
  4124.     lea    (a2),a2
  4125.     fmove.s    (a2),fp0
  4126.     fmove.l    fp0,d0
  4127.     move.l    d0,(a1)
  4128. ;        COPY_4V( params
  4129.     move.l    a0,a2
  4130.     add.l    #$D788,a2
  4131.     lea    (a2),a2
  4132.     addq.w    #4,a2
  4133.     fmove.s    (a2),fp0
  4134.     fmove.l    fp0,d0
  4135.     lea    4(a1),a2
  4136.     move.l    d0,(a2)
  4137. ;        COPY_4V( params
  4138.     move.l    a0,a2
  4139.     add.l    #$D788,a2
  4140.     lea    (a2),a2
  4141.     addq.w    #$8,a2
  4142.     fmove.s    (a2),fp0
  4143.     fmove.l    fp0,d0
  4144.     lea    $8(a1),a2
  4145.     move.l    d0,(a2)
  4146. ;        COPY_4V( params
  4147.     add.l    #$D788,a0
  4148.     lea    (a0),a0
  4149.     add.w    #$C,a0
  4150.     fmove.s    (a0),fp0
  4151.     fmove.l    fp0,d0
  4152.     lea    $C(a1),a0
  4153.     move.l    d0,(a0)
  4154.     bra    L803
  4155. L800
  4156. ;     else if (pname==GL_EYE_PLANE) 
  4157.     cmp.l    #$2502,d0
  4158.     bne.b    L802
  4159. L801
  4160. ;        COPY_4V( params, c
  4161.     move.l    a0,a2
  4162.     add.l    #$D7C8,a2
  4163.     lea    (a2),a2
  4164.     fmove.s    (a2),fp0
  4165.     fmove.l    fp0,d0
  4166.     move.l    d0,(a1)
  4167. ;        COPY_4V( params, c
  4168.     move.l    a0,a2
  4169.     add.l    #$D7C8,a2
  4170.     lea    (a2),a2
  4171.     addq.w    #4,a2
  4172.     fmove.s    (a2),fp0
  4173.     fmove.l    fp0,d0
  4174.     lea    4(a1),a2
  4175.     move.l    d0,(a2)
  4176. ;        COPY_4V( params, c
  4177.     move.l    a0,a2
  4178.     add.l    #$D7C8,a2
  4179.     lea    (a2),a2
  4180.     addq.w    #$8,a2
  4181.     fmove.s    (a2),fp0
  4182.     fmove.l    fp0,d0
  4183.     lea    $8(a1),a2
  4184.     move.l    d0,(a2)
  4185. ;        COPY_4V( params, c
  4186.     add.l    #$D7C8,a0
  4187.     lea    (a0),a0
  4188.     add.w    #$C,a0
  4189.     fmove.s    (a0),fp0
  4190.     fmove.l    fp0,d0
  4191.     lea    $C(a1),a0
  4192.     move.l    d0,(a0)
  4193.     bra.b    L803
  4194. L802
  4195. ;        gl_error( ctx, GL_INVALID_ENUM, "glGetTexGeniv(pname)" );
  4196.     move.l    #L775,-(a7)
  4197.     pea    $500.w
  4198.     move.l    a0,-(a7)
  4199.     jsr    _gl_error
  4200.     add.w    #$C,a7
  4201.     movem.l    (a7)+,d2/a2
  4202.     rts
  4203. L803
  4204. ;     
  4205.     bra    L813
  4206. L804
  4207. ;     if (pname==GL_TEXTURE_GEN_MODE) 
  4208.     cmp.l    #$2500,d0
  4209.     bne.b    L806
  4210. L805
  4211. ;        params[0] = ctx->Texture.GenModeQ;
  4212.     add.l    #$D73C,a0
  4213.     lea    (a0),a0
  4214.     move.l    $28(a0),d0
  4215.     move.l    d0,(a1)
  4216.     bra    L811
  4217. L806
  4218. ;     else if (pname==GL_OBJECT_PLANE) 
  4219.     cmp.l    #$2501,d0
  4220.     bne.b    L808
  4221. L807
  4222. ;        COPY_4V( params
  4223.     move.l    a0,a2
  4224.     add.l    #$D798,a2
  4225.     lea    (a2),a2
  4226.     fmove.s    (a2),fp0
  4227.     fmove.l    fp0,d0
  4228.     move.l    d0,(a1)
  4229. ;        COPY_4V( params
  4230.     move.l    a0,a2
  4231.     add.l    #$D798,a2
  4232.     lea    (a2),a2
  4233.     addq.w    #4,a2
  4234.     fmove.s    (a2),fp0
  4235.     fmove.l    fp0,d0
  4236.     lea    4(a1),a2
  4237.     move.l    d0,(a2)
  4238. ;        COPY_4V( params
  4239.     move.l    a0,a2
  4240.     add.l    #$D798,a2
  4241.     lea    (a2),a2
  4242.     addq.w    #$8,a2
  4243.     fmove.s    (a2),fp0
  4244.     fmove.l    fp0,d0
  4245.     lea    $8(a1),a2
  4246.     move.l    d0,(a2)
  4247. ;        COPY_4V( params
  4248.     add.l    #$D798,a0
  4249.     lea    (a0),a0
  4250.     add.w    #$C,a0
  4251.     fmove.s    (a0),fp0
  4252.     fmove.l    fp0,d0
  4253.     lea    $C(a1),a0
  4254.     move.l    d0,(a0)
  4255.     bra    L811
  4256. L808
  4257. ;     else if (pname==GL_EYE_PLANE) 
  4258.     cmp.l    #$2502,d0
  4259.     bne.b    L810
  4260. L809
  4261. ;        COPY_4V( params, c
  4262.     move.l    a0,a2
  4263.     add.l    #$D7D8,a2
  4264.     lea    (a2),a2
  4265.     fmove.s    (a2),fp0
  4266.     fmove.l    fp0,d0
  4267.     move.l    d0,(a1)
  4268. ;        COPY_4V( params, c
  4269.     move.l    a0,a2
  4270.     add.l    #$D7D8,a2
  4271.     lea    (a2),a2
  4272.     addq.w    #4,a2
  4273.     fmove.s    (a2),fp0
  4274.     fmove.l    fp0,d0
  4275.     lea    4(a1),a2
  4276.     move.l    d0,(a2)
  4277. ;        COPY_4V( params, c
  4278.     move.l    a0,a2
  4279.     add.l    #$D7D8,a2
  4280.     lea    (a2),a2
  4281.     addq.w    #$8,a2
  4282.     fmove.s    (a2),fp0
  4283.     fmove.l    fp0,d0
  4284.     lea    $8(a1),a2
  4285.     move.l    d0,(a2)
  4286. ;        COPY_4V( params, c
  4287.     add.l    #$D7D8,a0
  4288.     lea    (a0),a0
  4289.     add.w    #$C,a0
  4290.     fmove.s    (a0),fp0
  4291.     fmove.l    fp0,d0
  4292.     lea    $C(a1),a0
  4293.     move.l    d0,(a0)
  4294.     bra.b    L811
  4295. L810
  4296. ;        gl_error( ctx, GL_INVALID_ENUM, "glGetTexGeniv(pname)" );
  4297.     move.l    #L775,-(a7)
  4298.     pea    $500.w
  4299.     move.l    a0,-(a7)
  4300.     jsr    _gl_error
  4301.     add.w    #$C,a7
  4302.     movem.l    (a7)+,d2/a2
  4303.     rts
  4304. L811
  4305. ;     
  4306.     bra.b    L813
  4307. L812
  4308. ;     gl_error( ctx, GL_INVALID_ENUM, "glGetTexGeniv(coord)" );
  4309.     move.l    #L776,-(a7)
  4310.     pea    $500.w
  4311.     move.l    a0,-(a7)
  4312.     jsr    _gl_error
  4313.     add.w    #$C,a7
  4314.     movem.l    (a7)+,d2/a2
  4315.     rts
  4316. L813
  4317. ;     return;
  4318.     movem.l    (a7)+,d2/a2
  4319.     rts
  4320.  
  4321. L774
  4322.     dc.b    'glGetTexGeniv',0
  4323. L776
  4324.     dc.b    'glGetTexGeniv(coord)',0
  4325. L775
  4326.     dc.b    'glGetTexGeniv(pname)',0
  4327.  
  4328.     SECTION "_gl_update_texture_state:0",CODE
  4329.  
  4330.  
  4331. ;void gl_update_texture_state( GLcontext *ctx )
  4332.     XDEF    _gl_update_texture_state
  4333. _gl_update_texture_state
  4334.     move.l    a2,-(a7)
  4335.     move.l    $8(a7),a0
  4336. L815
  4337. ;   if (ctx->Texture.Enabled & TEXTURE_3D)
  4338.     move.l    a0,a1
  4339.     add.l    #$D73C,a1
  4340.     lea    (a1),a1
  4341.     move.l    (a1),d0
  4342.     and.l    #4,d0
  4343.     beq.b    L817
  4344. L816
  4345. ;      ctx->Texture.Current = ctx->Texture.Current3D;
  4346.     move.l    a0,a1
  4347.     add.l    #$D73C,a1
  4348.     lea    (a1),a1
  4349.     move.l    $B4(a1),a1
  4350.     move.l    a0,a2
  4351.     add.l    #$D7F4,a2
  4352.     move.l    a1,(a2)
  4353.     bra.b    L822
  4354. L817
  4355. ;   else if (ctx->Texture.Enabled & TEXTURE_2D)
  4356.     move.l    a0,a1
  4357.     add.l    #$D73C,a1
  4358.     lea    (a1),a1
  4359.     move.l    (a1),d0
  4360.     and.l    #2,d0
  4361.     beq.b    L819
  4362. L818
  4363. ;      ctx->Texture.Current = ctx->Texture.Current2D;
  4364.     move.l    a0,a1
  4365.     add.l    #$D73C,a1
  4366.     lea    (a1),a1
  4367.     move.l    $B0(a1),a1
  4368.     move.l    a0,a2
  4369.     add.l    #$D7F4,a2
  4370.     move.l    a1,(a2)
  4371.     bra.b    L822
  4372. L819
  4373. ;   else if (ctx->Texture.Enabled & TEXTURE_1D)
  4374.     move.l    a0,a1
  4375.     add.l    #$D73C,a1
  4376.     lea    (a1),a1
  4377.     move.l    (a1),d0
  4378.     and.l    #1,d0
  4379.     beq.b    L821
  4380. L820
  4381. ;      ctx->Texture.Current = ctx->Texture.Current1D;
  4382.     move.l    a0,a1
  4383.     add.l    #$D73C,a1
  4384.     lea    (a1),a1
  4385.     move.l    $AC(a1),a1
  4386.     move.l    a0,a2
  4387.     add.l    #$D7F4,a2
  4388.     move.l    a1,(a2)
  4389.     bra.b    L822
  4390. L821
  4391. ;      ctx->Texture.Current = NULL;
  4392.     move.l    a0,a2
  4393.     add.l    #$D7F4,a2
  4394.     clr.l    (a2)
  4395. L822
  4396. ;   for (t = ctx->Shared->TexObjectList;
  4397.     move.l    (a0),a0
  4398.     move.l    $C(a0),a2
  4399.     bra.b    L826
  4400. L823
  4401. ;      if (t->Dirty) 
  4402.     move.b    $470(a2),d0
  4403.     beq.b    L825
  4404. L824
  4405. ;     gl_test_texture_object_completeness(t);
  4406.     move.l    a2,-(a7)
  4407.     jsr    _gl_test_texture_object_completeness
  4408.     addq.w    #4,a7
  4409. ;     gl_set_texture_sampler(t);
  4410.     move.l    a2,-(a7)
  4411.     jsr    _gl_set_texture_sampler
  4412.     addq.w    #4,a7
  4413. ;     t->Dirty = GL_FALSE;
  4414.     clr.b    $470(a2)
  4415. L825
  4416.     move.l    $47C(a2),a2
  4417. L826
  4418.     cmp.w    #0,a2
  4419.     bne.b    L823
  4420. L827
  4421.     move.l    (a7)+,a2
  4422.     rts
  4423.  
  4424.     END
  4425.