/DECNET/8 V1A CONNECT CONTROL BLOCK FORMAT
	IFDEF DDCMP <XLIST>
/
/
/
/
/
/
/
/
/COPYRIGHT  (C)  1976,1977 BY DIGITAL EQUIPMENT CORPORATION
/
/
/
/
/
/
/
/
/
/
/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
/CORPORATION.  DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
/
/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
/
/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
/DIGITAL.
/
/
/
/
/
/
/ DECNET/8 RELEASE VERSION 1
/ DECNET/8 PATCH LEVEL A
/ APRIL 8, 1977
/
/
/
/
	IFDEF DDCMP <
	XLIST
	EJECT
	>
	/PRELIMINARY DEFINITIONS
	/THESE SHOULD NORMALLY BE DEFINED IN USER'S TASK

/CHANNL=		/SET TO CCB REFERENCE NUMBER
/CCB=			/SET TO CCB ORIGIN (CCB MUST LIE WITHIN A PAGE)
/USRAST=		/SET TO ENTRY POINT OF DECNET DERAIL ROUTINE


	FIELD	NSPFLD%10

	IFDEF CHANNL <
	*CHANNL^2+CCBTAB-2	/SETUP CCB TABLE ENTRY FOR THIS CCB
	CDF	CUR
	CCB
	>

	FIELD	CUR%10

	/CCB STATE BIT DEFINES

CHNCON=	2000		/SET IF CCB CONNECTED
CHNCIS=	1000		/SET IF CI WAS SENT
CHNCIR=	400		/SET IF CI WAS RECEIVED
CHNCCS=	200		/SET IF CC WAS SENT
CHNDIS=	100		/SET IF DI WAS SENT
CHNNLL=	40		/SET IF NORMAL LOGICAL LINK
CHNOFL=	4		/SET IF CCB IN OFF LINE MODE

	/MSGFLG DEFINES

RTHBIT=	1		/SET IF ROUTING HEADER PRESENT
CMBIT=	2		/SET IF THIS IS A CONTROL MESSAGE
INTBIT=	4		/SET IF THIS IS AN INTERRUPT MESSAGE

	/DDCMP FUNCTION CODES

SNDFUN=	0		/SEND MESSAGE ON LINE
STRFUN=	1		/START SEQUENCE
HLTFUN=	2		/HALT LINE AND RETURN MESSAGES
OFLFUN=	3		/SEND MESSAGE OFF LINE

	/DERAIL REASON CODES

INTRSN=	0		/INTERRUPT SEMAPHORE FROM PARTNER
CONRSN=	1		/CONNECT INIT RECEIVED
DISRSN=	2		/DISCONNECT FROM PARTNER
DABRSN=	3		/DISCONNECT ABORT
ERRRSN=	10		/NSP ERROR CAUSED LINK TO BREAK
LDNRSN=	11		/PHYSICAL LINK CAUSED LINK TO BREAK

	/NSP FUNCTION CODES

CONINI=	10+7000		/CONNECT INITIATE (NLL+FC DEFAULT)
CONCNF=	11+7000		/CONNECT CONFIRM (NLL+FC DEFAULT)
CONREJ=	12		/CONNECT REJECT
DISCON=	13		/DISCONNECT
TRNSMT=	14+4000		/TRANSMIT MESSAGE (EOM DEFAULT)
INTRPT=	15		/SEND INTERRUPT MESSAGE
RCVMSG=	16+4000		/RECEIVE MESSAGE (NEW MSG DEFAULT)
RCNMSG=	16+6000		/RECEIVE MESSAGE WITH NO LINK STATUS TRANSMISSION
RCVSM=	17		/RECEIVE SINGLE MESSAGE
TRNSM=	20		/TRANSMIT SINGLE MESSAGE
	/STATUS WORD DEFINES (LOW 6 BITS)

SUCST=	0		/SUCCESS
DISST=	1		/DISCONNECT PREEMPTED
DABST=	2		/ABORT PREEMPTED
DRJST=	3		/DISCONNECT REJECT BY NSP
CRJST=	4		/CONNECT REJECT BY TARGET TASK
ILLST=	5		/ILLOGICAL REQUEST (IGNORED)
LSTST=	6		/DATA LOST WARNING
NODST=	7		/NODE NAME NOT FOUND
ERRST=	10		/NSP ERROR PREEMPTED
LDNST=	11		/LINE DROPPED PREEMPTING THIS REQ

	/NSP MESSAGE TYPE AND SUBTYP CODES

CONTYP=	1		/CONNECT TYPE
DISTYP=	2		/DISCONNECT TYPE
LSTYPE=	3		/LINK STATUS
ERRTYP=	4		/ERROR MESSAGE

CISUBT=	0		/CONNECT INITIATE
CCSUBT=	1		/CONNECT CONFIRM
CRSUBT=	2		/CONNECT REJECT

DRSUBT=	3		/DISCONNECT REJECT
DISUBT=	4		/DISCONNECT INITIATE
DCSUBT=	5		/DISCONNECT CONFIRM
DASUBT=	6		/DISCONNECT ABORT
	IFDEF CHANNL <
	/CONNECT CONTROL BLOCK AREA
	/THOSE ENTRIES FLAGGED "/*" IN THE COMMENT MUST BE INITIALIZED
	/PRIOR TO USE

	*CCB

CCBSTA,	0		/STATE WORD
CCBDOT,	0		/DEST OBJECT TYPE
CCBDN1,	0		/DEST NAME
CCBDN2,	0		/(SIXBIT)
CCBDN3,	0
CCBDN4,	0
CCBDN5,	0
CCBDN6,	0
CCBDG,	0		/DEST GROUP
CCBDU,	0		/DEST USER
	NOPUNCH
CCBSOT,	0		/* SOURCE OBJECT TYPE
CCBSN1,	0		/* SOURCE NAME
CCBSN2,	0		/*
CCBSN3,	0		/*
CCBSN4,	0		/*
CCBSN5,	0		/*
CCBSN6,	0		/*
CCBSG,	0		/* SOURCE GROUP
CCBSU,	0		/* SOURCE USER [P,PN]...
	ENPUNCH
	*.
CCBTSK,	TASK		/* TASK BOUND TO THIS CCB
CCBDNO,	0		/DEST NODE (RESERVED)
CCBLIN,	0		/PHYSICAL LINK NUMBER (DDCMP LINE)
CCBND1,	0		/CONTAINS NODE NAME DURING CONNECTION
CCBND2,	0
CCBND3,	0
CCBDST,	0		/DSTADR THIS CONNECTION
CCBDS2,	0
CCBSRC,	0		/SRCADR THIS CONNECTION
CCBSR2,	0
CCBPH,	0		/HEAD OF TRANS REQS WAITING FOR POST
CCBTH,	0		/HEAD OF TRANS REQS WAITING FOR TRANS
CCBTT,	0		/TAIL OF TRANS/POST QUEUE (NEWEST REQST)
CCBRH,	0		/HEAD RECV Q
CCBRT,	0		/TAIL RECV Q
CCBTRQ,	0		/TRANSMIT REQCNT (FROM USER RECEIVES)
CCBTSG,	0		/TRANSMIT SEGCNT FROM USER RECEIVES
CCBRRQ,	0		/RECEIVED REQCNT (FROM LINE)
CCBRSG,	0		/RECEIVED SEGCNT
CCBCON,	0		/POINTS TO CONNECT PACKET
CCBDIS,	0		/POINTS TO DISCONNECT PACKET
CCBINT,	0		/POINTS TO INTERRUPT PACKET (ONLY 1 ALLOWED)
CCBIH,	0		/INTERRUPT Q HEAD
CCBIT,	0		/INTERRUPT Q TAIL
CCBIC,	0		/INTERRUPT QUEUE SIZE LIMITER
CCBSMT,	0		/HEAD OF SINGLE MESSAGE TRANSMIT QUEUE
CCBSMR,	0		/HEAD OF SINGLE MESSAGE RECEIVE QUEUE
CCBRSN,	0		/GETS REASON CODE FOR INTERRUPT
CCBDRL,	USRAST		/* DERAIL ADDR (PSEUDO AST)
CCBOPL,	0		/-BYTE COUNT OF OPTIONAL DATA
CCBAC,	0		/MAIN LINE AC
CCBPC,	0		/MAIN LINE PC
CCBXDF,	0		/CDF MAIN LINE DF
			/IF NONZERO INDICATES AT AST LEVEL
			/IF ZERO INDICATES AT TASK LEVEL
CCBGLK,	0		/SET LINK INSTR (ENTRY OF AST EXIT CODE)
	DCA	CCBXDF	/CLEAR XDF FLAG NOW
	TAD	CCBAC	/GET THE AC
	ION		/RE ENABLE INTERRUPTS NOW
	JMP I	CCBPC	/RETURN TO MAINLINE
CCBRTN,	IOF		/USER AST RETURN ROUTINE
	TAD	CCBIH	/SEE IF ANY MORE PACKETS WAITING
	SNA CLA
	JMP	CCBXDF	/EXIT  IF NO
	TAD	CCBCHN	/ELSE SET AC TO CHANNL NUMBER
	CIF CDF	NSPFLD	/GET SET TO ENTER NSP
	JMP I	CCBDXT	/GET ANOTHER REQUEST
CCBDXT,	DRLXIT
CCBTSW,	TSWFLG
CCBCHN,	CHANNL		/*USER CHANNL NUMBER
CCBAST,	ISZ I	CCBTSW	/COME HERE FROM AST DEQ ROUTINE
	JMP	.+3	/SKIP TASK SWITCH IF NO INTERRUPTS
	CAL
	RESCHD		/OTHERWISE RESCHEDULE
	CDF	CUR
	JMP I	CCBDRL	/ENTER USER AST NOW
CCBOPT=.
	/THE NEXT 16. WORDS IN THE CCBTAB HAVE LAST OPTDATA GOT

CCBSIZ=	CCBOPT+20-CCBSTA	/TALLY ALL WORDS IN ACTUAL CCB
	>