Trailing-Edge
-
PDP-10 Archives
-
TOPS-20_V6.1_DECnetSrc_7-23-85
-
mcb/sc/scdsp.lst
There is 1 other file named scdsp.lst in the archive. Click here to see a list.
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 1
27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (1)
; 0001 module SCDSP ( ! CCB-Level Dispatching and Initialization
; 0002 ident = 'X01500'
; 0003 ) =
; 0004 begin
; 0005 !
; 0006 ! COPYRIGHT (c) 1980, 1981, 1982
; 0007 ! DIGITAL EQUIPMENT CORPORATION
; 0008 ! Maynard, Massachusetts
; 0009 !
; 0010 ! This software is furnished under a license and may be used
; 0011 ! and copied only in accordance with the terms of such license
; 0012 ! and with the inclusion of the above copyright notice. This
; 0013 ! software or any other copies thereof may not be provided or
; 0014 ! otherwise made available to any other person. No title to
; 0015 ! and ownership of the software is hereby transferred.
; 0016 !
; 0017 ! The information in this software is subject to change
; 0018 ! without notice and should not be construed as a commitment
; 0019 ! by DIGITAL EQUIPMENT CORPORATION.
; 0020 !
; 0021 ! DIGITAL assumes no responsibility for the use or reliability
; 0022 ! of its software on equipment which is not supplied by
; 0023 ! DIGITAL.
; 0024 !
; 0025
; 0026
; 0027
; 0028 !++
; 0029 ! FACILITY: Session Control
; 0030 !
; 0031 ! ABSTRACT: This is the top level module in the MCB implementation
; 0032 ! of Session Control. It is through this module that all
; 0033 ! CCBs are dispatched to the appropriate processing
; 0034 ! routines. Additionally, SC initialization is performed
; 0035 ! within this module.
; 0036 !
; 0037 ! ENVIRONMENT: MCB
; 0038 !
; 0039 ! AUTHOR: Buren Hoffman CREATION DATE: 2-Apr-80
; 0040 !
; 0041 ! MODIFIED BY:
; 0042 ! X01010 Fixed NM turn on of SC to wait until NSP has returned
; 0043 ! the necessary results for SC to really be on.
; 0044 ! X01020 Changed code to use $byt_ptr macro in place of the
; 0045 ! ch$ptr macro.
; 0046 ! X01030 Corrected mapping bug in FCRCP.
; 0047 ! X01040 Fixed linkage mismatches to called external routines.
; 0048 ! X01050 Added more state checking in accept/reject completion
; 0049 ! handling.
; 0050 ! X01060 Fixed dot bug in connect-rejection processing.
; 0051 ! X01070 Corrected mapping bug in FCXCP.
; 0052 ! X01080 Simple formatting changes to make code read easier.
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 2
X01500 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (1)
; 0053 ! X01090 Fixed dot bug in timeout handling.
; 0054 ! X01100 Moved Port-Open code to routine I$CLS in SCSUB - removed
; 0055 ! it from the timeout routine in this module.
; 0056 ! X01110 Modified dispatch table definition to use the TABLE$ macro.
; 0057 ! X01120 Fixed logic error in FCRCE - nonexistent ccb was being
; 0058 ! released.
; 0059 ! X01130 Fixed resource-release problem in connect-complete processing.
; 0060 ! LDB was being released as an CCB.
; 0061 ! X01140 Fixed connect-received processing to not forward data length
; 0062 ! to user as part of data.
; 0063 ! X01150 LIX was being retrieved from wrong CCB in FCRCE.
; 0064 ! X01160 Removed redundant code in connect-received processing.
; 0065 ! X01170 Fix in abort processing to cause processing of right lnk.
; 0066 ! X01180 Dot bug fix in NR$CST
; 0067 ! X01190 Set reject reason correctly on reject
; 0068 ! X01200 Wrong state checking in NX$REJ fixed
; 0069 ! X01210 Fixed code to prevent two rejects on one link
; 0070 ! X01220 Fix to assure proper optional data format is generated
; 0071 ! X01230 Improved documentation, and added info on SIGNAL_STOPs
; 0072 ! X01240 Fixed completion of nonexistent CCB in reject code.
; 0073 ! X01250 Removed network management stuff to its own module.
; 0074 ! X01260 Made NM module an extension process.
; 0075 ! X01270 Code cleanup, and status code reporting fixes.
; 0076 ! X01280 Use new Comm/Exec to process linkage (.CRDAT for database)
; 0077 ! X01290 Fixed state checking in NX$BUF, NX$DRQ, ..., to accept
; 0078 ! ST_DIR state.
; 0079 ! X01300 Changed GET-LOCAL-NODE-INFO to also be able to return
; 0080 ! node addr / node name information. Changed data-received
; 0081 ! processing to give (beginning-of-message), (middle-of-message),
; 0082 ! and (end-of-message) indications to the user.
; 0083 ! X01310 Updated to use library calls, instead of requires.
; 0084 ! X01320 Fixed bug in link selection in abort handling code.
; 0085 ! Also, put call to I$OPN in connect received code.
; 0086 ! X01330 Changed SC's state codes to correspond to NM's code numbers.
; 0087 ! X01340 Fixed race between CNR and DSR.
; 0088 ! X01350 More fix for above race.
; 0089 ! X01360 Fixed length check for GLN function
; 0090 ! X01370 Repaired info copy length in GLN.
; 0091 ! X01380 Fixed state checking in SR$DAT and SR$INT to allow
; 0092 ! ST_DIR state.
; 0093 ! X01390 Modified connect-received processing to cause PIX-to-link
; 0094 ! binding to be performed when the received connect is
; 0095 ! acknowledged.
; 0096 ! X01400 Changed Confidence-received call to be processed like a
; 0097 ! disconnect-received, with status code of S_ENUR. This
; 0098 ! change allows the task or process to synchronize with
; 0099 ! the vanishing link - instead of being surprised when it
; 0100 ! finds it gone.
; 0101 ! X01410 Additional state check in XCP of disconnect complete from
; 0102 ! NSP.
; 0103 ! X01420 Implemented "paranoid" conditional assembly, and cleaned
; 0104 ! up node-name location.
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 3
X01500 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (1)
; 0105 ! X01430 Upgraded to use new long timer capability.
; 0106 ! X01440 User PIX was not being set for outgoing connects.
; 0107 ! X01450 Optimization work.
; 0108 ! X01460 Fixed CCB completion for NX$INI to do CCP.
; 0109 ! X01470 Added Host-Node-ID processing capability.
; 0110 ! x01480 Use DSR space instead of LDB's for connect info
; 0111 ! x01490 add some in NX$CLS
; 0112 ! x01500 Fix a race condition in FCXCP (patch around it actually).
; 0113 !
; 0114 !--
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 4
X01500 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (2)
; 0115 !
; 0116 ! REQUIRED FILES
; 0117 !
; 0118 library 'SCPRM'; ! Our parameter and macro definitions
; 0119 library 'MCB:MCBLIB';
; 0120 library 'MCB:RSXLIB';
; 0121 library 'MCB:NMXLIB';
; 0122 library 'MCB:XPORTX';
; 0123 library 'MCB:SCSYS';
; 0124
; 0125 require 'NSP:NSINFO';
; 0237
; 0238
; 0239 !
; 0240 ! TABLE OF CONTENTS:
; 0241 !
; 0242 forward routine
; 0243 FCCTL: mcb_db_ccb_mod novalue, ! Control function
; 0244 FCRCE: mcb_db_ccb_mod novalue, ! Receive enable
; 0245 FCRCP: mcb_db_ccb_mod novalue, ! Receive complete
; 0246 FCTMO: mcb_db_ccb_mod novalue, ! Timeout
; 0247 FCXCP: mcb_db_ccb_mod novalue, ! Transmit complete
; 0248 FCXME: mcb_db_ccb_mod novalue; ! Transmit enable
; 0249
; 0250 !
; 0251 ! MACROS:
; 0252 !
; 0253 macro
; M 0254 RAD50 (STR) =
; 0255 %if %bliss (bliss36) %then %rad50_10 STR %else %rad50_11 STR %fi %;
; 0256
; 0257 !
; 0258 ! EQUATED SYMBOLS:
; 0259 !
; 0260
; 0261 !
; 0262 ! OWN STORAGE:
; 0263 !
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 5
X01500 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (3)
; 0264 !
; 0265 ! EXTERNAL REFERENCES:
; 0266 !
; 0267 external
; 0268 $DSPCR;
; 0269
; 0270 external routine ! BLISS Routines
; 0271 FINDLL, ! Find a logical link
; 0272 FINDND, ! Determine node address
; 0273
; 0274 STSMAP, ! Map NSP status to SC status
; 0275
; 0276 I$CLS: novalue, ! Close
; 0277 I$OPN: novalue, ! Open
; 0278
; 0279 NR$CRW: novalue, ! Connect Received
; 0280 NR$DTW: novalue, ! Data Received
; 0281 NR$DRW: novalue, ! Disconnect Received
; 0282 NR$INW: novalue, ! Interrupt Received
; 0283
; 0284 SX$ABW: novalue, ! Abort
; 0285 SX$ACW: novalue, ! Accept
; 0286 SX$CNW: novalue, ! Connect
; 0287 SX$DRW: novalue, ! Data Segment Request
; 0288 SX$IRW: novalue, ! Interrupt Request
; 0289 SX$RJW: novalue, ! Reject
; 0290 SX$SDW: novalue, ! Data Transmit
; 0291 SX$SIW: novalue; ! Interrupt Transmit
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 6
X01500 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (4)
; 0292 !+
; 0293 !
; 0294 ! *** SESSION CONTROL DISPATCH VECTOR ***
; 0295 !
; 0296 ! This vector is the route via which the MCB
; 0297 ! dispatches CCBs to Session Control.
; 0298 !
; 0299 !-
; 0300
; 0301 global bind
; P 0302 $SCLL = TABLE$ ($DSPCR, FC_CCP,
; P 0303 (FC_XME, FCXME), ! Transmit enable
; P 0304 (FC_XCP, FCXCP), ! Transmit complete
; P 0305 (FC_RCE, FCRCE), ! Receive enable
; P 0306 (FC_RCP, FCRCP), ! Receive complete
; P 0307 (FC_CTL, FCCTL), ! Control
; 0308 (FC_TIM, FCTMO)), ! Timeout
; 0309
; 0310
; P 0311 RCPWT = TABLE$ ($DSPCR, N_RHI,
; P 0312 (N_SCNF, NR$DRW), ! Confidence (treat as disc rcv'd)
; P 0313 (N_RCON, NR$CRW), ! Connect received
; P 0314 (N_RDSC, NR$DRW), ! Disconnect received
; P 0315 (N_RDAT, NR$DTW), ! Data received
; 0316 (N_RINT, NR$INW)), ! Interrupt received
; 0317
; P 0318 XMEWT = TABLE$ ($DSPCR, S$XHI,
; P 0319 (S$CON, SX$CNW), ! Connect
; P 0320 (S$ACC, SX$ACW), ! Accept connect
; P 0321 (S$REJ, SX$RJW), ! Reject connect
; P 0322 (S$SND, SX$SDW), ! Transmit data
; P 0323 (S$MRQ, SX$DRW), ! Data message request (SX$MRW)
; P 0324 (S$DRQ, SX$DRW), ! Data segment request
; P 0325 (S$SNI, SX$SIW), ! Transmit interrupt data
; P 0326 (S$IRQ, SX$IRW), ! Interrupt data request
; P 0327 (S$DIS, SX$ABW), ! Disconnect (SX$DSW)
; 0328 (S$ABO, SX$ABW)); ! Abort
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 7
X01500 Control Enable From Network Management 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (5)
; 0329 %sbttl 'Control Enable From Network Management'
; 0330 routine FCCTL (SCDB, CCB, FCM): mcb_db_ccb_mod novalue =
; 0331
; 0332 !++
; 0333 ! FUNCTIONAL DESCRIPTION:
; 0334 ! This routine is activated by receipt of a Control
; 0335 ! Enable from Network Management.
; 0336 !
; 0337 !
; 0338 ! FORMAL PARAMETERS:
; 0339 ! CCB CCB to pass to handler routine
; 0340 ! FCM Function code modifier
; 0341 !
; 0342 ! IMPLICIT INPUTS:
; 0343 ! CCB Contents
; 0344 !
; 0345 ! IMPLICIT OUTPUTS:
; 0346 ! None
; 0347 !
; 0348 ! ROUTINE VALUE:
; 0349 ! COMPLETION CODES:
; 0350 ! None
; 0351 !
; 0352 ! SIDE EFFECTS:
; 0353 ! None
; 0354 !--
; 0355
; 0356 begin
; 0357 $sc_get_data_base (SCDB);
; 0358 map CCB: ref block field (C_FIELDS);
; 0359
; 0360 CALL$E (NM_EXT, .SCDB [SC_SNPIX], .CCB)
; 0361 end;
.TITLE SCDSP
.IDENT /X01500/
000000 .PSECT $PLIT$, RO , D
000000 000000G P.AAA: .WORD $DSPCR
000002 000000V .WORD FCXME
000004 000000V .WORD FCRCE
000006 000000G .WORD $DSPCR
000010 000000' .WORD FCCTL
000012 000000V .WORD FCTMO
000014 000000V .WORD FCXCP
000016 000000V .WORD FCRCP
000020 000000G .WORD $DSPCR
000022 000000G .WORD $DSPCR
000024 000000G P.AAB: .WORD NR$DRW
000026 000000G .WORD $DSPCR
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 8
X01500 Control Enable From Network Management 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (5)
000030 000000G .WORD NR$CRW
000032 000000G .WORD NR$DRW
000034 000000G .WORD NR$DTW
000036 000000G .WORD NR$INW
000040 000000G P.AAC: .WORD SX$CNW
000042 000000G .WORD SX$ACW
000044 000000G .WORD SX$RJW
000046 000000G .WORD SX$SDW
000050 000000G .WORD SX$DRW
000052 000000G .WORD SX$DRW
000054 000000G .WORD SX$SIW
000056 000000G .WORD SX$IRW
000060 000000G .WORD SX$ABW
000062 000000G .WORD SX$ABW
000064 000000G .WORD $DSPCR
.GLOBL $DSPCR, FINDLL, FINDND, STSMAP
.GLOBL I$CLS, I$OPN, NR$CRW, NR$DTW, NR$DRW
.GLOBL NR$INW, SX$ABW, SX$ACW, SX$CNW
.GLOBL SX$DRW, SX$IRW, SX$RJW, SX$SDW
.GLOBL SX$SIW, .CRDAT, NM.EXT, $CALLE
000000' $SCLL== P.AAA
000024' RCPWT== P.AAB
000040' XMEWT== P.AAC
.SBTTL FCCTL Control Enable From Network Management
000000 .PSECT $CODE$, RO
000000 010446 FCCTL: MOV R4,-(SP) ; CCB,* 0360
000002 012746 000001 MOV #1,-(SP)
000006 012746 000000G MOV #NM.EXT,-(SP)
000012 005046 CLR -(SP)
000014 116516 000004 MOVB 4(R5),(SP) ; *(SCDB),*
000020 004767 000000G JSR PC,$CALLE
000024 062706 000010 ADD #10,SP ; 0356
000030 000207 RTS PC ; 0330
; Routine Size: 13 words, Routine Base: $CODE$ + 0000
; Maximum stack depth per invocation: 5 words
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 9
X01500 Receive Complete From NSP 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (6)
; 0362 %sbttl 'Receive Complete From NSP'
; 0363 routine FCRCP (SCDB, CCB, FCM): mcb_db_ccb_mod novalue =
; 0364
; 0365 !++
; 0366 ! FUNCTIONAL DESCRIPTION:
; 0367 ! This routine is activated by receipt of a receive
; 0368 ! complete CCB from NSP.
; 0369 !
; 0370 !
; 0371 ! FORMAL PARAMETERS:
; 0372 ! CCB CCB to pass to handler routine
; 0373 ! FCM Function code modifier
; 0374 !
; 0375 ! IMPLICIT INPUTS:
; 0376 ! CCB Contents
; 0377 !
; 0378 ! IMPLICIT OUTPUTS:
; 0379 ! None
; 0380 !
; 0381 ! ROUTINE VALUE:
; 0382 ! COMPLETION CODES:
; 0383 ! None
; 0384 !
; 0385 ! SIDE EFFECTS:
; 0386 ! None
; 0387 !--
; 0388
; 0389 begin
; 0390 $sc_get_data_base (SCDB);
; 0391 map CCB: ref block field (C_FIELDS);
; 0392 local
; 0393 LNK: ref block field (LLT_FIELDS),
; 0394 LCCB: ref block field (C_FIELDS),
; 0395 STATUS;
; 0396 bind
; 0397 LLT = SCDB [SC_LLT_ADDR]: ref blockvector [,L_SIZE] field (LLT_FIELDS),
; 0398 PIV = LLT [.SCDB [SC_LINKS], L_TOP]: byte_vector;
; 0399
; 0400 MAP$ (.SCDB [SC_LLT_BIAS]);
; 0401 LNK = LLT [.PIV [.CCB [C_LIX]], L_TOP];
; 0402
; 0403
; 0404 case .FCM^-1 from 0 to N_RHI^-1 of
; 0405 set
; 0406
; 0407
; 0408
; 0409 ! ************
; 0410 ! ** NR$CNR **
; 0411 ! ************
; 0412 [N_RCON^-1]:
; 0413 begin
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 10
X01500 Receive Complete From NSP 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (6)
; 0414 %if paranoid %then
; 0415 if .LNK [L_STATE] neq ST_OPN
; 0416 then SIGNAL_STOP (SC$_LWS, .CCB, .LNK);
; 0417 %fi
; 0418
; 0419 CMQIF$ (LNK [L_IQUE], .CCB);
; 0420 LNK [L_STATE] = ST_CR;
; 0421 LNK [L_RNA] = .CCB [C_PRM1];
; 0422 SCDB [SC_IPORT] = .SCDB [SC_IPORT] - 1; ! We used up a port
; 0423 I$OPN () ! Try to replace it
; 0424 end;
; 0425
; 0426
; 0427
; 0428 ! ************
; 0429 ! ** NR$CST **
; 0430 ! ************
; 0431 [N_SCNS^-1]:
; 0432 begin
; 0433 if .LNK [L_STATE] eql ST_CID ! Conn-Init-Delivered ?
; 0434 then
; 0435 begin ! Yes !
; 0436 local
; 0437 CNT,
; 0438 PTR;
; 0439 CMQRM$ (LNK [L_OQUE], LCCB); ! Take user CCB off que
; 0440 LNK [L_TIMER] = 0; ! Disable timer
; 0441 if .CCB [C_STS] eql N$SACC ! Link accepted ?
; 0442 then LNK [L_STATE] = ST_RUN ! Yes, go to RUN state
; 0443 else I$CLS (.LNK); ! No, so close the port
; 0444 MAP$ (.CCB [C_BIAS]); ! Set to copy conn data
; 0445 if (CNT = .CCB [C_CNT] - 1) lss 0 then CNT = 0;
; 0446 LCCB [C_PRM4] = min (.LCCB [C_PRM4], .CNT);
; 0447 PTR = ch$plus (.CCB [C_ADDR], 1);
; 0448 MTBF$S (.LCCB [C_PRM4], .PTR, .LCCB [C_PRM2], .LCCB [C_PRM3]);
; 0449 $SC_DO_XCP (.LCCB, STSMAP (.CCB [C_STS])) ! Complete to user
; 0450 end;
; 0451
; 0452 $SC_DO_RCE (.CCB); ! Return NSP's buffer
; 0453 return
; 0454 end;
; 0455
; 0456
; 0457
; 0458 ! *********************
; 0459 ! ** NR$DAT & NR$INT **
; 0460 ! *********************
; 0461 [N_RDAT^-1, N_RINT^-1]:
; 0462 begin
; 0463 if not (
; 0464 (.LNK [L_STATE] eql ST_RUN) or
; 0465 (.LNK [L_STATE] eql ST_DI))
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 11
X01500 Receive Complete From NSP 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (6)
; 0466 then $SC_DO_RCE (.CCB)
; 0467 else
; 0468 begin
; 0469 if .FCM eql N_RDAT
; 0470 then CMQIN$ (LNK [L_IQUE], .CCB)
; 0471 else CMQIF$ (LNK [L_IQUE], .CCB)
; 0472 end
; 0473 end;
; 0474
; 0475
; 0476
; 0477 ! *********************
; 0478 ! ** NR$CNF & NR$DSR **
; 0479 ! *********************
; 0480 [N_SCNF^-1, N_RDSC^-1]:
; 0481 begin
; 0482 %if paranoid %then
; 0483 if (.LNK [L_STATE] eql ST_OFF) or
; 0484 (.LNK [L_STATE] eql ST_OI) or
; 0485 (.LNK [L_STATE] eql ST_OPN)
; 0486 then SIGNAL_STOP (SC$_LWS, .CCB, .LNK);
; 0487 %fi
; 0488
; 0489 LNK [L_STS] = (if .FCM eql N_SCNF then S_EABL else S_EABS);
; 0490 if (.LNK [L_STATE] eql ST_CIS) or
; 0491 (.LNK [L_STATE] eql ST_CLI) or
; 0492 (.LNK [L_STATE] eql ST_ABI) or
; 0493 (.LNK [L_PIX] eql 0) ! CNR was rcv'dfor no-such obj
; 0494 then
; 0495 begin
; 0496 $SC_DO_RCE (.CCB);
; 0497 I$CLS (.LNK);
; 0498 return
; 0499 end;
; 0500
; 0501 while CMQRM$ (LNK [L_IQUE], LCCB) do $SC_DO_RCE (.LCCB);
; 0502 CMQIF$ (LNK [L_IQUE], .CCB)
; 0503 end;
; 0504
; 0505
; 0506
; 0507 ! ************
; 0508 ! ** NR$ERR **
; 0509 ! ************
; 0510 [inrange, outrange]:
; 0511 %if paranoid %then
; 0512 SIGNAL_STOP (SC$_ISC, .CCB)
; 0513 %fi;
; 0514 tes;
; 0515
; 0516 $SC_DISPATCH_INPUT (LNK [L_IQUE])
; 0517 end;
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 12
X01500 Receive Complete From NSP 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (6)
.GLOBL KISAR6, $CMQIF, $CMQRM, $MVTBF
.GLOBL $SCHED, $CMQIN
.SBTTL FCRCP Receive Complete From NSP
000000 005746 FCRCP: TST -(SP) ; 0363
000002 010301 MOV R3,R1 ; *,FCM
000004 010446 MOV R4,-(SP)
000006 010502 MOV R5,R2 ; *,SCDB
000010 016205 000016 MOV 16(R2),R5 ; *(SCDB),* 0398
000014 070527 000032 MUL #32,R5
000020 066205 000046 ADD 46(R2),R5 ; *(SCDB),*
000024 016267 000044 000000G MOV 44(R2),KISAR6 ; *(SCDB),* 0400
000032 005000 CLR R0 ; 0401
000034 011603 MOV (SP),R3
000036 156300 000010 BISB 10(R3),R0
000042 060005 ADD R0,R5
000044 111505 MOVB (R5),R5
000046 042705 177400 BIC #177400,R5
000052 070527 000032 MUL #32,R5
000056 066205 000046 ADD 46(R2),R5 ; *(SCDB),*
000062 010566 000002 MOV R5,2(SP) ; *,LNK
000066 010103 MOV R1,R3 ; FCM,* 0404
000070 006203 ASR R3
000072 020327 000005 CMP R3,#5
000076 101003 BHI 1$
000100 006303 ASL R3
000102 066307 000066' ADD P.AAD(R3),PC ; Case dispatch
000106 011646 1$: MOV (SP),-(SP) ; 0512
000110 012746 100014 MOV #-77764,-(SP)
000114 012746 000002 MOV #2,-(SP)
000120 004767 000000G JSR PC,$STOP
000124 062706 000006 ADD #6,SP
000130 000445 BR 4$ ; 0404
000132 127627 000002 000004 2$: CMPB @2(SP),#4 ; LNK,* 0415
000140 001414 BEQ 3$
000142 016646 000002 MOV 2(SP),-(SP) ; LNK,* 0416
000146 016646 000002 MOV 2(SP),-(SP)
000152 012746 100024 MOV #-77754,-(SP)
000156 012746 000003 MOV #3,-(SP)
000162 004767 000000G JSR PC,$STOP
000166 062706 000010 ADD #10,SP
000172 012700 000016 3$: MOV #16,R0 ; 0419
000176 066600 000002 ADD 2(SP),R0 ; LNK,*
000202 010003 MOV R0,R3
000204 011604 MOV (SP),R4
000206 004767 000000G JSR PC,$CMQIF
000212 112776 000005 000002 MOVB #5,@2(SP) ; *,LNK 0420
000220 016600 000002 MOV 2(SP),R0 ; LNK,* 0421
000224 011601 MOV (SP),R1
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 13
X01500 Receive Complete From NSP 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (6)
000226 016160 000024 000006 MOV 24(R1),6(R0) ; *,*(LNK)
000234 105362 000006 DECB 6(R2) ; *(SCDB) 0422
000240 004767 000000G JSR PC,I$OPN ; 0423
000244 000555 4$: BR 14$ ; 0404
000246 127627 000002 000002 5$: CMPB @2(SP),#2 ; LNK,* 0433
000254 001106 BNE 11$
000256 012700 000022 MOV #22,R0 ; 0439
000262 066600 000002 ADD 2(SP),R0 ; LNK,*
000266 010003 MOV R0,R3
000270 004767 000000G JSR PC,$CMQRM
000274 103401 BCS 6$
000276 010405 MOV R4,R5 ; $MCB$R4,LCCB
000300 016600 000002 6$: MOV 2(SP),R0 ; LNK,* 0440
000304 005060 000012 CLR 12(R0) ; *(LNK)
000310 011600 MOV (SP),R0 ; 0441
000312 026027 000014 000002 CMP 14(R0),#2
000320 001004 BNE 7$
000322 112776 000014 000002 MOVB #14,@2(SP) ; *,LNK 0442
000330 000405 BR 8$ ; 0441
000332 016646 000002 7$: MOV 2(SP),-(SP) ; LNK,* 0443
000336 004767 000000G JSR PC,I$CLS
000342 005726 TST (SP)+
000344 011600 8$: MOV (SP),R0 ; 0444
000346 016067 000016 000000G MOV 16(R0),KISAR6
000354 016002 000022 MOV 22(R0),R2 ; *,CNT 0445
000360 005302 DEC R2 ; CNT
000362 100001 BPL 9$
000364 005002 CLR R2 ; CNT
000366 012704 000032 9$: MOV #32,R4 ; 0446
000372 060504 ADD R5,R4 ; LCCB,*
000374 011400 MOV (R4),R0
000376 020002 CMP R0,R2 ; *,CNT
000400 003401 BLE 10$
000402 010200 MOV R2,R0 ; CNT,*
000404 010014 10$: MOV R0,(R4)
000406 011600 MOV (SP),R0 ; 0447
000410 016002 000020 MOV 20(R0),R2 ; *,PTR
000414 005202 INC R2 ; PTR
000416 016546 000026 MOV 26(R5),-(SP) ; *(LCCB),* 0448
000422 016546 000030 MOV 30(R5),-(SP) ; *(LCCB),*
000426 011403 MOV (R4),R3
000430 004767 000000G JSR PC,$MVTBF
000434 112765 000014 000012 MOVB #14,12(R5) ; *,*(LCCB) 0449
000442 016600 000004 MOV 4(SP),R0
000446 016016 000014 MOV 14(R0),(SP)
000452 004767 000000G JSR PC,STSMAP
000456 010065 000014 MOV R0,14(R5) ; *,*(LCCB)
000462 010504 MOV R5,R4 ; LCCB,*
000464 004767 000000G JSR PC,$SCHED
000470 022626 CMP (SP)+,(SP)+ ; 0435
000472 011600 11$: MOV (SP),R0 ; 0452
000474 112760 000004 000012 MOVB #4,12(R0)
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 14
X01500 Receive Complete From NSP 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (6)
000502 010004 MOV R0,R4
000504 004767 000000G JSR PC,$SCHED
000510 000566 BR 26$ ; 0432
000512 127627 000002 000014 12$: CMPB @2(SP),#14 ; LNK,* 0464
000520 001414 BEQ 13$
000522 127627 000002 000012 CMPB @2(SP),#12 ; LNK,* 0465
000530 001410 BEQ 13$
000532 011600 MOV (SP),R0 ; 0466
000534 112760 000004 000012 MOVB #4,12(R0)
000542 010004 MOV R0,R4
000544 004767 000000G JSR PC,$SCHED
000550 000531 BR 24$ ; 0462
000552 012700 000016 13$: MOV #16,R0 ; 0470
000556 066600 000002 ADD 2(SP),R0 ; LNK,*
000562 010003 MOV R0,R3
000564 020127 000010 CMP R1,#10 ; FCM,* 0469
000570 001116 BNE 23$
000572 011604 MOV (SP),R4 ; 0470
000574 004767 000000G JSR PC,$CMQIN
000600 000515 14$: BR 24$ ; 0468
000602 105776 000002 15$: TSTB @2(SP) ; LNK 0483
000606 001410 BEQ 16$
000610 127627 000002 000003 CMPB @2(SP),#3 ; LNK,* 0484
000616 001404 BEQ 16$
000620 127627 000002 000004 CMPB @2(SP),#4 ; LNK,* 0485
000626 001014 BNE 17$
000630 016646 000002 16$: MOV 2(SP),-(SP) ; LNK,* 0486
000634 016646 000002 MOV 2(SP),-(SP)
000640 012746 100024 MOV #-77754,-(SP)
000644 012746 000003 MOV #3,-(SP)
000650 004767 000000G JSR PC,$STOP
000654 062706 000010 ADD #10,SP
000660 005701 17$: TST R1 ; FCM 0489
000662 001003 BNE 18$
000664 012700 177755 MOV #-23,R0
000670 000402 BR 19$
000672 012700 177771 18$: MOV #-7,R0
000676 016601 000002 19$: MOV 2(SP),R1 ; LNK,*
000702 010061 000014 MOV R0,14(R1) ; *,*(LNK)
000706 121127 000001 CMPB (R1),#1 ; LNK,* 0490
000712 001412 BEQ 20$
000714 121127 000010 CMPB (R1),#10 ; LNK,* 0491
000720 001407 BEQ 20$
000722 121127 000011 CMPB (R1),#11 ; LNK,* 0492
000726 001404 BEQ 20$
000730 010100 MOV R1,R0 ; LNK,* 0493
000732 105760 000005 TSTB 5(R0) ; *(LNK)
000736 001014 BNE 21$
000740 011600 20$: MOV (SP),R0 ; 0496
000742 112760 000004 000012 MOVB #4,12(R0)
000750 010004 MOV R0,R4
000752 004767 000000G JSR PC,$SCHED
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 15
X01500 Receive Complete From NSP 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (6)
000756 016646 000002 MOV 2(SP),-(SP) ; LNK,* 0497
000762 004767 000000G JSR PC,I$CLS
000766 000436 BR 25$ ; 0490
000770 012700 000016 21$: MOV #16,R0 ; 0501
000774 066600 000002 ADD 2(SP),R0 ; LNK,*
001000 010003 MOV R0,R3
001002 004767 000000G 22$: JSR PC,$CMQRM
001006 103407 BCS 23$
001010 010405 MOV R4,R5 ; $MCB$R4,LCCB
001012 112765 000004 000012 MOVB #4,12(R5) ; *,*(LCCB)
001020 004767 000000G JSR PC,$SCHED
001024 000766 BR 22$
001026 011604 23$: MOV (SP),R4 ; 0502
001030 004767 000000G JSR PC,$CMQIF
001034 016601 000002 24$: MOV 2(SP),R1 ; LNK,* 0516
001040 016100 000016 MOV 16(R1),R0 ; *(LNK),*
001044 001410 BEQ 26$
001046 116000 000013 MOVB 13(R0),R0
001052 042700 177400 BIC #177400,R0
001056 010146 MOV R1,-(SP) ; LNK,*
001060 004770 000024' JSR PC,@RCPWT(R0)
001064 005726 25$: TST (SP)+
001066 022626 26$: CMP (SP)+,(SP)+ ; 0363
001070 000207 RTS PC
; Routine Size: 285 words, Routine Base: $CODE$ + 0032
; Maximum stack depth per invocation: 7 words
000066 .PSECT $PLIT$, RO , D
P.AAD: ; CASE Table for FCRCP+0102 0404
000066 000474 .WORD 474 ; [15$]
000070 000140 .WORD 140 ; [5$]
000072 000024 .WORD 24 ; [2$]
000074 000474 .WORD 474 ; [15$]
000076 000404 .WORD 404 ; [12$]
000100 000404 .WORD 404 ; [12$]
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 16
X01500 Receive Enable From User 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (7)
; 0518 %sbttl 'Receive Enable From User'
; 0519 routine FCRCE (SCDB, CCB, FCM): mcb_db_ccb_mod novalue =
; 0520
; 0521 !++
; 0522 ! FUNCTIONAL DESCRIPTION:
; 0523 ! This routine is activated by a receive enable from
; 0524 ! a System Interface user.
; 0525 !
; 0526 ! FORMAL PARAMETERS:
; 0527 ! CCB CCB being returned
; 0528 ! FCM Function code modifier
; 0529 !
; 0530 ! IMPLICIT INPUTS:
; 0531 ! CCB Contents
; 0532 !
; 0533 ! IMPLICIT OUTPUTS:
; 0534 ! None
; 0535 !
; 0536 ! ROUTINE VALUE:
; 0537 ! COMPLETION CODES:
; 0538 ! None
; 0539 !
; 0540 ! SIDE EFFECTS:
; 0541 ! None
; 0542 !--
; 0543
; 0544 begin
; 0545 $sc_get_data_base (SCDB);
; 0546 map CCB: ref block field (C_FIELDS);
; 0547 local
; 0548 LCCB: ref block field (C_FIELDS),
; 0549 LNK: ref block field (LLT_FIELDS);
; 0550 bind
; 0551 LLT = SCDB [SC_LLT_ADDR]: ref blockvector [,L_SIZE] field (LLT_FIELDS);
; 0552
; 0553 MAP$ (.SCDB [SC_LLT_BIAS]);
; 0554 LNK = LLT [.CCB [C_LIX], L_TOP];
; 0555 LCCB = .CCB [C_STK];
; 0556
; 0557 case .FCM^-1 from 0 to S$RHI^-1 of
; 0558 set
; 0559
; 0560
; 0561 ! ************
; 0562 ! ** SR$CNR **
; 0563 ! ************
; 0564 [S$CNR^-1]:
; 0565 begin
; 0566 %if paranoid %then
; 0567 if not (
; 0568 (.LNK [L_STATE] eql ST_CR) or
; 0569 (.LNK [L_STATE] eql ST_CLI))
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 17
X01500 Receive Enable From User 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (7)
; 0570 then SIGNAL_STOP (SC$_LWS, .CCB, .LNK);
; 0571 %fi
; 0572
; 0573 $MCB_RETURN_DSR (CB_SIZE*bytes_word, .CCB [C_ADDR]);
; 0574 ! Release CB memory
; 0575 LNK [L_TIMER] = 0; ! Turn off timer
; 0576
; 0577 ! Now do state checking to see if we go to next state
; 0578 if (.LNK [L_STATE] eql ST_CR) and (.CCB [C_STS] eql S_SSUC)
; 0579 then
; 0580 begin ! OK !
; 0581 LNK [L_PIX] = .CCB [C_PIX]; ! Bind link to process
; 0582 LNK [L_STATE] = ST_CRA; ! Advance to next state
; 0583 CCBRT$ (.CCB) ! Release our CCB
; 0584 end
; 0585 else
; 0586 begin ! OOPS !
; 0587 local
; 0588 PTR;
; 0589 LNK [LL_ABTI] = true; ! Prevent two rejects
; 0590 CCB [C_ADDR] = byt$ptr (CCB [C_PRM1]);
; 0591 if (.CCB [C_STS] eql S_ERBO) or (.CCB [C_STS] gtr 0)
; 0592 then CCB [C_STS] = 0;
; 0593 if .CCB [C_STS] lss 0 then CCB [C_STS] = -.CCB [C_STS];
; 0594 PTR = byt$ptr (CCB [C_PRM1]);
; 0595 byt$short_string (CCB [C_STS], PTR);
; 0596 byt$tiny_string (uplit (0), PTR);
; 0597 CCB [C_CNT] = 3;
; 0598 $SC_DO_XME (.CCB, N_XREJ, .LNK)
; 0599 end;
; 0600
; 0601 return
; 0602 end;
; 0603
; 0604
; 0605
; 0606 ! *********************
; 0607 ! ** SR$DAT & SR$INT **
; 0608 ! *********************
; 0609 [S$DAT^-1, S$INT^-1]:
; 0610 %if paranoid %then
; 0611 if not (
; 0612 (.LNK [L_STATE] eql ST_RUN) or
; 0613 (.LNK [L_STATE] eql ST_DI) or
; 0614 (.LNK [L_STATE] eql ST_DIR) or
; 0615 (.LNK [L_STATE] eql ST_ABI) or
; 0616 (.LNK [L_STATE] eql ST_CLI))
; 0617 then SIGNAL_STOP (SC$_LWS, .CCB, .LNK)
; 0618 %fi;
; 0619
; 0620
; 0621
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 18
X01500 Receive Enable From User 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (7)
; 0622 ! ************
; 0623 ! ** SR$DSR **
; 0624 ! ************
; 0625 [S$DSR^-1]:
; 0626 %if paranoid %then
; 0627 if not (
; 0628 (.LNK [L_STATE] eql ST_DIR) or
; 0629 (.LNK [L_STATE] eql ST_CLI))
; 0630 then SIGNAL_STOP (SC$_LWS, .CCB, .LNK)
; 0631 %fi;
; 0632
; 0633
; 0634
; 0635
; 0636 ! ************
; 0637 ! ** SR$ERR **
; 0638 ! ************
; 0639 [outrange]:
; 0640 %if paranoid %then
; 0641 SIGNAL_STOP (SC$_ISC, .CCB, .LNK)
; 0642 %fi;
; 0643 tes;
; 0644
; 0645 ! Complete LCCB to NSP, and release our CCB
; 0646 $SC_DO_RCE (.LCCB);
; 0647 CCBRT$ (.CCB)
; 0648 end;
000102 000000 P.AAF: .WORD 0
.GLOBL $DSRRT, $CCBRT, DO.XME
.SBTTL FCRCE Receive Enable From User
001124 .PSECT $CODE$, RO
000000 005746 FCRCE: TST -(SP) ; 0519
000002 010402 MOV R4,R2 ; *,CCB
000004 016567 000044 000000G MOV 44(R5),KISAR6 ; *(SCDB),* 0553
000012 005001 CLR R1 ; 0554
000014 156201 000010 BISB 10(R2),R1 ; *(CCB),*
000020 070127 000032 MUL #32,R1
000024 010104 MOV R1,R4
000026 066504 000046 ADD 46(R5),R4 ; *(SCDB),*
000032 010416 MOV R4,(SP) ; *,LNK
000034 016205 000004 MOV 4(R2),R5 ; *(CCB),LCCB 0555
000040 006203 ASR R3 ; 0557
000042 020327 000003 CMP R3,#3
000046 101003 BHI 1$
000050 006303 ASL R3
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 19
X01500 Receive Enable From User 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (7)
000052 066307 000104' ADD P.AAE(R3),PC ; Case dispatch
000056 011646 1$: MOV (SP),-(SP) ; LNK,* 0641
000060 010246 MOV R2,-(SP) ; CCB,*
000062 012746 100014 MOV #-77764,-(SP)
000066 000560 BR 11$
000070 127627 000000 000005 2$: CMPB @0(SP),#5 ; LNK,* 0568
000076 001416 BEQ 3$
000100 127627 000000 000010 CMPB @0(SP),#10 ; LNK,* 0569
000106 001412 BEQ 3$
000110 011646 MOV (SP),-(SP) ; LNK,* 0570
000112 010246 MOV R2,-(SP) ; CCB,*
000114 012746 100024 MOV #-77754,-(SP)
000120 012746 000003 MOV #3,-(SP)
000124 004767 000000G JSR PC,$STOP
000130 062706 000010 ADD #10,SP
000134 016200 000020 3$: MOV 20(R2),R0 ; *(CCB),* 0573
000140 012701 000156 MOV #156,R1
000144 004767 000000G JSR PC,$DSRRT
000150 011600 MOV (SP),R0 ; LNK,* 0575
000152 005060 000012 CLR 12(R0) ; *(LNK)
000156 121027 000005 CMPB (R0),#5 ; LNK,* 0578
000162 001012 BNE 4$
000164 026227 000014 000001 CMP 14(R2),#1 ; *(CCB),*
000172 001006 BNE 4$
000174 116260 000011 000005 MOVB 11(R2),5(R0) ; *(CCB),*(LNK) 0581
000202 112710 000006 MOVB #6,(R0) ; *,LNK 0582
000206 000524 BR 13$ ; 0583
000210 052776 000400 000000 4$: BIS #400,@0(SP) ; *,LNK 0589
000216 010200 MOV R2,R0 ; CCB,* 0590
000220 062700 000024 ADD #24,R0
000224 010062 000020 MOV R0,20(R2) ; *,*(CCB)
000230 012701 000014 MOV #14,R1 ; 0591
000234 060201 ADD R2,R1 ; CCB,*
000236 021127 177754 CMP (R1),#-24
000242 001402 BEQ 5$
000244 005711 TST (R1)
000246 003402 BLE 6$
000250 005011 5$: CLR (R1) ; 0592
000252 020707 CMP PC,PC ; 0593
000254 002001 6$: BGE 7$
000256 005411 NEG (R1)
000260 010003 7$: MOV R0,R3 ; *,PTR 0594
000262 011100 MOV (R1),R0 ; *,NUM 0595
000264 110023 MOVB R0,(R3)+ ; NUM,PTR
000266 000300 SWAB R0 ; NUM
000270 110023 MOVB R0,(R3)+ ; NUM,PTR
000272 116723 000102' MOVB P.AAF,(R3)+ ; *,PTR 0596
000276 012762 000003 000022 MOV #3,22(R2) ; *,*(CCB) 0597
000304 012746 000014 MOV #14,-(SP) ; 0598
000310 016646 000002 MOV 2(SP),-(SP) ; LNK,*
000314 010204 MOV R2,R4 ; CCB,*
000316 004767 000000G JSR PC,DO.XME
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 20
X01500 Receive Enable From User 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (7)
000322 022626 CMP (SP)+,(SP)+ ; 0586
000324 000460 BR 14$ ; 0565
000326 127627 000000 000014 8$: CMPB @0(SP),#14 ; LNK,* 0612
000334 001443 BEQ 12$
000336 127627 000000 000012 CMPB @0(SP),#12 ; LNK,* 0613
000344 001437 BEQ 12$
000346 127627 000000 000013 CMPB @0(SP),#13 ; LNK,* 0614
000354 001433 BEQ 12$
000356 127627 000000 000011 CMPB @0(SP),#11 ; LNK,* 0615
000364 001427 BEQ 12$
000366 127627 000000 000010 CMPB @0(SP),#10 ; LNK,* 0616
000374 001423 BEQ 12$
000376 000410 BR 10$ ; 0617
000400 127627 000000 000013 9$: CMPB @0(SP),#13 ; LNK,* 0628
000406 001416 BEQ 12$
000410 127627 000000 000010 CMPB @0(SP),#10 ; LNK,* 0629
000416 001412 BEQ 12$
000420 011646 10$: MOV (SP),-(SP) ; LNK,* 0630
000422 010246 MOV R2,-(SP) ; CCB,*
000424 012746 100024 MOV #-77754,-(SP)
000430 012746 000003 11$: MOV #3,-(SP)
000434 004767 000000G JSR PC,$STOP
000440 062706 000010 ADD #10,SP
000444 112765 000004 000012 12$: MOVB #4,12(R5) ; *,*(LCCB) 0646
000452 010504 MOV R5,R4 ; LCCB,*
000454 004767 000000G JSR PC,$SCHED
000460 010204 13$: MOV R2,R4 ; CCB,* 0647
000462 004767 000000G JSR PC,$CCBRT
000466 005726 14$: TST (SP)+ ; 0519
000470 000207 RTS PC
; Routine Size: 157 words, Routine Base: $CODE$ + 1124
; Maximum stack depth per invocation: 6 words
000104 .PSECT $PLIT$, RO , D
P.AAE: ; CASE Table for FCRCE+0052 0557
000104 000012 .WORD 12 ; [2$]
000106 000250 .WORD 250 ; [8$]
000110 000250 .WORD 250 ; [8$]
000112 000322 .WORD 322 ; [9$]
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 21
X01500 Timeout or Initialization From Comm/Exec 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (8)
; 0649 %sbttl 'Timeout or Initialization From Comm/Exec'
; 0650 routine FCTMO (SCDB, CCB, FCM): mcb_db_ccb_mod novalue =
; 0651
; 0652 !++
; 0653 ! FUNCTIONAL DESCRIPTION:
; 0654 ! This routine is activated by some event noted by
; 0655 ! the Comm/Exec.
; 0656 !
; 0657 ! FORMAL PARAMETERS:
; 0658 ! CCB CCB to pass to handler routine
; 0659 ! FCM Function code modifier
; 0660 !
; 0661 ! IMPLICIT INPUTS:
; 0662 ! CCB Contents
; 0663 !
; 0664 ! IMPLICIT OUTPUTS:
; 0665 ! None
; 0666 !
; 0667 ! ROUTINE VALUE:
; 0668 ! COMPLETION CODES:
; 0669 ! None
; 0670 !
; 0671 ! SIDE EFFECTS:
; 0672 ! None
; 0673 !--
; 0674
; 0675 begin
; 0676 $sc_get_data_base (SCDB);
; 0677 map CCB: ref block field (C_FIELDS),
; 0678 SCDB: ref block field (SC_FIELDS);
; 0679 bind
; 0680 LLT = SCDB [SC_LLT_ADDR]: ref blockvector [,L_SIZE] field (LLT_FIELDS);
; 0681
; 0682 MAP$ (.SCDB [SC_LLT_BIAS]);
; 0683
; 0684 case .FCM^-1 from 0 to 3 of
; 0685 set
; 0686
; 0687
; 0688 ! ************
; 0689 ! ** CX$LTM ** ! Long timer
; 0690 ! ************
; 0691 [1]:
; 0692 begin
; 0693 local
; 0694 LL,
; 0695 LNK: ref block field (LLT_FIELDS),
; 0696 LCCB: ref block field (C_FIELDS);
; 0697
; 0698 SCDB [SC_TICK] = .SCDB [SC_TICK] + 1; ! Restart clock
; 0699 SCDB [SCF_SUCC] = true;
; 0700 LL = .SCDB [SC_LLINK]; ! Figure which LL to start with
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 22
X01500 Timeout or Initialization From Comm/Exec 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (8)
; 0701
; 0702 ! Check each logical link to see if something to do
; 0703 incr L from 0 to .SCDB [SC_LINKS]-1 do
; 0704 begin
; 0705
; 0706 if .SCDB [SCF_SUCC] then SCDB [SC_LLINK] = .LL; ! Remember last
; 0707 if (LL = .LL + 1) geq .SCDB [SC_LINKS] then LL = 0; ! & next link
; 0708 LNK = LLT [.LL, L_TOP];
; 0709
; 0710 if .SCDB [SCF_SUCC]
; 0711 then
; 0712 begin ! Check on ...
; 0713 $SC_DISPATCH_OUTPUT (LNK [L_INTQ]); ! ... interrupt resource wait
; 0714 $SC_DISPATCH_INPUT (LNK [L_IQUE]); ! ... input resource wait
; 0715 $SC_DISPATCH_OUTPUT (LNK [L_OQUE]) ! ... output resource wait
; 0716 end;
; 0717
; 0718 ! Finally, check to see if link timer running
; 0719 if .LNK [LL_KLOK]
; 0720 then
; 0721 begin
; 0722 if .LNK [L_TIMER] eql 0
; 0723 then LNK [LL_KLOK] = false
; 0724 else
; 0725 begin
; 0726 if (LNK [L_TIMER] = .LNK [L_TIMER] - 1) eql 0
; 0727 then
; 0728 begin
; 0729 LNK[L_STS] = S_ENRO;
; 0730 I$CLS (.LNK);
; 0731 end
; 0732 end
; 0733 end
; 0734 end;
; 0735
; 0736 I$OPN () ! Open a port if needed
; 0737 end;
; 0738
; 0739
; 0740
; 0741 ! ************
; 0742 ! ** CX$PIN ** ! Process initialization
; 0743 ! ************
; 0744 [3]:
; 0745 begin
; 0746 PDVID$ (RAD50 ('SC1'), SCDB [SC_SNPIX]);
; 0747 SCDB [SCF_STAT] = S_ST_OFF ! We are OFF
; 0748 end;
; 0749
; 0750
; 0751
; 0752 ! ************
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 23
X01500 Timeout or Initialization From Comm/Exec 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (8)
; 0753 ! ** CX$PWF ** ! Power failure recovery
; 0754 ! ************
; 0755 [2]: return;
; 0756
; 0757
; 0758
; 0759 ! ************
; 0760 ! ** CX$ERR ** ! CX$STM
; 0761 ! ************
; 0762 [inrange, outrange]:
; 0763 %if paranoid %then
; 0764 SIGNAL_STOP (SC$_ISC)
; 0765 %fi;
; 0766
; 0767 tes
; 0768 end;
.GLOBL P.DTGT, $CALLI
.SBTTL FCTMO Timeout or Initialization From Comm/Exec
001616 .PSECT $CODE$, RO
000000 024646 FCTMO: CMP -(SP),-(SP) ; 0650
000002 016567 000044 000000G MOV 44(R5),KISAR6 ; *(SCDB),* 0682
000010 006203 ASR R3 ; 0684
000012 020327 000003 CMP R3,#3
000016 101003 BHI 1$
000020 006303 ASL R3
000022 066307 000114' ADD P.AAG(R3),PC ; Case dispatch
000026 012746 100014 1$: MOV #-77764,-(SP) ; 0764
000032 012746 000001 MOV #1,-(SP)
000036 004767 000000G JSR PC,$STOP
000042 022626 CMP (SP)+,(SP)+
000044 000563 BR 15$ ; 0684
000046 105215 2$: INCB (R5) ; SCDB 0698
000050 052715 010000 BIS #10000,(R5) ; *,SCDB 0699
000054 005004 CLR R4 ; LL 0700
000056 156504 000005 BISB 5(R5),R4 ; *(SCDB),LL
000062 016516 000016 MOV 16(R5),(SP) ; *(SCDB),* 0703
000066 005002 CLR R2 ; L
000070 000511 BR 11$
000072 032715 010000 3$: BIT #10000,(R5) ; *,SCDB 0706
000076 001402 BEQ 4$
000100 110465 000005 MOVB R4,5(R5) ; LL,*(SCDB)
000104 005204 4$: INC R4 ; LL 0707
000106 020465 000016 CMP R4,16(R5) ; LL,*(SCDB)
000112 002401 BLT 5$
000114 005004 CLR R4 ; LL
000116 010403 5$: MOV R4,R3 ; LL,* 0708
000120 070327 000032 MUL #32,R3
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 24
X01500 Timeout or Initialization From Comm/Exec 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (8)
000124 066503 000046 ADD 46(R5),R3 ; *(SCDB),*
000130 010301 MOV R3,R1 ; *,LNK
000132 032715 010000 BIT #10000,(R5) ; *,SCDB 0710
000136 001441 BEQ 8$
000140 016100 000026 MOV 26(R1),R0 ; *(LNK),* 0713
000144 001410 BEQ 6$
000146 116000 000013 MOVB 13(R0),R0
000152 042700 177400 BIC #177400,R0
000156 010146 MOV R1,-(SP) ; LNK,*
000160 004770 000040' JSR PC,@XMEWT(R0)
000164 005726 TST (SP)+
000166 016100 000016 6$: MOV 16(R1),R0 ; *(LNK),* 0714
000172 001410 BEQ 7$
000174 116000 000013 MOVB 13(R0),R0
000200 042700 177400 BIC #177400,R0
000204 010146 MOV R1,-(SP) ; LNK,*
000206 004770 000024' JSR PC,@RCPWT(R0)
000212 005726 TST (SP)+
000214 016100 000022 7$: MOV 22(R1),R0 ; *(LNK),* 0715
000220 001410 BEQ 8$
000222 116000 000013 MOVB 13(R0),R0
000226 042700 177400 BIC #177400,R0
000232 010146 MOV R1,-(SP) ; LNK,*
000234 004770 000040' JSR PC,@XMEWT(R0)
000240 005726 TST (SP)+
000242 032711 010000 8$: BIT #10000,(R1) ; *,LNK 0719
000246 001421 BEQ 10$
000250 012700 000012 MOV #12,R0 ; 0722
000254 060100 ADD R1,R0 ; LNK,*
000256 005710 TST (R0)
000260 001003 BNE 9$
000262 042711 010000 BIC #10000,(R1) ; *,LNK 0723
000266 000411 BR 10$ ; 0721
000270 005310 9$: DEC (R0) ; 0726
000272 001007 BNE 10$
000274 012761 177732 000014 MOV #-46,14(R1) ; *,*(LNK) 0729
000302 010146 MOV R1,-(SP) ; LNK,* 0730
000304 004767 000000G JSR PC,I$CLS
000310 005726 TST (SP)+ ; 0728
000312 005202 10$: INC R2 ; L 0703
000314 020216 11$: CMP R2,(SP) ; L,*
000316 002665 BLT 3$
000320 004767 000000G JSR PC,I$OPN ; 0736
000324 000433 BR 15$ ; 0684
000326 012746 000004 12$: MOV #4,-(SP) ; 0746
000332 060616 ADD SP,(SP) ; $MCB$MY.INDEX,*
000334 012746 073527 MOV #73527,-(SP)
000340 012746 000002 MOV #2,-(SP)
000344 012746 000000G MOV #P.DTGT,-(SP)
000350 004767 000000G JSR PC,$CALLI
000354 062706 000010 ADD #10,SP
000360 010003 MOV R0,R3 ; *,$MCB$STATUS
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 25
X01500 Timeout or Initialization From Comm/Exec 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (8)
000362 006000 ROR R0
000364 103002 BCC 13$
000366 016600 000002 MOV 2(SP),R0 ; $MCB$MY.INDEX,$MCB$HANDLE
000372 010304 13$: MOV R3,R4 ; $MCB$STATUS,$MCB$STATUS
000374 006003 ROR R3 ; $MCB$STATUS
000376 103002 BCC 14$
000400 110065 000004 MOVB R0,4(R5) ; $MCB$HANDLE,*(SCDB)
000404 042715 001400 14$: BIC #1400,(R5) ; *,SCDB 0747
000410 052715 000400 BIS #400,(R5) ; *,SCDB
000414 022626 15$: CMP (SP)+,(SP)+ ; 0650
000416 000207 RTS PC
; Routine Size: 136 words, Routine Base: $CODE$ + 1616
; Maximum stack depth per invocation: 7 words
000114 .PSECT $PLIT$, RO , D
P.AAG: ; CASE Table for FCTMO+0022 0684
000114 000000 .WORD 0 ; [1$]
000116 000020 .WORD 20 ; [2$]
000120 000366 .WORD 366 ; [15$]
000122 000300 .WORD 300 ; [12$]
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 26
X01500 Transmit Complete From NSP 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (9)
; 0769 %sbttl 'Transmit Complete From NSP'
; 0770 routine FCXCP (SCDB, CCB, FCM): mcb_db_ccb_mod novalue =
; 0771
; 0772 !++
; 0773 ! FUNCTIONAL DESCRIPTION:
; 0774 ! This routine is activated by receipt of a transmit
; 0775 ! complete CCB from NSP.
; 0776 !
; 0777 ! FORMAL PARAMETERS:
; 0778 ! CCB CCB to pass to handler routine
; 0779 ! FCM Function code modifier
; 0780 !
; 0781 ! IMPLICIT INPUTS:
; 0782 ! CCB Contents
; 0783 !
; 0784 ! IMPLICIT OUTPUTS:
; 0785 ! None
; 0786 !
; 0787 ! ROUTINE VALUE:
; 0788 ! COMPLETION CODES:
; 0789 ! None
; 0790 !
; 0791 ! SIDE EFFECTS:
; 0792 ! None
; 0793 !--
; 0794
; 0795 begin
; 0796 $sc_get_data_base (SCDB);
; 0797 map CCB: ref block field (C_FIELDS);
; 0798 local
; 0799 LNK: ref block field (LLT_FIELDS),
; 0800 LCCB: ref block field (C_FIELDS),
; 0801 STATUS;
; 0802 bind
; 0803 LLT = SCDB [SC_LLT_ADDR]: ref blockvector [,L_SIZE] field (LLT_FIELDS),
; 0804 PIV = LLT [.SCDB [SC_LINKS], L_TOP]: byte_vector;
; 0805
; 0806 MAP$ (.SCDB [SC_LLT_BIAS]);
; 0807
; 0808 LNK = LLT [.PIV [.CCB [C_LIX]], L_TOP];
; 0809 STATUS = STSMAP (.CCB [C_STS]); ! Set appropriate status info
; 0810 LCCB = .CCB [C_STK]; ! Get user's CCB address
; 0811
; 0812
; 0813 case .FCM^-1 from 0 to N_XHI^-1 of
; 0814 set
; 0815
; 0816
; 0817
; 0818 ! *********************
; 0819 ! ** NX$ABT & NX$DSC **
; 0820 ! *********************
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 27
X01500 Transmit Complete From NSP 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (9)
; 0821 [N_XABT^-1, N_XDSC^-1]:
; 0822 begin
; 0823 %if paranoid %then
; 0824 if not (
; 0825 (.LNK [L_STATE] eql ST_ABI) or
; 0826 (.LNK [L_STATE] eql ST_DIR) or
; 0827 (.LNK [L_STATE] eql ST_DI) or
; 0828 (.LNK [L_STATE] eql ST_CLI))
; 0829 then SIGNAL_STOP (SC$_LWS, .CCB, .LNK);
; 0830 %fi
; 0831
; 0832 I$CLS (.LNK)
; 0833 end;
; 0834
; 0835
; 0836
; 0837 ! ************
; 0838 ! ** NX$ACC **
; 0839 ! ************
; 0840 [N_XACC^-1]:
; 0841 begin
; 0842 %if paranoid %then
; 0843 if not (
; 0844 (.LNK [L_STATE] eql ST_CA) or
; 0845 (.LNK [L_STATE] eql ST_CLI) or
; 0846 (.LNK [L_STATE] eql ST_DIR))
; 0847 then SIGNAL_STOP (SC$_LWS, .CCB, .LNK);
; 0848 %fi
; 0849
; 0850 if (.LNK [L_STATE] eql ST_CA) and (.STATUS eql S_SSUC)
; 0851 then LNK [L_STATE] = ST_RUN
; 0852 end;
; 0853
; 0854
; 0855
; 0856 ! ************
; 0857 ! ** NX$REJ **
; 0858 ! ************
; 0859 [N_XREJ^-1]:
; 0860 begin
; 0861 %if paranoid %then
; 0862 if not (
; 0863 (.LNK [L_STATE] eql ST_CR) or
; 0864 (.LNK [L_STATE] eql ST_CRA) or
; 0865 (.LNK [L_STATE] eql ST_DIR) or
; 0866 (.LNK [L_STATE] eql ST_CLI))
; 0867 then SIGNAL_STOP (SC$_LWS, .CCB, .LNK);
; 0868 %fi
; 0869
; 0870 I$CLS (.LNK)
; 0871 end;
; 0872
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 28
X01500 Transmit Complete From NSP 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (9)
; 0873
; 0874
; 0875 ! ************************************************
; 0876 ! ** NX$BUF & NX$DRQ & NX$IRQ & NX$SND & NX$SNI **
; 0877 ! ************************************************
; 0878 [N_XBUF^-1, N_XDRQ^-1, N_XIRQ^-1, N_XDAT^-1, N_XINT^-1]:
; 0879 begin
; 0880 %if paranoid %then
; 0881 if not (
; 0882 (.LNK [L_STATE] eql ST_RUN) or
; 0883 (.LNK [L_STATE] eql ST_DI) or
; 0884 (.LNK [L_STATE] eql ST_DIR) or
; 0885 (.LNK [L_STATE] eql ST_CLI) or
; 0886 (.LNK [L_STATE] eql ST_ABI))
; 0887 then SIGNAL_STOP (SC$_LWS, .CCB, .LNK);
; 0888 %fi
; 0889
; 0890 selectoneu .FCM of
; 0891 set
; 0892 [N_XBUF]: LCCB [C_CNT] = .CCB [C_CNT];
; 0893 [N_XINT]: LNK [LL_INTM] = false;
; 0894 tes
; 0895 end;
; 0896
; 0897
; 0898
; 0899 ! ************
; 0900 ! ** NX$CLS **
; 0901 ! ************
; 0902 [N_PCLS^-1]:
; 0903 begin
; 0904 ! The following hack prevents us from crashing due to a
; 0905 ! race condition which seems to be related to
; 0906 ! retransmitted DIs. Until a better solution is thought
; 0907 ! out, we'll just ignore the fact that the link may
; 0908 ! already be shut down here. This much is known to work.
; 0909 if .LNK [L_STATE] neq ST_OFF
; 0910 then
; 0911 begin
; 0912 %if paranoid %then
; 0913 if .LNK [L_STATE] neq ST_CLI
; 0914 then SIGNAL_STOP (SC$_LWS, .CCB, .LNK);
; 0915 %fi
; 0916
; 0917 LNK [L_STATE] = ST_OFF;
; 0918 LNK [L_FLAGS] = 0;
; 0919 while CMQRM$ (LNK [L_INTQ], LCCB) do
; 0920 $SC_DO_XCP (.LCCB, .LNK [L_STS]);
; 0921 while CMQRM$ (LNK [L_OQUE], LCCB) do
; 0922 begin
; 0923 if (.LCCB [C_MOD] neq S$DIS) and (.LCCB [C_MOD] neq S$ABO)
; 0924 then STATUS = .LNK [L_STS]
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 29
X01500 Transmit Complete From NSP 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (9)
; 0925 else STATUS =STSMAP (.CCB [C_STS]);
; 0926 $SC_DO_XCP (.LCCB, .STATUS)
; 0927 end;
; 0928
; 0929 if (LCCB = .CCB[C_STK]) neq 0
; 0930 then $SC_DO_XCP(.LCCB, S_SSUC);
; 0931 LCCB = 0
; 0932 end;
; 0933 end;
; 0934
; 0935
; 0936
; 0937 ! ************
; 0938 ! ** NX$CON **
; 0939 ! ************
; 0940 [N_XCON^-1]:
; 0941 begin
; 0942 LNK = .CCB [C_PRM5];
; 0943
; 0944 %if paranoid %then
; 0945 if not (
; 0946 (.LNK [L_STATE] eql ST_CIS) or
; 0947 (.LNK [L_STATE] eql ST_CLI))
; 0948 then SIGNAL_STOP (SC$_LWS, .CCB, .LNK);
; 0949 %fi
; 0950
; 0951 if .LNK [L_STATE] eql ST_CIS ! Connect-Initiate ?
; 0952 then
; 0953 begin
; 0954 LNK [LL_KLOK] = true; ! Say we need timer
; 0955 SCDB [SCF_KLOK] = true; ! Start the clock
; 0956 LNK [L_PID] = .CCB [C_LIX]; ! Set port id
; 0957 PIV [.CCB [C_LIX]] = .LNK [L_LLA]; ! Set reverse mapping
; 0958 if .STATUS lss 0 ! If connect failure
; 0959 then
; 0960 begin ! Connect failure
; 0961 if .CCB [C_STS] neq N$ERES ! If not resource error
; 0962 then I$CLS (.LNK) ! then close port
; 0963 else
; 0964 begin
; 0965 LNK [L_STATE] = ST_OFF; ! Resource error, so
; 0966 LNK [L_FLAGS] = 0 ! no port to close
; 0967 end
; 0968 end
; 0969 else
; 0970 begin ! Connect ok so far
; 0971 LNK [L_STATE] = ST_CID; ! Set next link state
; 0972 CMQIF$ (LNK [L_OQUE], .LCCB); ! Put user CCB on queue
; 0973 LCCB = 0 ! No CCB to complete
; 0974 end
; 0975 end
; 0976 else
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 30
X01500 Transmit Complete From NSP 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (9)
; 0977 STATUS = S_EABO; ! Link aborted
; 0978
; 0979 $MCB_RETURN_DSR( DSR_CONNECT_BLOCK_SIZE, .CCB[C_ADDR]);
; 0980 CCBRT$( .CCB);
; 0981 CCB = 0
; 0982 end;
; 0983
; 0984
; 0985
; 0986 ! ************
; 0987 ! ** NX$OPN **
; 0988 ! ************
; 0989 [N_POPN^-1]:
; 0990 begin
; 0991 LNK = .CCB [C_PRM1];
; 0992
; 0993 %if paranoid %then
; 0994 if .LNK [L_STATE] neq ST_OI
; 0995 then SIGNAL_STOP (SC$_LWS, .CCB, .LNK);
; 0996 %fi
; 0997
; 0998 LNK [L_PID] = .CCB [C_LIX];
; 0999 PIV [.LNK [L_PID]] = .LNK [L_LLA];
; 1000 if .STATUS eql S_SSUC
; 1001 then
; 1002 begin
; 1003 LNK [L_STATE] = ST_OPN;
; 1004 SCDB [SC_IPORT] = .SCDB [SC_IPORT] + 1
; 1005 end
; 1006 else
; 1007 begin
; 1008 LNK [LL_BUSY] = false;
; 1009 LNK [L_STATE] = ST_OFF
; 1010 end;
; 1011
; 1012 SCDB [SCF_OPEN] = false;
; 1013 LCCB = 0
; 1014 end;
; 1015
; 1016
; 1017
; 1018 ! ************
; 1019 ! ** NX$INI **
; 1020 ! ************
; 1021 [N_XINI^-1]:
; 1022 begin
; 1023 if .STATUS eql S_SSUC
; 1024 then
; 1025 begin
; 1026 local
; 1027 OLD_STATE;
; 1028
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 31
X01500 Transmit Complete From NSP 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (9)
; 1029 STATUS = NM$SUC; ! Say we made it
; 1030 SCDB [SC_LADDR] = .CCB [C_PRM1]; ! Get our node address
; 1031 SCDB [SC_SSIZE] = .CCB [C_CNT]; ! and segment size
; 1032 OLD_STATE = .SCDB [SCF_STAT]; ! Remember old state
; 1033 SCDB [SCF_STAT] = S_ST_ON; ! Say we are turned on
; 1034 CALL$E (NM_SIG, .SCDB [SC_SNPIX], 0, 1, .OLD_STATE);
; 1035 ! Tell NMX
; 1036 ! TYPE = 0, REASON = 1
; 1037
; 1038 $MCB_ENABLE_LONG_TIMER (); ! Start the clock
; 1039 SCDB [SC_TICK] = .SCDB [SC_TICK] + 1 ! ...
; 1040 end
; 1041 else
; 1042 STATUS = $NM$ERR_UFO;
; 1043
; 1044 $SC_DO_CCP (.LCCB, .STATUS); ! Complete the CCB
; 1045 LCCB = 0 ! ...
; 1046 end;
; 1047
; 1048
; 1049
; 1050 ! ************
; 1051 ! ** NX$ERR **
; 1052 ! ************
; 1053 [inrange, outrange]:
; 1054 begin
; 1055 %if paranoid %then
; 1056 SIGNAL_STOP (SC$_ISC, .CCB, .LNK);
; 1057 %fi
; 1058
; 1059 STATUS = S_EERR
; 1060 end;
; 1061
; 1062 tes;
; 1063
; 1064 if .CCB neq 0 then CCBRT$ (.CCB);
; 1065 if .LCCB neq 0 then $SC_DO_XCP (.LCCB, .STATUS)
; 1066 end;
.GLOBL NM.SIG, $LTMEN
.SBTTL FCXCP Transmit Complete From NSP
002236 .PSECT $CODE$, RO
000000 162706 000014 FCXCP: SUB #14,SP ; 0770
000004 010302 MOV R3,R2 ; *,FCM
000006 010466 000010 MOV R4,10(SP)
000012 010566 000012 MOV R5,12(SP)
000016 010500 MOV R5,R0 ; 0804
000020 016005 000016 MOV 16(R0),R5
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 32
X01500 Transmit Complete From NSP 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (9)
000024 070527 000032 MUL #32,R5
000030 010501 MOV R5,R1
000032 016600 000012 MOV 12(SP),R0
000036 066001 000046 ADD 46(R0),R1
000042 016067 000044 000000G MOV 44(R0),KISAR6 ; 0806
000050 012700 000010 MOV #10,R0 ; 0808
000054 066600 000010 ADD 10(SP),R0
000060 010066 000006 MOV R0,6(SP)
000064 005005 CLR R5
000066 151005 BISB (R0),R5
000070 060105 ADD R1,R5
000072 111505 MOVB (R5),R5
000074 042705 177400 BIC #177400,R5
000100 070527 000032 MUL #32,R5
000104 016600 000012 MOV 12(SP),R0
000110 066005 000046 ADD 46(R0),R5
000114 010566 000004 MOV R5,4(SP) ; *,LNK
000120 012700 000014 MOV #14,R0 ; 0809
000124 066600 000010 ADD 10(SP),R0
000130 010066 000002 MOV R0,2(SP)
000134 011046 MOV (R0),-(SP)
000136 004767 000000G JSR PC,STSMAP
000142 010005 MOV R0,R5 ; *,STATUS
000144 016600 000012 MOV 12(SP),R0 ; 0810
000150 016066 000004 000002 MOV 4(R0),2(SP) ; *,LCCB
000156 010203 MOV R2,R3 ; FCM,* 0813
000160 006203 ASR R3
000162 020327 000016 CMP R3,#16
000166 101003 BHI 1$
000170 006303 ASL R3
000172 066307 000124' ADD P.AAH(R3),PC ; Case dispatch
000176 016616 000006 1$: MOV 6(SP),(SP) ; LNK,* 1056
000202 016646 000012 MOV 12(SP),-(SP)
000206 012746 100014 MOV #-77764,-(SP)
000212 012746 000003 MOV #3,-(SP)
000216 004767 000000G JSR PC,$STOP
000222 012705 177763 MOV #-15,R5 ; *,STATUS 1059
000226 062706 000006 ADD #6,SP ; 1054
000232 000577 BR 11$ ; 0813
000234 127627 000006 000011 2$: CMPB @6(SP),#11 ; LNK,* 0825
000242 001514 BEQ 8$
000244 127627 000006 000013 CMPB @6(SP),#13 ; LNK,* 0826
000252 001510 BEQ 8$
000254 127627 000006 000012 CMPB @6(SP),#12 ; LNK,* 0827
000262 001504 BEQ 8$
000264 127627 000006 000010 CMPB @6(SP),#10 ; LNK,* 0828
000272 001500 BEQ 8$
000274 000463 BR 7$ ; 0829
000276 127627 000006 000007 3$: CMPB @6(SP),#7 ; LNK,* 0844
000304 001430 BEQ 5$
000306 127627 000006 000010 CMPB @6(SP),#10 ; LNK,* 0845
000314 001420 BEQ 4$
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 33
X01500 Transmit Complete From NSP 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (9)
000316 127627 000006 000013 CMPB @6(SP),#13 ; LNK,* 0846
000324 001414 BEQ 4$
000326 016616 000006 MOV 6(SP),(SP) ; LNK,* 0847
000332 016646 000012 MOV 12(SP),-(SP)
000336 012746 100024 MOV #-77754,-(SP)
000342 012746 000003 MOV #3,-(SP)
000346 004767 000000G JSR PC,$STOP
000352 062706 000006 ADD #6,SP
000356 127627 000006 000007 4$: CMPB @6(SP),#7 ; LNK,* 0850
000364 001131 BNE 13$
000366 020527 000001 5$: CMP R5,#1 ; STATUS,*
000372 001126 BNE 13$
000374 112776 000014 000006 MOVB #14,@6(SP) ; *,LNK 0851
000402 000522 BR 13$ ; 0813
000404 127627 000006 000005 6$: CMPB @6(SP),#5 ; LNK,* 0863
000412 001430 BEQ 8$
000414 127627 000006 000006 CMPB @6(SP),#6 ; LNK,* 0864
000422 001424 BEQ 8$
000424 127627 000006 000013 CMPB @6(SP),#13 ; LNK,* 0865
000432 001420 BEQ 8$
000434 127627 000006 000010 CMPB @6(SP),#10 ; LNK,* 0866
000442 001414 BEQ 8$
000444 016616 000006 7$: MOV 6(SP),(SP) ; LNK,* 0867
000450 016646 000012 MOV 12(SP),-(SP)
000454 012746 100024 MOV #-77754,-(SP)
000460 012746 000003 MOV #3,-(SP)
000464 004767 000000G JSR PC,$STOP
000470 062706 000006 ADD #6,SP
000474 016616 000006 8$: MOV 6(SP),(SP) ; LNK,* 0870
000500 004767 000000G JSR PC,I$CLS
000504 000461 BR 13$ ; 0813
000506 127627 000006 000014 9$: CMPB @6(SP),#14 ; LNK,* 0882
000514 001434 BEQ 10$
000516 127627 000006 000012 CMPB @6(SP),#12 ; LNK,* 0883
000524 001430 BEQ 10$
000526 127627 000006 000013 CMPB @6(SP),#13 ; LNK,* 0884
000534 001424 BEQ 10$
000536 127627 000006 000010 CMPB @6(SP),#10 ; LNK,* 0885
000544 001420 BEQ 10$
000546 127627 000006 000011 CMPB @6(SP),#11 ; LNK,* 0886
000554 001414 BEQ 10$
000556 016616 000006 MOV 6(SP),(SP) ; LNK,* 0887
000562 016646 000012 MOV 12(SP),-(SP)
000566 012746 100024 MOV #-77754,-(SP)
000572 012746 000003 MOV #3,-(SP)
000576 004767 000000G JSR PC,$STOP
000602 062706 000006 ADD #6,SP
000606 020227 000032 10$: CMP R2,#32 ; FCM,* 0890
000612 001010 BNE 12$
000614 016600 000002 MOV 2(SP),R0 ; LCCB,* 0892
000620 016602 000012 MOV 12(SP),R2
000624 016260 000022 000022 MOV 22(R2),22(R0) ; *,*(LCCB)
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 34
X01500 Transmit Complete From NSP 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (9)
000632 000406 11$: BR 13$ ; 0890
000634 020227 000024 12$: CMP R2,#24 ; FCM,*
000640 001003 BNE 13$
000642 042776 020000 000006 BIC #20000,@6(SP) ; *,LNK 0893
000650 000167 001156 13$: JMP 39$ ; 0813
000654 105776 000006 14$: TSTB @6(SP) ; LNK 0909
000660 001773 BEQ 13$
000662 127627 000006 000010 CMPB @6(SP),#10 ; LNK,* 0913
000670 001414 BEQ 15$
000672 016616 000006 MOV 6(SP),(SP) ; LNK,* 0914
000676 016646 000012 MOV 12(SP),-(SP)
000702 012746 100024 MOV #-77754,-(SP)
000706 012746 000003 MOV #3,-(SP)
000712 004767 000000G JSR PC,$STOP
000716 062706 000006 ADD #6,SP
000722 105076 000006 15$: CLRB @6(SP) ; LNK 0917
000726 042776 177400 000006 BIC #177400,@6(SP) ; *,LNK 0918
000734 012700 000026 MOV #26,R0 ; 0919
000740 066600 000006 ADD 6(SP),R0 ; LNK,*
000744 010003 MOV R0,R3
000746 004767 000000G 16$: JSR PC,$CMQRM
000752 103416 BCS 17$
000754 010466 000002 MOV R4,2(SP) ; $MCB$R4,LCCB
000760 010400 MOV R4,R0 ; LCCB,* 0920
000762 112760 000014 000012 MOVB #14,12(R0) ; *,*(LCCB)
000770 016601 000006 MOV 6(SP),R1 ; LNK,*
000774 016160 000014 000014 MOV 14(R1),14(R0) ; *(LNK),*(LCCB)
001002 004767 000000G JSR PC,$SCHED
001006 000757 BR 16$ ; 0919
001010 012700 000022 17$: MOV #22,R0 ; 0921
001014 066600 000006 ADD 6(SP),R0 ; LNK,*
001020 010003 MOV R0,R3
001022 004767 000000G 18$: JSR PC,$CMQRM
001026 103440 BCS 21$
001030 010466 000002 MOV R4,2(SP) ; $MCB$R4,LCCB
001034 010400 MOV R4,R0 ; LCCB,* 0923
001036 126027 000013 000020 CMPB 13(R0),#20 ; *(LCCB),*
001044 001411 BEQ 19$
001046 126027 000013 000022 CMPB 13(R0),#22 ; *(LCCB),*
001054 001405 BEQ 19$
001056 016600 000006 MOV 6(SP),R0 ; LNK,* 0924
001062 016005 000014 MOV 14(R0),R5 ; *(LNK),STATUS
001066 000405 BR 20$ ; 0923
001070 017616 000004 19$: MOV @4(SP),(SP) ; 0925
001074 004767 000000G JSR PC,STSMAP
001100 010005 MOV R0,R5 ; *,STATUS
001102 016600 000002 20$: MOV 2(SP),R0 ; LCCB,* 0926
001106 112760 000014 000012 MOVB #14,12(R0) ; *,*(LCCB)
001114 010560 000014 MOV R5,14(R0) ; STATUS,*(LCCB)
001120 010004 MOV R0,R4 ; LCCB,*
001122 004767 000000G JSR PC,$SCHED
001126 000735 BR 18$ ; 0921
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 35
X01500 Transmit Complete From NSP 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (9)
001130 016600 000012 21$: MOV 12(SP),R0 ; 0929
001134 016066 000004 000002 MOV 4(R0),2(SP) ; *,LCCB
001142 001002 BNE 22$
001144 000167 000656 JMP 38$
001150 016600 000002 22$: MOV 2(SP),R0 ; LCCB,* 0930
001154 112760 000014 000012 MOVB #14,12(R0) ; *,*(LCCB)
001162 012760 000001 000014 MOV #1,14(R0) ; *,*(LCCB)
001170 000167 000622 JMP 37$
001174 016600 000012 23$: MOV 12(SP),R0 ; 0942
001200 016066 000034 000006 MOV 34(R0),6(SP) ; *,LNK
001206 127627 000006 000001 CMPB @6(SP),#1 ; LNK,* 0946
001214 001423 BEQ 25$
001216 127627 000006 000010 CMPB @6(SP),#10 ; LNK,* 0947
001224 001413 BEQ 24$
001226 016616 000006 MOV 6(SP),(SP) ; LNK,* 0948
001232 010046 MOV R0,-(SP)
001234 012746 100024 MOV #-77754,-(SP)
001240 012746 000003 MOV #3,-(SP)
001244 004767 000000G JSR PC,$STOP
001250 062706 000006 ADD #6,SP
001254 127627 000006 000001 24$: CMPB @6(SP),#1 ; LNK,* 0951
001262 001062 BNE 28$
001264 052776 010000 000006 25$: BIS #10000,@6(SP) ; *,LNK 0954
001272 052776 002000 000014 BIS #2000,@14(SP) ; 0955
001300 016600 000006 MOV 6(SP),R0 ; LNK,* 0956
001304 117660 000010 000004 MOVB @10(SP),4(R0) ; *,*(LNK)
001312 005000 CLR R0 ; 0957
001314 157600 000010 BISB @10(SP),R0
001320 060001 ADD R0,R1
001322 016600 000006 MOV 6(SP),R0 ; LNK,*
001326 116011 000003 MOVB 3(R0),(R1) ; *(LNK),*
001332 005705 TST R5 ; STATUS 0958
001334 002016 BGE 27$
001336 027627 000004 177777 CMP @4(SP),#-1 ; 0961
001344 001404 BEQ 26$
001346 010016 MOV R0,(SP) ; LNK,* 0962
001350 004767 000000G JSR PC,I$CLS
001354 000427 BR 29$ ; 0960
001356 105076 000006 26$: CLRB @6(SP) ; LNK 0965
001362 042776 177400 000006 BIC #177400,@6(SP) ; *,LNK 0966
001370 000421 BR 29$ ; 0958
001372 112776 000002 000006 27$: MOVB #2,@6(SP) ; *,LNK 0971
001400 012700 000022 MOV #22,R0 ; 0972
001404 066600 000006 ADD 6(SP),R0 ; LNK,*
001410 010003 MOV R0,R3
001412 016604 000002 MOV 2(SP),R4 ; LCCB,*
001416 004767 000000G JSR PC,$CMQIF
001422 005066 000002 CLR 2(SP) ; LCCB 0973
001426 000402 BR 29$ ; 0951
001430 012705 177767 28$: MOV #-11,R5 ; *,STATUS 0977
001434 016602 000012 29$: MOV 12(SP),R2 ; 0979
001440 016200 000020 MOV 20(R2),R0
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 36
X01500 Transmit Complete From NSP 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (9)
001444 012701 000156 MOV #156,R1
001450 004767 000000G JSR PC,$DSRRT
001454 016604 000012 MOV 12(SP),R4 ; 0980
001460 004767 000000G JSR PC,$CCBRT
001464 005066 000012 CLR 12(SP) ; 0981
001470 000562 BR 40$ ; 0813
001472 016600 000012 30$: MOV 12(SP),R0 ; 0991
001476 016066 000024 000006 MOV 24(R0),6(SP) ; *,LNK
001504 127627 000006 000003 CMPB @6(SP),#3 ; LNK,* 0994
001512 001413 BEQ 31$
001514 016616 000006 MOV 6(SP),(SP) ; LNK,* 0995
001520 010046 MOV R0,-(SP)
001522 012746 100024 MOV #-77754,-(SP)
001526 012746 000003 MOV #3,-(SP)
001532 004767 000000G JSR PC,$STOP
001536 062706 000006 ADD #6,SP
001542 016600 000006 31$: MOV 6(SP),R0 ; LNK,* 0998
001546 117660 000010 000004 MOVB @10(SP),4(R0) ; *,*(LNK)
001554 005000 CLR R0 ; 0999
001556 016602 000006 MOV 6(SP),R2 ; LNK,*
001562 156200 000004 BISB 4(R2),R0 ; *(LNK),*
001566 060001 ADD R0,R1
001570 010200 MOV R2,R0 ; LNK,*
001572 116011 000003 MOVB 3(R0),(R1) ; *(LNK),*
001576 020527 000001 CMP R5,#1 ; STATUS,* 1000
001602 001007 BNE 32$
001604 112712 000004 MOVB #4,(R2) ; *,LNK 1003
001610 016601 000014 MOV 14(SP),R1 ; 1004
001614 105261 000006 INCB 6(R1)
001620 000405 BR 33$ ; 1000
001622 042776 004000 000006 32$: BIC #4000,@6(SP) ; *,LNK 1008
001630 105076 000006 CLRB @6(SP) ; LNK 1009
001634 042776 004000 000014 33$: BIC #4000,@14(SP) ; 1012
001642 000471 BR 38$ ; 1013
001644 020527 000001 34$: CMP R5,#1 ; STATUS,* 1023
001650 001051 BNE 35$
001652 012705 000001 MOV #1,R5 ; *,STATUS 1029
001656 016600 000014 MOV 14(SP),R0 ; 1030
001662 016601 000012 MOV 12(SP),R1
001666 016160 000024 000010 MOV 24(R1),10(R0)
001674 016160 000022 000014 MOV 22(R1),14(R0) ; 1031
001702 011000 MOV (R0),R0 ; *,OLD.STATE 1032
001704 072027 177770 ASH #-10,R0 ; *,OLD.STATE
001710 042700 177774 BIC #177774,R0 ; *,OLD.STATE
001714 042776 001400 000014 BIC #1400,@14(SP) ; 1033
001722 010016 MOV R0,(SP) ; OLD.STATE,* 1034
001724 010546 MOV R5,-(SP)
001726 005046 CLR -(SP)
001730 012746 000003 MOV #3,-(SP)
001734 012746 000000G MOV #NM.SIG,-(SP)
001740 005046 CLR -(SP)
001742 016600 000026 MOV 26(SP),R0
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 37
X01500 Transmit Complete From NSP 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (9)
001746 116016 000004 MOVB 4(R0),(SP)
001752 004767 000000G JSR PC,$CALLE
001756 004767 000000G JSR PC,$LTMEN ; 1038
001762 105276 000026 INCB @26(SP) ; 1039
001766 062706 000012 ADD #12,SP ; 1025
001772 000402 BR 36$ ; 1023
001774 012705 177777 35$: MOV #-1,R5 ; *,STATUS 1042
002000 016600 000002 36$: MOV 2(SP),R0 ; LCCB,* 1044
002004 112760 000022 000012 MOVB #22,12(R0) ; *,*(LCCB)
002012 010560 000014 MOV R5,14(R0) ; STATUS,*(LCCB)
002016 016604 000002 37$: MOV 2(SP),R4 ; LCCB,*
002022 004767 000000G JSR PC,$SCHED
002026 005066 000002 38$: CLR 2(SP) ; LCCB 1045
002032 005766 000012 39$: TST 12(SP) ; 1064
002036 001404 40$: BEQ 41$
002040 016604 000012 MOV 12(SP),R4
002044 004767 000000G JSR PC,$CCBRT
002050 005766 000002 41$: TST 2(SP) ; LCCB 1065
002054 001412 BEQ 42$
002056 016600 000002 MOV 2(SP),R0 ; LCCB,*
002062 112760 000014 000012 MOVB #14,12(R0) ; *,*(LCCB)
002070 010560 000014 MOV R5,14(R0) ; STATUS,*(LCCB)
002074 010004 MOV R0,R4 ; LCCB,*
002076 004767 000000G JSR PC,$SCHED
002102 062706 000016 42$: ADD #16,SP ; 0770
002106 000207 RTS PC
; Routine Size: 548 words, Routine Base: $CODE$ + 2236
; Maximum stack depth per invocation: 13 words
000124 .PSECT $PLIT$, RO , D
P.AAH: ; CASE Table for FCXCP+0172 0813
000124 000000 .WORD 0 ; [1$]
000126 001274 .WORD 1274 ; [30$]
000130 000456 .WORD 456 ; [14$]
000132 000000 .WORD 0 ; [1$]
000134 000776 .WORD 776 ; [23$]
000136 000100 .WORD 100 ; [3$]
000140 000206 .WORD 206 ; [6$]
000142 000036 .WORD 36 ; [2$]
000144 000036 .WORD 36 ; [2$]
000146 000310 .WORD 310 ; [9$]
000150 000310 .WORD 310 ; [9$]
000152 000310 .WORD 310 ; [9$]
000154 000310 .WORD 310 ; [9$]
000156 000310 .WORD 310 ; [9$]
000160 001446 .WORD 1446 ; [34$]
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 38
X01500 Transmit Enable From User 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (10)
; 1067 %sbttl 'Transmit Enable From User'
; 1068 routine FCXME (SCDB, CCB, FCM): mcb_db_ccb_mod novalue =
; 1069
; 1070 !++
; 1071 ! FUNCTIONAL DESCRIPTION:
; 1072 ! This routine is activated by a transmit enable from
; 1073 ! a System Interface user.
; 1074 !
; 1075 ! FORMAL PARAMETERS:
; 1076 ! CCB CCB to pass to handler routine
; 1077 ! FCM Function code modifier
; 1078 !
; 1079 ! IMPLICIT INPUTS:
; 1080 ! CCB Contents
; 1081 !
; 1082 ! IMPLICIT OUTPUTS:
; 1083 ! None
; 1084 !
; 1085 ! ROUTINE VALUE:
; 1086 ! COMPLETION CODES:
; 1087 ! None
; 1088 !
; 1089 ! SIDE EFFECTS:
; 1090 ! None
; 1091 !--
; 1092
; 1093 begin
; 1094 $sc_get_data_base (SCDB);
; 1095 map CCB: ref block field (C_FIELDS);
; 1096 local
; 1097 LNK: ref block field (LLT_FIELDS),
; 1098 QUE_TO_TAIL,
; 1099 STATUS;
; 1100 bind
; 1101 LLT = SCDB [SC_LLT_ADDR]: ref blockvector [,L_SIZE] field (LLT_FIELDS);
; 1102
; 1103 MAP$ (.SCDB [SC_LLT_BIAS]);
; 1104 LNK = LLT [.CCB [C_LIX], L_TOP];
; 1105 QUE_TO_TAIL = true;
; 1106 STATUS = S_SSUC;
; 1107
; 1108 if .SCDB [SCF_STAT] neq S_ST_ON
; 1109 then STATUS = S_ELNS
; 1110 else case .FCM^-1 from 0 to S$XHI^-1 of
; 1111 set
; 1112
; 1113
; 1114
; 1115 ! ************
; 1116 ! ** SX$ABO **
; 1117 ! ************
; 1118 [S$ABO^-1]:
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 39
X01500 Transmit Enable From User 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (10)
; 1119 begin
; 1120 ! Locate which LL the user is talking about
; 1121 STATUS = S_ENSL; ! Assume no such link
; 1122 incr LL from 0 to .SCDB [SC_LINKS]-1 do
; 1123 begin
; 1124 LNK = LLT [.LL, L_TOP];
; 1125 if (.LNK [L_ULA] eql .CCB [$sub_field (C_PRM1, LO_BYTE)]) and
; 1126 (.LNK [L_PIX] eql .CCB [C_PIX]) and
; 1127 (.LNK [L_STATE] neq ST_OFF) and
; 1128 (.LNK [L_STATE] neq ST_OPN) and
; 1129 (.LNK [L_STATE] neq ST_OI)
; 1130 then
; 1131 begin
; 1132 STATUS = S_SSUC; ! We have a link
; 1133 LNK [L_STS] = S_EABO; ! User abort
; 1134 CCB [C_LIX] = .LNK [L_LLA];
; 1135 if
; 1136 begin
; 1137 (not .LNK [LL_ABTI]) and
; 1138 ((.LNK [L_STATE] eql ST_RUN) or
; 1139 (.LNK [L_STATE] eql ST_DI) or
; 1140 (.LNK [L_STATE] eql ST_CA) or
; 1141 (.LNK [L_STATE] eql ST_CID) or
; 1142 (.LNK [L_STATE] eql ST_DIR) or
; 1143 not (.LNK [L_STATE] eql ST_CIS))
; 1144 end
; 1145 then
; 1146 begin
; 1147 local
; 1148 LCCB;
; 1149 if .LNK [L_STATE] neq ST_DIR
; 1150 then
; 1151 begin
; 1152 LNK [LL_KLOK] = false;
; 1153 LNK [LL_ABTI] = true ! Abort started
; 1154 end;
; 1155
; 1156 ! *** Now to free queued input CCBs
; 1157 while CMQRM$ (LNK [L_IQUE], LCCB) do $SC_DO_RCE (.LCCB)
; 1158 end
; 1159 else
; 1160 STATUS = (if .LNK [L_STATE] eql ST_CLI then S_ENOF else S_ELWS);
; 1161
; 1162 exitloop
; 1163 end
; 1164 end;
; 1165
; 1166 QUE_TO_TAIL = false
; 1167 end;
; 1168
; 1169
; 1170
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 40
X01500 Transmit Enable From User 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (10)
; 1171 ! *********************
; 1172 ! ** SX$ACC & SX$REJ **
; 1173 ! *********************
; 1174 [S$ACC^-1, S$REJ^-1]:
; 1175 begin
; 1176 if (.LNK [L_STATE] eql ST_CRA) and not .LNK [LL_ABTI]
; 1177 then
; 1178 begin
; 1179 if .FCM eql S$REJ then LNK [LL_ABTI] = true;
; 1180 LNK [LL_KLOK] = false
; 1181 end
; 1182 else
; 1183 STATUS = (if .LNK [L_STATE] eql ST_CLI then S_ENOF else S_ELWS)
; 1184 end;
; 1185
; 1186
; 1187
; 1188 ! ************
; 1189 ! ** SX$CON **
; 1190 ! ************
; 1191 [S$CON^-1]:
; 1192 begin
; 1193 local
; 1194 LL;
; 1195
; 1196 if FINDLL (LL) ! Get logical link
; 1197 then
; 1198 ! We have found an available LL, so enqueue CCB,
; 1199 ! record user link address, determine destination
; 1200 ! node address, and call the resource-wait routine.
; 1201 begin
; 1202 LNK = LLT [.LL, L_TOP]; ! Record link block address
; 1203 LNK [L_ULA] = .CCB [C_PRM1]; ! Set ULA
; 1204 LNK [L_PIX] = .CCB [C_PIX]; ! Remember user PIX
; 1205 CCB [C_LIX] = .LL; ! Tell user the LLA
; 1206
; 1207 if FINDND (.CCB, .LNK) ! Find the node
; 1208 then LNK [LL_BUSY] = true ! Mark the link in-use
; 1209 else STATUS = S_EUNN
; 1210 end
; 1211 else
; 1212 STATUS = S_ERES ! No logical links available
; 1213 end;
; 1214
; 1215
; 1216
; 1217 ! ************
; 1218 ! ** SX$DIS **
; 1219 ! ************
; 1220 [S$DIS^-1]:
; 1221 begin
; 1222 if (not (
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 41
X01500 Transmit Enable From User 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (10)
; 1223 (.LNK [L_STATE] eql ST_RUN) or
; 1224 (.LNK [L_STATE] eql ST_DIR))) or
; 1225 (.LNK [LL_ACDW] neq 0)
; 1226 then
; 1227 STATUS = (if .LNK [L_STATE] eql ST_CLI then S_ENOF else S_ELWS)
; 1228 else
; 1229 begin
; 1230 if .LNK [L_STATE] neq ST_DIR
; 1231 then LNK [LL_DSCI] = true
; 1232 end
; 1233 end;
; 1234
; 1235
; 1236
; 1237 ! ******************************
; 1238 ! ** SX$DRQ & SX$IRQ & SX$MRQ **
; 1239 ! ******************************
; 1240 [S$DRQ^-1, S$IRQ^-1, S$MRQ^-1]:
; 1241 begin
; 1242 if (not
; 1243 ((.LNK [L_STATE] eql ST_RUN) or
; 1244 (.LNK [L_STATE] eql ST_DI))) or
; 1245 (.LNK [LL_ABTI] neq 0)
; 1246 then
; 1247 STATUS = (if .LNK [L_STATE] eql ST_CLI then S_ENOF else S_ELWS)
; 1248 else
; 1249 begin
; 1250 if .FCM eql S$IRQ
; 1251 then
; 1252 begin
; 1253 CMQIF$ (LNK [L_INTQ], .CCB);
; 1254 $SC_DISPATCH_OUTPUT (LNK [L_INTQ]);
; 1255 return
; 1256 end
; 1257 end
; 1258 end;
; 1259
; 1260
; 1261
; 1262 ! ************
; 1263 ! ** SX$GLN **
; 1264 ! ************
; 1265 [S$GLN^-1]:
; 1266 begin
; 1267 local
; 1268 PTR,
; 1269 DPTR,
; 1270 LPTR,
; 1271 TMP,
; 1272 NAML,
; 1273 BUF: vector [NODE_ENTITY_LEN];
; 1274
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 42
X01500 Transmit Enable From User 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (10)
; 1275 if .CCB [C_CNT] lss 9
; 1276 then
; 1277 begin
; 1278 $SC_DO_XCP (.CCB, S_ELST);
; 1279 return
; 1280 end;
; 1281
; 1282 PTR = byt$ptr (BUF);
; 1283
; 1284 case .CCB [C_PRM1] from 0 to 3 of
; 1285 set
; 1286
; 1287 [0, 1, 3]:
; 1288 begin
; 1289 LPTR = .PTR;
; 1290 TMP = (if .CCB [C_PRM1] eql 3 then .SCDB [SC_HADDR] else .SCDB [SC_LADDR]);
; 1291 byt$short_string (TMP, LPTR); ! Specify our node addr
; 1292 ch$wchar_a (0, LPTR) ! Zero length name
; 1293 end;
; 1294
; 1295 [2]:
; 1296 MFBF$S (9, .CCB [C_BIAS], .CCB [C_ADDR], .PTR);
; 1297
; 1298 [outrange]:
; 1299 begin
; 1300 $SC_DO_XCP (.CCB, S_EERR);
; 1301 return
; 1302 end;
; 1303 tes;
; 1304
; 1305 CALL$E (NM_NOD, .SCDB [SC_SNPIX], .PTR);
; 1306 LPTR = .PTR; ! Now, look at address
; 1307 byt$string_short (LPTR, TMP); ! ...
; 1308 if .TMP eql -1
; 1309 then
; 1310 begin
; 1311 $SC_DO_XCP (.CCB, S_EUNN); ! Zero means no findum
; 1312 return
; 1313 end;
; 1314
; 1315 NAML = ch$rchar_a (LPTR); ! Get name length
; 1316 MAP$ (.CCB [C_BIAS]);
; 1317 DPTR = .CCB [C_ADDR];
; 1318
; 1319 case .CCB [C_PRM1] from 0 to 3 of
; 1320 set
; 1321
; 1322 [0]:
; 1323 begin
; 1324 local
; 1325 DPTR;
; 1326 DPTR = ch$move (.NAML, .LPTR, .DPTR);
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 43
X01500 Transmit Enable From User 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (10)
; 1327 DPTR = ch$fill (%c' ', (6 - .NAML), .DPTR);
; 1328 TMP = .SCDB [SC_SSIZE];
; 1329 byt$short_string (TMP, DPTR)
; 1330 end;
; 1331
; 1332 [1, 2, 3]:
; 1333 DPTR = ch$move (.NAML + 3, .PTR, .DPTR);
; 1334
; 1335 tes;
; 1336
; 1337 CCB [C_CNT] = ch$diff (.DPTR, .CCB [C_ADDR]);
; 1338 $SC_DO_XCP (.CCB, S_SSUC);
; 1339 return
; 1340 end;
; 1341
; 1342
; 1343
; 1344 ! *********************
; 1345 ! ** SX$SND & SX$SNI **
; 1346 ! *********************
; 1347 [S$SND^-1, S$SNI^-1]:
; 1348 begin
; 1349 if (.LNK [L_STATE] eql ST_RUN) and
; 1350 (.LNK [LL_ACDW] eql 0)
; 1351 then
; 1352 begin
; 1353 if .FCM eql S$SNI
; 1354 then
; 1355 begin
; 1356 CMQIN$ (LNK [L_INTQ], .CCB);
; 1357 $SC_DISPATCH_OUTPUT (LNK [L_INTQ]);
; 1358 return
; 1359 end
; 1360 end
; 1361 else
; 1362 STATUS = (if .LNK [L_STATE] eql ST_CLI then S_ENOF else S_ELWS)
; 1363 end;
; 1364
; 1365
; 1366
; 1367 ! ************
; 1368 ! ** SX$ERR **
; 1369 ! ************
; 1370 [outrange, inrange]: STATUS = S_EERR;
; 1371
; 1372 tes;
; 1373
; 1374
; 1375
; 1376 if .STATUS neq S_SSUC then $SC_DO_XCP (.CCB, .STATUS)
; 1377 else
; 1378 begin
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 44
X01500 Transmit Enable From User 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (10)
; 1379 if .QUE_TO_TAIL
; 1380 then CMQIN$ (LNK [L_OQUE], .CCB)
; 1381 else CMQIF$ (LNK [L_OQUE], .CCB);
; 1382 $SC_DISPATCH_OUTPUT (LNK [L_OQUE])
; 1383 end
; 1384 end;
.GLOBL $MVFBF, NM.NOD
.SBTTL FCXME Transmit Enable From User
004346 .PSECT $CODE$, RO
000000 162706 000032 FCXME: SUB #32,SP ; 1068
000004 010302 MOV R3,R2 ; *,FCM
000006 010466 000006 MOV R4,6(SP)
000012 010566 000004 MOV R5,4(SP)
000016 010500 MOV R5,R0 ; 1103
000020 016067 000044 000000G MOV 44(R0),KISAR6
000026 016005 000046 MOV 46(R0),R5 ; 1104
000032 012700 000010 MOV #10,R0
000036 060400 ADD R4,R0
000040 010066 000010 MOV R0,10(SP)
000044 005003 CLR R3
000046 151003 BISB (R0),R3
000050 070327 000032 MUL #32,R3
000054 060503 ADD R5,R3
000056 010366 000002 MOV R3,2(SP) ; *,LNK
000062 012766 000001 000012 MOV #1,12(SP) ; *,QUE.TO.TAIL 1105
000070 012701 000001 MOV #1,R1 ; *,STATUS 1106
000074 032776 001400 000004 BIT #1400,@4(SP) ; 1108
000102 001403 BEQ 1$
000104 012701 177765 MOV #-13,R1 ; *,STATUS 1109
000110 000575 BR 13$ ; 1108
000112 010203 1$: MOV R2,R3 ; FCM,* 1110
000114 006203 ASR R3
000116 020327 000012 CMP R3,#12
000122 101003 BHI 2$
000124 006303 ASL R3
000126 066307 000162' ADD P.AAI(R3),PC ; Case dispatch
000132 012701 177763 2$: MOV #-15,R1 ; *,STATUS 1370
000136 000562 BR 13$ ; 1110
000140 012701 177756 3$: MOV #-22,R1 ; *,STATUS 1121
000144 005000 CLR R0 ; LL 1122
000146 000547 BR 11$
000150 010003 4$: MOV R0,R3 ; LL,* 1124
000152 070327 000032 MUL #32,R3
000156 060503 ADD R5,R3
000160 010366 000002 MOV R3,2(SP) ; *,LNK
000164 016602 000006 MOV 6(SP),R2 ; 1125
000170 126362 000002 000024 CMPB 2(R3),24(R2) ; *(LNK),*
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 45
X01500 Transmit Enable From User 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (10)
000176 001132 BNE 10$
000200 017603 000010 MOV @10(SP),R3 ; 1126
000204 105003 CLRB R3
000206 000303 SWAB R3
000210 005002 CLR R2
000212 016604 000002 MOV 2(SP),R4 ; LNK,*
000216 156402 000005 BISB 5(R4),R2 ; *(LNK),*
000222 020203 CMP R2,R3
000224 001117 BNE 10$
000226 105714 TSTB (R4) ; LNK 1127
000230 001515 BEQ 10$
000232 121427 000004 CMPB (R4),#4 ; LNK,* 1128
000236 001512 BEQ 10$
000240 121427 000003 CMPB (R4),#3 ; LNK,* 1129
000244 001507 BEQ 10$
000246 012701 000001 MOV #1,R1 ; *,STATUS 1132
000252 010402 MOV R4,R2 ; LNK,* 1133
000254 012762 177767 000014 MOV #-11,14(R2) ; *,*(LNK)
000262 116276 000003 000010 MOVB 3(R2),@10(SP) ; *(LNK),* 1134
000270 032776 000400 000002 BIT #400,@2(SP) ; *,LNK 1137
000276 001060 BNE 8$
000300 127627 000002 000014 CMPB @2(SP),#14 ; LNK,* 1138
000306 001423 BEQ 5$
000310 127627 000002 000012 CMPB @2(SP),#12 ; LNK,* 1139
000316 001417 BEQ 5$
000320 127627 000002 000007 CMPB @2(SP),#7 ; LNK,* 1140
000326 001413 BEQ 5$
000330 127627 000002 000002 CMPB @2(SP),#2 ; LNK,* 1141
000336 001407 BEQ 5$
000340 127627 000002 000013 CMPB @2(SP),#13 ; LNK,* 1142
000346 001415 BEQ 6$
000350 127601 000002 CMPB @2(SP),R1 ; LNK,* 1143
000354 001431 BEQ 8$
000356 127627 000002 000013 5$: CMPB @2(SP),#13 ; LNK,* 1149
000364 001406 BEQ 6$
000366 042776 010000 000002 BIC #10000,@2(SP) ; *,LNK 1152
000374 052776 000400 000002 BIS #400,@2(SP) ; *,LNK 1153
000402 012702 000016 6$: MOV #16,R2 ; 1157
000406 066602 000002 ADD 2(SP),R2 ; LNK,*
000412 010203 MOV R2,R3
000414 004767 000000G 7$: JSR PC,$CMQRM
000420 103427 BCS 12$
000422 010402 MOV R4,R2 ; $MCB$R4,LCCB
000424 112762 000004 000012 MOVB #4,12(R2) ; *,*(LCCB)
000432 004767 000000G JSR PC,$SCHED
000436 000766 BR 7$
000440 127627 000002 000010 8$: CMPB @2(SP),#10 ; LNK,* 1160
000446 001003 BNE 9$
000450 012701 177732 MOV #-46,R1 ; *,STATUS
000454 000411 BR 12$
000456 012701 177760 9$: MOV #-20,R1 ; *,STATUS
000462 000406 BR 12$ ; 1162
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 46
X01500 Transmit Enable From User 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (10)
000464 005200 10$: INC R0 ; LL 1122
000466 016602 000004 11$: MOV 4(SP),R2
000472 020062 000016 CMP R0,16(R2) ; LL,*
000476 002624 BLT 4$
000500 005066 000012 12$: CLR 12(SP) ; QUE.TO.TAIL 1166
000504 000540 13$: BR 24$ ; 1110
000506 127627 000002 000006 14$: CMPB @2(SP),#6 ; LNK,* 1176
000514 001016 BNE 16$
000516 032776 000400 000002 BIT #400,@2(SP) ; *,LNK
000524 001012 BNE 16$
000526 020227 000004 CMP R2,#4 ; FCM,* 1179
000532 001003 BNE 15$
000534 052776 000400 000002 BIS #400,@2(SP) ; *,LNK
000542 042776 010000 000002 15$: BIC #10000,@2(SP) ; *,LNK 1180
000550 000516 BR 24$ ; 1175
000552 127627 000002 000010 16$: CMPB @2(SP),#10 ; LNK,* 1183
000560 001133 BNE 28$
000562 000535 BR 29$
000564 012746 000020 17$: MOV #20,-(SP) ; 1196
000570 060616 ADD SP,(SP) ; LL,*
000572 004767 000000G JSR PC,FINDLL
000576 005726 TST (SP)+
000600 006000 ROR R0
000602 103046 BCC 19$
000604 016603 000016 MOV 16(SP),R3 ; LL,* 1202
000610 070327 000032 MUL #32,R3
000614 060503 ADD R5,R3
000616 010366 000002 MOV R3,2(SP) ; *,LNK
000622 010300 MOV R3,R0 ; LNK,* 1203
000624 016602 000006 MOV 6(SP),R2
000630 116260 000024 000002 MOVB 24(R2),2(R0) ; *,*(LNK)
000636 017600 000010 MOV @10(SP),R0 ; 1204
000642 000300 SWAB R0
000644 010302 MOV R3,R2 ; LNK,*
000646 110062 000005 MOVB R0,5(R2) ; *,*(LNK)
000652 116676 000016 000010 MOVB 16(SP),@10(SP) ; LL,* 1205
000660 016646 000006 MOV 6(SP),-(SP) ; 1207
000664 016646 000004 MOV 4(SP),-(SP) ; LNK,*
000670 004767 000000G JSR PC,FINDND
000674 022626 CMP (SP)+,(SP)+
000676 006000 ROR R0
000700 103004 BCC 18$
000702 052776 004000 000002 BIS #4000,@2(SP) ; *,LNK 1208
000710 000436 BR 24$ ; 1207
000712 012701 177776 18$: MOV #-2,R1 ; *,STATUS 1209
000716 000433 BR 24$ ; 1196
000720 012701 177777 19$: MOV #-1,R1 ; *,STATUS 1212
000724 000430 BR 24$ ; 1110
000726 127627 000002 000014 20$: CMPB @2(SP),#14 ; LNK,* 1223
000734 001404 BEQ 21$
000736 127627 000002 000013 CMPB @2(SP),#13 ; LNK,* 1224
000744 001004 BNE 22$
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 47
X01500 Transmit Enable From User 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (10)
000746 032776 003400 000002 21$: BIT #3400,@2(SP) ; *,LNK 1225
000754 001405 BEQ 23$
000756 127627 000002 000010 22$: CMPB @2(SP),#10 ; LNK,* 1227
000764 001031 BNE 28$
000766 000433 BR 29$
000770 127627 000002 000013 23$: CMPB @2(SP),#13 ; LNK,* 1230
000776 001403 BEQ 24$
001000 052776 002000 000002 BIS #2000,@2(SP) ; *,LNK 1231
001006 000167 001052 24$: JMP 49$ ; 1110
001012 127627 000002 000014 25$: CMPB @2(SP),#14 ; LNK,* 1243
001020 001404 BEQ 26$
001022 127627 000002 000012 CMPB @2(SP),#12 ; LNK,* 1244
001030 001004 BNE 27$
001032 032776 000400 000002 26$: BIT #400,@2(SP) ; *,LNK 1245
001040 001410 BEQ 30$
001042 127627 000002 000010 27$: CMPB @2(SP),#10 ; LNK,* 1247
001050 001402 28$: BEQ 29$
001052 000167 001002 JMP 48$
001056 000167 000770 29$: JMP 47$
001062 020227 000016 30$: CMP R2,#16 ; FCM,* 1250
001066 001347 BNE 24$
001070 012700 000026 MOV #26,R0 ; 1253
001074 066600 000002 ADD 2(SP),R0 ; LNK,*
001100 010003 MOV R0,R3
001102 016604 000006 MOV 6(SP),R4
001106 004767 000000G JSR PC,$CMQIF
001112 005713 TST (R3) ; 1254
001114 001002 BNE 31$
001116 000167 001072 JMP 56$
001122 000167 001042 31$: JMP 55$
001126 016600 000006 32$: MOV 6(SP),R0 ; 1275
001132 026027 000022 000011 CMP 22(R0),#11
001140 002007 BGE 33$
001142 112760 000014 000012 MOVB #14,12(R0) ; 1278
001150 012760 177761 000014 MOV #-17,14(R0)
001156 000425 BR 35$
001160 012716 000020 33$: MOV #20,(SP) ; *,PTR 1282
001164 060616 ADD SP,(SP) ; BUF,PTR
001166 016602 000006 MOV 6(SP),R2 ; 1284
001172 016200 000024 MOV 24(R2),R0
001176 020027 000003 CMP R0,#3
001202 101003 BHI 34$
001204 006300 ASL R0
001206 066007 000210' ADD P.AAJ(R0),PC ; Case dispatch
001212 016600 000006 34$: MOV 6(SP),R0 ; 1300
001216 112760 000014 000012 MOVB #14,12(R0)
001224 012760 177763 000014 MOV #-15,14(R0)
001232 000167 000652 35$: JMP 50$
001236 011666 000010 36$: MOV (SP),10(SP) ; PTR,LPTR 1289
001242 016600 000006 MOV 6(SP),R0 ; 1290
001246 026027 000024 000003 CMP 24(R0),#3
001254 001005 BNE 37$
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 48
X01500 Transmit Enable From User 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (10)
001256 016600 000004 MOV 4(SP),R0
001262 016005 000012 MOV 12(R0),R5
001266 000404 BR 38$
001270 016600 000004 37$: MOV 4(SP),R0
001274 016005 000010 MOV 10(R0),R5
001300 010566 000014 38$: MOV R5,14(SP) ; *,TMP
001304 010500 MOV R5,R0 ; TMP,NUM 1291
001306 110076 000010 MOVB R0,@10(SP) ; NUM,LPTR
001312 005266 000010 INC 10(SP) ; LPTR
001316 000300 SWAB R0 ; NUM
001320 110076 000010 MOVB R0,@10(SP) ; NUM,LPTR
001324 005266 000010 INC 10(SP) ; LPTR
001330 105076 000010 CLRB @10(SP) ; LPTR 1292
001334 005266 000010 INC 10(SP) ; LPTR
001340 000415 BR 40$ ; 1284
001342 016600 000006 39$: MOV 6(SP),R0 ; 1296
001346 016046 000016 MOV 16(R0),-(SP)
001352 016046 000020 MOV 20(R0),-(SP)
001356 016602 000004 MOV 4(SP),R2 ; PTR,*
001362 012703 000011 MOV #11,R3
001366 004767 000000G JSR PC,$MVFBF
001372 022626 CMP (SP)+,(SP)+
001374 011646 40$: MOV (SP),-(SP) ; PTR,* 1305
001376 012746 000001 MOV #1,-(SP)
001402 012746 000000G MOV #NM.NOD,-(SP)
001406 005046 CLR -(SP)
001410 016600 000014 MOV 14(SP),R0
001414 116016 000004 MOVB 4(R0),(SP)
001420 004767 000000G JSR PC,$CALLE
001424 016666 000010 000020 MOV 10(SP),20(SP) ; PTR,LPTR 1306
001432 005266 000020 INC 20(SP) ; LPTR 1307
001436 016600 000020 MOV 20(SP),R0 ; LPTR,*
001442 116066 177777 000024 MOVB -1(R0),24(SP) ; *(LPTR),TMP
001450 005266 000020 INC 20(SP) ; LPTR
001454 016600 000020 MOV 20(SP),R0 ; LPTR,*
001460 116066 177777 000025 MOVB -1(R0),25(SP) ; *(LPTR),TMP+1
001466 026627 000024 177777 CMP 24(SP),#-1 ; TMP,* 1308
001474 001016 BNE 41$
001476 016600 000016 MOV 16(SP),R0 ; 1311
001502 112760 000014 000012 MOVB #14,12(R0)
001510 012760 177776 000014 MOV #-2,14(R0)
001516 010004 MOV R0,R4
001520 004767 000000G JSR PC,$SCHED
001524 062706 000010 ADD #10,SP ; 1308
001530 000573 BR 51$ ; 1310
001532 005266 000020 41$: INC 20(SP) ; LPTR 1315
001536 005002 CLR R2 ; NAML
001540 016600 000020 MOV 20(SP),R0 ; LPTR,*
001544 156002 177777 BISB -1(R0),R2 ; *(LPTR),NAML
001550 016600 000016 MOV 16(SP),R0 ; 1316
001554 016067 000016 000000G MOV 16(R0),KISAR6
001562 016004 000020 MOV 20(R0),R4 ; *,DPTR 1317
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 49
X01500 Transmit Enable From User 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (10)
001566 010003 MOV R0,R3 ; 1319
001570 016300 000024 MOV 24(R3),R0
001574 006300 ASL R0
001576 066007 000220' ADD P.AAK(R0),PC ; Case dispatch
001602 010216 42$: MOV R2,(SP) ; NAML,* 1326
001604 016646 000020 MOV 20(SP),-(SP) ; LPTR,*
001610 010346 MOV R3,-(SP) ; DPTR,*
001612 004767 000000G JSR PC,BL$MOV
001616 010003 MOV R0,R3 ; *,DPTR
001620 012716 000040 MOV #40,(SP) ; 1327
001624 012746 000006 MOV #6,-(SP)
001630 160216 SUB R2,(SP) ; NAML,*
001632 010346 MOV R3,-(SP) ; DPTR,*
001634 004767 000000G JSR PC,BL$FIL
001640 010003 MOV R0,R3 ; *,DPTR
001642 016600 000024 MOV 24(SP),R0 ; 1328
001646 016066 000014 000034 MOV 14(R0),34(SP) ; *,TMP
001654 016600 000034 MOV 34(SP),R0 ; TMP,NUM 1329
001660 110023 MOVB R0,(R3)+ ; NUM,DPTR
001662 000300 SWAB R0 ; NUM
001664 110023 MOVB R0,(R3)+ ; NUM,DPTR
001666 022626 CMP (SP)+,(SP)+ ; 1323
001670 000411 BR 44$ ; 1319
001672 010216 43$: MOV R2,(SP) ; NAML,* 1333
001674 062716 000003 ADD #3,(SP)
001700 016646 000010 MOV 10(SP),-(SP) ; PTR,*
001704 010446 MOV R4,-(SP) ; DPTR,*
001706 004767 000000G JSR PC,BL$MOV
001712 010004 MOV R0,R4 ; *,DPTR
001714 016600 000022 44$: MOV 22(SP),R0 ; 1337
001720 010460 000022 MOV R4,22(R0) ; DPTR,*
001724 010002 MOV R0,R2
001726 166260 000020 000022 SUB 20(R2),22(R0)
001734 112760 000014 000012 MOVB #14,12(R0) ; 1338
001742 012760 000001 000014 MOV #1,14(R0)
001750 010204 MOV R2,R4
001752 004767 000000G JSR PC,$SCHED
001756 062706 000014 ADD #14,SP ; 1110
001762 000514 BR 56$ ; 1266
001764 127627 000002 000014 45$: CMPB @2(SP),#14 ; LNK,* 1349
001772 001023 BNE 46$
001774 032776 003400 000002 BIT #3400,@2(SP) ; *,LNK 1350
002002 001017 BNE 46$
002004 020227 000014 CMP R2,#14 ; FCM,* 1353
002010 001025 BNE 49$
002012 012700 000026 MOV #26,R0 ; 1356
002016 066600 000002 ADD 2(SP),R0 ; LNK,*
002022 010003 MOV R0,R3
002024 016604 000006 MOV 6(SP),R4
002030 004767 000000G JSR PC,$CMQIN
002034 005713 TST (R3) ; 1357
002036 001466 BEQ 56$
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 50
X01500 Transmit Enable From User 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (10)
002040 000453 BR 55$
002042 127627 000002 000010 46$: CMPB @2(SP),#10 ; LNK,* 1362
002050 001003 BNE 48$
002052 012701 177732 47$: MOV #-46,R1 ; *,STATUS
002056 000402 BR 49$
002060 012701 177760 48$: MOV #-20,R1 ; *,STATUS
002064 020127 000001 49$: CMP R1,#1 ; STATUS,* 1376
002070 001414 BEQ 52$
002072 016600 000006 MOV 6(SP),R0
002076 112760 000014 000012 MOVB #14,12(R0)
002104 010160 000014 MOV R1,14(R0) ; STATUS,*
002110 016604 000006 50$: MOV 6(SP),R4
002114 004767 000000G JSR PC,$SCHED
002120 000435 51$: BR 56$
002122 016603 000002 52$: MOV 2(SP),R3 ; LNK,* 1380
002126 062703 000022 ADD #22,R3
002132 032766 000001 000012 BIT #1,12(SP) ; *,QUE.TO.TAIL 1379
002140 001405 BEQ 53$
002142 016604 000006 MOV 6(SP),R4 ; 1380
002146 004767 000000G JSR PC,$CMQIN
002152 000404 BR 54$ ; 1379
002154 016604 000006 53$: MOV 6(SP),R4 ; 1381
002160 004767 000000G JSR PC,$CMQIF
002164 005713 54$: TST (R3) ; 1382
002166 001412 BEQ 56$
002170 011300 55$: MOV (R3),R0
002172 116000 000013 MOVB 13(R0),R0
002176 042700 177400 BIC #177400,R0
002202 016646 000002 MOV 2(SP),-(SP) ; LNK,*
002206 004770 000040' JSR PC,@XMEWT(R0)
002212 005726 TST (SP)+
002214 062706 000032 56$: ADD #32,SP ; 1068
002220 000207 RTS PC
; Routine Size: 585 words, Routine Base: $CODE$ + 4346
; Maximum stack depth per invocation: 22 words
000162 .PSECT $PLIT$, RO , D
P.AAI: ; CASE Table for FCXME+0126 1110
000162 000432 .WORD 432 ; [17$]
000164 000354 .WORD 354 ; [14$]
000166 000354 .WORD 354 ; [14$]
000170 001632 .WORD 1632 ; [45$]
000172 000660 .WORD 660 ; [25$]
000174 000660 .WORD 660 ; [25$]
000176 001632 .WORD 1632 ; [45$]
000200 000660 .WORD 660 ; [25$]
000202 000574 .WORD 574 ; [20$]
000204 000006 .WORD 6 ; [3$]
000206 000774 .WORD 774 ; [32$]
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 51
X01500 Transmit Enable From User 27-Nov-1984 13:18:37 RATS:<BANKS.MCB.SC>SCDSP.BLI.2 (10)
P.AAJ: ; CASE Table for FCXME+1206 1284
000210 000024 .WORD 24 ; [36$]
000212 000024 .WORD 24 ; [36$]
000214 000130 .WORD 130 ; [39$]
000216 000024 .WORD 24 ; [36$]
P.AAK: ; CASE Table for FCXME+1576 1319
000220 000000 .WORD 0 ; [42$]
000222 000070 .WORD 70 ; [43$]
000224 000070 .WORD 70 ; [43$]
000226 000070 .WORD 70 ; [43$]
; 1385
; 1386 end
; 1387 eludom
; OTS external references
.GLOBL $STOP, BL$FIL, BL$MOV
; PSECT SUMMARY
;
; Psect Name Words Attributes
; $PLIT$ 76 RO , D , LCL, REL, CON
; $CODE$ 1724 RO , I , LCL, REL, CON
; LIBRARY STATISTICS
;
; -------- Symbols -------- Blocks
; File Total Loaded Percent Read
;
; RATS:<BANKS.MCB.SC>SCPRM.L16.6 262 95 36 0
; RATS:<BANKS.MCB.MCB>MCBLIB.L16.6 372 62 16 0
; RATS:<BANKS.MCB.MCB>RSXLIB.L16.5 317 0 0 0
; RATS:<BANKS.MCB.MCB>NMXLIB.L16.5 200 4 2 0
; RATS:<BANKS.MCB.MCB>XPORTX.L16.10 599 8 1 0
; RATS:<BANKS.MCB.MCB>SCSYS.L16.5 113 32 28 0
; Size: 1724 code + 76 data words
; Run Time: 00:34.8
SCDSP 27-Nov-1984 13:23:09 TOPS-20 Bliss-16 2A(530) Page 52
X01500 Transmit Enable From User
; Elapsed Time: 03:04.3
; Memory Used: 100 pages
; Compilation Complete
BLISS36 255
BUF 1273 1282
BYT$PTR 590 594 1282
BYT$SHORT_STRING 595 1291 1329
BYT$STRING_SHORT 1307
BYT$TINY_STRING 596
BYTES_WORD 573
BYTE_VECTOR 398 804
CALL$E 360 1034 1305
CB_SIZE 573
CCB 330 358 360 363 391 401 416 419 421 441 444 445
447 449 452 466 470 471 486 496 502 512 519 546
554 555 570 573 578 581 583 590# 591 592# 593# 594
595 597# 598 617 630 641 647 650 677 770 797 808
809 810 829 847 867 887 892 914 925 929 942 948
956 957 961 979 980 981# 991 995 998 1030 1031 1056
1064 1068 1095 1104 1125 1126 1134# 1203 1204 1205# 1207 1253
1275 1278 1284 1290 1296 1300 1311 1316 1317 1319 1337# 1338
1356 1376 1380 1381
CCBRT$ 583 647 980 1064
CMQIF$ 419 471 502 972 1253 1381
CMQIN$ 470 1356 1380
CMQRM$ 439 501 919 921 1157
CNT 437 445# 446
C_ADDR 447 573 590 979 1296 1317 1337
C_BIAS 444 1296 1316
C_CNT 445 597 892 1031 1275 1337
C_FIELDS 358 391 394 546 548 677 696 797 800 1095
C_LIX 401 554 808 956 957 998 1104 1134 1205
C_MOD 923
C_PIX 581 1126 1204
C_PRM1 421 590 594 991 1030 1125 1203 1284 1290 1319
C_PRM2 448
C_PRM3 448
C_PRM4 446 448
C_PRM5 942
C_STK 555 810 929
C_STS 441 449 578 591 592 593 595 809 925 961
DPTR 1269 1317# 1325 1326# 1327# 1329 1333# 1337
DSR_CONNECT_BLOCK_SIZE 979
FALSE 723 893 1008 1012 1152 1166 1180
FCCTL 243 307 330*
FCM 330 363 404 469 489 519 557 650 684 770 813 890
1068 1110 1179 1250 1353
FCRCE 244 305 519*
FCRCP 245 306 363*
FCTMO 246 308 650*
FCXCP 247 304 770*
FCXME 248 303 1068*
FC_CCP 302
FC_CTL 307
FC_RCE 305
FC_RCP 306
FC_TIM 308
FC_XCP 304
FC_XME 303
FINDLL 271* 1196
FINDND 272 1207
I$CLS 276 443 497 730 832 870 962
I$OPN 277 423 736
L 703
LCCB 394 439 446# 448 449 501 548 555# 646 696 800 810#
892# 919 920 921 923 926 929# 930 931# 972 973# 1013#
1044 1045# 1065 1148 1157
LL 694 700# 706 707# 708 1122 1124 1194 1196 1202 1205
LLT 397# 398 401 551# 554 680# 708 803# 804 808 1101# 1104
1124 1202
LLT_FIELDS 393 397 549 551 680 695 799 803 1097 1101
LL_ABTI 589 1137 1153 1176 1179 1245
LL_ACDW 1225 1350
LL_BUSY 1008 1208
LL_DSCI 1231
LL_INTM 893
LL_KLOK 719 723 954 1152 1180
LNK 393 401# 415 416 419 420# 421# 433 439 440# 442# 443
464 465 470 471 483 484 485 486 489# 490 491 492
493 497 501 502 516 549 554# 568 569 570 575# 578
581# 582# 589# 598 612 613 614 615 616 617 628 629
630 641 695 708# 713 714 715 719 722 723# 726# 729#
730 799 808# 825 826 827 828 829 832 844 845 846
847 850 851# 863 864 865 866 867 870 882 883 884
885 886 887 893# 909 913 914 917# 918# 919 920 921
924 942# 946 947 948 951 954# 956# 957 962 965# 966#
971# 972 991# 994 995 998# 999 1003# 1008# 1009# 1056 1097
1104# 1124# 1125 1126 1127 1128 1129 1133# 1134 1137 1138 1139
1140 1141 1142 1143 1149 1152# 1153# 1157 1160 1176 1179# 1180#
1183 1202# 1203# 1204# 1207 1208# 1223 1224 1225 1227 1230 1231#
1243 1244 1245 1247 1253 1254 1349 1350 1356 1357 1362 1380
1381 1382
LO_BYTE 1125
LPTR 1270 1289# 1291 1292 1306# 1307 1315 1326
L_FLAGS 918 966
L_INTQ 713 919 1253 1254 1356 1357
L_IQUE 419 470 471 501 502 516 714 1157
L_LLA 957 999 1134
L_OQUE 439 715 921 972 1380 1381 1382
L_PID 956 998 999
L_PIX 493 581 1126 1204
L_RNA 421
L_SIZE 397 551 680 803 1101
L_STATE 415 420 433 442 464 465 483 484 485 490 491 492
568 569 578 582 612 613 614 615 616 628 629 825
826 827 828 844 845 846 850 851 863 864 865 866
882 883 884 885 886 909 913 917 946 947 951 965
971 994 1003 1009 1127 1128 1129 1138 1139 1140 1141 1142
1143 1149 1160 1176 1183 1223 1224 1227 1230 1243 1244 1247
1349 1362
L_STS 489 729 920 924 1133
L_TIMER 440 575 722 726
L_TOP 398 401 554 708 804 808 1104 1124 1202
L_ULA 1125 1203
MAP$ 400 444 553 682 806 1103 1316
MCB_DB_CCB_MOD 243 244 245 246 247 248 330# 363# 519# 650# 770# 1068#
MFBF$S 1296
MTBF$S 448
N$EABL 201+#
N$EABO 193+#
N$EABR 194+#
N$ECLS 199+#
N$ECON 190+#
N$ELST 197+#
N$EMTL 198+#
N$ENUR 200+#
N$EOPN 192+#
N$ERES 189+# 961
N$ERMO 196+#
N$ERUN 202+#
N$ESTE 191+#
N$ETMI 195+#
N$ETRN 203+#
N$FBOM 212+#
N$FCMP 213+#
N$FEOM 211+#
N$FMES 210+#
N$FSEG 209+#
N$HI 185+#
N$LO 204+#
N$SACC 187+# 441
N$SCC 223+#
N$SCD 227+#
N$SCI 224+#
N$SCL 233+#
N$SCN 234+#
N$SCR 220+#
N$SDIC 231+#
N$SDI 230+#
N$SDN 232+#
N$SDRC 222+#
N$SDR 221+#
N$SNC 226+#
N$SNR 225+#
N$SO 219+#
N$SREJ 186+#
N$SRJ 228+#
N$SRUN 229+#
N$SSUC 188+#
NAML 1272 1315# 1326 1327 1333
NM$SUC 1029
NM_EXT 360
NM_NOD 1305
NM_SIG 1034
NODE_ENTITY_LEN 1273
NR$CRW 279 313
NR$DRW 281 312 314
NR$DTW 280 315
NR$INW 282 316
N_GSTA 157+#
N_GSTS 154+#
N_PCLS 156+# 902
N_POPN 155+# 989
N_RCON 172+# 313 412
N_RDAT 174+# 315 461 469
N_RDSC 173+# 314 480
N_RHI 179+# 311 404
N_RINT 175+# 179+ 316 461
N_SCNF 170+# 312 480 489
N_SCNS 171+# 431
N_XABT 162+# 821
N_XACC 159+# 840
N_XBUF 167+# 878 892
N_XCON 158+# 940
N_XDAT 163+# 878
N_XDRQ 166+# 878
N_XDSC 161+# 821
N_XHI 178+# 813
N_XINI 168+# 178+ 1021
N_XINT 164+# 878 893
N_XIRQ 165+# 878
N_XREJ 160+# 598 859
OLD_STATE 1027 1032# 1034
PARANOID 414 482 511 566 610 626 640 763 823 842 861 880
912 944 993 1055
PDVID$ 746
PIV 398# 401 804# 808 957# 999#
PTR 438 447# 448 588 594# 595 596 1268 1282# 1289 1296 1305
1306 1333
QUE_TO_TAIL 1098 1105# 1166# 1379
RAD50 254# 746
RCPWT 311#
S$ABO 328 923 1118
S$ACC 320 1174
S$CNR 564
S$CON 319 1191
S$DAT 609
S$DIS 327 923 1220
S$DRQ 324 1240
S$DSR 625
S$GLN 1265
S$INT 609
S$IRQ 326 1240 1250
S$MRQ 323 1240
S$REJ 321 1174 1179
S$RHI 557
S$SND 322 1347
S$SNI 325 1347 1353
S$XHI 318 1110
SC$_ISC 512 641 764 1056
SC$_LWS 416 486 570 617 630 829 847 867 887 914 948 995
SCDB 330 357 360 363 390 397 398 400 422# 519 545 551
553 650 676 678 680 682 698# 699# 700 703 706# 707
710 746 747# 770 796 803 804 806 955# 1004# 1012# 1030#
1031# 1032 1033# 1034 1039# 1068 1094 1101 1103 1108 1122 1290
1305 1328
SCDSP 1#
SCF_KLOK 955
SCF_OPEN 1012
SCF_STAT 747 1032 1033 1108
SCF_SUCC 699 706 710
SC_FIELDS 678
SC_HADDR 1290
SC_IPORT 422 1004
SC_LADDR 1030 1290
SC_LINKS 398 703 707 804 1122
SC_LLINK 700 706
SC_LLT_ADDR 397 551 680 803 1101
SC_LLT_BIAS 400 553 682 806 1103
SC_SNPIX 360 746 1034 1305
SC_SSIZE 1031 1328
SC_TICK 698 1039
STATUS 395 801 809# 850 924# 925# 926 958 977# 1000 1023 1029#
1042# 1044 1059# 1065 1099 1106# 1109# 1121# 1132# 1160# 1183# 1209#
1212# 1227# 1247# 1362# 1370# 1376
STR 254 255
STSMAP 274 449 809 925
ST_ABI 492 615 825 886
ST_CA 844 850 1140
ST_CID 433 971 1141
ST_CIS 490 946 951 1143
ST_CLI 491 569 616 629 828 845 866 885 913 947 1160 1183
1227 1247 1362
ST_CRA 582 864 1176
ST_CR 420 568 578 863
ST_DIR 614 628 826 846 865 884 1142 1149 1224 1230
ST_DI 465 613 827 883 1139 1244
ST_OFF 483 909 917 965 1009 1127
ST_OI 484 994 1129
ST_OPN 415 485 1003 1128
ST_RUN 442 464 612 851 882 1138 1223 1243 1349
SX$ABW 284 327 328
SX$ACW 285 320
SX$CNW 286 319
SX$DRW 287 323 324
SX$IRW 288 326
SX$RJW 289 321
SX$SDW 290 322
SX$SIW 291 325
S_EABL 489
S_EABO 977 1133
S_EABS 489
S_EERR 1059 1300 1370
S_ELNS 1109
S_ELST 1278
S_ELWS 1160 1183 1227 1247 1362
S_ENOF 1160 1183 1227 1247 1362
S_ENRO 729
S_ENSL 1121
S_ERBO 591
S_ERES 1212
S_EUNN 1209 1311
S_SSUC 578 850 930 1000 1023 1106 1132 1338 1376
S_ST_OFF 747
S_ST_ON 1033 1108
TABLE$ 302 311 318
TMP 1271 1290# 1291 1307 1308 1328# 1329
TRUE 589 699 954 955 1105 1153 1179 1208 1231
XMEWT 318#
$DSPCR 268 302 311 318
$MCB_ENABLE_LONG_TIMER 1038
$MCB_RETURN_DSR 573 979
$NM$ERR_UFO 1042
$SCLL 302#
$SC_DISPATCH_INPUT 516 714
$SC_DISPATCH_OUTPUT 713 715 1254 1357 1382
$SC_DO_CCP 1044
$SC_DO_RCE 452 466 496 501 646 1157
$SC_DO_XCP 449 920 926 930 1065 1278 1300 1311 1338 1376
$SC_DO_XME 598
$SC_GET_DATA_BASE 357 390 545 676 796 1094
$SUB_FIELD 1125