.MACRO	CRBDF$,L,B,LST
;		 3-AUG-1989 10:50:29 - JMB - changed location of PASMAC (again)
	.iif nb	LST	.List 
	.ASECT
;
; New connect block offsets (support for long passwords, user names and
; accounting information)
; 
.=0
M.RND:'L'  .BLKB	6	; Destination node name
M.RFM:'L'  .BLKB	1	;      "      descriptor format
M.ROT:'L'  .BLKB	1	;      "      object type
			;******
			;		Format 0 -
	.BLKB	18.	; [UNUSED]
			;***
.=.-18.			;		Format 1 -
M.RDEC:'L' .BLKW	1	; Destination process byte count
M.RDE:'L'  .BLKB	16.	;      "         "
			;***
;
; Offsets between N.RND and N.RDE and M.RND and M.RDE for format 1 or N.RGP
; and M.RGP  for format 2 must be identical in both the old and new 
; connect blocks.  Do not add an offset to one without adding it to the other.
;
.=.-18.			;		Format 2 -
M.RGP:'L'  .BLKW	1	; Destination group
M.RUS:'L'  .BLKW	1	;      "      user
M.RNMC:'L' .BLKW	1	;      "      name byte count
M.RNM:'L'  .BLKB	12.	;      "        "
			;******
M.RIDC:'L' .BLKW	1	; Requesting process id byte count
M.RID:'L'  .BLKB	40.	;      "        "     "
M.RPSC:'L' .BLKW	1	; Requesting password byte count
M.RPS:'L'  .BLKB	40.	;     "         "
M.RACC:'L' .BLKW	1	; Accounting information byte count
M.RAC:'L'  .BLKB	40.	;     "          "
			;
M.RQL='B'.-M.RND		; Length of RDB
;
;
; Short (old) connect block offsets.  Included for compatibility with
; existing software and versions of DECnet RSX
;
;
.=0
N.RND:'L'  .BLKB	6	; Destination node name
N.RFM:'L'  .BLKB	1	;      "      descriptor format
N.ROT:'L'  .BLKB	1	;      "      object type
			;******
			;		Format 0 -
	.BLKB	18.	; [UNUSED]
			;***
.=.-18.			;		Format 1 -
N.RDEC:'L' .BLKW	1	; Destination process byte count
N.RDE:'L'  .BLKB	16.	;      "         "
			;***
;
; Offsets between N.RND and N.RDE and M.RND and M.RDE for format 1 or N.RGP
; and M.RGP  for format 2 must be identical in both the old and new 
; connect blocks.  Do not add an offset to one without adding it to the other.
;
;
.=.-18.			;		Format 2 -
N.RGP:'L'  .BLKW	1	; Destination group
N.RUS:'L'  .BLKW	1	;      "      user
N.RNMC:'L' .BLKW	1	;      "      name byte count
N.RNM:'L'  .BLKB	12.	;      "        "
			;******
N.RIDC:'L' .BLKW	1	; Requesting process id byte count
N.RID:'L'  .BLKB	16.	;      "        "     "
N.RPSC:'L' .BLKW	1	; Requesting password byte count
N.RPS:'L'  .BLKB	8.	;     "         "
N.RACC:'L' .BLKW	1	; Accounting information byte count
N.RAC:'L'  .BLKB	16.	;     "          "
			;
N.RQL='B'.-N.RND		; Length of short (old) RDB
 	.PSECT
 
	.if nb	LST
	.Nlist
	.iff
	.MACRO	CRBDF$,X,Y,Z
	.ENDM	CRBDF$
	.endc
 
	.ENDM	CRBDF$