Trailing-Edge
-
PDP-10 Archives
-
TOPS-20_V6.1_DECnetSrc_7-23-85
-
mcb/xpt/xptfwd.lst
There is 1 other file named xptfwd.lst in the archive. Click here to see a list.
XPTFWD 25-Jan-1983 09:49:18 TOPS-20 Bliss-16 2A(530) Page 1
30-Dec-1982 21:26:27 NETPKG:<XPT>XPTFWD.BLI.8 (1)
; 0001 module XPTFWD (
; 0002 IDENT = 'X01000'
; 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 ! This module is an interface to Forwarding, which resides in the
; 0033 ! Transport extension process XPE.
; 0034 !
; 0035 ! ENVIRONMENT: MCB
; 0036 !
; 0037 ! AUTHOR: L. Webber , CREATION DATE: 9-Feb-81
; 0038 !
; 0039 ! MODIFIED BY:
; 0040 !
; 0041 ! 9-Feb-81 : VERSION 1.00
; 0042 !
; 0043 !--
XPTFWD 25-Jan-1983 09:49:18 TOPS-20 Bliss-16 2A(530) Page 2
X01000 30-Dec-1982 21:26:27 NETPKG:<XPT>XPTFWD.BLI.8 (2)
; 0044
; 0045 !
; 0046 ! INCLUDE FILES:
; 0047 !
; 0048
; 0049 require 'XPTMAC';
; 0147
; 0148 !
; 0149 ! TABLE OF CONTENTS
; 0150 !
; 0151
; 0152 forward routine
; 0153 FORWARDER,
; 0154 ECLFWD,
; 0155 SNDBUF: novalue,
; 0156 TERMINATE: novalue;
; 0157
; 0158 !
; 0159 ! MACROS:
; 0160 !
; 0161
; 0162 !
; 0163 ! EQUATED SYMBOLS:
; 0164 !
; 0165
; 0166 !
; 0167 ! OWN STORAGE:
; 0168 !
; 0169
; 0170 !
; 0171 ! EXTERNAL REFERENCES:
; 0172 !
; 0173
; 0174 external routine
; 0175 _FORWARDER: CALL$,
; 0176 _ECLFWD: CALL$,
; 0177 _SNDBUF: CALL$ novalue,
; 0178 _TERMINATE: CALL$ novalue;
XPTFWD 25-Jan-1983 09:49:18 TOPS-20 Bliss-16 2A(530) Page 3
X01000 30-Dec-1982 21:26:27 NETPKG:<XPT>XPTFWD.BLI.8 (3)
; 0179
; 0180 global
; 0181 routine FORWARDER (CCB,OLINE): =
; 0182
; 0183 !++
; 0184 ! FUNCTIONAL DESCRIPTION:
; 0185 !
; 0186 ! See _FORWARDER in XPEFWD.
; 0187 !
; 0188 ! FORMAL PARAMETERS
; 0189 !
; 0190 ! Ditto.
; 0191 !
; 0192 ! IMPLICIT INPUTS
; 0193 !
; 0194 ! NONE.
; 0195 !
; 0196 ! ROUTINE VALUE:
; 0197 ! COMPLETION CODES:
; 0198 !
; 0199 ! NONE.
; 0200 !
; 0201 ! SIDE EFFECTS:
; 0202 !
; 0203 ! NONE.
; 0204 !
; 0205 !--
; 0206
; 0207 begin
; 0208
; 0209 require 'XPTSYM';
; 0246
; 0247 CALL$E(_FORWARDER,(PD_XPE),.CCB,.OLINE)
; 0248
; 0249 end; !End of FORWARDER
.TITLE XPTFWD
.IDENT /X01000/
.GLOBL .FORWARDER, .ECLFWD, .SNDBUF, .TERMINATE
.GLOBL .CRDAT, $CALLE
.SBTTL FORWARDER
000000 .PSECT $CODE$, RO
000000 016646 000002 FORWARDER::
U.1: MOV 2(SP),-(SP) ; OLINE,* 0247
000004 016646 000006 MOV 6(SP),-(SP) ; CCB,*
000010 012746 000002 MOV #2,-(SP)
000014 012746 000000G MOV #.FORWARDER,-(SP)
XPTFWD 25-Jan-1983 09:49:18 TOPS-20 Bliss-16 2A(530) Page 4
X01000 30-Dec-1982 21:26:27 NETPKG:<XPT>XPTFWD.BLI.8 (3)
000020 016700 000002G MOV .CRDAT+2,R0
000024 005046 CLR -(SP)
000026 116016 000002 MOVB 2(R0),(SP)
000032 004767 000000G JSR PC,$CALLE
000036 062706 000012 ADD #12,SP ; 0207
000042 000207 RTS PC ; 0181
; Routine Size: 18 words, Routine Base: $CODE$ + 0000
; Maximum stack depth per invocation: 6 words
XPTFWD 25-Jan-1983 09:49:18 TOPS-20 Bliss-16 2A(530) Page 5
X01000 30-Dec-1982 21:26:27 NETPKG:<XPT>XPTFWD.BLI.8 (4)
; 0250
; 0251 global
; 0252 routine ECLFWD (CCB,SOURCE,DEST,RTS) =
; 0253
; 0254 !++
; 0255 ! FUNCTIONAL DESCRIPTION:
; 0256 !
; 0257 ! See _ECLFWD in XPEFWD.
; 0258 !
; 0259 ! FORMAL PARAMETERS
; 0260 !
; 0261 ! Ditto.
; 0262 !
; 0263 ! IMPLICIT INPUTS
; 0264 !
; 0265 ! NONE.
; 0266 !
; 0267 ! ROUTINE VALUE:
; 0268 ! COMPLETION CODES:
; 0269 !
; 0270 ! NONE.
; 0271 !
; 0272 ! SIDE EFFECTS:
; 0273 !
; 0274 ! NONE.
; 0275 !
; 0276 !--
; 0277
; 0278 begin
; 0279
; 0280 require 'XPTSYM';
; 0317
; 0318 CALL$E(_ECLFWD,(PD_XPE),.CCB,.SOURCE,.DEST,.RTS)
; 0319
; 0320 end; !End of ECLFWD
.SBTTL ECLFWD
000000 016646 000002 ECLFWD::
U.2: MOV 2(SP),-(SP) ; RTS,* 0318
000004 016646 000006 MOV 6(SP),-(SP) ; DEST,*
000010 016646 000012 MOV 12(SP),-(SP) ; SOURCE,*
000014 016646 000016 MOV 16(SP),-(SP) ; CCB,*
000020 012746 000004 MOV #4,-(SP)
000024 012746 000000G MOV #.ECLFWD,-(SP)
000030 016700 000002G MOV .CRDAT+2,R0
000034 005046 CLR -(SP)
000036 116016 000002 MOVB 2(R0),(SP)
000042 004767 000000G JSR PC,$CALLE
000046 062706 000016 ADD #16,SP ; 0278
000052 000207 RTS PC ; 0252
XPTFWD 25-Jan-1983 09:49:18 TOPS-20 Bliss-16 2A(530) Page 6
X01000 30-Dec-1982 21:26:27 NETPKG:<XPT>XPTFWD.BLI.8 (4)
; Routine Size: 22 words, Routine Base: $CODE$ + 0044
; Maximum stack depth per invocation: 8 words
XPTFWD 25-Jan-1983 09:49:18 TOPS-20 Bliss-16 2A(530) Page 7
X01000 30-Dec-1982 21:26:27 NETPKG:<XPT>XPTFWD.BLI.8 (5)
; 0321
; 0322 global
; 0323 routine SNDBUF (LINEb,CCB): novalue =
; 0324
; 0325 !++
; 0326 ! FUNCTIONAL DESCRIPTION:
; 0327 !
; 0328 ! See _SNDBUF in XPEFWD.
; 0329 !
; 0330 ! FORMAL PARAMETERS
; 0331 !
; 0332 ! Ditto.
; 0333 !
; 0334 ! IMPLICIT INPUTS
; 0335 !
; 0336 ! NONE.
; 0337 !
; 0338 ! ROUTINE VALUE:
; 0339 ! COMPLETION CODES:
; 0340 !
; 0341 ! NONE.
; 0342 !
; 0343 ! SIDE EFFECTS:
; 0344 !
; 0345 ! NONE.
; 0346 !
; 0347 !--
; 0348
; 0349 begin
; 0350
; 0351 require 'XPTSYM';
; 0388
; 0389 CALL$E(_SNDBUF,(PD_XPE),.LINEb,.CCB);
; 0390
; 0391 end; !End of SNDBUF
.SBTTL SNDBUF
000000 016646 000002 SNDBUF::
U.3: MOV 2(SP),-(SP) ; CCB,* 0389
000004 016646 000006 MOV 6(SP),-(SP) ; LINEB,*
000010 012746 000002 MOV #2,-(SP)
000014 012746 000000G MOV #.SNDBUF,-(SP)
000020 016700 000002G MOV .CRDAT+2,R0
000024 005046 CLR -(SP)
000026 116016 000002 MOVB 2(R0),(SP)
000032 004767 000000G JSR PC,$CALLE
000036 062706 000012 ADD #12,SP ; 0349
000042 000207 RTS PC ; 0323
; Routine Size: 18 words, Routine Base: $CODE$ + 0120
; Maximum stack depth per invocation: 6 words
XPTFWD 25-Jan-1983 09:49:18 TOPS-20 Bliss-16 2A(530) Page 8
X01000 30-Dec-1982 21:26:27 NETPKG:<XPT>XPTFWD.BLI.8 (6)
; 0392
; 0393 global
; 0394 routine TERMINATE (CCB,CODE): novalue =
; 0395
; 0396 !++
; 0397 ! FUNCTIONAL DESCRIPTION:
; 0398 !
; 0399 ! See _TERMINATE in XPEFWD.
; 0400 !
; 0401 ! FORMAL PARAMETERS
; 0402 !
; 0403 ! Ditto.
; 0404 !
; 0405 ! IMPLICIT INPUTS
; 0406 !
; 0407 ! NONE.
; 0408 !
; 0409 ! ROUTINE VALUE:
; 0410 ! COMPLETION CODES:
; 0411 !
; 0412 ! NONE.
; 0413 !
; 0414 ! SIDE EFFECTS:
; 0415 !
; 0416 ! NONE.
; 0417 !
; 0418 !--
; 0419
; 0420 begin
; 0421
; 0422 require 'XPTSYM';
; 0459
; 0460 CALL$E(_TERMINATE,(PD_XPE),.CCB,.CODE);
; 0461
; 0462 end; !End of TERMINATE
.SBTTL TERMINATE
000000 016646 000002 TERMINATE::
U.4: MOV 2(SP),-(SP) ; CODE,* 0460
000004 016646 000006 MOV 6(SP),-(SP) ; CCB,*
000010 012746 000002 MOV #2,-(SP)
000014 012746 000000G MOV #.TERMINATE,-(SP)
000020 016700 000002G MOV .CRDAT+2,R0
000024 005046 CLR -(SP)
000026 116016 000002 MOVB 2(R0),(SP)
000032 004767 000000G JSR PC,$CALLE
000036 062706 000012 ADD #12,SP ; 0420
000042 000207 RTS PC ; 0394
; Routine Size: 18 words, Routine Base: $CODE$ + 0164
; Maximum stack depth per invocation: 6 words
XPTFWD 25-Jan-1983 09:49:18 TOPS-20 Bliss-16 2A(530) Page 9
X01000 30-Dec-1982 21:26:27 NETPKG:<XPT>XPTFWD.BLI.8 (6)
; 0463
; 0464 end !End of Module XPTFWD
; 0465 eludom
; PSECT SUMMARY
;
; Psect Name Words Attributes
; $CODE$ 76 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 4 1 0
; NETPKG:<MCB>NMXLIB.L16.13 200 0 0 0
; NETPKG:<XPT>XPTLIB.L16.3 510 127 24 0
; Size: 76 code + 0 data words
; Run Time: 00:02.9
; Elapsed Time: 00:09.2
; Memory Used: 24 pages
; Compilation Complete
ADDRESS 101+ 103+ 104+ 106+ 107+ 109+ 110+ 116+ 117+ 120+ 121+ 122+
BPT 130+# 142+#
BUFCHK 134+ 135+# 144+ 145+#
CALL$E 247 318 389 460
CALL$ 175 176 177 178
CCB 181 247 252 318 323 389 394 460
CHKBUF 137+* 138+
DEST 252 318
ECLFWD 154 252*
FORWARDER 153 181*
GETQ 101+#
GETW 80+# 103+ 104+
I 125+ 127+
J 125+ 127+
LINEBLOCK 236+ 307+ 378+ 449+
LINEB 234+ 236+ 305+ 307+ 323 376+ 378+ 389 447+ 449+
M 125+ 126+
MATRIX 125+# 127+
MCB$GAW_PROCESS_DATA_BASE 239+ 240+ 243+ 310+ 311+ 314+ 381+ 382+ 385+ 452+ 453+ 456+
N 125+ 126+
NL 125+ 127+
NODEBLOCK 231+ 302+ 373+ 444+
NODEB 229+ 231+ 300+ 302+ 371+ 373+ 442+ 444+
NOP 142+ 143+ 145+
NO_LINEB 235+ 306+ 377+ 448+
NO_NODEB 230+ 301+ 372+ 443+
OLINE 181 247
PD_XPE 247 318 389 460
PTR 80+ 83+ 84+ 87+ 90+ 91+ 97+ 98+ 101+ 103+ 104+ 106+
109+ 110+ 111+ 112+ 116+ 117+
PUTQ 106+#
PUTW 87+# 116+ 117+
RTS 252 318
SNDBUF 155 323*
TERMINATE 156 394*
UNIT 125+# 126+ 127+
VALUE 87+ 88+ 90+ 91+ 96+
X 82+ 83+# 84+# 85+ 95+ 96+# 97+ 98+
XPTDBBLOCK 245+ 316+ 387+ 458+
XPTDB 242+ 243+# 244+ 313+ 314+# 315+ 384+ 385+# 386+ 455+ 456+# 457+
XPTFWD 1#
ZEROQ 120+#
_ECLFWD 176 318
_FORWARDER 175* 247
_SNDBUF 177 389
_TERMINATE 178 460
%CTCE 88+ 107+
%REMAINING 132+