Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/MADTRB9.ZIP/READPSP1.INC

Text File | 1984-07-13 | 323 b | 22 lines

PROCEDURE checkpsp;

VAR
   i,n : INTEGER;

BEGIN
   psp := '';
   was_psp := FALSE;
   n := MEM[cseg:$0080];
   IF n <> 0 THEN
   BEGIN
      was_psp := TRUE;
      FOR i := 2 TO n DO
        psp := CONCAT(psp,CHR(MEM[cseg:i+$80]) );
   END;

{   writeln(psp,LENGTH(PSP):10);
   delay(2000);}

END;