Remove DOS Subdirectory

From CometWiki

Remove DOS Subdirectory (RMDIR)

Syntax:

DOSFC(AX-value, CX-value, subdirectory-name) EXCP=statement-label  

Entry:

 AX-value = "@3A00@"
 CX-value = "@0000@"

Return:
If an exception occurs, byte 2 of the AX field will contain the D
OS error code (in hex).

Discussion:
The DOSFC function call can be used to remove a DOS subdirectory. This function requires that the AX-value be set to "@3A00@" and the CX-value be set to null. The subdirectory-name parameter must contain the name of the subdirectory to be removed from the disk.
Upon successful execution of this function, the named subdirectory will no longer exist.

Example:

 ! S SRMDIR,DSK
 ! O RMDIR,DSK
 ! L T00,E
 ! R QMONITOR
 !
 !==========  REMOVE DOS SUBDIRECTORY (RMDIR)  ===================
 !
 LENGTH 2 & LOCAL AX$,BX$,CX$,DX$        ! Define registers
 LENGTH 64 & LOCAL DIRECTORY$            ! Define directory name
 !
 LENGTH 3 & LOCAL DOSCODE$               ! Define DOS error code
 LENGTH 37 & LOCAL DOSMESSAGE$           ! Define DOS message
 !
 1000 FORMAT DOSMESSAGE$                 ! File input format
 !
 100 FORMAT (ET)                         ! Screen format
 !
 CLEAR                                   ! Initialize variables
 PRINT (0,100)                           ! Set typewriter mode
 !
 PRINT (0) "ENTER DIRECTORY NAME:"       ! Display prompt
 INPUT (0) DIRECTORY$                    ! Enter directory name
 IF DIRECTORY$ = "" THEN RUN "QMONITOR"  ! If null, then stop
 !
 AX$ = "@3A00@"                          ! Set AX to "REMOVE DIR."
 CX$ = "@0000@"                          ! Set CX register to null
 !
 DOSFC(AX$,CX$,DIRECTORY$) EXCP=EXCEPTION  ! Perform DOSFC call
 !
 PRINT (0) DIRECTORY$;" REMOVED."
 INPUT (0) ""
 RUN "QMONITOR"
 !
 EXCEPTION:                              ! Exception routine
 PRINT (0) "DIRECTORY NOT REMOVED."      ! Display message
 OPEN (1) "QERCOMET"                     ! Open error file
 DOSCODE$ = "D" + HEXASC(SUB(AX$,2,1))   ! Construct key to file
 READ (1,1000) KEY=DOSCODE$              ! Read error record
 PRINT (0) "DOS error code: ";DOSCODE$   ! Display DOS error code
 PRINT (0) DOSMESSAGE$                   ! Display error message
 INPUT (0) ""                            ! Hold
 CLOSE (1)                               ! Close error file
 RUN "QMONITOR"                          ! Exit
 END