home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / graphics.swg / 0133_Fastest Putpixel?.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-08-25  |  2.6 KB  |  76 lines
  1. (*
  2. From: kfredrik@cc.Helsinki.FI (Kimmo K K Fredriksson)
  3.  
  4. :  > This routine, from off the net somewhere, is a little faster
  5. :  > than simply writing to MEM (it replaces the multiply by a
  6. :  > shift).
  7. : Wilbert van Leijen and I once wrote a similar thing like this as an InLine
  8. : macro, which turned out to be the true fastest code (ok, never say...)
  9.  
  10. : Procedure PutPixel18(c: Byte; x,y: Integer);
  11. : Inline(
  12. :   $B8/$00/$A0/      {  mov   AX,$A000   }
  13. :   $8E/$C0/          {  mov   ES,AX      }
  14. :   $5B/              {  pop   BX         }
  15. :   $88/$DC/          {  mov   AH,BL      }
  16. :   $5F/              {  pop   DI         }
  17. :   $01/$C7/          {  add   DI,AX      }
  18. :  {$IFOPT G+}
  19. :   $C1/$E8/$02/      {  shr   AX,2       }
  20. :  {$ELSE}
  21. :   $D1/$E8/          {  shr   AX,1       }
  22. :   $D1/$E8/          {  shr   AX,1       }
  23. :  {$ENDIF}
  24. :   $01/$C7/          {  add   DI,AX      }
  25. :   $58/              {  pop   AX         }
  26. :   $AA);             {  stosb            }
  27.  
  28. : I'd be real interested in seeing a PutPixel (remember: one pixel only, not a
  29. : line, that's another story) that is faster than this one...
  30.  
  31. This is fast indeed, but the last instruction should be replaced at
  32. least in 486 and Pentium CPUs with instruction mov es:[di],al, which
  33. is faster than stosb (and you may also want to re-arrange them).
  34.  
  35. Also, the shift and add sequence could be replaced by table look-up,
  36. but that wouldn't be so elegant, only faster. So if you wanna stick
  37. with arithmetic address calculation, you could use 32-bit instructions,
  38. something like this:
  39.  
  40.  mov es,[SegA000]
  41.  pop di
  42.  pop bx
  43.  pop ax
  44.  shl di,6
  45.  lea edi,[edi*4+edi]
  46.  mov es:[edi+ebx],al
  47.  
  48. If I use 32-bit instructions, I usually zero data registers in the
  49. initialization part of my program, so I can use those registers
  50. in the situations like above without the need to every time zero
  51. the high bits.
  52.  
  53. You may also use fs or gs register instead of es, because you may
  54. always keep it pointing to video RAM, instead of loading it every
  55. time you do PutPixel.
  56.  
  57. This may go beyond the topic, but what the heck: usually I try to
  58. use the offset of the screen mem as the parameter of these kind of
  59. procedures, because it removes the need of address calculation:
  60. *)
  61. PROCEDURE PutPixel( offset : Word; c : Byte );
  62.   INLINE(
  63.  pop ax
  64.  pop di
  65.  mov fs,[di],al
  66. );
  67. (*
  68. It is still very easy to use the offset instead of the (x,y)
  69. position, if you want the next x-pix, add one to offset, if
  70. you want the next y-pix, add 320 to offset.
  71.  
  72. Sorry, but I was too lazy to calc the hex values :-(
  73.  
  74. And never say that you have the absolutely fastest code ;-)
  75. *)
  76.