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

.title	SCXLLC
.ident	/X01010/
.enabl	lc


;
; 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