home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c082_122 / 10.ddi / TVSRC.ZIP / SWAPST.ASM < prev    next >
Encoding:
Assembly Source File  |  1992-06-10  |  1.8 KB  |  52 lines
  1. ;/*------------------------------------------------------------*/
  2. ;/* filename -       swapst.asm                                */
  3. ;/*                                                            */
  4. ;/* function(s)                                                */
  5. ;/*                  TSystemError swapStatusLine function      */
  6. ;/*------------------------------------------------------------*/
  7.  
  8. ;/*------------------------------------------------------------*/
  9. ;/*                                                            */
  10. ;/*    Turbo Vision -  Version 1.0                             */
  11. ;/*                                                            */
  12. ;/*                                                            */
  13. ;/*    Copyright (c) 1991 by Borland International             */
  14. ;/*    All Rights Reserved.                                    */
  15. ;/*                                                            */
  16. ;/*------------------------------------------------------------*/
  17.  
  18.         IDEAL
  19.         MODEL  LARGE, PROLOG
  20.  
  21.         INCLUDE "TVWRITE.INC"
  22.  
  23.         PUBLIC @TSystemError@swapStatusLine$qm11TDrawBuffer
  24.  
  25.         EXTRN   @TScreen@screenWidth : BYTE
  26.         EXTRN   @TScreen@screenHeight : BYTE
  27.         EXTRN   @TScreen@screenBuffer : DWORD
  28.  
  29. CODESEG
  30.         
  31. PROC    @TSystemError@swapStatusLine$qm11TDrawBuffer
  32.         ARG     Buffer : FAR PTR
  33.  
  34.         MOV     CL,[@TScreen@screenWidth]
  35.         XOR     CH,CH
  36.         MOV     AL,[@TScreen@screenHeight]
  37.         DEC     AL
  38.         MUL     CL
  39.         SHL     AX,1
  40.         LES     DI,[@TScreen@screenBuffer]
  41.         ADD     DI,AX
  42.         PUSH    DS
  43.         LDS     SI,[Buffer]
  44. @@1:    MOV     AX,[ES:DI]
  45.         MOVSW
  46.         MOV     [DS:SI-2],AX
  47.         LOOP    @@1
  48.         POP     DS
  49.         RET
  50. ENDP
  51. END
  52.