[Back to CURSOR SWAG index]  [Back to Main SWAG index]  [Original]

{
JEFF HLYWA

> One more thing, how could I reWrite the GotoXY command For use
> through the comport?

Ok.. if you are using the Fossil Driver routines you can do this.
}

Procedure SetCursorPos(XPos, Ypos : Byte); Assembler;
Asm
  SUB  XPos, 1     { Subtract 1 from X Position }
  SUB  YPos, 1                  { Subtract 1 from Y Position }
  MOV  AH, $11
  MOV  DH, YPos
  MOV  DL, XPos
  INT  14h
end;

{ We subtracted 1 from both the X Position and Y Position because when you
use the SetCursorPos the orgin ( upper left hand corner ) coordinates are
0,0. Using the GotoXY the orgin coordinates are 1,1.  For example : if we
wanted to GotoXY (40,12) using the SetCursorPos Without the subtraction
commands the cursor would be located at (41,13).  Pretty simple }

{ The follow Procedure gets the current cusor postion }

Procedure GetCursorPos;
{ Returns then X Coordinate and Y Coordinate (almost like WhereX and WhereY).
You must define X and Y as an Integer or Byte in the Var section of your
Program }
Var
  XCord,
  YCord : Byte;          { Use temporary coordinates }
begin
  Asm
    MOV  AH, $12
    INT  14h
    MOV  YCord, DH
    MOV  XCord, DL
    ADD  YCord, 1  { Add 1 to the Y Coordinate }
  end;
  X := XCord;             { Set X and Y }
  Y := YCord;
end;

[Back to CURSOR SWAG index]  [Back to Main SWAG index]  [Original]