home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 12 / praxis / makeobj.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-11-14  |  2.2 KB  |  64 lines
  1. (* ------------------------------------------------------ *)
  2. (*                   MAKEOBJ.PAS                          *)
  3. (*      Generiert die Objekt-Datei TEST_CO.OBJ unter      *)
  4. (*     Turbo Pascal ohne den Einsatz eines Assemblers     *)
  5. (*    (c) 1990  Gerald Arend, Ulrich Schmitz & TOOLBOX    *)
  6. (* ------------------------------------------------------ *)
  7. PROGRAM MakeObj;
  8.  
  9. VAR
  10.   n        : BYTE;
  11.   Datei    : FILE OF BYTE;
  12.   CheckSum : INTEGER;
  13.  
  14. CONST
  15.   Daten: ARRAY[1..251] OF BYTE =
  16.   (
  17.   128,  13,   0,  11, 116, 101, 115, 116,
  18.    95,  99, 111,  46,  65,  83,  77, 104,
  19.   150,  37,   0,   0,   6,  68,  71,  82,
  20.    79,  85,  80,   4,  68,  65,  84,  65,
  21.     4,  67,  79,  68,  69,   5,  83,  84,
  22.    65,  67,  75,   5,  95,  68,  65,  84,
  23.    65,   5,  95,  84,  69,  88,  84, 143,
  24.   152,   7,   0,  72,  50,   0,   7,   4,
  25.     1, 219, 152,   7,   0,  72,   0,   0,
  26.     6,   3,   1,  15, 152,   7,   0, 116,
  27.     0,   4,   5,   5,   1, 222, 154,   6,
  28.     0,   2, 255,   2, 255,   3,  91, 144,
  29.    52,   0,   0,   1,   8,  95, 116, 101,
  30.   115, 116,  95,  99, 111,   0,   0,   0,
  31.     2,  67, 111,  42,   0,   0,   9, 110,
  32.   101, 120, 116,  95, 116, 101, 115, 116,
  33.    21,   0,   0,   5,  78, 111,  95,  67,
  34.   111,  47,   0,   0,   5,  83, 116,  97,
  35.   114, 116,   5,   0,   0, 239, 136,   4,
  36.     0,   0, 162,   1, 209, 160,  54,   0,
  37.     1,   0,   0, 235,   3, 144,  63,  63,
  38.   205,  17,  46, 163,   0,   0, 169,   2,
  39.     0, 116,   5, 176,   1, 235,  29, 144,
  40.   155, 219, 227, 155,  46, 221,  62,   0,
  41.     0,  46, 161,   0,   0,  46, 131,  62,
  42.     0,   0,   0, 117,   5, 176,   1, 235,
  43.     3, 144, 176,   0, 195, 250, 156,  29,
  44.     0, 196,   9,   0,   1,   1,   3,   0,
  45.   196,  28,   0,   1,   1,   3,   0, 196,
  46.    32,   0,   1,   1,   3,   0, 196,  37,
  47.     0,   1,   1,   3,   0, 185, 138,   2,
  48.     0,   0, 116 );
  49. BEGIN
  50.   Assign(Datei, 'TEST_CO.OBJ');
  51.   Rewrite(Datei);
  52.   Checksum := 0;
  53.   FOR n := 1 TO 251 DO BEGIN
  54.     Inc(Checksum, Daten[n]);
  55.     Write(Datei, Daten[n]);
  56.   END;
  57.   WriteLn('Checksumme : ', Checksum);
  58.   WriteLn('korrekt    : 16384');
  59.   Close(Datei);
  60. END.
  61. (* ------------------------------------------------------ *)
  62. (*                      MAKEOBJ.PAS                       *)
  63.  
  64.