home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / CMPLTPAS.ZIP / LOOK1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-02-06  |  931 b   |  42 lines
  1. PROGRAM Look1;
  2.  
  3. TYPE
  4.   String30 = String[30];
  5.   IntArray = ARRAY[0..99] OF Integer;
  6.  
  7. VAR
  8.   OK           : Boolean;
  9.   Register     : Word;
  10.   StackMarker  : Pointer;
  11.   Before,After : Word;
  12.   MyArray      : IntArray;
  13.  
  14. {$I WRITEHEX.SRC}
  15. {$I VARDUMP.SRC}
  16.  
  17.  
  18.  
  19. FUNCTION Dummy(VAR Values   : IntArray;
  20.                    Fudge    : Integer;
  21.                    Level,Clearance : Char;
  22.                    Message  : String30) : Boolean;
  23.  
  24. VAR
  25.   Grade,Cutoff : Char;
  26.  
  27. BEGIN
  28.   INLINE($90/$90/$90/$90);
  29.   INLINE($8B/$C5/$A3/Register);          { Save BP into Register }
  30.   After := Register;
  31.   StackMarker := Ptr(SSeg,Register);     { Make a pointer SS : BP   }
  32.   VarDump(Output,StackMarker^,Trunc(Before-After));    { Dump stack }
  33. END;
  34.  
  35.  
  36.  
  37. BEGIN
  38.   INLINE($8B/$C4/$A3/Register);       { Save BP into Register }
  39.   Before := Register;
  40.   OK := Dummy(MyArray,42,'Q','Z','I was born on a pirate ship.  ');
  41. END.
  42.