1 ' GW-BASIC definitions for CGA Video direct-access.
2 '
10  CGA.CRTC.Index    = &h03D4:             CGA.Control = &h03D8
15  CGA.CRTC.Value    = &h03D5:             CGA.Palette = &h03D9
20                                          CGA.Status  = &h03DA
25 '
30  CRTC.Horiz.Total     = 0:               CRTC.Max.Scan.Line =  9
35  CRTC.Horiz.Display   = 1:               CRTC.Cursor.Start  = 10
40  CRTC.Horiz.SyncPos   = 2:               CRTC.Cursor.End    = 11
45  CRTC.Horiz.SyncWidth = 3:               CRTC.Start.High    = 12
50  CRTC.Vert.Total      = 4:               CRTC.Start.Low     = 13
55  CRTC.Vert.Adjust     = 5:               CRTC.Cursor.High   = 14
60  CRTC.Vert.Display    = 6:               CRTC.Cursor.Low    = 15
65  CRTC.Vert.SyncPos    = 7:               CRTC.LightPen.High = 16
70  CRTC.Interlace.Mode  = 8:               CRTC.LightPen.Low  = 17
80'
100 CGA.C.80x25     = &h01:                 CGA.P.Blue       = &h01
105 CGA.C.Graphics  = &h02:                 CGA.P.Green      = &h02
110 CGA.C.BandW     = &h04:                 CGA.P.Red        = &h04
115 CGA.C.Video     = &h08:                 CGA.P.Intensity  = &h08
120 CGA.C.640x200   = &h10:                 CGA.P.Pintensity = &h10
125 CGA.C.Blink     = &h20:                 CGA.P.Palette    = &h20
130 CGA.S.HBlanking = &h01:                 CGA.S.VBlanking  = &h08