! *** PREDECLARED TYPES
     
      %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN
         RECORD BASIC$QUADWORD
            LONG FILL ( 2 )
         END RECORD
         %LET %BASIC$QUADWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN
         RECORD BASIC$OCTAWORD
            LONG FILL ( 4 )
         END RECORD
         %LET %BASIC$OCTAWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN
         RECORD BASIC$HFLOAT_AXP
            LONG FILL ( 4 )
         END RECORD
         %LET %BASIC$HFLOAT_AXP_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$F_FLOATING_COMPLEX
            SINGLE REAL_PART
            SINGLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$D_FLOATING_COMPLEX
            DOUBLE REAL_PART
            DOUBLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$G_FLOATING_COMPLEX
            GFLOAT REAL_PART
            GFLOAT IMAGINARY_PART
         END RECORD
         %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN
         RECORD BASIC$H_FLOATING_COMPLEX_AXP
            BASIC$HFLOAT_AXP REAL_PART
            BASIC$HFLOAT_AXP IMAGINARY_PART
         END RECORD
         %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1
      %END %IF
    
    
      DECLARE LONG CONSTANT MMI$_FACILITY = 1
      DECLARE LONG CONSTANT MMI$_MBUNIT = 2
      DECLARE LONG CONSTANT MMI$_PID = 3
      DECLARE LONG CONSTANT MMI$_MBXUCB = 4
      DECLARE LONG CONSTANT MMI$_UNLOAD = 5
      DECLARE LONG CONSTANT MMI$_ALLOC = 6
      DECLARE LONG CONSTANT MMI$_BACKUP_END = 7
      DECLARE LONG CONSTANT MMI$_BACKUP_FILE = 8
      DECLARE LONG CONSTANT MMI$_BACKUP_START = 9
      DECLARE LONG CONSTANT MMI$_CLOSE_READ = 10
      DECLARE LONG CONSTANT MMI$_CLOSE_WRITE = 11
      DECLARE LONG CONSTANT MMI$_CONTINUATION_VOLUME = 12
      DECLARE LONG CONSTANT MMI$_DEALLOCATE = 13
      DECLARE LONG CONSTANT MMI$_DEVICE_AVAIL = 14
      DECLARE LONG CONSTANT MMI$_DEVICE_UNAVAIL = 15
      DECLARE LONG CONSTANT MMI$_DISMOUNT = 16
      DECLARE LONG CONSTANT MMI$_DISPLAY_MESSAGE = 17
      DECLARE LONG CONSTANT MMI$_EOV_READ = 18
      DECLARE LONG CONSTANT MMI$_EOV_WRITE = 19
      DECLARE LONG CONSTANT MMI$_INITIALIZE = 20
      DECLARE LONG CONSTANT MMI$_MOUNT = 21
      DECLARE LONG CONSTANT MMI$_MOUNT_REQUEST = 22
      DECLARE LONG CONSTANT MMI$_NEWVOL_REQUEST = 23
      DECLARE LONG CONSTANT MMI$_NOTIFY_DEVICE = 24
      DECLARE LONG CONSTANT MMI$_OPCOM_ACP = 25
      DECLARE LONG CONSTANT MMI$_OPCOM_MOUNT = 26
      DECLARE LONG CONSTANT MMI$_OPEN_READ = 27
      DECLARE LONG CONSTANT MMI$_OPEN_WRITE = 28
      DECLARE LONG CONSTANT MMI$_VOLUME_ONLINE = 29
      DECLARE LONG CONSTANT MMI$_WRITE_REQUEST = 30
      DECLARE LONG CONSTANT MMI$_MOUNT_END = 31
      DECLARE LONG CONSTANT MMI$_INIT_END = 32
      DECLARE LONG CONSTANT MMI$_NEWVOL_END = 33