Trailing-Edge
-
PDP-10 Archives
-
BB-R598A-RM_1983
-
swskit-v3/listings/xpt/tli16.list
There are no other files named tli16.list in the archive.
TLI16 25-Jan-1983 10:03:47 TOPS-20 Bliss-16 2A(530) Page 1
30-Dec-1982 21:06:18 NETPKG:<XPT>TLI16.B16.8 (1)
; 0001 module TLI16 (
; 0002 IDENT = 'X01100'
; 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.
TLI16 25-Jan-1983 10:03:47 TOPS-20 Bliss-16 2A(530) Page 2
X01100 30-Dec-1982 21:06:18 NETPKG:<XPT>TLI16.B16.8 (1)
; 0053 !
; 0054 ! 1.04 L. Webber, 11-Feb-81
; 0055 ! Delete entries GETSDB, RETSDB, $CDBV, MAPIN, GETXDB, and $CBDMG
; 0056 ! from the TLI -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, 3-Apr-81
; 0062 ! Signal the ENTITY value in LOG_EVENT.
; 0063 !
; 0064 ! 1.07 L. Webber, 24-Sep-81
; 0065 ! Take out routines EP_VERSION, EP_RCVNOD, EP_REASON.
; 0066 !
; 0067 ! 1.08 L. Webber, 24-Sep-81
; 0068 ! Take out reference to Event_Buffer in LOG_EVENT.
; 0069 !
; 0070 ! 1.09 A. Peckham, 19-Apr-82
; 0071 ! Add XPT$GET_LINE_DB and XPT$GET_NODE_DB routines.
; 0072 !
; 0073 ! 1.10 A. Peckham, 6-May-82
; 0074 ! Eliminate GETLINE, GETNODE, LOG_EVENT, RLS_BLK, GET_BLK, OC_ADD.
; 0075 !
; 0076 !--
TLI16 25-Jan-1983 10:03:47 TOPS-20 Bliss-16 2A(530) Page 3
X01100 30-Dec-1982 21:06:18 NETPKG:<XPT>TLI16.B16.8 (2)
; 0077
; 0078 !
; 0079 ! INCLUDE FILES:
; 0080 !
; 0081
; 0082 require 'XPTMAC';
; 0180
; 0181 !
; 0182 ! TABLE OF CONTENTS
; 0183 !
; 0184
; 0185 forward routine
; 0186 XPT$GET_LINE_DB: XPT$LKG_NUM,
; 0187 XPT$GET_NODE_DB: XPT$LKG_NUM,
; 0188 GET_EX;
; 0189
; 0190 !
; 0191 ! MACROS:
; 0192 !
; 0193
; 0194 !
; 0195 ! EQUATED SYMBOLS:
; 0196 !
; 0197
; 0198 !
; 0199 ! OWN STORAGE:
; 0200 !
; 0201
; 0202 !
; 0203 ! EXTERNAL REFERENCES:
; 0204 !
TLI16 25-Jan-1983 10:03:47 TOPS-20 Bliss-16 2A(530) Page 4
X01100 30-Dec-1982 21:06:18 NETPKG:<XPT>TLI16.B16.8 (3)
; 0205
; 0206 global
; 0207 routine XPT$GET_LINE_DB (LINE) : XPT$LKG_NUM =
; 0208
; 0209 !++
; 0210 ! FUNCTIONAL DESCRIPTION:
; 0211 !
; 0212 ! Returns the base address of the line data base entry for
; 0213 ! the specified line
; 0214 !
; 0215 ! FORMAL PARAMETERS
; 0216 !
; 0217 ! LINE Line number whose data base entry is to be
; 0218 ! located
; 0219 !
; 0220 ! IMPLICIT INPUTS
; 0221 !
; 0222 ! XPTDB
; 0223 !
; 0224 ! ROUTINE VALUE:
; 0225 !
; 0226 ! The address of the line data base entry for .LINE
; 0227 !
; 0228 ! SIDE EFFECTS:
; 0229 !
; 0230 ! NONE.
; 0231 !
; 0232 !--
; 0233
; 0234 begin
; 0235 require 'XPTSYM';
; 0272
; 0273 LINE = .LINE - 1;
; 0274 if .LINE lssu NLN
; 0275 then
; 0276 begin
; 0277 LINE = .LINE*LINElength;
; 0278 .XPTDB[XPTlindb] + .LINE
; 0279 end
; 0280 else
; 0281 0
; 0282 end; !End of XPT$GET_LINE_DB
.TITLE TLI16
.IDENT /X01100/
.GLOBL .CRDAT
.SBTTL GTLINE
000000 .PSECT $CODE$, RO
TLI16 25-Jan-1983 10:03:47 TOPS-20 Bliss-16 2A(530) Page 5
X01100 30-Dec-1982 21:06:18 NETPKG:<XPT>TLI16.B16.8 (3)
000000 010146 GTLINE::
U.1: MOV R1,-(SP) ; 0207
000002 010001 MOV R0,R1 ; *,LINE
000004 005301 DEC R1 ; LINE 0273
000006 016700 000002G MOV .CRDAT+2,R0 ; 0274
000012 020160 000022 CMP R1,22(R0) ; LINE,*
000016 103010 BHIS 1$
000020 070127 000104 MUL #104,R1 ; 0277
000024 016700 000002G MOV .CRDAT+2,R0 ; 0278
000030 016000 000020 MOV 20(R0),R0
000034 060100 ADD R1,R0 ; LINE,*
000036 000401 BR 2$ ; 0274
000040 005000 1$: CLR R0
000042 012601 2$: MOV (SP)+,R1 ; 0207
000044 000207 RTS PC
; Routine Size: 19 words, Routine Base: $CODE$ + 0000
; Maximum stack depth per invocation: 2 words
TLI16 25-Jan-1983 10:03:47 TOPS-20 Bliss-16 2A(530) Page 6
X01100 30-Dec-1982 21:06:18 NETPKG:<XPT>TLI16.B16.8 (4)
; 0283
; 0284 global
; 0285 routine XPT$GET_NODE_DB (NODE) : XPT$LKG_NUM =
; 0286
; 0287 !++
; 0288 ! FUNCTIONAL DESCRIPTION:
; 0289 !
; 0290 ! Returns the base address of the node data base entry for
; 0291 ! the specified node number
; 0292 !
; 0293 ! FORMAL PARAMETERS
; 0294 !
; 0295 ! NODE Node number of the node whose data base is to be
; 0296 ! located
; 0297 !
; 0298 ! IMPLICIT INPUTS
; 0299 !
; 0300 ! XPTDB
; 0301 !
; 0302 ! ROUTINE VALUE:
; 0303 !
; 0304 ! Address of the node data base entry for .NODE
; 0305 !
; 0306 ! SIDE EFFECTS:
; 0307 !
; 0308 ! NONE.
; 0309 !
; 0310 !--
; 0311
; 0312 begin
; 0313 require 'XPTSYM';
; 0350
; 0351 NODE = .NODE - 1;
; 0352 if .NODE lssu NN
; 0353 then
; 0354 begin
; 0355 NODE = .NODE*NODElength;
; 0356 .XPTDB[XPTnoddb] + .NODE
; 0357 end
; 0358 else
; 0359 0
; 0360 end; !End of XPT$GET_NODE_DB
.SBTTL GTNODE
000000 010146 GTNODE::
U.2: MOV R1,-(SP) ; 0285
000002 010001 MOV R0,R1 ; *,NODE
000004 005301 DEC R1 ; NODE 0351
000006 016700 000002G MOV .CRDAT+2,R0 ; 0352
000012 020160 000016 CMP R1,16(R0) ; NODE,*
000016 103012 BHIS 1$
TLI16 25-Jan-1983 10:03:47 TOPS-20 Bliss-16 2A(530) Page 7
X01100 30-Dec-1982 21:06:18 NETPKG:<XPT>TLI16.B16.8 (4)
000020 010100 MOV R1,R0 ; NODE,* 0355
000022 072027 000003 ASH #3,R0
000026 010001 MOV R0,R1 ; *,NODE
000030 016700 000002G MOV .CRDAT+2,R0 ; 0356
000034 016000 000012 MOV 12(R0),R0
000040 060100 ADD R1,R0 ; NODE,*
000042 000401 BR 2$ ; 0352
000044 005000 1$: CLR R0
000046 012601 2$: MOV (SP)+,R1 ; 0285
000050 000207 RTS PC
; Routine Size: 21 words, Routine Base: $CODE$ + 0046
; Maximum stack depth per invocation: 2 words
TLI16 25-Jan-1983 10:03:47 TOPS-20 Bliss-16 2A(530) Page 8
X01100 30-Dec-1982 21:06:18 NETPKG:<XPT>TLI16.B16.8 (5)
; 0361
; 0362 global
; 0363 routine GET_EX (PTR) =
; 0364
; 0365 !++
; 0366 ! FUNCTIONAL DESCRIPTION:
; 0367 !
; 0368 ! Gets an extended field of up to 2 bytes (14 significant bits)
; 0369 !
; 0370 ! FORMAL PARAMETERS
; 0371 !
; 0372 ! PTR - Character pointer to message from which the extended
; 0373 ! field is to be fetched
; 0374 !
; 0375 ! IMPLICIT INPUTS
; 0376 !
; 0377 ! NONE.
; 0378 !
; 0379 ! ROUTINE VALUE: Value of the field or failure code
; 0380 ! COMPLETION CODES:
; 0381 !
; 0382 ! > 0 Value of the extended field
; 0383 ! < 0 Failure - field was too long
; 0384 !
; 0385 ! SIDE EFFECTS:
; 0386 !
; 0387 ! PTR is updated to point past the field
; 0388 !
; 0389 !--
; 0390
; 0391 begin
; 0392
; 0393 local WORK,RET;
; 0394 pointer P;
; 0395 P = ..PTR;
; 0396
; 0397 WORK = getb(P);
; 0398 if biton(.WORK,%o'200') then begin !Extension on -
; 0399 WORK<7,8> = getb(P); ! Get next byte
; 0400 if biton(.WORK,%o'40000') then RET = -1 ! Extension on here - return error
; 0401 else RET = .WORK;
; 0402 end
; 0403 else RET = .WORK;
; 0404
; 0405 .PTR = .P; !Update pointer
; 0406 .RET
; 0407 end; !End of GET_EX
.SBTTL GET.EX
000000 004167 000000G GET.EX::
U.3: JSR R1,$SAVE2 ; 0363
TLI16 25-Jan-1983 10:03:47 TOPS-20 Bliss-16 2A(530) Page 9
X01100 30-Dec-1982 21:06:18 NETPKG:<XPT>TLI16.B16.8 (5)
000004 017602 000010 MOV @10(SP),R2 ; PTR,P 0395
000010 005001 CLR R1 ; WORK 0397
000012 152201 BISB (R2)+,R1 ; P,WORK
000014 100016 BPL 1$ ; 0398
000016 112200 MOVB (R2)+,R0 ; P,* 0399
000020 072027 000007 ASH #7,R0
000024 042700 100177 BIC #100177,R0
000030 042701 077600 BIC #77600,R1 ; *,WORK
000034 050001 BIS R0,R1 ; *,WORK
000036 032701 040000 BIT #40000,R1 ; *,WORK 0400
000042 001403 BEQ 1$
000044 012700 177777 MOV #-1,R0 ; *,RET
000050 000401 BR 2$
000052 010100 1$: MOV R1,R0 ; WORK,RET 0403
000054 010276 000010 2$: MOV R2,@10(SP) ; P,PTR 0405
000060 000207 RTS PC ; 0363
; Routine Size: 25 words, Routine Base: $CODE$ + 0120
; Maximum stack depth per invocation: 4 words
; 0408 end !End of module TLI16
; 0409 eludom
; OTS external references
.GLOBL $SAVE2
; PSECT SUMMARY
;
; Psect Name Words Attributes
; $CODE$ 65 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 1 0 0
; NETPKG:<MCB>NMXLIB.L16.13 200 0 0 0
; NETPKG:<XPT>XPTLIB.L16.3 510 87 17 0
TLI16 25-Jan-1983 10:03:47 TOPS-20 Bliss-16 2A(530) Page 10
X01100
; Size: 65 code + 0 data words
; Run Time: 00:02.6
; Elapsed Time: 00:08.6
; Memory Used: 23 pages
; Compilation Complete
ADDRESS 134+ 136+ 137+ 139+ 140+ 142+ 143+ 149+ 150+ 153+ 154+ 155+
BITON 398 400
BPT 163+# 175+#
BUFCHK 167+ 168+# 177+ 178+#
CHKBUF 170+* 171+
GETB 397 399
GETQ 134+#
GETW 113+# 136+ 137+
GET_EX 188 363*
I 158+ 160+
J 158+ 160+
LINE 207 273# 274 277# 278
LINEBLOCK 262+ 340+
LINEB 260+ 262+ 338+ 340+
LINELENGTH 277
M 158+ 159+
MATRIX 158+# 160+
MCB$GAW_PROCESS_DATA_BASE 265+ 266+ 269+ 343+ 344+ 347+
N 158+ 159+
NL 158+ 160+
NLN 274
NN 352
NODE 285 351# 352 355# 356
NODEBLOCK 257+ 335+
NODEB 255+ 257+ 333+ 335+
NODELENGTH 355
NOP 175+ 176+ 178+
NO_LINEB 261+ 339+
NO_NODEB 256+ 334+
P 394 395# 397 399 405
POINTER 394
PTR 113+ 116+ 117+ 120+ 123+ 124+ 130+ 131+ 134+ 136+ 137+ 139+
142+ 143+ 144+ 145+ 149+ 150+ 363 395 405#
PUTQ 139+#
PUTW 120+# 149+ 150+
RET 393 400# 401# 403# 406
TLI16 1#
UNIT 158+# 159+ 160+
VALUE 120+ 121+ 123+ 124+ 129+
WORK 393 397# 398 399# 400 401 403
X 115+ 116+# 117+# 118+ 128+ 129+# 130+ 131+
XPT$GET_LINE_DB 186 207*
XPT$GET_NODE_DB 187 285*
XPT$LKG_NUM 186 187 207# 285#
XPTDBBLOCK 271+ 349+
XPTDB 268+ 269+# 270+ 278 346+ 347+# 348+ 356
XPTLINDB 278
XPTNODDB 356
ZEROQ 153+#
%CTCE 121+ 140+
%REMAINING 165+