CP/M/CPM_CDROM.iso/cpm/modems/modem/pc-psuit.lbr/CURSOR.PAS

Pascal/Delphi Source File | 1986-08-15 | 512 b | 17 lines

{ Contains machine code to turn cursor off on Kaypro '84 series.  Works
  by sending 10 out port 28 and 16 out port 29.  Could use the port array
  as easily ... this takes less room. }

Procedure Cursor_Off;
  Begin
    InLine ($3E/10/$D3/28/$3E/16/$D3/29);
  End;

{ Same as above except turns cursor on. }

Procedure Cursor_On;
  Begin
    InLine ($3E/10/$D3/28/$3E/96/$D3/29);
  End;