home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 103.lha / Spawn / b.c < prev    next >
Encoding:
C/C++ Source or Header  |  1986-11-21  |  724 b   |  45 lines
  1. #include <libraries/dos.h>
  2. #include <functions.h>
  3. #include <stdio.h>
  4.  
  5. void *ArpBase;
  6.  
  7. main(argc,argv)
  8. char **argv;
  9. {
  10.     char b[128];
  11.     FILE *f;
  12.     BPTR lock = Lock("");
  13.     int i;
  14.  
  15.     ArpBase = OpenLibrary ("arp.library",0L);
  16.  
  17.     if (f = fopen ("con:0/0/600/150/dumbo","w+")) {
  18.     if (ArpBase) {
  19.         PathName (lock,b,(long)sizeof b / 32);
  20.         fprintf (f,"current directory = %s\n\n",b);
  21.     }
  22.  
  23.     fprintf (f,"args:\n");
  24.     for (i=0; i<argc; i++) {
  25.         fprintf (f," %d: \"%s\"\n",i,argv[i]);
  26.     }
  27.  
  28.     fprintf (f,"\nPress RETURN to exit.\n");
  29.     getc(f);
  30.     }
  31.  
  32.     if (lock) UnLock(lock);
  33.     if (ArpBase) CloseLibrary (ArpBase);
  34. }
  35.  
  36. #asm
  37.  
  38. _PathName
  39.     movem.l 4(sp),d0/a0
  40.     move.l    12(sp),d1
  41.     move.l    _ArpBase,a6
  42.     jmp    -330(a6)
  43.  
  44. #endasm
  45.