Trailing-Edge
-
PDP-10 Archives
-
BB-R598A-RM_1983
-
swskit-v3/listings/xpt/xpe16.list
There are no other files named xpe16.list in the archive.
XPE16 25-Jan-1983 09:59:26 TOPS-20 Bliss-16 2A(530) Page 1
30-Dec-1982 21:19:41 NETPKG:<XPT>XPE16.B16.8 (1)
; 0001 module XPE16 (
; 0002 IDENT = 'X01140'
; 0003 ) =
; 0004 begin
; 0005
; 0006 !
; 0007 ! COPYRIGHT (c) 1980, 1981, 1982
; 0008 ! DIGITAL EQUIPMENT CORPORATION
; 0009 ! Maynard, Massachusetts
; 0010 !
; 0011 ! This software is furnished under a license and may be used
; 0012 ! and copied only in accordance with the terms of such license
; 0013 ! and with the inclusion of the above copyright notice. This
; 0014 ! software or any other copies thereof may not be provided or
; 0015 ! otherwise made available to any other person. No title to
; 0016 ! and ownership of the software is hereby transferred.
; 0017 !
; 0018 ! The information in this software is subject to change
; 0019 ! without notice and should not be construed as a commitment
; 0020 ! by DIGITAL EQUIPMENT CORPORATION.
; 0021 !
; 0022 ! DIGITAL assumes no responsibility for the use or reliability
; 0023 ! of its software on equipment which is not supplied by
; 0024 ! DIGITAL.
; 0025 !
; 0026
; 0027 !++
; 0028 ! FACILITY: Transport
; 0029 !
; 0030 ! ABSTRACT:
; 0031 !
; 0032 ! 16-bit or RSX-11M dependent routines for transport
; 0033 !
; 0034 ! ENVIRONMENT: MCB
; 0035 !
; 0036 ! AUTHOR: L. Webber , CREATION DATE: 20-Jul-79
; 0037 !
; 0038 ! MODIFIED BY:
; 0039 !
; 0040 ! 20-Jul-79 : VERSION 1.00
; 0041 !
; 0042 ! 1.01 L. Webber, 21-Oct-80
; 0043 ! Change C_BUF and C_BUFA references to C_BIAS and C_ADDR
; 0044 !
; 0045 ! 1.02 L. Webber, 11-Dec-80
; 0046 ! Modify to support MCB 3.1
; 0047 !
; 0048 ! 1.03 L. Webber, 11-Feb-81
; 0049 ! Made XPT16 into three parallel modules: XPT16, TLI16 and XPE16.
; 0050 ! This mod. also comprises the addition of several new entry points
; 0051 ! over the last year. This is the last of the identically numbered
; 0052 ! mods. for the three -16 modules.
XPE16 25-Jan-1983 09:59:26 TOPS-20 Bliss-16 2A(530) Page 2
X01140 30-Dec-1982 21:19:41 NETPKG:<XPT>XPE16.B16.8 (1)
; 0053 !
; 0054 ! 1.04 L. Webber, 11-Feb-81
; 0055 ! Delete entries GET_EX, GET_BLK, GETSDB, RETSDB, $CDBV, GETXDB and
; 0056 ! $CBDMG from the XPE -16 module.
; 0057 !
; 0058 ! 1.05 L. Webber, 23-Feb-81
; 0059 ! Fix LOG_EVENT class and event buffer specification.
; 0060 !
; 0061 ! 1.06 L. Webber, 25-Feb-81
; 0062 ! Move $CDBV and $CBDMG over from XPT16
; 0063 !
; 0064 ! 1.07 L. Webber, 27-Feb-81
; 0065 ! Make $CDBV and $CBDMG CALL$
; 0066 !
; 0067 ! 1.08 L. Webber, 16-Mar-81
; 0068 ! Add UNSPAWN routine
; 0069 !
; 0070 ! 1.09 L. Webber, 3-Apr-81
; 0071 ! Signal the ENTITY in LOG_EVENT.
; 0072 !
; 0073 ! 1.10 L. Webber, 30-Jun-81
; 0074 ! Fix UNSPAWN to return a buffer of the right length.
; 0075 !
; 0076 ! 1.11 L. Webber, 24-Sep-81
; 0077 ! Take out routines EP_REASON, EP_EXNODE.
; 0078 !
; 0079 ! 1.12 L. Webber, 24-Sep-81
; 0080 ! Take out reference to Event_Buffer in LOG_EVENT.
; 0081 !
; 0082 ! 1.13 A. Peckham, 19-Apr-82
; 0083 ! Add XPT$GET_LINE_DB and XPT$GET_NODE_DB routines.
; 0084 ! Move $CBDMG and $CDBV back to XPT16.
; 0085 !
; 0086 ! 1.14 A. Peckham, 6-May-82
; 0087 ! Eliminate GETLINE, GETNODE, LOG_EVENT, MAPIN, RLS_BLK.
; 0088 !
; 0089 !--
XPE16 25-Jan-1983 09:59:26 TOPS-20 Bliss-16 2A(530) Page 3
X01140 30-Dec-1982 21:19:41 NETPKG:<XPT>XPE16.B16.8 (2)
; 0090
; 0091 !
; 0092 ! INCLUDE FILES:
; 0093 !
; 0094
; 0095 require 'XPTMAC';
; 0193
; 0194 !
; 0195 ! TABLE OF CONTENTS
; 0196 !
; 0197
; 0198 forward routine
; 0199 XPT$GET_LINE_DB: XPT$LKG_NUM,
; 0200 XPT$GET_NODE_DB: XPT$LKG_NUM;
; 0201
; 0202 !
; 0203 ! MACROS:
; 0204 !
; 0205
; 0206 !
; 0207 ! EQUATED SYMBOLS:
; 0208 !
; 0209
; 0210 !
; 0211 ! OWN STORAGE:
; 0212 !
; 0213
; 0214 !
; 0215 ! EXTERNAL REFERENCES:
; 0216 !
XPE16 25-Jan-1983 09:59:26 TOPS-20 Bliss-16 2A(530) Page 4
X01140 30-Dec-1982 21:19:41 NETPKG:<XPT>XPE16.B16.8 (3)
; 0217 global routine XPT$GET_LINE_DB (LINE) : XPT$LKG_NUM =
; 0218
; 0219 !++
; 0220 ! FUNCTIONAL DESCRIPTION:
; 0221 !
; 0222 ! Returns the base address of the line data base entry for
; 0223 ! the specified line
; 0224 !
; 0225 ! FORMAL PARAMETERS
; 0226 !
; 0227 ! LINE Line number whose data base entry is to be
; 0228 ! located
; 0229 !
; 0230 ! IMPLICIT INPUTS
; 0231 !
; 0232 ! XPTDB
; 0233 !
; 0234 ! ROUTINE VALUE:
; 0235 !
; 0236 ! The address of the line data base entry for .LINE
; 0237 !
; 0238 ! SIDE EFFECTS:
; 0239 !
; 0240 ! NONE.
; 0241 !
; 0242 !--
; 0243
; 0244 begin
; 0245 require 'XPTSYM';
; 0282
; 0283 LINE = .LINE - 1;
; 0284 if .LINE lssu NLN
; 0285 then
; 0286 begin
; 0287 LINE = .LINE*LINElength;
; 0288 .XPTDB[XPTlindb] + .LINE
; 0289 end
; 0290 else
; 0291 0
; 0292 end; !End of XPT$GET_LINE_DB
.TITLE XPE16
.IDENT /X01140/
.GLOBL .CRDAT
.SBTTL GTLINE
000000 .PSECT $CODE$, RO
000000 010146 GTLINE::
XPE16 25-Jan-1983 09:59:26 TOPS-20 Bliss-16 2A(530) Page 5
X01140 30-Dec-1982 21:19:41 NETPKG:<XPT>XPE16.B16.8 (3)
U.1: MOV R1,-(SP) ; 0217
000002 010001 MOV R0,R1 ; *,LINE
000004 005301 DEC R1 ; LINE 0283
000006 016700 000002G MOV .CRDAT+2,R0 ; 0284
000012 020160 000022 CMP R1,22(R0) ; LINE,*
000016 103010 BHIS 1$
000020 070127 000104 MUL #104,R1 ; 0287
000024 016700 000002G MOV .CRDAT+2,R0 ; 0288
000030 016000 000020 MOV 20(R0),R0
000034 060100 ADD R1,R0 ; LINE,*
000036 000401 BR 2$ ; 0284
000040 005000 1$: CLR R0
000042 012601 2$: MOV (SP)+,R1 ; 0217
000044 000207 RTS PC
; Routine Size: 19 words, Routine Base: $CODE$ + 0000
; Maximum stack depth per invocation: 2 words
XPE16 25-Jan-1983 09:59:26 TOPS-20 Bliss-16 2A(530) Page 6
X01140 30-Dec-1982 21:19:41 NETPKG:<XPT>XPE16.B16.8 (4)
; 0293 global routine XPT$GET_NODE_DB (NODE) : XPT$LKG_NUM =
; 0294
; 0295 !++
; 0296 ! FUNCTIONAL DESCRIPTION:
; 0297 !
; 0298 ! Returns the base address of the node data base entry for
; 0299 ! the specified node number
; 0300 !
; 0301 ! FORMAL PARAMETERS
; 0302 !
; 0303 ! NODE Node number of the node whose data base is to be
; 0304 ! located
; 0305 !
; 0306 ! IMPLICIT INPUTS
; 0307 !
; 0308 ! XPTDB
; 0309 !
; 0310 ! ROUTINE VALUE:
; 0311 !
; 0312 ! Address of the node data base entry for .NODE
; 0313 !
; 0314 ! SIDE EFFECTS:
; 0315 !
; 0316 ! NONE.
; 0317 !
; 0318 !--
; 0319
; 0320 begin
; 0321 require 'XPTSYM';
; 0358
; 0359 NODE = .NODE - 1;
; 0360 if .NODE lssu NN
; 0361 then
; 0362 begin
; 0363 NODE = .NODE*NODElength;
; 0364 .XPTDB[XPTnoddb] + .NODE
; 0365 end
; 0366 else
; 0367 0
; 0368 end; !End of XPT$GET_NODE_DB
.SBTTL GTNODE
000000 010146 GTNODE::
U.2: MOV R1,-(SP) ; 0293
000002 010001 MOV R0,R1 ; *,NODE
000004 005301 DEC R1 ; NODE 0359
000006 016700 000002G MOV .CRDAT+2,R0 ; 0360
000012 020160 000016 CMP R1,16(R0) ; NODE,*
000016 103012 BHIS 1$
000020 010100 MOV R1,R0 ; NODE,* 0363
000022 072027 000003 ASH #3,R0
XPE16 25-Jan-1983 09:59:26 TOPS-20 Bliss-16 2A(530) Page 7
X01140 30-Dec-1982 21:19:41 NETPKG:<XPT>XPE16.B16.8 (4)
000026 010001 MOV R0,R1 ; *,NODE
000030 016700 000002G MOV .CRDAT+2,R0 ; 0364
000034 016000 000012 MOV 12(R0),R0
000040 060100 ADD R1,R0 ; NODE,*
000042 000401 BR 2$ ; 0360
000044 005000 1$: CLR R0
000046 012601 2$: MOV (SP)+,R1 ; 0293
000050 000207 RTS PC
; Routine Size: 21 words, Routine Base: $CODE$ + 0046
; Maximum stack depth per invocation: 2 words
XPE16 25-Jan-1983 09:59:26 TOPS-20 Bliss-16 2A(530) Page 8
X01140 30-Dec-1982 21:19:41 NETPKG:<XPT>XPE16.B16.8 (5)
; 0369 global routine UNSPAWN(CCB): novalue =
; 0370
; 0371 !++
; 0372 ! FUNCTIONAL DESCRIPTION:
; 0373 !
; 0374 ! Untangles a CCB spawned by Transport:
; 0375 !
; 0376 ! 1. If the CCB has a buffer of its own, release it.
; 0377 ! 2. If the pass-through CCB (the one the spawned CCB points to)
; 0378 ! has had its buffer pointer adjusted, un-adjust it.
; 0379 ! 3. Release the spawned CCB.
; 0380 !
; 0381 ! FORMAL PARAMETERS
; 0382 !
; 0383 ! CCB Address of the spawned CCB.
; 0384 !
; 0385 ! IMPLICIT INPUTS
; 0386 !
; 0387 ! NONE.
; 0388 !
; 0389 ! ROUTINE VALUE:
; 0390 ! COMPLETION CODES:
; 0391 !
; 0392 ! NONE.
; 0393 !
; 0394 ! SIDE EFFECTS:
; 0395 !
; 0396 ! NONE.
; 0397 !
; 0398 !--
; 0399
; 0400 begin
; 0401
; 0402 map CCB: ref block field(C_XPT_fields);
; 0403 bind CCB_P = .CCB[C_STK]: block field(C_fields);
; 0404 local ADJ;
; 0405
; 0406 if ((ADJ=.CCB[C_XPT_ADJUST]) neq 0) then begin ! Nonzero adjustment factor:
; 0407 CCB_P[C_ADDR] = ch$plus(.CCB_P[C_ADDR],-.ADJ); ! readjust pass-through
; 0408 CCB_P[C_CNT] = .CCB_P[C_CNT] + .ADJ; ! buffer descriptor
; 0409 end;
; 0410 if ((.CCB[C_CHN] neq 0) ! If the spawned CCB
; 0411 and (.CCB[C_BIAS] neq 0)) then ! has an SDB of
; P 0412 $MCB_RETURN_CCB_AND_BUFFER ! its own, release
; 0413 (.CCB[C_XPT_ALLOCATION],.CCB) ! them both
; 0414 else $MCB_RETURN_CCB(.CCB); ! Otherwise, just release the CCB
; 0415
; 0416 end; !End of UNSPAWN
.GLOBL $CBBRT, $CCBRT
XPE16 25-Jan-1983 09:59:26 TOPS-20 Bliss-16 2A(530) Page 9
X01140 30-Dec-1982 21:19:41 NETPKG:<XPT>XPE16.B16.8 (5)
.SBTTL UNSPAWN
000000 004167 000000G UNSPAWN::
JSR R1,$SAVE4 ; 0369
000004 016604 000014 MOV 14(SP),R4 ; CCB,* 0403
000010 116400 000033 MOVB 33(R4),R0 ; *,ADJ 0406
000014 001406 BEQ 1$
000016 016401 000004 MOV 4(R4),R1 ; 0407
000022 160061 000020 SUB R0,20(R1) ; ADJ,*
000026 060061 000022 ADD R0,22(R1) ; ADJ,* 0408
000032 005764 000002 1$: TST 2(R4) ; 0410
000036 001410 BEQ 2$
000040 005764 000016 TST 16(R4) ; 0411
000044 001405 BEQ 2$
000046 016401 000034 MOV 34(R4),R1 ; 0413
000052 004767 000000G JSR PC,$CBBRT
000056 000207 RTS PC ; 0410
000060 004767 000000G 2$: JSR PC,$CCBRT ; 0414
000064 000207 RTS PC ; 0369
; Routine Size: 27 words, Routine Base: $CODE$ + 0120
; Maximum stack depth per invocation: 6 words
; 0417
; 0418 end !End of module XPE16
; 0419 eludom
; OTS external references
.GLOBL $SAVE4
; PSECT SUMMARY
;
; Psect Name Words Attributes
; $CODE$ 67 RO , I , LCL, REL, CON
; LIBRARY STATISTICS
;
; -------- Symbols -------- Blocks
; File Total Loaded Percent Read
;
; NETPKG:<MCB>XPORTX.L16.15 599 0 0 0
; NETPKG:<MCB>MCBLIB.L16.15 372 24 6 0
; NETPKG:<MCB>NMXLIB.L16.13 200 0 0 0
; NETPKG:<XPT>XPTLIB.L16.3 510 93 18 0
XPE16 25-Jan-1983 09:59:26 TOPS-20 Bliss-16 2A(530) Page 10
X01140 30-Dec-1982 21:19:41 NETPKG:<XPT>XPE16.B16.8 (5)
; Size: 67 code + 0 data words
; Run Time: 00:02.7
; Elapsed Time: 00:09.3
; Memory Used: 25 pages
; Compilation Complete
ADDRESS 147+ 149+ 150+ 152+ 153+ 155+ 156+ 162+ 163+ 166+ 167+ 168+
ADJ 404 406# 407 408
BPT 176+# 188+#
BUFCHK 180+ 181+# 190+ 191+#
CCB 369 402 403 406 410 411 413 414
CCB_P 403# 407# 408#
CHKBUF 183+* 184+
C_ADDR 407
C_BIAS 411
C_CHN 410
C_CNT 408
C_FIELDS 403
C_STK 403
C_XPT_ADJUST 406
C_XPT_ALLOCATION 413
C_XPT_FIELDS 402
GETQ 147+#
GETW 126+# 149+ 150+
I 171+ 173+
J 171+ 173+
LINE 217 283# 284 287# 288
LINEBLOCK 272+ 348+
LINEB 270+ 272+ 346+ 348+
LINELENGTH 287
M 171+ 172+
MATRIX 171+# 173+
MCB$GAW_PROCESS_DATA_BASE 275+ 276+ 279+ 351+ 352+ 355+
N 171+ 172+
NL 171+ 173+
NLN 284
NN 360
NODE 293 359# 360 363# 364
NODEBLOCK 267+ 343+
NODEB 265+ 267+ 341+ 343+
NODELENGTH 363
NOP 188+ 189+ 191+
NO_LINEB 271+ 347+
NO_NODEB 266+ 342+
PTR 126+ 129+ 130+ 133+ 136+ 137+ 143+ 144+ 147+ 149+ 150+ 152+
155+ 156+ 157+ 158+ 162+ 163+
PUTQ 152+#
PUTW 133+# 162+ 163+
UNIT 171+# 172+ 173+
UNSPAWN 369*
VALUE 133+ 134+ 136+ 137+ 142+
X 128+ 129+# 130+# 131+ 141+ 142+# 143+ 144+
XPE16 1#
XPT$GET_LINE_DB 199 217*
XPT$GET_NODE_DB 200 293*
XPT$LKG_NUM 199 200 217# 293#
XPTDBBLOCK 281+ 357+
XPTDB 278+ 279+# 280+ 288 354+ 355+# 356+ 364
XPTLINDB 288
XPTNODDB 364
ZEROQ 166+#
$MCB_RETURN_CCB_AND_BUFFER 412
$MCB_RETURN_CCB 414
%CTCE 134+ 153+
%REMAINING 178+