home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / QWRITE11.ZIP / GOTORC.INC next >
Encoding:
Text File  |  1986-10-18  |  673 b   |  15 lines
  1. { This is the inverse of Turbo's GotoXY procedure and it's even a tad
  2.   faster. }
  3.  
  4. procedure GotoRC (Row, Col: Byte);
  5. begin
  6. Inline(
  7.   $B4/$02                {       MOV   AH,$02           ;Set AH = $02}
  8.   /$30/$FF               {       XOR   BH,BH            ;Set BH=0 for page}
  9.   /$8A/$76/<ROW          {       MOV   DH,[BP+<Row]     ;Move Row}
  10.   /$FE/$CE               {       DEC   DH               ;Convert to 0-24 range}
  11.   /$8A/$56/<COL          {       MOV   DL,[BP+<Col]     ;Move Col}
  12.   /$FE/$CA               {       DEC   DL               ;Convert to 0-79 range}
  13.   /$CD/$10               {       INT   $10              ;Set cursor position}
  14. );
  15. end;