!+ ! ! XRSX.R16 - XPORT declarations for RSX-11M and IAS ! !- LIBRARY 'RSX11M'; ! RSX-11M monitor interface definitions LIBRARY 'FCS11'; ! RSX File Control Services interface definitions ! ! FCS_BLOCKS - XPORT Set of FCS Control Blocks ! $FIELD $fcs$fields = SET FCS$Z_FDB = [$SUB_BLOCK(FDB$SIZE*%UPVAL)] , ! File Descriptor Block FCS$Z_DS_DESC = [$SUB_BLOCK(DSPT$SIZE*%UPVAL)] , ! Dataset Descriptor FCS$Z_STATUS = [$SUB_BLOCK()], ! FCS I/O Status Block: FCS$G_COMP_CODE = [$BYTES(2)] , ! I/O completion code FCS$G_IO_COUNT = [$BYTES(2)] , ! I/O count FCS$G_BUFF_USED = [$BYTES(2)] , ! Amount of block I/O output buffer used ! (fdb[F$BKDS] is output buffer descriptor) FCS$G_BUFF_LEFT = [$BYTES(2)] ! Amount of unprocessed data in input buffer ! (fdb[F$BKDS]/fdb[F$URBD] is input buffer descriptor) TES; LITERAL FCS$K_BLK_LEN = $FIELD_SET_SIZE; ! Length of FCS control blocks (bytes) MACRO $FCS_BLOCKS = BLOCK[ FCS$K_BLK_LEN ] FIELD( $fcs$fields ) %;