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

{
> If anyone is interested in the BAsm GotoXY/WhereX/WhereY routines
> I'll be happy to post them.   They use standard BIOS routines, and

I simply followed an Interrupt listing I had to create these Functions.

Note the DEC commands in GotoXY, and the INC command in Each WHERE* Function.
These are there to make the Procedures/Functions Compatible With the TP Crt
routines, which are 1-based.  (ie: 1,1 in TP.Crt is upper left hand corner).
The BIOS routines need to be given 0,0 For the same coordinates.   If you don't
want to remain Compatible With Turbo's GotoXY and WHERE* Functions, delete them
out and keep your code Zero-based For X/Y screen coords.
}

Procedure GotoXY(X,Y : Byte); Assembler; Asm
  MOV DH, Y    { DH = Row (Y) }
  MOV DL, X    { DL = Column (X) }
  DEC DH       { Adjust For Zero-based Bios routines }
  DEC DL       { Turbo Crt.GotoXY is 1-based }
  MOV BH,0     { Display page 0 }
  MOV AH,2     { Call For SET CURSOR POSITION }
  INT 10h
end;

Function  WhereX : Byte;  Assembler;
Asm
  MOV     AH,3      {Ask For current cursor position}
  MOV     BH,0      { On page 0 }
  INT     10h       { Return inFormation in DX }
  INC     DL        { Bios Assumes Zero-based. Crt.WhereX Uses 1 based }
  MOV     AL, DL    { Return X position in AL For use in Byte Result }
end;

Function WhereY : Byte; Assembler;
Asm
  MOV     AH,3     {Ask For current cursor position}
  MOV     BH,0     { On page 0 }
  INT     10h      { Return inFormation in DX }
  INC     DH       { Bios Assumes Zero-based. Crt.WhereY Uses 1 based }
  MOV     AL, DH   { Return Y position in AL For use in Byte Result }
end;

{
Note that the WhereX and WhereY Function call the exact same Bios function.
}

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