home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / TESTPOS.M < prev    next >
Encoding:
Text File  |  1989-10-09  |  772 b   |  53 lines
  1. MODULE testpos;
  2.  
  3. (*$C-*)
  4.  
  5. FROM SYSTEM IMPORT ADDRESS, ADR, TSIZE, BYTE, WORD, LONGWORD, VAL;
  6.  
  7. (*
  8. import directory;
  9. *)
  10.  
  11. import modbase, TESTPOS2;
  12.  
  13. (*$l-*)
  14.  
  15. PROCEDURE l0;
  16.   BEGIN
  17.     ASSEMBLER
  18.         link    a5,#0
  19.         break
  20.         unlk    a5
  21.     END
  22.   END l0;
  23.  
  24. PROCEDURE l1;
  25.   BEGIN
  26.     ASSEMBLER
  27.         link    a5,#0
  28.         jsr     testpos2.m2
  29.         unlk    a5
  30.     END
  31.   END l1;
  32.  
  33. PROCEDURE l2;
  34.   BEGIN
  35.     ASSEMBLER
  36.         link    a5,#0
  37.         jsr     l1
  38.         unlk    a5
  39.     END
  40.   END l2;
  41.  
  42. var i: modbase.modref; s1, s2: array [0..1] of char;
  43.  
  44. BEGIN
  45.   modbase.FindRef (ADDRESS(l2),i);
  46.   ASSEMBLER
  47.         move.l  i,a0
  48.         BREAK
  49.   END;
  50.   (* directory.splitname ('a33.33a', s1, s2); *)
  51.   l2
  52. END testpos.
  53.