home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / MODEMS / MODEM / PC-PSUIT.LBR / CURSOR.PAS < prev    next >
Pascal/Delphi Source File  |  2000-06-30  |  512b  |  17 lines
  1.  
  2. { Contains machine code to turn cursor off on Kaypro '84 series.  Works
  3.   by sending 10 out port 28 and 16 out port 29.  Could use the port array
  4.   as easily ... this takes less room. }
  5.  
  6. Procedure Cursor_Off;
  7.   Begin
  8.     InLine ($3E/10/$D3/28/$3E/16/$D3/29);
  9.   End;
  10.  
  11. { Same as above except turns cursor on. }
  12.  
  13. Procedure Cursor_On;
  14.   Begin
  15.     InLine ($3E/10/$D3/28/$3E/96/$D3/29);
  16.   End;
  17.