  PROCEDURE SETMODE; ASSEMBLER;
   ASM
    MOV AX,013H  {<--  AX-be a md szmt tltjk}
    INT 10H      {<--  lefuttatjuk a md bellt BIOS}
   END;          {     rutint, mely az AX-ben lev mdba}
                 {     kapcsolja a monitorunkat.}

  PROCEDURE PUTPIXEL(X,Y:WORD; COLOR:BYTE); ASSEMBLER;
   ASM
    MOV AX,0A000H  {<-- ES-t a video szegmens elejre}
    MOV ES,AX      {   lltjuk.}
    MOV AX,320    { \                   }
    MUL Y         {  \  <-- Cm szmts}
    ADD AX,Y      {  /                  } 
    MOV DI,AX     { /                   }
    MOV AL,COLOR   {<-- AL-be a sznt msoljuk}
    MOV ES:[di],AL {<-- s AL-t a az ES:DI lltal mutatott}
   END;                {helyre msoljuk}

  FUNCTION GETPIXEL(X,Y:WORD):BYTE; ASSEMBLER;
   ASM
    MOV AX,0A000H  {<-- ES-t a video szegmens elejre}
    MOV ES,AX      {    lltjuk.}
    MOV AX,320    { \                   }
    MUL Y         {  \  <-- Cm szmts}
    ADD AX,Y      {  /                  }
    MOV DI,AX     { /                   }
    MOV AL,ES:[di] {<-- A kppont letltse}
   END;

  PROCEDURE SETRGB(REGNUMBER,RED,GREEN,BLUE:BYTE); ASSEMBLER;
   ASM
    MOV DX,03C8H     {<-- RGB rs cmregisztere}
    MOV AL,REGNUMBER { \ <-- regiszter megadsa }
    OUT DX,AL        { /                        }
    INC DX           {<-- 03C9H az RGB adatregiszter}
    MOV AL,RED      {  \                                      }
    OUT DX,AL       {   \                                     }
    MOV AL,GREEN    {    \                                    } 
    OUT DX,AL       {    / <-- piros, zld s kk komponensek }
    MOV AL,BLUE     {   /                                     }
    OUT DX,AL       {  /                                      }
   END;

  PROCEDURE GETRGB(REGNUMBER:BYTE;VAR RGB); ASSEMBLER;
   ASM
    CLD
    LES DI,RGB    { <-- ES:[di] mutat a clcmre        }
    MOV DX,03C7H  { <-- RGB olvass cmregisztere       }
    MOV AL,REGNUMBER
    OUT DX,AL     { <-- Megadott regiszter kivlasztsa }
    ADD DL,2      { <-- 03C9H az RGB adatregiszter      }
    IN AL,DX  { \                                       }
    STOSB     {  \                                      }
    IN AL,DX  {   \                                     }
    STOSB     {   / <-- Piros, kk, zld komponensek    }
    IN AL,DX  {  /      olvassa s trolsa            }
    STOSB     { /                                       }
   END;
