Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

MODULE RBDBG %BLISS36( (ENTRY(RBDEFS,RBFNEN)) ) = BEGIN
!
!
!
!			  COPYRIGHT (C) 1982 BY
!	      DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
!
! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED
! ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE AND WITH THE
! INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR  ANY  OTHER
! COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
! OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE  IS  HEREBY
! TRANSFERRED.
!
! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT  NOTICE
! AND  SHOULD  NOT  BE  CONSTRUED  AS  A COMMITMENT BY DIGITAL EQUIPMENT
! CORPORATION.
!
! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  RELIABILITY  OF  ITS
! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.

!++
! FACILITY:  CMS library processor
!
! ENVIRONMENT: VAX/VMS 
!
!--
LIBRARY 'XPORT:';

%if %bliss(bliss32) %then
	LIBRARY 'sys$library:starlet';
%else
	REQUIRE 'jsys:';
%fi

REQUIRE 'BLISSX:';
REQUIRE 'RBUSR:';
%BLISS32( PSECT OWN=$CODE$; )

forward routine
    rbdefs:novalue,
    rbfnen:novalue;

GLOBAL ROUTINE RBDEFS(control_block) :  NOVALUE = BEGIN

$XPO_DUMP_FIELD( FIELD_NAME=add_iob, TYPE=address, VALUE=.BLOCK[.control_block,add_iob] );
$XPO_DUMP_FIELD( FIELD_NAME=op_code, TYPE=integer, VALUE=.BLOCK[.control_block,op_code] );
$XPO_DUMP_FIELD( FIELD_NAME=fil_typ, TYPE=integer, VALUE=.BLOCK[.control_block,fil_typ] );
$XPO_DUMP_FIELD( FIELD_NAME=opn_trn_data_valid, TYPE=integer, VALUE=.BLOCK[.control_block,opn_trn_data_valid] );
%if VaxVms %then
!$XPO_DUMP_FIELD( FIELD_NAME=sav_rfa, TYPE=bytes, VALUE=.BLOCK[.control_block,sav_rfa] );
%fi
%if Tops20 %then
$XPO_DUMP_FIELD( FIELD_NAME=opn_sav_fbsiz, TYPE=integer, VALUE=.BLOCK[.control_block,opn_sav_fbsiz] );
%fi
END;  

GLOBAL ROUTINE RBFNEN(control_block) :  NOVALUE = BEGIN

!$XPO_DUMP_FIELD( FIELD_NAME=fil_nam, TYPE=descriptor, VALUE=.BLOCK[.control_block,fil_nam] );
$XPO_DUMP_FIELD( FIELD_NAME=fop_code, TYPE=integer, VALUE=.BLOCK[.control_block,fop_code] );
$XPO_DUMP_FIELD( FIELD_NAME=f_type, TYPE=integer, VALUE=.BLOCK[.control_block,f_type] );
$XPO_DUMP_FIELD( FIELD_NAME=clo_trn_data_valid, TYPE=integer, VALUE=.BLOCK[.control_block,clo_trn_data_valid] );
%if VaxVms %then
!$XPO_DUMP_FIELD( FIELD_NAME=sv_add, TYPE=bytes, VALUE=.BLOCK[.control_block,sv_add] );
%fi
%if Tops20 %then
$XPO_DUMP_FIELD( FIELD_NAME=clo_sav_fbsiz, TYPE=integer, VALUE=.BLOCK[.control_block,clo_sav_fbsiz] );
%fi
END;  
END  ELUDOM