home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 03 / makebin.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-14  |  942 b   |  31 lines

  1. (* --------------------------------------------------- *)
  2. (*                    MAKEBIN.PAS                      *)
  3. (* Erzeugen der Binaerdatei CALL.BIN, mit der proze-   *)
  4. (* durale Parameter in Turbo Pascal unter MS-DOS si-   *)
  5. (* liert werden koennen.                               *)
  6.  
  7. PROGRAM MakeBin (Output, BinFile);
  8.  
  9. CONST
  10.   Code: ARRAY [0..4] OF BYTE =
  11.           ($B8,$00,$00, (* MOV AX,0000                 *)
  12.                         (* ;AX mit Adresse laden       *)
  13.            $FF,$E0);    (* JMP AX                      *)
  14.                         (* ;zu dieser Adresse springen *)
  15.   BinFileName = 'CALL.BIN';
  16.  
  17. VAR
  18.   BinFile: FILE OF BYTE;
  19.   Count  : INTEGER;
  20.  
  21. BEGIN
  22.   Assign (BinFile, BinFileName);
  23.   ReWrite (BinFile);
  24.   FOR Count := 0 TO Pred(SizeOf(Code)) DO
  25.     Write (BinFile, Code[Count]);
  26.   Close (BinFile);
  27.   WriteLn;
  28.   WriteLn ('Binärdatei ', BinFileName, ' generiert!');
  29.   WriteLn;
  30. END.
  31.