Google
 

Trailing-Edge - PDP-10 Archives - TOPS-20_V6.1_DECnetSrc_7-23-85 - mcb/sc/sc.bli
There is 1 other file named sc.bli in the archive. Click here to see a list.
module SC (			! SC Base-Level Module
		ident = 'X01910'
		) =
begin
!
!                    COPYRIGHT (c) 1980, 1981, 1982
!                    DIGITAL EQUIPMENT CORPORATION
!                        Maynard, Massachusetts
!
!     This software is furnished under a license and may  be  used
!     and copied only in accordance with the terms of such license
!     and with the inclusion of the above copyright notice.   This
!     software  or any other copies thereof may not be provided or
!     otherwise made available to any other person.  No  title  to
!     and ownership of the software is hereby transferred.
!
!     The information  in  this  software  is  subject  to  change
!     without  notice  and should not be construed as a commitment
!     by DIGITAL EQUIPMENT CORPORATION.
!
!     DIGITAL assumes no responsibility for the use or reliability
!     of  its  software  on  equipment  which  is  not supplied by
!     DIGITAL.
!



!++
! FACILITY:	Session Control
!
! ABSTRACT:	This is the identifier module in the MCB implementation
!		of Session Control.  
!
! ENVIRONMENT:	MCB
!
! AUTHOR:	Buren Hoffman		CREATION DATE: 2-Apr-80
!
! MODIFIED BY:
!	X01010	Modified mapping operations in SCDSP and SCSUB.
!	X01020	Corrected linkage misfits for external routines.
!	X01030	Fix in output connect processing, in SX$CNW.
!	X01040	Don't set C_CHN in outgoing connect.
!	X01050	Correct state transition in connect-receive processing.
!	X01060	Modification X10600 in SCDSP.
!	X01070	Fixed mapping bug at entry to FCXCP in SCDSP.
!	X01080	Repaired queue processing bug in SX$CNW.
!	X01090	Fixed dot bug in timeout handler in SCDSP.
!	X01100	Mod X01040 in SCSUB.
!	X01110	Moved port-open code to routine I$OPN in SCSUB.
!	X01120	Fixed logic problem in SCSUB (CONBKI & CONBKO), X01060.
!	X01130	PIX not being properly setup in SCSUB (CONBKI), X01070.
!	X01140	Nonexistent ccb release in fcrce in SCDSP, X01012.
!	X01150	PIX not being setup in SCRES (SX$ACW), X01080.
!	X01160	Changed to new object mapping strategy - this involved
!		changes in this module (SC) and SCSUB.
!	X01170	Connect complete was releasing LDB as CCB in SCDSP, X01130.
!	X01180	Removed obsolete external reference from SCSUB, X01100.
!	X01190	Corrected bug in SCSUB (FINDOB), X01110.
!	X01200	Added global-database-length symbols to this module to
!		allow database integrity checking during process building.
!	X01210	Set PIXs in ccbs in several routines in SCRES, X01090.
!	X01220	Modified connect-received processing to not include count
!		field in optional data returned to user in SCDSP, X01140.
!	X01230	Supplied missing ref's in SCRES, X01100.
!	X01240	Fixed problem where wrong CCB was being sent to LLCRS
!		in SCRES routines, X01110.
!	X01250	X01160 in SCDSP.
!	X01260	X01120 in SCRES.
!	X01270	X01130 in SCRES.
!	X01280	X01120 in SCSUB.
!	X01290	X01170 in SCDSP.
!	X01300	X01140 in SCRES.
!	X01310	X01180 in SCDSP.
!	X01320	X01130 in SCSUB.
!	X01330	X01190 in SCDSP.
!	X01340	X01200 in SCDSP.
!	X01350	X01210 in SCDSP, and X01150 in SCRES.
!	X01360	X01180 in SCRES.
!	X01370	Updated use of signal_stop in all modules
!	X01380	X01190 in SCRES.
!	X01390	X01240 in SCDSP.
!	X01400	Changed to MCB 3.1 process header macro $MCB_PROCESS.
!	X01410	X01150 in SCSUB.
!	X01420	X01000 in SCNM, the new network management, plus
!		mods in SCDSP (X01250) to remove old nm stuff,
!		and changed node search in SCSUB (X01150).
!	X01430	X01260 in SCDSP.
!	X01440	Changes to properly handle aborted data segments.
!		This change involved code in all modules.  Also,
!		some code cleanup was performed.
!	X01450	Use new Comm/Exec to process linkage (.CRDAT for database)
!	X01460	X01290 in SCDSP.
!	X01470	X01030 in SC1.
!	X01480	X01210 in SCRES.
!	X01490	X01300 in SCDSP, and X01040 in SC1.
!	X01500	X01310 in SCDSP, X01220 in SCRES, X01180 in SCSUB, and
!		X01050 in SC1.
!	X01510	Reassembled everything to correct linkage problem.
!	X01520	X01320 in SCDSP, and X01230 in SCRES.
!	X01530	Backed off from using V2.1 compiler - it produces wrong code
!	X01540	X01190 in SCSUB.
!	X01550	X01240 in SCRES.
!	X01560	X01330 in SCDSP, and X01070 in SC1.
!	X01570	X01250 in SCRES.
!	X01580	X01080 in SC1.
!	X01590	Just some minor editing
!	X01600	Changes in SCPRM.
!	X01610	X01080 in SC1.
!	X01620	X01090 in SC1.
!	X01630	X01340 in SCDSP, and X01260 in SCRES.
!	X01640	X01270 in SCRES.
!	X01650	X01350 in SCDSP.
!	X01660	X01100 in SC1.
!	X01670	X01360 in SCDSP.
!	X01680	X01370 in SCDSP.
!	X01690	X01110 in SC1.
!	X01700	X01120 in SC1.
!	X01710	X01380 in SCDSP.
!	X01720	X01390 in SCDSP.
!	X01730	X01210 in SCSUB.
!	X01740	X01400 in SCDSP, and X01280 in SCRES.
!	X01750	Changed back to all library required files.
!	X01760	X01410 in SCDSP.
!	X01770	X01130 in SC1.
!	X01780	X01420 in SCDSP, X01220 in SCSUB, and X01140 in SC1.
!	X01790	X01430 in SCDSP and X01230 in SCSUB.
!	X01800	X01440 in SCDSP.
!	X01810	X01450 in SCDSP, X01290 in SCRES, X01230 in SCSUB,
!		and X01150 in SC1.
!	X01820	X01160 in SC1.
!	X01830	X01460 in SCDSP.
!	X01840	X01300 in SCRES.
!	X01850	X01470 in SCDSP, and X01170 in SC1.
!	x01860	x01480 in SCDSP, and x01310 in SCRES.
!	x01870	x01180 in SC1.
!       x01880  x01320 in SCRES, x01200 in SC1, and SCPRM v21.
!	X01890	X01330 IN SCRES and x01490 in SCDSP
!	x01900	x01250 in SCSUB.	
!       x01910  x01500 in SCDSP.
!
!
!--
!
! REQUIRED FILES
!
library 'SCPRM';		! Our parameter and macro definitions
library 'MCB:MCBLIB';
library 'MCB:XPORTX';

%if %bliss (bliss36) %then require 'BED:NETPAR'; %fi

!
! TABLE OF CONTENTS:
!

!
! MACROS:
!
%if %bliss (bliss36)
%then
    macro
	LLT_PRESET (LENGTH) [] =
	    [%count, L_LLA] = %count,
	    [%count, L_I_TAIL] = LLT [%count, L_I_HEAD],
	    [%count, L_O_TAIL] = LLT [%count, L_O_HEAD],
	    [%count, L_N_TAIL] = LLT [%count, L_N_HEAD]
	    %if %count lss LENGTH-1
	    %then ,LLT_PRESET (LENGTH)
	    %fi %,

	NMT_PRESET (LENGTH) [] =
	    [%count, NMT_ADDR] = %count + 1
	    %if %count lss LENGTH-1
	    %then ,NMT_PRESET (LENGTH)
	    %fi %;
%fi

!
! EQUATED SYMBOLS:
!
global literal
    %name ('SC.SZ')  = SC_SIZE ^1,
    %name ('LLT.SZ') = L_SIZE ^1,
    %name ('NMT.SZ') = NMT_SIZE ^1,
    %name ('OTN.SZ') = OTN_SIZE ^1,
    %name ('ONP.SZ') = ONP_SIZE ^1;

!
! OWN STORAGE:
!
%if %bliss (bliss36)
%then
    own
	OTN: blockvector [1, OTN_SIZE] field (OTN_FIELDS)
	    preset (
		[0, OTN_TYPE] = 7,
		[0, OTN_NLEN] = 6),

	ONP: blockvector [1, ONP_SIZE] field (ONP_FIELDS)
	    preset (
		[0, ONP_NLEN] = 6,
		[0, ONP_PROC] = %rad50_10 'USR'),

	LLT: blockvector [NS_TPT, L_SIZE] field (LLT_FIELDS)
	    preset (LLT_PRESET (NS_TPT)),

	RMT: vector [(NS_TPT + 3) / 4],

	NMT: blockvector [(XP_NN + XP_NLN), NMT_SIZE] field (NMT_FIELDS)
	    preset (NMT_PRESET (XP_NN + XP_NLN));

    global
	SC$DB: block [SC_SIZE] field (SC_FIELDS)
	    preset (
	    [SCF_STAT] = 1,
	    [SC_RPORT] = SC_OPN,
	    [SC_LINKS] = NS_TPT,
	    [SC_NODES] = XP_NN,
	    [SC_LOOPS] = XP_NLN,
	    [SC_ITIME] = SC_ITM,
	    [SC_OTIME] = SC_OTM,
	    [SC_OTN_LEN] = 1,
	    [SC_ONP_LEN] = 1,
	    [SC_OTN_ADDR] = OTN,
	    [SC_ONP_ADDR] = ONP,
	    [SC_LLT_ADDR] = LLT,
	    [SC_NMT_ADDR] = NMT);
%fi

!
! EXTERNAL REFERENCES:
!
external
    $SCLL;			! Session Control dispatch table

$MCB_PROCESS (
    NAME = SC,
    LLC_DISPATCH = $SCLL)	! Make the process header

end
eludom