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