.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$