! *********************************************************************************************************************************
!  Created 12-APR-1988 19:29:23  by  VAX-11 SDL V3.0-1     Source: 12-APR-1988 19:29:15 DUA0:[GRAY]SSDEF.SDL;2                     
! *********************************************************************************************************************************
 
! 
! 	This file defines data structures referenced by SSDRIVER.
! 
 
!*** MODULE ssdef IDENT V01.1 ***
! 
! 	Define the UCB extension.
! 
literal ssucb_m_error_enabled = 1;
literal ssucb_k_length = 138;           !  Length of structure
literal ssucb_s_ucb = 132;
FIELD ssucb_ssucb_FIELDSET =
  SET
  ssucb_b_error_ast_rmod = [132,0,8,0] , !  Access mode of error AST
    ssucb_b_state = [133,0,8,1] ,       !  State byte
      ssucb_v_error_enabled = [133,0,1,0] , !  Error interrupts enabled
    ssucb_r_fill_1 = [133,0,8,0] ,
  ssucb_r_fill_0 = [133,0,8,0] ,
  ssucb_a_error_ast_address = [134,0,32,0] !  Address of error AST routine
  TES;
literal ssucb_s_ssucb = 138;
MACRO ssucb = BLOCK [ssucb_s_ssucb,byte] FIELD (ssucb_ssucb_FIELDSET) %;
! 
! 	Define standard VMS buffered I/O packet.
! 
literal buf_k_hdrsiz = 12;              !  Length of header
FIELD buf_buf_FIELDSET =
  SET
  buf_a_data_address = [0,0,32,0] ,     !  Pointer to data area
  buf_a_user_buffer = [4,0,32,0] ,      !  Pointer to P0 user buffer address
  buf_w_size = [8,0,16,0] ,             !  Size of block
  buf_b_type = [10,0,8,0] ,             !  Type of block
  buf_b_spare = [11,0,8,0] ,            !  Unused byte
  buf_b_data_area = [12,0,8,0]          !  Start of data area
  TES;
literal buf_s_buf = 13;
MACRO buf = BLOCK [buf_s_buf,byte] FIELD (buf_buf_FIELDSET) %;