Google
 

Trailing-Edge - PDP-10 Archives - TOPS-20_V6.1_DECnetSrc_7-23-85 - mcb/sc/scxllc.m11
There are 16 other files named scxllc.m11 in the archive. Click here to see a list.
.title	SCXLLC
.ident	/X01010/
.enabl	lc
;
;
;                    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.
;

;
; Some macros needed to properly specify the SCX data base.
;
.macro	OT.ON	ot,on	; Determine length of object-to-name table
	L.OBJT=L.OBJT+1
.endm	OT.ON

	L.OBJT=0
	SC$OBJ	OT.ON

.macro	.ASCIC	len,name
	.nchr	..n,<name>
	.byte	..n
	.ascii	\name\
	.rept	len-..n
		.byte	0
	.endr
.endm	.ASCIC

.macro	OT.ON	ot,on
	.byte	ot
	.ASCIC	6,<on>
	.iif eq,<n..>,vfy$ OTN.SZ
	n..=n..+1
.endm	OT.ON
;+
; LLC Data Base for RSX Session Control Interface
;-

.mcall	dat$

	dat$	dsr
	.byte	0		; SCX_TICK  / Timer byte
	.byte	0		; SCX_FLG   / Processing flags
	.byte	0		; SCX_SCPIX / PIX of Session Control
	.byte	0		; SCX_xxxxx / Rsv'd
	.word	0		; SCX_UCB   / UCB address
	.word	0		; SCX_TNB   / TNB list
	.word	NS.tpt		; SCX_LINKS / Maximum number of logical links
	lst$d			; SCX_MBX   / General delivery mailbox queue

	.word	L.OBJT		; SCX_OTN_LEN / Type-to-name table length
		cor$d		    ; SCX_OTN / Type-to-name table 
		n..=0
		SC$OBJ	OT.ON
		end$

		cor$d		    ; SCX_ULA / ULA reverse mapping vector
		.blkw	NS.tpt
		end$
	end$ SCX.SZ
.end