Trailing-Edge
-
PDP-10 Archives
-
BB-P363B-SM_1985
-
mcb/mcb/scsys.lst
There are no other files named scsys.lst in the archive.
24-Jan-1983 10:39:05 TOPS-20 Bliss-16 2A(530) Page 1
30-Dec-1982 17:27:41 NETPKG:<MCB>SCSYS.REQ.7 (1)
; 0001 ! COPYRIGHT (c) 1980, 1981, 1982
; 0002 ! DIGITAL EQUIPMENT CORPORATION
; 0003 ! Maynard, Massachusetts
; 0004 !
; 0005 ! This software is furnished under a license and may be used
; 0006 ! and copied only in accordance with the terms of such license
; 0007 ! and with the inclusion of the above copyright notice. This
; 0008 ! software or any other copies thereof may not be provided or
; 0009 ! otherwise made available to any other person. No title to
; 0010 ! and ownership of the software is hereby transferred.
; 0011 !
; 0012 ! The information in this software is subject to change
; 0013 ! without notice and should not be construed as a commitment
; 0014 ! by DIGITAL EQUIPMENT CORPORATION.
; 0015 !
; 0016 ! DIGITAL assumes no responsibility for the use or reliability
; 0017 ! of its software on equipment which is not supplied by
; 0018 ! DIGITAL.
; 0019
; 0020 !+
; 0021 ! *** Start of SCSYS ***
; 0022 ! System Interface Parameters
; 0023 !-
; 0024
; 0025 %if not %declared (XPO$K_VERSION) %then library 'MCB:XPORTX' %fi;
; 0026 $show (all);
; 0027
; 0028 !+
; 0029 ! Function modifier codes for the System User Interface
; 0030 !-
; 0031 literal
; 0032 S$CON = 0, ! Connect
; 0033 S$ACC = 2, ! Accept
; 0034 S$REJ = 4, ! Reject
; 0035 S$SND = 6, ! Send data segment
; 0036 S$MRQ = 8, ! Data message request
; 0037 S$DRQ = 10, ! Data segment request
; 0038 S$SNI = 12, ! Send interrupt
; 0039 S$IRQ = 14, ! Interrupt request
; 0040 S$DIS = 16, ! Disconnect
; 0041 S$ABO = 18, ! Abort
; 0042 S$GLN = 20, ! Get local node info
; 0043 S$CNR = 0, ! Connect received
; 0044 S$DAT = 2, ! Return data segment
; 0045 S$INT = 4, ! Return interrupt data segment
; 0046 S$DSR = 6, ! Disconnect received
; 0047
; 0048 S$XHI = S$GLN, ! Highest XME modifier
; 0049 S$RHI = S$DSR; ! Highest RCE modifier
; 0050
; 0051 !+
; 0052 ! Miscellaneous Flags/Values
24-Jan-1983 10:39:05 TOPS-20 Bliss-16 2A(530) Page 2
30-Dec-1982 17:27:41 NETPKG:<MCB>SCSYS.REQ.7 (1)
; 0053 !-
; 0054 literal
; 0055 S$PSEG = 1, ! Segment flow control
; 0056 S$PMSG = 2, ! Message flow control
; 0057
; 0058 S$PBOM = 1, ! Beginning of message
; 0059 S$PMOM = 2, ! Middle of message
; 0060 S$PEOM = 4; ! End of message
24-Jan-1983 10:39:05 TOPS-20 Bliss-16 2A(530) Page 3
30-Dec-1982 17:27:41 NETPKG:<MCB>SCSYS.REQ.7 (2)
; 0061 !+
; 0062 ! Status codes
; 0063 !-
; 0064 literal
; 0065 S_EHI = 1, ! Highest code
; 0066 S_SSUC = 1, ! Operation successful
; 0067
; 0068 ! The following codes may appear in reject and disconnect data,
; 0069 ! but in their positive form. For the first two values, since
; 0070 ! there is no negative zero, a synonym value of 20 is used.
; 0071 ! The zero values are seen by SC only.
; 0072 ! S_ERBO = 0, ! Rejected by object
; 0073 ! S_EDBO = 0, ! Disconnect by object
; 0074 S_ERES = -1, ! Insufficient network resources
; 0075 S_EUNN = -2, ! Unrecognized node name
; 0076 S_ERNS = -3, ! Remote node shut down
; 0077 S_EURO = -4, ! Unrecognized object
; 0078 S_EIOF = -5, ! Invalid object name format
; 0079 S_EOTB = -6, ! Object too busy
; 0080 S_EABS = -7, ! Abort by remote Session Control
; 0081 S_EABM = -8, ! Abort by management
; 0082 S_EABO = -9, ! Abort by object
; 0083 S_EINF = -10, ! Invalid node name format
; 0084 S_ELNS = -11, ! Local node shut down
; 0085 S_ECBE = -12, ! Connect block format error
; 0086 S_EERR = -13, ! General, unspecified error
; 0087 S_EIDM = -14, ! Invalid data mode
; 0088 S_ELST = -15, ! Data lost buffer too small
; 0089 S_ELWS = -16, ! Link in wrong state
; 0090 S_EMTL = -17, ! Message too long
; 0091 S_ENSL = -18, ! No such link
; 0092 S_EABL = -19, ! Abort by local SC
; 0093 S_ERBO = -20, ! Rejected by object
; 0094 S_EDBO = -20, ! Disconnect by object
; 0095 S_ETMI = -21, ! Too many interrupt messages requested
; 0096 S_EACR = -34, ! Access control rejection
; 0097 S_ENRO = -38, ! No response from object
; 0098 S_ENOF = -38, ! Node or object failed
; 0099 S_ENUR = -39, ! Node unreachable
; 0100 S_ELO = -39; ! Lowest code
24-Jan-1983 10:39:05 TOPS-20 Bliss-16 2A(530) Page 4
30-Dec-1982 17:27:41 NETPKG:<MCB>SCSYS.REQ.7 (3)
; 0101 !+
; 0102 ! System Interface Macros
; 0103 !-
; 0104 macro ! First, a support macro or two
; 0105 $SC$LO_BYTE = 0,0,bits_byte,0 %,
; 0106
; 0107 $SC$HI_BYTE = 0,bits_byte,bits_byte,0 %,
; 0108
; M 0109 $SC$QUE (fnc, mdf) =
; M 0110 %if not %null (fnc) %then $SC$CCB [C_FNC] = fnc; %fi
; M 0111 %if not %null (mdf) %then $SC$CCB [C_MOD] = mdf; %fi
; 0112 LLCRS$ ($SC$CCB) %,
; 0113
; M 0114 $SC$CND (val, loc) =
; 0115 %if not %null (val) %then loc = val; %fi %,
; 0116
; M 0117 $SC$BUF (bias, addr, count) =
; M 0118 $SC$CND (bias, $SC$CCB [C_BIAS])
; M 0119 $SC$CND (addr, $SC$CCB [C_ADDR])
; 0120 $SC$CND (count, $SC$CCB [C_CNT]) %,
; 0121
; 0122 !+
; 0123 ! Structure Access Macros
; 0124 !-
; M 0125 $SC_GET_LLA (ccb, lla) =
; M 0126 begin
; M 0127 bind $SC$CCB = ccb: block field (C_FIELDS);
; M 0128 lla = .$SC$CCB [C_LIX]
; 0129 end %,
; 0130
; M 0131 $SC_GET_ULA (ccb, ula) =
; M 0132 begin
; M 0133 bind $SC$CCB = ccb: block field (C_FIELDS);
; M 0134 ula = .$SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)]
; 0135 end %,
; 0136
; 0137
; 0138 !+
; 0139 ! Interface Macros
; 0140 !-
; M 0141 $SC_ABORT (ccb, pix, ula, buf) =
; M 0142 begin
; M 0143 bind $SC$CCB = ccb: block field (C_FIELDS);
; M 0144 $SC$CND (pix, $SC$CCB [C_PIX])
; M 0145 $SC$CND (ula, $SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)])
; M 0146 $SC$BUF (%remove (buf))
; M 0147 $SC$QUE (FC_XME, S$ABO)
; 0148 end %,
; 0149
; M 0150 $SC_ACCEPT (ccb, pix, lla, ula, flg, buf) =
; M 0151 begin
; M 0152 bind $SC$CCB = ccb: block field (C_FIELDS);
24-Jan-1983 10:39:05 TOPS-20 Bliss-16 2A(530) Page 5
30-Dec-1982 17:27:41 NETPKG:<MCB>SCSYS.REQ.7 (3)
; M 0153 $SC$CND (pix, $SC$CCB [C_PIX])
; M 0154 $SC$CND (lla, $SC$CCB [C_LIX])
; M 0155 $SC$CND (ula, $SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)])
; M 0156 $SC$CND (flg, $SC$CCB [$sub_field (C_PRM1, $SC$HI_BYTE)])
; M 0157 $SC$BUF (%remove (buf))
; M 0158 $SC$QUE (FC_XME, S$ACC)
; 0159 end %,
; 0160
; M 0161 $SC_CONNECT (ccb, pix, ula, flg, buf) =
; M 0162 begin
; M 0163 bind $SC$CCB = ccb: block field (C_FIELDS);
; M 0164 $SC$CND (pix, $SC$CCB [C_PIX])
; M 0165 $SC$CND (ula, $SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)])
; M 0166 $SC$CND (flg, $SC$CCB [$sub_field (C_PRM1, $SC$HI_BYTE)])
; M 0167 $SC$BUF (%remove (buf))
; M 0168 $SC$QUE (FC_XME, S$CON)
; 0169 end %,
; 0170
; M 0171 $SC_CONNECT_RECEIVED (ccb, ula, sts) =
; M 0172 begin
; M 0173 bind $SC$CCB = ccb: block field (C_FIELDS);
; M 0174 $SC$CND (ula, $SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)])
; M 0175 $SC$CND (sts, $SC$CCB [C_STS])
; M 0176 $SC$QUE (FC_RCE)
; 0177 end %,
; 0178
; M 0179 $SC_DATA_SEGMENT_RETURN (ccb) =
; M 0180 begin
; M 0181 bind $SC$CCB = ccb: block field (C_FIELDS);
; M 0182 $SC$QUE (FC_RCE)
; 0183 end %,
; 0184
; M 0185 $SC_DATA_MESSAGE_REQUEST (ccb, pix, lla, ula, buf) =
; M 0186 begin
; M 0187 bind $SC$CCB = ccb: block field (C_FIELDS);
; M 0188 $SC$CND (pix, $SC$CCB [C_PIX])
; M 0189 $SC$CND (lla, $SC$CCB [C_LIX])
; M 0190 $SC$CND (ula, $SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)])
; M 0191 $SC$BUF (%remove (buf))
; M 0192 $SC$QUE (FC_XME, S$MRQ)
; 0193 end %,
; 0194
; M 0195 $SC_DATA_SEGMENT_REQUEST (ccb, pix, lla, ula, num) =
; M 0196 begin
; M 0197 bind $SC$CCB = ccb: block field (C_FIELDS);
; M 0198 $SC$CND (pix, $SC$CCB [C_PIX])
; M 0199 $SC$CND (lla, $SC$CCB [C_LIX])
; M 0200 $SC$CND (ula, $SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)])
; M 0201 $SC$CND (num, $SC$CCB [$sub_field (C_PRM1, $SC$HI_BYTE)])
; M 0202 $SC$QUE (FC_XME, S$DRQ)
; 0203 end %,
; 0204
24-Jan-1983 10:39:05 TOPS-20 Bliss-16 2A(530) Page 6
30-Dec-1982 17:27:41 NETPKG:<MCB>SCSYS.REQ.7 (3)
; M 0205 $SC_DATA_SEGMENT_TRANSMIT (ccb, pix, lla, ula, flg, buf) =
; M 0206 begin
; M 0207 bind $SC$CCB = ccb: block field (C_FIELDS);
; M 0208 $SC$CND (pix, $SC$CCB [C_PIX])
; M 0209 $SC$CND (lla, $SC$CCB [C_LIX])
; M 0210 $SC$CND (ula, $SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)])
; M 0211 $SC$CND (flg, $SC$CCB [$sub_field (C_PRM1, $SC$HI_BYTE)])
; M 0212 $SC$BUF (%remove (buf))
; M 0213 $SC$QUE (FC_XME, S$SND)
; 0214 end %,
; 0215
; M 0216 $SC_DISCONNECT (ccb, pix, lla, ula, buf) =
; M 0217 begin
; M 0218 bind $SC$CCB = ccb: block field (C_FIELDS);
; M 0219 $SC$CND (pix, $SC$CCB [C_PIX])
; M 0220 $SC$CND (lla, $SC$CCB [C_LIX])
; M 0221 $SC$CND (ula, $SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)])
; M 0222 $SC$BUF (%remove (buf))
; M 0223 $SC$QUE (FC_XME, S$DIS)
; 0224 end %,
; 0225
; M 0226 $SC_DISCONNECTED (ccb) =
; M 0227 begin
; M 0228 bind $SC$CCB = ccb: block field (C_FIELDS);
; M 0229 $SC$QUE (FC_RCE)
; 0230 end %,
; 0231
; M 0232 $SC_INTERRUPT_REQUEST (ccb, pix, lla, ula, num) =
; M 0233 begin
; M 0234 bind $SC$CCB = ccb: block field (C_FIELDS);
; M 0235 $SC$CND (pix, $SC$CCB [C_PIX])
; M 0236 $SC$CND (lla, $SC$CCB [C_LIX])
; M 0237 $SC$CND (ula, $SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)])
; M 0238 $SC$CND (num, $SC$CCB [$sub_field (C_PRM1, $SC$HI_BYTE)])
; M 0239 $SC$QUE (FC_XME, S$IRQ)
; 0240 end %,
; 0241
; M 0242 $SC_INTERRUPT_RETURN (ccb) =
; M 0243 begin
; M 0244 bind $SC$CCB = ccb: block field (C_FIELDS);
; M 0245 $SC$QUE (FC_RCE)
; 0246 end %,
; 0247
; M 0248 $SC_INTERRUPT_TRANSMIT (ccb, pix, lla, ula, buf) =
; M 0249 begin
; M 0250 bind $SC$CCB = ccb: block field (C_FIELDS);
; M 0251 $SC$CND (pix, $SC$CCB [C_PIX])
; M 0252 $SC$CND (lla, $SC$CCB [C_LIX])
; M 0253 $SC$CND (ula, $SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)])
; M 0254 $SC$BUF (%remove (buf))
; M 0255 $SC$QUE (FC_XME, S$SNI)
; 0256 end %,
24-Jan-1983 10:39:05 TOPS-20 Bliss-16 2A(530) Page 7
30-Dec-1982 17:27:41 NETPKG:<MCB>SCSYS.REQ.7 (3)
; 0257
; M 0258 $SC_LOCAL_NODE_INFO (ccb, pix, flg, buf) =
; M 0259 begin
; M 0260 bind $SC$CCB = ccb: block field (C_FIELDS);
; M 0261 $SC$CND (pix, $SC$CCB [C_PIX])
; M 0262 $SC$CND (flg, $SC$CCB [C_PRM1])
; M 0263 $SC$BUF (%remove (buf))
; M 0264 $SC$QUE (FC_XME, S$GLN)
; 0265 end %,
; 0266
; M 0267 $SC_REJECT (ccb, pix, lla, rej, buf) =
; M 0268 begin
; M 0269 bind $SC$CCB = ccb: block field (C_FIELDS);
; M 0270 $SC$CND (pix, $SC$CCB [C_PIX])
; M 0271 $SC$CND (lla, $SC$CCB [C_LIX])
; M 0272 $SC$CND (rej, $SC$CCB [C_PRM2])
; M 0273 $SC$BUF (%remove (buf))
; M 0274 $SC$QUE (FC_XME, S$REJ)
; 0275 end %;
24-Jan-1983 10:39:05 TOPS-20 Bliss-16 2A(530) Page 8
30-Dec-1982 17:27:41 NETPKG:<MCB>SCSYS.REQ.7 (4)
; 0276 !+
; 0277 ! Field mapping for the Connect Block
; 0278 !-
; 0279 $field CB_FIELDS =
; 0280 set
; L 0281 CB_NODE = [$byte_string (6)], ! Destination node name
; %PRINT: [0,0,0,0] (+%O'0')
; 0282
; L 0283 CB_DFMT = [$byte], ! Destination object format
; %PRINT: [3,0,8,0] (+%O'6')
; L 0284 CB_DOBJ = [$byte], ! " " type
; %PRINT: [3,8,8,0] (+%O'7')
; L 0285 CB_DST = [$byte_string (18)], ! " " descriptor
; %PRINT: [4,0,0,0] (+%O'10')
; 0286
; L 0287 CB_SFMT = [$byte], ! Source object format
; %PRINT: [13,0,8,0] (+%O'32')
; L 0288 CB_SOBJ = [$byte], ! " " type
; %PRINT: [13,8,8,0] (+%O'33')
; L 0289 CB_SRC = [$byte_string (18)], ! " " descriptor
; %PRINT: [14,0,0,0] (+%O'34')
; 0290
; L 0291 CB_RQDL = [$short_integer], ! Requester ID length
; %PRINT: [23,0,16,1] (+%O'56')
; L 0292 CB_RQID = [$byte_string (16)], ! " "
; %PRINT: [24,0,0,0] (+%O'60')
; 0293
; L 0294 CB_PASL = [$short_integer], ! Password length
; %PRINT: [32,0,16,1] (+%O'100')
; L 0295 CB_PASW = [$byte_string (8)], ! "
; %PRINT: [33,0,0,0] (+%O'102')
; 0296
; L 0297 CB_ACTL = [$short_integer], ! Accounting data length
; %PRINT: [37,0,16,1] (+%O'112')
; L 0298 CB_ACNT = [$byte_string (16)], ! " "
; %PRINT: [38,0,0,0] (+%O'114')
; 0299
; L 0300 CB_OPDL = [$short_integer], ! Optional data length
; %PRINT: [46,0,16,1] (+%O'134')
; L 0301 CB_OPTD = [$byte_string (16)], ! " "
; %PRINT: [47,0,0,0] (+%O'136')
; L 0302 CB_ENDD = [$sub_block (0)], ! End marker
; %PRINT: [55,0,0,0] (+%O'156')
; 0303
; 0304 $overlay (CB_DST) ! Format 1
; L 0305 CB_DPL1 = [$short_integer], ! Destination process name length
; %PRINT: [4,0,16,1] (+%O'10')
; L 0306 CB_DPR1 = [$byte_string (16)], ! " " "
; %PRINT: [5,0,0,0] (+%O'12')
; 0307 $continue
; 0308
; 0309 $overlay(CB_DST) ! Format 2
24-Jan-1983 10:39:05 TOPS-20 Bliss-16 2A(530) Page 9
30-Dec-1982 17:27:41 NETPKG:<MCB>SCSYS.REQ.7 (4)
; L 0310 CB_DGRP = [$short_integer], ! Destination group code
; %PRINT: [4,0,16,1] (+%O'10')
; L 0311 CB_DUSR = [$short_integer], ! " user "
; %PRINT: [5,0,16,1] (+%O'12')
; L 0312 CB_DPL2 = [$short_integer], ! " process name length
; %PRINT: [6,0,16,1] (+%O'14')
; L 0313 CB_DPR2 = [$byte_string (12)], ! " " "
; %PRINT: [7,0,0,0] (+%O'16')
; 0314 $continue
; 0315
; 0316 $overlay(CB_SRC) ! Format 1
; L 0317 CB_SPL1 = [$short_integer], ! Source process name length
; %PRINT: [14,0,16,1] (+%O'34')
; L 0318 CB_SPR1 = [$byte_string (16)], ! " " "
; %PRINT: [15,0,0,0] (+%O'36')
; 0319 $continue
; 0320
; 0321 $overlay(CB_SRC) ! Format 2
; L 0322 CB_SGRP = [$short_integer], ! Source group code
; %PRINT: [14,0,16,1] (+%O'34')
; L 0323 CB_SUSR = [$short_integer], ! " user "
; %PRINT: [15,0,16,1] (+%O'36')
; L 0324 CB_SPL2 = [$short_integer], ! " process name length
; %PRINT: [16,0,16,1] (+%O'40')
; L 0325 CB_SPR2 = [$byte_string (12)] ! " " "
; %PRINT: [17,0,0,0] (+%O'42')
; 0326 $continue
; 0327 tes;
; 0328
; 0329 literal
; L 0330 CB_SIZE = $field_set_size;
; %PRINT: 55 fullwords
24-Jan-1983 10:39:05 TOPS-20 Bliss-16 2A(530) Page 10
30-Dec-1982 17:27:41 NETPKG:<MCB>SCSYS.REQ.7 (5)
; 0331 !+
; 0332 ! Field mapping for either source or destination sub_blocks
; 0333 !-
; 0334 $field CBSD_FIELDS =
; 0335 set
; L 0336 CB_FMT = [$byte], ! Format
; %PRINT: [0,0,8,0] (+%O'0')
; L 0337 CB_OBJ = [$byte], ! Object type
; %PRINT: [0,8,8,0] (+%O'1')
; L 0338 CB_DES = [$byte_string (18)], ! Descriptor
; %PRINT: [1,0,0,0] (+%O'2')
; 0339
; 0340 $overlay (CB_DES) ! Format #1
; L 0341 CB_LEN = [$short_integer],
; %PRINT: [1,0,16,1] (+%O'2')
; L 0342 CB_NAM = [$byte_string (16)],
; %PRINT: [2,0,0,0] (+%O'4')
; 0343 $continue
; 0344
; 0345 $overlay (CB_DES) ! Format #2
; L 0346 CB_GRP = [$short_integer],
; %PRINT: [1,0,16,1] (+%O'2')
; L 0347 CB_USR = [$short_integer],
; %PRINT: [2,0,16,1] (+%O'4')
; L 0348 CB_LN2 = [$short_integer],
; %PRINT: [3,0,16,1] (+%O'6')
; L 0349 CB_NM2 = [$byte_string (12)]
; %PRINT: [4,0,0,0] (+%O'10')
; 0350 $continue
; 0351 tes;
; 0352
; 0353
; 0354 !+
; 0355 ! *** End of SCSYS ***
; 0356 !-
; LIBRARY STATISTICS
;
; -------- Symbols -------- Blocks
; File Total Loaded Percent Read
;
; NETPKG:<MCB>XPORTX.L16.15 599 34 5 0
; Run Time: 00:07.1
; Elapsed Time: 00:09.0
24-Jan-1983 10:39:05 TOPS-20 Bliss-16 2A(530) Page 11
; Memory Used: 18 pages
; Library Precompilation Complete