Trailing-Edge
-
PDP-10 Archives
-
BB-P363B-SM_1985
-
mcb/cex/dtr.lst
There are no other files named dtr.lst in the archive.
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 1
30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (1)
; 0001 module DTR ( ! DECnet Test Receiver
; 0002 ident = 'X01110',
; 0003 language (bliss16) ,
; 0004 list (require)
; 0005 ) =
; 0006 begin
; 0007 !
; 0008 ! COPYRIGHT (c) 1980, 1981, 1982
; 0009 ! DIGITAL EQUIPMENT CORPORATION
; 0010 ! Maynard, Massachusetts
; 0011 !
; 0012 ! This software is furnished under a license and may be used
; 0013 ! and copied only in accordance with the terms of such license
; 0014 ! and with the inclusion of the above copyright notice. This
; 0015 ! software or any other copies thereof may not be provided or
; 0016 ! otherwise made available to any other person. No title to
; 0017 ! and ownership of the software is hereby transferred.
; 0018 !
; 0019 ! The information in this software is subject to change
; 0020 ! without notice and should not be construed as a commitment
; 0021 ! by DIGITAL EQUIPMENT CORPORATION.
; 0022 !
; 0023 ! DIGITAL assumes no responsibility for the use or reliability
; 0024 ! of its software on equipment which is not supplied by
; 0025 ! DIGITAL.
; 0026 !
; 0027
; 0028 !++
; 0029 !
; 0030 ! FACILITY: DECnet Test Receiver
; 0031 !
; 0032 ! ABSTRACT:
; 0033 !
; 0034 ! This is a hack attempt to implement DTR in the DN20.
; 0035 !
; 0036 ! ENVIRONMENT: MCB V3.0
; 0037 !
; 0038 ! AUTHOR: Alan D. Peckham CREATION DATE: 25-Nov-80
; 0039 !
; 0040 ! MODIFIED BY:
; 0041 !
; 0042 ! Alan Peckham, 27-Nov-80
; 0043 ! 01 - New process for DN20 testing.
; 0044 ! 02 - Various bug fixes.
; 0045 ! 03 - Add disconnect test.
; 0046 ! 04 - Update for MCB V3.1
; 0047 ! 05 - Add interrupt sink and received tests.
; 0048 ! 06 - Pass EOM from received segment to sent during data test.
; 0049 !
; 0050 ! Ron Platukis, 23-jan-81
; 0051 ! 07 - Add sequence and pattern tests for interrupt and normal data.
; 0052 ! 08 - On Reject set C_PRM2 eql S_ERBO.
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 2
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (1)
; 0053 ! 09 - Clear ls_active in RCV_ACC if accept failed.
; 0054 ! 10 - Source/Object skew. This is to make sure it is updated.
; 0055 ! 11 - Do not use SDBs.
; 0056 !--
; 0057
; 0058 !
; 0059 ! INCLUDE FILES:
; 0060 !
; 0061
; 0062 library 'MCB:MCBLIB';
; 0063
; 0064 library 'MCB:XPORTX';
; 0065
; 0066 require 'MCB:SCSYS';
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 3
X01110 30-Dec-1982 17:27:41 NETPKG:<MCB>SCSYS.REQ.7 (1)
; R0067 ! COPYRIGHT (c) 1980, 1981, 1982
; R0068 ! DIGITAL EQUIPMENT CORPORATION
; R0069 ! Maynard, Massachusetts
; R0070 !
; R0071 ! This software is furnished under a license and may be used
; R0072 ! and copied only in accordance with the terms of such license
; R0073 ! and with the inclusion of the above copyright notice. This
; R0074 ! software or any other copies thereof may not be provided or
; R0075 ! otherwise made available to any other person. No title to
; R0076 ! and ownership of the software is hereby transferred.
; R0077 !
; R0078 ! The information in this software is subject to change
; R0079 ! without notice and should not be construed as a commitment
; R0080 ! by DIGITAL EQUIPMENT CORPORATION.
; R0081 !
; R0082 ! DIGITAL assumes no responsibility for the use or reliability
; R0083 ! of its software on equipment which is not supplied by
; R0084 ! DIGITAL.
; R0085
; R0086 !+
; R0087 ! *** Start of SCSYS ***
; R0088 ! System Interface Parameters
; R0089 !-
; R0090
; R0091 %if not %declared (XPO$K_VERSION) %then library 'MCB:XPORTX' %fi;
; R0092 $show (all);
; R0093
; R0094 !+
; R0095 ! Function modifier codes for the System User Interface
; R0096 !-
; R0097 literal
; R0098 S$CON = 0, ! Connect
; R0099 S$ACC = 2, ! Accept
; R0100 S$REJ = 4, ! Reject
; R0101 S$SND = 6, ! Send data segment
; R0102 S$MRQ = 8, ! Data message request
; R0103 S$DRQ = 10, ! Data segment request
; R0104 S$SNI = 12, ! Send interrupt
; R0105 S$IRQ = 14, ! Interrupt request
; R0106 S$DIS = 16, ! Disconnect
; R0107 S$ABO = 18, ! Abort
; R0108 S$GLN = 20, ! Get local node info
; R0109 S$CNR = 0, ! Connect received
; R0110 S$DAT = 2, ! Return data segment
; R0111 S$INT = 4, ! Return interrupt data segment
; R0112 S$DSR = 6, ! Disconnect received
; R0113
; R0114 S$XHI = S$GLN, ! Highest XME modifier
; R0115 S$RHI = S$DSR; ! Highest RCE modifier
; R0116
; R0117 !+
; R0118 ! Miscellaneous Flags/Values
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 4
X01110 30-Dec-1982 17:27:41 NETPKG:<MCB>SCSYS.REQ.7 (1)
; R0119 !-
; R0120 literal
; R0121 S$PSEG = 1, ! Segment flow control
; R0122 S$PMSG = 2, ! Message flow control
; R0123
; R0124 S$PBOM = 1, ! Beginning of message
; R0125 S$PMOM = 2, ! Middle of message
; R0126 S$PEOM = 4; ! End of message
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 5
X01110 30-Dec-1982 17:27:41 NETPKG:<MCB>SCSYS.REQ.7 (2)
; R0127 !+
; R0128 ! Status codes
; R0129 !-
; R0130 literal
; R0131 S_EHI = 1, ! Highest code
; R0132 S_SSUC = 1, ! Operation successful
; R0133
; R0134 ! The following codes may appear in reject and disconnect data,
; R0135 ! but in their positive form. For the first two values, since
; R0136 ! there is no negative zero, a synonym value of 20 is used.
; R0137 ! The zero values are seen by SC only.
; R0138 ! S_ERBO = 0, ! Rejected by object
; R0139 ! S_EDBO = 0, ! Disconnect by object
; R0140 S_ERES = -1, ! Insufficient network resources
; R0141 S_EUNN = -2, ! Unrecognized node name
; R0142 S_ERNS = -3, ! Remote node shut down
; R0143 S_EURO = -4, ! Unrecognized object
; R0144 S_EIOF = -5, ! Invalid object name format
; R0145 S_EOTB = -6, ! Object too busy
; R0146 S_EABS = -7, ! Abort by remote Session Control
; R0147 S_EABM = -8, ! Abort by management
; R0148 S_EABO = -9, ! Abort by object
; R0149 S_EINF = -10, ! Invalid node name format
; R0150 S_ELNS = -11, ! Local node shut down
; R0151 S_ECBE = -12, ! Connect block format error
; R0152 S_EERR = -13, ! General, unspecified error
; R0153 S_EIDM = -14, ! Invalid data mode
; R0154 S_ELST = -15, ! Data lost buffer too small
; R0155 S_ELWS = -16, ! Link in wrong state
; R0156 S_EMTL = -17, ! Message too long
; R0157 S_ENSL = -18, ! No such link
; R0158 S_EABL = -19, ! Abort by local SC
; R0159 S_ERBO = -20, ! Rejected by object
; R0160 S_EDBO = -20, ! Disconnect by object
; R0161 S_ETMI = -21, ! Too many interrupt messages requested
; R0162 S_EACR = -34, ! Access control rejection
; R0163 S_ENRO = -38, ! No response from object
; R0164 S_ENOF = -38, ! Node or object failed
; R0165 S_ENUR = -39, ! Node unreachable
; R0166 S_ELO = -39; ! Lowest code
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 6
X01110 30-Dec-1982 17:27:41 NETPKG:<MCB>SCSYS.REQ.7 (3)
; R0167 !+
; R0168 ! System Interface Macros
; R0169 !-
; R0170 macro ! First, a support macro or two
; R0171 $SC$LO_BYTE = 0,0,bits_byte,0 %,
; R0172
; R0173 $SC$HI_BYTE = 0,bits_byte,bits_byte,0 %,
; R0174
; MR0175 $SC$QUE (fnc, mdf) =
; MR0176 %if not %null (fnc) %then $SC$CCB [C_FNC] = fnc; %fi
; MR0177 %if not %null (mdf) %then $SC$CCB [C_MOD] = mdf; %fi
; R0178 LLCRS$ ($SC$CCB) %,
; R0179
; MR0180 $SC$CND (val, loc) =
; R0181 %if not %null (val) %then loc = val; %fi %,
; R0182
; MR0183 $SC$BUF (bias, addr, count) =
; MR0184 $SC$CND (bias, $SC$CCB [C_BIAS])
; MR0185 $SC$CND (addr, $SC$CCB [C_ADDR])
; R0186 $SC$CND (count, $SC$CCB [C_CNT]) %,
; R0187
; R0188 !+
; R0189 ! Structure Access Macros
; R0190 !-
; MR0191 $SC_GET_LLA (ccb, lla) =
; MR0192 begin
; MR0193 bind $SC$CCB = ccb: block field (C_FIELDS);
; MR0194 lla = .$SC$CCB [C_LIX]
; R0195 end %,
; R0196
; MR0197 $SC_GET_ULA (ccb, ula) =
; MR0198 begin
; MR0199 bind $SC$CCB = ccb: block field (C_FIELDS);
; MR0200 ula = .$SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)]
; R0201 end %,
; R0202
; R0203
; R0204 !+
; R0205 ! Interface Macros
; R0206 !-
; MR0207 $SC_ABORT (ccb, pix, ula, buf) =
; MR0208 begin
; MR0209 bind $SC$CCB = ccb: block field (C_FIELDS);
; MR0210 $SC$CND (pix, $SC$CCB [C_PIX])
; MR0211 $SC$CND (ula, $SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)])
; MR0212 $SC$BUF (%remove (buf))
; MR0213 $SC$QUE (FC_XME, S$ABO)
; R0214 end %,
; R0215
; MR0216 $SC_ACCEPT (ccb, pix, lla, ula, flg, buf) =
; MR0217 begin
; MR0218 bind $SC$CCB = ccb: block field (C_FIELDS);
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 7
X01110 30-Dec-1982 17:27:41 NETPKG:<MCB>SCSYS.REQ.7 (3)
; MR0219 $SC$CND (pix, $SC$CCB [C_PIX])
; MR0220 $SC$CND (lla, $SC$CCB [C_LIX])
; MR0221 $SC$CND (ula, $SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)])
; MR0222 $SC$CND (flg, $SC$CCB [$sub_field (C_PRM1, $SC$HI_BYTE)])
; MR0223 $SC$BUF (%remove (buf))
; MR0224 $SC$QUE (FC_XME, S$ACC)
; R0225 end %,
; R0226
; MR0227 $SC_CONNECT (ccb, pix, ula, flg, buf) =
; MR0228 begin
; MR0229 bind $SC$CCB = ccb: block field (C_FIELDS);
; MR0230 $SC$CND (pix, $SC$CCB [C_PIX])
; MR0231 $SC$CND (ula, $SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)])
; MR0232 $SC$CND (flg, $SC$CCB [$sub_field (C_PRM1, $SC$HI_BYTE)])
; MR0233 $SC$BUF (%remove (buf))
; MR0234 $SC$QUE (FC_XME, S$CON)
; R0235 end %,
; R0236
; MR0237 $SC_CONNECT_RECEIVED (ccb, ula, sts) =
; MR0238 begin
; MR0239 bind $SC$CCB = ccb: block field (C_FIELDS);
; MR0240 $SC$CND (ula, $SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)])
; MR0241 $SC$CND (sts, $SC$CCB [C_STS])
; MR0242 $SC$QUE (FC_RCE)
; R0243 end %,
; R0244
; MR0245 $SC_DATA_SEGMENT_RETURN (ccb) =
; MR0246 begin
; MR0247 bind $SC$CCB = ccb: block field (C_FIELDS);
; MR0248 $SC$QUE (FC_RCE)
; R0249 end %,
; R0250
; MR0251 $SC_DATA_MESSAGE_REQUEST (ccb, pix, lla, ula, buf) =
; MR0252 begin
; MR0253 bind $SC$CCB = ccb: block field (C_FIELDS);
; MR0254 $SC$CND (pix, $SC$CCB [C_PIX])
; MR0255 $SC$CND (lla, $SC$CCB [C_LIX])
; MR0256 $SC$CND (ula, $SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)])
; MR0257 $SC$BUF (%remove (buf))
; MR0258 $SC$QUE (FC_XME, S$MRQ)
; R0259 end %,
; R0260
; MR0261 $SC_DATA_SEGMENT_REQUEST (ccb, pix, lla, ula, num) =
; MR0262 begin
; MR0263 bind $SC$CCB = ccb: block field (C_FIELDS);
; MR0264 $SC$CND (pix, $SC$CCB [C_PIX])
; MR0265 $SC$CND (lla, $SC$CCB [C_LIX])
; MR0266 $SC$CND (ula, $SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)])
; MR0267 $SC$CND (num, $SC$CCB [$sub_field (C_PRM1, $SC$HI_BYTE)])
; MR0268 $SC$QUE (FC_XME, S$DRQ)
; R0269 end %,
; R0270
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 8
X01110 30-Dec-1982 17:27:41 NETPKG:<MCB>SCSYS.REQ.7 (3)
; MR0271 $SC_DATA_SEGMENT_TRANSMIT (ccb, pix, lla, ula, flg, buf) =
; MR0272 begin
; MR0273 bind $SC$CCB = ccb: block field (C_FIELDS);
; MR0274 $SC$CND (pix, $SC$CCB [C_PIX])
; MR0275 $SC$CND (lla, $SC$CCB [C_LIX])
; MR0276 $SC$CND (ula, $SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)])
; MR0277 $SC$CND (flg, $SC$CCB [$sub_field (C_PRM1, $SC$HI_BYTE)])
; MR0278 $SC$BUF (%remove (buf))
; MR0279 $SC$QUE (FC_XME, S$SND)
; R0280 end %,
; R0281
; MR0282 $SC_DISCONNECT (ccb, pix, lla, ula, buf) =
; MR0283 begin
; MR0284 bind $SC$CCB = ccb: block field (C_FIELDS);
; MR0285 $SC$CND (pix, $SC$CCB [C_PIX])
; MR0286 $SC$CND (lla, $SC$CCB [C_LIX])
; MR0287 $SC$CND (ula, $SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)])
; MR0288 $SC$BUF (%remove (buf))
; MR0289 $SC$QUE (FC_XME, S$DIS)
; R0290 end %,
; R0291
; MR0292 $SC_DISCONNECTED (ccb) =
; MR0293 begin
; MR0294 bind $SC$CCB = ccb: block field (C_FIELDS);
; MR0295 $SC$QUE (FC_RCE)
; R0296 end %,
; R0297
; MR0298 $SC_INTERRUPT_REQUEST (ccb, pix, lla, ula, num) =
; MR0299 begin
; MR0300 bind $SC$CCB = ccb: block field (C_FIELDS);
; MR0301 $SC$CND (pix, $SC$CCB [C_PIX])
; MR0302 $SC$CND (lla, $SC$CCB [C_LIX])
; MR0303 $SC$CND (ula, $SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)])
; MR0304 $SC$CND (num, $SC$CCB [$sub_field (C_PRM1, $SC$HI_BYTE)])
; MR0305 $SC$QUE (FC_XME, S$IRQ)
; R0306 end %,
; R0307
; MR0308 $SC_INTERRUPT_RETURN (ccb) =
; MR0309 begin
; MR0310 bind $SC$CCB = ccb: block field (C_FIELDS);
; MR0311 $SC$QUE (FC_RCE)
; R0312 end %,
; R0313
; MR0314 $SC_INTERRUPT_TRANSMIT (ccb, pix, lla, ula, buf) =
; MR0315 begin
; MR0316 bind $SC$CCB = ccb: block field (C_FIELDS);
; MR0317 $SC$CND (pix, $SC$CCB [C_PIX])
; MR0318 $SC$CND (lla, $SC$CCB [C_LIX])
; MR0319 $SC$CND (ula, $SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)])
; MR0320 $SC$BUF (%remove (buf))
; MR0321 $SC$QUE (FC_XME, S$SNI)
; R0322 end %,
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 9
X01110 30-Dec-1982 17:27:41 NETPKG:<MCB>SCSYS.REQ.7 (3)
; R0323
; MR0324 $SC_LOCAL_NODE_INFO (ccb, pix, flg, buf) =
; MR0325 begin
; MR0326 bind $SC$CCB = ccb: block field (C_FIELDS);
; MR0327 $SC$CND (pix, $SC$CCB [C_PIX])
; MR0328 $SC$CND (flg, $SC$CCB [C_PRM1])
; MR0329 $SC$BUF (%remove (buf))
; MR0330 $SC$QUE (FC_XME, S$GLN)
; R0331 end %,
; R0332
; MR0333 $SC_REJECT (ccb, pix, lla, rej, buf) =
; MR0334 begin
; MR0335 bind $SC$CCB = ccb: block field (C_FIELDS);
; MR0336 $SC$CND (pix, $SC$CCB [C_PIX])
; MR0337 $SC$CND (lla, $SC$CCB [C_LIX])
; MR0338 $SC$CND (rej, $SC$CCB [C_PRM2])
; MR0339 $SC$BUF (%remove (buf))
; MR0340 $SC$QUE (FC_XME, S$REJ)
; R0341 end %;
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 10
X01110 30-Dec-1982 17:27:41 NETPKG:<MCB>SCSYS.REQ.7 (4)
; R0342 !+
; R0343 ! Field mapping for the Connect Block
; R0344 !-
; R0345 $field CB_FIELDS =
; R0346 set
; LR0347 CB_NODE = [$byte_string (6)], ! Destination node name
; %PRINT: [0,0,0,0] (+%O'0')
; R0348
; LR0349 CB_DFMT = [$byte], ! Destination object format
; %PRINT: [3,0,8,0] (+%O'6')
; LR0350 CB_DOBJ = [$byte], ! " " type
; %PRINT: [3,8,8,0] (+%O'7')
; LR0351 CB_DST = [$byte_string (18)], ! " " descriptor
; %PRINT: [4,0,0,0] (+%O'10')
; R0352
; LR0353 CB_SFMT = [$byte], ! Source object format
; %PRINT: [13,0,8,0] (+%O'32')
; LR0354 CB_SOBJ = [$byte], ! " " type
; %PRINT: [13,8,8,0] (+%O'33')
; LR0355 CB_SRC = [$byte_string (18)], ! " " descriptor
; %PRINT: [14,0,0,0] (+%O'34')
; R0356
; LR0357 CB_RQDL = [$short_integer], ! Requester ID length
; %PRINT: [23,0,16,1] (+%O'56')
; LR0358 CB_RQID = [$byte_string (16)], ! " "
; %PRINT: [24,0,0,0] (+%O'60')
; R0359
; LR0360 CB_PASL = [$short_integer], ! Password length
; %PRINT: [32,0,16,1] (+%O'100')
; LR0361 CB_PASW = [$byte_string (8)], ! "
; %PRINT: [33,0,0,0] (+%O'102')
; R0362
; LR0363 CB_ACTL = [$short_integer], ! Accounting data length
; %PRINT: [37,0,16,1] (+%O'112')
; LR0364 CB_ACNT = [$byte_string (16)], ! " "
; %PRINT: [38,0,0,0] (+%O'114')
; R0365
; LR0366 CB_OPDL = [$short_integer], ! Optional data length
; %PRINT: [46,0,16,1] (+%O'134')
; LR0367 CB_OPTD = [$byte_string (16)], ! " "
; %PRINT: [47,0,0,0] (+%O'136')
; LR0368 CB_ENDD = [$sub_block (0)], ! End marker
; %PRINT: [55,0,0,0] (+%O'156')
; R0369
; R0370 $overlay (CB_DST) ! Format 1
; LR0371 CB_DPL1 = [$short_integer], ! Destination process name length
; %PRINT: [4,0,16,1] (+%O'10')
; LR0372 CB_DPR1 = [$byte_string (16)], ! " " "
; %PRINT: [5,0,0,0] (+%O'12')
; R0373 $continue
; R0374
; R0375 $overlay(CB_DST) ! Format 2
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 11
X01110 30-Dec-1982 17:27:41 NETPKG:<MCB>SCSYS.REQ.7 (4)
; LR0376 CB_DGRP = [$short_integer], ! Destination group code
; %PRINT: [4,0,16,1] (+%O'10')
; LR0377 CB_DUSR = [$short_integer], ! " user "
; %PRINT: [5,0,16,1] (+%O'12')
; LR0378 CB_DPL2 = [$short_integer], ! " process name length
; %PRINT: [6,0,16,1] (+%O'14')
; LR0379 CB_DPR2 = [$byte_string (12)], ! " " "
; %PRINT: [7,0,0,0] (+%O'16')
; R0380 $continue
; R0381
; R0382 $overlay(CB_SRC) ! Format 1
; LR0383 CB_SPL1 = [$short_integer], ! Source process name length
; %PRINT: [14,0,16,1] (+%O'34')
; LR0384 CB_SPR1 = [$byte_string (16)], ! " " "
; %PRINT: [15,0,0,0] (+%O'36')
; R0385 $continue
; R0386
; R0387 $overlay(CB_SRC) ! Format 2
; LR0388 CB_SGRP = [$short_integer], ! Source group code
; %PRINT: [14,0,16,1] (+%O'34')
; LR0389 CB_SUSR = [$short_integer], ! " user "
; %PRINT: [15,0,16,1] (+%O'36')
; LR0390 CB_SPL2 = [$short_integer], ! " process name length
; %PRINT: [16,0,16,1] (+%O'40')
; LR0391 CB_SPR2 = [$byte_string (12)] ! " " "
; %PRINT: [17,0,0,0] (+%O'42')
; R0392 $continue
; R0393 tes;
; R0394
; R0395 literal
; LR0396 CB_SIZE = $field_set_size;
; %PRINT: 55 fullwords
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 12
X01110 30-Dec-1982 17:27:41 NETPKG:<MCB>SCSYS.REQ.7 (5)
; R0397 !+
; R0398 ! Field mapping for either source or destination sub_blocks
; R0399 !-
; R0400 $field CBSD_FIELDS =
; R0401 set
; LR0402 CB_FMT = [$byte], ! Format
; %PRINT: [0,0,8,0] (+%O'0')
; LR0403 CB_OBJ = [$byte], ! Object type
; %PRINT: [0,8,8,0] (+%O'1')
; LR0404 CB_DES = [$byte_string (18)], ! Descriptor
; %PRINT: [1,0,0,0] (+%O'2')
; R0405
; R0406 $overlay (CB_DES) ! Format #1
; LR0407 CB_LEN = [$short_integer],
; %PRINT: [1,0,16,1] (+%O'2')
; LR0408 CB_NAM = [$byte_string (16)],
; %PRINT: [2,0,0,0] (+%O'4')
; R0409 $continue
; R0410
; R0411 $overlay (CB_DES) ! Format #2
; LR0412 CB_GRP = [$short_integer],
; %PRINT: [1,0,16,1] (+%O'2')
; LR0413 CB_USR = [$short_integer],
; %PRINT: [2,0,16,1] (+%O'4')
; LR0414 CB_LN2 = [$short_integer],
; %PRINT: [3,0,16,1] (+%O'6')
; LR0415 CB_NM2 = [$byte_string (12)]
; %PRINT: [4,0,0,0] (+%O'10')
; R0416 $continue
; R0417 tes;
; R0418
; R0419
; R0420 !+
; R0421 ! *** End of SCSYS ***
; R0422 !-
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 13
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (1)
; 0423
; 0424 require 'DTRDAT';
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 14
X01110 30-Dec-1982 01:51:19 NETPKG:<CEX>DTRDAT.R16.8 (1)
; R0425 ! [Beginning of DTRDAT]
; R0426 !
; R0427 !
; R0428 ! COPYRIGHT (c) 1980, 1981, 1982
; R0429 ! DIGITAL EQUIPMENT CORPORATION
; R0430 ! Maynard, Massachusetts
; R0431 !
; R0432 ! This software is furnished under a license and may be used
; R0433 ! and copied only in accordance with the terms of such license
; R0434 ! and with the inclusion of the above copyright notice. This
; R0435 ! software or any other copies thereof may not be provided or
; R0436 ! otherwise made available to any other person. No title to
; R0437 ! and ownership of the software is hereby transferred.
; R0438 !
; R0439 ! The information in this software is subject to change
; R0440 ! without notice and should not be construed as a commitment
; R0441 ! by DIGITAL EQUIPMENT CORPORATION.
; R0442 !
; R0443 ! DIGITAL assumes no responsibility for the use or reliability
; R0444 ! of its software on equipment which is not supplied by
; R0445 ! DIGITAL.
; R0446 !
; R0447
; R0448 !++
; R0449 !
; R0450 ! FACILITY: DECnet Test Receiver
; R0451 !
; R0452 ! ABSTRACT:
; R0453 !
; R0454 ! This contains the data structure definitions for DTR.
; R0455 !
; R0456 ! ENVIRONMENT: MCB V3.0
; R0457 !
; R0458 ! AUTHOR: Alan D. Peckham CREATION DATE: 27-Nov-80
; R0459 !
; R0460 ! MODIFIED BY:
; R0461 !
; R0462 ! Alan Peckham, 27-Nov-80
; R0463 ! 01 - New process for DN20 testing.
; R0464 ! 02 - New status code.
; R0465 !--
; R0466
; R0467 $SHOW (FIELDS, LITERALS)
; R0468
; R0469 !
; R0470 ! Status Codes:
; R0471 !
; R0472
; R0473 DECLARE_SEVERITY (DTR, INFO, SEVERE, ERROR);
; R0474
; R0475 $DTR_ERROR (DTR$_DISPATCH, 'Unexpected dispatch')
; R0476 $DTR_SEVERE (DTR$_NO_SC, 'The SC process does not exist')
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 15
X01110 30-Dec-1982 01:51:19 NETPKG:<CEX>DTRDAT.R16.8 (1)
; R0477 $DTR_SEVERE (DTR$_NO_CCB, 'Could not get CCB')
; R0478 $DTR_INFO (DTR$_TEST_INVALID, 'Invalid test type received')
; R0479 $DTR_INFO (DTR$_TEST_UNSUPPORTED, 'Unsupported test type received')
; R0480 $DTR_INFO (DTR$_NO_ABORT, 'Abort rejected by Session Control')
; R0481 $DTR_INFO (DTR$_NO_ACCEPT, 'Accept rejected by Session Control')
; R0482 $DTR_INFO (DTR$_NO_DISCONNECT, 'Disconnect rejected by Session Control')
; R0483 $DTR_INFO (DTR$_NO_REJECT, 'Reject rejected by Session Control')
; R0484 $DTR_INFO (DTR$_NO_SEND_DATA, 'Data rejected by Session Control')
; R0485 $DTR_INFO (DTR$_NO_DATA_REQUEST, 'Data request rejected by Session Control')
; R0486 $DTR_INFO (DTR$_NO_DATA_PLEASE, 'Data received on non-data test')
; R0487 $DTR_INFO (DTR$_NO_INTERRUPT_PLEASE, 'Interrupt data received on non-interrupt test')
; R0488 $DTR_INFO (DTR$_NO_INTERRUPT_REQUEST, 'Interrupt data request rejected by Session Control')
; R0489 $DTR_INFO (DTR$_NO_SEND_INTERRUPT, 'Interrupt data rejected by Session Control')
; R0490 $DTR_INFO (DTR$_BAD_SEQUENCE_NUMBER, 'Bad sequence number received from DTS')
; R0491 $DTR_INFO (DTR$_BAD_PATTERN, 'Bad data pattern received from DTS')
; R0492
; R0493 !
; R0494 ! INI process data base
; R0495 !
; R0496
; R0497 $FIELD
; R0498 D_FIELDS =
; R0499 set
; LR0500 D_CLOCK = [$SHORT_INTEGER],
; %PRINT: [0,0,16,1] (+%O'0')
; LR0501 D_LINKS = [$SHORT_INTEGER],
; %PRINT: [1,0,16,1] (+%O'2')
; LR0502 D_ADDR = [$ADDRESS]
; %PRINT: [2,0,16,0] (+%O'4')
; R0503 tes;
; R0504
; R0505 literal
; LR0506 D_LENGTH = $FIELD_SET_SIZE;
; %PRINT: 3 fullwords
; R0507
; R0508 $FIELD
; R0509 L_FIELDS =
; R0510 set
; LR0511 L_ULA = [$TINY_INTEGER],
; %PRINT: [0,0,8,1] (+%O'0')
; LR0512 LS_DIP = [$BIT],
; %PRINT: [0,8,1,0] (+%O'1')
; LR0513 LS_XOFF = [$BIT],
; %PRINT: [0,9,1,0] (+%O'1')
; LR0514 LS_PROPT = [$BIT],
; %PRINT: [0,10,1,0] (+%O'1')
; LR0515 LS_ACTIVE = [$BIT],
; %PRINT: [0,11,1,0] (+%O'1')
; R0516 $ALIGN (FULLWORD)
; LR0517 L_LLA = [$BYTE],
; %PRINT: [1,0,8,0] (+%O'2')
; LR0518 L_TEST = [$TINY_INTEGER],
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 16
X01110 30-Dec-1982 01:51:19 NETPKG:<CEX>DTRDAT.R16.8 (1)
; %PRINT: [1,8,8,1] (+%O'3')
; LR0519 L_SUB_TEST = [$TINY_INTEGER],
; %PRINT: [2,0,8,1] (+%O'4')
; LR0520 L_FLOW_TYPE = [$TINY_INTEGER],
; %PRINT: [2,8,8,1] (+%O'5')
; LR0521 L_FLOW_COUNT = [$INTEGER],
; %PRINT: [3,0,16,1] (+%O'6')
; LR0522 L_NAK_COUNT = [$TINY_INTEGER],
; %PRINT: [4,0,8,1] (+%O'10')
; LR0523 L_BPC_COUNT = [$TINY_INTEGER],
; %PRINT: [4,8,8,1] (+%O'11')
; LR0524 L_MESSAGE_SIZE = [$INTEGER],
; %PRINT: [5,0,16,1] (+%O'12')
; LR0525 L_NAK_MESSAGES = [$INTEGER],
; %PRINT: [6,0,16,1] (+%O'14')
; LR0526 L_BPC_MESSAGES = [$INTEGER],
; %PRINT: [7,0,16,1] (+%O'16')
; LR0527 L_SEND_NUMBER = [$SUB_BLOCK (2)],
; %PRINT: [8,0,0,0] (+%O'20')
; LR0528 L_RECEIVE_NUMBER = [$SUB_BLOCK (2)],
; %PRINT: [10,0,0,0] (+%O'24')
; LR0529 L_RECEIVE_COUNT = [$SUB_BLOCK (2)],
; %PRINT: [12,0,0,0] (+%O'30')
; LR0530 L_PATTERN_CHARACTER = [$INTEGER],
; %PRINT: [14,0,16,1] (+%O'34')
; LR0531 L_PATTERN_ROUTINE = [$ADDRESS],
; %PRINT: [15,0,16,0] (+%O'36')
; R0532 $OVERLAY (L_MESSAGE_SIZE)
; LR0533 L_DISCONNECT_LENGTH = [$INTEGER],
; %PRINT: [5,0,16,1] (+%O'12')
; LR0534 L_DISCONNECT_DATA = [$string (16)]
; %PRINT: [6,0,0,0] (+%O'14')
; R0535 $CONTINUE
; R0536 tes;
; R0537
; R0538 literal
; LR0539 L_LENGTH = $FIELD_SET_SIZE;
; %PRINT: 16 fullwords
; R0540
; R0541 !
; R0542 ! [End of DTRDAT]
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 17
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (1)
; 0543
; 0544 !
; 0545 ! TABLE OF CONTENTS:
; 0546 !
; 0547
; 0548 forward routine
; 0549 DTRTIM : MCB_DB_MOD novalue,
; 0550 RCV_ABO : MCB_DB_CCB novalue,
; 0551 RCV_ACC : MCB_DB_CCB novalue,
; 0552 RCV_CNR : MCB_DB_CCB novalue,
; 0553 RCV_DAT : MCB_DB_CCB novalue,
; 0554 RCV_DIS : MCB_DB_CCB novalue,
; 0555 RCV_DRQ : MCB_DB_CCB novalue,
; 0556 RCV_DSR : MCB_DB_CCB novalue,
; 0557 RCV_INT : MCB_DB_CCB novalue,
; 0558 RCV_IRQ : MCB_DB_CCB novalue,
; 0559 RCV_REJ : MCB_DB_CCB novalue,
; 0560 RCV_SND : MCB_DB_CCB novalue,
; 0561 RCV_SNI : MCB_DB_CCB novalue,
; 0562 SND_ABO : LINKAGE_DB_CCB novalue,
; 0563 SND_ACC : LINKAGE_DB_CCB novalue,
; 0564 SND_DIS : LINKAGE_DB_CCB novalue,
; 0565 SND_DRQ : LINKAGE_DB_CCB novalue,
; 0566 SND_IRQ : LINKAGE_DB_CCB novalue,
; 0567 SND_REJ : LINKAGE_DB_CCB novalue,
; 0568 SND_SND : LINKAGE_DB_CCB novalue,
; 0569 SND_SNI : LINKAGE_DB_CCB novalue,
; 0570 PATTERN_CHECK: LINKAGE_DB_CCB;
; 0571
; 0572 !
; 0573 ! MACROS:
; 0574 !
; 0575 ! None
; 0576 !
; 0577 ! EQUATED SYMBOLS:
; 0578 !
; 0579
; 0580 literal
; 0581 FALSE = 1 eql 0,
; 0582 NO_OPERATION = 0,
; 0583 TRUE = 1 eql 1;
; 0584
; 0585 global literal
; 0586 %name ('D.LEN') = D_LENGTH^1,
; 0587 %name ('L.LEN') = L_LENGTH^1;
; 0588
; 0589 field word_0 = [0, 0, 16, 0],
; 0590 word_1 = [1, 0, 16, 0],
; 0591 byte_0 = [0, 0, 8, 0],
; 0592 byte_1 = [0, 8, 8, 0];
; 0593
; 0594 !
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 18
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (1)
; 0595 ! OWN STORAGE:
; 0596 !
; 0597
; 0598 external routine
; 0599 $DSPCR : novalue;
; 0600
; 0601 routine SCRCP (DB, CCB, MODF) : MCB_DB_CCB_MOD novalue =
; P 0602 DISPATCH$ (TABLE$ ($DSPCR, 6,
; P 0603 (S$CNR, RCV_CNR),
; P 0604 (S$DAT, RCV_DAT),
; P 0605 (S$DSR, RCV_DSR),
; P 0606 (S$INT, RCV_INT)),
; 0607 .MODF, (.DB, .CCB), MCB_DB_CCB);
.TITLE DTR
.IDENT /X01110/
000000 .PSECT $PLIT$, RO , D
000000 000000V P.AAA: .WORD RCV.CNR
000002 000000V .WORD RCV.DAT
000004 000000V .WORD RCV.INT
000006 000000V .WORD RCV.DSR
.GLOBL $DSPCR
000006 D.LEN== 6
000040 L.LEN== 40
.SBTTL SCRCP
000000 .PSECT $CODE$, RO
000000 004773 000000' SCRCP: JSR PC,@P.AAA(R3) ; *,*(MODF) 0607
000004 000207 RTS PC ; 0601
; Routine Size: 3 words, Routine Base: $CODE$ + 0000
; Maximum stack depth per invocation: 1 word
; 0608
; 0609 routine SCXCP (DB, CCB, MODF) : MCB_DB_CCB_MOD novalue =
; P 0610 DISPATCH$ (TABLE$ ($DSPCR, 20,
; P 0611 (S$ABO, RCV_ABO),
; P 0612 (S$ACC, RCV_ACC),
; P 0613 (S$DIS, RCV_DIS),
; P 0614 (S$DRQ, RCV_DRQ),
; P 0615 (S$IRQ, RCV_IRQ),
; P 0616 (S$REJ, RCV_REJ),
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 19
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (1)
; P 0617 (S$SND, RCV_SND),
; P 0618 (S$SNI, RCV_SNI)),
; 0619 .MODF, (.DB, .CCB), MCB_DB_CCB);
000010 .PSECT $PLIT$, RO , D
000010 000000G P.AAB: .WORD $DSPCR
000012 000000V .WORD RCV.ACC
000014 000000V .WORD RCV.REJ
000016 000000V .WORD RCV.SND
000020 000000G .WORD $DSPCR
000022 000000V .WORD RCV.DRQ
000024 000000V .WORD RCV.SNI
000026 000000V .WORD RCV.IRQ
000030 000000V .WORD RCV.DIS
000032 000000V .WORD RCV.ABO
000034 000000G .WORD $DSPCR
.SBTTL SCXCP
000006 .PSECT $CODE$, RO
000000 004773 000010' SCXCP: JSR PC,@P.AAB(R3) ; *,*(MODF) 0619
000004 000207 RTS PC ; 0609
; Routine Size: 3 words, Routine Base: $CODE$ + 0006
; Maximum stack depth per invocation: 1 word
; 0620
; P 0621 $MCB_PROCESS (NAME = DTR, ! Process name
; P 0622 LLC_DISPATCH = TABLE$ ($DSPCR, FC_CCP, ! LLC Dispatch vector:
; P 0623 (FC_RCP, SCRCP),
; P 0624 (FC_XCP, SCXCP),
; 0625 (FC_TIM, DTRTIM))); ! timeout
; 0626 !
; 0627 ! EXTERNAL REFERENCES:
; 0628 !
; 0629 ! None
; 0630
; 0631
; 0632
; 0633
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 20
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (2)
; 0634 routine DTRTIM (DB, MODF) : MCB_DB_MOD novalue =
; 0635
; 0636 !++
; 0637 ! FUNCTIONAL DESCRIPTION:
; 0638 !
; 0639 !
; 0640 ! FORMAL PARAMETERS:
; 0641 ! None
; 0642 !
; 0643 ! IMPLICIT INPUTS:
; 0644 ! None
; 0645 !
; 0646 ! IMPLICIT OUTPUTS:
; 0647 ! None
; 0648 !
; 0649 ! ROUTINE VALUE:
; 0650 ! COMPLETION CODES:
; 0651 ! None
; 0652 !
; 0653 ! SIDE EFFECTS:
; 0654 ! None
; 0655 !--
; 0656
; 0657 begin
; 0658
; 0659 map
; 0660 DB : ref block field (D_FIELDS);
; 0661
; 0662 0
; 0663 end; !of routine DTRTIM
000000 .PSECT ......, D
000000 016062 HEADER: .RAD50 /DTR/
000002 000403 .WORD 403
000004 000000 .WORD 0
000006 000000 .WORD 0
000010 000000 .WORD 0
000012 000036' .WORD P.AAC
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
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 21
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (2)
000036 .PSECT $PLIT$, RO , D
000036 000000G P.AAC: .WORD $DSPCR
000040 000000G .WORD $DSPCR
000042 000000G .WORD $DSPCR
000044 000000G .WORD $DSPCR
000046 000000G .WORD $DSPCR
000050 000014' .WORD DTRTIM
000052 000006' .WORD SCXCP
000054 000000' .WORD SCRCP
000056 000000G .WORD $DSPCR
000060 000000G .WORD $DSPCR
.GLOBL .DSPCR, MCB$V0, MCB$V1
.SBTTL DTRTIM
000014 .PSECT $CODE$, RO
000000 000207 DTRTIM: RTS PC ; 0634
; Routine Size: 1 word, Routine Base: $CODE$ + 0014
; Maximum stack depth per invocation: 0 words
; 0664
; 0665
; 0666
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 22
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (3)
; 0667 routine RCV_ABO (DB, CCB) : MCB_DB_CCB novalue =
; 0668
; 0669 !++
; 0670 ! FUNCTIONAL DESCRIPTION:
; 0671 !
; 0672 !
; 0673 ! FORMAL PARAMETERS:
; 0674 ! None
; 0675 !
; 0676 ! IMPLICIT INPUTS:
; 0677 ! None
; 0678 !
; 0679 ! IMPLICIT OUTPUTS:
; 0680 ! None
; 0681 !
; 0682 ! ROUTINE VALUE:
; 0683 ! COMPLETION CODES:
; 0684 ! None
; 0685 !
; 0686 ! SIDE EFFECTS:
; 0687 ! None
; 0688 !--
; 0689
; 0690 begin
; 0691
; 0692 map
; 0693 CCB : ref block field (C_FIELDS),
; 0694 DB : ref block field (D_FIELDS);
; 0695
; 0696 bind
; 0697 LINK = blockvector [.DB [D_ADDR], .CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] - 1, 0, 0, 0, 0; 0, L_LENGTH]
; 0698 : block field (L_FIELDS);
; 0699
; 0700 if .CCB [C_STS] neq S_SSUC
; 0701 then
; 0702 SIGNAL (DTR$_NO_ABORT, .CCB, .CCB [C_STS]);
; 0703
; 0704 LINK [ls_dip] = false;
; 0705 LINK [LS_ACTIVE] = FALSE;
; 0706 CCBRT$ (.CCB);
; 0707 end; !of routine RCV_ABO
.GLOBL $CCBRT
.SBTTL RCV.ABO
000000 010401 RCV.ABO:MOV R4,R1 ; *,CCB 0667
000002 005004 CLR R4 ; 0697
000004 156104 000024 BISB 24(R1),R4 ; *(CCB),*
000010 072427 000005 ASH #5,R4
000014 066504 000004 ADD 4(R5),R4 ; *(DB),*
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 23
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (3)
000020 162704 000040 SUB #40,R4 ; 0690
000024 026127 000014 000001 CMP 14(R1),#1 ; *(CCB),* 0700
000032 001413 BEQ 1$
000034 016146 000014 MOV 14(R1),-(SP) ; *(CCB),* 0702
000040 010146 MOV R1,-(SP) ; CCB,*
000042 012746 100053 MOV #-77725,-(SP)
000046 012746 000003 MOV #3,-(SP)
000052 004767 000000G JSR PC,$IGNAL
000056 062706 000010 ADD #10,SP
000062 042714 004400 1$: BIC #4400,(R4) ; 0705
000066 010104 MOV R1,R4 ; CCB,* 0706
000070 004767 000000G JSR PC,$CCBRT
000074 000207 RTS PC ; 0667
; Routine Size: 31 words, Routine Base: $CODE$ + 0016
; Maximum stack depth per invocation: 5 words
; 0708
; 0709
; 0710
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 24
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (4)
; 0711 routine RCV_ACC (DB, CCB) : MCB_DB_CCB novalue =
; 0712
; 0713 !++
; 0714 ! FUNCTIONAL DESCRIPTION:
; 0715 !
; 0716 !
; 0717 ! FORMAL PARAMETERS:
; 0718 ! None
; 0719 !
; 0720 ! IMPLICIT INPUTS:
; 0721 ! None
; 0722 !
; 0723 ! IMPLICIT OUTPUTS:
; 0724 ! None
; 0725 !
; 0726 ! ROUTINE VALUE:
; 0727 ! COMPLETION CODES:
; 0728 ! None
; 0729 !
; 0730 ! SIDE EFFECTS:
; 0731 ! None
; 0732 !--
; 0733
; 0734 begin
; 0735
; 0736 map
; 0737 CCB : ref block field (C_FIELDS),
; 0738 DB : ref block field (D_FIELDS);
; 0739
; 0740 bind
; 0741 LINK = blockvector [.DB [D_ADDR], .CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] - 1, 0, 0, 0, 0; 0, L_LENGTH]
; 0742 : block field (L_FIELDS);
; 0743
; 0744 if .CCB [C_STS] neq S_SSUC
; 0745 then
; 0746 begin
; 0747 SIGNAL (DTR$_NO_ACCEPT, .CCB, .CCB [C_STS]);
; 0748 LINK[ LS_active] = false;
; 0749 return CCBRT$ (.CCB);
; 0750 end;
; 0751
; 0752 case .LINK [L_TEST] from 0 to 3 of
; 0753 set
; 0754 [0] :
; 0755 CCBRT$ (.CCB);
; 0756
; 0757 [1] :
; 0758
; 0759 selectone .LINK [L_FLOW_TYPE] of
; 0760 set
; 0761 [0] :
; 0762 CCBRT$ (.CCB);
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 25
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (4)
; 0763
; 0764 [1] :
; 0765 begin
; 0766 CCB [C_BIAS] = CCB [C_ADDR] = CCB [C_CNT] = 0;
; 0767 SND_DRQ (.DB, .CCB, .CCB [C_PIX], .CCB [C_LIX], .CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)], .LINK [L_FLOW_COUNT])
; 0768 end;
; 0769
; 0770 [2] :
; 0771 CCBRT$ (.CCB);
; 0772 tes;
; 0773
; 0774 [2] :
; 0775 begin
; 0776 CCB [C_BIAS] = 0;
; 0777 CCB [C_ADDR] = ch$ptr (LINK [L_DISCONNECT_DATA]);
; 0778 CCB [C_CNT] = .LINK [L_DISCONNECT_LENGTH];
; 0779
; 0780 if .LINK [$SUB_FIELD (L_SUB_TEST, 0, 0, 1, 0)] eql 0
; 0781 then
; 0782 SND_DIS (.DB, .CCB, .CCB [C_PIX], .LINK [L_LLA], .LINK [L_ULA])
; 0783 else
; 0784 SND_ABO (.DB, .CCB, .CCB [C_PIX], .LINK [L_LLA], .LINK [L_ULA]);
; 0785
; 0786 end;
; 0787
; 0788 [inrange] :
; 0789 CCBRT$ (.CCB);
; 0790 tes;
; 0791
; 0792 end; !of routine RCV_ACC
.SBTTL RCV.ACC
000000 010401 RCV.ACC:MOV R4,R1 ; *,CCB 0711
000002 005004 CLR R4 ; 0741
000004 156104 000024 BISB 24(R1),R4 ; *(CCB),*
000010 072427 000005 ASH #5,R4
000014 066504 000004 ADD 4(R5),R4 ; *(DB),*
000020 012703 177740 MOV #-40,R3 ; 0734
000024 060403 ADD R4,R3
000026 026127 000014 000001 CMP 14(R1),#1 ; *(CCB),* 0744
000034 001417 BEQ 1$
000036 016146 000014 MOV 14(R1),-(SP) ; *(CCB),* 0747
000042 010146 MOV R1,-(SP) ; CCB,*
000044 012746 100063 MOV #-77715,-(SP)
000050 012746 000003 MOV #3,-(SP)
000054 004767 000000G JSR PC,$IGNAL
000060 042713 004000 BIC #4000,(R3) ; 0748
000064 010104 MOV R1,R4 ; CCB,* 0749
000066 004767 000000G JSR PC,$CCBRT
000072 000443 BR 4$ ; 0744
000074 012702 000002 1$: MOV #2,R2 ; 0752
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 26
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (4)
000100 060302 ADD R3,R2
000102 116200 000001 MOVB 1(R2),R0
000106 006300 ASL R0
000110 066007 000062' ADD P.AAD(R0),PC ; Case dispatch
000114 000507 2$: BR 9$ ; 0755
000116 116300 000005 3$: MOVB 5(R3),R0 ; 0759
000122 001504 BEQ 9$ ; 0762
000124 020027 000001 CMP R0,#1 ; 0759
000130 001027 BNE 5$
000132 005061 000022 CLR 22(R1) ; *(CCB) 0766
000136 005061 000020 CLR 20(R1) ; *(CCB)
000142 005061 000016 CLR 16(R1) ; *(CCB)
000146 005046 CLR -(SP) ; 0767
000150 116116 000011 MOVB 11(R1),(SP) ; *(CCB),*
000154 005046 CLR -(SP)
000156 116116 000010 MOVB 10(R1),(SP) ; *(CCB),*
000162 005046 CLR -(SP)
000164 116116 000024 MOVB 24(R1),(SP) ; *(CCB),*
000170 016346 000006 MOV 6(R3),-(SP)
000174 010104 MOV R1,R4 ; CCB,*
000176 004767 000000V JSR PC,SND.DRQ
000202 062706 000010 4$: ADD #10,SP ; 0765
000206 000207 RTS PC ; 0759
000210 020027 000002 5$: CMP R0,#2
000214 001052 BNE 10$
000216 000446 BR 9$ ; 0771
000220 005061 000016 6$: CLR 16(R1) ; *(CCB) 0776
000224 010361 000020 MOV R3,20(R1) ; *,*(CCB) 0777
000230 062761 000014 000020 ADD #14,20(R1) ; *,*(CCB)
000236 016361 000012 000022 MOV 12(R3),22(R1) ; *,*(CCB) 0778
000244 132763 000001 000004 BITB #1,4(R3) ; 0780
000252 001013 BNE 7$
000254 005046 CLR -(SP) ; 0782
000256 116116 000011 MOVB 11(R1),(SP) ; *(CCB),*
000262 005046 CLR -(SP)
000264 111216 MOVB (R2),(SP)
000266 111300 MOVB (R3),R0
000270 010046 MOV R0,-(SP)
000272 010104 MOV R1,R4 ; CCB,*
000274 004767 000000V JSR PC,SND.DIS
000300 000412 BR 8$ ; 0780
000302 005046 7$: CLR -(SP) ; 0784
000304 116116 000011 MOVB 11(R1),(SP) ; *(CCB),*
000310 005046 CLR -(SP)
000312 111216 MOVB (R2),(SP)
000314 111300 MOVB (R3),R0
000316 010046 MOV R0,-(SP)
000320 010104 MOV R1,R4 ; CCB,*
000322 004767 000000V JSR PC,SND.ABO
000326 062706 000006 8$: ADD #6,SP ; 0775
000332 000207 RTS PC ; 0752
000334 010104 9$: MOV R1,R4 ; CCB,* 0789
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 27
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (4)
000336 004767 000000G JSR PC,$CCBRT
000342 000207 10$: RTS PC ; 0711
; Routine Size: 114 words, Routine Base: $CODE$ + 0114
; Maximum stack depth per invocation: 5 words
000062 .PSECT $PLIT$, RO , D
P.AAD: ; CASE Table for RCV.ACC+0110 0752
000062 000220 .WORD 220 ; [9$]
000064 000002 .WORD 2 ; [3$]
000066 000104 .WORD 104 ; [6$]
000070 000220 .WORD 220 ; [9$]
; 0793
; 0794
; 0795
; 0796
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 28
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (5)
; 0797 routine RCV_CNR (DB, CCB) : MCB_DB_CCB novalue =
; 0798
; 0799 !++
; 0800 ! FUNCTIONAL DESCRIPTION:
; 0801 !
; 0802 !
; 0803 ! FORMAL PARAMETERS:
; 0804 ! None
; 0805 !
; 0806 ! IMPLICIT INPUTS:
; 0807 ! None
; 0808 !
; 0809 ! IMPLICIT OUTPUTS:
; 0810 ! None
; 0811 !
; 0812 ! ROUTINE VALUE:
; 0813 ! COMPLETION CODES:
; 0814 ! None
; 0815 !
; 0816 ! SIDE EFFECTS:
; 0817 ! None
; 0818 !--
; 0819
; 0820 begin
; 0821
; 0822 map
; 0823 CCB : ref block field (C_FIELDS),
; 0824 DB : ref block field (D_FIELDS);
; 0825
; 0826 local
; 0827 LINK : ref block field (L_FIELDS),
; 0828 SC_PIX;
; 0829
; 0830 SC_PIX = .CCB [C_PIX];
; 0831 LINK = .DB [D_ADDR];
; 0832
; 0833 while .LINK [LS_ACTIVE] do
; 0834 begin
; 0835
; 0836 if .LINK [L_ULA] geq .DB [D_LINKS]
; 0837 then
; 0838 begin
; 0839 CCB [C_STS] = S_ERES %(no resources)%;
; 0840 CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .CCB [C_LIX];
; 0841 CCB [C_FNC] = FC_RCE;
; 0842 LLCRS$ (.CCB);
; 0843 return;
; 0844 end;
; 0845
; 0846 LINK = vector [.LINK, L_LENGTH];
; 0847 end;
; 0848
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 29
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (5)
; 0849 begin
; 0850
; 0851 local
; 0852 PTR;
; 0853
; 0854 LINK [L_LLA] = .CCB [C_LIX];
; 0855 MAP$ (.CCB [C_BIAS]);
; 0856 PTR = ch$ptr (block [.CCB [C_ADDR], CB_OPTD],, 8);
; 0857 LINK [L_TEST] = ch$rchar_a (PTR);
; 0858 LINK [LS_PROPT] = .LINK [$SUB_FIELD (L_TEST, 0, 7, 1, 1)];
; 0859 LINK [$SUB_FIELD (L_TEST, 0, 7, 1, 1)] = 0;
; 0860
; 0861 case .LINK [L_TEST] from 0 to 3 of
; 0862 set
; 0863 [0] :
; 0864 begin
; 0865
; 0866 case (LINK [L_SUB_TEST] =
; 0867 begin
; 0868 local char;
; 0869 char = ch$rchar_a (PTR);
; 0870 .char
; 0871 end) from 0 to 5 of
; 0872
; 0873 set
; 0874 [0, 1] :
; 0875 LINK [L_DISCONNECT_LENGTH] = 0;
; 0876
; 0877 [2, 3] :
; 0878 ch$move ((LINK [L_DISCONNECT_LENGTH] = 16),
; 0879 ch$ptr (uplit ('ABCDEFGHIJKLMNOP')),
; 0880 ch$ptr (LINK [L_DISCONNECT_DATA]));
; 0881
; 0882 [4, 5] :
; 0883 ch$move ((LINK [L_DISCONNECT_LENGTH] = .block [.CCB [C_ADDR], CB_OPDL]),
; 0884 ch$ptr (block [.CCB [C_ADDR], CB_OPTD]),
; 0885 ch$ptr (LINK [L_DISCONNECT_DATA]));
; 0886
; 0887 [outrange] :
; 0888 begin
; 0889 CCB [C_STS] = S_ERBO %(invalid test sub-type)%;
; 0890 CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
; 0891 CCB [C_FNC] = FC_RCE;
; 0892 LLCRS$ (.CCB);
; 0893 return;
; 0894 end;
; 0895
; 0896 tes;
; 0897
; 0898 begin
; 0899
; 0900 local
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 30
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (5)
; 0901 ACC_CCB : ref block field (C_FIELDS);
; 0902
; 0903 if not CCBGT$ (ACC_CCB)
; 0904 then
; 0905 begin
; 0906 CCB [C_STS] = S_ERES %(no resources)%;
; 0907 CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
; 0908 CCB [C_FNC] = FC_RCE;
; 0909 LLCRS$ (.CCB);
; 0910 return;
; 0911 end;
; 0912
; 0913 CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
; 0914 CCB [C_FNC] = FC_RCE;
; 0915 LLCRS$ (.CCB);
; 0916
; 0917 ACC_CCB [C_BIAS] = 0;
; 0918 ACC_CCB [C_ADDR] = ch$ptr (LINK [L_DISCONNECT_DATA]);
; 0919 ACC_CCB [C_CNT] = .LINK [L_DISCONNECT_LENGTH];
; 0920
; 0921 if .LINK [$SUB_FIELD (L_SUB_TEST, 0, 0, 1, 0)] eql 0
; 0922 then
; 0923 SND_REJ (.DB, .ACC_CCB, .SC_PIX, .LINK [L_LLA], .LINK [L_ULA])
; 0924 else
; 0925 SND_ACC (.DB, .ACC_CCB, .SC_PIX, .LINK [L_LLA], .LINK [L_ULA], S$PMSG);
; 0926
; 0927 end;
; 0928 LINK [LS_ACTIVE] = TRUE;
; 0929 end;
; 0930
; 0931 [1] :
; 0932 begin
; 0933
; 0934 local
; 0935 CHAR;
; 0936
; 0937 selectone (CHAR = ch$rchar_a (PTR)) of
; 0938 set
; 0939 [0, 1, 2, 3] :
; 0940 LINK [L_SUB_TEST] = .CHAR;
; 0941
; 0942 [otherwise] :
; 0943 begin
; 0944 CCB [C_STS] = S_ERBO %(invalid data type)%;
; 0945 CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
; 0946 CCB [C_FNC] = FC_RCE;
; 0947 LLCRS$ (.CCB);
; 0948 return;
; 0949 end;
; 0950 tes;
; 0951
; 0952 selectone (CHAR = ch$rchar_a (PTR)) of
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 31
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (5)
; 0953 set
; 0954 [1] :
; 0955 LINK [L_FLOW_TYPE] = .CHAR;
; 0956
; 0957 [0, 2] :
; 0958 begin
; 0959 CCB [C_STS] = S_ERBO %(unsupported flow type)%;
; 0960 CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
; 0961 CCB [C_FNC] = FC_RCE;
; 0962 LLCRS$ (.CCB);
; 0963 return;
; 0964 end;
; 0965
; 0966 [otherwise] :
; 0967 begin
; 0968 CCB [C_STS] = S_ERBO %(invalid flow control option)%;
; 0969 CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
; 0970 CCB [C_FNC] = FC_RCE;
; 0971 LLCRS$ (.CCB);
; 0972 return;
; 0973 end;
; 0974 tes;
; 0975
; 0976 selectone (CHAR = ch$rchar_a (PTR)) of
; 0977 set
; 0978 [1 to 127] :
; 0979 LINK [L_FLOW_COUNT] = .CHAR;
; 0980
; 0981 [otherwise] :
; 0982 begin
; 0983 CCB [C_STS] = S_ERBO %(invalid flow control value)%;
; 0984 CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
; 0985 CCB [C_FNC] = FC_RCE;
; 0986 LLCRS$ (.CCB);
; 0987 return;
; 0988 end;
; 0989 tes;
; 0990
; 0991 selectone (CHAR = ch$rchar_a (PTR)) of
; 0992 set
; 0993 [0] :
; 0994 LINK [L_NAK_COUNT] = .CHAR;
; 0995
; 0996 [1 to 128] :
; 0997 begin
; 0998 CCB [C_STS] = S_ERBO %(unsupported nak frequency)%;
; 0999 CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
; 1000 CCB [C_FNC] = FC_RCE;
; 1001 LLCRS$ (.CCB);
; 1002 return;
; 1003 end;
; 1004
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 32
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (5)
; 1005 [otherwise] :
; 1006 begin
; 1007 CCB [C_STS] = S_ERBO %(invalid nak frequency)%;
; 1008 CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
; 1009 CCB [C_FNC] = FC_RCE;
; 1010 LLCRS$ (.CCB);
; 1011 return;
; 1012 end;
; 1013 tes;
; 1014
; 1015 selectone (CHAR = ch$rchar_a (PTR)) of
; 1016 set
; 1017 [0] :
; 1018 LINK [L_BPC_COUNT] = .CHAR;
; 1019
; 1020 [1 to 128] :
; 1021 begin
; 1022 CCB [C_STS] = S_ERBO %(unsupported back-pressure frequency)%;
; 1023 CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
; 1024 CCB [C_FNC] = FC_RCE;
; 1025 LLCRS$ (.CCB);
; 1026 return;
; 1027 end;
; 1028
; 1029 [otherwise] :
; 1030 begin
; 1031 CCB [C_STS] = S_ERBO %(invalid back-pressure frequency)%;
; 1032 CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
; 1033 CCB [C_FNC] = FC_RCE;
; 1034 LLCRS$ (.CCB);
; 1035 return;
; 1036 end;
; 1037 tes;
; 1038
; 1039 LINK [$SUB_FIELD (L_MESSAGE_SIZE, 0, 0, 8, 0)] = ch$rchar_a (PTR);
; 1040 LINK [$SUB_FIELD (L_MESSAGE_SIZE, 0, 8, 8, 0)] = ch$rchar_a (PTR);
; 1041
; 1042 incra ADDRESS from LINK [L_SEND_NUMBER] to LINK [L_PATTERN_ROUTINE] by %upval do .ADDRESS = 0;
; 1043
; 1044 begin
; 1045
; 1046 local
; 1047 ACC_CCB : ref block field (C_FIELDS);
; 1048
; 1049 bind
; 1050 FLOW = uplit (0, S$PSEG, S$PMSG) : vector;
; 1051
; 1052 if not CCBGT$ (ACC_CCB)
; 1053 then
; 1054 begin
; 1055 CCB [C_STS] = S_ERES %(no resources)%;
; 1056 CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 33
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (5)
; 1057 CCB [C_FNC] = FC_RCE;
; 1058 LLCRS$ (.CCB);
; 1059 return;
; 1060 end;
; 1061
; 1062 CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
; 1063 CCB [C_FNC] = FC_RCE;
; 1064 LLCRS$ (.CCB);
; 1065 ACC_CCB [C_BIAS] = ACC_CCB [C_ADDR] = ACC_CCB [C_CNT] = 0;
; 1066 SND_ACC (.DB, .ACC_CCB, .SC_PIX, .LINK [L_LLA], .LINK [L_ULA], .FLOW [.LINK [L_FLOW_TYPE]]);
; 1067 end;
; 1068 LINK [LS_ACTIVE] = TRUE;
; 1069 end;
; 1070
; 1071 [2] :
; 1072 begin
; 1073
; 1074 case (LINK [L_SUB_TEST] =
; 1075 begin
; 1076 local char;
; 1077 char = ch$rchar_a (PTR);
; 1078 .char
; 1079 end) from 0 to 5 of
; 1080
; 1081 set
; 1082 [0, 1] :
; 1083 LINK [L_DISCONNECT_LENGTH] = 0;
; 1084
; 1085 [2, 3] :
; 1086 ch$move ((LINK [L_DISCONNECT_LENGTH] = 16),
; 1087 ch$ptr (uplit ('ABCDEFGHIJKLMNOP')),
; 1088 ch$ptr (LINK [L_DISCONNECT_DATA]));
; 1089
; 1090 [4, 5] :
; 1091 ch$move ((LINK [L_DISCONNECT_LENGTH] = .block [.CCB [C_ADDR], CB_OPDL]),
; 1092 ch$ptr (block [.CCB [C_ADDR], CB_OPTD]),
; 1093 ch$ptr (LINK [L_DISCONNECT_DATA]));
; 1094
; 1095 [outrange] :
; 1096 begin
; 1097 CCB [C_STS] = S_ERBO %(invalid test sub-type)%;
; 1098 CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
; 1099 CCB [C_FNC] = FC_RCE;
; 1100 LLCRS$ (.CCB);
; 1101 return;
; 1102 end;
; 1103
; 1104 tes;
; 1105
; 1106 begin
; 1107
; 1108 local
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 34
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (5)
; 1109 ACC_CCB : ref block field (C_FIELDS);
; 1110
; 1111 if not CCBGT$ (ACC_CCB)
; 1112 then
; 1113 begin
; 1114 CCB [C_STS] = S_ERES %(no resources)%;
; 1115 CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
; 1116 CCB [C_FNC] = FC_RCE;
; 1117 LLCRS$ (.CCB);
; 1118 return;
; 1119 end;
; 1120
; 1121 CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
; 1122 CCB [C_FNC] = FC_RCE;
; 1123 LLCRS$ (.CCB);
; 1124
; 1125 ACC_CCB [C_BIAS] = ACC_CCB [C_ADDR] = ACC_CCB [C_CNT] = 0;
; 1126 SND_ACC (.DB, .ACC_CCB, .SC_PIX, .LINK [L_LLA], .LINK [L_ULA], S$PMSG);
; 1127 end;
; 1128 LINK [LS_ACTIVE] = TRUE;
; 1129 end;
; 1130
; 1131 [3] :
; 1132 begin
; 1133
; 1134 local
; 1135 CHAR;
; 1136
; 1137 selectone (CHAR = ch$rchar_a (PTR)) of
; 1138 set
; 1139 [0, 1, 2, 3] :
; 1140 LINK [L_SUB_TEST] = .CHAR;
; 1141
; 1142 [otherwise] :
; 1143 begin
; 1144 CCB [C_STS] = S_ERBO %(invalid data type)%;
; 1145 CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
; 1146 CCB [C_FNC] = FC_RCE;
; 1147 LLCRS$ (.CCB);
; 1148 return;
; 1149 end;
; 1150 tes;
; 1151
; 1152 selectone (CHAR = ch$rchar_a (PTR)) of
; 1153 set
; 1154 [1] :
; 1155 LINK [L_FLOW_COUNT] = .CHAR;
; 1156
; 1157 [otherwise] :
; 1158 begin
; 1159 CCB [C_STS] = S_ERBO %(invalid flow control value)%;
; 1160 CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 35
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (5)
; 1161 CCB [C_FNC] = FC_RCE;
; 1162 LLCRS$ (.CCB);
; 1163 return;
; 1164 end;
; 1165 tes;
; 1166
; 1167 incra ADDRESS from LINK [L_SEND_NUMBER] to LINK [L_PATTERN_ROUTINE] by %upval do .ADDRESS = 0;
; 1168
; 1169 begin
; 1170
; 1171 local
; 1172 ACC_CCB : ref block field (C_FIELDS);
; 1173
; 1174 if not CCBGT$ (ACC_CCB)
; 1175 then
; 1176 begin
; 1177 CCB [C_STS] = S_ERES %(no resources)%;
; 1178 CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
; 1179 CCB [C_FNC] = FC_RCE;
; 1180 LLCRS$ (.CCB);
; 1181 return;
; 1182 end;
; 1183
; 1184 CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
; 1185 CCB [C_FNC] = FC_RCE;
; 1186 LLCRS$ (.CCB);
; 1187 ACC_CCB [C_BIAS] = ACC_CCB [C_ADDR] = ACC_CCB [C_CNT] = 0;
; 1188 SND_ACC (.DB, .ACC_CCB, .SC_PIX, .LINK [L_LLA], .LINK [L_ULA], S$PSEG);
; 1189 end;
; 1190 LINK [LS_ACTIVE] = TRUE;
; 1191 end;
; 1192
; 1193 [inrange] :
; 1194 begin
; 1195 SIGNAL (DTR$_TEST_UNSUPPORTED, .LINK [L_TEST]);
; 1196 CCB [C_STS] = S_ERBO %(unsupported test type)%;
; 1197 CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
; 1198 CCB [C_FNC] = FC_RCE;
; 1199 LLCRS$ (.CCB);
; 1200 return;
; 1201 end;
; 1202
; 1203 [outrange] :
; 1204 begin
; 1205 SIGNAL (DTR$_TEST_INVALID, .LINK [L_TEST]);
; 1206 CCB [C_STS] = S_ERBO %(invalid test type)%;
; 1207 CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
; 1208 CCB [C_FNC] = FC_RCE;
; 1209 LLCRS$ (.CCB);
; 1210 return;
; 1211 end;
; 1212
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 36
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (5)
; 1213 tes;
; 1214
; 1215 end;
; 1216 end; !of routine RCV_CNR
000072 101 102 103 P.AAG: .ASCII /ABC/
000075 104 105 106 .ASCII /DEF/
000100 107 110 111 .ASCII /GHI/
000103 112 113 114 .ASCII /JKL/
000106 115 116 117 .ASCII /MNO/
000111 120 .ASCII /P/
000112 000000 P.AAH: .WORD 0
000114 000001 .WORD 1
000116 000002 .WORD 2
000120 101 102 103 P.AAJ: .ASCII /ABC/
000123 104 105 106 .ASCII /DEF/
000126 107 110 111 .ASCII /GHI/
000131 112 113 114 .ASCII /JKL/
000134 115 116 117 .ASCII /MNO/
000137 120 .ASCII /P/
.GLOBL $SCHED, KISAR6, $CCBGT
000112' FLOW= P.AAH
.SBTTL RCV.CNR
000460 .PSECT $CODE$, RO
000000 162706 000012 RCV.CNR:SUB #12,SP ; 0797
000004 010403 MOV R4,R3 ; *,CCB
000006 010546 MOV R5,-(SP)
000010 012700 000010 MOV #10,R0 ; 0830
000014 060300 ADD R3,R0 ; CCB,*
000016 116066 000001 000012 MOVB 1(R0),12(SP) ; *,SC.PIX
000024 105066 000013 CLRB 13(SP) ; SC.PIX
000030 010501 MOV R5,R1 ; 0831
000032 016166 000004 000010 MOV 4(R1),10(SP) ; *,LINK
000040 032776 004000 000010 1$: BIT #4000,@10(SP) ; *,LINK 0833
000046 001421 BEQ 3$
000050 117601 000010 MOVB @10(SP),R1 ; LINK,* 0836
000054 011602 MOV (SP),R2
000056 020162 000002 CMP R1,2(R2)
000062 002407 BLT 2$
000064 012763 177777 000014 MOV #-1,14(R3) ; *,*(CCB) 0839
000072 111063 000024 MOVB (R0),24(R3) ; *,*(CCB) 0840
000076 000167 001460 JMP 36$ ; 0841
000102 062766 000040 000010 2$: ADD #40,10(SP) ; *,LINK 0846
000110 000753 BR 1$ ; 0833
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 37
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (5)
000112 012701 000002 3$: MOV #2,R1 ; 0854
000116 066601 000010 ADD 10(SP),R1 ; LINK,*
000122 010166 000006 MOV R1,6(SP)
000126 111011 MOVB (R0),(R1)
000130 016367 000016 000000G MOV 16(R3),KISAR6 ; *(CCB),* 0855
000136 016301 000020 MOV 20(R3),R1 ; *(CCB),* 0856
000142 010105 MOV R1,R5
000144 062705 000136 ADD #136,R5
000150 010502 MOV R5,R2 ; *,PTR
000152 017646 000006 MOV @6(SP),-(SP) ; 0857
000156 112266 000001 MOVB (R2)+,1(SP) ; PTR,*
000162 012676 000006 MOV (SP)+,@6(SP)
000166 042776 002000 000010 BIC #2000,@10(SP) ; *,LINK 0858
000174 005776 000006 TST @6(SP)
000200 100003 BPL 4$
000202 052776 002000 000010 BIS #2000,@10(SP) ; *,LINK
000210 042776 100000 000006 4$: BIC #100000,@6(SP) ; 0859
000216 012766 000024 000004 MOV #24,4(SP) ; 1207
000224 060366 000004 ADD R3,4(SP) ; CCB,*
000230 012766 000012 000002 MOV #12,2(SP) ; 1208
000236 060366 000002 ADD R3,2(SP) ; CCB,*
000242 017600 000006 MOV @6(SP),R0 ; 0861
000246 000300 SWAB R0
000250 110000 MOVB R0,R0
000252 020027 000003 CMP R0,#3
000256 101003 BHI 5$
000260 006300 ASL R0
000262 066007 000140' ADD P.AAE(R0),PC ; Case dispatch
000266 017600 000006 5$: MOV @6(SP),R0 ; 1205
000272 000300 SWAB R0
000274 110000 MOVB R0,R0
000276 010046 MOV R0,-(SP)
000300 012746 100033 MOV #-77745,-(SP)
000304 012746 000002 MOV #2,-(SP)
000310 004767 000000G JSR PC,$IGNAL
000314 012763 177754 000014 MOV #-24,14(R3) ; *,*(CCB) 1206
000322 117676 000016 000012 MOVB @16(SP),@12(SP) ; LINK,* 1207
000330 112776 000004 000010 MOVB #4,@10(SP) ; 1208
000336 010304 MOV R3,R4 ; CCB,* 1209
000340 004767 000000G JSR PC,$SCHED
000344 000553 BR 15$ ; 0861
000346 005000 6$: CLR R0 ; CHAR 0869
000350 152200 BISB (R2)+,R0 ; PTR,CHAR
000352 016604 000010 MOV 10(SP),R4 ; LINK,* 0866
000356 110064 000004 MOVB R0,4(R4) ; CHAR,*(LINK)
000362 020027 000005 CMP R0,#5
000366 101003 BHI 7$
000370 006300 ASL R0
000372 066007 000150' ADD P.AAF(R0),PC ; Case dispatch
000376 000167 001064 7$: JMP 30$ ; 0889
000402 016600 000010 8$: MOV 10(SP),R0 ; LINK,* 0875
000406 005060 000012 CLR 12(R0) ; *(LINK)
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 38
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (5)
000412 000431 BR 12$ ; 0866
000414 012746 000020 9$: MOV #20,-(SP) ; 0878
000420 016600 000012 MOV 12(SP),R0 ; LINK,*
000424 011660 000012 MOV (SP),12(R0) ; *,*(LINK)
000430 012746 000072' MOV #P.AAG,-(SP) ; 0880
000434 000407 BR 11$
000436 016146 000134 10$: MOV 134(R1),-(SP) ; 0883
000442 016600 000012 MOV 12(SP),R0 ; LINK,*
000446 011660 000012 MOV (SP),12(R0) ; *,*(LINK)
000452 010546 MOV R5,-(SP) ; 0885
000454 012700 000014 11$: MOV #14,R0
000460 066600 000014 ADD 14(SP),R0 ; LINK,*
000464 010046 MOV R0,-(SP)
000466 004767 000000G JSR PC,BL$MOV
000472 062706 000006 ADD #6,SP
000476 004767 000000G 12$: JSR PC,$CCBGT ; 0903
000502 103574 BCS 19$
000504 010401 MOV R4,R1 ; $MCB$R4,ACC.CCB
000506 117676 000010 000004 MOVB @10(SP),@4(SP) ; LINK,* 0913
000514 112776 000004 000002 MOVB #4,@2(SP) ; 0914
000522 010304 MOV R3,R4 ; CCB,* 0915
000524 004767 000000G JSR PC,$SCHED
000530 005061 000016 CLR 16(R1) ; *(ACC.CCB) 0917
000534 012700 000014 MOV #14,R0 ; 0918
000540 066600 000010 ADD 10(SP),R0 ; LINK,*
000544 010061 000020 MOV R0,20(R1) ; *,*(ACC.CCB)
000550 016600 000010 MOV 10(SP),R0 ; LINK,* 0919
000554 016061 000012 000022 MOV 12(R0),22(R1) ; *(LINK),*(ACC.CCB)
000562 010004 MOV R0,R4 ; LINK,* 0921
000564 132764 000001 000004 BITB #1,4(R4) ; *,*(LINK)
000572 001015 BNE 13$
000574 016646 000012 MOV 12(SP),-(SP) ; SC.PIX,* 0923
000600 005046 CLR -(SP)
000602 117616 000012 MOVB @12(SP),(SP)
000606 111000 MOVB (R0),R0 ; LINK,*
000610 010046 MOV R0,-(SP)
000612 016605 000006 MOV 6(SP),R5
000616 010104 MOV R1,R4 ; ACC.CCB,*
000620 004767 000000V JSR PC,SND.REJ
000624 000420 BR 14$ ; 0921
000626 016646 000012 13$: MOV 12(SP),-(SP) ; SC.PIX,* 0925
000632 005046 CLR -(SP)
000634 117616 000012 MOVB @12(SP),(SP)
000640 117600 000014 MOVB @14(SP),R0 ; LINK,*
000644 010046 MOV R0,-(SP)
000646 012746 000002 MOV #2,-(SP)
000652 016605 000010 MOV 10(SP),R5
000656 010104 MOV R1,R4 ; ACC.CCB,*
000660 004767 000000V JSR PC,SND.ACC
000664 005726 TST (SP)+
000666 052776 004000 000016 14$: BIS #4000,@16(SP) ; *,LINK 0928
000674 062706 000006 15$: ADD #6,SP ; 0864
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 39
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (5)
000700 000167 001002 JMP 39$ ; 0861
000704 005000 16$: CLR R0 ; CHAR 0937
000706 152200 BISB (R2)+,R0 ; PTR,CHAR
000710 005700 TST R0 ; CHAR
000712 002631 BLT 7$
000714 020027 000003 CMP R0,#3 ; CHAR,*
000720 003226 BGT 7$
000722 016604 000010 MOV 10(SP),R4 ; LINK,* 0940
000726 110064 000004 MOVB R0,4(R4) ; CHAR,*(LINK)
000732 005000 CLR R0 ; CHAR 0952
000734 152200 BISB (R2)+,R0 ; PTR,CHAR
000736 020027 000001 CMP R0,#1 ; CHAR,*
000742 001215 BNE 7$
000744 010401 MOV R4,R1 ; LINK,* 0955
000746 110061 000005 MOVB R0,5(R1) ; CHAR,*(LINK)
000752 005000 CLR R0 ; CHAR 0976
000754 152200 BISB (R2)+,R0 ; PTR,CHAR
000756 005700 TST R0 ; CHAR
000760 003606 BLE 7$
000762 020027 000177 CMP R0,#177 ; CHAR,*
000766 003203 BGT 7$
000770 010061 000006 MOV R0,6(R1) ; CHAR,*(LINK) 0979
000774 005000 CLR R0 ; CHAR 0991
000776 152200 BISB (R2)+,R0 ; PTR,CHAR
001000 005700 TST R0 ; CHAR
001002 001111 BNE 21$
001004 110061 000010 MOVB R0,10(R1) ; CHAR,*(LINK) 0994
001010 005000 CLR R0 ; CHAR 1015
001012 152200 BISB (R2)+,R0 ; PTR,CHAR
001014 005700 TST R0 ; CHAR
001016 001103 BNE 21$
001020 110061 000011 MOVB R0,11(R1) ; CHAR,*(LINK) 1018
001024 010100 MOV R1,R0 ; LINK,* 1039
001026 112260 000012 MOVB (R2)+,12(R0) ; PTR,*(LINK)
001032 112260 000013 MOVB (R2)+,13(R0) ; PTR,*(LINK) 1040
001036 012701 000036 MOV #36,R1 ; 1042
001042 060001 ADD R0,R1 ; LINK,*
001044 010100 MOV R1,R0
001046 010401 MOV R4,R1 ; LINK,ADDRESS
001050 062701 000016 ADD #16,R1 ; *,ADDRESS
001054 000401 BR 18$
001056 005011 17$: CLR (R1) ; ADDRESS
001060 062701 000002 18$: ADD #2,R1 ; *,ADDRESS
001064 020100 CMP R1,R0 ; ADDRESS,*
001066 101773 BLOS 17$
001070 004767 000000G JSR PC,$CCBGT ; 1052
001074 103515 19$: BCS 27$
001076 010400 MOV R4,R0 ; $MCB$R4,ACC.CCB
001100 117676 000010 000004 MOVB @10(SP),@4(SP) ; LINK,* 1062
001106 112776 000004 000002 MOVB #4,@2(SP) ; 1063
001114 010304 MOV R3,R4 ; CCB,* 1064
001116 004767 000000G JSR PC,$SCHED
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 40
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (5)
001122 005060 000022 CLR 22(R0) ; *(ACC.CCB) 1065
001126 005060 000020 CLR 20(R0) ; *(ACC.CCB)
001132 005060 000016 CLR 16(R0) ; *(ACC.CCB)
001136 016646 000012 MOV 12(SP),-(SP) ; SC.PIX,* 1066
001142 005046 CLR -(SP)
001144 117616 000012 MOVB @12(SP),(SP)
001150 117601 000014 MOVB @14(SP),R1 ; LINK,*
001154 010146 MOV R1,-(SP)
001156 016602 000016 MOV 16(SP),R2 ; LINK,*
001162 116201 000005 MOVB 5(R2),R1 ; *(LINK),*
001166 006301 ASL R1
001170 016146 000112' MOV FLOW(R1),-(SP)
001174 000510 BR 28$
001176 005000 20$: CLR R0 ; CHAR 1077
001200 152200 BISB (R2)+,R0 ; PTR,CHAR
001202 016604 000010 MOV 10(SP),R4 ; LINK,* 1074
001206 110064 000004 MOVB R0,4(R4) ; CHAR,*(LINK)
001212 020027 000005 CMP R0,#5
001216 101123 BHI 30$
001220 006300 ASL R0
001222 066007 000164' ADD P.AAI(R0),PC ; Case dispatch
001226 000517 21$: BR 30$ ; 1097
001230 016600 000010 22$: MOV 10(SP),R0 ; LINK,* 1083
001234 005060 000012 CLR 12(R0) ; *(LINK)
001240 000431 BR 26$ ; 1074
001242 012746 000020 23$: MOV #20,-(SP) ; 1086
001246 016600 000012 MOV 12(SP),R0 ; LINK,*
001252 011660 000012 MOV (SP),12(R0) ; *,*(LINK)
001256 012746 000120' MOV #P.AAJ,-(SP) ; 1088
001262 000407 BR 25$
001264 016146 000134 24$: MOV 134(R1),-(SP) ; 1091
001270 016600 000012 MOV 12(SP),R0 ; LINK,*
001274 011660 000012 MOV (SP),12(R0) ; *,*(LINK)
001300 010546 MOV R5,-(SP) ; 1093
001302 012700 000014 25$: MOV #14,R0
001306 066600 000014 ADD 14(SP),R0 ; LINK,*
001312 010046 MOV R0,-(SP)
001314 004767 000000G JSR PC,BL$MOV
001320 062706 000006 ADD #6,SP
001324 004767 000000G 26$: JSR PC,$CCBGT ; 1111
001330 103506 27$: BCS 34$
001332 010400 MOV R4,R0 ; $MCB$R4,ACC.CCB
001334 117676 000010 000004 MOVB @10(SP),@4(SP) ; LINK,* 1121
001342 112776 000004 000002 MOVB #4,@2(SP) ; 1122
001350 010304 MOV R3,R4 ; CCB,* 1123
001352 004767 000000G JSR PC,$SCHED
001356 005060 000022 CLR 22(R0) ; *(ACC.CCB) 1125
001362 005060 000020 CLR 20(R0) ; *(ACC.CCB)
001366 005060 000016 CLR 16(R0) ; *(ACC.CCB)
001372 016646 000012 MOV 12(SP),-(SP) ; SC.PIX,* 1126
001376 005046 CLR -(SP)
001400 117616 000012 MOVB @12(SP),(SP)
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 41
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (5)
001404 117601 000014 MOVB @14(SP),R1 ; LINK,*
001410 010146 MOV R1,-(SP)
001412 012746 000002 MOV #2,-(SP)
001416 000521 28$: BR 38$
001420 005000 29$: CLR R0 ; CHAR 1137
001422 152200 BISB (R2)+,R0 ; PTR,CHAR
001424 005700 TST R0 ; CHAR
001426 002417 BLT 30$
001430 020027 000003 CMP R0,#3 ; CHAR,*
001434 003014 BGT 30$
001436 016601 000010 MOV 10(SP),R1 ; LINK,* 1140
001442 110061 000004 MOVB R0,4(R1) ; CHAR,*(LINK)
001446 005000 CLR R0 ; CHAR 1152
001450 152200 BISB (R2)+,R0 ; PTR,CHAR
001452 020027 000001 CMP R0,#1 ; CHAR,*
001456 001003 BNE 30$
001460 010061 000006 MOV R0,6(R1) ; CHAR,*(LINK) 1155
001464 000404 BR 31$ ; 1152
001466 012763 177754 000014 30$: MOV #-24,14(R3) ; *,*(CCB) 1159
001474 000427 BR 35$ ; 1160
001476 012701 000036 31$: MOV #36,R1 ; 1167
001502 066601 000010 ADD 10(SP),R1 ; LINK,*
001506 010100 MOV R1,R0
001510 016601 000010 MOV 10(SP),R1 ; LINK,ADDRESS
001514 062701 000016 ADD #16,R1 ; *,ADDRESS
001520 000401 BR 33$
001522 005011 32$: CLR (R1) ; ADDRESS
001524 062701 000002 33$: ADD #2,R1 ; *,ADDRESS
001530 020100 CMP R1,R0 ; ADDRESS,*
001532 101773 BLOS 32$
001534 004767 000000G JSR PC,$CCBGT ; 1174
001540 103402 BCS 34$
001542 010400 MOV R4,R0 ; $MCB$R4,ACC.CCB
001544 000415 BR 37$
001546 012763 177777 000014 34$: MOV #-1,14(R3) ; *,*(CCB) 1177
001554 117663 000010 000024 35$: MOVB @10(SP),24(R3) ; LINK,*(CCB) 1178
001562 112763 000004 000012 36$: MOVB #4,12(R3) ; *,*(CCB) 1179
001570 010304 MOV R3,R4 ; CCB,* 1180
001572 004767 000000G JSR PC,$SCHED
001576 000443 BR 39$ ; 1176
001600 117676 000010 000004 37$: MOVB @10(SP),@4(SP) ; LINK,* 1184
001606 112776 000004 000002 MOVB #4,@2(SP) ; 1185
001614 010304 MOV R3,R4 ; CCB,* 1186
001616 004767 000000G JSR PC,$SCHED
001622 005060 000022 CLR 22(R0) ; *(ACC.CCB) 1187
001626 005060 000020 CLR 20(R0) ; *(ACC.CCB)
001632 005060 000016 CLR 16(R0) ; *(ACC.CCB)
001636 016646 000012 MOV 12(SP),-(SP) ; SC.PIX,* 1188
001642 005046 CLR -(SP)
001644 117616 000012 MOVB @12(SP),(SP)
001650 117601 000014 MOVB @14(SP),R1 ; LINK,*
001654 010146 MOV R1,-(SP)
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 42
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (5)
001656 012746 000001 MOV #1,-(SP)
001662 016605 000010 38$: MOV 10(SP),R5
001666 010004 MOV R0,R4 ; ACC.CCB,*
001670 004767 000000V JSR PC,SND.ACC
001674 052776 004000 000020 BIS #4000,@20(SP) ; *,LINK 1190
001702 062706 000010 ADD #10,SP ; 1132
001706 062706 000014 39$: ADD #14,SP ; 0797
001712 000207 RTS PC
; Routine Size: 486 words, Routine Base: $CODE$ + 0460
; Maximum stack depth per invocation: 11 words
000140 .PSECT $PLIT$, RO , D
P.AAE: ; CASE Table for RCV.CNR+0262 0861
000140 000060 .WORD 60 ; [6$]
000142 000416 .WORD 416 ; [16$]
000144 000710 .WORD 710 ; [20$]
000146 001132 .WORD 1132 ; [29$]
P.AAF: ; CASE Table for RCV.CNR+0372 0866
000150 000004 .WORD 4 ; [8$]
000152 000004 .WORD 4 ; [8$]
000154 000016 .WORD 16 ; [9$]
000156 000016 .WORD 16 ; [9$]
000160 000040 .WORD 40 ; [10$]
000162 000040 .WORD 40 ; [10$]
P.AAI: ; CASE Table for RCV.CNR+1222 1074
000164 000002 .WORD 2 ; [22$]
000166 000002 .WORD 2 ; [22$]
000170 000014 .WORD 14 ; [23$]
000172 000014 .WORD 14 ; [23$]
000174 000036 .WORD 36 ; [24$]
000176 000036 .WORD 36 ; [24$]
; 1217
; 1218
; 1219
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 43
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (6)
; 1220 routine RCV_DAT (DB, CCB) : MCB_DB_CCB novalue =
; 1221
; 1222 !++
; 1223 ! FUNCTIONAL DESCRIPTION:
; 1224 !
; 1225 !
; 1226 ! FORMAL PARAMETERS:
; 1227 ! None
; 1228 !
; 1229 ! IMPLICIT INPUTS:
; 1230 ! None
; 1231 !
; 1232 ! IMPLICIT OUTPUTS:
; 1233 ! None
; 1234 !
; 1235 ! ROUTINE VALUE:
; 1236 ! COMPLETION CODES:
; 1237 ! None
; 1238 !
; 1239 ! SIDE EFFECTS:
; 1240 ! None
; 1241 !--
; 1242
; 1243 begin
; 1244
; 1245 map
; 1246 CCB : ref block field (C_FIELDS),
; 1247 DB : ref block field (D_FIELDS);
; 1248
; 1249 bind
; 1250 LINK = blockvector [.DB [D_ADDR], .CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] - 1, 0, 0, 0, 0; 0, L_LENGTH]
; 1251 : block field (L_FIELDS);
; 1252
; 1253 if .LINK [L_TEST] neq 1
; 1254 then
; 1255 begin
; 1256 SIGNAL (DTR$_NO_DATA_PLEASE, .CCB);
; 1257 CCB [C_FNC] = FC_RCE;
; 1258 LLCRS$ (.CCB);
; 1259 return;
; 1260 end;
; 1261
; 1262 if ( .CCB[$sub_field( C_PRM1, byte_1)] and S$PBOM) neq 0
; 1263 then
; 1264 begin
; 1265 if (LINK[$sub_field( L_RECEIVE_NUMBER, word_0)] = .LINK[$sub_field( L_RECEIVE_NUMBER, word_0)] + 1) eql 0
; 1266 then
; 1267 LINK[$sub_field( L_RECEIVE_NUMBER, word_1)] = .LINK[$sub_field( L_RECEIVE_NUMBER, word_1)] + 1;
; 1268 end;
; 1269
; 1270 MAP$( .CCB[C_BIAS]);
; 1271 selectone .LINK [L_SUB_TEST] of
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 44
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (6)
; 1272 set
; 1273 [0]:
; 1274 begin
; 1275 local
; 1276 DRQ_CCB : ref block field (C_FIELDS);
; 1277
; 1278 if not CCBGT$ (DRQ_CCB) then return SIGNAL (DTR$_NO_CCB);
; 1279 DRQ_CCB [C_BIAS] = DRQ_CCB [C_ADDR] = DRQ_CCB [C_CNT] = 0;
; 1280 SND_DRQ (.DB, .DRQ_CCB, .CCB[C_PIX], .LINK [L_LLA], .LINK [L_ULA], 1);
; 1281 CCB [C_FNC] = FC_RCE;
; 1282 LLCRS$ (.CCB);
; 1283
; 1284 end;
; 1285
; 1286 [1, 2]:
; 1287 begin
; 1288 if
; 1289 begin
; 1290 if ( .CCB[$sub_field( C_PRM1, byte_1)] and S$PBOM) neq 0
; 1291 then
; 1292 begin
; 1293 if ch$eql( 4, .CCB[C_ADDR], 4, ch$ptr(LINK[$sub_field( L_RECEIVE_NUMBER, word_0)]), 0)
; 1294 then
; 1295 true
; 1296 else
; 1297 begin
; 1298 SIGNAL (DTR$_BAD_SEQUENCE_NUMBER, .CCB);
; 1299 false
; 1300 end
; 1301 end
; 1302 else
; 1303 true
; 1304 end
; 1305 and
; 1306 begin
; 1307 if .LINK[L_SUB_TEST] eql 2
; 1308 then
; 1309 begin
; 1310 if PATTERN_CHECK( .DB, .CCB)
; 1311 then
; 1312 true
; 1313 else
; 1314 begin
; 1315 SIGNAL (DTR$_BAD_PATTERN, .CCB);
; 1316 false
; 1317 end
; 1318 end
; 1319 else
; 1320 true
; 1321 end
; 1322 then
; 1323 begin
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 45
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (6)
; 1324 local
; 1325 DRQ_CCB : ref block field (C_FIELDS);
; 1326
; 1327 if not CCBGT$ (DRQ_CCB) then return SIGNAL (DTR$_NO_CCB);
; 1328 DRQ_CCB [C_BIAS] = DRQ_CCB [C_ADDR] = DRQ_CCB [C_CNT] = 0;
; 1329 SND_DRQ (.DB, .DRQ_CCB, .CCB[C_PIX], .LINK [L_LLA], .LINK [L_ULA], 1);
; 1330 end
; 1331 else
; 1332 begin
; 1333 local
; 1334 DIS_CCB: ref block field (C_FIELDS);
; 1335 if not CCBGT$ (DIS_CCB) then signal_stop (DTR$_NO_CCB);
; 1336 DIS_CCB [C_BIAS] = DIS_CCB [C_ADDR] = DIS_CCB [C_CNT] = 0;
; 1337 SND_DIS (.DB, .DIS_CCB, .CCB[C_PIX], .LINK[L_LLA], .LINK[L_ULA]);
; 1338 end;
; 1339
; 1340 CCB [C_FNC] = FC_RCE;
; 1341 LLCRS$ (.CCB);
; 1342 end;
; 1343
; 1344 [3] :
; 1345 begin
; 1346
; 1347 local
; 1348 SND_CCB : ref block field (C_FIELDS);
; 1349
; 1350 if not CCBGT$ (SND_CCB) then return SIGNAL (DTR$_NO_CCB);
; 1351
; 1352 SND_CCB [C_STK] = .CCB;
; 1353 SND_CCB [C_BIAS] = .CCB [C_BIAS];
; 1354 SND_CCB [C_ADDR] = .CCB [C_ADDR];
; 1355 SND_CCB [C_CNT] = .CCB [C_CNT];
; 1356 SND_CCB [C_CHN] = .CCB [C_CHN];
; 1357 SND_SND (.DB, .SND_CCB, .CCB [C_PIX], .LINK [L_LLA], .LINK [L_ULA],
; 1358 (if ( .CCB[$sub_field( C_PRM1, byte_1)] and S$PEOM) neq 0 then S$PEOM else 0));
; 1359 end;
; 1360 tes;
; 1361
; 1362 end; !of routine RCV_DAT
.SBTTL RCV.DAT
002374 .PSECT $CODE$, RO
000000 010402 RCV.DAT:MOV R4,R2 ; *,CCB 1220
000002 005004 CLR R4 ; 1250
000004 156204 000024 BISB 24(R2),R4 ; *(CCB),*
000010 072427 000005 ASH #5,R4
000014 066504 000004 ADD 4(R5),R4 ; *(DB),*
000020 012701 177740 MOV #-40,R1 ; 1243
000024 060401 ADD R4,R1
000026 012746 000002 MOV #2,-(SP) ; 1253
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 46
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (6)
000032 060116 ADD R1,(SP)
000034 017600 000000 MOV @0(SP),R0
000040 105000 CLRB R0
000042 020027 000400 CMP R0,#400
000046 001410 BEQ 1$
000050 010246 MOV R2,-(SP) ; CCB,* 1256
000052 012746 100133 MOV #-77645,-(SP)
000056 012746 000002 MOV #2,-(SP)
000062 004767 000000G JSR PC,$IGNAL
000066 000561 BR 8$ ; 1257
000070 005003 1$: CLR R3 ; 1262
000072 032762 000400 000024 BIT #400,24(R2) ; *,*(CCB)
000100 001406 BEQ 2$
000102 005203 INC R3
000104 005261 000024 INC 24(R1) ; 1265
000110 001002 BNE 2$
000112 005261 000026 INC 26(R1) ; 1267
000116 016267 000016 000000G 2$: MOV 16(R2),KISAR6 ; *(CCB),* 1270
000124 116100 000004 MOVB 4(R1),R0 ; 1271
000130 001035 BNE 3$
000132 004767 000000G JSR PC,$CCBGT ; 1278
000136 103511 BLO 7$
000140 005064 000022 CLR 22(R4) ; *(DRQ.CCB) 1279
000144 005064 000020 CLR 20(R4) ; *(DRQ.CCB)
000150 005064 000016 CLR 16(R4) ; *(DRQ.CCB)
000154 005046 CLR -(SP) ; 1280
000156 116216 000011 MOVB 11(R2),(SP) ; *(CCB),*
000162 005046 CLR -(SP)
000164 117616 000004 MOVB @4(SP),(SP)
000170 111100 MOVB (R1),R0
000172 010046 MOV R0,-(SP)
000174 012746 000001 MOV #1,-(SP)
000200 004767 000000V JSR PC,SND.DRQ
000204 112762 000004 000012 MOVB #4,12(R2) ; *,*(CCB) 1281
000212 010204 MOV R2,R4 ; CCB,* 1282
000214 004767 000000G JSR PC,$SCHED
000220 000167 000452 JMP 17$ ; 1274
000224 003546 3$: BLE 12$ ; 1271
000226 020027 000002 CMP R0,#2
000232 003143 BGT 12$
000234 006003 ROR R3 ; 1290
000236 103024 BCC 4$
000240 012746 000004 MOV #4,-(SP) ; 1293
000244 016246 000020 MOV 20(R2),-(SP) ; *(CCB),*
000250 012746 000004 MOV #4,-(SP)
000254 010146 MOV R1,-(SP)
000256 062716 000024 ADD #24,(SP)
000262 005046 CLR -(SP)
000264 004767 000000G JSR PC,BL$EQL
000270 062706 000012 ADD #12,SP
000274 006000 ROR R0
000276 103404 BLO 4$
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 47
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (6)
000300 010246 MOV R2,-(SP) ; CCB,* 1298
000302 012746 100173 MOV #-77605,-(SP)
000306 000414 BR 5$
000310 126127 000004 000002 4$: CMPB 4(R1),#2 ; 1307
000316 001017 BNE 6$
000320 010204 MOV R2,R4 ; CCB,* 1310
000322 004767 000000V JSR PC,PATTERN.CHECK
000326 006000 ROR R0
000330 103412 BLO 6$
000332 010246 MOV R2,-(SP) ; CCB,* 1315
000334 012746 100203 MOV #-77575,-(SP)
000340 012746 000002 5$: MOV #2,-(SP)
000344 004767 000000G JSR PC,$IGNAL
000350 062706 000006 ADD #6,SP
000354 000427 BR 9$ ; 1314
000356 004767 000000G 6$: JSR PC,$CCBGT ; 1327
000362 103475 7$: BLO 13$
000364 005064 000022 CLR 22(R4) ; *(DRQ.CCB) 1328
000370 005064 000020 CLR 20(R4) ; *(DRQ.CCB)
000374 005064 000016 CLR 16(R4) ; *(DRQ.CCB)
000400 005046 CLR -(SP) ; 1329
000402 116216 000011 MOVB 11(R2),(SP) ; *(CCB),*
000406 005046 CLR -(SP)
000410 117616 000004 MOVB @4(SP),(SP)
000414 111100 MOVB (R1),R0
000416 010046 MOV R0,-(SP)
000420 012746 000001 MOV #1,-(SP)
000424 004767 000000V JSR PC,SND.DRQ
000430 005726 TST (SP)+ ; 1323
000432 000432 8$: BR 11$ ; 1288
000434 004767 000000G 9$: JSR PC,$CCBGT ; 1335
000440 103007 BHIS 10$
000442 012746 100024 MOV #-77754,-(SP)
000446 012746 000001 MOV #1,-(SP)
000452 004767 000000G JSR PC,$STOP
000456 022626 CMP (SP)+,(SP)+
000460 005064 000022 10$: CLR 22(R4) ; *(DIS.CCB) 1336
000464 005064 000020 CLR 20(R4) ; *(DIS.CCB)
000470 005064 000016 CLR 16(R4) ; *(DIS.CCB)
000474 005046 CLR -(SP) ; 1337
000476 116216 000011 MOVB 11(R2),(SP) ; *(CCB),*
000502 005046 CLR -(SP)
000504 117616 000004 MOVB @4(SP),(SP)
000510 111100 MOVB (R1),R0
000512 010046 MOV R0,-(SP)
000514 004767 000000V JSR PC,SND.DIS
000520 112762 000004 000012 11$: MOVB #4,12(R2) ; *,*(CCB) 1340
000526 010204 MOV R2,R4 ; CCB,* 1341
000530 004767 000000G JSR PC,$SCHED
000534 062706 000006 ADD #6,SP ; 1287
000540 000460 BR 18$ ; 1271
000542 020027 000003 12$: CMP R0,#3
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 48
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (6)
000546 001055 BNE 18$
000550 004767 000000G JSR PC,$CCBGT ; 1350
000554 103010 BHIS 14$
000556 012746 100024 13$: MOV #-77754,-(SP)
000562 012746 000001 MOV #1,-(SP)
000566 004767 000000G JSR PC,$IGNAL
000572 022626 CMP (SP)+,(SP)+
000574 000442 BR 18$
000576 010264 000004 14$: MOV R2,4(R4) ; CCB,*(SND.CCB) 1352
000602 016264 000016 000016 MOV 16(R2),16(R4) ; *(CCB),*(SND.CCB) 1353
000610 016264 000020 000020 MOV 20(R2),20(R4) ; *(CCB),*(SND.CCB) 1354
000616 016264 000022 000022 MOV 22(R2),22(R4) ; *(CCB),*(SND.CCB) 1355
000624 016264 000002 000002 MOV 2(R2),2(R4) ; *(CCB),*(SND.CCB) 1356
000632 005046 CLR -(SP) ; 1357
000634 116216 000011 MOVB 11(R2),(SP) ; *(CCB),*
000640 005046 CLR -(SP)
000642 117616 000004 MOVB @4(SP),(SP)
000646 111100 MOVB (R1),R0
000650 010046 MOV R0,-(SP)
000652 032762 002000 000024 BIT #2000,24(R2) ; *,*(CCB) 1358
000660 001403 BEQ 15$
000662 012746 000004 MOV #4,-(SP)
000666 000401 BR 16$
000670 005046 15$: CLR -(SP)
000672 004767 000000V 16$: JSR PC,SND.SND ; 1357
000676 062706 000010 17$: ADD #10,SP ; 1345
000702 005726 18$: TST (SP)+ ; 1220
000704 000207 RTS PC
; Routine Size: 227 words, Routine Base: $CODE$ + 2374
; Maximum stack depth per invocation: 7 words
; 1363
; 1364
; 1365
; 1366
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 49
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (7)
; 1367 routine RCV_DIS (DB, CCB) : MCB_DB_CCB novalue =
; 1368
; 1369 !++
; 1370 ! FUNCTIONAL DESCRIPTION:
; 1371 !
; 1372 !
; 1373 ! FORMAL PARAMETERS:
; 1374 ! None
; 1375 !
; 1376 ! IMPLICIT INPUTS:
; 1377 ! None
; 1378 !
; 1379 ! IMPLICIT OUTPUTS:
; 1380 ! None
; 1381 !
; 1382 ! ROUTINE VALUE:
; 1383 ! COMPLETION CODES:
; 1384 ! None
; 1385 !
; 1386 ! SIDE EFFECTS:
; 1387 ! None
; 1388 !--
; 1389
; 1390 begin
; 1391
; 1392 map
; 1393 CCB : ref block field (C_FIELDS),
; 1394 DB : ref block field (D_FIELDS);
; 1395
; 1396 bind
; 1397 LINK = blockvector [.DB [D_ADDR], .CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] - 1, 0, 0, 0, 0; 0, L_LENGTH]
; 1398 : block field (L_FIELDS);
; 1399
; 1400 if .CCB [C_STS] neq S_SSUC
; 1401 then
; 1402 SIGNAL (DTR$_NO_DISCONNECT, .CCB, .CCB [C_STS]);
; 1403
; 1404 LINK [ls_dip] = false;
; 1405 LINK [LS_ACTIVE] = FALSE;
; 1406 CCBRT$ (.CCB);
; 1407 end; !of routine RCV_DIS
.SBTTL RCV.DIS
000000 010401 RCV.DIS:MOV R4,R1 ; *,CCB 1367
000002 005004 CLR R4 ; 1397
000004 156104 000024 BISB 24(R1),R4 ; *(CCB),*
000010 072427 000005 ASH #5,R4
000014 066504 000004 ADD 4(R5),R4 ; *(DB),*
000020 162704 000040 SUB #40,R4 ; 1390
000024 026127 000014 000001 CMP 14(R1),#1 ; *(CCB),* 1400
000032 001413 BEQ 1$
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 50
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (7)
000034 016146 000014 MOV 14(R1),-(SP) ; *(CCB),* 1402
000040 010146 MOV R1,-(SP) ; CCB,*
000042 012746 100073 MOV #-77705,-(SP)
000046 012746 000003 MOV #3,-(SP)
000052 004767 000000G JSR PC,$IGNAL
000056 062706 000010 ADD #10,SP
000062 042714 004400 1$: BIC #4400,(R4) ; 1405
000066 010104 MOV R1,R4 ; CCB,* 1406
000070 004767 000000G JSR PC,$CCBRT
000074 000207 RTS PC ; 1367
; Routine Size: 31 words, Routine Base: $CODE$ + 3302
; Maximum stack depth per invocation: 5 words
; 1408
; 1409
; 1410
; 1411
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 51
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (8)
; 1412 routine RCV_DRQ (DB, CCB) : MCB_DB_CCB novalue =
; 1413
; 1414 !++
; 1415 ! FUNCTIONAL DESCRIPTION:
; 1416 !
; 1417 !
; 1418 ! FORMAL PARAMETERS:
; 1419 ! None
; 1420 !
; 1421 ! IMPLICIT INPUTS:
; 1422 ! None
; 1423 !
; 1424 ! IMPLICIT OUTPUTS:
; 1425 ! None
; 1426 !
; 1427 ! ROUTINE VALUE:
; 1428 ! COMPLETION CODES:
; 1429 ! None
; 1430 !
; 1431 ! SIDE EFFECTS:
; 1432 ! None
; 1433 !--
; 1434
; 1435 begin
; 1436
; 1437 map
; 1438 CCB : ref block field (C_FIELDS),
; 1439 DB : ref block field (D_FIELDS);
; 1440
; 1441 if .CCB [C_STS] neq S_SSUC
; 1442 then
; 1443 SIGNAL (DTR$_NO_DATA_REQUEST, .CCB, .CCB [C_STS]);
; 1444
; 1445 $MCB_RETURN_CCB (.CCB);
; 1446 end; !of routine RCV_DRQ
.SBTTL RCV.DRQ
000000 026427 000014 000001 RCV.DRQ:CMP 14(R4),#1 ; *(CCB),* 1441
000006 001413 BEQ 1$
000010 016446 000014 MOV 14(R4),-(SP) ; *(CCB),* 1443
000014 010446 MOV R4,-(SP) ; CCB,*
000016 012746 100123 MOV #-77655,-(SP)
000022 012746 000003 MOV #3,-(SP)
000026 004767 000000G JSR PC,$IGNAL
000032 062706 000010 ADD #10,SP
000036 004767 000000G 1$: JSR PC,$CCBRT ; 1445
000042 000207 RTS PC ; 1412
; Routine Size: 18 words, Routine Base: $CODE$ + 3400
; Maximum stack depth per invocation: 5 words
; 1447
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 52
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (8)
; 1448
; 1449
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 53
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (9)
; 1450 routine RCV_DSR (DB, CCB) : MCB_DB_CCB novalue =
; 1451
; 1452 !++
; 1453 ! FUNCTIONAL DESCRIPTION:
; 1454 !
; 1455 !
; 1456 ! FORMAL PARAMETERS:
; 1457 ! None
; 1458 !
; 1459 ! IMPLICIT INPUTS:
; 1460 ! None
; 1461 !
; 1462 ! IMPLICIT OUTPUTS:
; 1463 ! None
; 1464 !
; 1465 ! ROUTINE VALUE:
; 1466 ! COMPLETION CODES:
; 1467 ! None
; 1468 !
; 1469 ! SIDE EFFECTS:
; 1470 ! None
; 1471 !--
; 1472
; 1473 begin
; 1474
; 1475 map
; 1476 CCB : ref block field (C_FIELDS),
; 1477 DB : ref block field (D_FIELDS);
; 1478
; 1479 local
; 1480 DIS_CCB : ref block field (C_FIELDS),
; 1481 LLA,
; 1482 SC_PIX,
; 1483 ULA;
; 1484
; 1485 SC_PIX = .CCB [C_PIX];
; 1486 LLA = .CCB [C_LIN];
; 1487 ULA = .CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)];
; 1488 CCB [C_FNC] = FC_RCE;
; 1489 LLCRS$ (.CCB);
; 1490
; 1491 if not CCBGT$ (DIS_CCB) then signal_stop (DTR$_NO_CCB);
; 1492
; 1493 DIS_CCB [C_BIAS] = DIS_CCB [C_ADDR] = DIS_CCB [C_CNT] = 0;
; 1494 SND_DIS (.DB, .DIS_CCB, .SC_PIX, .LLA, .ULA);
; 1495 end; !of routine RCV_DSR
.SBTTL RCV.DSR
000000 005001 RCV.DSR:CLR R1 ; SC.PIX 1485
000002 156401 000011 BISB 11(R4),R1 ; *(CCB),SC.PIX
000006 005002 CLR R2 ; LLA 1486
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 54
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (9)
000010 156402 000010 BISB 10(R4),R2 ; *(CCB),LLA
000014 005003 CLR R3 ; ULA 1487
000016 156403 000024 BISB 24(R4),R3 ; *(CCB),ULA
000022 112764 000004 000012 MOVB #4,12(R4) ; *,*(CCB) 1488
000030 004767 000000G JSR PC,$SCHED ; 1489
000034 004767 000000G JSR PC,$CCBGT ; 1491
000040 103007 BHIS 1$
000042 012746 100024 MOV #-77754,-(SP)
000046 012746 000001 MOV #1,-(SP)
000052 004767 000000G JSR PC,$STOP
000056 022626 CMP (SP)+,(SP)+
000060 005064 000022 1$: CLR 22(R4) ; *(DIS.CCB) 1493
000064 005064 000020 CLR 20(R4) ; *(DIS.CCB)
000070 005064 000016 CLR 16(R4) ; *(DIS.CCB)
000074 010146 MOV R1,-(SP) ; SC.PIX,* 1494
000076 010246 MOV R2,-(SP) ; LLA,*
000100 010346 MOV R3,-(SP) ; ULA,*
000102 004767 000000V JSR PC,SND.DIS
000106 062706 000006 ADD #6,SP ; 1473
000112 000207 RTS PC ; 1450
; Routine Size: 38 words, Routine Base: $CODE$ + 3444
; Maximum stack depth per invocation: 4 words
; 1496
; 1497
; 1498
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 55
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (10)
; 1499 routine RCV_INT (DB, CCB) : MCB_DB_CCB novalue =
; 1500
; 1501 !++
; 1502 ! FUNCTIONAL DESCRIPTION:
; 1503 !
; 1504 !
; 1505 ! FORMAL PARAMETERS:
; 1506 ! None
; 1507 !
; 1508 ! IMPLICIT INPUTS:
; 1509 ! None
; 1510 !
; 1511 ! IMPLICIT OUTPUTS:
; 1512 ! None
; 1513 !
; 1514 ! ROUTINE VALUE:
; 1515 ! COMPLETION CODES:
; 1516 ! None
; 1517 !
; 1518 ! SIDE EFFECTS:
; 1519 ! None
; 1520 !--
; 1521
; 1522 begin
; 1523
; 1524 map
; 1525 CCB : ref block field (C_FIELDS),
; 1526 DB : ref block field (D_FIELDS);
; 1527
; 1528 bind
; 1529 LINK = blockvector [.DB [D_ADDR], .CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] - 1, 0, 0, 0, 0; 0, L_LENGTH]
; 1530 : block field (L_FIELDS);
; 1531
; 1532 if .LINK [L_TEST] neq 3
; 1533 then
; 1534 begin
; 1535 SIGNAL (DTR$_NO_INTERRUPT_PLEASE, .CCB);
; 1536 CCB [C_FNC] = FC_RCE;
; 1537 LLCRS$ (.CCB);
; 1538 return;
; 1539 end;
; 1540
; 1541 if (LINK[$sub_field( L_RECEIVE_NUMBER, word_0)] = .LINK[$sub_field( L_RECEIVE_NUMBER, word_0)] + 1) eql 0
; 1542 then
; 1543 LINK[$sub_field( L_RECEIVE_NUMBER, word_1)] = .LINK[$sub_field( L_RECEIVE_NUMBER, word_1)] + 1;
; 1544
; 1545 MAP$( .CCB[C_BIAS]);
; 1546
; 1547 selectone .LINK [L_SUB_TEST] of
; 1548 set
; 1549 [0] :
; 1550 begin
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 56
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (10)
; 1551
; 1552 local
; 1553 IRQ_CCB : ref block field (C_FIELDS);
; 1554
; 1555 if not CCBGT$ (IRQ_CCB) then return SIGNAL (DTR$_NO_CCB);
; 1556 IRQ_CCB [C_BIAS] = IRQ_CCB [C_ADDR] = IRQ_CCB [C_CNT] = 0;
; 1557 SND_IRQ (.DB, .IRQ_CCB, .CCB[C_PIX], .LINK [L_LLA], .LINK [L_ULA]);
; 1558
; 1559 CCB [C_FNC] = FC_RCE;
; 1560 LLCRS$ (.CCB);
; 1561 end;
; 1562
; 1563 [1, 2]:
; 1564 begin
; 1565 if
; 1566 begin
; 1567 if ch$eql( 4, .CCB[C_ADDR], 4, ch$ptr(LINK[$sub_field( L_RECEIVE_NUMBER, word_0)]), 0)
; 1568 then
; 1569 true
; 1570 else
; 1571 begin
; 1572 SIGNAL (DTR$_BAD_SEQUENCE_NUMBER, .CCB);
; 1573 false
; 1574 end
; 1575 end
; 1576 and
; 1577 begin
; 1578 if .LINK[L_SUB_TEST] eql 2
; 1579 then
; 1580 begin
; 1581 if PATTERN_CHECK( .DB, .CCB)
; 1582 then
; 1583 true
; 1584 else
; 1585 begin
; 1586 SIGNAL (DTR$_BAD_PATTERN, .CCB);
; 1587 false
; 1588 end
; 1589 end
; 1590 else
; 1591 true
; 1592 end
; 1593
; 1594 then
; 1595 begin
; 1596 local
; 1597 IRQ_CCB : ref block field (C_FIELDS);
; 1598
; 1599 if not CCBGT$ (IRQ_CCB) then return SIGNAL (DTR$_NO_CCB);
; 1600 IRQ_CCB [C_BIAS] = IRQ_CCB [C_ADDR] = IRQ_CCB [C_CNT] = 0;
; 1601 SND_IRQ (.DB, .IRQ_CCB, .CCB[C_PIX], .LINK [L_LLA], .LINK [L_ULA]);
; 1602 end
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 57
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (10)
; 1603 else
; 1604 begin
; 1605 local
; 1606 DIS_CCB: ref block field (C_FIELDS);
; 1607
; 1608 SIGNAL (DTR$_BAD_SEQUENCE_NUMBER, .CCB);
; 1609 if not CCBGT$ (DIS_CCB) then signal_stop (DTR$_NO_CCB);
; 1610 DIS_CCB [C_BIAS] = DIS_CCB [C_ADDR] = DIS_CCB [C_CNT] = 0;
; 1611 SND_DIS (.DB, .DIS_CCB, .CCB[C_PIX], .LINK[L_LLA], .LINK[L_ULA]);
; 1612 end;
; 1613 CCB [C_FNC] = FC_RCE;
; 1614 LLCRS$ (.CCB);
; 1615 end;
; 1616
; 1617 [3] :
; 1618 begin
; 1619
; 1620 local
; 1621 SNI_CCB : ref block field (C_FIELDS);
; 1622
; 1623 if not CCBGT$ (SNI_CCB) then return SIGNAL (DTR$_NO_CCB);
; 1624
; 1625 SNI_CCB [C_STK] = .CCB;
; 1626 SNI_CCB [C_BIAS] = .CCB [C_BIAS];
; 1627 SNI_CCB [C_ADDR] = .CCB [C_ADDR];
; 1628 SNI_CCB [C_CNT] = .CCB [C_CNT];
; 1629 SNI_CCB [C_CHN] = .CCB [C_CHN];
; 1630 SND_SNI (.DB, .SNI_CCB, .CCB [C_PIX], .LINK [L_LLA], .LINK [L_ULA]);
; 1631 end;
; 1632 tes;
; 1633
; 1634 end; !of routine RCV_INT
.SBTTL RCV.INT
000000 010402 RCV.INT:MOV R4,R2 ; *,CCB 1499
000002 005004 CLR R4 ; 1529
000004 156204 000024 BISB 24(R2),R4 ; *(CCB),*
000010 072427 000005 ASH #5,R4
000014 066504 000004 ADD 4(R5),R4 ; *(DB),*
000020 012701 177740 MOV #-40,R1 ; 1522
000024 060401 ADD R4,R1
000026 012746 000002 MOV #2,-(SP) ; 1532
000032 060116 ADD R1,(SP)
000034 017600 000000 MOV @0(SP),R0
000040 105000 CLRB R0
000042 020027 001400 CMP R0,#1400
000046 001410 BEQ 1$
000050 010246 MOV R2,-(SP) ; CCB,* 1535
000052 012746 100143 MOV #-77635,-(SP)
000056 012746 000002 MOV #2,-(SP)
000062 004767 000000G JSR PC,$IGNAL
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 58
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (10)
000066 000560 BR 10$ ; 1536
000070 012703 000024 1$: MOV #24,R3 ; 1541
000074 060103 ADD R1,R3
000076 005213 INC (R3)
000100 001002 BNE 2$
000102 005261 000026 INC 26(R1) ; 1543
000106 016267 000016 000000G 2$: MOV 16(R2),KISAR6 ; *(CCB),* 1545
000114 116100 000004 MOVB 4(R1),R0 ; 1547
000120 001004 BNE 3$
000122 004767 000000G JSR PC,$CCBGT ; 1555
000126 103555 BLO 12$
000130 000454 BR 7$ ; 1556
000132 003545 3$: BLE 11$ ; 1547
000134 020027 000002 CMP R0,#2
000140 003142 BGT 11$
000142 012746 000004 MOV #4,-(SP) ; 1567
000146 016246 000020 MOV 20(R2),-(SP) ; *(CCB),*
000152 012746 000004 MOV #4,-(SP)
000156 010346 MOV R3,-(SP)
000160 005046 CLR -(SP)
000162 004767 000000G JSR PC,BL$EQL
000166 062706 000012 ADD #12,SP
000172 006000 ROR R0
000174 103404 BLO 4$
000176 010246 MOV R2,-(SP) ; CCB,* 1572
000200 012746 100173 MOV #-77605,-(SP)
000204 000414 BR 5$
000206 126127 000004 000002 4$: CMPB 4(R1),#2 ; 1578
000214 001017 BNE 6$
000216 010204 MOV R2,R4 ; CCB,* 1581
000220 004767 000000V JSR PC,PATTERN.CHECK
000224 006000 ROR R0
000226 103412 BLO 6$
000230 010246 MOV R2,-(SP) ; CCB,* 1586
000232 012746 100203 MOV #-77575,-(SP)
000236 012746 000002 5$: MOV #2,-(SP)
000242 004767 000000G JSR PC,$IGNAL
000246 062706 000006 ADD #6,SP
000252 000424 BR 8$ ; 1585
000254 004767 000000G 6$: JSR PC,$CCBGT ; 1599
000260 103500 BLO 12$
000262 005064 000022 7$: CLR 22(R4) ; *(IRQ.CCB) 1600
000266 005064 000020 CLR 20(R4) ; *(IRQ.CCB)
000272 005064 000016 CLR 16(R4) ; *(IRQ.CCB)
000276 005046 CLR -(SP) ; 1601
000300 116216 000011 MOVB 11(R2),(SP) ; *(CCB),*
000304 005046 CLR -(SP)
000306 117616 000004 MOVB @4(SP),(SP)
000312 111100 MOVB (R1),R0
000314 010046 MOV R0,-(SP)
000316 004767 000000V JSR PC,SND.IRQ
000322 000442 BR 10$ ; 1565
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 59
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (10)
000324 010246 8$: MOV R2,-(SP) ; CCB,* 1608
000326 012746 100173 MOV #-77605,-(SP)
000332 012746 000002 MOV #2,-(SP)
000336 004767 000000G JSR PC,$IGNAL
000342 004767 000000G JSR PC,$CCBGT ; 1609
000346 103007 BHIS 9$
000350 012716 100024 MOV #-77754,(SP)
000354 012746 000001 MOV #1,-(SP)
000360 004767 000000G JSR PC,$STOP
000364 005726 TST (SP)+
000366 005064 000022 9$: CLR 22(R4) ; *(DIS.CCB) 1610
000372 005064 000020 CLR 20(R4) ; *(DIS.CCB)
000376 005064 000016 CLR 16(R4) ; *(DIS.CCB)
000402 005016 CLR (SP) ; 1611
000404 116216 000011 MOVB 11(R2),(SP) ; *(CCB),*
000410 005046 CLR -(SP)
000412 117616 000010 MOVB @10(SP),(SP)
000416 111100 MOVB (R1),R0
000420 010046 MOV R0,-(SP)
000422 004767 000000V JSR PC,SND.DIS
000426 022626 CMP (SP)+,(SP)+ ; 1604
000430 112762 000004 000012 10$: MOVB #4,12(R2) ; *,*(CCB) 1613
000436 010204 MOV R2,R4 ; CCB,* 1614
000440 004767 000000G JSR PC,$SCHED
000444 000446 BR 14$ ; 1564
000446 020027 000003 11$: CMP R0,#3 ; 1547
000452 001045 BNE 15$
000454 004767 000000G JSR PC,$CCBGT ; 1623
000460 103010 BHIS 13$
000462 012746 100024 12$: MOV #-77754,-(SP)
000466 012746 000001 MOV #1,-(SP)
000472 004767 000000G JSR PC,$IGNAL
000476 022626 CMP (SP)+,(SP)+
000500 000432 BR 15$
000502 010264 000004 13$: MOV R2,4(R4) ; CCB,*(SNI.CCB) 1625
000506 016264 000016 000016 MOV 16(R2),16(R4) ; *(CCB),*(SNI.CCB) 1626
000514 016264 000020 000020 MOV 20(R2),20(R4) ; *(CCB),*(SNI.CCB) 1627
000522 016264 000022 000022 MOV 22(R2),22(R4) ; *(CCB),*(SNI.CCB) 1628
000530 016264 000002 000002 MOV 2(R2),2(R4) ; *(CCB),*(SNI.CCB) 1629
000536 005046 CLR -(SP) ; 1630
000540 116216 000011 MOVB 11(R2),(SP) ; *(CCB),*
000544 005046 CLR -(SP)
000546 117616 000004 MOVB @4(SP),(SP)
000552 111100 MOVB (R1),R0
000554 010046 MOV R0,-(SP)
000556 004767 000000V JSR PC,SND.SNI
000562 062706 000006 14$: ADD #6,SP ; 1618
000566 005726 15$: TST (SP)+ ; 1499
000570 000207 RTS PC
; Routine Size: 189 words, Routine Base: $CODE$ + 3560
; Maximum stack depth per invocation: 7 words
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 60
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (10)
; 1635
; 1636
; 1637
; 1638
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 61
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (11)
; 1639 routine RCV_IRQ (DB, CCB) : MCB_DB_CCB novalue =
; 1640
; 1641 !++
; 1642 ! FUNCTIONAL DESCRIPTION:
; 1643 !
; 1644 !
; 1645 ! FORMAL PARAMETERS:
; 1646 ! None
; 1647 !
; 1648 ! IMPLICIT INPUTS:
; 1649 ! None
; 1650 !
; 1651 ! IMPLICIT OUTPUTS:
; 1652 ! None
; 1653 !
; 1654 ! ROUTINE VALUE:
; 1655 ! COMPLETION CODES:
; 1656 ! None
; 1657 !
; 1658 ! SIDE EFFECTS:
; 1659 ! None
; 1660 !--
; 1661
; 1662 begin
; 1663
; 1664 map
; 1665 CCB : ref block field (C_FIELDS),
; 1666 DB : ref block field (D_FIELDS);
; 1667
; 1668 if .CCB [C_STS] neq S_SSUC
; 1669 then
; 1670 SIGNAL (DTR$_NO_INTERRUPT_REQUEST, .CCB, .CCB [C_STS]);
; 1671
; 1672 $MCB_RETURN_CCB (.CCB);
; 1673 end; !of routine RCV_IRQ
.SBTTL RCV.IRQ
000000 026427 000014 000001 RCV.IRQ:CMP 14(R4),#1 ; *(CCB),* 1668
000006 001413 BEQ 1$
000010 016446 000014 MOV 14(R4),-(SP) ; *(CCB),* 1670
000014 010446 MOV R4,-(SP) ; CCB,*
000016 012746 100153 MOV #-77625,-(SP)
000022 012746 000003 MOV #3,-(SP)
000026 004767 000000G JSR PC,$IGNAL
000032 062706 000010 ADD #10,SP
000036 004767 000000G 1$: JSR PC,$CCBRT ; 1672
000042 000207 RTS PC ; 1639
; Routine Size: 18 words, Routine Base: $CODE$ + 4352
; Maximum stack depth per invocation: 5 words
; 1674
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 62
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (11)
; 1675
; 1676
; 1677
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 63
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (12)
; 1678 routine RCV_REJ (DB, CCB) : MCB_DB_CCB novalue =
; 1679
; 1680 !++
; 1681 ! FUNCTIONAL DESCRIPTION:
; 1682 !
; 1683 !
; 1684 ! FORMAL PARAMETERS:
; 1685 ! None
; 1686 !
; 1687 ! IMPLICIT INPUTS:
; 1688 ! None
; 1689 !
; 1690 ! IMPLICIT OUTPUTS:
; 1691 ! None
; 1692 !
; 1693 ! ROUTINE VALUE:
; 1694 ! COMPLETION CODES:
; 1695 ! None
; 1696 !
; 1697 ! SIDE EFFECTS:
; 1698 ! None
; 1699 !--
; 1700
; 1701 begin
; 1702
; 1703 map
; 1704 CCB : ref block field (C_FIELDS),
; 1705 DB : ref block field (D_FIELDS);
; 1706
; 1707 bind
; 1708 LINK = blockvector [.DB [D_ADDR], .CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] - 1, 0, 0, 0, 0; 0, L_LENGTH]
; 1709 : block field (L_FIELDS);
; 1710
; 1711 if .CCB [C_STS] neq S_SSUC
; 1712 then
; 1713 SIGNAL (DTR$_NO_REJECT, .CCB, .CCB [C_STS]);
; 1714
; 1715 LINK [ls_dip] = false;
; 1716 LINK [LS_ACTIVE] = FALSE;
; 1717 CCBRT$ (.CCB);
; 1718 end; !of routine RCV_REJ
.SBTTL RCV.REJ
000000 010401 RCV.REJ:MOV R4,R1 ; *,CCB 1678
000002 005004 CLR R4 ; 1708
000004 156104 000024 BISB 24(R1),R4 ; *(CCB),*
000010 072427 000005 ASH #5,R4
000014 066504 000004 ADD 4(R5),R4 ; *(DB),*
000020 162704 000040 SUB #40,R4 ; 1701
000024 026127 000014 000001 CMP 14(R1),#1 ; *(CCB),* 1711
000032 001413 BEQ 1$
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 64
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (12)
000034 016146 000014 MOV 14(R1),-(SP) ; *(CCB),* 1713
000040 010146 MOV R1,-(SP) ; CCB,*
000042 012746 100103 MOV #-77675,-(SP)
000046 012746 000003 MOV #3,-(SP)
000052 004767 000000G JSR PC,$IGNAL
000056 062706 000010 ADD #10,SP
000062 042714 004400 1$: BIC #4400,(R4) ; 1716
000066 010104 MOV R1,R4 ; CCB,* 1717
000070 004767 000000G JSR PC,$CCBRT
000074 000207 RTS PC ; 1678
; Routine Size: 31 words, Routine Base: $CODE$ + 4416
; Maximum stack depth per invocation: 5 words
; 1719
; 1720
; 1721
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 65
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (13)
; 1722 routine RCV_SND (DB, CCB) : MCB_DB_CCB novalue =
; 1723
; 1724 !++
; 1725 ! FUNCTIONAL DESCRIPTION:
; 1726 !
; 1727 !
; 1728 ! FORMAL PARAMETERS:
; 1729 ! None
; 1730 !
; 1731 ! IMPLICIT INPUTS:
; 1732 ! None
; 1733 !
; 1734 ! IMPLICIT OUTPUTS:
; 1735 ! None
; 1736 !
; 1737 ! ROUTINE VALUE:
; 1738 ! COMPLETION CODES:
; 1739 ! None
; 1740 !
; 1741 ! SIDE EFFECTS:
; 1742 ! None
; 1743 !--
; 1744
; 1745 begin
; 1746
; 1747 map
; 1748 CCB : ref block field (C_FIELDS),
; 1749 DB : ref block field (D_FIELDS);
; 1750
; 1751 begin
; 1752
; 1753 bind
; 1754 RCV_CCB = .CCB [C_STK] : block field (C_FIELDS);
; 1755
; 1756 if .CCB [C_STS] neq S_SSUC
; 1757 then
; 1758 SIGNAL (DTR$_NO_SEND_DATA, .CCB, .CCB [C_STS]);
; 1759
; 1760 if .CCB [C_BIAS] eql .RCV_CCB [C_BIAS]
; 1761 then
; 1762 CCB [C_BIAS] = CCB [C_ADDR] = CCB [C_CNT] = 0;
; 1763
; 1764 CCB [C_CHN] = 0;
; 1765 RCV_CCB [C_FNC] = FC_RCE;
; 1766 LLCRS$ (RCV_CCB);
; 1767 CCB [C_STK] = 0;
; 1768 end;
; 1769 SND_DRQ (.DB, .CCB, .CCB [C_PIX], .CCB [C_LIX], .CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)], 1);
; 1770 end; !of routine RCV_SND
.SBTTL RCV.SND
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 66
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (13)
000000 010401 RCV.SND:MOV R4,R1 ; *,CCB 1722
000002 016104 000004 MOV 4(R1),R4 ; *(CCB),* 1751
000006 026127 000014 000001 CMP 14(R1),#1 ; *(CCB),* 1756
000014 001413 BEQ 1$
000016 016146 000014 MOV 14(R1),-(SP) ; *(CCB),* 1758
000022 010146 MOV R1,-(SP) ; CCB,*
000024 012746 100113 MOV #-77665,-(SP)
000030 012746 000003 MOV #3,-(SP)
000034 004767 000000G JSR PC,$IGNAL
000040 062706 000010 ADD #10,SP
000044 026164 000016 000016 1$: CMP 16(R1),16(R4) ; *(CCB),* 1760
000052 001006 BNE 2$
000054 005061 000022 CLR 22(R1) ; *(CCB) 1762
000060 005061 000020 CLR 20(R1) ; *(CCB)
000064 005061 000016 CLR 16(R1) ; *(CCB)
000070 005061 000002 2$: CLR 2(R1) ; *(CCB) 1764
000074 112764 000004 000012 MOVB #4,12(R4) ; 1765
000102 004767 000000G JSR PC,$SCHED ; 1766
000106 005061 000004 CLR 4(R1) ; *(CCB) 1767
000112 005046 CLR -(SP) ; 1769
000114 116116 000011 MOVB 11(R1),(SP) ; *(CCB),*
000120 005046 CLR -(SP)
000122 116116 000010 MOVB 10(R1),(SP) ; *(CCB),*
000126 005046 CLR -(SP)
000130 116116 000024 MOVB 24(R1),(SP) ; *(CCB),*
000134 012746 000001 MOV #1,-(SP)
000140 010104 MOV R1,R4 ; CCB,*
000142 004767 000000V JSR PC,SND.DRQ
000146 062706 000010 ADD #10,SP ; 1745
000152 000207 RTS PC ; 1722
; Routine Size: 54 words, Routine Base: $CODE$ + 4514
; Maximum stack depth per invocation: 5 words
; 1771
; 1772
; 1773
; 1774
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 67
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (14)
; 1775 routine RCV_SNI (DB, CCB) : MCB_DB_CCB novalue =
; 1776
; 1777 !++
; 1778 ! FUNCTIONAL DESCRIPTION:
; 1779 !
; 1780 !
; 1781 ! FORMAL PARAMETERS:
; 1782 ! None
; 1783 !
; 1784 ! IMPLICIT INPUTS:
; 1785 ! None
; 1786 !
; 1787 ! IMPLICIT OUTPUTS:
; 1788 ! None
; 1789 !
; 1790 ! ROUTINE VALUE:
; 1791 ! COMPLETION CODES:
; 1792 ! None
; 1793 !
; 1794 ! SIDE EFFECTS:
; 1795 ! None
; 1796 !--
; 1797
; 1798 begin
; 1799
; 1800 map
; 1801 CCB : ref block field (C_FIELDS),
; 1802 DB : ref block field (D_FIELDS);
; 1803
; 1804 begin
; 1805
; 1806 bind
; 1807 RCV_CCB = .CCB [C_STK] : block field (C_FIELDS);
; 1808
; 1809 if .CCB [C_STS] neq S_SSUC
; 1810 then
; 1811 SIGNAL (DTR$_NO_SEND_INTERRUPT, .CCB, .CCB [C_STS]);
; 1812
; 1813 if .CCB [C_BIAS] eql .RCV_CCB [C_BIAS]
; 1814 then
; 1815 CCB [C_BIAS] = CCB [C_ADDR] = CCB [C_CNT] = 0;
; 1816
; 1817 CCB [C_CHN] = 0;
; 1818 RCV_CCB [C_FNC] = FC_RCE;
; 1819 LLCRS$ (RCV_CCB);
; 1820 CCB [C_STK] = 0;
; 1821 end;
; 1822 SND_IRQ (.DB, .CCB, .CCB [C_PIX], .CCB [C_LIX], .CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)]);
; 1823 end; !of routine RCV_SNI
.SBTTL RCV.SNI
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 68
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (14)
000000 010401 RCV.SNI:MOV R4,R1 ; *,CCB 1775
000002 016104 000004 MOV 4(R1),R4 ; *(CCB),* 1804
000006 026127 000014 000001 CMP 14(R1),#1 ; *(CCB),* 1809
000014 001413 BEQ 1$
000016 016146 000014 MOV 14(R1),-(SP) ; *(CCB),* 1811
000022 010146 MOV R1,-(SP) ; CCB,*
000024 012746 100163 MOV #-77615,-(SP)
000030 012746 000003 MOV #3,-(SP)
000034 004767 000000G JSR PC,$IGNAL
000040 062706 000010 ADD #10,SP
000044 026164 000016 000016 1$: CMP 16(R1),16(R4) ; *(CCB),* 1813
000052 001006 BNE 2$
000054 005061 000022 CLR 22(R1) ; *(CCB) 1815
000060 005061 000020 CLR 20(R1) ; *(CCB)
000064 005061 000016 CLR 16(R1) ; *(CCB)
000070 005061 000002 2$: CLR 2(R1) ; *(CCB) 1817
000074 112764 000004 000012 MOVB #4,12(R4) ; 1818
000102 004767 000000G JSR PC,$SCHED ; 1819
000106 005061 000004 CLR 4(R1) ; *(CCB) 1820
000112 005046 CLR -(SP) ; 1822
000114 116116 000011 MOVB 11(R1),(SP) ; *(CCB),*
000120 005046 CLR -(SP)
000122 116116 000010 MOVB 10(R1),(SP) ; *(CCB),*
000126 005046 CLR -(SP)
000130 116116 000024 MOVB 24(R1),(SP) ; *(CCB),*
000134 010104 MOV R1,R4 ; CCB,*
000136 004767 000000V JSR PC,SND.IRQ
000142 062706 000006 ADD #6,SP ; 1798
000146 000207 RTS PC ; 1775
; Routine Size: 52 words, Routine Base: $CODE$ + 4670
; Maximum stack depth per invocation: 5 words
; 1824
; 1825
; 1826
; 1827
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 69
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (15)
; 1828 routine SND_ABO (DB, CCB, PIX, LLA, ULA) : LINKAGE_DB_CCB novalue =
; 1829
; 1830 !++
; 1831 ! FUNCTIONAL DESCRIPTION:
; 1832 !
; 1833 !
; 1834 ! FORMAL PARAMETERS:
; 1835 ! None
; 1836 !
; 1837 ! IMPLICIT INPUTS:
; 1838 ! None
; 1839 !
; 1840 ! IMPLICIT OUTPUTS:
; 1841 ! None
; 1842 !
; 1843 ! ROUTINE VALUE:
; 1844 ! COMPLETION CODES:
; 1845 ! None
; 1846 !
; 1847 ! SIDE EFFECTS:
; 1848 ! None
; 1849 !--
; 1850
; 1851 begin
; 1852
; 1853 map
; 1854 CCB : ref block field (C_FIELDS),
; 1855 DB : ref block field (D_FIELDS);
; 1856
; 1857 bind
; 1858 LINK = blockvector [.DB [D_ADDR], .ULA - 1, 0, 0, 0, 0; 0, L_LENGTH]
; 1859 : block field (L_FIELDS);
; 1860
; 1861 LINK [ls_dip] = true;
; 1862 CCB [C_PIX] = .PIX;
; 1863 CCB [C_LIX] = .LLA;
; 1864 CCB [C_FNC] = FC_XME;
; 1865 CCB [C_MOD] = S$ABO;
; 1866 CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .ULA;
; 1867 LLCRS$ (.CCB);
; 1868 end; !of routine SND_ABO
.SBTTL SND.ABO
000000 010446 SND.ABO:MOV R4,-(SP) ; 1828
000002 010400 MOV R4,R0 ; *,CCB
000004 016604 000004 MOV 4(SP),R4 ; ULA,* 1858
000010 072427 000005 ASH #5,R4
000014 066504 000004 ADD 4(R5),R4 ; *(DB),*
000020 052764 000400 177740 BIS #400,-40(R4) ; 1861
000026 116660 000010 000011 MOVB 10(SP),11(R0) ; PIX,*(CCB) 1862
000034 116660 000006 000010 MOVB 6(SP),10(R0) ; LLA,*(CCB) 1863
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 70
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (15)
000042 112760 000002 000012 MOVB #2,12(R0) ; *,*(CCB) 1864
000050 112760 000022 000013 MOVB #22,13(R0) ; *,*(CCB) 1865
000056 116660 000004 000024 MOVB 4(SP),24(R0) ; ULA,*(CCB) 1866
000064 010004 MOV R0,R4 ; CCB,* 1867
000066 004767 000000G JSR PC,$SCHED
000072 012604 MOV (SP)+,R4 ; 1828
000074 000207 RTS PC
; Routine Size: 31 words, Routine Base: $CODE$ + 5040
; Maximum stack depth per invocation: 2 words
; 1869
; 1870
; 1871
; 1872
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 71
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (16)
; 1873 routine SND_ACC (DB, CCB, PIX, LLA, ULA, FLOW) : LINKAGE_DB_CCB novalue =
; 1874
; 1875 !++
; 1876 ! FUNCTIONAL DESCRIPTION:
; 1877 !
; 1878 !
; 1879 ! FORMAL PARAMETERS:
; 1880 ! None
; 1881 !
; 1882 ! IMPLICIT INPUTS:
; 1883 ! None
; 1884 !
; 1885 ! IMPLICIT OUTPUTS:
; 1886 ! None
; 1887 !
; 1888 ! ROUTINE VALUE:
; 1889 ! COMPLETION CODES:
; 1890 ! None
; 1891 !
; 1892 ! SIDE EFFECTS:
; 1893 ! None
; 1894 !--
; 1895
; 1896 begin
; 1897
; 1898 map
; 1899 CCB : ref block field (C_FIELDS),
; 1900 DB : ref block field (D_FIELDS);
; 1901
; 1902 CCB [C_PIX] = .PIX;
; 1903 CCB [C_FNC] = FC_XME;
; 1904 CCB [C_MOD] = S$ACC;
; 1905 CCB [C_LIN] = .LLA;
; 1906 CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .ULA;
; 1907 CCB [$SUB_FIELD (C_PRM1, 0, 8, 8, 0)] = .FLOW;
; 1908 LLCRS$ (.CCB);
; 1909 end; !of routine SND_ACC
.SBTTL SND.ACC
000000 010446 SND.ACC:MOV R4,-(SP) ; 1873
000002 116664 000012 000011 MOVB 12(SP),11(R4) ; PIX,*(CCB) 1902
000010 112764 000002 000012 MOVB #2,12(R4) ; *,*(CCB) 1903
000016 112764 000002 000013 MOVB #2,13(R4) ; *,*(CCB) 1904
000024 116664 000010 000010 MOVB 10(SP),10(R4) ; LLA,*(CCB) 1905
000032 116664 000006 000024 MOVB 6(SP),24(R4) ; ULA,*(CCB) 1906
000040 116664 000004 000025 MOVB 4(SP),25(R4) ; FLOW,*(CCB) 1907
000046 004767 000000G JSR PC,$SCHED ; 1908
000052 012604 MOV (SP)+,R4 ; 1873
000054 000207 RTS PC
; Routine Size: 23 words, Routine Base: $CODE$ + 5136
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 72
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (16)
; Maximum stack depth per invocation: 2 words
; 1910
; 1911
; 1912
; 1913
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 73
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (17)
; 1914 routine SND_DIS (DB, CCB, PIX, LLA, ULA) : LINKAGE_DB_CCB novalue =
; 1915
; 1916 !++
; 1917 ! FUNCTIONAL DESCRIPTION:
; 1918 !
; 1919 !
; 1920 ! FORMAL PARAMETERS:
; 1921 ! None
; 1922 !
; 1923 ! IMPLICIT INPUTS:
; 1924 ! None
; 1925 !
; 1926 ! IMPLICIT OUTPUTS:
; 1927 ! None
; 1928 !
; 1929 ! ROUTINE VALUE:
; 1930 ! COMPLETION CODES:
; 1931 ! None
; 1932 !
; 1933 ! SIDE EFFECTS:
; 1934 ! None
; 1935 !--
; 1936
; 1937 begin
; 1938
; 1939 map
; 1940 CCB : ref block field (C_FIELDS),
; 1941 DB : ref block field (D_FIELDS);
; 1942
; 1943 bind
; 1944 LINK = blockvector [.DB [D_ADDR], .ULA - 1, 0, 0, 0, 0; 0, L_LENGTH]
; 1945 : block field (L_FIELDS);
; 1946
; 1947 LINK [ls_dip] = true;
; 1948 CCB [C_PIX] = .PIX;
; 1949 CCB [C_LIX] = .LLA;
; 1950 CCB [C_FNC] = FC_XME;
; 1951 CCB [C_MOD] = S$DIS;
; 1952 CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .ULA;
; 1953 LLCRS$ (.CCB);
; 1954 end; !of routine SND_DIS
.SBTTL SND.DIS
000000 010446 SND.DIS:MOV R4,-(SP) ; 1914
000002 010400 MOV R4,R0 ; *,CCB
000004 016604 000004 MOV 4(SP),R4 ; ULA,* 1944
000010 072427 000005 ASH #5,R4
000014 066504 000004 ADD 4(R5),R4 ; *(DB),*
000020 052764 000400 177740 BIS #400,-40(R4) ; 1947
000026 116660 000010 000011 MOVB 10(SP),11(R0) ; PIX,*(CCB) 1948
000034 116660 000006 000010 MOVB 6(SP),10(R0) ; LLA,*(CCB) 1949
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 74
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (17)
000042 112760 000002 000012 MOVB #2,12(R0) ; *,*(CCB) 1950
000050 112760 000020 000013 MOVB #20,13(R0) ; *,*(CCB) 1951
000056 116660 000004 000024 MOVB 4(SP),24(R0) ; ULA,*(CCB) 1952
000064 010004 MOV R0,R4 ; CCB,* 1953
000066 004767 000000G JSR PC,$SCHED
000072 012604 MOV (SP)+,R4 ; 1914
000074 000207 RTS PC
; Routine Size: 31 words, Routine Base: $CODE$ + 5214
; Maximum stack depth per invocation: 2 words
; 1955
; 1956
; 1957
; 1958
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 75
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (18)
; 1959 routine SND_DRQ (DB, CCB, PIX, LLA, ULA, SEG) : LINKAGE_DB_CCB novalue =
; 1960
; 1961 !++
; 1962 ! FUNCTIONAL DESCRIPTION:
; 1963 !
; 1964 !
; 1965 ! FORMAL PARAMETERS:
; 1966 ! None
; 1967 !
; 1968 ! IMPLICIT INPUTS:
; 1969 ! None
; 1970 !
; 1971 ! IMPLICIT OUTPUTS:
; 1972 ! None
; 1973 !
; 1974 ! ROUTINE VALUE:
; 1975 ! COMPLETION CODES:
; 1976 ! None
; 1977 !
; 1978 ! SIDE EFFECTS:
; 1979 ! None
; 1980 !--
; 1981
; 1982 begin
; 1983
; 1984 map
; 1985 CCB : ref block field (C_FIELDS),
; 1986 DB : ref block field (D_FIELDS);
; 1987
; 1988 CCB [C_PIX] = .PIX;
; 1989 CCB [C_LIX] = .LLA;
; 1990 CCB [C_FNC] = FC_XME;
; 1991 CCB [C_MOD] = S$DRQ;
; 1992 CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .ULA;
; 1993 CCB [$SUB_FIELD (C_PRM1, 0, 8, 8, 0)] = .SEG;
; 1994 LLCRS$ (.CCB);
; 1995 end; !of routine SND_DRQ
.SBTTL SND.DRQ
000000 010446 SND.DRQ:MOV R4,-(SP) ; 1959
000002 116664 000012 000011 MOVB 12(SP),11(R4) ; PIX,*(CCB) 1988
000010 116664 000010 000010 MOVB 10(SP),10(R4) ; LLA,*(CCB) 1989
000016 112764 000002 000012 MOVB #2,12(R4) ; *,*(CCB) 1990
000024 112764 000012 000013 MOVB #12,13(R4) ; *,*(CCB) 1991
000032 116664 000006 000024 MOVB 6(SP),24(R4) ; ULA,*(CCB) 1992
000040 116664 000004 000025 MOVB 4(SP),25(R4) ; SEG,*(CCB) 1993
000046 004767 000000G JSR PC,$SCHED ; 1994
000052 012604 MOV (SP)+,R4 ; 1959
000054 000207 RTS PC
; Routine Size: 23 words, Routine Base: $CODE$ + 5312
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 76
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (18)
; Maximum stack depth per invocation: 2 words
; 1996
; 1997
; 1998
; 1999
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 77
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (19)
; 2000 routine SND_IRQ (DB, CCB, PIX, LLA, ULA) : LINKAGE_DB_CCB novalue =
; 2001
; 2002 !++
; 2003 ! FUNCTIONAL DESCRIPTION:
; 2004 !
; 2005 !
; 2006 ! FORMAL PARAMETERS:
; 2007 ! None
; 2008 !
; 2009 ! IMPLICIT INPUTS:
; 2010 ! None
; 2011 !
; 2012 ! IMPLICIT OUTPUTS:
; 2013 ! None
; 2014 !
; 2015 ! ROUTINE VALUE:
; 2016 ! COMPLETION CODES:
; 2017 ! None
; 2018 !
; 2019 ! SIDE EFFECTS:
; 2020 ! None
; 2021 !--
; 2022
; 2023 begin
; 2024
; 2025 map
; 2026 CCB : ref block field (C_FIELDS),
; 2027 DB : ref block field (D_FIELDS);
; 2028
; 2029 CCB [C_PIX] = .PIX;
; 2030 CCB [C_LIX] = .LLA;
; 2031 CCB [C_FNC] = FC_XME;
; 2032 CCB [C_MOD] = S$IRQ;
; 2033 CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .ULA;
; 2034 CCB [$SUB_FIELD (C_PRM1, 0, 8, 8, 0)] = 1;
; 2035 LLCRS$ (.CCB);
; 2036 end; !of routine SND_IRQ
.SBTTL SND.IRQ
000000 010446 SND.IRQ:MOV R4,-(SP) ; 2000
000002 116664 000010 000011 MOVB 10(SP),11(R4) ; PIX,*(CCB) 2029
000010 116664 000006 000010 MOVB 6(SP),10(R4) ; LLA,*(CCB) 2030
000016 112764 000002 000012 MOVB #2,12(R4) ; *,*(CCB) 2031
000024 112764 000016 000013 MOVB #16,13(R4) ; *,*(CCB) 2032
000032 116664 000004 000024 MOVB 4(SP),24(R4) ; ULA,*(CCB) 2033
000040 112764 000001 000025 MOVB #1,25(R4) ; *,*(CCB) 2034
000046 004767 000000G JSR PC,$SCHED ; 2035
000052 012604 MOV (SP)+,R4 ; 2000
000054 000207 RTS PC
; Routine Size: 23 words, Routine Base: $CODE$ + 5370
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 78
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (19)
; Maximum stack depth per invocation: 2 words
; 2037
; 2038
; 2039
; 2040
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 79
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (20)
; 2041 routine SND_REJ (DB, CCB, PIX, LLA, ULA) : LINKAGE_DB_CCB novalue =
; 2042
; 2043 !++
; 2044 ! FUNCTIONAL DESCRIPTION:
; 2045 !
; 2046 !
; 2047 ! FORMAL PARAMETERS:
; 2048 ! None
; 2049 !
; 2050 ! IMPLICIT INPUTS:
; 2051 ! None
; 2052 !
; 2053 ! IMPLICIT OUTPUTS:
; 2054 ! None
; 2055 !
; 2056 ! ROUTINE VALUE:
; 2057 ! COMPLETION CODES:
; 2058 ! None
; 2059 !
; 2060 ! SIDE EFFECTS:
; 2061 ! None
; 2062 !--
; 2063
; 2064 begin
; 2065
; 2066 map
; 2067 CCB : ref block field (C_FIELDS),
; 2068 DB : ref block field (D_FIELDS);
; 2069
; 2070 bind
; 2071 LINK = blockvector [.DB [D_ADDR], .ULA - 1, 0, 0, 0, 0; 0, L_LENGTH]
; 2072 : block field (L_FIELDS);
; 2073
; 2074 LINK [ls_dip] = true;
; 2075 CCB [C_PIX] = .PIX;
; 2076 CCB [C_FNC] = FC_XME;
; 2077 CCB [C_MOD] = S$REJ;
; 2078 CCB [C_LIN] = .LLA;
; 2079 CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .ULA;
; 2080 CCB [C_PRM2] = S_ERBO;
; 2081 LLCRS$ (.CCB);
; 2082 end; !of routine SND_REJ
.SBTTL SND.REJ
000000 010446 SND.REJ:MOV R4,-(SP) ; 2041
000002 010400 MOV R4,R0 ; *,CCB
000004 016604 000004 MOV 4(SP),R4 ; ULA,* 2071
000010 072427 000005 ASH #5,R4
000014 066504 000004 ADD 4(R5),R4 ; *(DB),*
000020 052764 000400 177740 BIS #400,-40(R4) ; 2074
000026 116660 000010 000011 MOVB 10(SP),11(R0) ; PIX,*(CCB) 2075
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 80
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (20)
000034 112760 000002 000012 MOVB #2,12(R0) ; *,*(CCB) 2076
000042 112760 000004 000013 MOVB #4,13(R0) ; *,*(CCB) 2077
000050 116660 000006 000010 MOVB 6(SP),10(R0) ; LLA,*(CCB) 2078
000056 116660 000004 000024 MOVB 4(SP),24(R0) ; ULA,*(CCB) 2079
000064 012760 177754 000026 MOV #-24,26(R0) ; *,*(CCB) 2080
000072 010004 MOV R0,R4 ; CCB,* 2081
000074 004767 000000G JSR PC,$SCHED
000100 012604 MOV (SP)+,R4 ; 2041
000102 000207 RTS PC
; Routine Size: 34 words, Routine Base: $CODE$ + 5446
; Maximum stack depth per invocation: 2 words
; 2083
; 2084
; 2085
; 2086
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 81
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (21)
; 2087 routine SND_SND (DB, CCB, PIX, LLA, ULA, EOM) : LINKAGE_DB_CCB novalue =
; 2088
; 2089 !++
; 2090 ! FUNCTIONAL DESCRIPTION:
; 2091 !
; 2092 !
; 2093 ! FORMAL PARAMETERS:
; 2094 ! None
; 2095 !
; 2096 ! IMPLICIT INPUTS:
; 2097 ! None
; 2098 !
; 2099 ! IMPLICIT OUTPUTS:
; 2100 ! None
; 2101 !
; 2102 ! ROUTINE VALUE:
; 2103 ! COMPLETION CODES:
; 2104 ! None
; 2105 !
; 2106 ! SIDE EFFECTS:
; 2107 ! None
; 2108 !--
; 2109
; 2110 begin
; 2111
; 2112 map
; 2113 CCB : ref block field (C_FIELDS),
; 2114 DB : ref block field (D_FIELDS);
; 2115
; 2116 CCB [C_PIX] = .PIX;
; 2117 CCB [C_LIX] = .LLA;
; 2118 CCB [C_FNC] = FC_XME;
; 2119 CCB [C_MOD] = S$SND;
; 2120 CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .ULA;
; 2121 CCB [$SUB_FIELD (C_PRM1, 0, 8, 8, 0)] = .EOM;
; 2122 LLCRS$ (.CCB);
; 2123 end; !of routine SND_SND
.SBTTL SND.SND
000000 010446 SND.SND:MOV R4,-(SP) ; 2087
000002 116664 000012 000011 MOVB 12(SP),11(R4) ; PIX,*(CCB) 2116
000010 116664 000010 000010 MOVB 10(SP),10(R4) ; LLA,*(CCB) 2117
000016 112764 000002 000012 MOVB #2,12(R4) ; *,*(CCB) 2118
000024 112764 000006 000013 MOVB #6,13(R4) ; *,*(CCB) 2119
000032 116664 000006 000024 MOVB 6(SP),24(R4) ; ULA,*(CCB) 2120
000040 116664 000004 000025 MOVB 4(SP),25(R4) ; EOM,*(CCB) 2121
000046 004767 000000G JSR PC,$SCHED ; 2122
000052 012604 MOV (SP)+,R4 ; 2087
000054 000207 RTS PC
; Routine Size: 23 words, Routine Base: $CODE$ + 5552
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 82
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (21)
; Maximum stack depth per invocation: 2 words
; 2124
; 2125
; 2126
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 83
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (22)
; 2127 routine SND_SNI (DB, CCB, PIX, LLA, ULA) : LINKAGE_DB_CCB novalue =
; 2128
; 2129 !++
; 2130 ! FUNCTIONAL DESCRIPTION:
; 2131 !
; 2132 !
; 2133 ! FORMAL PARAMETERS:
; 2134 ! None
; 2135 !
; 2136 ! IMPLICIT INPUTS:
; 2137 ! None
; 2138 !
; 2139 ! IMPLICIT OUTPUTS:
; 2140 ! None
; 2141 !
; 2142 ! ROUTINE VALUE:
; 2143 ! COMPLETION CODES:
; 2144 ! None
; 2145 !
; 2146 ! SIDE EFFECTS:
; 2147 ! None
; 2148 !--
; 2149
; 2150 begin
; 2151
; 2152 map
; 2153 CCB : ref block field (C_FIELDS),
; 2154 DB : ref block field (D_FIELDS);
; 2155
; 2156 CCB [C_PIX] = .PIX;
; 2157 CCB [C_LIX] = .LLA;
; 2158 CCB [C_FNC] = FC_XME;
; 2159 CCB [C_MOD] = S$SNI;
; 2160 CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .ULA;
; 2161 LLCRS$ (.CCB);
; 2162 end; !of routine SND_SNI
.SBTTL SND.SNI
000000 010446 SND.SNI:MOV R4,-(SP) ; 2127
000002 116664 000010 000011 MOVB 10(SP),11(R4) ; PIX,*(CCB) 2156
000010 116664 000006 000010 MOVB 6(SP),10(R4) ; LLA,*(CCB) 2157
000016 112764 000002 000012 MOVB #2,12(R4) ; *,*(CCB) 2158
000024 112764 000014 000013 MOVB #14,13(R4) ; *,*(CCB) 2159
000032 116664 000004 000024 MOVB 4(SP),24(R4) ; ULA,*(CCB) 2160
000040 004767 000000G JSR PC,$SCHED ; 2161
000044 012604 MOV (SP)+,R4 ; 2127
000046 000207 RTS PC
; Routine Size: 20 words, Routine Base: $CODE$ + 5630
; Maximum stack depth per invocation: 2 words
; 2163
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 84
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (22)
; 2164
; 2165
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 85
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (23)
; 2166 routine PATTERN_CHECK (DB, CCB) : LINKAGE_DB_CCB =
; 2167
; 2168 !++
; 2169 ! FUNCTIONAL DESCRIPTION:
; 2170 !
; 2171 !
; 2172 ! FORMAL PARAMETERS:
; 2173 ! None
; 2174 !
; 2175 ! IMPLICIT INPUTS:
; 2176 ! None
; 2177 !
; 2178 ! IMPLICIT OUTPUTS:
; 2179 ! None
; 2180 !
; 2181 ! ROUTINE VALUE:
; 2182 ! COMPLETION CODES:
; 2183 ! None
; 2184 !
; 2185 ! SIDE EFFECTS:
; 2186 ! None
; 2187 !--
; 2188
; 2189 begin
; 2190
; 2191 map
; 2192 CCB : ref block field (C_FIELDS),
; 2193 DB : ref block field (D_FIELDS);
; 2194
; 2195 bind
; 2196 LINK = blockvector [.DB [D_ADDR], .CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] - 1, 0, 0, 0, 0; 0, L_LENGTH]
; 2197 : block field (L_FIELDS);
; 2198
; 2199 local
; 2200 chr,
; 2201 chr_ptr,
; 2202 buff_ptr,
; 2203 count;
; 2204
; 2205
; 2206 count = .CCB[C_CNT];
; 2207 buff_ptr = .CCB[C_ADDR];
; 2208 chr_ptr = ch$ptr( chr);
; 2209
; 2210 if ((( .CCB[$sub_field( C_PRM1, byte_1)] and S$PBOM) neq 0) and
; 2211 .LINK[L_TEST] eql 1) or
; 2212 (.LINK[L_TEST] eql 3)
; 2213 then
; 2214 begin
; 2215 buff_ptr = ch$plus( .CCB[C_ADDR], 4);
; 2216 count = .count -4;
; 2217 chr = %c'A';
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 86
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (23)
; 2218 end
; 2219 else
; 2220 chr = .LINK[L_PATTERN_CHARACTER];
; 2221
; 2222 While .count neq 0 do
; 2223 begin
; 2224 if ch$eql( 1, .chr_ptr, 1, .buff_ptr, 0)
; 2225 then
; 2226 begin
; 2227 count = .count - 1;
; 2228 buff_ptr = ch$plus( .buff_ptr, 1);
; 2229 if .chr eql %c'Z'
; 2230 then
; 2231 chr = %c'0'
; 2232 else
; 2233 begin
; 2234 if .chr eql %c'9'
; 2235 then
; 2236 chr = %c'A'
; 2237 else
; 2238 chr = .chr + 1;
; 2239 end
; 2240 end
; 2241 else
; 2242 return false;
; 2243 end;
; 2244 LINK[L_PATTERN_CHARACTER] = .chr;
; 2245 return true;
; 2246 end;
.SBTTL PATTERN.CHECK
000000 004167 000000G PATTERN.CHECK:
JSR R1,$SAVE5 ; 2166
000004 005746 TST -(SP)
000006 010400 MOV R4,R0 ; *,CCB
000010 005004 CLR R4 ; 2196
000012 156004 000024 BISB 24(R0),R4 ; *(CCB),*
000016 072427 000005 ASH #5,R4
000022 066504 000004 ADD 4(R5),R4 ; *(DB),*
000026 162704 000040 SUB #40,R4 ; 2189
000032 016005 000022 MOV 22(R0),R5 ; *(CCB),COUNT 2206
000036 016001 000020 MOV 20(R0),R1 ; *(CCB),BUFF.PTR 2207
000042 010602 MOV SP,R2 ; CHR,CHR.PTR 2208
000044 032760 000400 000024 BIT #400,24(R0) ; *,*(CCB) 2210
000052 001404 BEQ 1$
000054 126427 000003 000001 CMPB 3(R4),#1 ; 2211
000062 001404 BEQ 2$
000064 126427 000003 000003 1$: CMPB 3(R4),#3 ; 2212
000072 001007 BNE 3$
000074 016001 000020 2$: MOV 20(R0),R1 ; *(CCB),BUFF.PTR 2215
000100 062701 000004 ADD #4,R1 ; *,BUFF.PTR
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 87
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (23)
000104 162705 000004 SUB #4,R5 ; *,COUNT 2216
000110 000434 BR 6$ ; 2217
000112 016416 000034 3$: MOV 34(R4),(SP) ; *,CHR 2220
000116 005705 4$: TST R5 ; COUNT 2222
000120 001435 BEQ 8$
000122 012746 000001 MOV #1,-(SP) ; 2224
000126 010246 MOV R2,-(SP) ; CHR.PTR,*
000130 012746 000001 MOV #1,-(SP)
000134 010146 MOV R1,-(SP) ; BUFF.PTR,*
000136 005046 CLR -(SP)
000140 004767 000000G JSR PC,BL$EQL
000144 062706 000012 ADD #12,SP
000150 006000 ROR R0
000152 103025 BCC 9$
000154 005305 DEC R5 ; COUNT 2227
000156 005201 INC R1 ; BUFF.PTR 2228
000160 021627 000132 CMP (SP),#132 ; CHR,* 2229
000164 001003 BNE 5$
000166 012716 000060 MOV #60,(SP) ; *,CHR 2231
000172 000751 BR 4$ ; 2229
000174 021627 000071 5$: CMP (SP),#71 ; CHR,* 2234
000200 001003 BNE 7$
000202 012716 000101 6$: MOV #101,(SP) ; *,CHR 2236
000206 000743 BR 4$ ; 2234
000210 005216 7$: INC (SP) ; CHR 2238
000212 000741 BR 4$ ; 2224
000214 011664 000034 8$: MOV (SP),34(R4) ; CHR,* 2244
000220 012700 000001 MOV #1,R0 ; 2189
000224 000401 BR 10$
000226 005000 9$: CLR R0 ; 2166
000230 005726 10$: TST (SP)+
000232 000207 RTS PC
; Routine Size: 78 words, Routine Base: $CODE$ + 5700
; Maximum stack depth per invocation: 13 words
; 2247
; 2248 end
; 2249
; 2250 eludom
; OTS external references
.GLOBL $SAVE5, $STOP, $IGNAL, BL$EQL
.GLOBL BL$MOV
; PSECT SUMMARY
;
; Psect Name Words Attributes
DTR 25-Jan-1983 10:48:44 TOPS-20 Bliss-16 2A(530) Page 88
X01110 30-Dec-1982 01:50:57 NETPKG:<CEX>DTR.B16.8 (23)
; $PLIT$ 64 RO , D , LCL, REL, CON
; $CODE$ 1582 RO , I , LCL, REL, CON
; ...... 16 RW , D , LCL, REL, CON
; LIBRARY STATISTICS
;
; -------- Symbols -------- Blocks
; File Total Loaded Percent Read
;
; NETPKG:<MCB>MCBLIB.L16.15 372 57 15 0
; NETPKG:<MCB>XPORTX.L16.15 599 40 6 0
; Size: 1582 code + 80 data words
; Run Time: 00:47.2
; Elapsed Time: 02:39.3
; Memory Used: 124 pages
; Compilation Complete
A 183+ 184+
ACC_CCB 4202 4204 4218# 4219# 4220# 4224 4226 4348 4353 4366# 4367 4410
4412 4426# 4427 4473 4475 4488# 4489
ACHCK$ 2642+#
ACHKB$ 2649+#
ADDR 3484+ 3486+
ADDRESS 888+ 890+ 891+ 924+ 925+ 1391+ 1393+ 1462+ 1472+# 1731+ 1732+ 1907+
1924+# 1935+ 1946+ 1956+ 1973+# 1997+ 2015+# 2026+ 2038+ 2048+ 2066+# 2333+
2342+ 2392+ 2393+ 2431+ 2440+ 2447+ 2456+ 2614+ 2623+ 2642+ 2643+ 2649+
2661+ 2679+ 2680+ 2956+ 2971+# 2976+ 2985+ 2993+ 3011+# 3024+ 3036+ 3046+
3065+# 3289+ 3298+ 3340+ 3352+ 4343# 4468#
ADR 453+ 457+ 462+ 464+ 473+ 475+* 476+ 483+ 487+ 492+ 494+
ALL 3393+
ALLOCATED_LENGTH 2993+ 3012+ 3013+# 3024+ 3036+ 3046+ 3066+ 3067+#
ALOCB$ 2673+#
ARG 423+ 425+ 498+ 500+
ARGS 858+ 860+
AST 2916+ 2926+
AST_BLOCK 3328+ 3337+
B 183+ 184+
BEGIN_ADR 521+ 533+ 541+ 551+ 563+ 575+ 583+ 593+
BIAS 602+ 608+ 924+ 925+ 1391+ 1393+ 2956+ 2970+# 2976+ 2985+ 3484+ 3485+
BITS_BYTE 3472+ 3474+
BLISS16 3 123+ 370+ 397+ 414+ 509+ 630+ 686+ 824+ 849+ 907+ 2629+
BUF 1987+ 1988+ 2098+ 2099+ 2542+ 2543+ 3508+ 3513+ 3517+ 3524+ 3528+ 3534+
3552+ 3558+ 3572+ 3579+ 3583+ 3589+ 3615+ 3621+ 3625+ 3630+ 3634+ 3640+
BUFFER 1483+ 1484+ 1499+ 1506+ 1507+ 1518+ 1530+ 1531+ 1546+ 1553+ 1554+ 1565+
BUFF_PTR 5503 5508# 5516# 5525 5529#
BYTE_0 3892#
BYTE_1 3893# 4563 4591 4659 5511
CALL$B 423+#
CALL$E 425+ 453+#
CALL$I 431+# 1353+ 1442+ 1449+ 1456+ 1988+ 2087+ 2099+ 2112+ 2535+ 2543+ 2556+
2569+ 2576+
CALL$L 473+#
CALL$P 483+#
CALL$ 406+#
CBSD_FIELDS 3701+#
CB_ACNT 3665+#
CB_ACTL 3664+#
CB_DES 3705+# 3707+ 3712+
CB_DFMT 3650+#
CB_DGRP 3677+#
CB_DOBJ 3651+#
CB_DPL1 3672+#
CB_DPL2 3679+#
CB_DPR1 3673+#
CB_DPR2 3680+#
CB_DST 3652+# 3671+ 3676+
CB_DUSR 3678+#
CB_ENDD 3669+#
CB_FIELDS 3646+#
CB_FMT 3703+#
CB_GRP 3713+#
CB_LEN 3708+#
CB_LN2 3715+#
CB_NAM 3709+#
CB_NM2 3716+#
CB_NODE 3648+#
CB_OBJ 3704+#
CB_OPDL 3667+# 4184 4392
CB_OPTD 3668+# 4157 4185 4393
CB_PASL 3661+#
CB_PASW 3662+#
CB_RQDL 3658+#
CB_RQID 3659+#
CB_SFMT 3654+#
CB_SGRP 3689+#
CB_SIZE 3697+#
CB_SOBJ 3655+#
CB_SPL1 3684+#
CB_SPL2 3691+#
CB_SPR1 3685+#
CB_SPR2 3692+#
CB_SRC 3656+# 3683+ 3688+
CB_SUSR 3690+#
CB_USR 3714+#
CCB 954+ 963+ 970+ 979+ 1025+ 1034+ 1041+ 1050+ 1080+ 1089+ 1135+ 1144+
1151+ 1160+ 1167+ 1176+ 1183+ 1192+ 1201+ 1210+ 1217+ 1226+ 1233+ 1242+
1249+ 1258+ 1261+ 1265+ 1270+ 1282+ 1287+ 1297+ 1574+ 1583+ 1593+ 1610+#
1621+ 1632+ 1642+ 1659+# 1741+ 1758+# 1769+ 1780+ 1790+ 1807+# 1824+ 1841+#
1852+ 1863+ 1873+ 1890+# 2142+ 2159+# 2170+ 2181+ 2191+ 2208+# 2350+ 2359+
2399+ 2408+ 2415+ 2424+ 2463+ 2472+ 2518+ 2527+ 2582+ 2591+ 3492+ 3494+
3498+ 3500+ 3508+ 3510+ 3517+ 3519+ 3528+ 3530+ 3538+ 3540+ 3546+ 3548+
3552+ 3554+ 3562+ 3564+ 3572+ 3574+ 3583+ 3585+ 3593+ 3595+ 3599+ 3601+
3609+ 3611+ 3615+ 3617+ 3625+ 3627+ 3634+ 3636+ 3902 3908 3910 3920
3968 3994 3998 4001 4003 4007 4012 4038 4042 4045 4048 4050
4056 4063 4067# 4068 4072 4077# 4078# 4079# 4083 4085 4090 4098
4124 4131 4140# 4141# 4142# 4143 4155 4156 4157 4184 4185 4190#
4191# 4192# 4193 4207# 4208# 4209# 4210 4214# 4215# 4216 4245# 4246#
4247# 4248 4260# 4261# 4262# 4263 4269# 4270# 4271# 4272 4284# 4285#
4286# 4287 4299# 4300# 4301# 4302 4308# 4309# 4310# 4311 4323# 4324#
4325# 4326 4332# 4333# 4334# 4335 4356# 4357# 4358# 4359 4363# 4364#
4365 4392 4393 4398# 4399# 4400# 4401 4415# 4416# 4417# 4418 4422#
4423# 4424 4445# 4446# 4447# 4448 4460# 4461# 4462# 4463 4478# 4479#
4480# 4481 4485# 4486# 4487 4497# 4498# 4499# 4500 4507# 4508# 4509#
4510 4521 4547 4551 4557 4558# 4559 4563 4571 4581 4582# 4583
4591 4594 4599 4611 4616 4630 4638 4641# 4642 4653 4654 4655
4656 4657 4658 4659 4668 4694 4698 4701 4703 4707 4713 4739
4742 4744 4746 4751 4777 4786 4787 4788 4789# 4790 4800 4826
4830 4836 4837# 4838 4846 4858 4860# 4861 4868 4873 4882 4887
4902 4909 4912 4914# 4915 4926 4927 4928 4929 4930 4931 4940
4966 4969 4971 4973 4979 5005 5009 5012 5014 5018 5023 5049
5055 5057 5059 5061 5063# 5065# 5068# 5070 5076 5102 5108 5110
5112 5114 5116# 5118# 5121# 5123 5129 5155 5163# 5164# 5165# 5166#
5167# 5168 5174 5200 5203# 5204# 5205# 5206# 5207# 5208# 5209 5215
5241 5249# 5250# 5251# 5252# 5253# 5254 5260 5286 5289# 5290# 5291#
5292# 5293# 5294# 5295 5301 5327 5330# 5331# 5332# 5333# 5334# 5335#
5336 5342 5368 5376# 5377# 5378# 5379# 5380# 5381# 5382 5388 5414
5417# 5418# 5419# 5420# 5421# 5422# 5423 5428 5454 5457# 5458# 5459#
5460# 5461# 5462 5467 5493 5497 5507 5508 5511 5516
CCBGT$ 912+# 4204 4353 4412 4475 4579 4628 4636 4651 4792 4856 4900
4910 4924
CCBRT$ 914+# 4007 4050 4056 4063 4072 4090 4707 5018
CE$ACV 282+
CE$BFF 277+ 331+
CE$BFI 283+
CE$BFP 284+
CE$BFR 285+
CE$BFS 286+
CE$CBA 287+
CE$CBB 288+
CE$CBF 275+ 329+
CE$CBR 289+
CE$CCF 274+ 328+
CE$CPY 290+
CE$CQE 278+ 332+
CE$DDO 291+
CE$DLO 292+
CE$DSP 293+
CE$DSR 294+
CE$EVT 270+
CE$EXV 295+
CE$FRE 296+
CE$IBR 297+
CE$ILV 298+
CE$IPR 299+
CE$LEN 300+
CE$LIX 301+
CE$OWN 302+
CE$PIX 303+
CE$PLV 304+
CE$PRA 322+ 336+
CE$PRF 279+ 333+
CE$PRI 305+
CE$PRM 321+ 335+
CE$PRU 280+ 334+
CE$RBA 306+
CE$RBB 307+
CE$RBC 308+
CE$RBF 276+ 330+
CE$RBR 309+
CE$RCL 271+
CE$RES 310+
CE$RLV 311+
CE$RND 312+
CE$RPX 313+
CE$RRT 272+
CE$SLF 323+ 337+
CE$SYN 314+
CE$TMB 315+
CE$TMU 320+ 338+
CE$UCB 316+
CE$VCF 318+
CE$VCU 319+
CE$VEC 317+
CEX 651+
CEX_DISPATCH 639+# 651+ 672+
CE_ABO 788+#
CE_BUF 796+#
CE_DCR 797+#
CE_DEV 801+#
CE_DIS 802+#
CE_ERR 789+#
CE_HFE 798+#
CE_MOP 790+#
CE_MTL 799+#
CE_NTE 793+#
CE_ROV 800+#
CE_RTE 792+#
CE_SRC 791+#
CE_TMO 794+#
CE_UDR 803+#
CHAR 4169 4170# 4171 4236 4238# 4241 4253# 4256 4277# 4280 4292# 4295
4316# 4319 4377 4378# 4379 4436 4438# 4441 4453# 4456
CHR 5501 5509 5518# 5521# 5530 5532# 5535 5537# 5539# 5545
CHR_PTR 5502 5509# 5525
CMQIF$ 916+#
CMQIN$ 918+#
CMQRM$ 920+#
CNSTM$ 922+#
CNV22$ 924+#
COD 356+ 357+
CODE_NAME 382+ 383+#
CODE_SET 354+ 355+
CONDITION_VALUE 162+#
CONDIT_FIELDS 153+# 162+
CONTROLLER 3080+ 3103+# 3116+ 3128+ 3138+ 3162+#
COUNT 2736+ 2749+ 2755+ 2765+ 2774+ 2784+ 3301+ 3313+ 3315+ 3320+ 3322+ 3323+
3324+ 3484+ 3487+ 5504 5507# 5517# 5523 5528#
CS$SUC 253+ 327+
CS_SUC 786+#
CUST_DEF 175+# 178+ 357+# 387+#
C_ADDR 722+# 3486+ 4067 4078 4157 4184 4185 4219 4366 4392 4393 4426
4488 4580 4594 4629 4637 4655 4794 4857 4868 4901 4911 4928
5063 5116 5508 5516
C_BIAS 721+# 3485+ 4067 4077 4156 4218 4366 4426 4488 4571 4580 4629
4637 4654 4794 4846 4857 4901 4911 4927 5061 5063 5114 5116
C_BUF 720+#
C_CHN 711+# 4657 4930 5065 5118
C_CNT 723+# 3487+ 4067 4079 4220 4366 4426 4488 4580 4629 4637 4656
4794 4857 4901 4911 4929 5063 5116 5507
C_FIELDS 708+# 1265+ 3494+ 3500+ 3510+ 3519+ 3530+ 3540+ 3548+ 3554+ 3564+ 3574+
3585+ 3595+ 3601+ 3611+ 3617+ 3627+ 3636+ 3994 4038 4124 4202 4348
4410 4473 4547 4577 4626 4635 4649 4694 4739 4777 4781 4826
4854 4898 4907 4922 4966 5005 5049 5055 5102 5108 5155 5200
5241 5286 5327 5368 5414 5454 5493
C_FNC 717+# 3477+ 4142 4192 4209 4215 4247 4262 4271 4286 4301 4310
4325 4334 4358 4364 4400 4417 4423 4447 4462 4480 4486 4499
4509 4558 4582 4641 4789 4837 4860 4914 5066 5119 5165 5204
5251 5291 5332 5377 5419 5459
C_LIN 715+# 4787 5206 5379
C_LIX 714+# 1267+ 3495+ 3521+ 3556+ 3566+ 3576+ 3587+ 3603+ 3619+ 3638+ 4068
4141 4155 5070 5123 5164 5250 5290 5331 5418 5458
C_LNK 710+#
C_MOD 718+# 3478+ 5166 5205 5252 5292 5333 5378 5420 5460
C_OWN 713+#
C_PIX 716+# 3511+ 3520+ 3531+ 3555+ 3565+ 3575+ 3586+ 3602+ 3618+ 3628+ 3637+
4068 4083 4085 4131 4581 4630 4638 4658 4786 4858 4902 4912
4931 5070 5123 5163 5203 5249 5289 5330 5376 5417 5457
C_PRM 724+#
C_PRM1 725+# 1267+ 3501+ 3512+ 3522+ 3523+ 3532+ 3533+ 3541+ 3557+ 3567+ 3568+
3577+ 3578+ 3588+ 3604+ 3605+ 3620+ 3629+ 3998 4042 4068 4141 4191
4208 4214 4246 4261 4270 4285 4300 4309 4324 4333 4357 4363
4399 4416 4422 4446 4461 4479 4485 4498 4508 4551 4563 4591
4659 4698 4788 4830 5009 5070 5123 5167 5207 5208 5253 5293
5294 5334 5335 5380 5421 5422 5461 5497 5511
C_PRM2 726+# 3639+ 5381
C_PRM3 727+#
C_PRM4 728+#
C_PRM5 729+#
C_STK 712+# 4653 4926 5055 5068 5108 5121
C_STS 719+# 3542+ 4001 4003 4045 4048 4140 4190 4207 4245 4260 4269
4284 4299 4308 4323 4332 4356 4398 4415 4445 4460 4478 4497
4507 4701 4703 4742 4744 4969 4971 5012 5014 5057 5059 5110
5112
DB 989+ 1002+# 1007+ 1016+ 1099+ 1112+# 1117+ 1126+ 1301+ 1308+# 3902 3908
3910 3920 3935 3961 3968 3995 3998 4012 4039 4042 4068 4083
4085 4098 4125 4132 4137 4224 4226 4367 4427 4489 4521 4548
4551 4581 4611 4630 4638 4658 4668 4695 4698 4713 4740 4751
4778 4795 4800 4827 4830 4858 4882 4902 4912 4931 4940 4967
4979 5006 5009 5023 5050 5070 5076 5103 5123 5129 5156 5159
5174 5201 5215 5242 5245 5260 5287 5301 5328 5342 5369 5372
5388 5415 5428 5455 5467 5494 5497
DDAST_LINKAGE 935+# 938+
DDAST$ 931+#
DDCCP_LINKAGE 958+# 961+
DDCCP$ 954+#
DDKCP_LINKAGE 974+# 977+
DDKCP$ 970+#
DDM 634+
DDMDB_LINKAGE 993+# 996+# 1011+# 1014+
DDMDB$ 989+# 1007+#
DDM_DISPATCH 640+# 661+ 670+
DDRCP_LINKAGE 1029+# 1032+
DDRCP$ 1025+#
DDXCP_LINKAGE 1045+# 1048+
DDXCP$ 1041+#
DEACB$ 2679+#
DECLARE_SEVERITY 374+# 3774+
DEFAULT 866+ 867+ 868+ 869+ 871+ 873+ 877+ 882+ 883+ 897+ 898+ 899+
900+ 902+
DISP 858+ 860+
DISPATCH 691+ 699+ 2575+ 2576+
DISPATCH$ 858+# 3903 3911
DIS_CCB 4635 4636 4637# 4638 4781 4792 4794# 4795 4907 4910 4911# 4912
DLAST_LINKAGE 1061+# 1064+
DLAST$ 1057+#
DLC 634+
DLCCP_LINKAGE 1084+# 1087+
DLCCP$ 1080+#
DLCDB_LINKAGE 1103+# 1106+# 1121+# 1124+
DLCDB$ 1099+# 1117+#
DLC_DISPATCH 641+# 660+ 670+
DLGET_LINKAGE 1139+# 1142+
DLGET$ 1135+#
DLRCE_LINKAGE 1155+# 1158+
DLRCE$ 1151+#
DLRCP_LINKAGE 1171+# 1174+
DLRCP$ 1167+#
DLSET_LINKAGE 1187+# 1190+
DLSET$ 1183+#
DLSTM$ 1195+#
DLSTP_LINKAGE 1205+# 1208+
DLSTP$ 1201+#
DLSTR_LINKAGE 1221+# 1224+
DLSTR$ 1217+#
DLXCP_LINKAGE 1237+# 1240+
DLXCP$ 1233+#
DLXME_LINKAGE 1253+# 1256+
DLXME$ 1249+#
DRQ_CCB 4577 4579 4580# 4581 4626 4628 4629# 4630
DTR 1# 3774+ 3922
DTR$_BAD_PATTERN 3792+ 4616 4887
DTR$_BAD_SEQUENCE_NUMBER 3791+ 4599 4873 4909
DTR$_DISPATCH 3776+
DTR$_NO_ABORT 3781+ 4003
DTR$_NO_ACCEPT 3782+ 4048
DTR$_NO_CCB 3778+ 4579 4628 4636 4651 4792 4856 4900 4910 4924
DTR$_NO_DATA_PLEASE 3787+ 4557
DTR$_NO_DATA_REQUEST 3786+ 4744
DTR$_NO_DISCONNECT 3783+ 4703
DTR$_NO_INTERRUPT_PLEASE 3788+ 4836
DTR$_NO_INTERRUPT_REQUEST 3789+ 4971
DTR$_NO_REJECT 3784+ 5014
DTR$_NO_SC 3777+
DTR$_NO_SEND_DATA 3785+ 5059
DTR$_NO_SEND_INTERRUPT 3790+ 5112
DTR$_TEST_INVALID 3779+ 4506
DTR$_TEST_UNSUPPORTED 3780+ 4496
DTRTIM 3850 3926 3935*
DUMMY 1317+ 1399+ 1412+ 1441+ 1689+ 1718+ 2366+ 2379+
D_ADDR 3803+# 3998 4042 4132 4551 4698 4830 5009 5159 5245 5372 5497
D_CLOCK 3801+#
D_FIELDS 3799+# 3961 3995 4039 4125 4548 4695 4740 4778 4827 4967 5006
5050 5103 5156 5201 5242 5287 5328 5369 5415 5455 5494
D_LENGTH 3807+# 3887#
D_LINKS 3802+# 4137
END_ADR 521+ 531+ 535+# 541+ 551+ 563+ 573+ 577+# 583+ 593+
EOM 5388 5422
ERROR 3774+
EXRQN$ 2900+#
FALSE 3882# 4005 4006 4049 4600 4617 4705 4706 4874 4888 5016 5017
5543
FC_AST 733+#
FC_CCP 742+# 3923
FC_CTL 737+#
FC_KCP 741+#
FC_KIL 736+#
FC_RCE 735+# 3543+ 3549+ 3596+ 3612+ 4142 4192 4209 4215 4247 4262 4271
4286 4301 4310 4325 4334 4358 4364 4400 4417 4423 4447 4462
4480 4486 4499 4509 4558 4582 4641 4789 4837 4860 4914 5066
5119
FC_RCP 740+# 3924
FC_SYS 743+#
FC_TIM 738+# 743+ 3926
FC_XCP 739+# 3925
FC_XME 734+# 3514+ 3525+ 3535+ 3559+ 3569+ 3580+ 3590+ 3606+ 3622+ 3631+ 3641+
5165 5204 5251 5291 5332 5377 5419 5459
FD_AST 746+#
FD_CCP 777+#
FD_CTL 764+# 777+
FD_KCP 775+#
FD_KIL 757+# 775+
FD_RCE 752+# 773+
FD_RCP 773+#
FD_SYS 783+#
FD_TIM 768+# 783+
FD_XCP 770+#
FD_XME 748+# 770+
FIELDS 3768+
FLG 3517+ 3523+ 3528+ 3533+ 3572+ 3578+ 3625+ 3629+
FLOW 4351# 4367 5174 5208
FM_CCB 781+#
FM_CRA 755+#
FM_DAT 750+#
FM_GET 763+#
FM_KIL 754+#
FM_LTM 767+#
FM_NM 761+#
FM_PIN 780+#
FM_PWF 779+#
FM_RDB 782+#
FM_RTN 751+#
FM_SET 762+#
FM_STM 766+#
FM_STP 760+#
FM_STR 759+#
FM_SYN 772+#
FM_XKL 756+#
FNC 3476+ 3477+
FROM_ADR 521+ 533+ 541+ 551+
FROM_BIAS 521+ 533+ 541+ 551+
FROM_BUFFER 2307+ 2308+ 2311+ 2313+ 2320+ 2323+ 2324+ 2325+
FULLWORD 3817+
GTPKT$ 2686+#
GTPRC$ 1261+#
HEADER 668+ 675+#
HIGH 924+ 925+ 1462+ 1473+ 1483+ 1501+# 1506+ 1518+ 1530+ 1548+# 1553+ 1565+
IDX 858+ 860+
INDEX 431+ 435+ 442+ 444+ 931+ 942+ 989+ 1001+ 1007+ 1016+ 1057+ 1068+
1099+ 1111+ 1117+ 1126+ 1328+ 1337+# 1346+ 1353+ 2080+ 2089+# 2105+ 2114+#
2549+ 2559+#
INFO 3774+
INT1 634+
INT2 634+
INT3 634+
IOALT$ 2695+# 2714+#
IODON$ 2736+# 2755+#
IOFIN$ 2774+#
IOP 2695+ 2709+# 2714+ 2724+ 2736+ 2750+# 2755+ 2765+ 2774+ 2784+ 3080+ 3101+#
3116+ 3128+ 3138+ 3160+# 3301+ 3313+ 3320+ 3324+
IRQ_CCB 4854 4856 4857# 4858 4898 4900 4901# 4902
KISAR6 606+ 608+# 619+ 621+
LANGUAGE 3
LDBGT$ 1270+#
LDBRT$ 1287+#
LEVEL 374+ 382+ 386+
LIB$V0 125+# 671+
LIB$V1 126+# 671+
LINK 3998# 4005# 4006# 4042# 4049# 4053 4060 4068 4078 4079 4081 4083
4085 4128 4132# 4134 4137 4147# 4155# 4158# 4159# 4160# 4162 4167#
4176# 4179# 4181 4184# 4186 4191 4208 4214 4219 4220 4222 4224
4226 4229# 4241# 4246 4256# 4261 4270 4280# 4285 4295# 4300 4309
4319# 4324 4333 4340# 4341# 4343 4357 4363 4367 4369# 4375# 4384#
4387# 4389 4392# 4394 4399 4416 4422 4427 4429# 4441# 4446 4456#
4461 4468 4479 4485 4489 4491# 4496 4498 4506 4508 4551# 4554
4566# 4568# 4572 4581 4594 4608 4630 4638 4658 4698# 4705# 4706#
4830# 4833 4842# 4844# 4848 4858 4868 4879 4902 4912 4931 5009#
5016# 5017# 5159# 5162# 5245# 5248# 5372# 5375# 5497# 5512 5513 5521
5545#
LINKAGE_CCB 839+#
LINKAGE_CCB_MOD 840+#
LINKAGE_DB_CCB 842+# 3863 3864 3865 3866 3867 3868 3869 3870 3871 5129# 5174#
5215# 5260# 5301# 5342# 5388# 5428# 5467#
LINKAGE_DB_CCB_MOD 843+#
LINKAGE_DB_MOD 844+#
LINKAGE_DB 841+#
LINKAGE_MOD 845+#
LIST_HEAD 2791+ 2801+ 2811+ 2826+ 2840+ 2852+ 2862+ 2877+
LITERALS 3768+
LIX 1987+ 1988+ 2098+ 2099+ 2542+ 2543+
LLA 3492+ 3495+# 3517+ 3521+ 3552+ 3556+ 3562+ 3566+ 3572+ 3576+ 3583+ 3587+
3599+ 3603+ 3615+ 3619+ 3634+ 3638+ 4782 4787# 4795 5129 5164 5174
5206 5215 5250 5260 5290 5301 5331 5342 5379 5388 5418 5428
5458
LLC 634+
LLCDB$ 1301+#
LLCRS$ 1311+# 3479+ 4143 4193 4210 4216 4248 4263 4272 4287 4302 4311
4326 4335 4359 4365 4401 4418 4424 4448 4463 4481 4487 4500
4510 4559 4583 4642 4790 4838 4861 4915 5067 5120 5168 5209
5254 5295 5336 5382 5423 5462
LLC_DB 2271+ 2289+ 2482+ 2495+# 2500+ 2509+
LLC_DISPATCH 642+# 659+ 670+ 3923#
LLLTM$ 1317+#
LNG 521+ 533+ 541+ 551+ 563+ 575+ 583+ 593+ 2307+ 2313+ 2324+ 2325+
LNKG 858+ 859+
LOC 3481+ 3482+#
LOW 924+ 925+ 1462+ 1473+ 1483+ 1500+# 1506+ 1518+ 1530+ 1547+# 1553+ 1565+
LS_ACTIVE 3816+# 4006 4049 4134 4229 4369 4429 4491 4706 5017
LS_DIP 3813+# 4005 4705 5016 5162 5248 5375
LS_PROPT 3815+# 4159
LS_XOFF 3814+#
LVL 356+ 357+#
L_BPC_COUNT 3824+# 4319
L_BPC_MESSAGES 3827+#
L_DISCONNECT_DATA 3835+# 4078 4181 4186 4219 4389 4394
L_DISCONNECT_LENGTH 3834+# 4079 4176 4179 4184 4220 4384 4387 4392
L_FIELDS 3810+# 3999 4043 4128 4552 4699 4831 5010 5160 5246 5373 5498
L_FLOW_COUNT 3822+# 4068 4280 4456
L_FLOW_TYPE 3821+# 4060 4256 4367
L_LENGTH 3840+# 3888 3998 4042 4147 4551 4698 4830 5009 5159 5245 5372
5497
L_LLA 3818+# 4083 4085 4155 4224 4226 4367 4427 4489 4581 4630 4638
4658 4858 4902 4912 4931
L_MESSAGE_SIZE 3825+# 3833+ 4340 4341
L_NAK_COUNT 3823+# 4295
L_NAK_MESSAGES 3826+#
L_PATTERN_CHARACTER 3831+# 5521 5545
L_PATTERN_ROUTINE 3832+# 4343 4468
L_RECEIVE_COUNT 3830+#
L_RECEIVE_NUMBER 3829+# 4566 4568 4594 4842 4844 4868
L_SEND_NUMBER 3828+# 4343 4468
L_SUB_TEST 3820+# 4081 4167 4222 4241 4375 4441 4572 4608 4848 4879
L_TEST 3819+# 4053 4158 4159 4160 4162 4496 4506 4554 4833 5512 5513
L_ULA 3812+# 4083 4085 4137 4191 4208 4214 4224 4226 4246 4261 4270
4285 4300 4309 4324 4333 4357 4363 4367 4399 4416 4422 4427
4446 4461 4479 4485 4489 4498 4508 4581 4630 4638 4658 4858
4902 4912 4931
MAP$ 602+# 1283+ 1298+ 1307+ 4156 4571 4846
MAXIMUM_OFFSET 868+ 870+ 871+ 899+ 901+ 902+
MCB$ 1326+#
MCB$GAW_PROCESS_DATA_BASE 1305+ 1307+ 1308+ 1377+#
MCB$GA_LOGGING_BUFFER 1379+#
MCB$GA_PROCESS_DISPATCH 1381+#
MCB$GW_DATA_WINDOW 1387+#
MCB$GW_PROCESS_HANDLE 1383+#
MCB$GW_PROCESS_WINDOW 1385+#
MCB$GW_RDB_SIZE 1278+ 1282+ 1294+ 1297+ 1389+#
MCB$K_CLEAR_PROCESS 136+# 1442+
MCB$K_CLEAR_PROCESS_NAME 140+# 1449+
MCB$K_CLEAR_VECTOR 142+# 1456+
MCB$K_EDIT 121+#
MCB$K_GET_DEVICE_NAME 146+# 1988+
MCB$K_GET_LINE_NAME 143+#
MCB$K_GET_LINE_PROCESSES 145+# 2099+
MCB$K_GET_PROCESS_INDEX 137+# 2087+ 2112+
MCB$K_GET_PROCESS_NAME 138+# 1353+
MCB$K_LEVEL 120+#
MCB$K_SET_EXCEPTION 134+# 2535+
MCB$K_SET_LINE_PROCESSES 144+# 2543+
MCB$K_SET_PROCESS 135+# 2556+
MCB$K_SET_PROCESS_NAME 139+# 2569+
MCB$K_SET_VECTOR 141+# 2576+
MCB$K_STATUS_MAX 363+
MCB$K_VERSION 119+#
MCB$V0 665+ 671+
MCB$V1 665+ 671+
MCB$_BUSY_NAME 334+#
MCB$_INVALID_TIME_UNIT 338+#
MCB$_NORMAL 327+# 944+ 1070+ 1611+ 1634+ 1660+ 1759+ 1782+ 1808+ 1842+ 1865+ 1891+
1925+ 1948+ 1974+ 2160+ 2183+ 2209+
MCB$_NO_CCB 328+# 946+ 1072+ 1762+ 1784+ 1811+
MCB$_NO_CORE 331+# 1928+ 1950+ 1977+
MCB$_NO_CSB 329+# 1845+ 1867+ 1894+
MCB$_NO_RDB 330+# 2163+ 2185+ 2212+
MCB$_PARAMETER_ERROR 335+#
MCB$_PROCESS_STILL_ACTIVE 336+#
MCB$_QUEUE_EMPTY 332+# 1614+ 1636+ 1663+
MCB$_UNASSIGNED_LINE 337+#
MCB$_UNKNOWN_PROCESS 333+#
MCB_ 830+#
MCB_CCB 831+#
MCB_CCB_MOD 832+#
MCB_DB 833+#
MCB_DB_CCB_MOD 835+# 3902# 3910#
MCB_DB_CCB 834+# 3851 3852 3853 3854 3855 3856 3857 3858 3859 3860 3861
3862 3908 3920 3968# 4012# 4098# 4521# 4668# 4713# 4751# 4800# 4940#
4979# 5023# 5076#
MCB_DB_MOD 836+# 3850 3935#
MCB_INTERRUPT 837+#
MCB_MOD 838+#
MDF 3476+ 3478+
MFBF$S 521+# 541+#
MODF 3902 3908 3910 3920 3935
MTBF$S 563+# 583+#
MV_LINKAGE 525+# 529+# 545+# 549+ 567+# 571+# 587+# 591+
NAM 356+ 357+# 634+
NAME 643+ 647+ 651+ 669+ 692+ 694+ 699+ 1328+ 1335+ 1346+ 1355+# 1448+
1449+ 2080+ 2087+ 2105+ 2112+ 2549+ 2557+ 2568+ 2569+ 3177+ 3199+ 3213+
3224+ 3234+ 3248+ 3922#
NEW 2534+ 2535+
NEW_UCB 3080+ 3105+# 3116+ 3128+ 3138+ 3164+#
NO_OPERATION 3883#
NUM 3562+ 3568+ 3599+ 3605+
OFFSET 868+ 869+ 870+ 871+ 873+ 874+ 882+ 888+ 889+ 890+ 899+ 900+
901+ 902+
OLD 2534+ 2536+
OLD_UCB 3080+ 3098+ 3116+ 3128+ 3138+ 3157+
OPTIONAL_TEXT 382+
PATTERN_CHECK 3871 4611 4882 5467*
PDVID$ 1328+#
PDVNM$ 1346+#
PHDR$ 634+#
PIX 453+ 462+ 464+ 483+ 492+ 494+ 3508+ 3511+ 3517+ 3520+ 3528+ 3531+
3552+ 3555+ 3562+ 3565+ 3572+ 3575+ 3583+ 3586+ 3599+ 3602+ 3615+ 3618+
3625+ 3628+ 3634+ 3637+ 5129 5163 5174 5203 5215 5249 5260 5289
5301 5330 5342 5376 5388 5417 5428 5457
PLIT_VECTOR 2236+ 2245+ 2252+ 2261+
PREFIX 374+ 375+ 377+ 379+ 382+ 385+ 388+
PRIORITY 2575+ 2576+
PTR 4153 4157# 4158 4170 4238 4253 4277 4292 4316 4340 4341 4378
4438 4453
QASTT$ 2916+#
QINSP$ 2791+#
QRMVF$ 2811+# 2840+# 2862+#
QUEUE 1593+ 1607+ 1621+ 1632+ 1642+ 1656+ 2222+ 2226+ 2350+ 2359+ 2582+ 2591+
RCV_ABO 3851 3912 3968*
RCV_ACC 3852 3913 4012*
RCV_CCB 5055# 5061 5066# 5067 5108# 5114 5119# 5120
RCV_CNR 3853 3904 4098*
RCV_DAT 3854 3905 4521*
RCV_DIS 3855 3914 4668*
RCV_DRQ 3856 3915 4713*
RCV_DSR 3857 3906 4751*
RCV_INT 3858 3907 4800*
RCV_IRQ 3859 3916 4940*
RCV_REJ 3860 3917 4979*
RCV_SND 3861 3918 5023*
RCV_SNI 3862 3919 5076*
RDBCN$ 1360+#
RDBGT$ 1362+#
RDBRQ$ 1364+#
RDBRT$ 1366+#
REJ 3634+ 3639+
RELOC$ 2894+#
RND$ 1368+#
RSX$ 1370+#
RSX$K_STATUS_MAX 364+
RSX$_INVALID_ADDRESS 344+ 2665+ 3356+
RSX$_NORMAL 342+ 2016+ 2040+ 2067+ 2663+ 2830+ 2854+ 2881+ 2947+ 3014+ 3038+ 3068+
3106+ 3130+ 3165+ 3205+ 3226+ 3252+ 3283+ 3354+
RSX$_NO_MEMORY 345+ 2019+ 2042+ 2070+ 3017+ 3040+ 3071+
RSX$_NO_PACKET 346+ 3109+ 3132+ 3168+
RSX$_NO_TASK 347+ 2949+ 3196+ 3201+ 3228+ 3255+ 3285+
RSX$_QUEUE_EMPTY 348+ 2833+ 2856+ 2884+
RSX_DISPATCH 644+# 672+
RSX_UCB 828+#
RSX_UCB_SCB_IOP 829+#
S$ABO 3408+# 3514+ 3912 5166
S$ACC 3400+# 3525+ 3913 5205
S$CNR 3410+# 3904
S$CON 3399+# 3535+
S$DAT 3411+# 3905
S$DIS 3407+# 3590+ 3914 5252
S$DRQ 3404+# 3569+ 3915 5292
S$DSR 3413+# 3416+ 3906
S$GLN 3409+# 3415+ 3631+
S$INT 3412+# 3907
S$IRQ 3406+# 3606+ 3916 5333
S$MRQ 3403+# 3559+
S$PBOM 3425+# 4563 4591 5511
S$PEOM 3427+# 4659
S$PMOM 3426+#
S$PMSG 3423+# 4226 4351 4427
S$PSEG 3422+# 4351 4489
S$REJ 3401+# 3641+ 3917 5378
S$RHI 3416+#
S$SND 3402+# 3580+ 3918 5420
S$SNI 3405+# 3622+ 3919 5460
S$XHI 3415+#
SCB 3080+ 3104+# 3116+ 3128+ 3138+ 3163+#
SCRCP 3902* 3924
SCXCP 3910* 3925
SC_PIX 4129 4131# 4224 4226 4367 4427 4489 4783 4786# 4795
SEG 5260 5294
SEVERE 3774+
SEVERITY 173+# 176+ 243+ 244+ 246+ 247+ 357+# 386+#
SIGNAL_HANDLER 645+# 670+
SMAP$ 615+# 1281+ 1296+
SND_ABO 3863 4085 5129*
SND_ACC 3864 4226 4367 4427 4489 5174*
SND_CCB 4649 4651 4653# 4654# 4655# 4656# 4657# 4658
SND_DIS 3865 4083 4638 4795 4912 5215*
SND_DRQ 3866 4068 4581 4630 5070 5260*
SND_IRQ 3867 4858 4902 5123 5301*
SND_REJ 3868 4224 5342*
SND_SND 3869 4658 5388*
SND_SNI 3870 4931 5428*
SNI_CCB 4922 4924 4926# 4927# 4928# 4929# 4930# 4931
SS$BPT 255+
SS$DTE 256+
SS$EMT 257+
SS$FPU 258+
SS$INS 259+
SS$IOT 260+
SS$MMU 261+
SS$MPE 262+
SS$NXM 263+
SS$PRQ 264+
SS$PWF 265+
SS$STK 266+
SS$STP 267+
SS$TRP 268+
STANDARD 525+# 545+# 567+# 587+#
STATUS 931+ 942+ 954+ 963+ 970+ 979+ 1025+ 1034+ 1041+ 1050+ 1057+ 1068+
1080+ 1089+ 1167+ 1176+ 1233+ 1242+ 2236+ 2245+ 2695+ 2708+ 2714+ 2724+
2736+ 2749+ 2755+ 2765+ 2774+ 2784+ 3301+ 3321+ 3323+ 3324+
STS 3538+ 3542+
STS$K_ERROR 168+# 282+ 285+ 288+ 289+ 294+ 296+ 299+ 300+ 302+ 305+ 307+
309+ 310+ 312+ 314+ 317+ 318+ 319+ 320+ 321+ 322+ 323+
STS$K_INFO 166+# 270+ 271+ 272+
STS$K_SEVERE 169+# 173+ 255+ 256+ 257+ 258+ 259+ 260+ 261+ 262+ 263+ 264+
265+ 266+ 267+ 268+ 283+ 284+ 286+ 287+ 290+ 291+ 292+ 293+
298+ 301+ 303+ 304+ 306+ 308+ 311+ 313+ 315+ 316+
STS$K_SUCCESS 165+# 253+ 342+
STS$K_WARNING 167+# 274+ 275+ 276+ 277+ 278+ 279+ 280+ 295+ 297+ 344+ 345+
346+ 347+ 348+
STS$MATCH 183+#
STS$VALUE 172+# 357+ 384+#
STS$V_COND_ID 157+#
STS$V_CUST_DEF 158+#
STS$V_SEVERITY 155+#
STS$V_SUCCESS 156+#
SYNCH_BLOCK 2333+ 2342+ 2343+ 2614+ 2623+ 2624+
SYNCH$ 1372+#
S_EABL 3459+#
S_EABM 3448+#
S_EABO 3449+#
S_EABS 3447+#
S_EACR 3463+#
S_ECBE 3452+#
S_EDBO 3461+#
S_EERR 3453+#
S_EHI 3432+#
S_EIDM 3454+#
S_EINF 3450+#
S_EIOF 3445+#
S_ELNS 3451+#
S_ELO 3467+#
S_ELST 3455+#
S_ELWS 3456+#
S_EMTL 3457+#
S_ENOF 3465+#
S_ENRO 3464+#
S_ENSL 3458+#
S_ENUR 3466+#
S_EOTB 3446+#
S_ERBO 3460+# 4190 4245 4260 4269 4284 4299 4308 4323 4332 4398 4445
4460 4497 4507 5381
S_ERES 3441+# 4140 4207 4356 4415 4478
S_ERNS 3443+#
S_ETMI 3462+#
S_EUNN 3442+#
S_EURO 3444+#
S_SSUC 3433+# 4001 4045 4701 4742 4969 5012 5057 5110
TABLE$ 866+# 3903 3911 3923
TCB 2900+ 2909+ 2916+ 2926+ 2933+ 2945+ 3177+ 3204+# 3213+ 3224+ 3234+ 3251+#
3261+ 3279+ 3280+ 3328+ 3337+
TEXT 243+ 244+ 246+ 247+
TIMER_BLOCK 1425+ 1434+ 2598+ 2607+
TOP 866+ 867+ 897+ 898+
TO_ADR 563+ 575+ 583+ 593+
TO_BIAS 563+ 575+ 583+ 593+
TO_BUFFER 1574+ 1583+ 2307+ 2309+ 2312+ 2313+ 2324+ 2325+
TRUE 3884# 4229 4369 4429 4491 4596 4604 4613 4621 4870 4884 4892
5162 5248 5375 5546
TSKRT$ 2933+#
TXT 356+
TYPE 2534+ 2535+
T_FIELDS 810+#
T_IDN 813+#
T_LENGTH 818+#
T_PIX 812+#
T_TIM 814+#
UCB 2271+ 2284+# 2289+ 2298+ 2482+ 2494+ 2500+ 2509+ 2695+ 2708+ 2714+ 2724+
2736+ 2749+ 2755+ 2765+ 2774+ 2784+ 3301+ 3321+ 3323+ 3324+
UIC 2933+ 2945+ 3261+ 3269+ 3278+ 3280+
ULA 3498+ 3501+# 3508+ 3512+ 3517+ 3522+ 3528+ 3532+ 3538+ 3541+ 3552+ 3557+
3562+ 3567+ 3572+ 3577+ 3583+ 3588+ 3599+ 3604+ 3615+ 3620+ 4784 4788#
4795 5129 5159 5167 5174 5207 5215 5245 5253 5260 5293 5301
5334 5342 5372 5380 5388 5421 5428 5461
UNIT 3080+ 3102+# 3116+ 3128+ 3138+ 3161+#
USER_ADDRESS 2956+ 2969+ 2976+ 2985+
VAL 3481+ 3482+
VALUECBIT 935+ 1061+ 1597+ 1625+ 1646+ 1745+ 1773+ 1794+ 1828+ 1856+ 1877+ 1911+
1939+ 1960+ 2001+ 2031+ 2053+ 2146+ 2174+ 2195+ 2654+ 2816+ 2845+ 2867+
2938+ 2997+ 3029+ 3051+ 3084+ 3121+ 3143+ 3181+ 3217+ 3238+ 3345+
VALUE 2252+ 2261+
VAR 615+ 621+#
VECTOR$ 897+#
WORD_0 3890# 4566 4594 4842 4868
WORD_1 3891# 4568 4844
XPO$K_VERSION 3392+
$ACHCK 3348+* 3352+
$ACHKB 2657+* 2661+
$ADDRESS 3803+ 3832+
$ALIGN 3817+
$ALOCB 3000+* 3008+ 3032+* 3036+ 3058+* 3062+
$BIT 3813+ 3814+ 3815+ 3816+
$BYTE_STRING 3648+ 3652+ 3656+ 3659+ 3662+ 3665+ 3668+ 3673+ 3680+ 3685+ 3692+ 3705+
3709+ 3716+
$BYTE 3650+ 3651+ 3654+ 3655+ 3703+ 3704+ 3818+
$CALLE 458+ 462+ 464+
$CALLI 438+* 442+ 444+
$CALLP 488+ 492+ 494+
$CBBGT 1831+* 1838+ 1859+* 1863+ 1883+* 1887+
$CBBRT 2422+* 2424+
$CCBCN 1403+* 1405+
$CCBGT 1748+* 1755+ 1776+* 1780+ 1800+* 1804+
$CCBRQ 2370+* 2372+
$CCBRT 2406+* 2408+
$CMQIF 2589+* 2591+
$CMQIN 2357+* 2359+
$CMQRM 1600+* 1607+ 1628+* 1632+ 1652+* 1656+
$CNV22 1493+* 1499+ 1516+* 1518+
$CONTINUE 3674+ 3681+ 3686+ 3693+ 3710+ 3717+ 3836+
$CORGT 1914+* 1921+ 1942+* 1946+ 1966+* 1970+
$CORRT 2438+* 2440+
$CPTBF 1581+* 1583+
$DDAST 938+* 942+
$DDCCP 961+* 963+
$DDKCP 977+* 979+
$DDMDB 996+* 1001+ 1014+* 1016+
$DDRCP 1032+* 1034+
$DDXCP 1048+* 1050+
$DEACB 3296+* 3298+
$DLAST 1064+* 1068+
$DLCCP 1087+* 1089+
$DLCDB 1106+* 1111+ 1124+* 1126+
$DLGET 1142+* 1144+
$DLRCE 1158+* 1160+
$DLRCP 1174+* 1176+
$DLSET 1190+* 1192+
$DLSTP 1208+* 1210+
$DLSTR 1224+* 1226+
$DLXCP 1240+* 1242+
$DLXME 1256+* 1258+
$DSPCR 3900* 3903 3911 3923
$DSRGT 2004+* 2012+ 2034+* 2038+ 2059+* 2063+
$DSRRT 2454+* 2456+
$DTR_ERROR 3776+
$DTR_INFO 3779+ 3780+ 3781+ 3782+ 3783+ 3784+ 3785+ 3786+ 3787+ 3788+ 3789+ 3790+
3791+ 3792+
$DTR_SEVERE 3777+ 3778+
$EXRQN 2907+* 2909+ 3270+ 3279+
$FIELD 3646+ 3701+ 3798+ 3809+
$FIELD_SET_SIZE 3697+ 3807+ 3840+
$GTPKT 3087+* 3098+ 3124+* 3128+ 3153+* 3157+
$IDSTS 2243+* 2245+
$IDVAL 2259+* 2261+
$INTDS 1680+* 1682+
$INTEGER 3822+ 3825+ 3826+ 3827+ 3831+ 3834+
$INTEN 1709+* 1711+
$IOALT 2703+* 2708+ 2722+* 2724+ 3314+ 3321+
$IODON 2744+* 2749+ 2763+* 2765+ 3316+ 3323+
$IOFIN 2782+* 2784+ 3317+ 3324+
$LLLTM 1321+* 1323+
$LTMDS 1693+* 1695+
$LTMEN 1722+* 1724+
$MCB 2489+* 2494+ 2507+* 2509+
$MCB$BUFFER_ADDRESS 1391+#
$MCB$BUFFER_BIAS 1393+#
$MCB$CCB 1265+# 1267+
$MCB$CODE 355+ 356+# 363+ 364+ 368+
$MCB$CODES 354+# 360+ 367+
$MCB$HANDLE 1332+ 1335+ 1337+
$MCB$HIS_QUEUE 2226+# 2228+# 2229+#
$MCB$LINKAGE_ADDRESS_LENGTH 2451+# 2454+
$MCB$LINKAGE_ADDR_LNG 2317+# 2321+
$MCB$LINKAGE_BIAS_ADDRESS 1489+# 1493+ 1512+# 1516+ 1536+# 1540+ 1559+# 1563+
$MCB$LINKAGE_CCB 1578+# 1581+ 1745+# 1748+ 1773+# 1776+ 1794+# 1800+ 2146+# 2149+ 2174+# 2177+
2195+# 2201+ 2403+# 2406+ 2467+# 2470+ 2522+# 2525+
$MCB$LINKAGE_HIGH_LOW 1466+# 1470+
$MCB$LINKAGE_LENGTH 2001+# 2004+
$MCB$LINKAGE_LENGTH_ADDRESS 1911+# 1914+ 1939+# 1942+ 1960+# 1966+ 2030+# 2034+ 2052+# 2059+ 2435+# 2438+
$MCB$LINKAGE_LENGTH_CCB 1828+# 1831+ 1856+# 1859+ 1877+# 1883+ 2419+# 2422+
$MCB$LINKAGE_NUM 2127+# 2130+
$MCB$LINKAGE_QUEUE_CCB 1597+# 1600+ 1625+# 1628+ 1646+# 1652+ 2354+# 2357+ 2586+# 2589+
$MCB$LINKAGE_SBLK 2337+# 2340+# 2618+# 2621+#
$MCB$LINKAGE_STS_VEC 2240+# 2243+
$MCB$LINKAGE_TIMER 1429+# 1432+ 2602+# 2605+
$MCB$LINKAGE_UCB 2275+# 2278+ 2293+# 2296+
$MCB$LINKAGE_UCB_DB 2486+# 2489+ 2504+# 2507+
$MCB$LINKAGE_VAL_VEC 2256+# 2259+
$MCB$LINKAGE_VECTOR 1677+# 1680+ 1706+# 1709+
$MCB$MY_INDEX 2084+ 2087+ 2089+ 2109+ 2112+ 2114+ 2553+ 2556+ 2559+
$MCB$NAME 1350+ 1353+ 1355+
$MCB$NEXT_CODE 239+# 244+ 245+ 249+ 363+
$MCB$R0 1917+# 1924+ 1963+# 1970+ 1973+ 2007+# 2015+ 2056+# 2063+ 2066+
$MCB$R1 2008+#
$MCB$R2 1497+# 1501+ 1544+# 1548+
$MCB$R3 1496+# 1500+ 1543+# 1547+
$MCB$R4 1603+# 1610+ 1649+# 1656+ 1659+ 1751+# 1758+ 1797+# 1804+ 1807+ 1834+# 1841+
1880+# 1887+ 1890+ 2152+# 2159+ 2198+# 2205+ 2208+
$MCB$R5 2281+# 2284+ 2492+# 2495+
$MCB$REVERSE 442+ 444+ 462+ 464+ 492+ 494+ 498+# 499+
$MCB$SAV_MAP 1274+ 1281+ 1283+ 1291+ 1296+ 1298+
$MCB$STATUS 1333+ 1335+# 1339+ 1351+ 1353+# 1357+ 2085+ 2087+# 2091+ 2110+ 2112+# 2116+
2554+ 2556+# 2561+
$MCB$STS 1275+ 1282+# 1284+
$MCB$TABLE_A 867+ 868+# 871+
$MCB$TABLE_ADDRESS 876+ 878+ 890+#
$MCB$TABLE_C 869+ 873+# 882+ 900+
$MCB$TABLE_M 867+ 886+# 898+
$MCB$TABLE_OFFSET 874+ 887+ 888+#
$MCB$VECTOR_A 898+ 899+# 902+
$MCB_CANCEL_CCB_REQUEST 1399+#
$MCB_CANCEL_RDB_REQUEST 1360+ 1412+#
$MCB_CANCEL_SHORT_TIMER 922+ 1425+#
$MCB_CLEAR_PROCESS 1441+#
$MCB_CLEAR_PROCESS_NAME 1448+#
$MCB_CLEAR_VECTOR 1455+#
$MCB_CONVERT_FROM_UBA_ADDRESS 1462+#
$MCB_CONVERT_TO_22_BIT_ADDRESS 925+ 1483+# 1506+#
$MCB_CONVERT_TO_UBA_ADDRESS 1530+# 1553+#
$MCB_COPY_CHAIN_TO_BUFFER 1574+#
$MCB_DEQUEUE_CCB 920+ 1593+# 1621+# 1642+#
$MCB_DF 243+# 253+ 255+ 256+ 257+ 258+ 259+ 260+ 261+ 262+ 263+ 264+
265+ 266+ 267+ 268+ 270+ 271+ 272+ 274+ 275+ 276+ 277+ 278+
279+ 280+ 282+ 283+ 284+ 285+ 286+ 287+ 288+ 289+ 290+ 291+
292+ 293+ 294+ 295+ 296+ 297+ 298+ 299+ 300+ 301+ 302+ 303+
304+ 305+ 306+ 307+ 308+ 309+ 310+ 311+ 312+ 313+ 314+ 315+
316+ 317+ 318+ 319+ 320+ 321+ 322+ 323+
$MCB_DISABLE_INTERRUPT 1673+#
$MCB_DISABLE_LONG_TIMER 1689+#
$MCB_ENABLE_INTERRUPT 1702+#
$MCB_ENABLE_LONG_TIMER 1718+#
$MCB_EXCEPTION 1374+#
$MCB_GET_BUFFER 1731+#
$MCB_GET_CCB 912+ 1741+# 1769+# 1790+#
$MCB_GET_CCB_AND_BUFFER 1282+ 1824+# 1852+# 1873+#
$MCB_GET_CORE 1732+ 1907+# 1935+# 1956+#
$MCB_GET_DEVICE_NAME 1987+#
$MCB_GET_DSR 1997+# 2026+# 2048+#
$MCB_GET_EXTENSION_HANDLE 2080+#
$MCB_GET_IOP 2686+
$MCB_GET_LINE_PROCESSES 1267+ 2098+#
$MCB_GET_PROCESS_HANDLE 1335+ 2105+#
$MCB_GET_RANDOM_NUMBER 1368+ 2123+#
$MCB_GET_RDB 1362+ 2142+# 2170+# 2191+#
$MCB_INITIALIZE_QUEUE 2222+#
$MCB_MATCH_COND 2236+#
$MCB_MATCH_VALUE 2252+#
$MCB_MCB_TO_RSX 1370+ 2271+# 2289+#
$MCB_MOVE_BUFFER_TO_BUFFER 2307+#
$MCB_PAUSE 2333+#
$MCB_PROCESS 638+# 3922
$MCB_QUEUE_CCB 918+ 2350+#
$MCB_REQUEST_CCB 2366+#
$MCB_REQUEST_RDB 1364+ 2379+#
$MCB_RETURN_BUFFER 2392+#
$MCB_RETURN_CCB_AND_BUFFER 1297+ 2415+#
$MCB_RETURN_CCB 914+ 2399+# 4746 4973
$MCB_RETURN_CORE 2393+ 2431+#
$MCB_RETURN_DSR 2447+#
$MCB_RETURN_RDB 1366+ 2463+#
$MCB_RSX_TO_MCB 1326+ 2482+# 2500+#
$MCB_SCHEDULE_CCB 1311+ 2518+#
$MCB_SET_EXCEPTION 1374+ 2534+#
$MCB_SET_LINE_PROCESSES 2542+#
$MCB_SET_PROCESS 2549+#
$MCB_SET_PROCESS_NAME 2568+#
$MCB_SET_VECTOR 2575+#
$MCB_STACK_CCB 916+ 2582+#
$MCB_START_SHORT_TIMER 1195+ 2598+#
$MCB_STATUS 249+# 360+
$MCB_SYNCHRONIZE 1372+ 2614+#
$MVFBF 529+* 533+ 549+* 551+ 2321+ 2324+
$MVTBF 571+* 575+ 591+* 593+ 2321+ 2325+
$OVERLAY 3671+ 3676+ 3683+ 3688+ 3707+ 3712+ 3833+
$OWN$ 678+
$PAUSE 2340+* 2343+
$PHY18 1540+* 1546+ 1563+* 1565+
$QASTT 2924+* 2926+ 3335+* 3337+
$QINSP 2799+* 2801+
$QRMVF 2819+* 2826+# 2848+* 2852+ 2873+* 2877+#
$RDBCN 1416+* 1418+
$RDBGT 2149+* 2156+ 2177+* 2181+ 2201+* 2205+
$RDBRQ 2383+* 2385+
$RDBRT 2470+* 2472+
$RELOC 2963+* 2969+ 2983+* 2985+
$RND 2130+* 2132+
$RSX 2278+* 2283+ 2296+* 2298+
$RSX$LINKAGE_ADDRESS_LENGTH 2653+# 2657+ 3293+# 3296+ 3344+# 3348+
$RSX$LINKAGE_ADDRESS 2960+# 2963+ 2980+# 2983+
$RSX$LINKAGE_LENGTH 2997+# 3000+ 3028+# 3032+ 3050+# 3058+
$RSX$LINKAGE_NAME 3181+# 3184+ 3217+# 3220+ 3238+# 3244+
$RSX$LINKAGE_QUEUE 2815+# 2819+ 2844+# 2848+ 2866+# 2873+
$RSX$LINKAGE_QUEUE_ENTRY 2795+# 2799+
$RSX$LINKAGE_TCB 2904+# 2907+ 3265+# 3270+
$RSX$LINKAGE_TCB_AST 2920+# 2924+ 3332+# 3335+
$RSX$LINKAGE_TCB_UIC 2937+# 2941+ 3266+# 3271+
$RSX$LINKAGE_UCB 3084+# 3087+ 3120+# 3124+ 3142+# 3153+
$RSX$LINKAGE_UCB_IOP_STS_CNT 2778+# 2782+
$RSX$LINKAGE_UCB_STATUS 2699+# 2703+ 2718+# 2722+
$RSX$LINKAGE_UCB_STATUS_COUNT 2740+# 2744+ 2759+# 2763+
$RSX$LINKAGE_UCB_STS_CNT 3307+# 3316+
$RSX$LINKAGE_UCB_STS_CNT_IOP 3309+# 3317+
$RSX$LINKAGE_UCB_STS 3305+# 3314+
$RSX$NEXT_CODE 240+# 247+ 248+ 340+ 364+
$RSX$R0 3003+# 3011+ 3055+# 3062+ 3065+ 3190+# 3204+ 3241+# 3248+ 3251+
$RSX$R1 2822+# 2829+ 2870+# 2877+ 2880+ 2966+# 2970+ 3004+# 3013+ 3054+# 3062+ 3067+
3090+# 3101+ 3146+# 3157+ 3160+
$RSX$R2 2967+# 2971+ 3091+# 3102+ 3147+# 3157+ 3161+
$RSX$R3 2706+# 2709+ 2747+# 2750+ 3092+# 3103+ 3148+# 3157+ 3162+
$RSX$R4 3093+# 3104+ 3149+# 3157+ 3163+
$RSX$R5 3094+# 3105+ 3150+# 3157+ 3164+
$RSX_ACCEPT_IOP 3080+# 3116+# 3138+#
$RSX_CONVERT_TO_BIAS_ADDRESS 2894+ 2956+# 2976+#
$RSX_DF 246+# 342+ 344+ 345+ 346+ 347+ 348+
$RSX_DRIVER 690+#
$RSX_FINISH_IOP 3301+#
$RSX_GET_DSR 2673+ 2993+# 3024+# 3046+#
$RSX_GET_TCB 3177+# 3213+# 3234+#
$RSX_REQUEST_TASK 3261+#
$RSX_RETURN_DSR 2680+ 3289+#
$RSX_SCHEDULE_AST 3328+#
$RSX_STATUS 340+# 360+
$RSX_VALIDATE_BUFFER 2643+ 3340+#
$SC$BUF 3484+# 3513+ 3524+ 3534+ 3558+ 3579+ 3589+ 3621+ 3630+ 3640+
$SC$CCB 3477+# 3478+# 3479+ 3485+ 3486+ 3487+ 3494+# 3495+ 3500+# 3501+ 3510+# 3511+
3512+ 3519+# 3520+ 3521+ 3522+ 3523+ 3530+# 3531+ 3532+ 3533+ 3540+# 3541+
3542+ 3548+# 3554+# 3555+ 3556+ 3557+ 3564+# 3565+ 3566+ 3567+ 3568+ 3574+#
3575+ 3576+ 3577+ 3578+ 3585+# 3586+ 3587+ 3588+ 3595+# 3601+# 3602+ 3603+
3604+ 3605+ 3611+# 3617+# 3618+ 3619+ 3620+ 3627+# 3628+ 3629+ 3636+# 3637+
3638+ 3639+
$SC$CND 3481+# 3485+ 3486+ 3487+ 3511+ 3512+ 3520+ 3521+ 3522+ 3523+ 3531+ 3532+
3533+ 3541+ 3542+ 3555+ 3556+ 3557+ 3565+ 3566+ 3567+ 3568+ 3575+ 3576+
3577+ 3578+ 3586+ 3587+ 3588+ 3602+ 3603+ 3604+ 3605+ 3618+ 3619+ 3620+
3628+ 3629+ 3637+ 3638+ 3639+
$SC$HI_BYTE 3474+# 3523+ 3533+ 3568+ 3578+ 3605+
$SC$LO_BYTE 3472+# 3501+ 3512+ 3522+ 3532+ 3541+ 3557+ 3567+ 3577+ 3588+ 3604+ 3620+
$SC$QUE 3476+# 3514+ 3525+ 3535+ 3543+ 3549+ 3559+ 3569+ 3580+ 3590+ 3596+ 3606+
3612+ 3622+ 3631+ 3641+
$SCHED 2525+* 2527+
$SC_ABORT 3508+#
$SC_ACCEPT 3517+#
$SC_CONNECT 3528+#
$SC_CONNECT_RECEIVED 3538+#
$SC_DATA_MESSAGE_REQUEST 3552+#
$SC_DATA_SEGMENT_REQUEST 3562+#
$SC_DATA_SEGMENT_RETURN 3546+#
$SC_DATA_SEGMENT_TRANSMIT 3572+#
$SC_DISCONNECT 3583+#
$SC_DISCONNECTED 3593+#
$SC_GET_LLA 3492+#
$SC_GET_ULA 3498+#
$SC_INTERRUPT_REQUEST 3599+#
$SC_INTERRUPT_RETURN 3609+#
$SC_INTERRUPT_TRANSMIT 3615+#
$SC_LOCAL_NODE_INFO 3625+#
$SC_REJECT 3634+#
$SHORT_INTEGER 3658+ 3661+ 3664+ 3667+ 3672+ 3677+ 3678+ 3679+ 3684+ 3689+ 3690+ 3691+
3708+ 3713+ 3714+ 3715+ 3801+ 3802+
$SHOW 3393+ 3768+
$SRSTD 3184+* 3199+ 3220+* 3224+ 3244+* 3248+
$STMCN 1432+* 1434+
$STMRQ 2605+* 2607+
$STRING 3835+
$SUB_BLOCK 3669+ 3828+ 3829+ 3830+
$SUB_FIELD 3501+ 3512+ 3522+ 3523+ 3532+ 3533+ 3541+ 3557+ 3567+ 3568+ 3577+ 3578+
3588+ 3604+ 3605+ 3620+ 3998 4042 4068 4081 4141 4159 4160 4191
4208 4214 4222 4246 4261 4270 4285 4300 4309 4324 4333 4340
4341 4357 4363 4399 4416 4422 4446 4461 4479 4485 4498 4508
4551 4563 4566 4568 4591 4594 4659 4698 4788 4830 4842 4844
4868 5009 5070 5123 5167 5207 5208 5253 5293 5294 5334 5335
5380 5421 5422 5461 5497 5511
$SYNCH 2621+* 2624+
$TINY_INTEGER 3812+ 3819+ 3820+ 3821+ 3823+ 3824+
$TSKHD 3187+ 3194+
$TSKRT 2941+* 2945+ 3271+ 3280+
$VIR18 1470+* 1473+
%REMAINING 425+ 440+ 444+ 460+ 464+ 476+ 490+ 494+ 499+ 867+ 869+ 871+
881+ 882+ 898+ 900+ 902+
TIME: 8 SEC.
CORE: 19K