Trailing-Edge
-
PDP-10 Archives
-
TOPS-20_V6.1_DECnetSrc_7-23-85
-
mcb/sc/scx.lst
There is 1 other file named scx.lst in the archive. Click here to see a list.
SCX 25-Jan-1983 10:24:13 TOPS-20 Bliss-16 2A(530) Page 1
30-Dec-1982 20:59:50 NETPKG:<SC>SCX.BLI.10 (1)
; 0001 module SCX ( ! SCX Base-Level Module
; 0002 ident = 'X01440'
; 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 the RSX Session Control interface.
; 0033 !
; 0034 ! ENVIRONMENT: MCB
; 0035 !
; 0036 ! AUTHOR: Buren Hoffman CREATION DATE: 2-Apr-80
; 0037 !
; 0038 ! MODIFIED BY:
; 0039 ! X01010 SCXRES, (X01030)
; 0040 ! X01020 SCXRES, (X01040)
; 0041 ! X01030 Updated signal_stop in all modules
; 0042 ! X01040 Upgraded to MCB 3.1 - put in new $MCB_PROCESS macro
; 0043 ! in place of PHDR$ macro.
; 0044 ! X01050 X01050 in SCXDSP and X01050 in SCXRES.
; 0045 ! X01060 X01060 in SCXDSP.
; 0046 ! X01070 Use new Comm/Exec to process linkage (.CRDAT for database)
; 0047 ! X01080 X01080 in SCXDSP, and X01070 in SCXRES
; 0048 ! X01090 X01090 in SCXDSP, X01080 in SCXRES, and X01050 in SCXSUB.
; 0049 ! X01100 Backed off from v2.1 compiler - it produces wrong code
; 0050 ! X01110 X01100 in SCXDSP.
; 0051 ! X01120 X01110 in SCXDSP.
; 0052 ! X01130 X01120 in SCXDSP, and X01090 in SCXRES.
SCX 25-Jan-1983 10:24:13 TOPS-20 Bliss-16 2A(530) Page 2
X01440 30-Dec-1982 20:59:50 NETPKG:<SC>SCX.BLI.10 (1)
; 0053 ! X01140 X01100 in SCXRES, and X01060 in SCXSUB.
; 0054 ! X01150 X01130 in SCXDSP, X01110 in SCXRES, and X01070 in SCXSUB.
; 0055 ! X01160 X01140 in SCXDSP.
; 0056 ! X01170 X01150 in SCXDSP.
; 0057 ! X01180 X01190 in SCXSUB.
; 0058 ! X01190 X01160 in SCXDSP, X01120 in SCXRES, and X01100 in SCXSUB.
; 0059 ! X01200 X01130 in SCXRES.
; 0060 ! X01210 X01140 in SCXRES.
; 0061 ! X01220 X01110 in SCXSUB.
; 0062 ! X01230 X01170 in SCXDSP.
; 0063 ! X01240 X01180 in SCXDSP.
; 0064 ! X01250 X01190 in SCXDSP.
; 0065 ! X01260 X01150 in SCXRES.
; 0066 ! X01270 X01200 in SCXDSP.
; 0067 ! X01280 X01210 in SCXDSP.
; 0068 ! X01290 X01220 in SCXDSP.
; 0069 ! X01300 Changed back to all library files.
; 0070 ! X01310 X01230 in SCXDSP and X01160 in SCXRES.
; 0071 ! X01320 X01240 in SCXDSP.
; 0072 ! X01330 Modified $MCB_PROCESS macro invocation in this module
; 0073 ! to specify keyword RSX_DISPATCH.
; 0074 ! X01340 X01250 in SCXDSP, X01170 in SCXRES, and X01120 in SCXSUB.
; 0075 ! X01350 X01260 in SCXDSP.
; 0076 ! X01360 X01270 in SCXDSP, and X01130 in SCXSUB.
; 0077 ! X01370 X01280 in SCXDSP, X01180 in SCXRES, and X01140 in SCXSUB.
; 0078 ! X01380 X01290 in SCXDSP.
; 0079 ! X01390 X01300 in SCXDSP.
; 0080 ! x01400 x01150 in scxsub by Ron Platukis 17-aug-81.
; 0081 ! x01410 x01310 in SCXDSP, and x01190 in SCXRES.
; 0082 ! X01420 X01320 in SCXDSP.
; 0083 ! X01430 X01330 in SCXDSP.
; 0084 ! X01440 X01330 in SCXDSP.
; 0085 !--
SCX 25-Jan-1983 10:24:13 TOPS-20 Bliss-16 2A(530) Page 3
X01440 30-Dec-1982 20:59:50 NETPKG:<SC>SCX.BLI.10 (2)
; 0086 !
; 0087 ! REQUIRED FILES
; 0088 !
; 0089 library 'SCPRM'; ! Our parameter and macro definitions
; 0090 library 'MCB:MCBLIB';
; 0091 library 'MCB:RSXLIB';
; 0092 library 'MCB:XPORTX';
; 0093
; 0094 %if %bliss (bliss36) %then require 'BED:NETPAR'; %fi
; 0095
; 0096 !
; 0097 ! TABLE OF CONTENTS:
; 0098 !
; L 0099 %if %bliss (bliss36)
; U 0100 %then
; U 0101 forward
; U 0102 SCX$DB: block [SCXDB_SIZE] field (SCXDB_FIELDS),
; U 0103 SCB: block [SCB_SIZE] field (SCB_FIELDS),
; U 0104 UCB: block [UCB_SIZE] field (UCB_FIELDS);
; 0105 %fi
; 0106
; 0107 !
; 0108 ! EXTERNAL REFERENCES:
; 0109 !
; 0110 external
; 0111 $NSTBL, ! NS device dispatch table
; 0112 $SCXLL; ! Session Control Translator dispatch table
; 0113
; 0114
; 0115 !
; 0116 ! MACROS:
; 0117 !
; 0118
; 0119 !
; 0120 ! EQUATED SYMBOLS:
; 0121 !
; 0122 global literal
; 0123 %name ('SCX.SZ') = SCXDB_SIZE ^1,
; 0124 %name ('OTN.SZ') = OTN_SIZE ^1;
; 0125
; 0126 !
; 0127 ! OWN STORAGE:
; 0128 !
; L 0129 %if %bliss (bliss36)
; U 0130 %then
; U 0131 own
; U 0132 OTN: blockvector [1, OTN_SIZE] field (OTN_FIELDS)
; U 0133 preset (
; U 0134 [0, OTN_TYPE] = 7,
; U 0135 [0, OTN_NLEN] = 6),
; U 0136
; U 0137 ULA: vector [NS_TPT] initial (rep NS_TPT of (0)),
SCX 25-Jan-1983 10:24:13 TOPS-20 Bliss-16 2A(530) Page 4
X01440 30-Dec-1982 20:59:50 NETPKG:<SC>SCX.BLI.10 (2)
; U 0138
; U 0139 DCB: block [DCB_SIZE] field (DCB_FIELDS)
; U 0140 preset (
; U 0141 [D_UCB] = UCB,
; U 0142 [D_NAM] = 'NS',
; U 0143 [D_DSP] = $NSTBL),
; U 0144
; U 0145 UCB: block [UCB_SIZE] field (UCB_FIELDS)
; U 0146 preset (
; U 0147 [U_DCB] = DCB,
; U 0148 [U_CTL] = 3, ! UC_KIL or UC_QUE
; U 0149 [U_STS] = 1, ! US_RED
; U 0150 [U_DB] = SCX$DB,
; U 0151 [U_SCB] = SCB),
; U 0152
; U 0153 SCB: block [SCB_SIZE] field (SCB_FIELDS)
; U 0154 preset ( [S_STS] = 0);
; U 0155
; U 0156 global bind
; U 0157 $NSDAT = DCB;
; U 0158
; U 0159 global
; U 0160 SCX$DB: block [SCXDB_SIZE] field (SCXDB_FIELDS)
; U 0161 preset (
; U 0162 [SCX_LINKS] = NS_TPT,
; U 0163 [SCX_MBTL] = SCX$DB [SCX_MBHD],
; U 0164 [SCX_OTN_LEN] = 1,
; U 0165 [SCX_OTN_ADDR] = OTN,
; U 0166 [SCX_ULA_ADDR] = ULA);
; 0167 %fi
; 0168
; 0169
; P 0170 $MCB_PROCESS (
; P 0171 NAME = SCX,
; P 0172 RSX_DISPATCH = $NSTBL,
; 0173 LLC_DISPATCH = $SCXLL); ! Form process header
; 0174
; 0175 end
; 0176 eludom
.TITLE SCX
.IDENT /X01440/
000000 .PSECT ......, D
000000 073520 HEADER: .RAD50 /SCX/
000002 000403 .WORD 403
000004 000000 .WORD 0
000006 000000 .WORD 0
000010 000000 .WORD 0
000012 000000G .WORD $SCXLL
SCX 25-Jan-1983 10:24:13 TOPS-20 Bliss-16 2A(530) Page 5
X01440 30-Dec-1982 20:59:50 NETPKG:<SC>SCX.BLI.10 (2)
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 000000G .WORD $NSTBL
000034 000000 .WORD 0
000036 000000 .WORD 0
.GLOBL $NSTBL, $SCXLL, .DSPCR, MCB$V0
.GLOBL MCB$V1
000030 SCX.SZ== 30
000010 OTN.SZ== 10
; PSECT SUMMARY
;
; Psect Name Words Attributes
; ...... 16 RW , D , LCL, REL, CON
; LIBRARY STATISTICS
;
; -------- Symbols -------- Blocks
; File Total Loaded Percent Read
;
; NETPKG:<SC>SCPRM.L16.4 262 2 0 0
; NETPKG:<MCB>MCBLIB.L16.15 372 3 0 0
; NETPKG:<MCB>RSXLIB.L16.13 317 0 0 0
; NETPKG:<MCB>XPORTX.L16.15 599 0 0 0
; Size: 0 code + 16 data words
; Run Time: 00:01.3
; Elapsed Time: 00:07.2
; Memory Used: 16 pages
; Compilation Complete
BLISS36 94 99 129
DCB 139# 147# 157
DCB_FIELDS 139
DCB_SIZE 139
D_DSP 143
D_NAM 142
D_UCB 141
LLC_DISPATCH 173#
NAME 171#
NS_TPT 137 162#
OTN 132# 165#
OTN_FIELDS 132
OTN_NLEN 135
OTN_SIZE 124 132
OTN_TYPE 134
RSX_DISPATCH 172#
SCB 103 151 153#
SCB_FIELDS 103 153
SCB_SIZE 103 153
SCX 1# 171
SCX$DB 102 150# 160# 163#
SCXDB_FIELDS 102 160
SCXDB_SIZE 102 123# 160
SCX_LINKS 162
SCX_MBHD 163
SCX_MBTL 163
SCX_OTN_ADDR 165
SCX_OTN_LEN 164
SCX_ULA_ADDR 166
S_STS 154
UCB 104 141# 145#
UCB_FIELDS 104 145
UCB_SIZE 104 145
ULA 137 166
U_CTL 148
U_DB 150
U_DCB 147
U_SCB 151
U_STS 149
$MCB_PROCESS 170
$NSDAT 157#
$NSTBL 111 143 172
$SCXLL 112# 173