home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / das_buch / asemblr / pas / td2.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1993-06-05  |  531 b   |  29 lines

  1. { *******************************************************
  2.   Datei: TD2.PAS
  3.  
  4.   demonstriert noch einen bösen Fehler, den man mit dem 
  5.   Debugger entdeckt
  6.   ******************************************************* }
  7.  
  8.  
  9.  
  10. FUNCTION BIOSDatum: STRING; ASSEMBLER;
  11. ASM
  12.   PUSH   DS
  13.   STD                 { muß cld werden }
  14.   LES    DI, @Result  
  15.   MOV    AX, -1
  16.   MOV    DS, AX       
  17.   MOV    SI, 5
  18.   MOV    AL, 8
  19.   STOSB
  20.   MOV    CX, 8
  21.   REP    MOVSB
  22.   POP    DS
  23. END;
  24.  
  25. BEGIN
  26.   WriteLn(BIOSDatum);
  27.   ReadLn;
  28. END.
  29.