Trailing-Edge
-
PDP-10 Archives
-
TOPS-20_V6.1_DECnetSrc_7-23-85
-
mcb/xpt/xpeini.lst
There is 1 other file named xpeini.lst in the archive. Click here to see a list.
XPEINI 25-Jan-1983 09:57:15 TOPS-20 Bliss-16 2A(530) Page 1
30-Dec-1982 21:20:46 NETPKG:<XPT>XPEINI.BLI.8 (1)
; 0001 module XPEINI (
; 0002 IDENT = 'X01030'
; 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 ! Transport extension initialization process; called only on process
; 0033 ! initialization
; 0034 !
; 0035 ! ENVIRONMENT: MCB
; 0036 !
; 0037 ! AUTHOR: L. Webber , CREATION DATE: 15-Apr-80
; 0038 !
; 0039 ! MODIFIED BY:
; 0040 !
; 0041 ! 21-Oct-80 : VERSION 1.00
; 0042 !
; 0043 ! 1.01 L. Webber, 11-Dec-80
; 0044 ! Modify to support MCB 3.1
; 0045 !
; 0046 ! 1.02 L. Webber, 20-Jan-81
; 0047 ! Take out $XPTDB, $NLN, to make XPE read-only
; 0048 !
; 0049 !--
XPEINI 25-Jan-1983 09:57:15 TOPS-20 Bliss-16 2A(530) Page 2
X01030 30-Dec-1982 21:20:46 NETPKG:<XPT>XPEINI.BLI.8 (2)
; 0050
; 0051 !
; 0052 ! INCLUDE FILES:
; 0053 !
; 0054
; 0055 require 'XPTMAC';
; 0153
; 0154 !
; 0155 ! TABLE OF CONTENTS
; 0156 !
; 0157
; 0158 forward routine
; 0159 XPEDB: CALL$ novalue;
; 0160
; 0161 !
; 0162 ! MACROS:
; 0163 !
; 0164
; 0165 !
; 0166 ! EQUATED SYMBOLS:
; 0167 !
; 0168
; 0169 !
; 0170 ! OWN STORAGE:
; 0171 !
; 0172
; 0173 global bind _MAXVAL = uplit( ! Maximum unsigned value of
; 0174 255,65535,16776215,4294967296); ! 1, 2, 3, and 4-byte values
; 0175
; 0176 !
; 0177 ! EXTERNAL REFERENCES:
; 0178 !
; 0179
; 0180 external
; 0181 _CRDAT: vector[2]; ! Base for Transport data base
XPEINI 25-Jan-1983 09:57:15 TOPS-20 Bliss-16 2A(530) Page 3
X01030 30-Dec-1982 21:20:46 NETPKG:<XPT>XPEINI.BLI.8 (3)
; 0182
; 0183 global
; 0184 routine XPEDB (DBADDR): CALL$ novalue =
; 0185
; 0186 !++
; 0187 ! FUNCTIONAL DESCRIPTION:
; 0188 !
; 0189 ! Called from the XPT process on initialization, which passes the
; 0190 ! address of the Transport data base.
; 0191 !
; 0192 ! FORMAL PARAMETERS
; 0193 !
; 0194 ! DBADDR Address of the Transport data base
; 0195 !
; 0196 ! IMPLICIT INPUTS
; 0197 !
; 0198 ! NONE.
; 0199 !
; 0200 ! ROUTINE VALUE:
; 0201 ! COMPLETION CODES:
; 0202 !
; 0203 ! NONE.
; 0204 !
; 0205 ! SIDE EFFECTS:
; 0206 !
; 0207 ! NONE.
; 0208 !
; 0209 !--
; 0210
; 0211 begin
; 0212
; 0213 _CRDAT[1] = .DBADDR;
; 0214
; 0215 end; !End of XPEDB
.TITLE XPEINI
.IDENT /X01030/
000000 .PSECT $PLIT$, RO , D
000000 000377 P.AAA: .WORD 377
000002 177777 .WORD -1
000004 176027 .WORD -1751
000006 000000 .WORD 0
.GLOBL .CRDAT
000000' .MAXVAL== P.AAA
XPEINI 25-Jan-1983 09:57:15 TOPS-20 Bliss-16 2A(530) Page 4
X01030 30-Dec-1982 21:20:46 NETPKG:<XPT>XPEINI.BLI.8 (3)
.SBTTL XPEDB
000000 .PSECT $CODE$, RO
000000 016567 000002 000002G XPEDB::
U.1: MOV 2(R5),.CRDAT+2 ; DBADDR(.AP.),* 0213
000006 000207 RTS PC ; 0184
; Routine Size: 4 words, Routine Base: $CODE$ + 0000
; Maximum stack depth per invocation: 0 words
; 0216
; 0217 end !End of module XPEINI
; 0218 eludom
; PSECT SUMMARY
;
; Psect Name Words Attributes
; $PLIT$ 4 RO , D , LCL, REL, CON
; $CODE$ 4 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 0 0 0
; Size: 4 code + 4 data words
; Run Time: 00:01.3
; Elapsed Time: 00:05.2
; Memory Used: 18 pages
; Compilation Complete
ADDRESS 107+ 109+ 110+ 112+ 113+ 115+ 116+ 122+ 123+ 126+ 127+ 128+
BPT 136+# 148+#
BUFCHK 140+ 141+# 150+ 151+#
CALL$ 159 184#
CHKBUF 143+* 144+
DBADDR 184 213
GETQ 107+#
GETW 86+# 109+ 110+
I 131+ 133+
J 131+ 133+
M 131+ 132+
MATRIX 131+# 133+
N 131+ 132+
NL 131+ 133+
NOP 148+ 149+ 151+
PTR 86+ 89+ 90+ 93+ 96+ 97+ 103+ 104+ 107+ 109+ 110+ 112+
115+ 116+ 117+ 118+ 122+ 123+
PUTQ 112+#
PUTW 93+# 122+ 123+
UNIT 131+# 132+ 133+
VALUE 93+ 94+ 96+ 97+ 102+
X 88+ 89+# 90+# 91+ 101+ 102+# 103+ 104+
XPEDB 159 184*
XPEINI 1#
ZEROQ 126+#
_CRDAT 181 213#
_MAXVAL 173#
%CTCE 94+ 113+
%REMAINING 138+