home *** CD-ROM | disk | FTP | other *** search
/ Big Blue Disk 10 / bbd10new.zip / CGADEF.BAS < prev    next >
BASIC Source File  |  1987-05-14  |  1KB  |  23 lines
  1. 1 ' GW-BASIC definitions for CGA Video direct-access.
  2. 2 '
  3. 10  CGA.CRTC.Index    = &h03D4:             CGA.Control = &h03D8
  4. 15  CGA.CRTC.Value    = &h03D5:             CGA.Palette = &h03D9
  5. 20                                          CGA.Status  = &h03DA
  6. 25 '
  7. 30  CRTC.Horiz.Total     = 0:               CRTC.Max.Scan.Line =  9
  8. 35  CRTC.Horiz.Display   = 1:               CRTC.Cursor.Start  = 10
  9. 40  CRTC.Horiz.SyncPos   = 2:               CRTC.Cursor.End    = 11
  10. 45  CRTC.Horiz.SyncWidth = 3:               CRTC.Start.High    = 12
  11. 50  CRTC.Vert.Total      = 4:               CRTC.Start.Low     = 13
  12. 55  CRTC.Vert.Adjust     = 5:               CRTC.Cursor.High   = 14
  13. 60  CRTC.Vert.Display    = 6:               CRTC.Cursor.Low    = 15
  14. 65  CRTC.Vert.SyncPos    = 7:               CRTC.LightPen.High = 16
  15. 70  CRTC.Interlace.Mode  = 8:               CRTC.LightPen.Low  = 17
  16. 80'
  17. 100 CGA.C.80x25     = &h01:                 CGA.P.Blue       = &h01
  18. 105 CGA.C.Graphics  = &h02:                 CGA.P.Green      = &h02
  19. 110 CGA.C.BandW     = &h04:                 CGA.P.Red        = &h04
  20. 115 CGA.C.Video     = &h08:                 CGA.P.Intensity  = &h08
  21. 120 CGA.C.640x200   = &h10:                 CGA.P.Pintensity = &h10
  22. 125 CGA.C.Blink     = &h20:                 CGA.P.Palette    = &h20
  23. 130 CGA.S.HBlanking = &h01:                 CGA.S.VBlanking  = &h08