home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1995 December / SOFM_Dec1995.bin / pc / os2 / vpascal / examples / bp7 / tvdemo / tvhc.dif < prev   
Text File  |  1995-10-31  |  2KB  |  54 lines
  1. Comparing files BP7\TVHC.PAS and VP\TVHC.PAS
  2. ***** BP7\TVHC.PAS
  3.    86:  uses Drivers, Objects, Dos, Strings, HelpFile;
  4. ***** VP\TVHC.PAS
  5.    86:  uses Drivers, Objects, Dos, Strings, HelpFile, Use32;
  6.  
  7. ***** BP7\TVHC.PAS
  8.    96:  {======================= File Management ===============================}
  9. ***** VP\TVHC.PAS
  10.    96:  {$IFDEF DYNAMIC_VERSION}
  11.    97:    {$Dynamic System, Dos, Strings, Xcpt}
  12.    98:    {$Dynamic Objects, Drivers, Memory, Views }
  13.    99:    {$L TVISION.LIB} (* Turbo Vision import library *)
  14.   100:    {$L VPRTL.LIB}   (* Runtime import library *)
  15.   101:  {$ENDIF}
  16.   102:  
  17.   103:  {======================= File Management ===============================}
  18.  
  19. ***** BP7\TVHC.PAS
  20.   720:  procedure CopyToBuffer(var Line: String; Wrapping: Boolean); assembler;
  21.   721:  asm
  22. ***** VP\TVHC.PAS
  23.   727:  procedure CopyToBuffer(var Line: String; Wrapping: Boolean); assembler;
  24.   728:  {$IFNDEF USE32}
  25.   729:  asm
  26.  
  27. ***** BP7\TVHC.PAS
  28.   741:          INC     Ofs
  29.   742:  end;
  30. ***** VP\TVHC.PAS
  31.   749:          INC     Ofs
  32.   750:  {$ELSE} {$USES esi,edi} {$FRAME-}
  33.   751:  asm
  34.   752:                  cld
  35.   753:                  mov     edi,OFFSET Buffer
  36.   754:                  add     edi,Ofs
  37.   755:                  mov     esi,Line
  38.   756:                  xor     eax,eax
  39.   757:                  lodsb
  40.   758:                  add     Ofs,eax
  41.   759:                  xchg    eax,ecx
  42.   760:                  rep     movsb
  43.   761:                  xor     al,al
  44.   762:                  test    Wrapping,1
  45.   763:                  je      @@1
  46.   764:                  mov     al,' '-13
  47.   765:                @@1:
  48.   766:                  add     al,13
  49.   767:                @@2:
  50.   768:                  stosb
  51.   769:                  inc     Ofs
  52.   770:  {$ENDIF}
  53.   771:  end;
  54.