home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / ST_USER / 1990 / USERMY90.MSA / LISTINGS_DCREATE.S < prev    next >
Text File  |  1990-03-02  |  785b  |  31 lines
  1. ***************************************
  2. *    Create a directory          *
  3. ***************************************
  4.  
  5. * Print the input prompt string
  6.     PEA prompt(PC)        address of string
  7.     MOVE.W #9,-(A7)        c_conws
  8.     TRAP #1            Gem Bdos
  9.     ADDQ.L #6,A7        tidy stack up
  10.  
  11. * Input the name of the directory to create
  12.      PEA name(PC)        stack input buffer address
  13.     MOVE.W #10,-(A7)    c_conrs
  14.     TRAP #1            Gem Bdos
  15.     ADDQ.L #6,A7        tidy stack
  16.  
  17. * Create the directory using d_create
  18.     PEA name+2(PC)        stack address of name
  19.     MOVE.W #57,-(A7)    d_create
  20.     TRAP #1            Gem Bdos
  21.     ADDQ.L #6,A7        tidy stack up
  22.  
  23. * Finished, so return to the desktop
  24.     CLR -(A7)        p_term_old
  25.     TRAP #1            Gem Bdos
  26.  
  27. prompt    DC.B 'Enter directory to create: ',0
  28. name    DC.B 63,0        input buffer
  29.     DS.B 64            name stored here
  30.     EVEN
  31.