Google
 

Trailing-Edge - PDP-10 Archives - tops10_tools_bb-fp64b-sb - 10,7/mcbda/mdapkt.bli
There is 1 other file named mdapkt.bli in the archive. Click here to see a list.
MODULE PACKET (					!Display RSX I/O packet
		IDENT = '003010',
		LANGUAGE (BLISS16, BLISS36)
		) =
BEGIN
!
!			  COPYRIGHT (c) 1977, 1978 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: MCBDA - MCB Crash Dump Analyzer
!
! ABSTRACT:
!
!
! ENVIRONMENT: ANY
!
! AUTHOR: ALAN D. PECKHAM	, CREATION DATE:
!
! MODIFIED BY:
!
! 	Alan D. Peckham, 10-Jul-80: VERSION 3
! 01	- Update RSX symbol references
!--

!
! TABLE OF CONTENTS:
!

FORWARD ROUTINE
    DMPDEV : NOVALUE,				!Display device name.
    PUTPKT : NOVALUE;				!

!
! INCLUDE FILES:
!

LIBRARY 'MDACOM';				!MDA common definitions.

LIBRARY 'RSXLIB';				!RSX definitions.

!
! MACROS:
!
!
! EQUATED SYMBOLS:
!
!	None
!
! OWN STORAGE:
!
!
! EXTERNAL REFERENCES:
!

EXTERNAL ROUTINE
    BITLS : NOVALUE,				!IDENTIFY BITS AND EDIT INTO ASCII
    BYTSM : NOVALUE,				!Identify byte and edit into ASCII
    GETBYT,					!Get a byte from the dump.
    GETWRD,					!Get a word from the dump.
    MAPAPR : NOVALUE;				!Set up mapping bias.

ROUTINE DMPDEV (BUF_PTR_ADR, PAT_PTR_ADR, PRM_LST_ADR_ADR) : NOVALUE =

!++
! FUNCTIONAL DESCRIPTION:
!
!
! The next parameters are:
!	UCB_ADDRESS
!
! FORMAL PARAMETERS:
!
!	..BUF_PTR_ADR				!Pointer to output buffer.
!	..PAT_PTR_ADR				!Pointer to pattern string.
!	..PRM_LST_ADR_ADR			!Pointer to next parameter.
!
! IMPLICIT INPUTS:
!
!	NONE
!
! IMPLICIT OUTPUTS:
!
!	NONE
!
! ROUTINE VALUE:
!
!	NONE
!
! SIDE EFFECTS
!
!	NONE
!
!--

    BEGIN

    LOCAL
	PRM_LST : REF VECTOR,
	BUF_PTR_INI,
	UCB_ADDRESS;

    PRM_LST = ..PRM_LST_ADR_ADR;
    UCB_ADDRESS = .PRM_LST [0];
    .PRM_LST_ADR_ADR = PRM_LST [1];
    BUF_PTR_INI = ..BUF_PTR_ADR;

    IF .UCB_ADDRESS NEQ 0
    THEN
	BEGIN

	LOCAL
	    DCB_ADDRESS,
	    UNIT;

	EXTERNAL ROUTINE
	    $CBOMG;

	DCB_ADDRESS = GETWRD (.UCB_ADDRESS + FL$OFFSET (U_DCB));
	CH$WCHAR_A (GETBYT (.DCB_ADDRESS + FL$OFFSET (D_NAM) + 0), .BUF_PTR_ADR);
	CH$WCHAR_A (GETBYT (.DCB_ADDRESS + FL$OFFSET (D_NAM) + 1), .BUF_PTR_ADR);
	UNIT = ((.UCB_ADDRESS - GETWRD (.DCB_ADDRESS + FL$OFFSET (D_UCB)))/GETWRD (.DCB_ADDRESS + FL$OFFSET (
		D_UCBL))) + GETBYT (.DCB_ADDRESS + FL$OFFSET (D_UNIT));
	$CBOMG (.BUF_PTR_ADR, .UNIT, 0);
	END;

    CH$DIFF (..BUF_PTR_ADR, .BUF_PTR_INI)
    END;					!End of DMPDEV

GLOBAL ROUTINE PUTPKT (LINES, PACKET_ADDRESS) : NOVALUE =

!++
! FUNCTIONAL DESCRIPTION:
!
!
! FORMAL PARAMETERS:
!
!	NONE
!
! IMPLICIT INPUTS:
!
!	NONE
!
! IMPLICIT OUTPUTS:
!
!	NONE
!
! ROUTINE VALUE:
!
!	NONE
!
! SIDE EFFECTS:
!
!	NONE
!
!--

    BEGIN

    LOCAL
	ADR,
	TCB_ADDRESS,
	HEADER_ADDRESS;

    TCB_ADDRESS = GETWRD (.PACKET_ADDRESS + FL$OFFSET (I_TCB));
    HEADER_ADDRESS = GETWRD (GETWRD (.TCB_ADDRESS + FL$OFFSET (T_PCB)) + SYMBOL ('P.HDR'));
    PUTLN (.LINES, CH$ASCIZ ('	PACKET ADDRESS: %P  REQUESTOR: %2R  LUN: %M.  PRI: %M.  EFN: %M.'),
	.PACKET_ADDRESS, GETWRD (.TCB_ADDRESS + FL$OFFSET (T_NAM) + 0),
	GETWRD (.TCB_ADDRESS + FL$OFFSET (T_NAM) + 2),
	(GETWRD (.PACKET_ADDRESS + FL$OFFSET (I_LN2)) + 2 - (.HEADER_ADDRESS + FL$OFFSET (H_LUN)))^-2,
	GETBYT (.PACKET_ADDRESS + FL$OFFSET (I_PRI)), GETBYT (.PACKET_ADDRESS + FL$OFFSET (I_EFN)));
    BEGIN

    LITERAL
	IO_KIL = 0^8,
	IO_WLB = 1^8,
	IO_RLB = 2^8,
	IO_ATT = 3^8,
	IO_DET = 4^8,
	IO_FNA = 10^8,
	IO_RNA = 11^8,
	IO_ENA = 12^8,
	IO_ACR = 13^8,
	IO_ACW = 14^8,
	IO_ACE = 15^8,
	IO_DAC = 16^8,
	IO_RVB = 17^8,
	IO_WVB = 18^8,
	IO_EXT = 19^8,
	IO_CRE = 20^8,
	IO_DEL = 21^8,
	IO_RAT = 22^8,
	IO_WAT = 23^8;

    LOCAL
	FUNCTION;

    BIND
	FCN_LIST = BYTE_LIST ((IO_KIL/256, 'IO.KIL'), (IO_WLB/256, 'IO.WLB'), (IO_RLB/256, 'IO.RLB'),
		(IO_ATT/256, 'IO.ATT'), (IO_DET/256, 'IO.DET'), (IO_FNA/256, 'IO.FNA'),
		(IO_RNA/256, 'IO.RNA'), (IO_ENA/256, 'IO.ENA'), (IO_ACR/256, 'IO.ACR'),
		(IO_ACW/256, 'IO.ACW'), (IO_ACE/256, 'IO.ACE'), (IO_DAC/256, 'IO.DAC'),
		(IO_RVB/256, 'IO.RVB'), (IO_WVB/256, 'IO.WVB'), (IO_EXT/256, 'IO.EXT'),
		(IO_CRE/256, 'IO.CRE'), (IO_DEL/256, 'IO.DEL'), (IO_RAT/256, 'IO.RAT'),
		(IO_WAT/256, 'IO.WAT'));

    PUTLN (0, CH$ASCIZ ('	DEVICE: %@  FUNCTION: %P  %@'), DMPDEV,
	GETWRD (.PACKET_ADDRESS + FL$OFFSET (I_UCB)),
	(FUNCTION = GETWRD (.PACKET_ADDRESS + FL$OFFSET (I_FCN))), BYTSM, FCN_LIST, .FUNCTION<8, 8>);
    END;

    IF (ADR = GETWRD (.PACKET_ADDRESS + FL$OFFSET (I_IOSB) + 0)) NEQ 0
    THEN
	BEGIN
	MAPAPR (6, GETWRD (.PACKET_ADDRESS + FL$OFFSET (I_IOSB) + 2));
	PUTLN (0, CH$ASCIZ ('	I/O STATUS BLOCK: %P  CONTENTS: %O, %O'), .ADR,
	    GETWRD (ADR = GETWRD (.PACKET_ADDRESS + FL$OFFSET (I_IOSB) + 4)), GETWRD (.ADR + 2));
	END;

    IF (ADR = GETWRD (.PACKET_ADDRESS + FL$OFFSET (I_AST))) NEQ 0
    THEN
	PUTLN (0,
	    CH$ASCIZ ('	AST ADDRESS: %P'), .ADR);

    PUTLN (0, CH$ASCIZ ('	PARAMETERS: %P  %P  %P  %P  %P  %P  %P  %P'),
	GETWRD (.PACKET_ADDRESS + FL$OFFSET (I_PRM) + 0), GETWRD (.PACKET_ADDRESS + FL$OFFSET (I_PRM) + 2),
	GETWRD (.PACKET_ADDRESS + FL$OFFSET (I_PRM) + 4), GETWRD (.PACKET_ADDRESS + FL$OFFSET (I_PRM) + 6),
	GETWRD (.PACKET_ADDRESS + FL$OFFSET (I_PRM) + 8), GETWRD (.PACKET_ADDRESS + FL$OFFSET (I_PRM) + 10),
	GETWRD (.PACKET_ADDRESS + FL$OFFSET (I_PRM) + 12), GETWRD (.PACKET_ADDRESS + FL$OFFSET (I_PRM) + 14));
    END;					!End of PUTPKT

END						!End of module

ELUDOM