!*** MODULE $CMBDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! +
 !  $CREMBX FLAGS bit definitions
 ! -
	PARAMETER CMB$M_READONLY = '00000001'X
	PARAMETER CMB$M_WRITEONLY = '00000002'X
	STRUCTURE /CMBDEF/
	UNION
	    MAP
	        PARAMETER CMB$S_READONLY = 1
	        PARAMETER CMB$V_READONLY = 0		 !  Channel to be assigned to mailbox is READ ONLY.
	        PARAMETER CMB$S_WRITEONLY = 1
	        PARAMETER CMB$V_WRITEONLY = 1		 !  Channel to be assigned to mailbox is WRITE ONLY.
	    BYTE %FILL (1)
	    END MAP
	END UNION
	END STRUCTURE	! CMBDEF
!DEC$ END OPTIONS