!
! XPORT-specific VAX/VMS Definitions
!

LIBRARY  'SYS$LIBRARY:STARLET' ;			! Most useful VAX/VMS definitions

!
! QIO Status Block - not defined in STARLET.REQ or LIB.REQ
!

$FIELD	$VIOSB$fields = SET
	VIOSB$H_STATUS	= [$BYTES(2)] ,			! Completion status of the I/O request
	VIOSB$H_IO_COUNT	= [$BYTES(2)] ,			! Number of bytes actually transferred
	VIOSB$L_DEPEND	= [$BYTES(4)] ,			! Device/function dependent information
	    $OVERLAY( VIOSB$L_DEPEND )
	VIOSB$B_TERM1	= [$BYTE] ,			! First read terminator character
	VIOSB$B_TERM2	= [$BYTE] ,			! Second read terminator character
	VIOSB$H_TERM_LEN	= [$BYTES(2)] ,			! Number of read terminator characters
	    $OVERLAY( VIOSB$L_DEPEND )
	VIOSB$H_LINES	= [$BYTES(2)] ,			! Number of lines output to terminal
	VIOSB$B_COLUMN	= [$BYTE] ,			! Cursor column after output
	VIOSB$B_LINE	= [$BYTE]			! Cursor line after output
	TES;
LITERAL	VIOSB$K_LENGTH	= $FIELD_SET_SIZE;		! Length of QIO status block

MACRO
    $VIOSB =
	BLOCK[ VIOSB$K_LENGTH ]  FIELD( $VIOSB$fields ) %;