Google
 

Trailing-Edge - PDP-10 Archives - BB-W661B-BM_1984 - dn20/gatllc.m11
There is 1 other file named gatllc.m11 in the archive. Click here to see a list.
.TITLE GATLLC - GAT LLC DATA BASE
.IDENT /X01001/
.ENABLE LC

;
;
;                    COPYRIGHT (C) 1983
;                    DIGITAL EQUIPMENT CORPORATION
;
;     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.
;

.if NDF GA.CKT
GA.CKT = 20
.endc

GA.RFQE = 20

.mcall dat$

.macro NAM16	NM
	.nchr	$$N,NM
	.byte	$$N
	.ascii	/NM/
	.if	gt,16.-$$n
	.rept	16.-$$n
	.ascii	/ /
	.endr
	.endc
	.endm	NAM16

.macro NAM8	NM
	.nchr	$$N,NM
	.byte	$$N
	.ascii	/NM/
	.if	gt,8.-$$n
	.rept	8.-$$n
	.ascii	/ /
	.endr
	.endc
	.endm	NAM8


.macro NAM6	NM
	.even
	.nchr	$$N,NM
	.byte	$$N
	.ascii	/NM/
	.if	gt,6.-$$n
	.rept	6.-$$n
	.ascii	/ /
	.endr
	.endc
	.endm	NAM6

.macro  BSTRNG	str
	$$N = 0
	.irp	bite,<str>
	$$N = $$N + 1
	.endm
	.byte	$$N
	.irp	bite,<str>
	.byte	bite
	.endm
	.if	gt,16.-$$N
	.rept	16.-$$N
	.byte	0
	.endr
	.endc
	.endm	BSTRNG

.macro GA$PASS a,b,c
 NAM8 b
.endm

.macro	PVC$CNT a,b,c,d,e
$$npvc = $$npvc + 1
.endm

.macro PVC$BLD name,dte,lcn,ws,ps
 NAM16 name     ;PVC name
 NAM16 <>	;Connected node name
 .word 0	;Connected node number
 .byte 0	;Connected object number
 NAM16 <>	;Connected object name
.endm

.macro DST$CNT dnm,nnm,tnm,obj,usrnm,pass,acc,grp,dte,sas,sae,mask,patt,prio
$$ndest = $$ndest + 1
.endm

.macro DST$BLD dnm,nnm,tnm,obj,usrnm,pass,acc,grp,dte,sas,sae,mask,patt,prio
.even
 NAM16 dnm	; Destination name
.even
 NAM6   nnm	; Node name
 .byte prio	; Priority
 .word 0	; Node number
 NAM16  tnm	; Process name
 .byte obj	; Object number
 NAM16 usrnm	; User name
 NAM16 pass	; Password
 NAM16 acc	; Account string
 .even
 .word sas,sae	; Subaddress range
 BSTRNG <mask>	; Mask
 .even
 BSTRNG <patt>	; Pattern
 .even
 NAM16 grp	; Group name
.even
 NAM16 dte	; DTE address
.even
.endm DST$BLD

$$npvc=0
PVC$DF PVC$CNT	;Compute total number of PVC circuits.
$$ndest = 0
DST$DF DST$CNT

dat$	dsr
.list MEB
.byte	0		; Long timer byte
.byte	0,0,0,0,0	;  PIX's
cor$d			; MAPPED DATA BASE
    $$j = 1
   .rept GA.CKT		; Logical Link Data Base
   .byte 0
   .byte 0
   .byte $$j
   .byte 0
   .rept 12.
   .word 0
   .endr
   $$j = $$j + 1
   .endr
   PVC$DF PVC$BLD	; Circuit (PVC) data base
end$
.word GA.CKT*42.	; CIRCUIT DB ADDRESS
cor$d 
DST$DF DST$BLD
 .rept GA.DST-$$ndest
 .blkb 18.	; Destination name
 .blkb 7.	; Node name
 .byte 0	; Priority
 .word 0	; Node number
 .blkb 17.	; Process name
 .byte 0	; Object number
 .blkb 17.	; User name
 .blkb 17.	; Password
 .blkb 17.	; Account string
 .even
 .word -1,100.	; Subaddress range
 .blkb 17.	; Mask
 .even
 .blkb 17.	; Pattern
 .even
 .blkb 17.	; Group name
.even
  .blkb 17.	; DTE address
 .even
 .endr
end$
.byte 0,0		; Flags
.word 0			; Module flags
.word 0			; Resource Fail Recovery CCB.
 lst$d	   		; Resource fail queue listhead
dsr$w GA.RFQE*6		; Resourc recovery request buffer start
.word GA.RFQE*6 - 6	; Resource recovery request buffer end
.word 0			; Resource recovery queue element lowest address
dsr$w
GA$ACC GA$PASS 		; Password and count
 end$
.word GA.CKT		; Maximum number of active CIRCUITS
.word 0			; Current number of active CIRCUITS
.byte 0			; Link reject count
.byte 0			; Incoming call reject count
.word 0			; Maximum number of active CIRCUITS.
.byte GA.DST		; Maximum number of Destinations
.byte $$npvc
.even
.word 0,0		; Time counters last zeroed.
.byte 10.
.ascii /X25-SERVER/
.even
.blkb 128.		; Work area
.word 0
.word	0
.word	300.
.blkb	300.
end$
.end