      SUBROUTINE MKDIR ( CDIR, ISTAT )
C
      INTEGER*4 INTARY(9)
      INTEGER*4 EAX, EBX, ECX, EDX
      INTEGER*4 DS, ES, EDI, ESI, FLG
C
      CHARACTER CDIR*(*)
C
      EQUIVALENCE ( INTARY(1), EAX )
      EQUIVALENCE ( INTARY(2), EBX )
      EQUIVALENCE ( INTARY(3), ECX )
      EQUIVALENCE ( INTARY(4), EDX )
      EQUIVALENCE ( INTARY(5), DS  )
      EQUIVALENCE ( INTARY(6), ES  )
      EQUIVALENCE ( INTARY(7), EDI )
      EQUIVALENCE ( INTARY(8), ESI )
      EQUIVALENCE ( INTARY(9), FLG )
C
      NTRUP = 33
C     EAX = ICAT ( 57, 0 )
      EAX = 14592
      EDX = OFFSET(CDIR)
C
      CALL INTRUP ( INTARY, NTRUP )
C
      ISTAT = EAX
C
      RETURN
      END
