Google
 

Trailing-Edge - PDP-10 Archives - TOPS-20_V6.1_DECnetSrc_7-23-85 - mcb/tkb36/chain.req
There are 4 other files named chain.req in the archive. Click here to see a list.
!                    COPYRIGHT (c) 1980, 1981, 1982
!                    DIGITAL EQUIPMENT CORPORATION
!                        Maynard, Massachusetts
!
!     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.


!
! DEFINE THE STORAGE BLOCK USED TO DESCRIBE A CHAIN OF OTHER BLOCKS
!
!
! DEFINE MAX POINTERS ALLOWED BEFORE GOING TO ANOTHER BLOCK
!

LITERAL
    MAX_CHAIN_PTRS = 15;

!
SBLOCK (CHAIN, 2)				!CHAIN BLOCKS - USED TO LINK THINGS
HEADER (CHAIN)					!
ABLOCK (NUM_CHAIN_PTRS, %NBITSU (MAX_CHAIN_PTRS), 1)	!CURRENT NUMBER OF CHAIN POINTERS
ABLOCK (CHAIN_STYPE, %NBITSU (MAX_BLK_TYPE), 1)	!TYPE OF BLOCK POINTED TO
ABLOCK (CHAIN_BACK, %BPADDR, 1)			!POINTER TO ROOT BLOCK
ABLOCK (CHAIN_NEXT, %BPADDR, 1)			!NEXT CHAIN BLOCK, FOR MORE POINTERS
ABLOCK (CHAIN_PREV, %BPADDR, 1)			!PREVIOUS CHAIN BLOCK
ABLOCK (CHAIN_PTRS, %BPADDR*MAX_CHAIN_PTRS, 1)	!THE POINTERS THEMSELVES
EBLOCK (CHAIN)					!
!