home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / GRAFXY.ZIP / GRAFXY.INC
Encoding:
Text File  |  1985-12-28  |  512 b   |  11 lines
  1. procedure GrafXY(GX,GY: integer);
  2. begin
  3.   Inline($8A/$76/$04/       {MOV  DH,[BP+4]  ;get GY}
  4.          $8A/$56/$06/       {MOV  DL,[BP+6]  ;get GX}
  5.          $55/               {PUSH BP}
  6.          $89/$E5/           {MOV  BP,SP}
  7.          $B8/$00/$02/       {MOV  AX,0200    ;Set Cursor Position}
  8.          $B7/$00/           {MOV  BH,00}
  9.          $CD/$10/           {INT  10}
  10.          $5D);              {POP  BP}
  11. end;