Trailing-Edge
-
PDP-10 Archives
-
TOPS-20_V6.1_DECnetSrc_7-23-85
-
mcb/xpt/xpt16.lst
There is 1 other file named xpt16.lst in the archive. Click here to see a list.
XPT16 25-Jan-1983 09:55:02 TOPS-20 Bliss-16 2A(530) Page 1
30-Dec-1982 21:23:04 NETPKG:<XPT>XPT16.B16.8 (1)
; 0001 module XPT16 (
; 0002 IDENT = 'X01150'
; 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.
XPT16 25-Jan-1983 09:55:02 TOPS-20 Bliss-16 2A(530) Page 2
X01150 30-Dec-1982 21:23:04 NETPKG:<XPT>XPT16.B16.8 (1)
; 0053 !
; 0054 ! 1.04 L. Webber, 17-Feb-81
; 0055 ! Made GETXDB CALL$ linkage.
; 0056 !
; 0057 ! 1.05 L. Webber, 23-Feb-81
; 0058 ! Fix event logging class and Event Buffer specification.
; 0059 !
; 0060 ! 1.06 L. Webber, 25-Feb-81
; 0061 ! Move $CDBV and $CBDMG to XPT16.
; 0062 !
; 0063 ! 1.07 L. Webber, 10-Mar-81
; 0064 ! Take retry queue length out of CHKBUF accounting.
; 0065 !
; 0066 ! 1.08 L. Webber, 13-Mar-81
; 0067 ! Add routine to untangle spawned CCBs.
; 0068 !
; 0069 ! 1.09 L. Webber, 3-Apr-81
; 0070 ! Signal the ENTITY value in LOG_EVENT.
; 0071 !
; 0072 ! 1.10 L. Webber, 28-Jul-81
; 0073 ! Fix UNSPAWN to specify the size of the buffer it is returning.
; 0074 !
; 0075 ! 1.11 L. Webber, 18-Sep-81
; 0076 ! Take out routines GETSDB,RETSDB.
; 0077 !
; 0078 ! 1.12 L. Webber, 24-Sep-81
; 0079 ! Take out routine MAPIN.
; 0080 !
; 0081 ! 1.13 L. Webber, 24-Sep-81
; 0082 ! Take reference to Event_Buffer out of the signal in LOG_EVENT.
; 0083 !
; 0084 ! 1.14 A. Peckham, 19-Apr-82
; 0085 ! Add XPT$GET_LINE_DB and XPT$GET_NODE_DB routines.
; 0086 ! Remove LOG_EVENT, GETLINE, GETNODE.
; 0087 ! Move $CBDMG and $CDBV back from XPE16
; 0088 ! and rename them to CBTD and CDTB respectively.
; 0089 ! Move GETXDB global to low psect.
; 0090 !
; 0091 ! 1.15 A. Peckham, 6-May-82
; 0092 ! Eliminate RLS_BLK, GET_BLK, OC_ADD, GET_EX.
; 0093 !
; 0094 !--
XPT16 25-Jan-1983 09:55:02 TOPS-20 Bliss-16 2A(530) Page 3
X01150 30-Dec-1982 21:23:04 NETPKG:<XPT>XPT16.B16.8 (2)
; 0095
; 0096 !
; 0097 ! INCLUDE FILES:
; 0098 !
; 0099
; 0100 require 'XPTMAC';
; 0198
; 0199 !
; 0200 ! TABLE OF CONTENTS
; 0201 !
; 0202
; 0203 forward routine
; 0204 XPT$GET_LINE_DB: XPT$LKG_NUM,
; 0205 XPT$GET_NODE_DB: XPT$LKG_NUM,
; 0206 GET_XPTDB: CALL$ novalue,
; 0207 TOPOLOGY: CALL$,
; 0208 CHKBUF: novalue;
; 0209
; 0210 !
; 0211 ! MACROS:
; 0212 !
; 0213
; 0214 !
; 0215 ! EQUATED SYMBOLS:
; 0216 !
; 0217
; 0218 !
; 0219 ! OWN STORAGE:
; 0220 !
; 0221
; 0222 literal JUMP_TO = %o'137';
; 0223
; 0224 psect
; 0225 global = XPTJMP (nowrite, execute);
; 0226
; 0227 global
; 0228 GETXDB : vector [2] initial (JUMP_TO, GET_XPTDB),
; 0229 GETTOP : vector [2] initial (JUMP_TO, TOPOLOGY);
; 0230
; 0231 undeclare JUMP_TO;
; 0232
; 0233 !
; 0234 ! EXTERNAL REFERENCES:
; 0235 !
XPT16 25-Jan-1983 09:55:02 TOPS-20 Bliss-16 2A(530) Page 4
X01150 30-Dec-1982 21:23:04 NETPKG:<XPT>XPT16.B16.8 (3)
; 0236
; 0237 global
; 0238 routine XPT$GET_LINE_DB (LINE) : XPT$LKG_NUM =
; 0239
; 0240 !++
; 0241 ! FUNCTIONAL DESCRIPTION:
; 0242 !
; 0243 ! Returns the base address of the line data base entry for
; 0244 ! the specified line
; 0245 !
; 0246 ! FORMAL PARAMETERS
; 0247 !
; 0248 ! LINE Line number whose data base entry is to be
; 0249 ! located
; 0250 !
; 0251 ! IMPLICIT INPUTS
; 0252 !
; 0253 ! XPTDB
; 0254 !
; 0255 ! ROUTINE VALUE:
; 0256 !
; 0257 ! The address of the line data base entry for .LINE
; 0258 !
; 0259 ! SIDE EFFECTS:
; 0260 !
; 0261 ! NONE.
; 0262 !
; 0263 !--
; 0264
; 0265 begin
; 0266 require 'XPTSYM';
; 0303
; 0304 LINE = .LINE - 1;
; 0305 if .LINE lssu NLN
; 0306 then
; 0307 begin
; 0308 LINE = .LINE*LINElength;
; 0309 .XPTDB[XPTlindb] + .LINE
; 0310 end
; 0311 else
; 0312 0
; 0313 end; !End of XPT$GET_LINE_DB
.TITLE XPT16
.IDENT /X01150/
000000 .PSECT XPTJMP, RO
000000 000137 GETXDB::.WORD 137
000002 000000V .WORD U.3
000004 000137 GETTOP::.WORD 137
XPT16 25-Jan-1983 09:55:02 TOPS-20 Bliss-16 2A(530) Page 5
X01150 30-Dec-1982 21:23:04 NETPKG:<XPT>XPT16.B16.8 (3)
000006 000000V .WORD U.4
.GLOBL .CRDAT
.SBTTL GTLINE
000000 .PSECT $CODE$, RO
000000 010146 GTLINE::
U.1: MOV R1,-(SP) ; 0238
000002 010001 MOV R0,R1 ; *,LINE
000004 005301 DEC R1 ; LINE 0304
000006 016700 000002G MOV .CRDAT+2,R0 ; 0305
000012 020160 000022 CMP R1,22(R0) ; LINE,*
000016 103010 BHIS 1$
000020 070127 000104 MUL #104,R1 ; 0308
000024 016700 000002G MOV .CRDAT+2,R0 ; 0309
000030 016000 000020 MOV 20(R0),R0
000034 060100 ADD R1,R0 ; LINE,*
000036 000401 BR 2$ ; 0305
000040 005000 1$: CLR R0
000042 012601 2$: MOV (SP)+,R1 ; 0238
000044 000207 RTS PC
; Routine Size: 19 words, Routine Base: $CODE$ + 0000
; Maximum stack depth per invocation: 2 words
XPT16 25-Jan-1983 09:55:02 TOPS-20 Bliss-16 2A(530) Page 6
X01150 30-Dec-1982 21:23:04 NETPKG:<XPT>XPT16.B16.8 (4)
; 0314
; 0315 global
; 0316 routine XPT$GET_NODE_DB (NODE) : XPT$LKG_NUM =
; 0317
; 0318 !++
; 0319 ! FUNCTIONAL DESCRIPTION:
; 0320 !
; 0321 ! Returns the base address of the node data base entry for
; 0322 ! the specified node number
; 0323 !
; 0324 ! FORMAL PARAMETERS
; 0325 !
; 0326 ! NODE Node number of the node whose data base is to be
; 0327 ! located
; 0328 !
; 0329 ! IMPLICIT INPUTS
; 0330 !
; 0331 ! XPTDB
; 0332 !
; 0333 ! ROUTINE VALUE:
; 0334 !
; 0335 ! Address of the node data base entry for .NODE
; 0336 !
; 0337 ! SIDE EFFECTS:
; 0338 !
; 0339 ! NONE.
; 0340 !
; 0341 !--
; 0342
; 0343 begin
; 0344 require 'XPTSYM';
; 0381
; 0382 NODE = .NODE - 1;
; 0383 if .NODE lssu NN
; 0384 then
; 0385 begin
; 0386 NODE = .NODE*NODElength;
; 0387 .XPTDB[XPTnoddb] + .NODE
; 0388 end
; 0389 else
; 0390 0
; 0391 end; !End of XPT$GET_NODE_DB
.SBTTL GTNODE
000000 010146 GTNODE::
U.2: MOV R1,-(SP) ; 0316
000002 010001 MOV R0,R1 ; *,NODE
000004 005301 DEC R1 ; NODE 0382
000006 016700 000002G MOV .CRDAT+2,R0 ; 0383
000012 020160 000016 CMP R1,16(R0) ; NODE,*
000016 103012 BHIS 1$
XPT16 25-Jan-1983 09:55:02 TOPS-20 Bliss-16 2A(530) Page 7
X01150 30-Dec-1982 21:23:04 NETPKG:<XPT>XPT16.B16.8 (4)
000020 010100 MOV R1,R0 ; NODE,* 0386
000022 072027 000003 ASH #3,R0
000026 010001 MOV R0,R1 ; *,NODE
000030 016700 000002G MOV .CRDAT+2,R0 ; 0387
000034 016000 000012 MOV 12(R0),R0
000040 060100 ADD R1,R0 ; NODE,*
000042 000401 BR 2$ ; 0383
000044 005000 1$: CLR R0
000046 012601 2$: MOV (SP)+,R1 ; 0316
000050 000207 RTS PC
; Routine Size: 21 words, Routine Base: $CODE$ + 0046
; Maximum stack depth per invocation: 2 words
XPT16 25-Jan-1983 09:55:02 TOPS-20 Bliss-16 2A(530) Page 8
X01150 30-Dec-1982 21:23:04 NETPKG:<XPT>XPT16.B16.8 (5)
; 0392
; 0393 global
; 0394 routine GET_XPTDB (DBADDR): CALL$ novalue =
; 0395
; 0396 !++
; 0397 ! FUNCTIONAL DESCRIPTION:
; 0398 !
; 0399 ! Returns the address of the Transport data base in the specified location.
; 0400 !
; 0401 ! FORMAL PARAMETERS
; 0402 !
; 0403 ! DBADDR The address of an area to contain the doubleword
; 0404 ! address of the data base.
; 0405 !
; 0406 ! IMPLICIT INPUTS
; 0407 !
; 0408 ! NONE.
; 0409 !
; 0410 ! ROUTINE VALUE:
; 0411 ! COMPLETION CODES:
; 0412 !
; 0413 ! NONE.
; 0414 !
; 0415 ! SIDE EFFECTS:
; 0416 !
; 0417 ! NONE.
; 0418 !
; 0419 !--
; 0420
; 0421 begin
; 0422 map DBADDR: ref vector[2];
; 0423 external MCB$GAW_PROCESS_DATA_BASE: vector[2];
; 0424
; 0425 DBADDR[0] = .MCB$GAW_PROCESS_DATA_BASE[0];
; 0426 DBADDR[1] = .MCB$GAW_PROCESS_DATA_BASE[1];
; 0427
; 0428 end; !End of GET_XPTDB
.SBTTL GET.XPTDB
000000 016775 000000G 000002 GET.XPTDB::
U.3: MOV .CRDAT,@2(R5) ; *,DBADDR(.AP.) 0425
000006 016505 000002 MOV 2(R5),R5 ; DBADDR(.AP.),* 0426
000012 016765 000002G 000002 MOV .CRDAT+2,2(R5)
000020 000207 RTS PC ; 0394
; Routine Size: 9 words, Routine Base: $CODE$ + 0120
; Maximum stack depth per invocation: 0 words
XPT16 25-Jan-1983 09:55:02 TOPS-20 Bliss-16 2A(530) Page 9
X01150 30-Dec-1982 21:23:04 NETPKG:<XPT>XPT16.B16.8 (6)
; 0429
; 0430 routine TOPOLOGY (_CCB): CALL$ =
; 0431
; 0432 !++
; 0433 ! FUNCTIONAL DESCRIPTION:
; 0434 !
; 0435 !
; 0436 ! FORMAL PARAMETERS
; 0437 !
; 0438 ! _CCB Function CCB to be passed to the routine.
; 0439 !
; 0440 ! IMPLICIT INPUTS
; 0441 !
; 0442 ! NONE.
; 0443 !
; 0444 ! ROUTINE VALUE:
; 0445 ! COMPLETION CODES:
; 0446 !
; 0447 ! NONE.
; 0448 !
; 0449 ! SIDE EFFECTS:
; 0450 !
; 0451 ! NONE.
; 0452 !
; 0453 !--
; 0454
; 0455 begin
; 0456 require 'XPTSYM';
; 0493 stacklocal NODEs;
; 0494 local CCB: ref block field (C_fields),
; 0495 NODEb: ref NODEblock,
; 0496 NODEn,WORK;
; 0497 pointer PTR;
; 0498
; 0499 CCB = ._CCB;
; 0500 MAP$(.CCB[C_BIAS]);
; 0501 PTR = .CCB[C_ADDR];
; 0502 NODEb = .XPTDB[XPTnoddb];
; 0503 NODEs = NN;
; 0504 ch$wchar_a(.NODEs<0,8>,PTR); ! Move in NN
; 0505 ch$wchar_a(.NODEs<8,8>,PTR);
; 0506 NODEn = 0;
; 0507 WORK = 0;
; 0508 do
; 0509 begin
; 0510 local TYPE;
; 0511 NODEn = .NODEn + 1;
; 0512 TYPE = 0^8; ! Assume node unreachable
; 0513 if .Reach ! Node reachable -
; 0514 then begin
; 0515 TYPE = 3^8; ! Assume Phase III
; 0516 if .Phase2_node
XPT16 25-Jan-1983 09:55:02 TOPS-20 Bliss-16 2A(530) Page 10
X01150 30-Dec-1982 21:23:04 NETPKG:<XPT>XPT16.B16.8 (6)
; 0517 then TYPE = 2^8; ! Phase II
; 0518 end;
; 0519 WORK = .WORK or .TYPE;
; 0520 WORK = .WORK^-2;
; 0521 if .NODEn<0,2> eql 0
; 0522 then begin
; 0523 ch$wchar_a(.WORK,PTR);
; 0524 WORK = 0;
; 0525 end;
; 0526 NODEb = vector[.NODEb,NODEsize];
; 0527 end
; 0528 while .NODEn lss .NODEs;
; 0529
; 0530 if .NODEn<0,2> neq 0
; 0531 then begin
; 0532 do (NODEn = .NODEn + 1; WORK = .WORK^-2) while .NODEn<0,2> neq 0;
; 0533 ch$wchar_a(.WORK,PTR);
; 0534 end;
; 0535
; 0536 PTR = ch$diff(.PTR,.CCB[C_ADDR]);
; 0537 CCB[C_CNT] = .PTR; ! Set up buffer count
; 0538 true
; 0539 end; !End of TOPOLOGY
.GLOBL KISAR6
.SBTTL TOPOLOGY
000000 016504 000002 ; TOPOLOGY
U.4: MOV 2(R5),R4 ; .CCB(.AP.),CCB 0499
000004 016467 000016 000000G MOV 16(R4),KISAR6 ; *(CCB),* 0500
000012 016400 000020 MOV 20(R4),R0 ; *(CCB),PTR 0501
000016 016701 000002G MOV .CRDAT+2,R1 ; 0502
000022 016105 000012 MOV 12(R1),R5 ; *,NODEB
000026 016146 000016 MOV 16(R1),-(SP) ; *,NODES 0503
000032 111620 MOVB (SP),(R0)+ ; NODES,PTR 0504
000034 116620 000001 MOVB 1(SP),(R0)+ ; NODES,PTR 0505
000040 005003 CLR R3 ; NODEN 0506
000042 005002 CLR R2 ; WORK 0507
000044 005203 1$: INC R3 ; NODEN 0511
000046 005001 CLR R1 ; TYPE 0512
000050 005715 TST (R5) ; NODEB 0513
000052 100007 BPL 2$
000054 012701 001400 MOV #1400,R1 ; *,TYPE 0515
000060 032715 001000 BIT #1000,(R5) ; *,NODEB 0516
000064 001402 BEQ 2$
000066 012701 001000 MOV #1000,R1 ; *,TYPE 0517
000072 050102 2$: BIS R1,R2 ; TYPE,WORK 0519
000074 006202 ASR R2 ; WORK 0520
000076 006202 ASR R2 ; WORK
000100 032703 000003 BIT #3,R3 ; *,NODEN 0521
XPT16 25-Jan-1983 09:55:02 TOPS-20 Bliss-16 2A(530) Page 11
X01150 30-Dec-1982 21:23:04 NETPKG:<XPT>XPT16.B16.8 (6)
000104 001002 BNE 3$
000106 110220 MOVB R2,(R0)+ ; WORK,PTR 0523
000110 005002 CLR R2 ; WORK 0524
000112 062705 000010 3$: ADD #10,R5 ; *,NODEB 0526
000116 020316 CMP R3,(SP) ; NODEN,NODES 0528
000120 002751 BLT 1$
000122 032703 000003 BIT #3,R3 ; *,NODEN 0530
000126 001407 BEQ 5$
000130 005203 4$: INC R3 ; NODEN 0532
000132 006202 ASR R2 ; WORK
000134 006202 ASR R2 ; WORK
000136 032703 000003 BIT #3,R3 ; *,NODEN
000142 001372 BNE 4$
000144 110220 MOVB R2,(R0)+ ; WORK,PTR 0533
000146 166400 000020 5$: SUB 20(R4),R0 ; *(CCB),PTR 0536
000152 010064 000022 MOV R0,22(R4) ; PTR,*(CCB) 0537
000156 012700 000001 MOV #1,R0 ; 0430
000162 005726 TST (SP)+
000164 000207 RTS PC
; Routine Size: 59 words, Routine Base: $CODE$ + 0142
; Maximum stack depth per invocation: 1 word
XPT16 25-Jan-1983 09:55:02 TOPS-20 Bliss-16 2A(530) Page 12
X01150 30-Dec-1982 21:23:04 NETPKG:<XPT>XPT16.B16.8 (7)
; 0540
; 0541 global
; 0542 routine CDTB (BUF_PTR,LEN) =
; 0543
; 0544 !++
; 0545 ! FUNCTIONAL DESCRIPTION:
; 0546 !
; 0547 ! This routine takes two parameters which describe a potential
; 0548 ! image numeric ASCII field, and attempt to convert it to binary.
; 0549 ! The number is assumed to be expressed in decimal radix. If a
; 0550 ! non-numeric character is encountered before the field is exhausted,
; 0551 ! an error code of -1 is returned.
; 0552 !
; 0553 ! FORMAL PARAMETERS
; 0554 !
; 0555 ! BUF_PTR - A character pointer to the field to
; 0556 ! be examined.
; 0557 ! LEN - The length of the field.
; 0558 !
; 0559 ! IMPLICIT INPUTS
; 0560 !
; 0561 ! NONE.
; 0562 !
; 0563 ! ROUTINE VALUE: "Failure" or the converted binary number.
; 0564 ! COMPLETION CODES:
; 0565 !
; 0566 ! < 0 : Failure - the whole field is not numeric.
; 0567 ! >= 0 : The binary number converted from the field.
; 0568 !
; 0569 ! SIDE EFFECTS:
; 0570 !
; 0571 ! NONE.
; 0572 !
; 0573 !--
; 0574
; 0575 begin
; 0576
; 0577 local VALUE;
; 0578 pointer P;
; 0579
; 0580 P = .BUF_PTR;
; 0581 VALUE = 0;
; 0582
; 0583 !
; 0584 ! Scan through specified string
; 0585 !
; 0586
; 0587 incr I from 1 to .LEN do
; 0588 begin
; 0589 local DIGIT;
; 0590 DIGIT = getb(P)-%c'0';
; 0591 if (.DIGIT lss 0) !If the next character
XPT16 25-Jan-1983 09:55:02 TOPS-20 Bliss-16 2A(530) Page 13
X01150 30-Dec-1982 21:23:04 NETPKG:<XPT>XPT16.B16.8 (7)
; 0592 or (.DIGIT gtr 9) ! is out of decimal range,
; 0593 then return -1; ! then quit, otherwise
; 0594 VALUE = (.VALUE*10) + .DIGIT; ! add it into accumulated value
; 0595 end;
; 0596
; 0597 .VALUE
; 0598 end; !End of CDTB
.SBTTL CDTB
000000 004167 000000G CDTB:: JSR R1,$SAVE4 ; 0542
000004 016603 000016 MOV 16(SP),R3 ; BUF.PTR,P 0580
000010 005000 CLR R0 ; VALUE 0581
000012 005004 CLR R4 ; I 0587
000014 000420 BR 4$
000016 005002 1$: CLR R2 ; DIGIT 0590
000020 152302 BISB (R3)+,R2 ; P,DIGIT
000022 162702 000060 SUB #60,R2 ; *,DIGIT
000026 100403 BMI 2$ ; 0591
000030 020227 000011 CMP R2,#11 ; DIGIT,* 0592
000034 003403 BLE 3$
000036 012700 177777 2$: MOV #-1,R0 ; 0593
000042 000207 RTS PC
000044 010001 3$: MOV R0,R1 ; VALUE,* 0594
000046 070127 000012 MUL #12,R1
000052 060201 ADD R2,R1 ; DIGIT,*
000054 010100 MOV R1,R0 ; *,VALUE
000056 005204 4$: INC R4 ; I 0587
000060 020466 000014 CMP R4,14(SP) ; I,LEN
000064 003754 BLE 1$
000066 000207 RTS PC ; 0542
; Routine Size: 28 words, Routine Base: $CODE$ + 0330
; Maximum stack depth per invocation: 6 words
XPT16 25-Jan-1983 09:55:02 TOPS-20 Bliss-16 2A(530) Page 14
X01150 30-Dec-1982 21:23:04 NETPKG:<XPT>XPT16.B16.8 (8)
; 0599
; 0600 global
; 0601 routine CBTD (PTR_ADDR,NUM) =
; 0602
; 0603 !++
; 0604 ! FUNCTIONAL DESCRIPTION:
; 0605 !
; 0606 ! This routine, which is a short replacement for the -11S one,
; 0607 ! converts a number to decimal ASCII characters. At least one
; 0608 ! character will always be written; the number 0 will come out
; 0609 ! as '0'.
; 0610 !
; 0611 ! FORMAL PARAMETERS
; 0612 !
; 0613 ! PTR_ADDR Address of a pointer to the area where the
; 0614 ! number is to be expanded. The pointer will
; 0615 ! be updated to point past the expanded number.
; 0616 !
; 0617 ! NUM The number to be expanded. The number will be
; 0618 ! treated as unsigned.
; 0619 !
; 0620 ! IMPLICIT INPUTS
; 0621 !
; 0622 ! NONE.
; 0623 !
; 0624 ! ROUTINE VALUE: The number of characters written (1-6).
; 0625 ! COMPLETION CODES:
; 0626 !
; 0627 ! NONE.
; 0628 !
; 0629 ! SIDE EFFECTS:
; 0630 !
; 0631 ! NONE.
; 0632 !
; 0633 !--
; 0634
; 0635 begin
; 0636 local CHR,CNT;
; 0637 CHR=(.NUM mod 10)+%c'0';
; 0638 if .NUM gtr 9
; 0639 then CNT=CBTD(.PTR_ADDR,.NUM/10)
; 0640 else CNT=0;
; 0641 ch$wchar_a (.CHR,.PTR_ADDR);
; 0642 .CNT+1
; 0643 end; !End of CBTD
.SBTTL CBTD
000000 004167 000000G CBTD:: JSR R1,$SAVE3 ; 0601
000004 016602 000012 MOV 12(SP),R2 ; NUM,* 0637
000010 010201 MOV R2,R1
000012 006700 SXT R0
XPT16 25-Jan-1983 09:55:02 TOPS-20 Bliss-16 2A(530) Page 15
X01150 30-Dec-1982 21:23:04 NETPKG:<XPT>XPT16.B16.8 (8)
000014 071027 000012 DIV #12,R0
000020 010103 MOV R1,R3 ; *,CHR
000022 062703 000060 ADD #60,R3 ; *,CHR
000026 020227 000011 CMP R2,#11 ; 0638
000032 003413 BLE 1$
000034 016646 000014 MOV 14(SP),-(SP) ; PTR.ADDR,* 0639
000040 010201 MOV R2,R1
000042 006700 SXT R0
000044 071027 000012 DIV #12,R0
000050 010046 MOV R0,-(SP)
000052 004767 177722 JSR PC,CBTD
000056 022626 CMP (SP)+,(SP)+
000060 000401 BR 2$ ; 0638
000062 005000 1$: CLR R0 ; CNT 0640
000064 017601 000014 2$: MOV @14(SP),R1 ; PTR.ADDR,* 0641
000070 110311 MOVB R3,(R1) ; CHR,*
000072 005276 000014 INC @14(SP) ; PTR.ADDR
000076 005200 INC R0 ; CNT 0642
000100 000207 RTS PC ; 0601
; Routine Size: 33 words, Routine Base: $CODE$ + 0420
; Maximum stack depth per invocation: 7 words
XPT16 25-Jan-1983 09:55:02 TOPS-20 Bliss-16 2A(530) Page 16
X01150 30-Dec-1982 21:23:04 NETPKG:<XPT>XPT16.B16.8 (9)
; 0644
; 0645 %IF %VARIANT NEQ 0 %THEN
; 0646 global
; 0647 routine CHKBUF: novalue =
; 0648
; 0649 !++
; 0650 ! FUNCTIONAL DESCRIPTION:
; 0651 !
; 0652 ! Does a check for lost buffers, by:
; 0653 ! 1) calculating the number of buffers outstanding from all other
; 0654 ! processes to Transport; and
; 0655 ! 2) subtracting the number of buffers outstanding from Transport
; 0656 ! to all other processes.
; 0657 ! If this number is not 0, there is a buffer missing somewhere.
; 0658 !
; 0659 ! FORMAL PARAMETERS
; 0660 !
; 0661 ! NONE.
; 0662 !
; 0663 ! IMPLICIT INPUTS
; 0664 !
; 0665 ! The following quotas and counters:
; 0666 !
; 0667 ! INPUTquota $INPQ
; 0668 ! ECLquota $ECLQ
; 0669 ! LINEquota $LINQ
; 0670 ! INPUTcount
; 0671 ! REqueue_count
; 0672 !
; 0673 ! ROUTINE VALUE:
; 0674 ! COMPLETION CODES:
; 0675 !
; 0676 ! NONE.
; 0677 !
; 0678 ! SIDE EFFECTS:
; 0679 !
; 0680 ! Blows up the system if the buffer check fails.
; 0681 !
; 0682 !--
; 0683
; 0684 begin
; 0685
; 0686 local LINEb;
; 0687 require 'XPTSYM';
; 0724 local LC,COUNT: signed;
; 0725 bind Q = max(($LINQ/(if NLN lss 3 then 1 else if NLN lss 7 then 2 else 3)),1);
; 0726
; 0727 COUNT = ($INPQ - .INPUTquota) ! Buffers in from ECL
; 0728 - (LC = 0;
; 0729 decr I from NLN to 1 do begin
; 0730 LINEb = $XPT_GET_LINE_DB(.I); ! For each line:
; 0731 LC = .LC + (Q - .LINEquota); ! Buffers out to line
XPT16 25-Jan-1983 09:55:02 TOPS-20 Bliss-16 2A(530) Page 17
X01150 30-Dec-1982 21:23:04 NETPKG:<XPT>XPT16.B16.8 (9)
; 0732 LC = .LC - .INPUTcount; ! Buffers in from line
; 0733 end;
; 0734 .LC)
; 0735 - ($ECLQ - .ECLquota); ! Buffers out to ECL
; 0736
; 0737 if .COUNT neq 0 then ! Oops...
; 0738 SIGNAL_STOP(XPT$_BUF,.COUNT);
; 0739
; 0740 end; !End of CHKBUF
.SBTTL CHKBUF
000000 004167 000000G CHKBUF::
U.5: JSR R1,$SAVE5 ; 0647
000004 005746 TST -(SP)
000006 016703 000002G MOV .CRDAT+2,R3 ; 0725
000012 016305 000022 MOV 22(R3),R5
000016 020527 000003 CMP R5,#3
000022 002003 BGE 1$
000024 012702 000001 MOV #1,R2
000030 000411 BR 4$
000032 020527 000007 1$: CMP R5,#7
000036 002003 BGE 2$
000040 012700 000002 MOV #2,R0
000044 000402 BR 3$
000046 012700 000003 2$: MOV #3,R0
000052 010002 3$: MOV R0,R2
000054 005001 4$: CLR R1
000056 156301 000034 BISB 34(R3),R1
000062 005000 CLR R0
000064 071002 DIV R2,R0
000066 010004 MOV R0,R4
000070 003002 BGT 5$
000072 012704 000001 MOV #1,R4
000076 116301 000104 5$: MOVB 104(R3),R1 ; 0727
000102 005000 CLR R0
000104 156300 000103 BISB 103(R3),R0
000110 160100 SUB R1,R0
000112 010016 MOV R0,(SP)
000114 005002 CLR R2 ; LC 0728
000116 005705 TST R5 ; I 0729
000120 003417 BLE 7$
000122 010500 6$: MOV R5,R0 ; I,* 0730
000124 004767 000000G JSR PC,GTLINE
000130 010003 MOV R0,R3 ; *,LINEB
000132 116300 000036 MOVB 36(R3),R0 ; *(LINEB),* 0731
000136 010401 MOV R4,R1
000140 160001 SUB R0,R1
000142 060201 ADD R2,R1 ; LC,*
000144 010102 MOV R1,R2 ; *,LC
000146 005000 CLR R0 ; 0732
000150 156300 000043 BISB 43(R3),R0 ; *(LINEB),*
XPT16 25-Jan-1983 09:55:02 TOPS-20 Bliss-16 2A(530) Page 18
X01150 30-Dec-1982 21:23:04 NETPKG:<XPT>XPT16.B16.8 (9)
000154 160002 SUB R0,R2 ; *,LC
000156 077517 SOB R5,6$ ; I,* 0000
000160 160216 7$: SUB R2,(SP) ; LC,* 0728
000162 016701 000002G MOV .CRDAT+2,R1 ; 0735
000166 010100 MOV R1,R0 ; XPTDB,*
000170 005002 CLR R2
000172 156102 000101 BISB 101(R1),R2
000176 116000 000102 MOVB 102(R0),R0
000202 042700 177400 BIC #177400,R0
000206 160200 SUB R2,R0
000210 060016 ADD R0,(SP)
000212 011600 MOV (SP),R0 ; *,COUNT 0727
000214 001411 BEQ 8$ ; 0737
000216 010046 MOV R0,-(SP) ; COUNT,* 0738
000220 012746 100114 MOV #-77664,-(SP)
000224 012746 000002 MOV #2,-(SP)
000230 004767 000000G JSR PC,$STOP
000234 062706 000006 ADD #6,SP
000240 005726 8$: TST (SP)+ ; 0647
000242 000207 RTS PC
; Routine Size: 82 words, Routine Base: $CODE$ + 0522
; Maximum stack depth per invocation: 11 words
; 0741 %FI
XPT16 25-Jan-1983 09:55:02 TOPS-20 Bliss-16 2A(530) Page 19
X01150 30-Dec-1982 21:23:04 NETPKG:<XPT>XPT16.B16.8 (10)
; 0742
; 0743 global
; 0744 routine UNSPAWN(CCB): novalue =
; 0745
; 0746 !++
; 0747 ! FUNCTIONAL DESCRIPTION:
; 0748 !
; 0749 ! Untangles a CCB spawned by Transport:
; 0750 !
; 0751 ! 1. If the CCB has a buffer of its own, release it.
; 0752 ! 2. If the pass-through CCB (the one the spawned CCB points to)
; 0753 ! has had its buffer pointer adjusted, un-adjust it.
; 0754 ! 3. Release the spawned CCB.
; 0755 !
; 0756 ! FORMAL PARAMETERS
; 0757 !
; 0758 ! CCB Address of the spawned CCB.
; 0759 !
; 0760 ! IMPLICIT INPUTS
; 0761 !
; 0762 ! NONE.
; 0763 !
; 0764 ! ROUTINE VALUE:
; 0765 ! COMPLETION CODES:
; 0766 !
; 0767 ! NONE.
; 0768 !
; 0769 ! SIDE EFFECTS:
; 0770 !
; 0771 ! NONE.
; 0772 !
; 0773 !--
; 0774
; 0775 begin
; 0776
; 0777 map CCB: ref block field(C_XPT_fields);
; 0778 bind CCB_P = .CCB[C_STK]: block field(C_fields);
; 0779 local ADJ;
; 0780
; 0781 if ((ADJ=.CCB[C_XPT_ADJUST]) neq 0) then begin ! Nonzero adjustment factor:
; 0782 CCB_P[C_ADDR] = ch$plus(.CCB_P[C_ADDR],-.ADJ); ! readjust pass-through
; 0783 CCB_P[C_CNT] = .CCB_P[C_CNT] + .ADJ; ! buffer descriptor
; 0784 end;
; 0785 if ((.CCB[C_CHN] neq 0) ! If the spawned CCB
; 0786 and (.CCB[C_BIAS] neq 0)) then ! has an SDB of
; P 0787 $MCB_RETURN_CCB_AND_BUFFER ! its own, release
; 0788 (.CCB[C_XPT_ALLOCATION],.CCB) ! them both
; 0789 else $MCB_RETURN_CCB(.CCB); ! Otherwise, just release the CCB
; 0790
; 0791 end; !End of UNSPAWN
XPT16 25-Jan-1983 09:55:02 TOPS-20 Bliss-16 2A(530) Page 20
X01150 30-Dec-1982 21:23:04 NETPKG:<XPT>XPT16.B16.8 (10)
.GLOBL $CBBRT, $CCBRT
.SBTTL UNSPAWN
000000 004167 000000G UNSPAWN::
JSR R1,$SAVE4 ; 0744
000004 016604 000014 MOV 14(SP),R4 ; CCB,* 0778
000010 116400 000033 MOVB 33(R4),R0 ; *,ADJ 0781
000014 001406 BEQ 1$
000016 016401 000004 MOV 4(R4),R1 ; 0782
000022 160061 000020 SUB R0,20(R1) ; ADJ,*
000026 060061 000022 ADD R0,22(R1) ; ADJ,* 0783
000032 005764 000002 1$: TST 2(R4) ; 0785
000036 001410 BEQ 2$
000040 005764 000016 TST 16(R4) ; 0786
000044 001405 BEQ 2$
000046 016401 000034 MOV 34(R4),R1 ; 0788
000052 004767 000000G JSR PC,$CBBRT
000056 000207 RTS PC ; 0785
000060 004767 000000G 2$: JSR PC,$CCBRT ; 0789
000064 000207 RTS PC ; 0744
; Routine Size: 27 words, Routine Base: $CODE$ + 0766
; Maximum stack depth per invocation: 6 words
; 0792
; 0793 end !End of module XPT16
; 0794 eludom
; OTS external references
.GLOBL $SAVE5, $SAVE4, $SAVE3, $STOP
; PSECT SUMMARY
;
; Psect Name Words Attributes
; XPTJMP 4 RO , I , LCL, REL, CON
; $CODE$ 278 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 26 6 0
XPT16 25-Jan-1983 09:55:02 TOPS-20 Bliss-16 2A(530) Page 21
X01150 30-Dec-1982 21:23:04 NETPKG:<XPT>XPT16.B16.8 (10)
; NETPKG:<MCB>NMXLIB.L16.13 200 0 0 0
; NETPKG:<XPT>XPTLIB.L16.3 510 165 32 0
; Size: 278 code + 4 data words
; Run Time: 00:06.6
; Elapsed Time: 00:24.4
; Memory Used: 32 pages
; Compilation Complete
ADDRESS 152+ 154+ 155+ 157+ 158+ 160+ 161+ 167+ 168+ 171+ 172+ 173+
ADJ 779 781# 782 783
BPT 181+# 193+#
BUFCHK 185+ 186+# 195+ 196+#
BUF_PTR 542 580
CALL$ 206 207 394# 430#
CBTD 601* 639
CCB 494 499# 500 501 536 537# 744 777 778 781 785 786
788 789
CCB_P 778# 782# 783#
CDTB 542*
CHKBUF 188+* 189+ 208 647*
CHR 636 637# 641
CNT 636 639# 640# 642
COUNT 724 727# 737 738
C_ADDR 501 536 782
C_BIAS 500 786
C_CHN 785
C_CNT 537 783
C_FIELDS 494 778
C_STK 778
C_XPT_ADJUST 781
C_XPT_ALLOCATION 788
C_XPT_FIELDS 777
DBADDR 394 422 425# 426#
DIGIT 589 590# 591 592 594
ECLQUOTA 735
GETB 590
GETQ 152+#
GETTOP 229
GETW 131+# 154+ 155+
GETXDB 228
GET_XPTDB 206 228 394*
I 176+ 178+ 587 729 730
INPUTCOUNT 732
INPUTQUOTA 727
J 176+ 178+
JUMP_TO 222# 228 229 231
LC 724 728# 731# 732# 734
LEN 542 587
LINE 238 304# 305 308# 309
LINEBLOCK 293+ 371+ 483+ 714+
LINEB 291+ 293+ 369+ 371+ 481+ 483+ 686 712+ 714+ 730#
LINELENGTH 308
LINEQUOTA 731
M 176+ 177+
MAP$ 500
MATRIX 176+# 178+
MCB$GAW_PROCESS_DATA_BASE 296+ 297+ 300+ 374+ 375+ 378+ 423 425 426 486+ 487+ 490+
717+ 718+ 721+
N 176+ 177+
NL 176+ 178+
NLN 305 725 729
NN 383 503
NODE 316 382# 383 386# 387
NODEBLOCK 288+ 366+ 478+ 495 709+
NODEB 286+ 288+ 364+ 366+ 476+ 478+ 495 502# 526# 707+ 709+
NODELENGTH 386
NODEN 496 506# 511# 521 528 530 532#
NODESIZE 526
NODES 493 503# 504 505 528
NOP 193+ 194+ 196+
NO_LINEB 292+ 370+ 482+ 713+
NO_NODEB 287+ 365+ 477+ 708+
NUM 601 637 638 639
P 578 580# 590
PHASE2_NODE 516
POINTER 497 578
PTR 131+ 134+ 135+ 138+ 141+ 142+ 148+ 149+ 152+ 154+ 155+ 157+
160+ 161+ 162+ 163+ 167+ 168+ 497 501# 504 505 523 533
536# 537
PTR_ADDR 601 639 641
PUTQ 157+#
PUTW 138+# 167+ 168+
Q 725# 731
REACH 513
TOPOLOGY 207 229 430*
TRUE 538
TYPE 510 512# 515# 517# 519
UNIT 176+# 177+ 178+
UNSPAWN 744*
VALUE 138+ 139+ 141+ 142+ 147+ 577 581# 594# 597
WORK 496 507# 519# 520# 523 524# 532# 533
X 133+ 134+# 135+# 136+ 146+ 147+# 148+ 149+
XPT$GET_LINE_DB 204 238*
XPT$GET_NODE_DB 205 316*
XPT$LKG_NUM 204 205 238# 316#
XPT$_BUF 738
XPT16 1#
XPTDBBLOCK 302+ 380+ 492+ 723+
XPTDB 299+ 300+# 301+ 309 377+ 378+# 379+ 387 489+ 490+# 491+ 502
720+ 721+# 722+
XPTJMP 225
XPTLINDB 309
XPTNODDB 387 502
ZEROQ 171+#
_CCB 430 499
$ECLQ 735
$INPQ 727
$LINQ 725
$MCB_RETURN_CCB_AND_BUFFER 787
$MCB_RETURN_CCB 789
$XPT_GET_LINE_DB 730
%CTCE 139+ 158+
%REMAINING 183+