home *** CD-ROM | disk | FTP | other *** search
/ Point Programming 1 / PPROG1.ISO / pascal / swag / crt.swg / 0013_Scroll Screen UP-DOWN.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-09-26  |  1.3 KB  |  38 lines
  1. {****************************************************************************
  2.  * Procedure ..... Scroll()
  3.  * Purpose ....... Scroll the screen either up or down
  4.  * Parameters .... nRow       Top row of scroll area
  5.  *                 nCol       Left column of scroll area
  6.  *                 nRows      Number of rows in scroll area
  7.  *                 nCols      Number of cols in scroll area
  8.  *                 nLines     Number of lines to scroll
  9.  *                 nDirect    Direction to scroll in indicator
  10.  *                 nAttr      Color attribute to leave behind
  11.  * Returns ....... Nothing
  12.  * Notes ......... A 0 for nDirect will scroll the screen up, a 1 will
  13.  *                 scroll it down.
  14.  * Author ........ Martin Richardson
  15.  * Date .......... October 2, 1992
  16.  ****************************************************************************}
  17. PROCEDURE Scroll( nRow, nCol, nRows, nCols, nLines, nDirect, nAttr: BYTE ); assembler;
  18. ASM
  19.         MOV     CH, nRow
  20.         DEC     CH
  21.         MOV     CL, nCol
  22.         DEC     CL
  23.         MOV     DH, nRows
  24.         ADD     DH, CH
  25.         DEC     DH
  26.         MOV     DL, nCols
  27.         ADD     DL, CL
  28.         DEC     DL
  29.         MOV     BH, nAttr
  30.         MOV     AL, nLInes
  31.  
  32.         MOV     AH, nDirect
  33.         AND     AH, 1
  34.         OR      AH, 6
  35.  
  36.         INT     10h
  37. END;
  38.