Badge: New page: '''Create DOS Subdirectory (MKDIR)''' '''Syntax:'''
DOSFC(AX-value, CX-value, subdirectory-name) EXCP=statement-label '''Entry:'''
AX-value = "@3900@" CX-value = "@0000@" ...

2009-06-13T09:59:24Z

New page: '''Create DOS Subdirectory (MKDIR)''' '''Syntax:''' DOSFC(AX-value, CX-value, subdirectory-name) EXCP=statement-label '''Entry:''' AX-value = "@3900@" CX-value = "@0000@" ...

New page

'''Create DOS Subdirectory (MKDIR)'''

'''Syntax:''' 
DOSFC(AX-value, CX-value, subdirectory-name) EXCP=statement-label
'''Entry:''' 
AX-value = "@3900@"
CX-value = "@0000@"

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

'''Discussion:''' 
The DOSFC function call can be used to create a DOS subdirectory. This function requires that the AX-value be set to "@3900@", the CX-value be set to null, and the subdirectory-name contain the name of the new DOS subdirectory.
After the DOSFC function is successfully executed, the new directory will exist. Note: The new directory does not automatically become the current directory. A different function call is required to make the new directory into the current directory. (See "Change Current DOS Subdirectory" above.)

'''Example:''' 
! S SMKDIR,DSK
! O MKDIR,DSK
! L T00,E
! R QMONITOR
!
!========== CREATE DOS SUBDIRECTORY (MKDIR) ====================
!
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$ = "@3900@" ! Set AX to "MAKE DIREC."
CX$ = "@0000@" ! Set CX register to null
!
DOSFC(AX$,CX$,DIRECTORY$) EXCP=EXCEPTION ! Perform DOSFC call
!
PRINT (0) DIRECTORY$;" CREATED SUCCESSFULLY."
INPUT (0) ""
RUN "QMONITOR"
!
EXCEPTION: ! Exception routine
PRINT (0) "DIRECTORY NOT CREATED." ! 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

Create DOS Subdirectory - Revision history

Badge: New page: '''Create DOS Subdirectory (MKDIR)''' '''Syntax:''' DOSFC(AX-value, CX-value, subdirectory-name) EXCP=statement-label '''Entry:''' AX-value = "@3900@" CX-value = "@0000@" ...

Badge: New page: '''Create DOS Subdirectory (MKDIR)''' '''Syntax:'''
DOSFC(AX-value, CX-value, subdirectory-name) EXCP=statement-label '''Entry:'''
AX-value = "@3900@" CX-value = "@0000@" ...