Trailing-Edge
-
PDP-10 Archives
-
bb-kl11c-bm_tops20_v6_1_atpch1_16
-
autopatch/gatllc.x12
There are 2 other files named gatllc.x12 in the archive. Click here to see a list.
.TITLE GATLLC - GAT LLC DATA BASE
.IDENT /X01002/
.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*28. ; 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