Browse Source

- removed commented out code from PutPixel320 and GetPixel320

git-svn-id: trunk@40895 -
nickysn 6 years ago
parent
commit
ff78058f8c
1 changed files with 0 additions and 2 deletions
  1. 0 2
      packages/graph/src/msdos/graph.pp

+ 0 - 2
packages/graph/src/msdos/graph.pp

@@ -2384,7 +2384,6 @@ End;
       shr    ax, 1
       shr    ax, 1
       shr    ax, 1
       shr    ax, 1
       add    di, ax
       add    di, ax
-//      add    di, [VideoOfs]    { point to correct page.. }
       mov    ax, [Pixel]
       mov    ax, [Pixel]
       mov    es:[di], al
       mov    es:[di], al
     end ['ax','di'];
     end ['ax','di'];
@@ -2405,7 +2404,6 @@ End;
       shr    ax, 1
       shr    ax, 1
       add    di, ax
       add    di, ax
       xor    ax, ax
       xor    ax, ax
-//      add    di, [VideoOfs]   { point to correct gfx page ... }
       mov    al,es:[di]
       mov    al,es:[di]
       mov    word ptr @Result,ax
       mov    word ptr @Result,ax
 {$ifdef FPC_GRAPH_SUPPORTS_TRUECOLOR}
 {$ifdef FPC_GRAPH_SUPPORTS_TRUECOLOR}