home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ETRAP8.ZIP / MOVFRSCR.INC < prev    next >
Encoding:
Text File  |  1987-12-26  |  734 b   |  19 lines
  1. (*****************************************************************)
  2.  
  3. Procedure MoveFromScreen(var Source, Dest; len:integer);
  4.   
  5. Begin
  6.     If mem[$0000:$0449]=7 Then Move(Source,Dest,Len)
  7.     Else
  8.      Begin
  9.       Len:=Len Shr 1;
  10.       Inline($1E/$55/$BA/$DA/$03/$C5/$B6/ Source /$C4/$BE/ Dest /$8B/$8E/
  11. {! 24.^ New stack conventions require that many Inlines be rewritten.}
  12. {! 20.^ New stack conventions require that many Inlines be rewritten.}
  13. {! 25.^ New stack conventions require that many Inlines be rewritten.}
  14. {! 37.^ New stack conventions require that many Inlines be rewritten.}
  15.              Len /$FC/$EC/$D0/$D8/$72/$FB/$FA/$EC/$D0/$D8/$73/$FB/$AD/
  16.              $FB/$AB/$E2/$F0/$5D/$1F);
  17.      End;
  18.   End;
  19.