home *** CD-ROM | disk | FTP | other *** search
/ Big Blue Disk 10 / bbd10new.zip / CGADEF.PAS < prev    next >
Pascal/Delphi Source File  |  1987-05-14  |  2KB  |  39 lines
  1. CONST  { CGA Definitions }
  2.  
  3.   CGA_CRTC_Index = $03D4;                 CGA_Control = $03D8;
  4.   CGA_CRTC_Value = $03D5;                 CGA_Palette = $03D9;
  5.                                           CGA_Status  = $03DA;
  6.  
  7.   CRTC_Horiz_Total     = 0;               CRTC_Max_Scan_Line =  9;
  8.   CRTC_Horiz_Display   = 1;               CRTC_Cursor_Start  = 10;
  9.   CRTC_Horiz_SyncPos   = 2;               CRTC_Cursor_End    = 11;
  10.   CRTC_Horiz_SyncWidth = 3;               CRTC_Start_High    = 12;
  11.   CRTC_Vert_Total      = 4;               CRTC_Start_Low     = 13;
  12.   CRTC_Vert_Adjust     = 5;               CRTC_Cursor_High   = 14;
  13.   CRTC_Vert_Display    = 6;               CRTC_Cursor_Low    = 15;
  14.   CRTC_Vert_SyncPos    = 7;               CRTC_LightPen_High = 16;
  15.   CRTC_Interlace_Mode  = 8;               CRTC_LightPen_Low  = 17;
  16.  
  17.   CGA_C_80x25     = $01;                  CGA_P_Blue       = $01;
  18.   CGA_C_Graphics  = $02;                  CGA_P_Green      = $02;
  19.   CGA_C_BandW     = $04;                  CGA_P_Red        = $04;
  20.   CGA_C_Video     = $08;                  CGA_P_Intensity  = $08;
  21.   CGA_C_640x200   = $10;                  CGA_P_PIntensity = $10;
  22.   CGA_C_Blink     = $20;                  CGA_P_Palette    = $20;
  23.   CGA_S_HBlanking = $01;                  CGA_S_VBlanking  = $08;
  24.  
  25.  
  26. FUNCTION CPeekCRTC (index:  Byte):  Byte;
  27.  
  28.   Port [CGA_CRTC_Index] := index;
  29.   CPeekCRTC := Port [CGA_CRTC_Value]
  30.  
  31. END;  { FUNCTION CPeekCRTC }
  32.  
  33.  
  34. PROCEDURE CPokeCRTC (index, value:  Byte);
  35.  
  36.   Port [CGA_CRTC_Index] := index;
  37.   Port [CGA_CRTC_Value] := value
  38.  
  39. END;  { PROCEDURE CPokeCRTC }