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

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