home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TURBO9.ZIP / READPSP1.INC < prev    next >
Encoding:
Text File  |  1984-06-28  |  321 b   |  21 lines
  1.  
  2. procedure checkpsp;
  3.  
  4. var
  5.    i,n : integer;
  6.  
  7. begin
  8.    psp := '';
  9.    was_psp := false;
  10.    n := mem[cseg:$0080];
  11.    if n <> 0 then
  12.    begin
  13.       was_psp := true;
  14.       for i := 2 to n do
  15.         psp := concat(psp,chr(mem[cseg:i+$80]) );
  16.    end;
  17.  
  18. {   writeln(psp,LENGTH(PSP):10);
  19.    delay(2000);}
  20.  
  21. end;