home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_PAS / XLIB_TP5.ZIP / UNITS / MY_ASM.PAS next >
Pascal/Delphi Source File  |  1993-11-02  |  908b  |  30 lines
  1. unit My_Asm;
  2.  
  3. (* In this Unit are some of used asm-Mnemoniks, who are not rigth compilied
  4.    from build-in-Assembler of Turbo Pascal.
  5.  
  6.    Usage : dw _MY_DATA
  7.  
  8. *)
  9. interface
  10.                         (* Used in x_coprocessor of X_detect *)
  11. const _fld1   = $E8D9;         (*  fld1             *)
  12.       _fldz   = $EED9;         (*  fldz             *)
  13.       _fdivp  = $F9DE;         (*  fdivp st(1),st   *)
  14.       _fld    = $CDD9;         (*  fld   st(0)      *)
  15.       _fchs   = $E0D9;         (*  fchs             *)
  16.       _fcompp = $D9DE;         (*  fcompp           *)
  17.       _fldcw  = $2ED9;         (* fldcw word ptr [offset my_var] *)
  18.  
  19.       _shld_eax_eax = $660FA4C0;  (* shld eax,eax, ... *)
  20.  
  21.       _rep_insb = $F36C;       (* rep insb          *)
  22.       _outsb    = $6E;         (* outsb             *)
  23.       _xlatb    = $D7;
  24.  
  25.  
  26. implementation
  27.  
  28.  (* Nothing to implement. *)
  29.  
  30. end.