home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / BIX02.ZIP / PORTS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-08-04  |  222 b   |  8 lines
  1. Turn video off:   port[$3D8] := mem[$40:$65] and $F7;
  2. Turn back on:     port[$3D8] := mem[$40:$65;
  3.  
  4. port[$3D8] is the CGA display register.
  5.  
  6. code to wait for vertical retrace is:
  7.    while port[$3DA] and $08 = 0 do;
  8.