home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / COMP / TEST / LOCLINIT.M < prev    next >
Encoding:
Text File  |  1991-04-08  |  548 b   |  38 lines
  1. MODULE LoclInit;
  2. (*$S-*)
  3.  
  4. (*
  5.  prüfen, ob A5/A6 gesichert sind, wenn Modul lok. zu Proc. init. wird.
  6. *)
  7.  
  8. FROM SYSTEM IMPORT ASSEMBLER;
  9.  
  10. PROCEDURE proc;
  11.  
  12.   PROCEDURE proc2;
  13.   
  14.     MODULE local;
  15.       VAR a: RECORD b,c:CARDINAL END;
  16.       BEGIN
  17.         WITH a DO
  18.           WITH a DO
  19.             WITH a DO
  20.               WITH a DO
  21.               END
  22.             END
  23.           END
  24.         END
  25.       END local;
  26.  
  27.     BEGIN
  28.     END proc2;
  29.  
  30.   BEGIN
  31.     proc2
  32.   END proc;
  33.  
  34. BEGIN
  35.   ASSEMBLER BREAK END;
  36.   proc
  37. END LoclInit.
  38.