home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / ST_USER / 1990 / USERMY90.MSA / LISTINGS_DELETE.S < prev    next >
Text File  |  1990-03-02  |  773b  |  32 lines
  1. ***************************************
  2. *    Delete a file              *
  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 filename of the file to delete 
  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. * Delete the file using f_delete
  18.     PEA name+2(PC)        stack address of name
  19.     MOVE.W #65,-(A7)    f_delete
  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.  
  28. prompt    DC.B 'Enter file to delete: ',0
  29. name    DC.B 63,0        input buffer
  30.     DS.B 64            name stored here
  31.     EVEN
  32.