home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c082_122 / 10.ddi / TVSRC.ZIP / TGRMV.ASM < prev    next >
Encoding:
Assembly Source File  |  1992-06-10  |  2.5 KB  |  85 lines
  1. ;/*------------------------------------------------------------*/
  2. ;/* filename -       tgrmv.asm                                 */
  3. ;/*                                                            */
  4. ;/* function(s)                                                */
  5. ;/*                  TGroup removeView member 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  @TGroup@removeView$qn5TView
  24.  
  25. CODESEG
  26.  
  27. PROC    @TGroup@removeView$qn5TView
  28.         ARG     thisPtr : DWORD, P : DWORD
  29.         USES    SI,DI,DS
  30.  
  31.         LDS     SI,[thisPtr]
  32.         LES     DI,[P]
  33.         LDS     SI,[DS:SI+TGroupLast]
  34.         PUSH    BP
  35.         MOV     AX,DS
  36.         OR      AX,SI
  37.         JE      @@7
  38.         MOV     AX,SI
  39.         MOV     DX,DS
  40.         MOV     BP,ES
  41. @@1:    
  42.         MOV     BX,[WORD PTR DS:SI+TViewNext]
  43.         MOV     CX,[WORD PTR DS:SI+TViewNext+2]
  44.         CMP     CX,BP
  45.         JE      @@5
  46. @@2:    
  47.         CMP     CX,DX
  48.         JE      @@4
  49. @@3:    
  50.         MOV     SI,BX
  51.         MOV     DS,CX
  52.         JMP     @@1
  53. @@4:    
  54.         CMP     BX,AX
  55.         JNE     @@3
  56.         JMP     @@7
  57. @@5:    
  58.         CMP     BX,DI
  59.         JNE     @@2
  60.         MOV     BX,[WORD PTR ES:DI+TViewNext]
  61.         MOV     CX,[WORD PTR ES:DI+TViewNext+2]
  62.         MOV     [WORD PTR DS:SI+TViewNext],BX
  63.         MOV     [WORD PTR DS:SI+TViewNext+2],CX
  64.         CMP     DX,BP
  65.         JNE     @@7
  66.         CMP     AX,DI
  67.         JNE     @@7
  68.         CMP     CX,BP
  69.         JNE     @@6
  70.         CMP     BX,DI
  71.         JNE     @@6
  72.         XOR     SI,SI
  73.         MOV     DS,SI
  74. @@6:    
  75.         POP     BP
  76.         PUSH    BP
  77.         LES     DI,[thisPtr]
  78.         MOV     [WORD PTR ES:DI+TGroupLast],SI
  79.         MOV     [WORD PTR ES:DI+TGroupLast+2],DS
  80. @@7:    
  81.         POP     BP
  82.         RET
  83. ENDP
  84. END
  85.