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

		DSK:CHAIN.REQ[4,31]              31-Aug-79 14:11


!
! 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)					!
!