home *** CD-ROM | disk | FTP | other *** search
- { *******************************************************
- Datei: TD2.PAS
-
- demonstriert noch einen bösen Fehler, den man mit dem
- Debugger entdeckt
- ******************************************************* }
-
-
-
- FUNCTION BIOSDatum: STRING; ASSEMBLER;
- ASM
- PUSH DS
- STD { muß cld werden }
- LES DI, @Result
- MOV AX, -1
- MOV DS, AX
- MOV SI, 5
- MOV AL, 8
- STOSB
- MOV CX, 8
- REP MOVSB
- POP DS
- END;
-
- BEGIN
- WriteLn(BIOSDatum);
- ReadLn;
- END.
-