home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 12 / tricks / makeobj.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-09-12  |  1.9 KB  |  52 lines
  1. (* ------------------------------------------------------ *)
  2. (*                   MAKEOBJ.PAS                          *)
  3. (*      Generiert die Objekt-Datei SHOW_LED.OBJ unter     *)
  4. (*     Turbo Pascal ohne den Einsatz eines Assemblers     *)
  5. (*           (c) 1990 Gerald Arend & 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..160] OF BYTE =
  16.          (128,   7,   0,   5, 116,  46,  65,  83,
  17.            77, 241, 150,  31,   0,   0,   6,  68,
  18.            71,  82,  79,  85,  80,   4,  68,  65,
  19.            84,  65,   4,  67,  79,  68,  69,   5,
  20.            95,  68,  65,  84,  65,   5,  95,  84,
  21.            69,  88,  84,  16, 152,   7,   0,  72,
  22.             0,   0,   6,   4,   1,  14, 152,   7,
  23.             0,  72,   0,   0,   5,   3,   1,  16,
  24.           152,   7,   0,  40,  41,   0,   4,   1,
  25.             1,  10, 154,   4,   0,   2, 255,   2,
  26.            95, 144,  16,   0,   0,   3,   9,  95,
  27.           115, 104, 111, 119,  95, 108, 101, 100,
  28.             0,   0,   0, 160, 136,   4,   0,   0,
  29.           162,   1, 209, 160,  45,   0,   3,   0,
  30.             0, 139, 220,  54, 139,  71,   4, 138,
  31.           216, 250,  51, 201, 228, 100, 168,   2,
  32.           224, 250, 176, 237, 230,  96, 228, 100,
  33.           168,   1, 225, 250, 138, 195, 230,  96,
  34.           228, 100, 168,   1, 225, 250, 251, 194,
  35.             2,   0, 204, 138,   2,   0,   0, 116);
  36.  
  37. BEGIN
  38.   Assign(Datei, 'SHOW_LED.OBJ');
  39.   Rewrite(Datei);
  40.   Checksum := 0;
  41.   FOR n := 1 TO 160 DO BEGIN
  42.     Inc(Checksum, Daten[n]);
  43.     Write(Datei, Daten[n]);
  44.   END;
  45.   WriteLn('Checksumme : ', Checksum);
  46.   WriteLn('korrekt    : 12800');
  47.   Close(Datei);
  48. END.
  49. (* ------------------------------------------------------ *)
  50. (*                      MAKEOBJ.PAS                       *)
  51.  
  52.