home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 03 / tricks / memshow.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-12-14  |  1.5 KB  |  56 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    MEMSHOW.PAS                         *)
  3. (*          (c) 1990 Ulf Kepper & TOOLBOX                 *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM MemShow;
  6.  
  7. USES Dos, Crt;
  8.  
  9. TYPE
  10.   Buffer = ARRAY [0..1234] OF BYTE;
  11.  
  12. VAR
  13.   p        : ^Buffer;
  14.   OldTimer : POINTER;
  15.   j        : INTEGER;
  16.  
  17.   PROCEDURE Show(Flags, CS, IP, AX, BX, CX, DX,
  18.                             SI, DI, DS, ES, BP: WORD);
  19.   INTERRUPT;
  20.   VAR
  21.     M  : LONGINT;
  22.     St : STRING;
  23.     i  : INTEGER;
  24.   BEGIN
  25.     M := MemAvail;
  26.     Str(M, St);
  27.     FOR i := 1 TO 8 DO
  28.       Mem[$b800:100+2*i] := Ord(St[i]);    { Für HGC $b000 }
  29.   END;
  30.  
  31. BEGIN
  32.   ClrScr;
  33.                 { diese beiden Interrupt-Befehle am Anfang }
  34.                 { des Programmlaufs einfügen               }
  35.  
  36.   GetIntVec(28, OldTimer);
  37.   SetIntVec(28, @Show);
  38.  
  39.   FOR j := 1 TO 5 DO BEGIN
  40.     New(p);
  41.     Delay(500);
  42.     Dispose(P);
  43.     Delay(500);
  44.   END;
  45.                  { Diesen Interrupt-Befehl ans Ende des    }
  46.                  { Programmlaufs stellen.                  }
  47.                  { Sollte das Programm schon vorher abge-  }
  48.                  { brochen werden, wird der alte           }
  49.                  { Timer-Vektor nicht mehr restauriert und }
  50.                  { der Zeiger 'hängt in der Luft'.         }
  51.  
  52.   SetIntVec(28, OldTimer);
  53. END.
  54. (* ------------------------------------------------------ *)
  55. (*                 Ende von MEMSHOW.PAS                   *)
  56.