home *** CD-ROM | disk | FTP | other *** search
- (* --------------------------------------------------- *)
- (* MAKEBIN.PAS *)
- (* Erzeugen der Binaerdatei CALL.BIN, mit der proze- *)
- (* durale Parameter in Turbo Pascal unter MS-DOS si- *)
- (* liert werden koennen. *)
-
- PROGRAM MakeBin (Output, BinFile);
-
- CONST
- Code: ARRAY [0..4] OF BYTE =
- ($B8,$00,$00, (* MOV AX,0000 *)
- (* ;AX mit Adresse laden *)
- $FF,$E0); (* JMP AX *)
- (* ;zu dieser Adresse springen *)
- BinFileName = 'CALL.BIN';
-
- VAR
- BinFile: FILE OF BYTE;
- Count : INTEGER;
-
- BEGIN
- Assign (BinFile, BinFileName);
- ReWrite (BinFile);
- FOR Count := 0 TO Pred(SizeOf(Code)) DO
- Write (BinFile, Code[Count]);
- Close (BinFile);
- WriteLn;
- WriteLn ('Binärdatei ', BinFileName, ' generiert!');
- WriteLn;
- END.
-