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

.title	SCLLC
.ident	/X01070/
.enabl	lc


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

.macro	ON.PN	on,pn	; Determine length of name-to-process table
	L.OBJN=L.OBJN+1
.endm	ON.PN

	L.OBJT=0
	L.OBJN=0
	SC$OBJ	OT.ON
	SC$PRO	ON.PN

.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

.macro	ON.PN	on,pn
	.ASCIC	6,<on>
	.even
	.rad50	\pn\
	.iif eq,<n..>,vfy$ ONP.SZ
	n..=n..+1
.endm	ON.PN

;+
; LLC Data Base for Session Control
;-

.mcall	dat$

	dat$	dsr
	.byte	0		; SC_TICK  / Timer byte
	.byte	1		; SC_FLAGS / SC's status info (initially off)
	.byte	0		; SC_NSPIX / NSP's PIX
	.byte	0		; SC_NMPIX / NMX's PIX
	.byte	0		; SC_SNPIX / SC's NM PIX
	.byte	0		; SC_LLINK / Last logical link handled
	.byte	0		; SC_IPORT / Number of OPEN input ports
	.byte	SC.opn		; SC_RPORT / Needed number of OPEN input ports
	.word	0	 	; SC_LADDR / Local node address
	.word	0		; SC_HADDR / Host node address
	.word	0		; SC_SSIZE / NSP segment size
	.word	SC.tpt		; SC_LINKS / Maximum number of logical links
	.word	SC.nn		; SC_NODES / Maximum number of network nodes
	.word	SC.nln		; SC_LOOPS / Maximum number of loopback nodes
	.word	SC.itm		; SC_ITIME / Incoming connect timer value
	.word	SC.otm		; SC_OTIME / Outgoing connect timer value
	.word	L.OBJT		; SC_OTN_LEN / Type-to-name table length
	.word	L.OBJN		; SC_ONP_LEN / Name to process table length

		cor$d		    ; SC_OTN / Type-to-name table 
		n..=0
		SC$OBJ	OT.ON
		end$

		cor$d		    ; SC_ONP / Name-to-process table
		n..=0
		SC$PRO	ON.PN
		end$

		cor$d		    ; SC_LLT / Logical link table
		n.. = 0
		.rept	SC.tpt
		  .byte	0		; L_STATE / Link state
		  .byte	0		; L_FLAGS / Processing flags
		  .byte	0		; L_ULA   / User link address
		  .byte	n..		; L_LLA   / Logical link address
		  .byte	0		; L_PID   / Port ID
		  .byte	0		; L_PIX   / User process index
		  .word	0		; L_RNA   / Remote node address
		  .word	0		; L_CHN   / Channel number
		  .word 0		; L_TIMER / Timer value
		  .word 0		; L_STS   / Status for link disolution
		  lst$d			; L_IQUE  / Input queue
		  lst$d			; L_OQUE  / Output queue
		  lst$d			; L_INTQ  / Interrupt queue
		  .iif eq,<n..>,vfy$ LLT.SZ
		  n..=n..+1
		.endr
		.blkw	SC.tpt		;         / Port reverse mapping vector
		end$

		cor$d		    ; SC_NMT / Node mapping table
		n.. = 0
		.rept	SC.nn
		  .word	n..+1		; NMT_ADDR / Node address or
		  			; NMT_CHAN / Channel number
		  .byte 0		; NMT_NAML / Name length
		  .blkb	6		; NMT_NAME / Node name
		  .even
		  .word 0		; a spare in this case
		  .iif eq,<n..>,vfy$ NMT.SZ
		  n..=n..+1
		.endr
		.rept	SC.nln
		  .word	n..+1		; NMT_ADDR / Node address or
		  			; NMT_CHAN / Channel number
		  .byte 0		; NMT_NAML / Name length
		  .blkb	6		; NMT_NAME / Node name
		  .even
		  .word 0		;NMT_NMXID / NMX id
		  .iif eq,<n..>,vfy$ NMTLOOP.SZ
		  n..=n..+1
		.endr
		end$
	end$ SC.SZ
.end