!*** MODULE $XABTRMDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !         terminal control xab field definitions
 !                 $xabtrmdef
 ! 
 ! 
	PARAMETER XAB$C_TRM = '0000001F'X	 ! XABTRM ID CODE
	STRUCTURE /XABTRMDEF/
	    BYTE      %FILL
	    BYTE      %FILL
	    INTEGER*2 %FILL
	    INTEGER*4 %FILL				 ! HAS SAME COD, BLN, SPARE AND NXT FIELD
 ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND
 ! HAVE BEEN DEFINED BY $XABDEF
	    INTEGER*4 XAB$L_ITMLST			 !  item list address
	    INTEGER*2 XAB$W_ITMLST_LEN		 !  item list length
	    INTEGER*2 %FILL				 !  spare
	    INTEGER*4 %FILL				 !  spare
	    INTEGER*4 %FILL				 !  spare
	    INTEGER*4 %FILL				 !  spare
	    INTEGER*4 %FILL				 !  spare
	    INTEGER*4 %FILL				 !  spare
	END STRUCTURE	! XABTRMDEF
 !  basealign on aggregate XABTRMDEF operates after aggregate end
	PARAMETER XAB$K_TRMLEN = '00000024'X	 !  length of xab of type terminal control
	PARAMETER XAB$C_TRMLEN = '00000024'X	 !  length of xab of type terminal control
!DEC$ END OPTIONS