Trailing-Edge
-
PDP-10 Archives
-
TOPS-20_V6.1_DECnetSrc_7-23-85
-
mcb/sc/sc.lst
There is 1 other file named sc.lst in the archive. Click here to see a list.
SC 27-Nov-1984 13:22:51 TOPS-20 Bliss-16 2A(530) Page 1
27-Nov-1984 13:20:12 RATS:<BANKS.MCB.SC>SC.BLI.2 (1)
; 0001 module SC ( ! SC Base-Level Module
; 0002 ident = 'X01910'
; 0003 ) =
; 0004 begin
; 0005 !
; 0006 ! COPYRIGHT (c) 1980, 1981, 1982
; 0007 ! DIGITAL EQUIPMENT CORPORATION
; 0008 ! Maynard, Massachusetts
; 0009 !
; 0010 ! This software is furnished under a license and may be used
; 0011 ! and copied only in accordance with the terms of such license
; 0012 ! and with the inclusion of the above copyright notice. This
; 0013 ! software or any other copies thereof may not be provided or
; 0014 ! otherwise made available to any other person. No title to
; 0015 ! and ownership of the software is hereby transferred.
; 0016 !
; 0017 ! The information in this software is subject to change
; 0018 ! without notice and should not be construed as a commitment
; 0019 ! by DIGITAL EQUIPMENT CORPORATION.
; 0020 !
; 0021 ! DIGITAL assumes no responsibility for the use or reliability
; 0022 ! of its software on equipment which is not supplied by
; 0023 ! DIGITAL.
; 0024 !
; 0025
; 0026
; 0027
; 0028 !++
; 0029 ! FACILITY: Session Control
; 0030 !
; 0031 ! ABSTRACT: This is the identifier module in the MCB implementation
; 0032 ! of Session Control.
; 0033 !
; 0034 ! ENVIRONMENT: MCB
; 0035 !
; 0036 ! AUTHOR: Buren Hoffman CREATION DATE: 2-Apr-80
; 0037 !
; 0038 ! MODIFIED BY:
; 0039 ! X01010 Modified mapping operations in SCDSP and SCSUB.
; 0040 ! X01020 Corrected linkage misfits for external routines.
; 0041 ! X01030 Fix in output connect processing, in SX$CNW.
; 0042 ! X01040 Don't set C_CHN in outgoing connect.
; 0043 ! X01050 Correct state transition in connect-receive processing.
; 0044 ! X01060 Modification X10600 in SCDSP.
; 0045 ! X01070 Fixed mapping bug at entry to FCXCP in SCDSP.
; 0046 ! X01080 Repaired queue processing bug in SX$CNW.
; 0047 ! X01090 Fixed dot bug in timeout handler in SCDSP.
; 0048 ! X01100 Mod X01040 in SCSUB.
; 0049 ! X01110 Moved port-open code to routine I$OPN in SCSUB.
; 0050 ! X01120 Fixed logic problem in SCSUB (CONBKI & CONBKO), X01060.
; 0051 ! X01130 PIX not being properly setup in SCSUB (CONBKI), X01070.
; 0052 ! X01140 Nonexistent ccb release in fcrce in SCDSP, X01012.
SC 27-Nov-1984 13:22:51 TOPS-20 Bliss-16 2A(530) Page 2
X01910 27-Nov-1984 13:20:12 RATS:<BANKS.MCB.SC>SC.BLI.2 (1)
; 0053 ! X01150 PIX not being setup in SCRES (SX$ACW), X01080.
; 0054 ! X01160 Changed to new object mapping strategy - this involved
; 0055 ! changes in this module (SC) and SCSUB.
; 0056 ! X01170 Connect complete was releasing LDB as CCB in SCDSP, X01130.
; 0057 ! X01180 Removed obsolete external reference from SCSUB, X01100.
; 0058 ! X01190 Corrected bug in SCSUB (FINDOB), X01110.
; 0059 ! X01200 Added global-database-length symbols to this module to
; 0060 ! allow database integrity checking during process building.
; 0061 ! X01210 Set PIXs in ccbs in several routines in SCRES, X01090.
; 0062 ! X01220 Modified connect-received processing to not include count
; 0063 ! field in optional data returned to user in SCDSP, X01140.
; 0064 ! X01230 Supplied missing ref's in SCRES, X01100.
; 0065 ! X01240 Fixed problem where wrong CCB was being sent to LLCRS
; 0066 ! in SCRES routines, X01110.
; 0067 ! X01250 X01160 in SCDSP.
; 0068 ! X01260 X01120 in SCRES.
; 0069 ! X01270 X01130 in SCRES.
; 0070 ! X01280 X01120 in SCSUB.
; 0071 ! X01290 X01170 in SCDSP.
; 0072 ! X01300 X01140 in SCRES.
; 0073 ! X01310 X01180 in SCDSP.
; 0074 ! X01320 X01130 in SCSUB.
; 0075 ! X01330 X01190 in SCDSP.
; 0076 ! X01340 X01200 in SCDSP.
; 0077 ! X01350 X01210 in SCDSP, and X01150 in SCRES.
; 0078 ! X01360 X01180 in SCRES.
; 0079 ! X01370 Updated use of signal_stop in all modules
; 0080 ! X01380 X01190 in SCRES.
; 0081 ! X01390 X01240 in SCDSP.
; 0082 ! X01400 Changed to MCB 3.1 process header macro $MCB_PROCESS.
; 0083 ! X01410 X01150 in SCSUB.
; 0084 ! X01420 X01000 in SCNM, the new network management, plus
; 0085 ! mods in SCDSP (X01250) to remove old nm stuff,
; 0086 ! and changed node search in SCSUB (X01150).
; 0087 ! X01430 X01260 in SCDSP.
; 0088 ! X01440 Changes to properly handle aborted data segments.
; 0089 ! This change involved code in all modules. Also,
; 0090 ! some code cleanup was performed.
; 0091 ! X01450 Use new Comm/Exec to process linkage (.CRDAT for database)
; 0092 ! X01460 X01290 in SCDSP.
; 0093 ! X01470 X01030 in SC1.
; 0094 ! X01480 X01210 in SCRES.
; 0095 ! X01490 X01300 in SCDSP, and X01040 in SC1.
; 0096 ! X01500 X01310 in SCDSP, X01220 in SCRES, X01180 in SCSUB, and
; 0097 ! X01050 in SC1.
; 0098 ! X01510 Reassembled everything to correct linkage problem.
; 0099 ! X01520 X01320 in SCDSP, and X01230 in SCRES.
; 0100 ! X01530 Backed off from using V2.1 compiler - it produces wrong code
; 0101 ! X01540 X01190 in SCSUB.
; 0102 ! X01550 X01240 in SCRES.
; 0103 ! X01560 X01330 in SCDSP, and X01070 in SC1.
; 0104 ! X01570 X01250 in SCRES.
SC 27-Nov-1984 13:22:51 TOPS-20 Bliss-16 2A(530) Page 3
X01910 27-Nov-1984 13:20:12 RATS:<BANKS.MCB.SC>SC.BLI.2 (1)
; 0105 ! X01580 X01080 in SC1.
; 0106 ! X01590 Just some minor editing
; 0107 ! X01600 Changes in SCPRM.
; 0108 ! X01610 X01080 in SC1.
; 0109 ! X01620 X01090 in SC1.
; 0110 ! X01630 X01340 in SCDSP, and X01260 in SCRES.
; 0111 ! X01640 X01270 in SCRES.
; 0112 ! X01650 X01350 in SCDSP.
; 0113 ! X01660 X01100 in SC1.
; 0114 ! X01670 X01360 in SCDSP.
; 0115 ! X01680 X01370 in SCDSP.
; 0116 ! X01690 X01110 in SC1.
; 0117 ! X01700 X01120 in SC1.
; 0118 ! X01710 X01380 in SCDSP.
; 0119 ! X01720 X01390 in SCDSP.
; 0120 ! X01730 X01210 in SCSUB.
; 0121 ! X01740 X01400 in SCDSP, and X01280 in SCRES.
; 0122 ! X01750 Changed back to all library required files.
; 0123 ! X01760 X01410 in SCDSP.
; 0124 ! X01770 X01130 in SC1.
; 0125 ! X01780 X01420 in SCDSP, X01220 in SCSUB, and X01140 in SC1.
; 0126 ! X01790 X01430 in SCDSP and X01230 in SCSUB.
; 0127 ! X01800 X01440 in SCDSP.
; 0128 ! X01810 X01450 in SCDSP, X01290 in SCRES, X01230 in SCSUB,
; 0129 ! and X01150 in SC1.
; 0130 ! X01820 X01160 in SC1.
; 0131 ! X01830 X01460 in SCDSP.
; 0132 ! X01840 X01300 in SCRES.
; 0133 ! X01850 X01470 in SCDSP, and X01170 in SC1.
; 0134 ! x01860 x01480 in SCDSP, and x01310 in SCRES.
; 0135 ! x01870 x01180 in SC1.
; 0136 ! x01880 x01320 in SCRES, x01200 in SC1, and SCPRM v21.
; 0137 ! X01890 X01330 IN SCRES and x01490 in SCDSP
; 0138 ! x01900 x01250 in SCSUB.
; 0139 ! x01910 x01500 in SCDSP.
; 0140 !
; 0141 !
; 0142 !--
SC 27-Nov-1984 13:22:51 TOPS-20 Bliss-16 2A(530) Page 4
X01910 27-Nov-1984 13:20:12 RATS:<BANKS.MCB.SC>SC.BLI.2 (2)
; 0143 !
; 0144 ! REQUIRED FILES
; 0145 !
; 0146 library 'SCPRM'; ! Our parameter and macro definitions
; 0147 library 'MCB:MCBLIB';
; 0148 library 'MCB:XPORTX';
; 0149
; 0150 %if %bliss (bliss36) %then require 'BED:NETPAR'; %fi
; 0151
; 0152 !
; 0153 ! TABLE OF CONTENTS:
; 0154 !
; 0155
; 0156 !
; 0157 ! MACROS:
; 0158 !
; L 0159 %if %bliss (bliss36)
; U 0160 %then
; U 0161 macro
; U 0162 LLT_PRESET (LENGTH) [] =
; U 0163 [%count, L_LLA] = %count,
; U 0164 [%count, L_I_TAIL] = LLT [%count, L_I_HEAD],
; U 0165 [%count, L_O_TAIL] = LLT [%count, L_O_HEAD],
; U 0166 [%count, L_N_TAIL] = LLT [%count, L_N_HEAD]
; U 0167 %if %count lss LENGTH-1
; U 0168 %then ,LLT_PRESET (LENGTH)
; U 0169 %fi %,
; U 0170
; U 0171 NMT_PRESET (LENGTH) [] =
; U 0172 [%count, NMT_ADDR] = %count + 1
; U 0173 %if %count lss LENGTH-1
; U 0174 %then ,NMT_PRESET (LENGTH)
; U 0175 %fi %;
; 0176 %fi
; 0177
; 0178 !
; 0179 ! EQUATED SYMBOLS:
; 0180 !
; 0181 global literal
; 0182 %name ('SC.SZ') = SC_SIZE ^1,
; 0183 %name ('LLT.SZ') = L_SIZE ^1,
; 0184 %name ('NMT.SZ') = NMT_SIZE ^1,
; 0185 %name ('OTN.SZ') = OTN_SIZE ^1,
; 0186 %name ('ONP.SZ') = ONP_SIZE ^1;
; 0187
; 0188 !
; 0189 ! OWN STORAGE:
; 0190 !
; L 0191 %if %bliss (bliss36)
; U 0192 %then
; U 0193 own
; U 0194 OTN: blockvector [1, OTN_SIZE] field (OTN_FIELDS)
SC 27-Nov-1984 13:22:51 TOPS-20 Bliss-16 2A(530) Page 5
X01910 27-Nov-1984 13:20:12 RATS:<BANKS.MCB.SC>SC.BLI.2 (2)
; U 0195 preset (
; U 0196 [0, OTN_TYPE] = 7,
; U 0197 [0, OTN_NLEN] = 6),
; U 0198
; U 0199 ONP: blockvector [1, ONP_SIZE] field (ONP_FIELDS)
; U 0200 preset (
; U 0201 [0, ONP_NLEN] = 6,
; U 0202 [0, ONP_PROC] = %rad50_10 'USR'),
; U 0203
; U 0204 LLT: blockvector [NS_TPT, L_SIZE] field (LLT_FIELDS)
; U 0205 preset (LLT_PRESET (NS_TPT)),
; U 0206
; U 0207 RMT: vector [(NS_TPT + 3) / 4],
; U 0208
; U 0209 NMT: blockvector [(XP_NN + XP_NLN), NMT_SIZE] field (NMT_FIELDS)
; U 0210 preset (NMT_PRESET (XP_NN + XP_NLN));
; U 0211
; U 0212 global
; U 0213 SC$DB: block [SC_SIZE] field (SC_FIELDS)
; U 0214 preset (
; U 0215 [SCF_STAT] = 1,
; U 0216 [SC_RPORT] = SC_OPN,
; U 0217 [SC_LINKS] = NS_TPT,
; U 0218 [SC_NODES] = XP_NN,
; U 0219 [SC_LOOPS] = XP_NLN,
; U 0220 [SC_ITIME] = SC_ITM,
; U 0221 [SC_OTIME] = SC_OTM,
; U 0222 [SC_OTN_LEN] = 1,
; U 0223 [SC_ONP_LEN] = 1,
; U 0224 [SC_OTN_ADDR] = OTN,
; U 0225 [SC_ONP_ADDR] = ONP,
; U 0226 [SC_LLT_ADDR] = LLT,
; U 0227 [SC_NMT_ADDR] = NMT);
; 0228 %fi
; 0229
; 0230 !
; 0231 ! EXTERNAL REFERENCES:
; 0232 !
; 0233 external
; 0234 $SCLL; ! Session Control dispatch table
; 0235
; P 0236 $MCB_PROCESS (
; P 0237 NAME = SC,
; 0238 LLC_DISPATCH = $SCLL) ! Make the process header
; 0239
; 0240 end
; 0241 eludom
.TITLE SC
.IDENT /X01910/
SC 27-Nov-1984 13:22:51 TOPS-20 Bliss-16 2A(530) Page 6
X01910 27-Nov-1984 13:20:12 RATS:<BANKS.MCB.SC>SC.BLI.2 (2)
000000 .PSECT ......, D
000000 073470 HEADER: .RAD50 /SC /
000002 000403 .WORD 403
000004 000000 .WORD 0
000006 000000 .WORD 0
000010 000000 .WORD 0
000012 000000G .WORD $SCLL
000014 000000G .WORD .DSPCR
000016 000000G .WORD .DSPCR
000020 000000G .WORD MCB$V0
000022 000000G .WORD MCB$V1
000024 140310 .WORD 140310
000026 143716 .WORD 143716
000030 001400 .WORD 1400
000032 000000 .WORD 0
000034 000000 .WORD 0
000036 000000 .WORD 0
.GLOBL $SCLL, .DSPCR, MCB$V0, MCB$V1
000054 SC.SZ== 54
000032 LLT.SZ== 32
000014 NMT.SZ== 14
000010 OTN.SZ== 10
000012 ONP.SZ== 12
; PSECT SUMMARY
;
; Psect Name Words Attributes
; ...... 16 RW , D , LCL, REL, CON
; LIBRARY STATISTICS
;
; -------- Symbols -------- Blocks
; File Total Loaded Percent Read
;
; RATS:<BANKS.MCB.SC>SCPRM.L16.6 262 5 1 0
; RATS:<BANKS.MCB.MCB>MCBLIB.L16.6 372 3 0 0
; RATS:<BANKS.MCB.MCB>XPORTX.L16.10 599 0 0 0
SC 27-Nov-1984 13:22:51 TOPS-20 Bliss-16 2A(530) Page 7
X01910
; Size: 0 code + 16 data words
; Run Time: 00:02.1
; Elapsed Time: 00:13.0
; Memory Used: 14 pages
; Compilation Complete
BLISS36 150 159 191
LLC_DISPATCH 238#
LLT 164# 165# 166 204 226#
LLT_FIELDS 204
LLT_PRESET 162# 168 205
L_I_HEAD 164
L_I_TAIL 164
L_LLA 163
L_N_HEAD 166
L_N_TAIL 166
L_O_HEAD 165
L_O_TAIL 165
L_SIZE 183# 204
NAME 237#
NMT 209 227
NMT_ADDR 172
NMT_FIELDS 209
NMT_PRESET 171# 174# 210
NMT_SIZE 184# 209
NS_TPT 204 205 207 217#
ONP 199# 225#
ONP_FIELDS 199
ONP_NLEN 201
ONP_PROC 202
ONP_SIZE 186 199
OTN 194# 224#
OTN_FIELDS 194
OTN_NLEN 197
OTN_SIZE 185# 194
OTN_TYPE 196
RMT 207
SC 1# 237
SC$DB 213#
SCF_STAT 215
SC_FIELDS 213
SC_ITIME 220
SC_ITM 220#
SC_LINKS 217
SC_LLT_ADDR 226
SC_LOOPS 219
SC_NMT_ADDR 227
SC_NODES 218
SC_ONP_ADDR 225
SC_ONP_LEN 223
SC_OPN 216#
SC_OTIME 221
SC_OTM 221#
SC_OTN_ADDR 224
SC_OTN_LEN 222
SC_RPORT 216
SC_SIZE 182# 213
XP_NLN 209 210 219#
XP_NN 209 210 218#
$MCB_PROCESS 236
$SCLL 234 238