Google
 

Trailing-Edge - PDP-10 Archives - BB-M081Q-SM - monitor-sources/scampi.mac
There are 20 other files named scampi.mac in the archive. Click here to see a list.
; UPD ID= 8612, RIP:<7.MONITOR>SCAMPI.MAC.10,  11-Feb-88 18:27:46 by GSCOTT
;TCO 7.1218 - Update copyright date.
; UPD ID= 8443, RIP:<7.MONITOR>SCAMPI.MAC.9,   4-Feb-88 16:30:24 by GSCOTT
;TCO 7.1210 - Set SCATMO normally not dumpable.
; UPD ID= 151, RIP:<7.MONITOR>SCAMPI.MAC.8,  13-Oct-87 14:25:56 by RASPUZZI
;TCO 7.1069 - Make SC.BR1 use BLTUM1 instead of BLTUM. So shoot me.
; UPD ID= 120, RIP:<7.MONITOR>SCAMPI.MAC.6,  21-Sep-87 15:51:02 by RASPUZZI
;TCO 7.1060 - Add routine SC.BRK for funsies.
; UPD ID= 96, RIP:<7.MONITOR>SCAMPI.MAC.5,   2-Sep-87 14:21:21 by LOMARTIRE
;TCO 7.1048 - Make return address for buffer allocation be in MSEC1
; UPD ID= 88, RIP:<7.MONITOR>SCAMPI.MAC.4,  21-Aug-87 17:26:19 by MCCOLLUM
;TCO 7.1043 - SCSDEQ is now in XCDSEC. Fix up calls to it.
; UPD ID= 76, RIP:<7.MONITOR>SCAMPI.MAC.3,  12-Aug-87 14:49:44 by MCCOLLUM
;TCO 7.1037 - Move code to XCDSEC. Change routine names: SC.CRM->SC.CMS,
; SC.REQ->SC.RQD, SC.RCB->SC.DAB, SC.ACB->SC.AIB, SC.CSP->SC.SPL,
; SC.ALM->SC.MAL, and SC.POF->SC.PFF
; *** Edit 7211 to SCAMPI.MAC by GRANT on 18-Dec-85
; Add CI counters for WATCH 
; UPD ID= 2178, SNARK:<6.1.MONITOR>SCAMPI.MAC.170,   5-Jun-85 10:58:31 by MCCOLLUM
;TCO 6.1.1406  - Update copyright notice.
; UPD ID= 2105, SNARK:<6.1.MONITOR>SCAMPI.MAC.169,   3-Jun-85 15:58:20 by LOMARTIRE
;TCO 6.1.1374 - Add routine MXCIND to return the max nodes ever on CI
; UPD ID= 1856, SNARK:<6.1.MONITOR>SCAMPI.MAC.168,  30-Apr-85 15:31:22 by MCCOLLUM
;TCO 6.1.1238 - Fix BUG. documentation
; UPD ID= 1718, SNARK:<6.1.MONITOR>SCAMPI.MAC.167,   5-Apr-85 20:17:46 by GRANT
;TCO 6.1.1309 - Make sure SSN.XT always RETs when the virtual circuit is open
; UPD ID= 1675, SNARK:<6.1.MONITOR>SCAMPI.MAC.166,  25-Mar-85 08:26:11 by GRANT
;TCO 6.1.1284 - Use CIBUF instead of DDCFSF.  Set CIREP when reaping is
;needed.  In SC.RAP, remove timing calculations.
; UPD ID= 1251, SNARK:<6.1.MONITOR>SCAMPI.MAC.165,   1-Jan-85 15:21:46 by PAETZOLD
;More TCO 6.1.1097 - Make SC.IDL use SAVEP again.
; UPD ID= 1241, SNARK:<6.1.MONITOR>SCAMPI.MAC.164,  28-Dec-84 09:36:02 by GRANT
;TCO 6.1.1097 - In SC.IDL, add check for CITIMR and change SAVEP to SAVEAC <P4>.
; UPD ID= 1203, SNARK:<6.1.MONITOR>SCAMPI.MAC.163,  13-Dec-84 07:05:35 by GRANT
;TCO - 6.1.1086 - Remove SCACVC BUGINF (PHYKLP now does KLPCVC);  make SCATMO
;an INF rather than CHK.
; UPD ID= 1063, SNARK:<6.1.MONITOR>SCAMPI.MAC.162,  13-Nov-84 09:07:34 by LOMARTIRE
;Replace .MPxxx priority symbols with KLPHI, KLPMED, and KLPDRG
; UPD ID= 951, SNARK:<6.1.MONITOR>SCAMPI.MAC.161,   5-Nov-84 14:48:35 by LOMARTIRE
;New table of contents
; UPD ID= 5046, SNARK:<6.MONITOR>SCAMPI.MAC.160,  31-Oct-84 15:47:06 by LOMARTIRE
;Fix typos in ring buffer usage description
; UPD ID= 4997, SNARK:<6.MONITOR>SCAMPI.MAC.159,  24-Oct-84 20:01:53 by GRANT
;In SC.RCD, return destination node name
; UPD ID= 4890, SNARK:<6.MONITOR>SCAMPI.MAC.158,   1-Oct-84 08:59:03 by HAUDEL
;Add an OKSKED at SCM.ER.
; UPD ID= 4831, SNARK:<6.MONITOR>SCAMPI.MAC.157,  17-Sep-84 11:21:03 by PURRETTA
;Update copyright notice
; UPD ID= 4750, SNARK:<6.MONITOR>SCAMPI.MAC.156,  24-Aug-84 15:50:46 by HALL
;In connect_request and accept_request, force status field to be zero
; UPD ID= 4727, SNARK:<6.MONITOR>SCAMPI.MAC.155,  22-Aug-84 10:47:39 by LOMARTIRE
;Fix bug where FQCNT and DFQCNT can go negative.
;Comment ring buffer usage.
;Fix loop comparison at SBB.CL.
;Rework ring buffer at unlock coroutine SC.FN1.
;
; UPD ID= 4656, SNARK:<6.MONITOR>SCAMPI.MAC.154,   7-Aug-84 16:13:31 by CDUNN
;Remove SC.JSY. Equivalent functionality now in SCSJSY.
;
; UPD ID= 4649, SNARK:<6.MONITOR>SCAMPI.MAC.153,   7-Aug-84 10:24:58 by CDUNN
;Fix .SSPBC callback so that both node number and CID are not returned in T2.
;The CID will be returned in T2 and the node number in T3.
;If there is to be no CID returned, T2 will contain -1.
;
; UPD ID= 4635, SNARK:<6.MONITOR>SCAMPI.MAC.152,  31-Jul-84 08:40:59 by LOMARTIRE
;SC.RRR - don't complain about non-zero requeue credit if v.c. was closed
;CLean up BUGxxxs
;get rid of JSR BUGHLT
; UPD ID= 4603, SNARK:<6.MONITOR>SCAMPI.MAC.151,  27-Jul-84 09:08:50 by LOMARTIRE
;Add buffer manipulation as a default for RNGSW
;
; UPD ID= 4602, SNARK:<6.MONITOR>SCAMPI.MAC.150,  27-Jul-84 08:52:28 by LOMARTIRE
;Replace missing calls to RG.PQM.
;Report SCAMCR BUGCHK sooner and add some additional optional data
;Add SCAOBI BUGCHK to report online interrupt before init done.
;Add routines SC.TMQ and SC.TDQ and calls to detect free queue inconsistency.
;
; UPD ID= 4591, SNARK:<6.MONITOR>SCAMPI.MAC.149,  26-Jul-84 22:25:09 by CDUNN
;Change SC.OFL/SC.ERR to loop over NOTTAB and notify on system offline/error.
;Also fix the use of NOTTAB so filling the last entry does not send monitor 
;into left field.
;
; UPD ID= 4561, SNARK:<6.MONITOR>SCAMPI.MAC.148,  18-Jul-84 18:56:23 by HALL
;Cleanup (no functional change)
;SC.DIS - don't mark listener reapable. The JSYS bit would already have
;been cleared, so SC.PTC will have set the reap bit
; UPD ID= 4499, SNARK:<6.MONITOR>SCAMPI.MAC.147,  12-Jul-84 19:55:04 by LOMARTIRE
;Add .SSDDG callback (dropped datagram).
;Rearrange AC storage for .SSDGR and .SSMGR callbacks.
;Remove all maintenance data code.
;Remove .SSNWO since PHYKLP only calls SC.ERR when node goes away.
;Remove SC.P2S and SC.S2P since they are no longer needed.
;
; UPD ID= 4484, SNARK:<6.MONITOR>SCAMPI.MAC.146,  12-Jul-84 14:52:15 by HALL
;Make it possible to connect to VMS. WHen we initiate a connection, they
;send us a connect_response with zero as the source CID. We don't get the
;real CID until they send the accept_request. We had always copied the
;CID from the connect_response, and it worked with the HSC and other TOPS-20
;systems. For now, at least, we will copy the CID from the accept_request.
;If this creates a problem with the HSC, we'll have to find another
;solution.
; UPD ID= 4451, SNARK:<6.MONITOR>SCAMPI.MAC.145,  12-Jul-84 08:25:53 by HALL
;SC.SNM wasn't clearing the FLINK word when returning buffer to port
; UPD ID= 4450, SNARK:<6.MONITOR>SCAMPI.MAC.144,  11-Jul-84 14:16:47 by HALL
;Table of contents
; UPD ID= 4449, SNARK:<6.MONITOR>SCAMPI.MAC.143,  11-Jul-84 10:46:52 by HALL
;Rearrange the routines. No intended change in code.
; UPD ID= 4438, SNARK:<6.MONITOR>SCAMPI.MAC.142,   5-Jul-84 16:40:23 by HALL
;Start cleaning up BUGxxx's
; UPD ID= 4426, SNARK:<6.MONITOR>SCAMPI.MAC.141,   3-Jul-84 14:27:40 by LOMARTIRE
;Fix all references to removed DEFSTRs and obsolete fields in c.b. and s.b.
;Change SC.RCD to no longer acquire free space but to use address passed.
;Also, make SC.RCD return the intended data correctly.
;Minor changes to SC.SOA alternate code.
;
; UPD ID= 4422, SNARK:<6.MONITOR>SCAMPI.MAC.140,   3-Jul-84 11:34:24 by HALL
;SC.ULK - rearrange a little, shouldn't change action
;SC.INC - close v.c. on unexpected response
;SC.CRS - call SC.GCB
;SIN.ER - comments about lost packet
;Remove SC.MDC
;Fix all callers of OPENVC and CLOSVC to expect +1 return only
;SC.OFL - get rid of unused code, and clean up comments
;SC.NOD - use T2 and avoid saving P4
;SC.CMG - Change HLT to CHK, and return failure
;SC.CRD - if can't get buffer, don't alter count
; UPD ID= 4421, SNARK:<6.MONITOR>SCAMPI.MAC.139,   3-Jul-84 11:22:23 by HALL
;SC.SOA - call the sysap for any nodes that are already online
; UPD ID= 4417, SNARK:<6.MONITOR>SCAMPI.MAC.137,   2-Jul-84 11:37:24 by LOMARTIRE
;Make sure SC.NOD does not destroy T3 and T4 as a result of the CALL SC.CAL
;
; UPD ID= 4414, SNARK:<6.MONITOR>SCAMPI.MAC.136,   2-Jul-84 08:40:57 by HAUDEL
;Change SC.UMP code from BLCAL UMAP to JRST UMAP.
;
; UPD ID= 4412, SNARK:<6.MONITOR>SCAMPI.MAC.135,   2-Jul-84 07:17:07 by GRANT
;Remove special code for OPENVC
;
; UPD ID= 4393, SNARK:<6.MONITOR>SCAMPI.MAC.134,  27-Jun-84 13:48:22 by LOMARTIRE
;Do not destroy temporary ACs when recording interlocks in ring buffer.
;
; UPD ID= 4382, SNARK:<6.MONITOR>SCAMPI.MAC.133,  25-Jun-84 09:20:50 by LOMARTIRE
;Various ring buffer work - 
;  Add feature data to RG.BFM and RG.PQM and place calls to these routines
;  Add a new jacket routine, RG.ITL, to record interlocks
;  
; UPD ID= 4379, SNARK:<6.MONITOR>SCAMPI.MAC.132,  22-Jun-84 17:27:58 by HALL
;SC.FN1 - don't decrement count of locked c.b's for this s.b., because
;	we're doing it in SC.ULK
; UPD ID= 4361, SNARK:<6.MONITOR>SCAMPI.MAC.131,  19-Jun-84 16:06:26 by HALL
;SC.DIS - honor, but don't lock. Use CIOFF for protection against incoming
;	connection management events
;SC.SDG - if don't want response, count buffer as queued for input
;	- if error, put buffer on port's queue
;SC.SMG - move error-handling code inline, handle previously-incremented
;	receive credit if we didn't want the buffer back
;SC.CRD - BUG if UNLKDG fails
;Alternate code for SC.SOA to provide immediate callback - not executed yet
;SC.ALC - check counts racefree
;SC.RAP - protect don't-care list from changes
;SC.CDT - clear .CBPND if decide not to send
;SC.CVC - get rid of old code that tried to open v.c., and prepare for
;	CLOSVC's never failing
;SC.RCB - bitch if can't get buffers
;Get rid of SC.VCM
;SC.ONL - get rid of literal
;Remove repeat 0 around openvc stuff so we can test it, but jump
;around it by default: SC.ERR, SC.FN1, SC.ULK
;
; UPD ID= 4346, SNARK:<6.MONITOR>SCAMPI.MAC.130,  15-Jun-84 13:50:56 by LOMARTIRE
;Record callbacks in ring buffer before callbacks occur
;Convert remaining references to send credit to use .CBSCD
;Lock the c.b. and verify it at SC.NOD and SC.DCI
;Change SC.CSP to use address passed to store data instead of obtaining space.
;
; UPD ID= 4328, SNARK:<6.MONITOR>SCAMPI.MAC.129,  13-Jun-84 12:09:45 by HALL
;SC.RWQ - don't unlock what you haven't locked
;SC.ULK - test for group of bits before testing each individually
;Add (under repeat 0) code for controlling when to open a v.c.
;Complain if SC.LCB finds a c.b.'s FLINK or BLINK non-zero.
;
;Get rid of special entry point in SC.CVC that returns a buffer. Rename
;SC.VC1 to be SC.CVC and fix the callers. Remove NOPs after some calls.
;
;Make changes to count of datagram buffers be race-free. Affected
;routines: SC.CRD, SC.RCB, SC.ADG, SLC.DC
; UPD ID= 4318, SNARK:<6.MONITOR>SCAMPI.MAC.128,  11-Jun-84 10:46:18 by LOMARTIRE
;Fix SC.CSP to not return pointers to the connect block as it may disappear
;
; UPD ID= 4313, SNARK:<6.MONITOR>SCAMPI.MAC.127,   9-Jun-84 15:55:49 by HALL
;Remove old code
; UPD ID= 4312, SNARK:<6.MONITOR>SCAMPI.MAC.126,   9-Jun-84 14:42:01 by HALL
;Make SC.DIS be CIOFF a little longer, to keep out incoming connection
;management requests when sysap does disconnect at odd times
; UPD ID= 4310, SNARK:<6.MONITOR>SCAMPI.MAC.125,   8-Jun-84 13:27:38 by HALL
;Add connection block locks. Create lock, honor, and unlock routines.
;Honor the lock at SC.DRQ (incoming disconnect_request), SC.DIS (sysap
;wants to disconnect), SC.ERR (node offline), SC.SNM (sending connection
;management request). Lock the lock wherever a routine cannot tolerate
;disappearance of the c.b., or change in state.
;
;Most routines lock the c.b. by calling SC.CAL to verify and lock.
;SC.CON and SC.LIS lock the block directly. All unlock by calling SC.ULK.
;
;SC.CDT no longer calls SC.SNM. Its callers do it so that they can
;unlock the c.b. first. Affected routines:
;	SC.RMG, SC.CRM, SC.IDL
;
;Make subroutines to manipulate the queues of c.b.'s -- the system block
;list and the don't-care list.
;	SC.RDQ - remove entry from don't-care queue. Called by SC.RCB and
;		SC.SCM
;	SC.RSQ - remove entry from system block queue. Called by SC.RCB and
;		SC.LCB
;
;Related changes:
;SC.RCB - When can't get a buffer, don't keep trying
;	 - Move JSYS-only code into a subroutine
;SC.RWQ - check and lock c.b., and move entry if it's locked
;SC.ACB - don't initialize the lock word. Let it be 0
;SC.RQS- don't do CIOFF
;Move reap sanity checks into a subroutine, SC.RRR, and complain if lock
;	count isn't zero.
;Make SC.CAL call the lock routine
;SC.DEF - not a bug if JFFO doesn't find bits set
;SC.IDL - use NOSKED to protect list of c.b.'s. Call SC.SNM if needed
;SC.CDT - don't do CIOFF, don't call SC.SNM
;SC.SNd and SC.REQ - combine them; get send credit to be race-free
;Clean up references to SBOBB and .CBSCD
;SC.ERR - clear address of outbound buffer with EXCH
;	- clear requeue credit
;
; UPD ID= 4293, SNARK:<6.MONITOR>SCAMPI.MAC.124,   4-Jun-84 13:46:47 by HAUDEL
;Change SC.MAP - Now only one argument. Code JRSTs to MAPBUF.
; UPD ID= 4285, SNARK:<6.MONITOR>SCAMPI.MAC.123,   1-Jun-84 12:21:57 by LOMARTIRE
;Make the following changes for SBI to node number conversion:
;  Make callers of following routines supply node number instead of SBI:
;	  -  SC.CON, SC.LIS, SC.SMD, SC.RMD, SC.RCD, SC.RST, SC.STA, SC.ONL, 
;         -  SC.ERR, SC.OFL
;  New loop of SBLIST at SSC.SL - use C%SBLL instead of assuming dense
;  Put node number, not SBI in CBDNOD at SSC.LC and SSC.FX
;  LOAD SBDPA not SBSBI at SSN.SB and SBD.DN
;  At SC.ONL, put node number in SBDPA and store SS.NOD in T2 for .SSNCO
;  STOR CBDNOD in SC.CON and SC.LIS
;  LOAD CBDNOD in SC.CSP and store in CDNOD
;  LOAD CDBNOD in SSC.CL
;  Replace all references to SS.SBI with SS.NOD
;  Remove routine SC.SBI
;
; UPD ID= 4260, SNARK:<6.MONITOR>SCAMPI.MAC.122,  30-May-84 16:04:21 by HALL
;Restructure sending of connection management requests to avoid
;races and prepare for c.b. locks. Create SC.RWQ to remove entry from
;system block work queue, and call it from SC.SNM and SC.DEF. Change
;SC.DEF so that it removes an entry from the queue while creating
;its buffers, and then returns it to the queue. Use CIOFF to interlock
;changes to the queue. Do buffer creation for both routines in a new
;routine, SC.BUF.
;
;Add new entry point to SC.CSC, which will lock the c.b. Change
;callers now even though code doesn't exist. Interrupt level routines
;assume that c.b. will remain valid.
;
;Make SC.LCB check for open v.c. and return failure. Fix callers to
;expect that
;
;Miscellaneous changes:
;SC.SNM - bugchk if b.s. is zero
;SC.RQS - assume b.s. of zero is a bug
;SC.SND and SC.REQ - verify connect ID
;SC.CRM - Move CION to precede call to SC.CDT
;SC.ACC - don't return argument to caller
;SC.ERR - don't clear .CBNWQ
;RC.RAP - don't check flink for work queue
; UPD ID= 4247, SNARK:<6.MONITOR>SCAMPI.MAC.121,  25-May-84 14:19:58 by HALL
;Rearrange connection management routines to facilitate c.b. locks.
;Make SC.SCA call SC.AWQ, and change all callers of SC.SBS and SC.SNM.
;Make them call SC.SCA and SC.SNM, and allow them to unlock the c.b.
;between the two. Fix interrupt routines to avoid calling SC.SNM until
;the buffer has been returned.
;Affected routines: SC.CON, SC.LIS, SC.ACC, SC.REJ, SC.DIS, SC.CDT, SC.ARS,
;	SC.DRQ
;
;Fix handling of canceled message buffers to handle interactions with
;other credit functions. It was possible to get confused and leave buffers
;queued to the port in excess of the current receive credit.
;Maintain return_credit, and dequeue one buffer for each time it is incremented.
;New routine, SC.GRB, does the dequeueing
;Affected routines: SC.RMG, SC.CMG, SC.CRS, SC.SMG
;SC.RCB - include return credit in count of buffers to be dequeued
;
;Avoid conflict between 2 contexts that need to send credit_request.
;Maintain interlock word, .CBPND, that indicates when a connection is
;in the process of sending a credit_request. Leave it locked until the
;credit_response is received. If we need to send another credit_request,
;we'll do it then.
;Affected routines: SC.CDT, SC.CRS
;
;Miscellaneous fixes:
;SC.IDL - call into SC.CDT to send credit_request
;SC.SMG - change send credit in one operation
;	- handle receive credit better, including return credit
;SC.SNM - call SC.PTC if block state is zero
;SC.PON - include check for CION before the first CIOFF
;SC.CRD - don't load P4 until we need it
;SC.RQS - Don't clear block state until buffer has been sent
; UPD ID= 4206, SNARK:<6.MONITOR>SCAMPI.MAC.120,  10-May-84 20:33:38 by HALL
;Typo in sanity check in SC.RCB
; UPD ID= 4202, SNARK:<6.MONITOR>SCAMPI.MAC.119,   9-May-84 15:40:53 by LOMARTIRE
;Add temporary check for CBNPO going negative
; UPD ID= 4197, SNARK:<6.MONITOR>SCAMPI.MAC.118,   9-May-84 13:17:52 by LOMARTIRE
;Remove SC.ABT since it is no longer needed - use SC.DIS and give reason code
;Replace all .UCxxx codes with .CMNxx reason codes.
;Remove .RJNOM and use the reason code passed in the packet instead.
;Update table of contents.
;
; UPD ID= 4179, SNARK:<6.MONITOR>SCAMPI.MAC.117,   8-May-84 10:11:20 by HALL
;SC.CRD - return immediately if count is zero
;	- change SOSG to SOSLE so that we continue until count is zero
;SC.CRM - take the buffers if we don't need to send credit_request
;SC.RCB - bitch if requeue credit is non-zero
;	- Remove unnecessary saveac of P3
;SCL.MC and SCL.DC - don't save Q1 since we don't use it
; UPD ID= 4174, SNARK:<6.MONITOR>SCAMPI.MAC.116,   2-May-84 18:33:41 by HALL
;SC.CON and SC.LIS - don't store CBMNRC since it will be overwritten
;SC.CRD and SC.CRM - verify CID
;Convert receive credit away from defstrs
;SC.CRM - don't take buffers right away
;	 - decrement pending receive credit by full amount of request
;	 - send credit_request
;SC.DMA - ignore if v.c. is closed
; UPD ID= 4171, SNARK:<6.MONITOR>SCAMPI.MAC.115,   2-May-84 11:07:50 by LOMARTIRE
;Recycle CIDTAB.  Add routine SC.FUB to return next uniqueness bits.
;Add CIDRFL and UNQRFL to count number of recycles done.
;Remove BDQHD and BDQTL since they are no longer used.
;Rearrange SC.ACB to create CID first then attempt to get CB buffer.
;
; UPD ID= 4168, SNARK:<6.MONITOR>SCAMPI.MAC.114,   1-May-84 19:12:59 by HALL
;Rearrange
; UPD ID= 4164, SNARK:<6.MONITOR>SCAMPI.MAC.113,   1-May-84 13:59:46 by LOMARTIRE
;Make SC.INT return +1 always.
;Add call to SC.SCS to record .SSCIA callback in ring buffer.
;
; UPD ID= 4161, SNARK:<6.MONITOR>SCAMPI.MAC.112,   1-May-84 10:23:57 by HALL
;Replace SC.TC with SC.CDT. Provide three entry points for the three
;	occasions for sending credit_requests.
;SC.CRQ - maintain sign of credit field in incoming packet
;	- compute returned value correctly when incoming value is negative
;	- return 0 if send credit is already below minimum and incoming
;		value is negative
;	- give credit-available callback only if incoming credit is positive
;SC.CRS - maintain sign of credit field in incoming packet
;	- update receive credit, not pending receive credit
;	- send credit_request if needed
;	- remove .SSCIA callback
; UPD ID= 4136, SNARK:<6.MONITOR>SCAMPI.MAC.111,  25-Apr-84 13:03:33 by LOMARTIRE
;Replace all .SCFxx error codes with equilvalent SCSxxx error codes.
;Replace .SCFNE code with SCSTBF at SAC.EH since this is the desired code.
;Make RG.SCS and RG.PKT calling comments accurate.
;
; UPD ID= 4132, SNARK:<6.MONITOR>SCAMPI.MAC.110,  25-Apr-84 11:11:54 by HALL
;SC.ERR - set CBFCVC in connection block for debugging purposes only
;SC.SMG - Check the connect ID
;	- Put credit in packet only if positive
;	- Increment SNDTAB only if we are successful
;	- Increment send credit if we can't send
;SC.SDG - check the connect ID
;	- Increment SNDTAB
; UPD ID= 4117, SNARK:<6.MONITOR>SCAMPI.MAC.109,  24-Apr-84 13:01:52 by HALL
;Handle credit in DMA -
;	SC.SND and SC.REQ - set CBFNNC if fail due to lack of credit
;			- allow sending if credit is 1
;	SC.DMA - give callback if sysap is waiting for credit
;in SC.RIN make comment match code
;Allow sending if credit is 1
; UPD ID= 4102, SNARK:<6.MONITOR>SCAMPI.MAC.108,  18-Apr-84 20:00:33 by HALL
;Don't increment RECTAB at SC.INC. It was already done at SC.INT.
; UPD ID= 4097, SNARK:<6.MONITOR>SCAMPI.MAC.107,  18-Apr-84 17:33:27 by HALL
;Make arrival of credit_request and credit_response go through SC.INC
;Add necessary data to TABLEK
; UPD ID= 4057, SNARK:<6.MONITOR>SCAMPI.MAC.106,  10-Apr-84 13:23:36 by HALL
;New SC.ADG and SC.AMG
;	Common code wherever possible
;	Handle incoming packet when v.c. is closed. Previously, if v.c. was
;		closed while packet was on response queue, receipt of packet
;		would lead to closing the v.c. again
;	Don't return failure to PHYKLP
;	Change SOSG on CBDGR to SOSGE to allow receipt of datagram when
;		one buffer queued
; 	SC.ADG was looking in c.b. for address of system block when c.b.
;		didn't exist (SC.CSC had failed)
;	SC.AMG was returning buffer to SCA but not decrementing receive
;		credit if in middle of disconnect sequence
;	If credit field is non-zero in application message, and sysap failed
;		to send due to lack of credit, give callback
; UPD ID= 4055, SNARK:<6.MONITOR>SCAMPI.MAC.105,   6-Apr-84 11:40:10 by HALL
;SC.CRQ - Clear CBFNNC before calling the sysap
; UPD ID= 4043, SNARK:<6.MONITOR>SCAMPI.MAC.104,   3-Apr-84 14:46:00 by LOMARTIRE
;Test for recording of ring buffer events before SAVETs and STKVARs in
;the ring buffer jacket routines.
;Change the name of a few BUGxxx's to be more descriptive.
;Add SCAPCC BUGCHK for when SC.PTC called and the connect state not closed.
;Clean up labels in SC.SNM and SC.DEF
;
; UPD ID= 4041, SNARK:<6.MONITOR>SCAMPI.MAC.103,   3-Apr-84 10:29:17 by HALL
;SC.CSC - return error code. Change callers not to make up their own.
;SC.RDG and SC.RMG - recode to fix bugs and make routines match
; UPD ID= 4040, SNARK:<6.MONITOR>SCAMPI.MAC.102,   3-Apr-84 09:06:56 by HALL
;Remove all references to ALMTIM. Instead, AOS DDCFSF to get DDMP fork running
;	Affected routines: SC.ONL, SC.ALD, SC.ABF
; UPD ID= 4039, SNARK:<6.MONITOR>SCAMPI.MAC.101,   3-Apr-84 07:20:13 by HALL
;In SC.DIS, if closing a listener, force connection state to closed. SC.PTC's
;	sanity check was objecting.
; UPD ID= 4035, SNARK:<6.MONITOR>SCAMPI.MAC.100,   1-Apr-84 17:58:47 by GLINDELL
;Add ENDBS. to SC.S2P and SC.P2S
;
; UPD ID= 4034, SNARK:<6.MONITOR>SCAMPI.MAC.99,   1-Apr-84 14:22:28 by HALL
;SC.INC - call SC.VC1 instead of SC.CVC. Buffer was being returned to
;port twice
;
; UPD ID= 4026, SNARK:<6.MONITOR>SCAMPI.MAC.98,  31-Mar-84 17:37:13 by GLINDELL
;Add SC.S2P and SC.P2S to translate between system block index and port number
;
; UPD ID= 3985, SNARK:<6.MONITOR>SCAMPI.MAC.97,  27-Mar-84 14:14:46 by LOMARTIRE
;Make the default for RNGSW record all packet transactions
;
; UPD ID= 3973, SNARK:<6.MONITOR>SCAMPI.MAC.96,  25-Mar-84 10:39:42 by HALL
;Major changes to the way connections are terminated.
;	1. SC.DIS succeeds in any state. If the state is other than "open",
;the connection is marked "closed" but protocol continues until both sides
;agree.
;	2. SC.ABT will soon go away. At the moment, it calls SC.DIS
;	3. The "abort" bit no longer exists.
;	4. A sysap is called only when a connection terminates. If the
;other side initiates a disconnection on an open connection, the sysap
;is called when the disconnect_req arrives, not when the disconnect_rsp
;arrives.
;	5. In general, bits are no longer used to indicate the state of a
;connection. If the state is "closed", the sysap isn't interested in it
;any more.
;	6. A new bit, CBFPTC, indicates that the protocol is complete; that
;is, we don't expect to exchange any more messages with the other node.
;
;Specific changes:
;
;ModifY table K to allow any incoming packet when the connection
;	state is closed. 
;Modify table Y to leave state unchanged when connect_req is sent
;New routine, SC.PTC to declare protocol complete. Called as follows:
;	SC.DIS - disconnect on listener
;	SC.ERR - node went offline
;	SC.ORS - connect_rsp no match
;	SC.ARQ - accept_req when our side has disconnected
;	SC.ARS - accept_rsp no match
;	SC.RRQ - reject_req
;	SC.RRS - reject_rsp
;	SC.DRQ - disconnect_req when new state is closed
;	SC.DRS - disconnect_rsp when new state is closed
;Don't set abort bit. Affected routines: SC.ABT,SC.ERR,SC.ORS,SC.DRQ, SC.DRS
;Don't test abort bit. Affected routines: SC.RAP, SC.SCM,SC.IDL, SC.ERR,
;	SC.DMA, SC.ORS, SC.ARQ, SC.ARS, SC.RRQ, SC.RRS, SC.INC,SC.SNM, SC.DEF
;SC.DIS - set reap bit if connection state was listen
;SC.ABT - always call SC.DIS, don't do ring buffer
;SC.RAP - no longer check abort bit; do check for work queue FLINk and
;queued buffers, and postpone reaping if non-zero. If this happens repeatedly
;complain.
;SC.ACB - initialize connection state to closed
;SC.SCM - don't check abort and reap bits. Do check for listen state
;	(don't care code wasn't doing that. WHY???).
;SC.ERR - notify sysap only if state is not closed. Don't check abort or
;	reap bits. Don't set CBFCVC. Do call SC.PTC.
;	 - clear .CBNWQ when closing connection
;SC.IDL - get rid of check on abort and reap bits, combine other checks
;	Send only if state is open
;SC.ORS - handle no-match when already closed
;SC.ARQ - set block state to send disconnect_req rather than calling SC.DIS
;	- when sending no match, use standard routine.
;	- store reason code in accept_response if no match
;SC.ARS - handle no match when already closed
;SC.RRQ - don't call sysap if already closed
;SC.DRQ - Notify sysap when remote side requests disconnect first, not at the
;	end of the sequence.
;	 - put reason in Ac 3 before .SSRID callback
;SC.DRS - never call sysap. Declare protocol complete if new state is closed
;SC.SNM - If block state is 0 or reap bit is on, don't send request
;SC.INC - don't check CBFCVC. It no longer exists.
;SC.RQS - if block state is zero, assume v.c. is closed, and return+1
;Table X - new state for SC.CON is .CSCSE. This disagrees with corporate
;spec, which says to set the state only after the message is sent. It allows
;us to use a connection state of "closed" to mean that the sysap is not
;expecting to hear about this connection again.
;
;Implementation of state machine for requesting connection management
;functions. Routines call SC.OUT, which references table X, to check
;legality and get new connection and block states.
;Affected routines:
;	SC.CON,SC.LIS,SC.ACC,SC.REJ,SC.DIS
;
;New approach to handling incoming packets if v.c. is already closed.
;We assume that the packet that caused the closure was important, and therefore
;we can't trust anything that comes after it. For now, only SC.INC implements
;this change, but all incoming packets should eventually be thrown away without
;interpretation.
;SC.INC - if v.c. state is closed, return +1.
;
;Miscellaneous fixes not directly related to the major edit:
;Call SC.CSC in SC.ACC, SC.REJ, SC.DIS
;SC.SMG and SC.SDG -Don't try to skip over INCR or DECR of CBNPO
;SC.ERR - add missing CION after SCAOF2
;SC.DMA - check for open connection and valid CID
;SC.ORQ - call SC.INC
;SC.ORQ,SC.ARQ - reorder events to avoid changing state without notifying sysap
;SC.CRS - bitch if can't get buffers, and go to SC.SAR. Don't fall through to 
;	this code
;SC.AWQ - don't queue if already on queue
;
; UPD ID= 3951, SNARK:<6.MONITOR>SCAMPI.MAC.95,  21-Mar-84 12:43:23 by LOMARTIRE
;Add calls to RG.SCS for callbacks
;Add feature specific data to RG.SCS - the following is placed in the entry:
;	node number, CBA, callback reason code
;Add calls to RG.PKT for packet transmission/reception
;Add feature specific data to RG.PKT - the following is placed in the entry:
;  node number, CBA, buffer addr, flags, prio,,length, MH$TYP, MH$SCI, MH$DCI
;Remove the old SCA ring buffer which was under the SCADBG conditional
;Remove the old PI ring buffer which was under the PIDBG conditional
;Also remove the PIDBG conditional
;Update table of contents
;
; UPD ID= 3950, SNARK:<6.MONITOR>SCAMPI.MAC.94,  20-Mar-84 21:33:49 by MCLEAN
;ADD REASON FOR DISCONNECT TO SC.DRQ
; UPD ID= 3942, SNARK:<6.MONITOR>SCAMPI.MAC.93,  19-Mar-84 09:55:00 by HAUDEL
;Put call to CLOSVC in SC.RST
; UPD ID= 3931, SNARK:<6.MONITOR>SCAMPI.MAC.92,  14-Mar-84 16:30:47 by LOMARTIRE
;Add calls to RG.SSC for connection management routines
;Add feature specific data to RG.SSC - the following is placed in the entry:
;	node number, connect block address, .CBSTS, .CBFLG, .CBSCI, .CBDCI
;Add calls to RG.PIT in routines SC.PON and SC.POF
;Add feature specific data to RG.PIT - the following is placed in the entry:
;	CHNCTL, PIFLAG
;
; UPD ID= 3917, SNARK:<6.MONITOR>SCAMPI.MAC.91,  13-Mar-84 12:17:14 by HAUDEL
;Add documentation for UPD ID 3906
; UPD ID= 3910, SNARK:<6.MONITOR>SCAMPI.MAC.90,  12-Mar-84 17:27:17 by HALL
;Work on BUGxxx's
; UPD ID= 3908, SNARK:<6.MONITOR>SCAMPI.MAC.89,  12-Mar-84 16:25:50 by LOMARTIRE
;Rework ring buffer - allow for selectivity of event recording
;Add ring buffer routines SC.RGI, SC.RHD, SC.RTE, and SC.RWR
;Also add ring buffer jackets for events to be recorded.
;
; UPD ID= 3906, SNARK:<6.MONITOR>SCAMPI.MAC.88,  12-Mar-84 15:49:05 by HAUDEL
;Change SC.STA and SC.RST. Move RMTSTA and RMTRST to PHYKLP.
; UPD ID= 3883, SNARK:<6.MONITOR>SCAMPI.MAC.87,   9-Mar-84 11:28:53 by HALL
;Changes in sending of connection management requests:
;
;For sending connection management requests, packet is no longer acquired,
;filled in, and queued. Instead, connection block's block state indicates type
;of message to be sent, and the connection block is queued. Packet is filled
;in only when it can be sent. Thus there is no failure return for sending
;requests, and connection management routines no longer try to build packets,
;acquire buffers, or send packets. Affected routines:
;	SC.CON,SC.ACC,SC.REJ,SC.DIS,SC.TC,SC.IDL,SC.DRQ
;
;Handling of block state has changed significantly. Block state is non-zero
;only while a connection block is waiting to send a request. The sending
;routine zeroes it. Other routines that previously set or zeroed or tested
;it no longer do. Affected routines:
;	SC.CON, SC.LIS, SC.ACC, SC.REJ, SC.DIS, SC.ERR,SC.ORS,SC.ARQ,SC.ARS,
;	SC.RRQ, SC.RRS,SC.CRS
;
;New SC.SCA queues connection block to system block and calls SC.SNM.
;New SC.SNM uses block state to determine type of packet to send. If
;unable to allocate buffers requested by the sysap, it moves a connection
;block to the end of the queue and flags it for job 0. It returns when it
;sends one packet, is unable to proceed, or has no pending requests.
;SC.RQS generates the packet based on block state, sets new connection state,
;clears block state, and sends packet. It uses new table Y.
;
;New SC.DEF (replacing SC.ALM) finds queued connection blocks and allocates
;buffers. It tries to get them from SCA's pool in case some have been returned.
;
;In general, sending of connection management requests now conforms to corporate
;spec. However, SC.CON sets the connection state to connect_sent rather than
;waiting until the connect_req is sent.
;
;Additional changes related to this:
;
;SC.CON, SC.LIS - moved linking of connection block to system block to occur
;	after connection block is initialized
;SC.ACC - store caller's connection data in the connection block. Previously,
;	the remote node's data remained there forever. This change was necessary
;	in order to have this data available when the accept_req is sent. If
;	necessary, both sets of connection data could be stored in the
;	connection block.
;SC.TC - return +1 always
;SC.ALM is replaced by cals to SC.DEF and SC.ALC. The latter is ALMCHK turned
;into a routine
;SC.RAP - if connection block is queued to system block's work queue, skip
;	  reaping it. SC.SNM or SC.ERR will dequeue it eventually.
;SC.ONL - add some sanity checks related to outgoing requests.
;	- when node comes online, allocate 2 buffers for SCS control messages.
;	  Put one on port's message free queue, and make system block point
;	  to the other.
;SC.ERR - Clean work queue by resetting head and tail. No longer have buffers
;	  to return.
;	- Clear system block's bit in SBSTUK
;	- Return SCS control message buffers to SCA free pool.
;SC.SAR - Give incoming buffer to system block. Don't return to port's
;	  queue as before.
;SCACDT - Get op code from packet, not from caller
;Add K.CHK to TABLEK
;SC.INC	- If no protocol error, and K.CHK is set, check op code against
;	  expected response
;
;Other changes not directly related to the above:
;
;SC.ALC - change queue count while CIOFF to update queue
;SC.ERR - set flag in system block when node goes offline. If flag is set
;	  when this routine is called, don't do anything
;Callers of SC.INC were handling +1 return incorrectly, losing the buffer.
;Now they go to SC.RIB. Affected routines:
;	SC.ORS,SC.ARQ,SC.ARS,SC.RRQ,SC.RRS,SC.DRQ,SC.DRS
;SC.PAK - increment count only if send succeeds
;SC.INC - return +1 if protocol error when v.c. is closed. Check this before
;	  checking the abort bit.
;	- If protocol error and incoming op code is disc_req or disc_rsp,
;	   close v.c. This may not be correct, but it more nearly matches the
;	   old code.
;
; UPD ID= 3839, SNARK:<6.MONITOR>SCAMPI.MAC.86,   2-Mar-84 15:52:08 by HALL
;SC.INC - if protocol error and v.c has been closed, return +1
;	- if protocol error, aborted, and received disc_req, close the v.c.
; UPD ID= 3780, SNARK:<6.MONITOR>SCAMPI.MAC.85,  28-Feb-84 13:12:28 by LOMARTIRE
;Add SC.NOD to return node number given connect ID
;Modify some BUGxxx to include node number and CID when appropriate
;
; UPD ID= 3755, SNARK:<6.MONITOR>SCAMPI.MAC.84,  25-Feb-84 16:50:50 by HALL
;SC.REJ - don't put listener back on "don't care" queue
; UPD ID= 3754, SNARK:<6.MONITOR>SCAMPI.MAC.83,  25-Feb-84 07:59:33 by HALL
;Introduction of state machine for processing incoming SCS control packets --
;Includes changes to match corporate SCA spec version 6, as follows:
;	Add states accept_sent and reject_sent
;	Remove sub-states of closed
;	After sending accept_request, state is accept_sent. Old code left it
;		as connect_received
;	When we receive an accept_req, and state is closed, send an accept_rsp
;		with no match. Old code treated as error and closed the v.c.
;		unless the "aborted" bit was on
;	When we receive accept_rsp, expect state to be accept_sent. Old
;		code expected connect_received
;	After sending reject_request, state is reject_sent. Old code left
;		is as listen
;	When we receive reject_response, expect state to be reject_sent.
;		Old code expected listen
;	After receiving reject_response, state is closed. Old code left is
;		as listen
;New routine, SC.INC, is called for incoming packets to determine validity
;	for current state, and return new state and op code of response
;	Called by SC.ORS,SC.ARQ,SC.ARS,SC.RRQ,SC.RRS,SC.DRQ,SC.DRS
;SC.CON - store minimum send credit in minimum_credit field
;SC.ACC - deferred new state is accept_sent
;SC.REJ - don't set state to listen
;SC.REJ - deferred new state is reject_sent
;SC.RNG - get destination CID rather than credit field
;SC.OFL - set new state to closed instead of closed_v.c. failure
;SC.ORQ - rearrange copying of input, move SOR.NM to end of routine,
;	store minimum_Credit from packet into mininum receive credit
;SC.ORS - store other CID in connection block only if there's a match
;	- New state is closed instead of closed_no_match if no match
;SC.ARQ - If current state is closed, go send accept_response with "no
;	match"
;	- At SAR.NG, assume op code was set up by SC.INC
;SC.RRQ - new state is closed instead of closed_rejected
;SC.RRS - check on "aborted" was reversed
;	store new connection state as closed instead of leaving as listen
;
;SC.IDL - SCATMO BUGCHK when timed out a connection
;SC.CVC - Changed SCACVC to a BUGCHK (may be temporary), added node number
;	to optional data
;SC.OFL - set CBFCVC flag in connection block when v.c. is closed. Test
;	it in SC.INC. At the moment, this an CBFABT will be set when a v.c.
;	is closed. This may change over time.
;
;Changes to routines that send responses. SC.RSP now fills in common data
;	and then calls a specific routine according to op code for filling in 
;	the rest. Callers were changed to expect this: SC.ORQ, SC.ARQ, 
;	SC.RRQ, SC.DRQ,SC.CRQ.
;Name changes: SC.RS1 to SC.PAK, SC.MDS to SC.SMD, SC.MDR to SC.RMD
;
; UPD ID= 3717, SNARK:<6.MONITOR>SCAMPI.MAC.82,  21-Feb-84 13:22:13 by LOMARTIRE
;Remove name WQANB for location .WQANB since entire word is needed
;Fix manipulations of WQFLG to work with the correct half word
;Add name WQLFW to refer to the entire .WQLEN word
;Use names WQDG and WQMSG instead of .WQNBF
;
; UPD ID= 3714, SNARK:<6.MONITOR>SCAMPI.MAC.81,  21-Feb-84 13:01:09 by CDUNN
;More TCO 6.1127 - Change SC.CON and SC.LIS to use an address instead of
;a byte pointer to the process strings.
;
; UPD ID= 3689, SNARK:<6.MONITOR>SCAMPI.MAC.80,  15-Feb-84 11:05:35 by LOMARTIRE
;Add extra needed field to SCAMCR BUGCHK to insure correct assembly
;
; UPD ID= 3688, SNARK:<6.MONITOR>SCAMPI.MAC.79,  15-Feb-84 08:54:31 by LOMARTIRE
;Fix routines in which LNKMFQ/LNKDFQ used to fail to return +1 always
;Remove unneeded error routines and SC.P2Q and SC.P2M
;Fix SCAMCR BUGCHK so that it assembles correctly and fix some typos
;
; UPD ID= 3686, SNARK:<6.MONITOR>SCAMPI.MAC.78,  12-Feb-84 13:30:46 by HALL
;SC.SCA was loading connection state when it wanted block state
; UPD ID= 3681, SNARK:<6.MONITOR>SCAMPI.MAC.77,  10-Feb-84 14:37:47 by LOMARTIRE
;Change all system block references to use defined structure if one available.
;All values which are not word location independent will not use the structure.
;These include FLINKs and BLINKs and other values with must be a full word.
;
; UPD ID= 3680, SNARK:<6.MONITOR>SCAMPI.MAC.76,   9-Feb-84 10:43:10 by HALL
;Fix bug in SC.RSP, in which SC.RS1 was being called without doing
;a STKVAR
;In SC.SCA, zero FLINK when adding buffer to end of work queue
; UPD ID= 3676, SNARK:<6.MONITOR>SCAMPI.MAC.75,   8-Feb-84 17:43:35 by HALL
;General cleanup of interrupt-level code that handles incoming SCS control
;messages. Includes creation of common exits, SC.SAR and SC.RIB.
;The functions performed there will probably change over time. All
;incoming responses lead to SC.SAR, where we attempt to send the next
;queued SCS message, and fall through to SC.RIB.
;All incoming requests cause a response to be sent if possible, and go
;to SC.RIB on failure. SC.RIB returns the buffer to the free queue.
;
;New routine, SC.RSP, stores common data into a packet and sends it
;Routines that receive requests and send responses now call this instead of
;calling SNDMSG directly.
;
;The following functional changes were made as well:
;SC.DRQ - If call to SC.SCA fails, go to usual code for notifying sysap
;	of disconnect
;SC.RRQ - Don't assume T3 preserved over call to SC.RSP. Get reason for
;	rejection from c.b. when calling sysap
;SC.ORQ - Zero minimum_credit field in CONNECT_RSP
;SC.ARQ - store minimum_credit field of packet into connect block's
;	minimum receive credit field
;Set CBDSBI in SC.SCM rather than SC.ORQ. Don't set CBDSBI in SC.ORS because
;	SC.CON did it
;
; UPD ID= 3673, SNARK:<6.MONITOR>SCAMPI.MAC.74,   8-Feb-84 12:18:40 by LOMARTIRE
;Use defined structures for all message header references
;
; UPD ID= 3666, SNARK:<6.MONITOR>SCAMPI.MAC.73,   8-Feb-84 08:38:31 by LOMARTIRE
;Account for the fact that LNKDFQ and LNKMFQ now return +1 always
;
; UPD ID= 3654, SNARK:<6.MONITOR>SCAMPI.MAC.72,   3-Feb-84 19:36:51 by HALL
;In SC.ORS, add P4 to reference to SBSBI
;Add SC.RSP
; UPD ID= 3598, SNARK:<6.MONITOR>SCAMPI.MAC.71,  31-Jan-84 11:38:41 by LOMARTIRE
;Change OPSTRs to OPSTRMs for operations to memory
; Fix a few credit update manipulations
;
; UPD ID= 3593, SNARK:<6.MONITOR>SCAMPI.MAC.70,  30-Jan-84 17:06:36 by CDUNN
;More TCO 6.1127 - Add missing SETZM in SC.RLD to zeor the forward link of the
;new buffer.
;
; UPD ID= 3592, SNARK:<6.MONITOR>SCAMPI.MAC.69,  30-Jan-84 16:11:36 by MOSER
;Fix SC.RLD and SC.RBF to do BLT correctly.
;
; UPD ID= 3582, SNARK:<6.MONITOR>SCAMPI.MAC.68,  28-Jan-84 18:29:55 by MCLEAN
;ADD OPSTR'S TO .CBXXX
;
; UPD ID= 3574, SNARK:<6.MONITOR>SCAMPI.MAC.67,  28-Jan-84 01:41:51 by MCLEAN
;MASSIVE EDITS TO CONFORM TO STANDARDS
;
; UPD ID= 3570, SNARK:<6.MONITOR>SCAMPI.MAC.66,  27-Jan-84 22:04:45 by MCLEAN
;REDIT MISSED CHANGE OF ENDTV TO ENDSV OR SOMETHING....
;REMOVE IMPLIED (P1) REFERENCES
;
; UPD ID= 3569, SNARK:<6.MONITOR>SCAMPI.MAC.65,  27-Jan-84 17:53:30 by MCLEAN
;Make a few subroutines and fix up credit stuff
;
; UPD ID= 3563, SNARK:<6.MONITOR>SCAMPI.MAC.64,  26-Jan-84 22:27:01 by MCLEAN
;FIX TYPO.
;
; UPD ID= 3562, SNARK:<6.MONITOR>SCAMPI.MAC.63,  26-Jan-84 22:10:59 by MCLEAN
;FIX SC.SNM CAUSE IT DOESN'T GIVE CREDIT.....
;
; UPD ID= 3561, SNARK:<6.MONITOR>SCAMPI.MAC.62,  26-Jan-84 14:38:57 by MCLEAN
;ADD NEW PARAMETER FOR SC.MAP
;
; UPD ID= 3547, SNARK:<6.MONITOR>SCAMPI.MAC.61,  25-Jan-84 22:01:46 by MCLEAN
;FIX SCL.TC THE LABEL IS OFF BY 1
;
; UPD ID= 3546, SNARK:<6.MONITOR>SCAMPI.MAC.60,  25-Jan-84 21:22:29 by MCLEAN
;PUT ENDTV.'S IN ALL THE NECESSARY PLACES.
;
; UPD ID= 3545, SNARK:<6.MONITOR>SCAMPI.MAC.59,  25-Jan-84 21:09:30 by MCLEAN
;MISSING ENDTV. AT SC.BBF AND MISPELLING IN SC.CMG
;
; UPD ID= 3533, SNARK:<6.MONITOR>SCAMPI.MAC.58,  24-Jan-84 22:33:03 by MCLEAN
;SC.ADG SHOULD NOT CLOSE SC.CSC
;
; UPD ID= 3530, SNARK:<6.MONITOR>SCAMPI.MAC.57,  24-Jan-84 20:51:12 by MCLEAN
;ADD EXTRA ARGUMENT TO MAPBUF AND THIS WILL BE CHANGED SOON TO SS.RDW
;
; UPD ID= 3528, SNARK:<6.MONITOR>SCAMPI.MAC.56,  24-Jan-84 16:56:58 by MOSER
;FIX SC.CSP
;
; UPD ID= 3504, SNARK:<6.MONITOR>SCAMPI.MAC.55,  22-Jan-84 13:19:14 by MCLEAN
;BUFFER FIXES AND MISSING SETZM DFQCNT
;
; UPD ID= 3492, SNARK:<6.MONITOR>SCAMPI.MAC.54,  20-Jan-84 11:10:45 by CDUNN
;More TCO 6.1127 - Add buffer deferral support. Also a few random fixes
;
; UPD ID= 3412, SNARK:<6.MONITOR>SCAMPI.MAC.53,   6-Jan-84 05:42:48 by GRANT
;MAPBUF is now a BLCAL.
;
; UPD ID= 3394, SNARK:<6.MONITOR>SCAMPI.MAC.52,   3-Jan-84 07:17:09 by HALL
;In SC.RRS, fix SETZRO of CBBKST so that it works
;In SAR.AB, remove the comma after SETZM P5
;
; UPD ID= 3363, SNARK:<6.MONITOR>SCAMPI.MAC.51,  22-Dec-83 21:17:08 by GRANT
;Use BLCAL. for LNKDFQ and LNKMFQ
;
; UPD ID= 3355, SNARK:<6.MONITOR>SCAMPI.MAC.50,  22-Dec-83 09:18:46 by HALL
;Fix SC.PON and SC.POF: test for being at interrupt level was backwards.
;	Channel 7 (instead of 5) was being turned on and off
;
; UPD ID= 3348, SNARK:<6.MONITOR>SCAMPI.MAC.49,  20-Dec-83 08:15:53 by GRANT
;Use BLCAL. for ULNKDG and ULNKMG
;
; UPD ID= 3333, SNARK:<6.MONITOR>SCAMPI.MAC.48,  16-Dec-83 15:50:35 by HALL
;Change calls to SNDDG and SNDMSG to get arguments right
;Call CLOSVC with BLCAL
;
; UPD ID= 3301, SNARK:<6.MONITOR>SCAMPI.MAC.47,  13-Dec-83 13:15:53 by CDUNN
;More TCO 6.1127 - Random fixes to online/offline stuff for handling VCs that
;come back. Also random DMA help...
;
; UPD ID= 3287, SNARK:<6.MONITOR>SCAMPI.MAC.46,  11-Dec-83 20:19:51 by GRANT
;In SSC.LP and SC.CLK, use new symbol VC.OPN.
;Change calling convention comments for SC.DMA - it accepts T1,T2 not T1,P4.
;
; UPD ID= 3255, SNARK:<6.MONITOR>SCAMPI.MAC.45,   5-Dec-83 19:22:37 by CDUNN
;More TCO 6.1127 - Add support for maintenance data send from JSYS level.
;Also some random fixes.
;
; UPD ID= 3185, SNARK:<6.MONITOR>SCAMPI.MAC.44,  17-Nov-83 16:18:38 by CDUNN
;More TCO 6.1127 - Remove support for mapping user buffers to monitor space
;on packet send. Handle monitor buffer being used for copy of user packet send 
;data.
;
; UPD ID= 3137, SNARK:<6.MONITOR>SCAMPI.MAC.43,  11-Nov-83 10:46:56 by CDUNN
;More TCO 6.1127 - Make SC.CVC and its callers agree on how its returns
;
; UPD ID= 3118, SNARK:<6.MONITOR>SCAMPI.MAC.42,   8-Nov-83 11:47:23 by CDUNN
;More TCO 6.1127 - Move SAVEAC to top of SC.RCB so AC is always saved. Also
;add lost SETZM of first word in buffer handed to LNKMFQ by SC.P2Q
;
; UPD ID= 2874, SNARK:<6.MONITOR>SCAMPI.MAC.41,   2-Sep-83 11:27:29 by CDUNN
;More TCO 6.1127 - Add DBIU (cousin of MBIU) to add scratch datagram buffers
;
; UPD ID= 2824, SNARK:<6.MONITOR>SCAMPI.MAC.40,  11-Aug-83 15:32:59 by CDUNN
; More TCO 6.1127 - Fix SC.ALM to correctly create and lock pages. A number
;of random fixes as well.
;
; UPD ID= 2761, SNARK:<6.MONITOR>SCAMPI.MAC.39,  24-Jul-83 02:01:20 by CDUNN
; More TCO 6.1127 - Fix SC.ABF to give the return address for the buffer as 
;promised.
;
; UPD ID= 2741, SNARK:<6.MONITOR>SCAMPI.MAC.38,  22-Jul-83 15:19:49 by CDUNN
;More TCO 6.1127 - General code cleanup. Removal of memory managment routines
;that try to do partial request returns. They now return all or nothing...
;
; UPD ID= 2606, SNARK:<6.MONITOR>SCAMPI.MAC.37,  20-Jun-83 16:12:30 by HALL
;TCO 6.1689 - Move fork tables to extended section
;Reference FKPGS via DEFSTR
;
; UPD ID= 2555, SNARK:<6.MONITOR>SCAMPI.MAC.36,   3-Jun-83 17:13:23 by CDUNN
;More TCO 6.1127 - Fix SC.ONL not to do anything with memory managment routines
;(Fixes ILMNRF at startup after crash). Make SC.SNM not loop to bad places on
;finding a stale message on work queue.
;
; UPD ID= 2531, SNARK:<6.MONITOR>SCAMPI.MAC.35,  26-May-83 18:07:16 by CDUNN
;More TCO 6.1127 - Fix SC.DRQ and SC.DRS to not light the abort bit on
;JSYS connections. Also make 10/11 word format byte pointers global
;
; UPD ID= 2493, SNARK:<6.MONITOR>SCAMPI.MAC.34,  19-May-83 11:14:48 by MURPHY
;Put EPGMAP in another section.
;
; UPD ID= 2461, SNARK:<6.MONITOR>SCAMPI.MAC.33,  12-May-83 17:14:28 by CDUNN
;More TCO 6.1127 - Add code to SC.RAP to observe the CBFKIL bit when
;deleting CB's
;
; UPD ID= 2420, SNARK:<6.MONITOR>SCAMPI.MAC.32,   4-May-83 13:49:30 by CDUNN
;More TCO 6.1127 - Change SC.INT and related code to return message length
;in the packet her rather than in another AC (I.E. Q1)
;
; UPD ID= 2366, SNARK:<6.MONITOR>SCAMPI.MAC.31,  27-Apr-83 23:45:11 by CDUNN
;More TCO 6.1127 - Make SC.CLK check port VC state before any other processing.
;Add code to SC.OFL/SC.ERR to mark all connections as closed by VC error.
;
; UPD ID= 2351, SNARK:<6.MONITOR>SCAMPI.MAC.30,  26-Apr-83 21:52:13 by CDUNN
;More TCO 6.1127 - Fix sense of F.RTB test in SC.SMG. Increment outstanding
;packet on correct send type. Fixes for idle chatter in SC.CLK and SC.INT
;
; UPD ID= 2326, SNARK:<6.MONITOR>SCAMPI.MAC.29,  22-Apr-83 01:41:13 by CDUNN
;More TCO 6.1127 - Change SC.SMG and SC.SMG to no do conversion from word
;count to byte count. Allow PHYKLP to do that. Also modify SC.INT to hand
;the SYSAP the length of the packet received since we now get it from PHYKLP.
;
; UPD ID= 2307, SNARK:<6.MONITOR>SCAMPI.MAC.28,  19-Apr-83 16:25:34 by CDUNN
;More TCO 6.1127
;1. Fix calling sequences for SNDMSG, flags and priority sometimes reversed
;2. Fix SC.DRQ to use a different buffer for the request sent after the
;response.
;3. Fix SC.SCA to not smash T3 on entry.
;
; UPD ID= 2251, SNARK:<6.MONITOR>SCAMPI.MAC.27,  12-Apr-83 20:06:48 by CDUNN
;More TCO 6.1127
;1. Fix SC.SCM to correctly dequeue entries from the dont care listener queue.
;2. Fix SC.ALM to use MLKMA instead of FMLKPG.
;3. Fix SC.REQ to do correct check for sufficient credits and do SOS to credit.
;
; UPD ID= 2231, SNARK:<6.MONITOR>SCAMPI.MAC.26,  10-Apr-83 18:17:14 by CDUNN
;More TCO 6.1127 - Fix sense of test for credit in SC.SND
;
; UPD ID= 2211, SNARK:<6.MONITOR>SCAMPI.MAC.25,   8-Apr-83 06:59:01 by GRANT
;TCO 6.1127 - In SC.ALD, zero the SYSAP's header area when assigning a buffer
;
; UPD ID= 2198, SNARK:<6.MONITOR>SCAMPI.MAC.24,   8-Apr-83 04:41:35 by CDUNN
;More TCO 6.1127 
;1. Add address of system block to the SCA ring buffer entry. Also add
;buffer address and PC of caller to the ring buffer entry. Fix init of the end
;of the SCA ring buffer.
;2. Fix SC.ALD to zero T2 when taking an error return.
;3. Fix SC.SCM to dequeue dont care listeners only once, not twice.
;4. Add SC.CLK to do idle chatter.
;
; UPD ID= 2161, SNARK:<6.MONITOR>SCAMPI.MAC.23,   4-Apr-83 20:51:03 by CDUNN
;More TCO 6.1127 - Change default for PIDBG to be off...
;
; UPD ID= 2136, SNARK:<6.MONITOR>SCAMPI.MAC.22,   3-Apr-83 20:35:55 by CDUNN
;More TCO 6.1127 - 
;1. Fix SC.ALM to use the number of buffers per page, not buffer size when 
;determining page count to obtain.
;2. Fix SCA protocol violation in disconnect. Send a response to a DISC_REQ
;in ALL cases, not just some. Then do other checking...
;3. Fix AC typos in SC.DIS.
;4. Add routine SC.PRT to return the local port number on a KL with a single
;CI port.
;5. Make rejecting a connect to a listener put you back in listen, not dumping
;the connection.
;6. Support SC.REJ going to listen again by makeing SC.LCB dequeue buffer
;from current queue before putting on a new one...
;7. Add code to support the SCA ring buffer. Routine SC.RNG is the collector
;8. SC.OFL/SC.ERR remove STKVAR and use P5 instead.
;9. Fix SC.ONL to correctly calculate new buffer minimums based on system count
;10. Replace PION and PIOFF with CION and CIOFF which go NOSKED and turn off 
;the channel, rather than all of PI.
;11. Add missing CION to SC.ALD exit routine
;
; UPD ID= 2066, SNARK:<6.MONITOR>SCAMPI.MAC.20,  23-Mar-83 01:21:40 by CDUNN
;More TCO 6.1127 - Add SCA overhead byte count to send message and datagrams
;
; UPD ID= 2064, SNARK:<6.MONITOR>SCAMPI.MAC.19,  23-Mar-83 00:39:26 by CDUNN
;More TCO 6.1127 - Remove referances to .CBDGB, replace with .CBDGR. Also
;fix SC.ADG to check the number of datagrams buffers queued for a connect and
;drop datagrasm if there are none. Also install .CBCDD (count of dropped
;datagrams) in the CB.
;
; UPD ID= 2061, SNARK:<6.MONITOR>SCAMPI.MAC.18,  22-Mar-83 10:12:43 by GRANT
;TCO 6.1127 - In SC.REJ, make proper test for connection state.  In SC.RRQ, put
;correct destination CID in the packet being assembled.
;
; UPD ID= 2055, SNARK:<6.MONITOR>SCAMPI.MAC.17,  22-Mar-83 00:49:38 by CDUNN
;More TCO 6.1127 - Fix SC.ALD to setup T2 as promised for +1 return. Also
;add counter to SC.RCB for number of CB's killed. Teach SC.SCM to watch the
;abort and reap bits in "don't care" listeners.
;
; UPD ID= 2022, SNARK:<6.MONITOR>SCAMPI.MAC.16,  19-Mar-83 00:21:09 by CDUNN
;More TCO 6.1127 - Fix SC.SCM to check name local SYSAP wishes to talk to 
;versus source name of remote on don't care listeners.
;More TCO 6.1127 - Dont be PIOFF in certain places where it turns out page
;faults are possible. Also fix sense of check for last buffer in SC.RCB when
;doing "dont care listeners".
;
; UPD ID= 2013, SNARK:<6.MONITOR>SCAMPI.MAC.14,  17-Mar-83 03:07:54 by CDUNN
;More TCO 6.1127 - 1. Fix SC.LCB to correctly link dont care listeners onto
;fork CB queue
;2. Fix SC.RCB to correctly handle deletion of dont care listeners
;3. In init, add general pool buffer to minimum count.
;4. Force SC.ALM to not run if we have not inited yet. (Prevents crash when
;no nodes are up at init and one shows up later)
;
; UPD ID= 2012, SNARK:<6.MONITOR>SCAMPI.MAC.13,  16-Mar-83 18:19:14 by CDUNN
;More TCO 6.1127 - Fix error in last edit.
;
; UPD ID= 1989, SNARK:<6.MONITOR>SCAMPI.MAC.12,  15-Mar-83 02:00:26 by CDUNN
;More TCO 6.1127 - Init tail queue to correct address when not current fork and
;deleteing last entry on a fork connect block queue.
;Also, TEMPORARILY! turn on RS%SE0 in calls to ASGRES until extended free
;space code is done...
;
; UPD ID= 1954, SNARK:<6.MONITOR>SCAMPI.MAC.11,  10-Mar-83 00:30:54 by CDUNN
;More TCO 6.1127 - Code DMA routines so rest of the world can properly
;access DMA code in port driver.

;	COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1988.
;	ALL RIGHTS RESERVED.
;
;	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 THAT IS NOT SUPPLIED BY DIGITAL.
	SEARCH SCAPAR,PROLOG

	TTITLE (SCAMPI,,<- Systems Communications Architecture service>)

	EXTERN SCSINI,SCSTCQ,SCSBCQ
	EXTERN MSG,DG,XFER,EVT,SCSDEQ,XSCSDEQ ;[7.1043]
	EXTERN MAPBUF,UMAP,SNDDAT,REQDAT,OPENVC
	EXTERN LOCPRT
	Subttl	Table of Contents

;		     Table of Contents for SCAMPI
;
;				  Section		      Page
;
;
;    1. Comments . . . . . . . . . . . . . . . . . . . . . . .   6
;        1.1    Design Notes . . . . . . . . . . . . . . . . .   7
;        1.2    Ring Buffer Usage  . . . . . . . . . . . . . .   8
;    2. Local variable storage for SCS . . . . . . . . . . . .   9
;    3. State Tables . . . . . . . . . . . . . . . . . . . . .  10
;    4. Initialization code  . . . . . . . . . . . . . . . . .  19
;    5. Calls from sysap
;        5.1    SC.SOA (Set ONLINE address)  . . . . . . . . .  20
;        5.2    Connection management  . . . . . . . . . . . .  21
;            5.2.1    SC.CON (Connect) . . . . . . . . . . . .  23
;            5.2.2    SC.LIS (Listen)  . . . . . . . . . . . .  26
;            5.2.3    SC.ACC (Accept)  . . . . . . . . . . . .  29
;            5.2.4    SC.REJ (Reject)  . . . . . . . . . . . .  31
;            5.2.5    SC.DIS (Disconnect)  . . . . . . . . . .  32
;        5.3    Messages and datagrams
;            5.3.1    SC.SDG (Send a datagram) . . . . . . . .  35
;            5.3.2    SC.SMG (Send a message)  . . . . . . . .  38
;            5.3.3    SC.RDG (Receive a datagram)  . . . . . .  42
;            5.3.4    SC.RMG (Receive a message) . . . . . . .  43
;            5.3.5    SC.CRD (Cancel Receive datagram) . . . .  45
;            5.3.6    SC.CMS (Cancel receive message)  . . . .  46
;        5.4    Named buffers
;            5.4.1    SC.MAP (Map a buffer)  . . . . . . . . .  47
;            5.4.2    SC.UMP (Unmap a mapped buffer) . . . . .  48
;            5.4.3    SC.SND (Send DMA data) . . . . . . . . .  49
;        5.5    State polling  . . . . . . . . . . . . . . . .  51
;            5.5.1    SC.DCI (Return destination connect ID) .  52
;            5.5.2    SC.RCD (Return configuration data) . . .  53
;            5.5.3    SC.NOD (Return node number given CID)  .  54
;            5.5.4    SC.PRT (Return local port number)  . . .  55
;        5.6    Maintenance
;            5.6.1    SC.RST (Reset remote system) . . . . . .  56
;            5.6.2    SC.STA (Start remote node) . . . . . . .  57
	Subttl	Table of Contents (page 2)

;		     Table of Contents for SCAMPI
;
;				  Section		      Page
;
;
;    6. Call from port driver
;        6.1    SC.ONL (Node has come online)  . . . . . . . .  58
;        6.2    SC.ERR (Node(s) have gone away)  . . . . . . .  62
;        6.3    SC.DMA (DMA operation complete)  . . . . . . .  66
;        6.4    Incoming buffer
;            6.4.1    SC.INT (Buffer arrival)  . . . . . . . .  67
;            6.4.2    SC.ORQ (Connect request) . . . . . . . .  70
;            6.4.3    SC.ORS (Connect response)  . . . . . . .  72
;            6.4.4    SC.ARQ (Accept request)  . . . . . . . .  73
;            6.4.5    SC.ARS (Accept response) . . . . . . . .  75
;            6.4.6    SC.RRQ (Reject request)  . . . . . . . .  76
;            6.4.7    SC.RRS (Reject response) . . . . . . . .  77
;            6.4.8    SC.DRQ (Disconnect request)  . . . . . .  78
;            6.4.9    SC.DRS (Disconnect response) . . . . . .  81
;            6.4.10   SC.CRQ (Credit request)  . . . . . . . .  82
;            6.4.11   SC.CRS (Credit response) . . . . . . . .  84
;            6.4.12   SC.INC (Connection management) . . . . .  86
;            6.4.13   SC.ADG/SC.AMG (application datagram/mess  90
;    7. Periodic functions
;        7.1    SC.CLK (Dispatch)  . . . . . . . . . . . . . .  93
;        7.2    SC.IDL (Idle chatter)  . . . . . . . . . . . .  94
;        7.3    SC.RAP (Reap old connections)  . . . . . . . .  96
;        7.4    SC.MAL (Allocate buffers)  . . . . . . . . . . 102
;        7.5    SC.ALC (Allocate buffers for pool) . . . . . . 103
;        7.6    SC.DEF (Allocate deferred buffers for sysap) . 105
;    8. Connection management utility routines
;        8.1    SC.SCA (Send connection management message)  . 108
;        8.2    SC.SNM (Send next connection management messag 109
;        8.3    SC.AWQ (Add entry to work queue) . . . . . . . 112
;        8.4    SC.RWQ (Remove entry from work queue)  . . . . 113
;        8.5    SC.AIB (Allocate and initialize a connection b 114
;        8.6    SC.LCB (Link a new CB) . . . . . . . . . . . . 117
;        8.7    SC.SCM (Search for connection match) . . . . . 120
;        8.8    SC.CSC (CID sanity check)  . . . . . . . . . . 124
;        8.9    SC.CDT (Send credit_request) . . . . . . . . . 125
;        8.10   SC.CVC (Close a virtual connection)  . . . . . 128
;        8.11   SC.SDM (String and data move to CB)  . . . . . 129
;        8.12   SC.OUT (Check sysap call)  . . . . . . . . . . 130
;        8.13   SC.RSP (Send a response) . . . . . . . . . . . 131
;        8.14   SC.RQS (Send a request)  . . . . . . . . . . . 132
;        8.15   SC.PAK (Send a packet) . . . . . . . . . . . . 135
	Subttl	Table of Contents (page 3)

;		     Table of Contents for SCAMPI
;
;				  Section		      Page
;
;
;    9. Buffer management routines
;        9.1    SC.SBT (Set buffer thresholds) . . . . . . . . 137
;        9.2    SC.BUF . . . . . . . . . . . . . . . . . . . . 142
;        9.3    SC.ALD (Allocate long datagram buffers)  . . . 144
;        9.4    SC.ABF (Allocate a buffer/buffers) . . . . . . 145
;        9.5    SC.CMG/SC.CDG (Create MSG/DG buffers)  . . . . 146
;        9.6    SC.BBF (Break memory into buffers) . . . . . . 147
;        9.7    SC.RBF (Return a message buffer) . . . . . . . 148
;        9.8    SC.RLD (Return a datagram buffer)  . . . . . . 149
;        9.9    SC.TMQ/SC.TDQ (Trace free queue) . . . . . . . 150
;   10. Byte-swapping routines
;       10.1    SC.RIN (Byte swap incoming packet) . . . . . . 151
;       10.2    SC.ISW (Swap bytes from 11 to 10 format) . . . 152
;       10.3    SC.ROU (Byte swap outgoing packet) . . . . . . 153
;       10.4    SC.OSW (Swap word from 10 to 11 format)  . . . 154
;   11. Locking/unlocking routines
;       11.1    SC.PFF (Turn KLIPA channel off)  . . . . . . . 155
;       11.2    SC.PON (Turn KLIPA channel on) . . . . . . . . 156
;       11.3    SC.LOK (Lock connection block) . . . . . . . . 157
;       11.4    SC.ULK (Unlock connection block) . . . . . . . 158
;   12. Ring Buffer routines
;       12.1    SC.RGI (Initialize ring buffer variables)  . . 159
;       12.2    SC.RHD (Write ring buffer entry header)  . . . 160
;       12.3    SC.RTE (Write ring buffer entry tail)  . . . . 161
;       12.4    SC.RWR (Write ring buffer entry) . . . . . . . 162
;       12.5    RG.SSC (SYSAP to SCA calls)  . . . . . . . . . 163
;       12.6    RG.SCS (SCA to SYSAP calls)  . . . . . . . . . 164
;       12.7    RG.BFM (Buffer manipulation) . . . . . . . . . 165
;       12.8    RG.PKT (Packet movement) . . . . . . . . . . . 166
;       12.9    RG.PIT (PI transitions)  . . . . . . . . . . . 167
;       12.10   RG.PQM (Port queue manipulation) . . . . . . . 168
;       12.11   RG.ITL (Interlocks)  . . . . . . . . . . . . . 169
;   13. General Routines
;       13.1    SC.BRK (Break data into SCA buffers) . . . . . 171
;       13.2    MXCIND (Return max CI nodes seen)  . . . . . . 172
;   14. Dummy routines until the port driver supports them . . 173
;   15. End of SCAMPI  . . . . . . . . . . . . . . . . . . . . 174
	SUBTTL Comments 

;SCAMPI - Systems Communications Architecture for Multi Processor Interconnects
;	       Not to be confused with an Italian shrimp dish.
;
;
; Note:
; Some abbreviations appear EVERYWHERE in this module. They are:
;
; CB - Connection block
; SB - System block
; SBI - System block index - same as node number
; CID - Source connect ID
; PPD - Physical port driver
; MBZ - Must be zero
; BDT - Buffer descriptor table (xlation for JSYS buffers to monitor buffers)
	SUBTTL Comments -- Design Notes

;If a connection's state is closed, either the sysap disconnected, or it's
;been notified that the connection is closed. If CBFPTC is on, no more
;protocol is necessary (we won't send anything else over the wire, or
;receive anything).

;When CBFPTC is set, we also set CBFRAP unless it's a JSYS connection. SCSJSY
;sets reap if it is. We still can't get rid of the c.b. until the block
;has been dequeued from the work queue, and all its outstanding packets
;have been returned. The first case probably doesn't happen, but it's
;conceivable that we were about to send a credit request when the connection
;was closed. SC.SNM will dequeue the block eventually and find its block
;state set to zero. This avoids trying to dequeue it at the time that
;CBFPTC is set.

;A connection may be closed but not PTC. The opposite is not true.

;		FUNCTIONAL NOTES:

;SC.ACC no longer returns the address of the other side's connect data.
;That was risky anyway because it points at a connection block that could
;conceivably go away.

;.SSRID callback occurs when the other side initiates a disconnect, rather
;than when it confirms one. It provides a reason code in T3.

;The TOPS-20 spec said that the sysap could provide a "minimum receive
;credit" value, which controlled when the sysap received a "little credit
;left" callback. That is no longer true. The code now implements the
;corporate spec, which says that the other side will set this value in
;the minimum_credit field of the connect_request or accept_request

;After receiving a connection request, a listening sysap must open another
;listener.  This is true for both accepting and rejecting.
	SUBTTL Comments -- Ring Buffer Usage
	COMMENT |

                       Comments on Ring Buffer Usage

     The  ring  buffer  will record various events which occur. Currently,
the following can be recorded: SYSAP to SCA calls, SCA  callbacks,  buffer
manipulation,    packet   transactions,   PI   transitions,   port   queue
manipulation, and interlocks. The recording of events is dictated  by  the
setting  of  RNGSW. If the appropriate bit is set, then that event will be
recorded when it occurs. These bit definitions are defined in  SCAPAR  and
are  as follows for the corresponding events listed above: RSYSCA, RSCASY,
RBUFMG, RPACKT, RPITRN, RPRTQU, RINTLK.

     The format of a ring buffer entry is described in SCAPAR. Briefly, an
entry  starts with the entry header word (currently -77,,-77). The rest of
the entry header follows as described in  SCAPAR.  Every  entry  has  this
common  header.  Following  the header is the feature event specific data.
Each feature event has its own feature specific data which  is  placed  in
the  buffer  entry.  For  this reason, ring buffer entries are of variable
size depending upon feature type being recorded (which  depends  upon  the
setting  of RNGSW). [The length of the buffer entry for each event is kept
in the table ENTLTB which is indexed by event code. These event codes  are
defined  in  SCAPAR.]  Following  the  feature specific data is the buffer
entry tail. Currently, this is one word which points to the start  of  the
buffer  entry.  This word can be used to easily step back through the ring
buffer.

     RNGSIZ  is the size in words of the ring buffer. At startup, SCA will
get the number of pages defined by symbol  RBFLEN  (in  SCAPAR)  for  ring
buffer usage. Currently, this is 5 pages.

     RNGTOP  is a pointer to the top of the ring buffer pages. RNGBOT is a
pointer to the bottom of the ring buffer pages and will  be  RBFLEN  pages
greater  than  the  value  in RNGTOP since the ring buffer is allocated in
contiguous pages.

     RNGNUM  is the total number of ring buffer entries written. RNGCUR is
the pointer to the top of the most recent entry completed. Use this  value
as  the  first entry to investigate and work backwards through less recent
entries. RNGADR is used by the various ring buffer routines as  a  pointer
into the ring buffer.

|
	SUBTTL Local variable storage for SCS

	RS (SCAINI)		;Flag set when we run through SCA init code

	RS (TOPFQ)		;Pointer to top of free queue
	RS (BOTFQ)		;Pointer to bottom of free queue
	RS (FQCNT)		;Count of the number of buffer on free queue

	RS (TOPDC)		;Top of the dont care queue
	RS (BOTDC)		;Bottom of the dont care queue

	RS (TOPDFQ)		;Pointer to first buffer on long DG Q
	RS (BOTDFQ)		;Pointer to last buffer on long DG Q
	RS (DFQCNT)		;Count of buffers on long DG queue

	RS (SBCNT)		;Save the number of SB's we have
	RS (MXSBCT)		;The max SBCNT has ever been
	RS (NOTTAB)		;Address of notification table
	RS (NOTEND)		;Address of the end of the notification table
	RS (UNQBTS)		;Storage for the next CID bits to be assigned
	RS (UNQRFL)		;Number of times CID bits have been recycled
	RS (NXTIDX)		;Next free index into the list of CID's
	RS (CIDRFL)		;Number of times CIDTAB has been recycled
	RS (CIDTAB)		;Base address of the CID address table
	RS (UBTTAB)		;Base address of the CID unique bits table
	RS SBSTUK,1
	RPMAX==:5		;Don't postpone reaping more than this
	RSI (RAPTIM,<C%RAPT>,1)	;Timer for SCA connection reaper
	RSI (RAPINC,<C%RAPT>,1)	;Min time increment (millisec)between reap runs

;SCA ring buffer storage
;
	RSI (RNGSW,<RPACKT+RBUFMG>,1)  ;Ring buffer switch - default is RPACKT

;Note:	RNGSW is not under the SCARNG conditional because it must always 
;	be present since SCAPAR uses it to create structure names for the 
;	various switch settings.

   IFN SCARNG,<
	RS (RNGSIZ)		;Actual length of ring buffer
	RS (RNGTOP)		;Start of ring buffer
	RS (RNGBOT)		;End of ring buffer
	RS (RNGNUM)		;Number of entries written to ring buffer
	RS (RNGCUR)		;Top of the most recent complete entry
	RS (RNGADR)		;Current position in ring buffer

;Below is the ring buffer entry length table.  This table contains the
;entry length for each of the events.  It is indexed by event code.

ENTLTB:	-1			;Illegal event code
	15			;Code 1 - SYSAP to SCA
	12			;Code 2 - SCA to SYSAP
	17			;Code 3 - Buffer manipulation
	17			;Code 4 - Packet transaction
	11			;Code 5 - PI transition
	12			;Code 6 - Port queue manipulation
	13			;Code 7 - Interlocks
	0			;Reserved for future expansion
	0			;Reserved for future expansion
	0			;Reserved for future expansion
>				;End of IFN SCARNG

;Channel control word. When we reach zero here, really turn on the CI channel
;on a CION.
	RSI (CHNCTL,<0>,1)	;CI channel control word...

; Performance and analysis counter tables
	RS (SNDTAB,.STLST)	;Table for packets sent
	RS (RECTAB,.STLST)	;Table for packets received
	RS (LISTEN)		;A place to count listens
	RS (RCBCNT)		;Count of CB killed by SC.DAB

; Idle chatter support locations.
	RS (TMGCNT)		;Count of systems nailed by idle chatter
	RSI (TMGSBI,<-1>,1)	;Current system under consideration
	RSI (TMGTIM,<-C%TMGT>,1);Timeout perioud

; Message and datagram buffer managment parameter locations. Diddle at your
;own risk. See SCAPAR for definitions of initial values.

	RSI (MBPS,<C%MBPS>,1)	;Min message buffers per SB

	RSI (MBCR,<C%MBCR>,1)	;Number of msg buffers to queue before sending
				;  a credit request for them

	RSI (DBPS,<C%DBPS>,1)	;Min datagram buffers per SB

	RS (MINMSG)		;Min number of messages we should have
	RS (MINDG)		;Min number of datagrams we should have

	RS (NMBCNT)		;Count of times we ran out of message buffers
	RS (NDBCNT)		;Count of time we ran out of datagram buffers

	RS (TOTMGB)		;Total number of message buffers ever created
	RS (TOTDGB)		;Total number of datagram buffers ever created

	RS (MBUST)		;Number of times a small request was honored
				; even though we were under message threshold
	RS (DBUST)		;Number of times a small request was honored
				; even though wer were under datagram threshold

	RS (DMRCNT)		;Number of message buffer requests deferred
	RS (DDRCNT)		;Number of datagram buffer requests deferred
	RS (RMRCNT)		;Number of message buffer requests refused
	RS (RDRCNT)		;Number of datagram buffer requests refused
	RS (ASRMR)		;Average size of refused message request
	RS (ASRDR)		;Average szie of refused datagram request

	RSI (LRGREQ,<C%LGRQ>,1)	;Buffer requests of less than this size are 
				; small requests

	RSI (MGTRSH,<C%MGTR>,1)	;MSG threshold. SC.ABF will not allocate a 
				; large request that would take us below this
	RSI (DGTRSH,<C%DGTR>,1)	;DG threshold. SC.ALD will not allocate a 
				; large request that would take us below this
				;A large request is any request larger than 2

	RSI (LSTEPG,<777>,1)	;Last page used in EPGSEC,starts at section end

	.PSECT RSDAT		;Put this in PSECT which is not zeroed

; PRESBL and SBLIST must stay together in this order!!!
;
PRESBL::-1			;Flag for dont care for remote
SBLIST::BLOCK C%SBLL		;Keep storage for a list of system block addr's

; Byte pointers to ten format 8 bit bytes...
;
TA$LSB::POINT ^D8,T1,17		;Ten byte A, least significant bits
TA$MSB::POINT ^D8,T1,9		;Ten byte A, Most significant
TB$LSB::POINT ^D8,T1,35		;Ten byte B, Least significant
TB$MSB::POINT ^D8,T1,27		;Ten byte B, most significant

; Byte pointers to eleven format 8 bit bytes...
;
EA$LSB::POINT ^D8,T1,23		;Eleven, byte A, least sig
EA$MSB::POINT ^D8,T1,31		;Eleven, byte A, most sig
EB$LSB::POINT ^D8,T1,7		;Eleven, byte B, least sig
EB$MSB::POINT ^D8,T1,15		;Eleven, byte B, most sig


DSPTAB:	$DISPA			;Generate addr table for message handlers

INITAB:	$SYSAP			;Generate the SYSAP init address list
	C%SYTL==<.-INITAB>-1	;The length of INITAB

	.ENDPS RSDAT		;End this part of the PSECT

;Routines to build packets

SCMKPK:	XCDSEC,,SC.MOQ		;[7.1037]Connect_request
	XCDSEC,,SC.MOS		;[7.1037]Connect_response
	XCDSEC,,SC.MAQ		;[7.1037]Accept_request
	XCDSEC,,SC.MAS		;[7.1037]Accept_response
	XCDSEC,,SC.MRQ		;[7.1037]Reject_request
	XCDSEC,,SC.MRS		;[7.1037]reject_response
	XCDSEC,,SC.MDQ		;[7.1037]Disconnect_request
	XCDSEC,,SC.MDS		;[7.1037]Disconnect_response
	XCDSEC,,SC.MCQ		;[7.1037]Credit_request
	XCDSEC,,SC.MCS		;[7.1037]Credit_response
	SUBTTL State Tables

;TABLE X

;Table X - used when sysap calls SCA. For each event, provides new connection
;and block state. Also allows checking for invalid state

TABLEX:

;Connect

FLD(.BSCNP,X.BSTAT)+FLD(.CSCSE,X.CSTAT) ;Closed
X.ERR				;Listening
X.ERR				;Connect_sent
X.ERR				;Connect_received
X.ERR				;Connect_ACK
X.ERR				;Accept_sent
X.ERR				;Reject_sent
X.ERR				;Open
X.ERR				;Disconnect_sent
X.ERR				;Disconnect_rec
X.ERR				;Disconnect_ACK
X.ERR				;disconnect_match

;Listen

FLD(.CSLIS,X.CSTAT)		;Closed
0				;Listening
X.ERR				;Connect_sent
X.ERR				;Connect_received
X.ERR				;Connect_ACK
X.ERR				;Accept_sent
X.ERR				;Reject_sent
X.ERR				;Open
X.ERR				;Disconnect_sent
X.ERR				;Disconnect_rec
X.ERR				;Disconnect_ACK
X.ERR				;disconnect_match

;Accept

X.ERR				;Closed
X.ERR				;Listening
X.ERR				;Connect_sent
FLD(.BSACP,X.BSTAT)		;Connect_received
				;New state is set when request is sent
X.ERR				;Connect_ACK
X.ERR				;Accept_sent
X.ERR				;Reject_sent
X.ERR				;Open
X.ERR				;Disconnect_sent
X.ERR				;Disconnect_rec
X.ERR				;Disconnect_ACK
X.ERR				;disconnect_match
;Reject

X.ERR				;Closed
X.ERR				;Listening
X.ERR				;Connect_sent
FLD(.BSRPN,X.BSTAT)		;Connect_received
				;New state is set when request is sent
X.ERR				;Connect_ACK
X.ERR				;Accept_sent
X.ERR				;Reject_sent
X.ERR				;Open
X.ERR				;Disconnect_sent
X.ERR				;Disconnect_rec
X.ERR				;Disconnect_ACK
X.ERR				;disconnect_match

;Disconnect

0					;Closed (no change)
FLD(.CSCLO,X.CSTAT)			;Listening
FLD(.CSCLO,X.CSTAT)			;Connect_sent
FLD(.BSRPN,X.BSTAT)+FLD(.CSRJS,X.CSTAT) ;Connect_received
FLD(.CSCLO,X.CSTAT)			;Connect_ACK
FLD(.CSCLO,X.CSTAT)			;Accept_sent
FLD(.CSCLO,X.CSTAT)			;Reject_sent
FLD(.BSDPN,X.BSTAT)+FLD(.CSDSE,X.CSTAT) ;Open
0					;Disconnect_sent (no change)
FLD(.BSDPN,X.BSTAT)+FLD(.CSDMC,X.CSTAT) ;Disconnect_rec
0					;Disconnect_ACK (no change)
0					;Disconnect_match (no change)
;Table Y

;For each block state, this table provides the op code to send and the
;new connection state

; * * * *
;Disagrees with corporate spec when block state is connect_pending. We
;have already set the connection state to .CSCSE in order to ensure that
;if a connection's state is "closed", the sysap never expects to hear
;about it again. If this is not changed, there is potential for the sysap
;to call SC.DIS between the time that the connection state is set and
;the message is actually sent. That sets the state to closed. We can't
;change it to connect_sent when the message is finally sent, because
;we'd lose track of the fact that the sysap had closed it.
; * * * *

TABLEY:	0			;Not used
	0			;Free (1)
	0			;Allocate (2)
;	FLD(.STORQ,Y.OP)+FLD(.CSCSE,Y.STAT) ;Connect_pending (3)
	FLD(.STORQ,Y.OP)	;Connect_pending (3)
	FLD(.STARQ,Y.OP)+FLD(.CSACS,Y.STAT) ;Accept_pending (4)
	FLD(.STRRQ,Y.OP)+FLD(.CSRJS,Y.STAT) ;Reject_pending (5)
	FLD(.STCRQ,Y.OP)	;Credit_pending (state doesn't change) (6)
	FLD(.STDRQ,Y.OP)	;Disconnect_pending (state already set) (7)
YSIZE==:.-TABLEY
;Table Z

;This table indicates, for a given op code, the length of its message,
;the priority for sending it, and the expected response.

TABLEZ:
	FLD(.LNORQ,Z.LEN)+FLD(KLPMED,Z.PRI)+FLD(.STORS,Z.RSP)	;Connect_req
	FLD(.LNORS,Z.LEN)+FLD(KLPMED,Z.PRI)			;CONNECT_RSP
	FLD(.LNARQ,Z.LEN)+FLD(KLPMED,Z.PRI)+FLD(.STARS,Z.RSP)	;ACCEPT_REQ
	FLD(.LNARS,Z.LEN)+FLD(KLPMED,Z.PRI)			;ACCEPT_RSP
	FLD(.LNRRQ,Z.LEN)+FLD(KLPMED,Z.PRI)+FLD(.STRRS,Z.RSP)	;REJECT_REQ
	FLD(.LNRRS,Z.LEN)+FLD(KLPMED,Z.PRI)			;REJECT_RSP
	FLD(.LNDRQ,Z.LEN)+FLD(KLPDRG,Z.PRI)+FLD(.STDRS,Z.RSP)	;DISCONNECT_REQ
	FLD(.LNDRS,Z.LEN)+FLD(KLPMED,Z.PRI)			;DISCONNECT_RSP
	FLD(.LNCRQ,Z.LEN)+FLD(KLPHI,Z.PRI)+FLD(.STCRS,Z.RSP)	;CREDIT_REQ
	FLD(.LNCRS,Z.LEN)+FLD(KLPMED,Z.PRI)			;CREDIT_RSP
;Table K

;This table indicates, for a given incoming op code and current state
;of a connection, whether the event is legal, and if it is, what the new
;state and returned op code should be

TABLEK:

;Received Connect_req

FLD(.STORS,K.OP)		;Closed
FLD(.STORS,K.OP)+FLD(.CSCRE,K.STAT) ;Listening
K.ERR				;Connect request was sent (CONNECT_SENT)
K.ERR				;Connect request was received (CONNECT_REC)
K.ERR				;Connect response was received (CONNECT_ACK)
K.ERR				;Accept request was sent (ACCEPT_SENT)	
K.ERR				;Reject request was sent (REJECT_SENT)
K.ERR				;Connection is open (OPEN)
K.ERR				;Disconnect request was sent (DISCONNECT_SENT)
K.ERR				;Disconnect request received (DISCONNECT_REC)
K.ERR				;Disconnect response received (DISCONNECT_ACK)	
K.ERR				;Waiting for disconnect response (DISCONNECT_MATCH)

;Received connect_response
;"No match" is handled specially.

FLD(.CSCLO,K.STAT)		;Closed
K.ERR				;Listening
FLD(.CSCAK,K.STAT)+K.CHK	;Connect_sent
K.ERR				;Connect_received
K.ERR				;Connect response was received (CONNECT_ACK)
K.ERR				;Accept request was sent (ACCEPT_SENT)	
K.ERR				;Reject request was sent (REJECT_SENT)
K.ERR				;Connection is open (OPEN)
K.ERR				;Disconnect request was sent (DISCONNECT_SENT)
K.ERR				;Disconnect request received (DISCONNECT_REC)
K.ERR				;Disconnect response received (DISCONNECT_ACK)	
K.ERR				;Waiting for disconnect response (DISCONNECT_MATCH)

;Received accept-request

FLD(.STARS,K.OP)+FLD(.CSCLO,K.STAT) ;Closed. Send "no match"
K.ERR				;Listening
K.ERR				;Connect_sent
K.ERR				;Connect_received
FLD(.STARS,K.OP)+FLD(.CSOPN,K.STAT) ;Connect_ACK
K.ERR				;Accept_sent
K.ERR				;Reject_sent
K.ERR				;Open
K.ERR				;Disconnect_sent
K.ERR				;Disconnect_rec
K.ERR				;Disconnect_ACK
K.ERR				;disconnect_match
;Received accept_response
;"No match" is handled specially.
;If state is "closed", we must send disconnect_request. This is handled specially.

FLD(.STDRQ,K.OP)+FLD(.CSCLO,K.STAT) ;CLosed
K.ERR				;Listening
K.ERR				;Connect_sent
K.ERR				;Connect_received
K.ERR				;Connect_ACK
FLD(.CSOPN,K.STAT)+K.CHK	;Accept_sent
K.ERR				;Reject_sent
K.ERR				;Open
K.ERR				;Disconnect_sent
K.ERR				;Disconnect_rec
K.ERR				;Disconnect_ACK
K.ERR				;disconnect_match


;Received reject_request

FLD(.STRRS,K.OP)+FLD(.CSCLO,K.STAT) ;Closed
K.ERR				;Listening
K.ERR				;Connect_sent
K.ERR				;Connect_received
FLD(.STRRS,K.OP)+FLD(.CSCLO,K.STAT) ;Connect_ACK
K.ERR				;Accept_sent
K.ERR				;Reject_sent
K.ERR				;Open
K.ERR				;Disconnect_sent
K.ERR				;Disconnect_rec
K.ERR				;Disconnect_ACK
K.ERR				;disconnect_match

;Received reject_response

FLD(.CSCLO,K.STAT)		;Closed
K.ERR				;Listening
K.ERR				;Connect_sent
K.ERR				;Connect_received
K.ERR				;Connect_ACK
K.ERR				;Accept_sent
FLD(.CSCLO,K.STAT)+K.CHK	;Reject_sent
K.ERR				;Open
K.ERR				;Disconnect_sent
K.ERR				;Disconnect_rec
K.ERR				;Disconnect_ACK
K.ERR				;disconnect_match
;Received disconnect_request

FLD(.STDRS,K.OP)+FLD(.CSCLO,K.STAT) ;Closed
K.ERR				;Listening
K.ERR				;Connect_sent
K.ERR				;Connect_received
K.ERR				;Connect_ACK
K.ERR				;Accept_sent
K.ERR				;Reject_sent
FLD(.STDRS,K.OP)+FLD(.CSDRE,K.STAT) ;Open
FLD(.STDRS,K.OP)+FLD(.CSDMC,K.STAT) ;Disconnect_sent
K.ERR				;Disconnect_rec
FLD(.STDRS,K.OP)+FLD(.CSCLO,K.STAT) ;Disconnect_ACK
K.ERR				;disconnect_match


;received disconnect_response

FLD(.CSCLO,K.STAT)		;Closed
K.ERR				;Listening
K.ERR				;Connect_sent
K.ERR				;Connect_received
K.ERR				;Connect_ACK
K.ERR				;Accept_sent
K.ERR				;Reject_sent
K.ERR				;Open
FLD(.CSDAK,K.STAT)+K.CHK	;Disconnect_sent
K.ERR				;Disconnect_rec
K.ERR				;Disconnect_ACK
FLD(.CSCLO,K.STAT)+K.CHK	;disconnect_match


;Received credit_request

FLD(.STCRS,K.OP)		;Closed
K.ERR				;Listening
K.ERR				;Connect_sent
K.ERR				;Connect_received
K.ERR				;Connect_ACK
K.ERR				;Accept_sent
K.ERR				;Reject_sent
FLD(.STCRS,K.OP)		;Open
FLD(.STCRS,K.OP)		;Disconnect_sent
K.ERR				;Disconnect_rec
FLD(.STCRS,K.OP)		;Disconnect_ACK
K.ERR				;disconnect_match
;Received credit_response

0				;Closed
K.ERR				;Listening
K.ERR				;Connect_sent
K.ERR				;Connect_received
K.ERR				;Connect_ACK
K.ERR				;Accept_sent
K.ERR				;Reject_sent
K.CHK				;Open
0				;Disconnect_sent
K.CHK				;Disconnect_rec
0				;Disconnect_ACK
0				;disconnect_match

;Table X - used when sysap calls SCA. For each event, provides new connection
;and block state. Also allows checking for invalid state

	DEFSTR X.ERR,TABLEX,0,1		;Error flag
	DEFSTR X.BSTAT,TABLEX,17,17	;New block state
	DEFSTR X.CSTAT,TABLEX,35,18	;New connection state

;In some cases, the connection state is set when the request is sent,
;rather than when the sysap calls SCA.

	EV.CON==:0		;SC.CON
	EV.LIS==:1		;SC.LIS
	EV.ACC==:2		;SC.ACC
	EV.REJ==:3		;SC.REJ
	EV.DIS==:4		;SC.DIS

;DEFSTRs for table Y. For each block state, provides op code to
;send and new connection state

	DEFSTR (Y.OP,TABLEY,17,18)
	DEFSTR (Y.STAT,TABLEY,35,18)

;Defstrs for table Z. For each op code to be sent, provides length, priority,
;and expected response

	DEFSTR Z.LEN,TABLEZ,17,18
	DEFSTR Z.PRI,TABLEZ,20,3
	DEFSTR Z.RSP,TABLEZ,35,15

;Defstrs for table K. For each incoming packet, provides op code of response
;and new connection state. Also allows checking for protocol violations

	DEFSTR (K.ERR,TABLEK,0,1)
	DEFSTR (K.CHK,TABLEK,1,1)
	DEFSTR (K.OP,TABLEK,17,16)
	DEFSTR (K.STAT,TABLEK,35,18)
	SUBTTL Initialization code

;	XRESCD			;[7.1037]

; Here we start the world of SCA. One of the assumptions that we make here is 
;that the port driver has already run and hence there are system blocks already
;in existance. What we must do here is queue a message receive buffer for each
;of these system blocks. In addition we must init the buffer chain that we will
;use as space for the SCA flow control messages. One buffer per system block
;is allocated at init time. So, what we do here is as follows:
;
; 1. Count how many system blocks there are.
;
; 2. Build a chain of buffers to be queued by the port driver as flow message 
;receive buffers.
;
; 3. Build the chain of send buffer which SCA maintains. (Head pointer: TOPFQ)
;
XRENT	(SCA,G)			;[7.1037]SCA::,XSCA::
	SAVEPQ

   IFN SCARNG,<
	CALL SC.RGI		;Initialize ring buffer
	 CALL SCADIE		;No space, so die
>				;End of IFN SCARNG

	MOVX T1,<1B1>		;Get a very large positive number
	MOVEM T1,SCSTIM		;Init SCS% clock as never going off

	SETZM FQCNT		;Be sure the buffer count is accurate
	SETZM TOPFQ		;Zero the FLINK for the free queue
	XMOVEI T1,TOPFQ		;Get a pointer to the free queue FLINK
	MOVEM T1,BOTFQ		;Init BLINK as pointer to FLINK

	SETZM DFQCNT		;Init datagram buffer count
	SETZM TOPDFQ		;Zero long datagram queue FLINK
	XMOVEI T1,TOPDFQ	;Get a pointer to the top of this queue
	MOVEM T1,BOTDFQ		;Init the BLINK as pointer to FLINK

	SETZM TOPDC		;Zero the dont care queue FLINK
	XMOVEI T1,TOPDC		;Get the address of top of dont care queue
	MOVEM T1,BOTDC		;Save as the bottom of the queue

	MOVX T1,1		;We desire only one page
	CALLX (MSEC1,PGRSKD)	;[7.1037]Get a page of resident memory for us pls..
	 BUG. (HLT,SCANPT,SCAMPI,SOFT,<SCA - No page for CID table>,,<

Cause:	SCA called PGRSKD for a page to put its data tables in.
	The call failed. Nothing can be done without these tables.
>)
	PUSH P,T1		;Save this page addr for a short while
	MOVEM T1,T2		;Set up source addr for BLT
	MOVEM T1,T3		;  and destination addr
	AOS T3			;Make the destination addr source addr+1
	MOVX T1,PGSIZ-1		;Number of words to move
	SETZM (T2)		;Be sure we BLT zeros
	EXTEND T1,[XBLT]	;Zero the table space
	POP P,T1		;Get the table addr again
	MOVEM T1,CIDTAB		;Save the address of the CID table
	ADDI T1,<PGSIZ/2>	;Point to halfway through the page
	MOVEM T1,UBTTAB		;Save this as address of uniqueness table
	MOVX T1,C%CIDL		;Init NXTIDX as one more than highest index
	MOVEM T1,NXTIDX		;.	.	.
	SETZM CIDRFL		;Not doing CIDTAB recycling yet

	SETONE UBITS,T1		;Set all bits in the unique bits field
	LSH T1,-<C%RMBU>	;Right justify said bits
	MOVEM T1,UNQBTS		;Store as the uniquness bits
	AOS UNQBTS		;Init as one more than the first unique bits
	SETZM UNQRFL		;Not doing CID bits recycling yet

; Set buffer thresholds.
;
	SETZM SBCNT		;Init the count of remotes online
	SETZM MXSBCT		;Init the max value of SBCNT
	CALL SC.SBT		;Set msg and dg buffer thresholds

; Set initial levels for both message and datagram buffers.
;
SSC.NX:	MOVE T1,MINMSG		;Get the number of messages to start with
	IDIVI T1,C%MGPG		;(T1) = (number of buffer) / (buffers per page)
	SKIPE T2		;Any remainder???
	AOS T1			;Yes, round up to the next page
	CALLX (MSEC1,PGRSKD)	;[7.1037]Get buffer space from the monitor
	 CALL SCADIE		;If we cannot init, die here pls...
	IMULI T2,C%MGPG		;(T2) = (Number of pages) * (buffers per page)
	ADDM T2,FQCNT		;Update buffer count
	ADDM T2,TOTMGB		;  and count of total buffers created
	MOVX T2,C%MGSZ		;Get the buffer size we desire
	CALL SC.BBF		;Turn it all into quanta sized pieces
	MOVEM T1,TOPFQ		;Set up the pointer to the top of the free q
	MOVEM T2,BOTFQ		;And the pointer to the bottom of the free q
   IFN SCADBG,<
	CALL SC.TMQ		;Trace the message free queue
>				;End of IFN SCADBG

	MOVE T1,MINDG		;Get the number of datagrams to have onhand
	CALLX (MSEC1,PGRSKD)	;[7.1037]Get buffer space from the monitor
	 CALL SCADIE		;If we cannot init, die here pls...
	IMULI T2,C%DGPG		;(T2) = (Number of pages) * (buffers per page)
	ADDM T2,DFQCNT		;Update the buffer count
	ADDM T2,TOTDGB		;  and the count of datagram buffers created
	MOVX T2,C%DGSZ		;Get the buffer size we desire
	CALL SC.BBF		;Turn it all into quanta sized pieces
	MOVEM T1,TOPDFQ		;Set up the pointer to the top of the free q
	MOVEM T2,BOTDFQ		;And the pointer to the bottom of the free q
   IFN SCADBG,<
	CALL SC.TDQ		;Trace the datagram free queue
>				;End of IFN SCADBG

; Allocate the notification table
;
SSC.NN:	MOVEI T1,1		;We only wish one buffer
	CALL <XENT SC.ABF>	;[7.1037]Get a single buffer
	 BUG. (HLT,SCANBL,SCAMPI,SOFT,<SCA - No buffer for online list>,,<

Cause:	SC.ABF was called to get a buffer for the address list to be used
	to call SYSAPs when a node comes online. Without this list no one will
	ever be told when a node comes online and hence we cannot run.
>)
	MOVEM T1,NOTTAB		;Save the address of the list
	ADDI T1,C%MGSZ		;Add the size of the table
	MOVEM T1,NOTEND		;  and save the end address of the table

; Here to init the various SYSAPs...
;
	MOVEI P5,C%SYTL		;Get the length of the SYSAP table
SSC.SI:	SKIPE INITAB(P5)	;Is there an entry for this index???
	CALL @INITAB(P5)	;Yes, call the SYSAP init routine pls...
	SOJGE P5,SSC.SI		;Loop for all SYSAPs pls...
	SETOM SCAINI		;Indicate completion of init code
	RET			;And return...

; Here when we find an unrecoverable error in SCA init.
;
SCADIE:	BUG. (HLT,SCACCI,SCAMPI,SOFT,<SCA - Cannot complete initialization>,,<

Cause:	During the init SCA detected an error it could not recover from. 
	SCADIE is called by the location and the stack points out the 
	faultly phase of init.
>)
	JRST SCADIE		;Just in case we try something silly, like
				;  continue...
	SUBTTL Calls from sysap -- SC.SOA (Set ONLINE address)

; This routine sets the online address. A SYSAP calls
;this routine to tell SCA what address to use, to notify the SYSAP of a node
;coming online.
;
;	Call
;	BLCAL. (SC.SOA,<SS.ADR>)
;
;	Return (+1)
;	T1/	Error code
;
;	Return (+2)
;	No data, address saved for SCA
;
XRENT	(SC.SOA,G)		;[7.1037]SC.SOA::,XSC.SO::
	BLSUB. (<SS.ADR>)
	SAVEAC <Q1>

;Find a free slot in the table.

	MOVE T1,NOTTAB		;Get the address of the notice table
	MOVX T2,C%MGSZ-1	;Get its size
	MOVE T3,SS.ADR		;Get the user provided address
SSO.EL:	SKIPN (T1)		;Is there an entry here?
	JRST SSO.CO		;No.Go store this address
	AOS T1			;Yes. Try for the next entry.
	SOJGE T2,SSO.EL
	BUG. (CHK,SCANLF,SCAMPI,SOFT,<SCA - Notice table full>,,<

Cause:	So many SYSAPs have requested notification of nodes that come on
	and go off line that the table of notification addresses overflowed.
>)
	RETBAD (SCSNRT)		;Return error code

;Store the address. 

SSO.CO:	CIOFF			;DOn't let 2 callbacks happen for one online
	MOVEM T3,(T1)		;Store the address
	SETZM Q1		;Start with node zero

;If a system is already online, tell the sysap. If its system block
;exists, but its v.c. is closed, we will be notified when it is
;reopened.

SSO.LP:	SKIPN T2,SBLIST(Q1)	;Is there a system block
	JRST SSO.YY		;No.
	LOAD T3,SBVCST,(T2)	;Yes. is v.c. open?
	CAIE T3,VC.OPN
	JRST SSO.YY		;No. Don't call the sysap, then.
	MOVEI T1,.SSNCO		;Say why we are calling the SYSAP
	MOVE T2,Q1		;Get node number
	CALL @SS.ADR		;(T1,T2/) Give online notification
	 NOP
SSO.YY:	CAIGE Q1,C%SBLL-1	;Step to next node
	AOJA Q1,SSO.LP
	CION			;Finished with all nodes
	RETSKP
	ENDBS.
	SUBTTL Calls from sysap -- Connection management

; Functions performed within the realm of these routines:
; 1. Connect
; 2. Listen
; 3. Accept
; 4. Reject
; 5. Disconnect
;
; These routines may be called either by SYSAPs within the monitor or by the
;JSYS code 
;These routines implement the SCS connection management protocol. The
;following pictures describes the normal sequence.

COMMENT #

	NODE A				NODE B


call	state		message		state		call
----	-----		-------		-----		----

	closed				listen


SC.CON	conn_sent	conn_req
			------->

			conn_rsp M	conn_rec	.SSCTL
			<-------

	conn_ack


			accept_req	acc_sent	SC.ACC
			<---------

.SSCRA	open		accept_rsp M
			--------->

					open		.SSOSD



SC.DIS	disc_sent	disc_req
			------->

			disc_rsp	disc_rec	.SSRID
			<-------

	disc_ACK



			disc_req	disc_match	SC.DIS
			<-------

	closed *	disc_rsp
			------->

					closed *


* indicates ready to reap

#
	SUBTTL Calls from sysap -- Connection management -- SC.CON (Connect)

;     This routine allocates a connection block and requests a connection.
;
;Usage:
;	Call
;BLCAL. (SC.CON,<SS.SPN,SS.DPN,SS.NOD,SS.MSC,SS.MRC,SS.ADR,SS.SID,SS.DTA,SS.BFR,SS.DGB>)
;
; Where:
;	SS.SPN -- Address of source process name
;	SS.DPN -- Address of destination process name
;	SS.NOD -- System block index of destination system
;	SS.MSC -- Minimum send credit (Level to not allow return of credits)
;	SS.MRC -- Minimum receive credit (Point at which LCL callbacks start)
;	SS.ADR -- Address to call on condition changes for this connection
;	SS.SID -- Six bits of connect ID set by the SYSAP
;	SS.DTA -- Address of SYSAP connection data or zero
;	SS.BFR -- Number of buffers to queue for message reception
;	SS.DGB -- Number of datagram buffers to queue
;
;	Return (+1)
;	T1/	Error code
;
;	Return (+2)
;	T1/	Connect ID
;

XRENT	(SC.CON,G)		;[7.1037]SC.CON::XSC.CON::
	BLSUB. (<SS.SPN,SS.DPN,SS.NOD,SS.MSC,SS.MRC,SS.ADR,SS.SID,SS.DTA,SS.BFR,SS.DGB>)
	SAVEP			;Save the preserved ACs

;Don't do this if the node has never been seen

	MOVE T1,SS.NOD		;Get the SBI 
	SKIPN P4,SBLIST(T1)	;Get the system block address
	RETBAD (SCSISB)		;Doesn't exist. Fail.

;Allocate a connection block and initialize with common data

	MOVE T1,SS.SID		;Get the SYSAP CID bits
	CALL <XENT SC.AIB>	;[7.1037]]Allocate and initialize a connection block
	 RETBAD ()		;Return with the error in T1

;See if the current state is correct (It should be in this case!), and
;get new connection and block states.

	MOVEI T1,EV.CON		;Event is connect call
	CALL SC.OUT		;(T1,P1/T1,T2)
	 BUG. (HLT,SCACFO,SCAMPI,SOFT,<SCA - SC.CON received failure from SC.OUT>,,<

Cause:	SC.CON created a new connection block and then called SC.OUT to
	check its state. The call should never fail.
>)
	DMOVEM T1,P2		;Save new states
	;..
;Store address for calling the sysap into the connection block

	;..
	MOVE T1,SS.ADR		;Get the addr to call SYSAP at
	MOVEM T1,.CBADR(P1)	;Store it in the connection block

; The minimum send credit is the lower boundary allowed for credit cancelation.
;I.E. never sink below this level when canceling credits for the remote.

	MOVE T1,SS.MSC		;Get the minimum send credit
	STOR T1,CBMNSC,(P1)	;Pack it away in the CB pls...

;Store source and destination process names and connection data

	MOVE T1,SS.SPN		;Get a pointer to the source process name
	MOVE T2,SS.DPN		;  and the destination name
	MOVE T3,SS.DTA		;  and a pointer to the connection data
	CALL SC.SDM		;Move the strings and data to the connect block

;Store in the connection block the number of buffers to be queued

	MOVE T1,SS.BFR		;Number of message buffers the user wants
	STOR T1,CBIMB,(P1)	;SC.SNM will look at this later
	MOVE T1,SS.DGB		;Number of datagram buffers the user wants
	STOR T1,CBIDB,(P1)

;Store connection state.

	SKIPE P3		;If we need to change it
	STOR P3,CBCNST,(P1)	;  Store connection state

;Lock the connection block before we link it to the system block. That way,
;if the node goes offline after we link it, processing will be deferred until
;we have finished changing the state.

	CALL SC.LOK		;(P1/) Lock the connection block

;Make the connection block point to the system block, and vice versa

	MOVE T1,SS.NOD		;Get the node number for dest system
	STOR T1,CBDNOD,(P1)	;Store in the CB
	MOVEM P4,.CBSBA(P1)	;Store it in the connection block
	CALL <XENT SC.LCB>	;[7.1037]Link this connection block into list
	 JRST SCO.FL
	;..
;Record this event in the ring buffer if requested

	;..
   IFN SCARNG,<
      	XMOVEI T1,.		;Get feature routine address
	MOVE T2,-1(P6)		;Get caller to feature routine
	MOVE T3,P1		;Get CB address
	CALL RG.SSC		;(T1,T2,T3) Record SYSAP to SCA event
>				;End of IFN SCARNG

	LOAD P5,CBSCID,(P1)	;Get the connect ID while block is locked

;Send the request now, or queue it for later

	SKIPN T1,P2		;Get the new block state
	IFSKP.
	  CALL SC.SCA		;(T1,P1,P4/) Set block state and queue message
	  CALL SC.ULK		;(P1/) Unlock the connection block
	  CALL SC.SNM		;(P4/) Send the message if possible
	ELSE.
	  CALL SC.ULK		;(P1/) Unlock the connection block
	ENDIF.

; Here to set up the returned arg, and return.

	MOVE T1,P5		;Return the connect ID
	RETSKP			;Return success

;V.C. is closed. Don't open the connection

SCO.FL:	MOVEM T1,P3		;Save error code
	CALL SC.ULK		;(P1/) Unlock the connection block (does OKSKED)
	CALL <XENT SC.DAB>	;[7.1037](P1/) Release the connection block
	MOVE T1,P3		;Recover error code
	RETBAD ()
	ENDBS.
	SUBTTL Calls from sysap -- Connection management -- SC.LIS (Listen)

; Here when we wish to listen for a connection, any connection.
;
; Usage:
;	Call
;	BLCAL. (SC.LIS,<SS.SPN,SS.DPN,SS.NOD,SS.ADR,SS.SID,SS.MSC,SS.MRC>)
;
; Where:
;	SS.SPN -- Address of source process name
;	SS.DPN -- Address of destination process name or 0
;	SS.NOD -- System block index or -1
;	SS.ADR -- Address to call on connection condition changes
;	SS.SID -- Six bits of Connect ID setable by the SYSAP
;	SS.MSC -- Minimum send credit 
;			(See SS.CON code comments for more detailed info)
;	SS.MRC -- Minimum receive credit (Ditto)
;
;	Return (+1)
;	T1/	Error code
;
;	Return (+2)
;	T1/	Connect ID
;
; Where a zero in SS.DPN and -1 in SS.NOD indicates a connect from anyone is
;acceptable. A byte pointer and a system block index indicate a
;listen for a particular node.
;
XRENT	(SC.LIS,G)		;[7.1037]SC.LIS::,XSC.LI::
	BLSUB. (<SS.SPN,SS.DPN,SS.NOD,SS.ADR,SS.SID,SS.MSC,SS.MRC>)
	SAVEP			;Save the preserved ACs

	AOS LISTEN		;Count the call to LISTEN

;Don't do this if the node has never been seen

	MOVE T1,SS.NOD		;Get the SBI 
	SKIPN P4,SBLIST(T1)	;Get the system block address
	RETBAD (SCSISB)		;Doesn't exist. Fail.

;Allocate a connection block and initialize with common data

	MOVE T1,SS.SID		;Get the SYSAP CID bits
	CALL <XENT SC.AIB>	;[7.1037]Allocate and initialize a connection block
	 RETBAD ()		;Return with the error in T1
	;..
;See if the current state is correct (It should be in this case!), and
;get new connection and block states.

	;..
	MOVEI T1,EV.LIS		;Event is listen call
	CALL SC.OUT		;(T1,P1/T1,T2)
	 BUG. (HLT,SCALFO,SCAMPI,SOFT,<SCA - SC.LIS received failure from SC.OUT>,,<

Cause:	SC.LIS created a new connection block and then called SC.OUT to
	check its state. The call should never fail.
>)
	DMOVEM T1,P2		;Save new states

;Store address for calling the sysap into the connection block

	MOVE T1,SS.ADR		;Get the addr to call SYSAP at
	MOVEM T1,.CBADR(P1)	;Store it in the connection block

; The minimum send credit is the lower boundary allowed for credit cancelation.
;I.E. never sink below this level when canceling credits for the remote.

	MOVE T1,SS.MSC		;Get the minimum send credit
	STOR T1,CBMNSC,(P1)	;Pack it away in the CB pls...

; Move the source and destination process names. There is no connection
;data allowed on a LISTEN.

	MOVE T1,SS.SPN		;Get address of source process name
	MOVE T2,SS.DPN		;Get address of destination process name
	SETZ T3,		;There is no connect data
	CALL SC.SDM		;Move the process names please

;Store the connection state

	SKIPE P3
	STOR P3,CBCNST,(P1)	;Store new connection state

;Lock the connection block before we link it to the system block. That way,
;if the node goes offline after we link it, processing will be deferred until
;we have finished changing the state.

	CALL SC.LOK		;(P1/) Lock the connection block

;Make the connection block point to the system block, and vice versa

	MOVE T1,SS.NOD		;Get the node number for dest system
	STOR T1,CBDNOD,(P1)	;Store in the CB
	MOVEM P4,.CBSBA(P1)	;Store it in the connection block
	CALL <XENT SC.LCB>	;[7.1037]Link this connection block into list
	 JRST SLI.FL		;Failed. Return error

;This connection is now ready to accept a connect_request.
;Record this event in the ring buffer.

   IFN SCARNG,<
      	XMOVEI T1,.		;Get feature routine address
	MOVE T2,-1(P6)		;Get caller to feature routine
	MOVE T3,P1		;Get CB address
	CALL RG.SSC		;(T1,T2,T3) Record SYSAP to SCA event
>				;End of IFN SCARNG
	LOAD P5,CBSCID,(P1)	;Get connect ID while block is locked
	;..
; Set the new block state. For now, this routine never
;sends a request. The code is identical to the other routines to allow for
;possible changes in the future.

	;..
	JUMPL P4,SCL.CO		;If don't care listener, don't do this
	SKIPN T1,P2		;Get the new block state
	IFSKP.
	  CALL SC.SCA		;(T1,P1,P4/) Set block state and queue message
	  CALL SC.ULK		;(P1/) Unlock the connection block
	  CALL SC.SNM		;(P4/) Send the message if possible
	ELSE.
SCL.CO:	  CALL SC.ULK		;(P1/) Unlock the connection block
	ENDIF.

;Return success, providing connect ID

	MOVE T1,P5		;Get connect ID saved earlier
	RETSKP			;Tell the caller we made out OK

SLI.FL:	MOVEM T1,P3		;Save error code
	CALL SC.ULK		;(P1/) Unlock the connection block (does OKSKED)
	CALL <XENT SC.DAB>	;[7.1037](P1/) Release the connection block
	MOVE T1,P3		;Recover error code
	RETBAD ()

	ENDBS.
	SUBTTL Calls from sysap -- Connection management -- SC.ACC (Accept)

; Here when we are accepting a request from the outside for a connection.
;I.E. Allow a connect...
;
; Usage:
;	Call
;	BLCAL.	(SC.ACC,<SS.CID,SS.DTA,SS.BFR,SS.DGB>)
;
; Where:
;	SS.CID -- Connect ID
;	SS.DTA -- Address of initial connection data or zero
;	SS.BFR -- Number of buffers to be queued for message reception
;	SS.DGB -- Number of buffers to queue for datagram reception
;
;	Return (+1)
;	T1/	Failure code
;
;	Return (+2)
;	T1/	Address of initial connect data
;
XRENT	(SC.ACC,G)		;[7.1037]SC.ACC::,XSC.AC::
	BLSUB. (<SS.CID,SS.DTA,SS.BFR,SS.DGB>)
	SAVEP			;Save the preserved ACs

	MOVE T1,SS.CID		;Get connect ID
	CALL SC.CAL		;(T1/T1,P1) Check validity, and lock
	 RETBAD()		;Return failure

   IFN SCARNG,<
      	XMOVEI T1,.		;Get feature routine address
	MOVE T2,-1(P6)		;Get caller to feature routine
	MOVE T3,P1		;Get CB address
	CALL RG.SSC		;(T1,T2,T3) Record SYSAP to SCA event
>				;End of IFN SCARNG

;See if the current state is correct, and get new connection and block states.

	MOVEI T1,EV.ACC		;Event is accept call
	CALL SC.OUT		;(T1,P1/T1,T2)
	 RETBAD (,<CALL SC.ULK>) ;Illegal. Return failure
	DMOVEM T1,P2		;Save new states

;Store in the connection block the optional data to be sent to the
;other end.

	SKIPN T2,SS.DTA		;Is there any data to move???
	JRST SCA.OK		;No. Continue
	MOVEI T1,C%DTLW		;Yes, get its length in words
	XMOVEI T3,.CBDTA(P1)	;Destination addr in CB for connect data
	XBLT. T1		;Copy the data
	;..
;Store in the connection block the number of buffers to be queued

	;..
SCA.OK:	MOVE T1,SS.BFR		;Number of message buffers the user wants
	STOR T1,CBIMB,(P1)	;SC.SNM will look at this later
	MOVE T1,SS.DGB		;Number of datagram buffers the user wants
	STOR T1,CBIDB,(P1)

; Set the new connection and block states

	SKIPE P3
	STOR P3,CBCNST,(P1)	;Store new connection state
	SKIPN T1,P2		;Get new block state
	IFSKP.
	  MOVE P4,.CBSBA(P1)	;Get the address of the system block
	  CALL SC.SCA		;(T1,P1,P4/) Set block state and queue message
	  CALL SC.ULK		;(P1/) Unlock the connection block
	  CALL SC.SNM		;(P4/) Send the message if possible
	ELSE.
	  CALL SC.ULK		;(P1/) Unlock the connection block
	ENDIF.
	RETSKP

	ENDBS.
	SUBTTL Calls from sysap -- Connection management -- SC.REJ (Reject)

; Here to reject a connect request.
;
; Usage:
;	Call
;	BLCAL. (SC.REJ,<SS.CID>,<SS.RJR>)
;
; Where:
;	SS.CID -- Connect ID
;	SS.RJR -- Reject reason code
;
;	Return (+1)
;	T1/	Failure code
;
;	Return (+2)
;	No data is returned by this routine
;
XRENT	(SC.REJ,G)		;[7.1037]SC.REJ::,XSC.RE::
	BLSUB. (<SS.CID,SS.RJR>)
	SAVEAC <P1,P2,P4>

	MOVE T1,SS.CID		;Get connect ID
	CALL SC.CAL		;(T1/T1,P1) Check validity, and lock
	 RETBAD()		;Return failure

   IFN SCARNG,<
      	XMOVEI T1,.		;Get feature routine address
	MOVE T2,-1(P6)		;Get caller to feature routine
	MOVE T3,P1		;Get CB address
	CALL RG.SSC		;(T1,T2,T3) Record SYSAP to SCA event
>				;End of IFN SCARNG

;See if the current state is correct, and get new connection and block states.

	MOVEI T1,EV.REJ		;Event is reject call
	CALL SC.OUT		;(T1,P1/T1,T2)
	 RETBAD (,<CALL SC.ULK>) ;Illegal. Return failure

	MOVE T3,SS.RJR		;Obtain the disconnect reason
	STOR T3,CBSDRE,(P1)	;Place reject reason into CB

;Store connection and block states and send message, if any

	SKIPE T2
	STOR T2,CBCNST,(P1)	;Store connection state
	SKIPN T1
	IFSKP.
	  MOVE P4,.CBSBA(P1)	;Get the address of the system block
	  CALL SC.SCA		;(T1,P1,P4/) Set block state and queue message
	  CALL SC.ULK		;(P1/) Unlock the connection block
	  CALL SC.SNM		;(P4/) Send the message if possible
	ELSE.
	  CALL SC.ULK		;(P1/) Unlock the connection block
	ENDIF.
	RETSKP			;All done, return.

	ENDBS.
	SUBTTL Calls from sysap -- Connection management -- SC.DIS (Disconnect)

; Here to close a connection.
;
; Usage:
;	Call
;	BLCAL.	(SC.DIS,<SS.CID,SS.DIR>)
;
; Where:
;	SS.CID -- Connect ID
;	SS.DIR -- Disconnect reason
;
;	Return (+1)
;	T1/	Failure code
;
;	Return (+2)
;	No data is returned by this routine
;

;This routine may be called in any context. If at interrupt level, it
;honors the connection block lock after verifying that the current
;state allows disconnection, and saving the reason code. If at non-
;interrupt level, it uses CIOFF while changing the state. This locks
;out interruption from SC.DRQ, SC.ARQ, SC.ARS, SC.ORQ.

XRENT	(SC.DIS,G)		;[7.1037]SC.DIS::,XSC.DI::
	BLSUB.	(<SS.CID,SS.DIR>)
	SAVEP

	CIOFF			;Don't let state change
	MOVE T1,SS.CID		;Get connect ID
	CALL <XENT SC.CSC>	;[7.1037](T1/T1,P1) Check validity
	 RETBAD(,<CION>)	;Return failure

   IFN SCARNG,<
      	XMOVEI T1,.		;Get feature routine address
	MOVE T2,-1(P6)		;Get caller to feature routine
	MOVE T3,P1		;Get CB address
	CALL RG.SSC		;(T1,T2,T3) Record SYSAP to SCA event
>				;End of IFN SCARNG

;See if the current state is correct, and get new connection and block states.

	MOVEI T1,EV.DIS		;Event is disconnect call
	CALL SC.OUT		;(T1,P1/T1,T2)
	 RETBAD (,<CION>)	;Illegal. Return failure
	DMOVEM T1,P2		;Save new states

;Copy caller's reason into the connection block

	MOVE T3,SS.DIR		;Get the disconnect reason
	STOR T3,CBSDRE,(P1)	;Store it in the connect block
	;..
;We've done all we can if someone has the c.b. locked. So check that,
;and quit if it's true. (We must be at interrupt level, then.) Otherwise,
;lock it and continue. If we can't continue, the unlock routine will
;complete this function.

	;..
	MOVX T1,CBFDIS		;Set this bit if we have to wait
	CALL SC.HNR		;(T1,P1/) See if lock is locked
	IFNSK.
	  CION			;We're at interrupt level, and
	  RETSKP		; someone beat us to it.
	ENDIF.

;We got the lock.
;If old state was "listen", indicate protocol is complete.

	LOAD T3,CBCNST,(P1)	;Get old state
	CAIE T3,.CSLIS		;Listening?
	IFSKP.
	  MOVEI T3,.CSCLO	;Force its state to "closed"
	  STOR T3,CBCNST,(P1)
	  CALL SC.PTC		;(P1/) declare protocol complete
	  CION
	  RETSKP		;Finished. Return success
	ENDIF.

;Store connection and block states and send message, if any

	SKIPE P3
	STOR P3,CBCNST,(P1)	;Store new connection state
	SKIPN T1,P2		;Get new block state
	IFSKP.
	  MOVE P4,.CBSBA(P1)	;Get the address of the system block
	  CALL SC.SCA		;(T1,P1,P4/) Set block state and queue message
	  CION			;Changes in state are OK now
	  CALL SC.SNM		;(P4/) Send the message if possible
	ELSE.
	  CION			;Allow changes in state now
	ENDIF.
	RETSKP			;Return all OK
	ENDBS.
;SC.FN2 - Finish function of SC.DIS when unlocking a c.b.

;Accepts:
;	P1/ address of c.b.
;	P4/ address of system block

;	CALL SC.FN2

;Returns +1: always

;This is called when the owner of a c.b. is about to unlock it.
;The c.b. is still locked, and we return with it in that condition.
;Since it is locked, we don't call SC.SNM, but set a bit so that the
;unlocker will do so.

SC.FN2:
	SETZRO CBFDIS,(P1)	;Clear indication that this was deferred

;If old state was "listen", indicate protocol is complete

	LOAD T3,CBCNST,(P1)	;Get old state
	CAIE T3,.CSLIS		;Listening?
	IFSKP.
	  MOVEI T3,.CSCLO	;Force its state to "closed"
	  STOR T3,CBCNST,(P1)
	  CALL SC.PTC		;(P1/) declare protocol complete
	  SETONE CBFRAP,(P1)	;Mark as reapable (in case JSYS connection)
	  SETONE CIREP		;TELL CIFORK TO RUN
	  RET			;Nothing more to do
	ENDIF.

;Connection state may have changed since SC.DIS was first called. Make
;sure a disconnect is still legal, and get new states.

	MOVEI T1,EV.DIS		;Event is disconnect call
	CALL SC.OUT		;(T1,P1/T1,T2) Get new states
	 BUG. (HLT,SCAFN2,SCAMPI,SOFT,<SCA - Can't complete deferred call to SC.DIS>,,<

Cause:	A sysap called SCAMPI at SC.DIS when the connection block was locked.
	The connection block is being unlocked, and the	request is being 
	processed. SC.OUT has returned failure, indicating that this
	function can't be performed for the current state. There is no way
	to return that failure to the sysap, which believes that the
	disconnect has proceeded normally. The system will crash to determine 
	the cause.

Action:	It may be impossible to analyze this from the current data.
	If the ring buffer was enabled, try to determine the sequence of
	events. Look at the current state of the connection block, and try
	to see why SC.OUT failed.

>)

;Store connection and block states. If new block state is non-zero,
;we want to send a disconnect_request. Queue the block, and flag the
;unlock code to call SC.SNM

	SKIPE T2		;Zero means no change
	STOR T2,CBCNST,(P1)	;Store new connection state
	IFN. T1			;Get new block state
	  CALL SC.SCA		;(T1,P1,P4/) Set block state and queue message
	  SETONE CBFSNM,(P1)	;Indicate call to SC.SNM was deferred
	ENDIF.
	RET
	SUBTTL Calls from sysap -- Messages and datagrams -- SC.SDG (Send a datagram)

; Usage:
;	Call
;	BLCAL.	(SC.SDG,<SS.CID,SS.FLG,SS.LDG,SS.ADG>)
;
; Where:
;	SS.CID -- Connect ID
;	SS.FLG -- Flag word (See SCAPAR.MAC)
;	SS.LDG -- Len of datagram (in bytes)
;	SS.ADG -- Address of datagram buffer
;	SS.PRI -- Priority for packet send
;	SS.PTH -- Path to send the packet on
;			0 -- Auto path select
;			1 -- Use path A
;			2 -- Use path B
;
;	Return (+1)
;	T1/	Failure code
;
;	Return (+2)
;	No data is returned by this routine,datagram sent
;
; ** Note **
;	The address of the datagram buffer points to the bottom of the
;header area. The offset to where user data begins is (.MHUDA) 
;
XRENT	(SC.SDG,G)		;[7.1037]SC.SDG::,XSC.SD::
	BLSUB.	(<SS.CID,SS.FLG,SS.LDG,SS.ADG,SS.PRI,SS.PTH>)
	SAVEAC <P1,P2,P3,P4>

;Validate the arguments and check the state of the connection.

	MOVE T1,SS.CID		;Get connect ID
	CALL SC.CAL		;(T1/T1,P1) Check validity, and lock
	 RETBAD ()		;Return failure
	LOAD T1,CBCNST,(P1)	;Get the connection state
	CAIE T1,.CSOPN		;Is the connection open?
	RETBAD (SCSCWS,<CALL SC.ULK>) ;No. Return failure

	;..
;Check the length, and add SCA overhead

	;..
	MOVE T1,SS.LDG		;Get the length of the datagram
	MOVX T2,F.SPM		;Get the mode flag bit
	TDNE T2,SS.FLG		;Are we doing high density mode???
	IFNSK.
	  ADDI T1,C%OVHW	;Yes, add overhead in words, not bytes
	  CAILE T1,C%WORD	;Is datagram longer than we should be sending??
	  RETBAD (SCAPTL,<CALL SC.ULK>) ;Yes, complain
	ELSE.
	  ADDI T1,C%OVHD	;No, add overhead size in bytes
	  CAILE T1,C%BYTD	;Is the datagram larger than I can send???
	  RETBAD (SCAPTL,<CALL SC.ULK>) ;Message is too long. Fail
	ENDIF.
	MOVEM T1,SS.LDG		;Store for later port call

;Add the SCA header to the packet we have been passed.

	MOVE P2,SS.ADG		;Get address of packet
	SETZRO MH$CDT,(P2)	;Zero the credit field
	MOVEI P3,.STADG		;Get the packet type (Application datagram)
	STOR P3,MH$MSG,(P2)	;Place the packet type in the datagram header
	LOAD T2,CBDCID,(P1)	;Get the destination connect ID
	STOR T2,MH$DCI,(P2)	;Put it in the message header
	LOAD T2,CBSCID,(P1)	;Get the source connect ID now
	STOR T2,MH$SCI,(P2)	;This also goes into the message header

;If sysap wants the buffer back, count this among its queued buffers.

	MOVX T1,F.RTB		;Packet return status flag
	TDNN T1,SS.FLG		;Is sysap getting this packet back?
	IFSKP.
	  INCR CBNPO,(P1)	;Yes, increment count of outstanding packets
	ELSE.
	  AOS .CBDGR(P1)	;No. Count this as queued for incoming datagram
	ENDIF.

;Record the sending of a packet in the ring buffer

	MOVE P4,.CBSBA(P1)	;Get a pointer to the system block 
   IFN SCARNG,<
      	XMOVEI T1,.		;Get feature routine address
	MOVE T2,-1(P6)		;Get caller to feature routine
	MOVE T3,SS.FLG		;Get flags
	HRLZ T4,SS.PRI		;Position priority correctly
	HRR T4,SS.LDG		; and get packet length
	CALL RG.PKT		;(T1,T2,T3,T4,P2,P4) Record packet transmission
>				;End of IFN SCARNG
	;..
;Pass the buffer off to the port driver, which will send it to the node

	;..
	CALL SC.ROU		;Byte swap the header for output
	BLCAL. (<@[MSEC1,,SNDDG]>,<SS.LDG,SS.FLG,P4,P2,SS.PRI>)	;[7.1037]
	 JRST SSD.ER		;Handle the error
	AOS SNDTAB(P3)		;Increment send count for this type of packet
	CALL SC.ULK		;(P1/) Unlock the connection block
	RETSKP			;Return OK.

; Here on an error. Undo the counting that we did, and return failure.
;If we had counted up this buffer as being on the free queue, put one
;there. It's possible that we've already dequeued one while the count was
;incremented, so we can't just decrement it.

SSD.ER:	MOVX T2,F.RTB		;The packet return status flag again
	TDNN T2,SS.FLG		;Did we bump the pending packet count?
	IFSKP.
   IFN SCADBG,<
	  LOAD T2,CBNPO,(P1)	;Get outstanding packet count
	  SKIPG T2		;Is it greater than zero?
	  BUG. (HLT,SCANP1,SCAMPI,SOFT,<SCA - CBNPO about to go negative>,,<

Cause:	The count is already zero or less when the count of queued buffers 
	for a connection block is to be decremented. 
>)
   >				;END OF IFN SCADBG
	  DECR CBNPO,(P1)	;Yes, packet send failed, fix count
	ELSE.
	  MOVEI T1,1		;No. We counted this as queued for input
	  CALL <XENT SC.ALD>	;[7.1037](T1/T1,T2,T3) Get a buffer from SCA
	   JRST SSD.EX		;Couldn't get one
   IFN SCARNG,<
	  BLOCK.
	    SAVEAC <T1>		;Save smashed AC
	    MOVE T4,T1		;Get buffer address
	    XMOVEI T1,.		;Get feature routine address
	    MOVE T2,-1(P6)	;Get PC of caller to feature routine
	    MOVEI T3,1		;Set buffer count
	    TXO T3,RPQFLK   	;Set port link flag
	    TXZ T3,RPQFMG   	;Clear message free queue flag since datagram
	    CALL RG.PQM		;(T1,T2,T3,T4,P4) Record port manipulation
	  ENDBK.
>				;End of IFN SCARNG
	  BLCAL. (<@[MSEC1,,LNKDFQ]>,<P4,T1>) ;[7.1037]Link buffer chain onto Datagram Free queue
	ENDIF.
SSD.EX:	CALL SC.ULK		;(P1/) Unlock the connection block
	RETBAD ()		;Return with error code in T1
	ENDBS.
	SUBTTL Calls from sysap -- Messages and datagrams -- SC.SMG (Send a message)

; Here to send a sequenced data message.
;
; Usage:
;	Call
;	BLCAL.	(SC.SMG,<SS.CID,SS.FLG,SS.LMG,SS.AMG,SS.PRI,SS.TSH,SS.PTH>)
;
; Where:
;	SS.CID -- Connect ID
;	SS.FLG -- Flag word (See SCAPAR.MAC)
;	SS.LMG -- Length of message in bytes
;	SS.AMG -- Address of message buffer
;	SS.PRI -- Priority to give message
;	SS.TSH -- Allow send only if more than this many send credits exist
;	SS.PTH -- Path to send packet on
;			0 -- Auto path select
;			1 -- Use path A
;			2 -- Use path B
;
;	Return (+1)
;	T1/	Failure code
;
;	Return (+2)
;	No data returned
;
XRENT	(SC.SMG,G)		;[7.1037]SC.SMG::,XSC.SM::
	BLSUB.	(<SS.CID,SS.FLG,SS.LMG,SS.AMG,SS.PRI,SS.TSH,SS.PTH>)
	SAVEP			;Save the quasi preserved ACs

;Validate the arguments and check the state of the connection.

	MOVE T1,SS.CID		;Get connect ID
	CALL SC.CAL		;(T1/T1,P1) Check validity, and lock
	 RETBAD ()		;Return failure
	LOAD T1,CBCNST,(P1)	;Get the connection state
	CAIE T1,.CSOPN		;Is the connection open?
	RETBAD (SCSCWS,<CALL SC.ULK>) ;No. Return failure

	;..
;Check the length, and add SCA overhead

	;..
	MOVE T1,SS.LMG		;Get the length of the message
	MOVX T2,F.SPM		;Get the mode flag bit
	TDNE T2,SS.FLG		;Are we doing high density mode???
	IFNSK.
	  ADDI T1,C%OVHW	;Yes, add overhead in words, not bytes
	  CAILE T1,C%WORM	;Is message longer than we should be sending???
	  RETBAD (SCAPTL,<CALL SC.ULK>) ;Yes, complain
	ELSE.
	  ADDI T1,C%OVHD	;No, add overhead size in bytes
	  CAILE T1,C%BYTM	;Is the message larger than I can send???
	  RETBAD (SCAPTL,<CALL SC.ULK>) ;Message is to long, fail the send attempt
	 ENDIF.
	MOVEM T1,SS.LMG		;Store for later port call

;Don't send if we don't have enough send credit. We must have more than the
;threshold provided by the caller.

	SOS T1,.CBSCD(P1)	;Decrement send credit
	CAML T1,SS.TSH		;Do we have more than the threshold?
	IFSKP.
	  AOS .CBSCD(P1)	;No. Put it back where we found it, then
	  SETONE CBFNNC,(P1)	;Set the flag to notify on credit gain
	  RETBAD (SCSNEC,<CALL SC.ULK>) ;Return to caller with error code
	ENDIF.

;If pending receive credit is positive, we need to tell the other side
;that it can have more credit, so put that value into the packet.
;And because it's no longer pending, add it into receive credit.
;If the sysap doesn't want the buffer back, that's one more receive credit.
;If we increment pending receive credit, and it was negative, count
;this as a successful cancel.

	CIOFF			;Turn off interrupts for the moment
	MOVX T1,F.RTB		;Get the response bit
	TDNE T1,SS.FLG		;Does sysap want this buffer back?
	IFSKP.
	  AOS T2,.CBPRC(P1)	;No. Increment pending receive credit
	  SKIPG T2		;Had we been waiting to cancel some?
	  AOS .CBRTC(P1)	;Yes. Count this as return credit.
	ENDIF.
	SKIPG T2,.CBPRC(P1)	;Is pending receive credit now positive?
	IFSKP.
	  ADDM T2,.CBRCD(P1)	;Yes. Add this into receive credit
	  SETZM .CBPRC(P1)	;It's no longer pending
	ELSE.
	  SETZM T2		;Negative. No credit in the packet
	ENDIF.
	CION			;Turn CI interrupts on again
	;..
;Add the SCA header to the packet we have been passed.

	;..
	MOVE P2,SS.AMG		;Get address of packet
	STOR T2,MH$CDT,(P2)	;Store the credit field into the header
	MOVEI P3,.STAMG		;Get the message type
	STOR P3,MH$MSG,(P2)	;Put the message type into the message header
	LOAD T2,CBDCID,(P1)	;Get the detination connect ID
	STOR T2,MH$DCI,(P2)	;Put it up in the message header
	LOAD T2,CBSCID,(P1)	;Get the source connect ID now
	STOR T2,MH$SCI,(P2)	;This also goes into the message header

;If sysap wants the buffer back, count this among its queued buffers.

	MOVX T1,F.RTB		;Get the buffer return status flag
	TDNN T1,SS.FLG		;Does sysap get this buffer back?
	IFSKP.
	  INCR CBNPO,(P1)	;Yes, bump count of outstanding packets
	ENDIF.

;Record the sending of a packet

	MOVE P4,.CBSBA(P1)	;Get the address of the system block
   IFN SCARNG,<
      	XMOVEI T1,.		;Get feature routine address
	MOVE T2,-1(P6)		;Get caller to feature routine
	MOVE T3,SS.FLG		;Get flags
	HRLZ T4,SS.PRI		;Position priority correctly
	HRR T4,SS.LMG		; and get packet length
	CALL RG.PKT		;(T1,T2,T3,T4,P2,P4) Record packet transmission
>				;End of IFN SCARNG

;Pass the buffer off to the port driver, which will send it to the node

	CALL SC.ROU		;Revert certain words in outgoing message
	BLCAL. (<@[MSEC1,,SNDMSG]>,<SS.LMG,SS.FLG,P4,P2,SS.PRI>) ;[7.1037]Call the port driver
	 JRST SSM.ER		;Handle the error
	AOS SNDTAB(P3)		;Bump the sent message count

;We may have incremented return_credit. If so, reclaim a buffer.

	CALL SC.GCB		;(P1,P4/)Get a canceled buffer, if any
	CALL SC.ULK		;(P1/) Unlock the connection block
	RETSKP			;All ok.
; Here on an error from the port driver.
;If we had incremented credit because of this buffer, we may have
;taken the buffer off the port's free queue by now. We can't just decrement
;the count, so we give the port a buffer.

SSM.ER:
	AOS .CBSCD(P1)		;We didn't use the send credit after all
	CIOFF			;Interlock credit database
	LOAD T2,MH$CDT,(P2)	;Get the credit field back from the packet
	ADDM T2,.CBPRC(P1)	;Turn it back into pending credit
	MOVNS T2		;Get negative count
	ADDM T2,.CBRCD(P1)	;Update the credit count in the CB
	CION			;Release the interlock
	MOVX T2,F.RTB		;Packet return status flag
	TDNN T2,SS.FLG		;Did we bump the pending packet count
	IFSKP.
   IFN SCADBG,<
	  LOAD T2,CBNPO,(P1)	;Get outstanding packet count
	  SKIPG T2		;Is it greater than zero?
	  BUG. (HLT,SCANP2,SCAMPI,SOFT,<SCA - CBNPO about to go negative>,,<

Cause:	We are about to decrement the count of queued buffers for a
	particular connection block, but the count is already zero or less.
>)
   >				;END OF IFN SCADBG
	  DECR CBNPO,(P1)	;Yes, packet didn't go, correct count
	ELSE.
	  MOVEI T1,1		;No. We counted this as queued for input
	  CALL <XENT SC.ABF>	;[7.1037](T1/T1,T2,T3) Get a buffer from SCA
	   JRST SSM.EX
   IFN SCARNG,<
	  BLOCK.
	    SAVEAC <T1>		;Saved smashed AC
	    MOVE T4,T1		;Get buffer address
	    XMOVEI T1,.		;Get feature routine address
	    MOVE T2,-1(P6)	;Get PC of caller to feature routine
	    MOVEI T3,1 		;Get buffer count
	    TXO T3,RPQFLK	;Set port link flag
	    TXO T3,RPQFMG	;Set message free queue flag
	    CALL RG.PQM		;(T1,T2,T3,T4,P4) Record port manipulation
	  ENDBK.
>				;End of IFN SCARNG
	  BLCAL. (<@[MSEC1,,LNKMFQ]>,<P4,T1>) ;[7.1037]Link buffer onto message free queue
	ENDIF.
SSM.EX:	CALL SC.ULK		;(P1/) Unlock the connection block
	RETBAD ()		;Return with PPD error code
	ENDBS.
	SUBTTL Calls from sysap -- Messages and datagrams -- SC.RDG (Receive a datagram)

; This routine queues buffers for reception of datagrams.
;
; Usage:
;	Call
;	BLCAL.	(SC.RDG,<SS.CID,SS.NUM,SS.ADR>)
;
; Where:
;	SS.CID -- Connect ID
;
;	If SS.ADR is zero then:
;	SS.NUM -- Number of buffers to queue
;
;	If SS.ADR is non-zero, then:
;	SS.NUM is ignored, and
;	SS.ADR -- Address of the buffer to queue. Note that this
;		buffer must be a buffer procured from SCA. This means it has
;		been used as a datagram buffer before. This is handy for those
;		time you are done with an SCA datagram buffer and wish to
;		requeue it. It eliminated the need for two calls to SCA...
;
;	Return (+1)
;	T1/	Number of buffers actually queued
;
;	Return (+2)
;	Buffer(s) have been queued to receive datagrams.
;

;NOTE: SC.RDG and SC.RMG are almost identical. If you need to change one,
;you'll probably need to change the other.

XRENT	(SC.RDG,G)		;[7.1037]SC.RDG::,XSC.RD::
	BLSUB.	(<SS.CID,SS.NUM,SS.ADR>)
	SAVEAC <P1,P4>
	MOVE T1,SS.CID		;Get user's connect ID
	CALL SC.CAL		;(T1/T1,P1) Check validity, and lock
	 RETBAD ()		;No. return failure
	MOVE P4,.CBSBA(P1)	;Get the address of the system block
	SKIPN T1,SS.ADR		;Did user provide address of buffer?
	IFSKP.
	  SETZM (T1)		;Yes. Clear its FLINK
	  MOVEI T2,1		;Number of buffers is 1
	ELSE.
	  MOVE T1,SS.NUM	;Get number of buffers desired
	  CALL <XENT SC.ALD>	;[7.1037](T1/T1,T2,T3) Create the buffers
	   RETBAD (,<CALL SC.ULK>) ;Can't get them. Return failure
	ENDIF.
	CALL SCL.DC		;(T1,T2,P1,P4/) Queue the buffers to the port
	CALL SC.ULK		;(P1/) Unlock the connection block
	RETSKP			;And return all OK
	ENDBS.
	SUBTTL Calls from sysap -- Messages and datagrams -- SC.RMG (Receive a message)

; Here to queue a buffer to receive a sequenced message.
;
; Usage:
;	Call
;	BLCAL.	(SC.RMG,<SS.CID,SS.NRB,SS.ADR>)
;
; Where:
;	SS.CID -- Connect ID
;
;	SS.NUM -- If SS.ADR is zero then this is the number of buffers 
;			to be queued for message reception.
;		  If SS.ADR is non-zero, then this is the number of buffers
;			in the chain pointed to by SS.ADR.
;
;	SS.ADR -- Address of message buffer (Optional)
;		  If SS.ADR is zero then a buffer is taken from the SCA
;		message buffer free queue. If it is non-zero, then it
;		is assumed that no problems will arise if the buffer
;		is returned to the SCA pool. Since it may end up in
;		the SCA pool it must be the length of all other buffers
;		in the pool, must have come from the general free
;		pool,and must be resident.
;
;	Return (+1)
;	T1/	Failure code
;
;	Return (+2)
;	Buffer has been queued.
;

;NOTE: SC.RDG and SC.RMG are almost identical. If you need to change one,
;you'll probably need to change the other.

XRENT	(SC.RMG,G)		;[7.1037]SC.RMG::,XSC.RM::
	BLSUB.	(<SS.CID,SS.NUM,SS.ADR>)
	SAVEAC <P1,P3,P4>
	MOVE T1,SS.CID		;Get user's connect ID
	CALL SC.CAL		;(T1/T1,P1) Check validity, and lock
	 RETBAD ()		;No. return failure
	MOVE P4,.CBSBA(P1)	;Get the address of the system block
	SKIPN T1,SS.ADR		;Did user provide address of buffer?
	IFSKP.
	  SETZM (T1)		;Yes. Clear its FLINK
	  MOVEI T2,1		;Number of buffers is 1
	ELSE.
	  MOVE T1,SS.NUM	;Get number of buffers desired
	  CALL <XENT SC.ABF>	;[7.1037](T1/T1,T2,T3) Create the buffers
	   RETBAD (,<CALL SC.ULK>) ;Can't get them. Return failure
	ENDIF.
	;..
	;..

;If we had been waiting to cancel some buffers, increment return
;credit for as many buffers as possible

	MOVE P3,T2		;Save buffer count
   IFN SCARNG,<
	BLOCK.
	  SAVEAC <T1>		;Saved smashed AC
	  MOVE T4,T1		;Get buffer address
	  XMOVEI T1,.		;Get feature routine address
	  MOVE T2,-1(P6)	;Get PC of caller to feature routine
	  MOVE T3,P3		;Get buffer count
	  TXO T3,RPQFLK		;Set port link flag
	  TXO T3,RPQFMG		;Set message free queue flag
	  CALL RG.PQM		;(T1,T2,T3,T4,P4) Record port manipulation
	ENDBK.
>				;End of IFN SCARNG
	BLCAL. (<@[MSEC1,,LNKMFQ]>,<P4,T1>) ;[7.1037]Link buffer chain onto Message Free queue
	CIOFF
	MOVE T2,.CBPRC(P1)	;Save current pending receive count
	ADDM P3,.CBPRC(P1)	;Update to include new buffers
	JUMPGE T2,SCR.EX	;If always positive, nothing more to do
	SKIPLE .CBPRC(P1)	;Previously negative. Is it still?
	IFSKP.
	  ADDM P3,.CBRTC(P1)	;Yes. Reclaim all the buffers, then
	ELSE.
	  MOVMS T2		;No. Take only the number we wanted
	  ADDM T2,.CBRTC(P1)
	ENDIF.

;We may want to send a credit_request. SC.CDT will queue the connection
;block to the system block work queue if we need to send the request.
;If so, we must call SC.SNM to do the sending after we unlock the
;connection block.

SCR.EX:	CION
	CALL SC.GCB		;(P1,P4/) Get canceled buffer, if any
	SETOM P3		;Assume we'll need to send something
	CALL SC.CDT		;(P1,P4/) Queue credit request if needed
	 SETZM P3		;Don't need to send a message
	CALL SC.ULK		;(P1/) Unlock the connection block
	SKIPE P3		;Need to send the request?
	CALL SC.SNM		;(P4/) Yes. Send next message
	RETSKP			;And return all OK
	ENDBS.
	SUBTTL Calls from sysap -- Messages and datagrams -- SC.CRD (Cancel Receive datagram)

; Here to dequeue a datagram buffer.
;
; Usage:
;	Call
;	BLCAL.	(SC.CRD,<SS.CID,SS.NBF>)
;
; Where:
;	SS.CID -- Connect ID
;	SS.NUM -- Number of buffers to dequeue
;
;	Return (+1)
;	T1/	Failure code
;
;	Return (+2)
;	No data returned, buffers dequeued.
;
XRENT	(SC.CRD,G)		;[7.1037]SC.CRD::,XSC.CR::
	BLSUB.	(<SS.CID,SS.NUM>)
	SAVEAC <P1,P4>
	MOVE T1,SS.CID		;Get user's connect ID
	CALL SC.CAL		;(T1/T1,P1) Check validity, and lock
	 RETBAD ()		;No. return failure
	SKIPE T1,SS.NUM		;Get the number of buffers desired
	IFSKP.
	  CALL SC.ULK		;(P1/) Unlock the connection block
	  RETSKP		;Nothing to do (but why?)
	ENDIF.
	MOVE P4,.CBSBA(P1)	;Get the system block address
SCR.BL:	SOSL .CBDGR(P1)		;Reduce number of queued buffers
	IFSKP.
	  AOS .CBDGR(P1)	;Didn't have that many. Restore count
	  RETBAD (SCSNEB,<CALL SC.ULK>) ;Return failure
	ENDIF.
	BLCAL. (<@[MSEC1,,ULNKDG]>,<P4>) ;[7.1037](/T1) Unlink a datagram buffer
	IFNSK.
	  EXCH T1,P4		;Save error code, get system block address
	  LOAD T1,SBDPA,(T1)	;Get node number
	  LOAD T2,CBSCID,(P1)	;Get connect ID
	  MOVE T3,SS.NUM	;Number we still need
	  BUG. (CHK,SCACCD,SCAMPI,SOFT,<SCA - Can't cancel datagram buffer>,<<T1,NODE>,<T2,CID>,<T3,COUNT>>,<

Cause:	A sysap has done the "cancel receive datagram" function of SCA, and
	the port's queue did not contain as many buffers as the system believes
	it should contain.

Data:	NODE  - Node number
	CID   - Connect ID
	COUNT - Number of buffers we couldn't get
>)
	  AOS .CBDGR(P1)	;Shouldn't have decremented count in this case
   IFN SCARNG,<
	  XMOVEI T1,.		;Get feature routine address
	  MOVE T2,-1(P6)	;Get PC of caller to feature routine
	  MOVEI T3,1		;Set buffer count
	  SETOM T4		;Set buffer address to -1 due to failure
	  TXZ T3,RPQFLK   	;Clear port link flag since unlinking
	  TXZ T3,RPQFMG   	;Clear message free queue flag since datagram
	  CALL RG.PQM		;(T1,T2,T3,T4,P4) Record port manipulation
>	         		;End of IFN SCARNG
	  MOVE T1,P4		;Restore error code
	  RETBAD (,<CALL SC.ULK>) ;Return PPD failure with error code
	ENDIF.
   IFN SCARNG,<
	BLOCK.
	  SAVEAC <T1>		;Save smashed AC
	  MOVE T4,T1		;Get buffer address
	  XMOVEI T1,.		;Get feature routine address
	  MOVE T2,-1(P6)	;Get PC of caller to feature routine
	  MOVEI T3,1		;Set buffer count
	  TXZ T3,RPQFLK   	;Clear port link flag since unlinking
	  TXZ T3,RPQFMG   	;Clear message free queue flag since datagram
	  CALL RG.PQM		;(T1,T2,T3,T4,P4) Record port manipulation
	ENDBK.
>				;End of IFN SCARNG
	CALL <XENT SC.RLD>	;[7.1037](T1/) Return the buffer to the SCA pool
	SOSLE SS.NUM		;Decrement count to dequeue
	JRST SCR.BL		;More to do, loop to dequeue
	CALL SC.ULK		;(P1/) Unlock the connection block
	RETSKP			;All done, return happy
	ENDBS.
	SUBTTL Calls from sysap -- Messages and datagrams -- SC.CMS (Cancel receive message)

; This routine allows a SYSAP to cancel a buffer or set of buffers that were
;queued for message reception for a particular connection.
;
; Usage:
;	BLCAL. (SC.CMS,<SS.CID,SS.NUM>)	;[7.1037]
;
;	Where:
;	SS.CID - The connection ID 
;	SS.NUM - The number of buffers to dequeue
;
;	Return (+1)
;	T1/	Error code
;
;	Return (+2)
;	Operation is legal. Buffers have been returned to SCA's pool,
;	or credit_request will be sent.

XRENT	(SC.CMS,G)		;[7.1037]SC.CMS::,XSC.CM::
	BLSUB.	(<SS.CID,SS.NUM>)
	SAVEAC <P1,P3,P4>
	MOVE T1,SS.CID		;Get user's connect ID
	CALL SC.CAL		;(T1/T1,P1) Check validity, and lock
	 RETBAD ()		;No. return failure
	MOVN T1,SS.NUM
	SKIPE T1
	IFSKP.
	  CALL SC.ULK		;(P1/) Unlock the connection block
	  RETSKP
	ENDIF.

;Decrease pending receive credit by the number the sysap wants back.
;If we had a positive count, we can claim some (maybe all) of the buffers
;without asking permission.

	CIOFF
	MOVE T2,.CBPRC(P1)	;Save current pending receive count
	ADDM T1,.CBPRC(P1)	;decrease it by number desired
	JUMPLE T2,SCC.FF	;If already negative, can't reclaim any
	SKIPGE .CBPRC(P1)	;Did we have enough already pending?
	IFSKP.
	  MOVE T1,SS.NUM	;Yes. Get number we wanted
	  ADDM T1,.CBRTC(P1)	; and count all as return credit
	ELSE.
	  ADDM T2,.CBRTC(P1)	;No. Claim the ones we had pending
	ENDIF.

;We may need to send a credit_request. If so, SC.CD5 will queue the
;packet. We must cause it to be sent after unlocking the connection
;block

SCC.FF:	CION
	MOVE P4,.CBSBA(P1)	;Get the system block address
	CALL SC.GCB		;(P1,P4/) Get canceled buffer, if any
	SETOM P3		;Assume we'll need to send something
	CALL SC.CD5		;(P1,P4/) Queue credit request if needed
	 SETZM P3		;Don't need to send a message
	CALL SC.ULK		;(P1/) Unlock the connection block
	SKIPE P3		;Need to send the request?
	CALL SC.SNM		;(P4/) Yes. Send next message
	RETSKP
	ENDBS.
	SUBTTL Calls from sysap -- Named buffers -- SC.MAP (Map a buffer)

	RESCD			;[7.1037]Should be called in MSEC1

; This routine defines a buffer for the port...
;
;	Call
;	BLCAL. (SC.MAP,<SS.BLK,SS.RWF>)
;
; Where:
;	SS.BLK -- Address of the first entry in a chain of buffer
;			descriptor blocks.
;
;	Return (+1)
;	T1/	Error code
;
;	Return (+2)
;	T1/	32 bit buffer name
;
;	Buffer descriptor blocks ahve the following format:
;
;	 !=======================================================!
; .MDNXT !    Address of next buffer in chain or zero if none    !
;	 !-------------------------------------------------------!
; .MDFLG !               Flags                                   !
;	 !-------------------------------------------------------!
; .MDLEN !               Length of buffer segment                !
;	 !-------------------------------------------------------!
; .MDADR !            Physical address of the segment            !
;	 !-------------------------------------------------------!
; 	 \                                                       \
;	 \                                                       \
;	 \              N segment descriptor pairs               \
;	 \                                                       \
;	 \                                                       \
;	 !-------------------------------------------------------!
;	 !    A zero length to terminate the descriptor list     !
;	 !=======================================================!
;
; Note that .MDNXT is an offset from the start of the block to the address of
;the next entry in the chain, but .MDLEN and .MDADR are offsets within 
;the words describing a single buffer segment.
;

SC.MAP::JRST MAPBUF		;THIS JUST PASSES THROUGH TO MAPBUF.
				;THE ARGUMENTS AND CALLING CONVENTIONS
				;FOR SC.MAP AND MAPBUF ARE THE SAME.
	SUBTTL Calls from sysap -- Named buffers -- SC.UMP (Unmap a mapped buffer)

; This routine is called when the SYSAP has completed all operations with a
;named (mapped) buffer. Note that doing data transfers does not unmap the 
;buffer. The buffer will remain mapped until the user has done this unmap
;call.
;
;	Call
;	BLCAL. (SS.UMP,<SS.NAM>)
;
; Where:
;	SS.NAM -- 32 bit name of buffer to be unmapped
;
;	Return (+1)
;	T1/	Error code
;
;	Return (+2)
;	No data, buffer name is no longer valid
;
SC.UMP::JRST UMAP		;JUST PASS THROUGH TO UMAP. THE
				;ARGUMENTS AND CALLING CONVENTIONS
				;FOR SC.UMP AND UMAP ARE THE SAME.

	XRESCD			;[7.1037]Back to XCDSEC
	SUBTTL Calls from sysap -- Named buffers -- SC.SND (Send DMA data)

; This routine sends block data from a named buffer.
;
;	Call
;	BLCAL. (SC.SND,<SS.CID,SS.SNM,SS.RNM,SS.SOF,SS.ROF>)
;
; Where:
;	SS.CID -- Connection on which this transfer is being done
;	SS.SNM -- 32 bit name of the buffer to get data from
;	SS.RNM -- 32 bit name of buffer to put data into
;	SS.SOF -- Byte offset into transmision buffer
;	SS.ROF -- Byte offset into reception buffer
;
;	Return (+1)
;	T1/	Error code
;
;	Return (+2)
;	No data returned.
;
;Note:
;The corporate spec provides for the sysap's selecting
;the threshold value; we have chosen to make it 1 always.

XRENT	(SC.SND,G)		;[7.1037]SC.SND::, XSC.SN::
	BLSUB. (<SS.CID,SS.SNM,SS.RNM,SS.SOF,SS.ROF>)
	SETZM T1		;Indicate send
	JRST SC.SN2

XRENT	(SC.RQD,G)		;[7.1037]SC.RQD::, XSC.RQ::
	BLSUB. (<SS.CID,SS.SNM,SS.RNM,SS.SOF,SS.ROF>)
	SETOM T1		;indicate request

SC.SN2:	SAVEAC <P1,P3,P4>
	MOVEM T1,P3		;Save flag
	MOVE T1,SS.CID		;Get connect ID
	CALL SC.CAL		;(T1/T1,P1) Check validity, and lock
	 RETBAD ()

;Don't send if the connection isn't open

	LOAD T1,CBCNST,(P1)	;Get the current connection state
	CAIE T1,.CSOPN		;Is this connection open???
	RETBAD (SCSCWS,<CALL SC.ULK>) ;No, return "connection in wrong state"

;Don't send if we don't have enough send credit. Must have at least 1
;This code is race-free. Comparing and then decrementing is not.

	SOS T1,.CBSCD(P1)	;Decrement send credit
	CAIL T1,1		;Do we have more than the threshold?
	IFSKP.
	  AOS .CBSCD(P1)	;No. Put it back
  	  SETONE CBFNNC,(P1)	;No. Indicate waiting for credit callback
	  RETBAD (SCSNEC,<CALL SC.ULK>) ;Return "not enough credit"
	ENDIF.
	;..
	;..
	MOVE P4,.CBSBA(P1)	;Get a pointer to the system block
	IFE. P3			;Want to send?
	  BLCAL. (<@[MSEC1,,SNDDAT]>,<SS.SNM,SS.RNM,SS.SOF,SS.ROF,SS.CID>) ;[7.1037]
	   JRST SC.SN5		;Failed
	ELSE.
	  BLCAL. (<@[MSEC1,,REQDAT]>,<SS.SNM,SS.RNM,SS.SOF,SS.ROF,SS.CID>) ;[7.1037]
	   JRST SC.SN5		;Failed
	ENDIF.
	CALL SC.ULK		;(P1/) Unlock the connection block
	RETSKP			;Return OK

;Here when we failed. This happens only if the v.c. is closed.

SC.SN5:	AOS .CBSCD(P1)		;We didn't use the send credit after all
	CALL SC.ULK		;(P1/) Unlock the connection block
	RETBAD ()		;Return with failure
	ENDBS.
	SUBTTL Calls from sysap -- State polling

	SUBTTL Calls from sysap -- State polling -- SC.SPL (Connect state poll)

; Here to update the state of a connection.
;
; Usage:
;
;	Call
;	BLCAL.	(SC.SPL,<SS.CID,SS.ADR>) ;[7.1037]
;
; Where:
;	SS.CID -- Connect ID
;	SS.ADR -- Address of block in which to place data
;
;	Return (+1)  Failure, with:
;	T1/	Failure code
;	T2/	Pointer to data block
;
;	Return (+2)  Success, with:
;	T1/	Connect ID
;	T2/	Pointer to data block
;
;
XRENT	(SC.SPL,G)		;[7.1037]SC.SPL::, XSC.SP::
	BLSUB.	(<SS.CID,SS.ADR>)
	SAVEP			;Save the quasi ACs
	MOVE T1,SS.CID		;Get user's connect ID
	CALL SC.CAL		;(T1/T1,P1) Check validity and lock CB
	 RETBAD (,<MOVE T2,SS.ADR>)  ;Invalid connect ID, return failure
	MOVE T1,SS.ADR		;Get address of where to place data

; Now that we have the space, fill it with what we promised it would contain.
;
	LOAD T2,CBCNST,(P1)	;Get the connection state
	STOR T2,CDCST,(T1)	;Store in the allocated block
	LOAD T2,CBDCID,(P1)	;Get the destination connect ID
	STOR T2,CDDCI,(T1)	;Store this in the returned data
	DMOVE T2,.CBDPN(P1)	;Get first and second word of destination name
	DMOVEM T2,.CDDPN(T1)	;Put it up in the returned data
	DMOVE T2,.CBDPN+2(P1)	;Get third and fourth word of destination name
	DMOVEM T2,.CDDPN+2(T1)	;Put it up in the returned data
	LOAD T2,CBDNOD,(P1)	;Get the node number
	STOR T2,CDNOD,(T1)	;Put it up in the returned data
	LOAD T2,CBDDRE,(P1)	;Destination disconnect reasons
	STOR T2,CDDREA,(T1)	;Put this up in the returned data too...
	LOAD T2,CBSDRE,(P1)	;Once more kids, get the source disconn reasons
	STOR T2,CDSREA,(T1)	;One last time... Put it in the returned data
	CALL SC.ULK		;(P1/) Unlock connect block
	MOVE T2,T1		;Move block address
	MOVE T1,SS.CID		;Get connect ID
	RETSKP			;Return success
	ENDBS.
	SUBTTL Calls from sysap -- State polling -- SC.DCI (Return destination connect ID)

; This routine returns the destination connect ID for a connection.
;
; Usage:
;	Call
;	BLCAL. (SC.DCI,<SS.CID>)
;
;	Return (+1)
;	T1/	Error code
;
;	Return (+2)
;	T1/	Destination connect ID for given connection
;
XRENT	(SC.DCI,G)		;[7.1037]SC.DCI::, XSC.DC::
	BLSUB. (<SS.CID>)
	SAVEAC <P1>		;Save the preserved AC we are about to kill
	MOVE T1,SS.CID		;Get connect ID
	CALL SC.CAL		;(T1/T1,P1) Check validity, and lock
	 RETBAD()		;Return failure
	LOAD T1,CBDCID,(P1)	;Get the destination connect ID
	CALL SC.ULK		;(P1/) Unlock the connection block
	RETSKP			;All done...
	ENDBS.
	SUBTTL Calls from sysap -- State polling -- SC.RCD (Return configuration data)

; Here to get configuration data on a system.
;
; Usage:
;
;	Call
;	BLCAL.	(SC.RCD,<SS.NOD,SS.ADR>)
;
; Where:
;	SS.NOD -- System block index
;	SS.ADR -- Address of block in which to place data
;
;	Return (+1)  Failure, with:
;	T1/	Failure code
;	T2/	Address of data block
;
;	Return (+2)  Success, with:
;	T1/	Node number
;	T2/	Address of data block
;
XRENT	(SC.RCD,G)		;[7.1037]SC.RCD::, XSC.RC::
	BLSUB.	(<SS.NOD,SS.ADR>)
	SAVEP			;Save the preserved ACs we use here
	MOVE T2,SS.NOD		;Get the callers SBI
	CAIG T2,C%SBLL-1	;Are we over the SBLIST size???
	SKIPGE T2		;Or maybe a negative number???
	RETBAD (SCSBAS,<MOVE T2,SS.ADR>)  ;Bad arguments, tell the caller
	SKIPN P4,SBLIST(T2)	;See if (and get) if there is an SB addr here
	RETBAD (SCSBAS,<MOVE T2,SS.ADR>)  ;No entry for this SBI

	MOVE T2,SS.ADR		;Get address of data block
	LOAD T3,SBVCST,(P4)	;Get the virtual circuit state from the SB
	STOR T3,RDVCST,(T2)	;Put it up in the returned data
	LOAD T3,SBDPA,(P4)	;Get the destination port number
	STOR T3,RDPORT,(T2)	;And this also goes in the returned data

	MOVE T3,.SBDSS(P4)	;Get the first word of the system address
	MOVEM T3,.RDSYS(T2)	;Put it in the returned data
	MOVE T3,.SBDSS+1(P4)	;Now the second word of the system address
	MOVEM T3,.RDSYS+1(T2)	;Put it with its friend...

	LOAD T3,SBMXDG,(P4)	;Get the max datagram system will allow
	STOR T3,RDMDG,(T2)	;Put it up in the returned data
	LOAD T3,SBMXMG,(P4)	;Now the max message allowed
	STOR T3,RDMMS,(T2)	;Store in data
	LOAD T3,SBDTSW,(P4)	;Dest software type
	STOR T3,RDDST,(T2)	;.	.	.
	LOAD T3,SBDVSW,(P4)	;Dest software version
	STOR T3,RDDSV,(T2)	;.	.	.
	MOVE T3,.SBDSE(P4)	;Destination software incarnation (first word)
	MOVEM T3,.RDDSI(T2)	;.	.	.
	MOVE T3,.SBDSE+1(P4)	;Destination software incarnation (second word)
	MOVEM T3,.RDDSI+1(T2)	;.	.	.
	LOAD T3,SBDTHW,(P4)	;Destination hardware type
	STOR T3,RDDHT,(T2)	;.	.	.
	LOAD T3,SBDVHW,(P4)	;Destination hardware version
	STOR T3,RDDHV,(T2)	;.	.	.

	DMOVE T3,.SBNNM(P4)	;Get destination node name
	DMOVEM T3,.RDNNM(T2)	;Store it in returned data
	MOVE T3,.SBDPC(P4)	;Get destination port characteristics
	MOVEM T3,.RDPCH(T2)	;Store it in returned data
	MOVE T3,.SBDCR(P4)	;Get destination port revision level
	MOVEM T3,.RDPRL(T2)	;Store it in returned data
	MOVE T3,.SBDPF(P4)	;Get destination port functionality
	MOVEM T3,.RDPFC(T2)	;Store it in returned data
	MOVE T3,.SBDPS(P4)	;Get destination port state
	MOVEM T3,.RDPST(T2)	;Store it in returned data

	MOVE T1,SS.NOD		;Get node number back
	RETSKP			;Return success
	ENDBS.
	SUBTTL Calls from sysap -- State polling -- SC.NOD (Return node number given CID)

;This routine returns the node number associated with a CID...
;
; Usage:
;	CALL SC.NOD
;	T1/	Local connect ID
;
;	Return (+1) Always
;	T1/	Local connect ID  (or SCSIID error code if CID invalid)
;	T2/	Node number of the remote end of the connection specified
;		(or -1 if the CID is invalid)
;
XRENT	(SC.NOD,G)		;[7.1037]SC.NOD::, XSC.NO::
	SAVEAC <T3,T4,P1>	;Save the ACs we kill here
	CALL SC.CAL		;(T1/T1,P1) Check validity, and lock
	 RETBAD (,<SETOM T2>)	;Return failure
	MOVE T2,.CBSBA(P1)	;Get the system block address
	LOAD T2,SBDPA,(T2)	;Get the node number
	CALL SC.ULK		;(P1/) Unlock the connection block
	RET
	SUBTTL Calls from sysap -- State polling -- SC.PRT (Return local port number)

	RESCD			;[7.1037]Should be called in MSEC1

; This routine returns the local port number, but only on a KL with a single
;CI port!.
;
; Usage:
;	Call
;	No arguments
;
;	Return (+1)
;	No known KLIPA port
;
;	Return (+2)
;	T1/	Local port number
;
SC.PRT::CALLRET LOCPRT		;Get requested info from the port driver

	XRESCD			;[7.1037]Back to XCDSEC
	SUBTTL Calls from sysap -- Maintenance -- SC.RST (Reset remote system)

; This routine will call the port driver to send a remote node reset message.
;No checks are done for remote node type since this message type is ignored
;by KL's and "other" reasonable machines.
;
; Usage:
;	Call
;	BLCAL. (SC.RST,<SS.NOD,SS.FRB>)
;
; Where:
;	SS.NOD -- SBI or remote system to be reset
;	SS.FRB -- Force reset bit, if one, reset is forced, if zero,
;		     reset will only be done if we are the last node to do
;		     a reset for this remote
;
;	Return (+1)
;	T1/	Error code
;
;	Return (+2)
;	No data returned, reset packet sent
;
XRENT	(SC.RST,G)		;[7.1037]SC.RST::, XSC.RS::
	BLSUB. (<SS.NOD,SS.FRB>)
	SAVEAC <P4>
	MOVE P4,SS.NOD		;Get the SBI of the doomed remote
	SKIPN P4,SBLIST(P4)	;Now the address of the system block
	RETBAD (SCSISB)		;No such system, return failure
	BLCAL. (<@[MSEC1,,CLOSVC]>,<P4>) ;[7.1037]CLOSE THE VC
	HRRZ T1,.SBDSP(P4)	;Get the node number.
	BLCAL. (<@[MSEC1,,RMTRST]>,<T1,SS.FRB>) ;[7.1037]Have the port reset the remote please
	 RETBAD ()		;Return with error code in T1
	RETSKP			;Return ok
	ENDBS.
	SUBTTL Calls from sysap -- Maintenance -- SC.STA (Start remote node)

; This routine will call the port driver to start a remote node. Note that
;no check of system type is done since KL's and other important machines will
;ignore this packet type...
;
; Usage:
;	Call
;	BLCAL. (SC.STA,<SS.NOD,SS.DSA,SS.STA>)
;
; Where:
;	SS.NOD -- SBI of ill fated remote
;	SS.DSA -- Flag for use of SS.STA, if zero, SS.STA is ignored and
;			the default start address is used. If non-zero, SS.STA
;			is used as the start address of the remote.
;	SS.STA -- Start address for the remote node. Only used if SS.DSA is
;			non-zero.
;
;	Return (+1)
;	T1/	Error code
;
;	Return (+2)
;	No data returned
;
XRENT	(SC.STA,G)		;[7.1037]SC.STA::, XSC.ST::
	BLSUB. (<SS.NOD,SS.DSA,SS.STA>)
	SAVEAC <P4>
	MOVE P4,SS.NOD		;Get the desired system block index
	SKIPN P4,SBLIST(P4)	;Get the system block address for given SBI
	RETBAD (SCSISB)	;No such system, return badness
	HRRZ T1,.SBDSP(P4)	;Get the node number.
	BLCAL. (<@[MSEC1,,RMTSTA]>,<T1,SS.DSA,SS.STA>) ;[7.1037]Do the packet send
	 RETBAD ()		;Fail with code from the port driver
	RETSKP			;All ok

	ENDBS.
	SUBTTL Call from port driver -- SC.ONL (Node has come online)

; This routine handles the appearance of a node.
;
XRENT	(SC.ONL,G)		;[7.1037]SC.ONL::, XSC.ON::
	BLSUB. (<SS.NOD>)
	SAVEAC <Q1,Q2,P1,P3,P4>
	SKIPN SCAINI		;Has SCA been initialized???
	IFNSK.
	  BUG.(CHK,SCAOBI,SCAMPI,SOFT,<SCA - Online before initialization done>,,<

Cause:	A node came online before the initialization of SCA was completed.
>)
	  CALL SCA		;It has now...
	ENDIF.
	MOVE T2,SS.NOD		;Get the node number
	MOVE P4,SBLIST(T2)	;Now for the system block address

;By now, we shouldn't still be stuck on buffers

  IFN SCADBG,<
	MOVE T3,SS.NOD		;Get node number for bugs below
	MOVE T1,BITS(T2)
	TDNN T1,SBSTUK		;Is this system block stuck on buffers?
	IFSKP.
	  BUG.(CHK,SCAONS,SCAMPI,SOFT,<SCA - Online when stuck on buffers>,<<T3,NODE>>,<

Cause:	A node came online while stuck on buffers. This should have been cleared
	when the node went offline.

Action:	Determine whether PHYKLP is calling twice with the same node.
	If not, something has probably clobbered the flags word for this
	system block.

Data:	NODE - Node number
>)
	  ANDCAM T1,SBSTUK
	ENDIF.

;The system block's work queue should have been cleared before.

	SKIPN .SBTWQ(P4)	;Does work queue still exist?
	IFSKP.
	  BUG.(CHK,SCAOWJ,SCAMPI,SOFT,<SCA - Online when work queue exists>,<<T3,NODE>>,<

Cause:	A node came online while its work queue still contained entries. 
	The work queue should have been cleaned up when the node went offline.

Data:	NODE - Node number
>)
	  XMOVEI T1,.SBTWQ(P4)
	  MOVEM T1,.SBBWQ(P4)
	  SETZM .SBTWQ(P4)
	ENDIF.
	;..
;No connection blocks should be locked now. We get here only after the
;v.c. has been closed, at which point the c.b.'s should have been unlocked.

	;..
	SKIPN T1,.SBCLC(P4)	;Is a connection block still locked?
	IFSKP.
	  BUG.(CHK,SCAOWL,SCAMPI,SOFT,<SCA - Online when connection block still locked>,<<T3,NODE>,<T1,COUNT>>,<

Cause:	A node came online while a connection block was still locked.  The 
	v.c. should not have been closed until this count was zero.

Data:	NODE  - Node number
	COUNT - Lock count for connection block
>)
	  SETZM .SBCLC(P4)	;Clear it and hope for the best
	ENDIF.
   >				;END IFN SCADBG

	SETZRO SBFLG,(P4)	;Clear any residual flags
	SETZM .SBTIM(P4)	;Indicate we have not spoken to the SB yet

; See if there are enough buffers around or do we need more. Also update the
;minimum number of buffers we should have onhand.

	AOS SBCNT		;Account for the new system
	MOVE T1,SBCNT		;Get number of systems we know about now
	CAMLE T1,MXSBCT		;Is it greater than the max we keep?
	MOVEM T1,MXSBCT		;Yes, save it
	CALL SC.SBT		;Set new buffer thresholds

	MOVE T1,MINMSG		;Number of message buffers we should have
	MOVE T2,MINDG		;Number of datagram buffers we should have
	CAMLE T1,FQCNT		;Do we have enough message buffers?
	JRST SC.ON1		;NO
	CAMG T2,DFQCNT		;Yes. Do we have enough datagram buffers?
	IFSKP.
SC.ON1:	   SETONE CIBUF		;NO, SAY WE NEED TO CREATE BUFFERS
	ENDIF.
	;..
;Get two buffers -- one for incoming (give that to the port), and one for
;outgoing (queue that to the system block)

	;..
   IFN SCADBG,<
	SKIPN T2,.SBOBB(P4)	;Already have a buffer?
	IFSKP.
	  LOAD T3,SS.NOD	;Get node number
	  BUG.(CHK,SCAOBB,SCAMPI,SOFT,<SCA - Buffer already exists>,<<T3,NODE>,<T2,BUFFER>>,<

Cause:	A node that already had an outbound buffer came online.  This field 
	should have been zeroed when the node went offline. SCAMPI may have 
	been called twice for node online. The buffer will be lost after
	this.

Data:	NODE   - Node number
	BUFFER - Address of connection management buffer
>)
	ENDIF.
   >				;END IFN SCADBG
	MOVEI T1,1		;Need one buffer
	CALL <XENT SC.ABF>	;[7.1037](T1/T1) Get buffer from SCA pool
	 JRST SON.ME
	MOVEM T1,.SBOBB(P4)	;Make this the outbound buffer
	MOVEI T1,1		;Need another one
	CALL <XENT SC.ABF>	;[7.1037](T1/T1,T2,T3) Get buffer from SCA pool
	 JRST SON.ME
   IFN SCARNG,<
	BLOCK.
	  SAVEAC <T1>		;Saved smashed AC
	  MOVE T4,T1		;Get buffer address
	  XMOVEI T1,.		;Get feature routine address
	  MOVE T2,-1(P6)	;Get PC of caller to feature routine
	  MOVEI T3,1		;Get buffer count
	  TXO T3,RPQFLK   	;Set port link flag
	  TXO T3,RPQFMG   	;Set message free queue flag
	  CALL RG.PQM		;(T1,T2,T3,T4,P4) Record port manipulation
	ENDBK.
>				;End of IFN SCARNG
	BLCAL. (<@[MSEC1,,LNKMFQ]>,<P4,T1>) ;[7.1037]Give it to port for incoming messages
	;..
;Notify each sysap that's asked to be notified when nodes come online

	;..
	MOVE Q1,NOTTAB		;Get the address of the notification list
SON.SL:	SKIPN (Q1)		;Is there an entry
; * * * Should return +1
	RETSKP			;Nope, we are all done here
; * * * *

	MOVX T1,.SSNCO		;Say why we are calling the SYSAP
	MOVE T2,SS.NOD		;Indicate which node
	CALL @(Q1)		;Call the SYSAP about this new node
	 NOP			;Handle any silly SYSAP's
	AOS Q1			;Point to the next entry
	CAMG Q1,NOTEND		;Are we going off the end of the table???
	JRST SON.SL		;No, loop for another entry
	RETSKP			;Off the end of the table, all done

;Here when we failed to allocate the two buffers required for connection
;management. In theory, we should be able to tolerate this failure, and
;wait until job 0 creates more buffers. If we start to see this problem,
;it seems reasonable to try to do that. For now, we'll crash.

SON.ME:	BUG. (HLT,SCASCQ,SCAMPI,SOFT,<SCA - Can't get connection management buffers>,<<T1,ERROR>>,<

Cause:	SCA has been notified of a new system coming online. It tried
	to allocate two buffers to be used for connection management, and
	failed. This indicates that a large number of buffers have been
	allocated at interrupt level, and the process that creates more 
	hasn't run recently.

Action:	It is possible to recover from this by deferring buffer allocation 
	to process context. Meanwhile, try to find out why buffers are being 
	used so rapidly, or why job 0 is not running.

Data:	ERROR - error code from allocation routine

>)
	ENDBS.
	SUBTTL Call from port driver -- SC.ERR (Node(s) have gone away)

; This routine handles a node going offline. Note that all SYSAP connections
;on this system must be closed and the SYSAP notified...
;
;	Call
;
;	BLCAL. (SC.ERR,<SS.NOD>)
;
;	Return (+1)
;	T1/	Error code
;
;	Return (+2)
;	No data returned...
;
XRENT	(SC.ERR,G)		;[7.1037]SC.ERR::, XSC.ER::
	BLSUB. (<SS.NOD>)
       	CIOFF			;Dont do CI work until CB's are marked closed
	SAVEP			;Save the preserved regs we kill

;See if we already counted this system as going offline. If not, set the
;flag saying we did, and decrement the count of systems online.

	MOVE P4,SS.NOD		;Get the SBI of the system that went offline
	MOVE P4,SBLIST(P4)	;Get the address of the system block
	TMNN SBFOFL,(P4)	;Have we seen this as offline already?
	IFSKP.
	  LOAD T1,SBDPA,(P4)	;Yes. get node number
	  BUG. (CHK,SCAOF2,SCAMPI,SOFT,<SCA - Offline twice for a node>,<<T1,NODE>>,<

Cause:	SC.ERR was called when a system block was already flagged as offline.
	While this won't cause an immediate problem, it does indicate 
	internal confusion and should be investigated.

Data:	NODE - Node number
>)
	  CION
	  JRST SOF.NT
	ENDIF.
	SETONE SBFOFL,(P4)	;No. Mark it
	SOSL SBCNT		;Decrement the system count
	IFSKP.
	  BUG. (CHK,SCANSC,SCAMPI,SOFT,<SCA - Negative system count>,,<

Cause:	SCA was notified of a system going offline and decremented the count
	of systems currently online. In doing so, the count went negative. 
>)

	  SETZM SBCNT		;Make the count zero, rather than -1
	 ENDIF.			;  and continue normally
	;..
;Loop over all connections on the SB and mark them as closed. If they were
;already closed, the sysap isn't interested in them any more. If not, tell
;the sysap that the connection has been closed.
;If not CIOFF, need NOSKED to keep reaper from changing the list
;Sysaps expect this callback not to be interrupted

	;..
	SKIPN P1,.SBFCB(P4)	;Get the addr of the first connection block
	JRST SOF.NT		;No connects to mark, go on
SOF.CL:	
	SETONE CBFCVC,(P1)	;Indicate v.c. was closed
	MOVX T1,CBFERR		;Set this flag if it's locked
	CALL SC.HNR		;(T1,P1/) Is the c.b. locked?
	IFNSK.
	  AOS .SBCLC(P4)
	  JRST SOF.NX		;Yes. Go to the next one
	ENDIF.
	LOAD T2,CBCNST,(P1)	;Get current state
	MOVEI T1,.CSCLO		;New state will be "closed"
	STOR T1,CBCNST,(P1)	;Store as new connect state
	CAIN T2,.CSCLO		;Was it already closed?
	IFSKP.			;No.
   IFN SCARNG,<
      	  XMOVEI T1,.		;Get feature routine address
	  MOVE T2,-1(P6)	;Get PC of caller to feature routine
	  MOVEI T3,.SSPBC	;Get callback notification code
	  CALL RG.SCS		;(T1,T2,T3,P1) Record callback event
>				;End of IFN SCARNG
	  MOVEI T1,.SSPBC	;Get the notification code back
	  LOAD T2,CBSCID,(P1)	;Get the local connect ID
	  MOVE T3,SS.NOD	;Get node number
	  SETZM T4		;Clear unused AC
	  CALL @.CBADR(P1)	;Notify the SYSAP of the disaster
	ENDIF.
	SETZM .CBRQC(P1)	;We'll never get credit_response now
				; so clear this so we can reap
	CALL SC.PTC		;(P1/) Indicate protocol is complete

SOF.NX:	SKIPE P1,.CBANB(P1)	;Is there a next connect block???
	JRST SOF.CL		;Yes, loop for its new state

SOF.NT:
	CALL SC.SBT		;Set new buffer thresholds based on SBCNT

;If there were pending connect_req or accept_req messages that required
;buffers, this system may have been marked as stuck. These messages will
;no longer be sent. Clear the "stuck" bit, and get rid of the queue of
;connection blocks needed to send requests.

	MOVE T1,SS.NOD		;Get system block index
	MOVE T1,BITS(T1)	;Mark this block as no longer
	ANDCAM T1,SBSTUK	; stuck on buffers

	XMOVEI T1,.SBTWQ(P4)	;Else, we have exhauted the q, init list ptrs
	MOVEM T1,.SBBWQ(P4)	;Init tail as pointer to head
	SETZM .SBTWQ(P4)	;Init head as zero
	CION
	;..
;When system came online, we got 2 buffers from the SCA pool for sending
;and receiving SCS control messages. Give them back to SCA now

	;..
	SETZM P2		;Prepare to clear the address of the buffer
	EXCH P2,.SBOBB(P4)	;Grab outbound buffer if it's there
	SKIPN P2		;Was it there?
	IFSKP.
	  MOVE T1,P2		;Yes. Give it back to SCA
	  CALL <XENT SC.RBF>	;[7.1037](T1/)
	ENDIF.
	BLCAL. (<@[MSEC1,,ULNKMG]>,<P4>) ;[7.1037](/T1) Get a buffer from the port
	 JRST SOF.NG		;Couldn't get it.
   IFN SCARNG,<
	BLOCK.
	  SAVEAC <T1>		;Save smashed AC
	  MOVE T4,T1		;Get buffer address
	  XMOVEI T1,.		;Get feature routine address
	  MOVE T2,-1(P6)	;Get PC of caller to feature routine
	  MOVEI T3,1		;Set buffer count
	  TXZ T3,RPQFLK   	;Clear port link flag since unlinking
	  TXO T3,RPQFMG   	;Set message free queue flag
	  CALL RG.PQM		;(T1,T2,T3,T4,P4) Record port manipulation
	ENDBK.
>				;End of IFN SCARNG
	CALL <XENT SC.RBF>	;[7.1037](T1/) This was inbound buffer. Give it to SCA
	JUMPN P2,SOF.NZ		;Did we have an outbound buffer?
	BLCAL. (<@[MSEC1,,ULNKMG]>,<P4>)	;(/T1) No. get another from the port
	 JRST SOF.NG		;Couldn't get it
   IFN SCARNG,<
	BLOCK.
	  SAVEAC <T1>		;Save smashed AC
	  MOVE T4,T1		;Get buffer address
	  XMOVEI T1,.		;Get feature routine address
	  MOVE T2,-1(P6)	;Get PC of caller to feature routine
	  MOVEI T3,1		;Set buffer count
	  TXZ T3,RPQFLK   	;Clear port link flag since unlinking
	  TXO T3,RPQFMG   	;Set message free queue flag
	  CALL RG.PQM		;(T1,T2,T3,T4,P4) Record port manipulation
	ENDBK.
>				;End of IFN SCARNG
	CALL <XENT SC.RBF>	;[7.1037](T1/) Give it to SCA
	JRST SOF.NZ		;Skip past the error code

;The port ran out of buffers. In theory, we put two buffers on the queue when
;this node came online, so we ought to be able to take two off.

SOF.NG:	LOAD T1,SBDPA,(P4)
	BUG. (CHK,SCANMB,SCAMPI,SOFT,<SCA - Can't return SCS control message buffer>,<<T1,NODE>>,<

Cause:	A node went offline, The local node tried to retrieve two message 
	buffers from the port's queue but found the queue empty.

Action:	Depending on timing this may happen legitimately. If it persists, 
	stock the port's message free queue more generously at system startup.

Data:	NODE - Node number
>)
   IFN SCARNG,<
	  XMOVEI T1,.		;Get feature routine address
	  MOVE T2,-1(P6)	;Get PC of caller to feature routine
	  MOVEI T3,1		;Set buffer count
	  SETOM T4		;Set buffer address to -1 due to failure
	  TXZ T3,RPQFLK   	;Clear port link flag since unlinking
	  TXO T3,RPQFMG   	;Set message free queue flag
	  CALL RG.PQM		;(T1,T2,T3,T4,P4) Record port manipulation
>	         		;End of IFN SCARNG


; Here to notify ALL sysaps that a node has gone offline. Note that this means
;any sysap with connections open to the node that went offline will get one
;extranious notification.
;
; NOTE:  For this callback the connect ID returned in T2 is -1.

SOF.NZ:	MOVE P5,NOTTAB		;Start with first word in notification table

SOF.VL:	SKIPN (P5)		;Is there an entry
	JRST SOF.VC		;Nope, go do VC opening checks
	MOVX T1,.SSPBC		;Say why we are calling the SYSAP
	SETOM T2		;There is no CID returned for this callback
	MOVE T3,SS.NOD		;Indicate which node
	SETZM T4		;Insure the rest of the calling ACs are zero
	CALL @(P5)		;Call the SYSAP about this new node
	AOS P5			;Point to the next entry
	CAMG P5,NOTEND		;Have we gone off the end of the table???
	JRST SOF.VL		;No. Loop for more entries

;Tell PHYKLP it can reopen the v.c. unless we have locked connection
;blocks. If we do, SC.ULK will eventually call OPENVC.

SOF.VC:	SKIPN .SBCLC(P4)	;Any locked connection blocks?
	IFSKP.
	  SETONE SBFOVC,(P4)	;Yes. Indicate waiting to open
	ELSE.
	  BLCAL. (<@[MSEC1,,OPENVC]>,<P4>) ;[7.1037]No. Open it now
	ENDIF.
	RETSKP

	ENDBS.
;SC.FN1 - finish work of SC.ERR when c.b. is unlocked

;Accepts:
;	P1/ address of connection block

;	CALL SC.FN1

;Returns +1: always

SC.FN1:
	SETZRO CBFERR,(P1)	;Clear indication that this was deferred
	LOAD T2,CBCNST,(P1)	;Get current state
	MOVEI T1,.CSCLO		;New state will be "closed"
	STOR T1,CBCNST,(P1)	;Store as new connect state
	CAIN T2,.CSCLO		;Was it already closed?
	IFSKP.
   IFN SCARNG,<
      	  XMOVEI T1,.		;Get feature routine address
	  MOVE T2,(P)		;Get PC of caller to feature routine
	  MOVEI T3,.SSPBC	;Get callback notification code
	  CALL RG.SCS		;(T1,T2,T3,P1) Record callback event
>				;End of IFN SCARNG
	  LOAD T1,CBSCID,(P1)	;Get the local connect ID
	  CALL <XENT SC.NOD>	;[7.1037](T1/T1,T2) Get node number
	  MOVEM T2,T3		;Reposition node number for callback
	  MOVEM T1,T2		;Reposition CID for callback
	  MOVEI T1,.SSPBC	;Port broke connection
	  CIOFF			;Sysap wants no interrupts
	  CALL @.CBADR(P1)	;Notify the SYSAP of the disaster
	  CION
	ENDIF.
	CALL SC.PTC		;(P1/) Indicate protocol is complete
	RET
	SUBTTL Call from port driver -- SC.DMA (DMA operation complete)

; Here when the port noticed that a DMA operation has completed and we
;need to notify the guilty party...
;
;	Call
;	T1/	32 bit buffer name of completed transfer
;	T2/	CID
;	P4/ address of system block
;
;	Return (+1)
;	No data returned, no failure return...
;
XRENT	(SC.DMA,G)		;[7.1037]SC.DMA::, XSC.DM::
	SAVEAC <P1,P2,P3>
	DMOVEM T1,P2
	LOAD T3,SBVCST,(P4)	;Don't do anything if the v.c.
	CAIE T3,VC.OPN		; is already closed
	RET
	MOVE T1,T2		;Get CID
	CALL <XENT SC.CSC>	;[7.1037](T1/T1,P1) Is it valid?
	 RET
	LOAD T3,CBCNST,(P1)	;See if connection is open
	CAIE T3,.CSOPN
	RET			;No. Ignore it
	AOS .CBSCD(P1)		;Give back the credit we took at the start
   IFN SCARNG,<
        XMOVEI T1,.		;Get feature routine address
        MOVE T2,-4(P)		;Get PC of caller to feature routine
        MOVEI T3,.SSDMA		;Get callback notification code
        CALL RG.SCS		;(T1,T2,T3,P1) Record callback event
>				;End of IFN SCARNG
	MOVE T3,P2		;Put the name where promised
	MOVX T1,.SSDMA		;Say why we care calling
	MOVE T2,P3		;Get CID
	CALL @.CBADR(P1)	;Notify SYSAP of his DMA complete

;We've just incremented send credit. If the sysap had been told "not
;enough credit" on a previous attempt at sending, we need to tell it to
;try again.

	TMNN CBFNNC,(P1)	;Does sysap need notification?
	RET			;Nope, return now
	SETZRO CBFNNC,(P1)	;Show notification complete, zero flag in CB
   IFN SCARNG,<
      	XMOVEI T1,.		;Get feature routine address
	MOVE T2,-4(P)		;Get PC of caller to feature routine
	MOVEI T3,.SSCIA		;Get callback notification code
	CALL RG.SCS		;(T1,T2,T3,P1) Record callback event
>				;End of IFN SCARNG
	MOVX T1,.SSCIA		;Say why we are calling, we have credit for you
	LOAD T2,CBSCID,(P1)	;Indicate which connection this for
	MOVE T3,.CBSCD(P1)	;Show the send credit 
	MOVE T4,.CBRCD(P1)	;Receive credit
	CALL @.CBADR(P1)	;Leap into the SYSAP
	RET			;All done
	SUBTTL Call from port driver -- Incoming buffer -- SC.INT (Buffer arrival)

; We get here when the port driver has a message the it has deceided SCA needs
;to see. The various types that make their way thourgh here are:
;	1. Application datagrams (Get passed to SYSAP)
;	2. Application messages  (Get passed to SYSAP)
;	3. SCA control messages  (Get eaten by SCA routines)
;
; First things the we have to do is figure out which message type we have.
;Having divined this we can do what each type requires. A datagram or message
;get passed on to the SYSAP that gets it. I.E. set up the ACs as they were
;promised (See SCAPAR) and call the address in the CB. If the message
;is an SCA control message, then dispatch to the correct routine based on
;message type. A dispatch table is provided that one merely indexes into
;by message type.
;
; Usage:
;	Call
;	P2/	Address of message/datagram/SCA buffer
;	P4/	Address of system block
;
;
;	Return +1:	Always
;
XRENT	(SC.INT,G)		;[7.1037]SC.INT::, XSC.IN::
	BLSUB.	(<SS.FLG,SS.LEN>)
	SAVEP			;Save the ACs we kill here...
	CALL SC.RIN		;Byte swap the SCA header of the packet
   IFN SCARNG,<
SCINT:	XMOVEI T1,.		;Get feature routine address
	MOVE T2,-1(P6)		;Get caller to feature routine
	MOVE T3,SS.FLG		;Get flags
	HRRZ T4,SS.LEN		; and get packet length (no priority)
	CALL RG.PKT		;(T1,T2,T3,T4,P2,P4) Record packet transmission
>				;End of IFN SCARNG
	MOVE T2,SS.FLG		;Get the arg flags
	TXNN T2,F.RSP		;Is this a local or remote packet
	 JRST SIN.RP		;A remote packet, dispatch to a handler

;Buffer is being returned after a send. Return it to the pool or give it
;to the sysap.

	LOAD T3,MH$MSG,(P2)	;Get the packet type
	CAIE T3,.STADG		;Is this a datagram??
	CAIN T3,.STAMG		;  or an application message
	JRST SIN.MS		;Handle the return of a SYSAP buffer

;Buffer had been sent by SCA. This should happen only on error.
; * * * *
;This shouldn't happen at all. We need a BUGCHK here
; * * * *

	MOVE T1,P2		;Get the buffer address
	CALL <XENT SC.RBF>	;[7.1037]Return the buffer to the SCA free pool
	RET			;Return...
; Here to return a locally generated SYSAP message buffer to its owner.

;NOTE: SC.RAP won't reap a connection until CBNPO is zero. If this is ever
;changed, the following code could cause a problem. The LDCID might produce
;a zero because the connection block may have gone away.

SIN.MS:	LOAD T3,MH$SCI,(P2)	;Get the source connect ID from the packet
	$LDCID P1,T3		;Get the CB address from the CID
   IFN SCADBG,<
	LOAD T1,CBNPO,(P1)	;Get outstanding packet count
	SKIPG T1		;Is it greater than zero?
	  BUG. (HLT,SCANP3,SCAMPI,SOFT,<SCA - CBNPO about to go negative>,,<

Cause:	When the count of queued buffers is about to be decremented, the
	count is found to be already zero or less.
>)
   >				;END OF IFN SCADBG
	DECR CBNPO,(P1)		;Decrement the count of outstanding packets
   IFN SCARNG,<
    	XMOVEI T1,.		;Get feature routine address
        MOVE T2,-1(P6)		;Get PC of caller to feature routine
        MOVEI T3,.SSMSC		;Get callback notification code
        CALL RG.SCS		;(T1,T2,T3,P1) Record callback event
>				;End of IFN SCARNG
	MOVEI T1,.SSMSC		;Tell the SYSAP why we are calling
	LOAD T2,MH$SCI,(P2)	;Indicate which connection
	MOVE T3,P2		;Setup the address of the buffer
	CALL @.CBADR(P1)	;Call the SYSAP about his buffer
	RET			;And return to the port driver

; Here to dispatch to a routine that will handle a remotely generated packet.
;
SIN.RP:	MOVE T1,TODCLK		;Get current time of day
	MOVEM T1,.SBTIM(P4)	;Store time we got this message
	SETZRO SBFTMG,(P4)	;Zero the flag in the system block
	MOVE T1,SS.FLG		;Make the flags available to handler routines
	MOVE T2,SS.LEN		;Get the length from the PPD args
	LOAD T3,MH$MSG,(P2)	;Get the message type
	CAILE T3,.STLST		;Is the packet type within range???
	JRST SIN.ER		;NO!! Handle remote SCA brain damage
	AOS RECTAB(T3)		;Count the message we just received
	JRST @DSPTAB(T3)	;Yes it is, goto the handling routine

; Here when we have a bad message type from the remote SCA. Since this could
;very well have been a message we must close the VC.
;Note that we don't know what kind of buffer we have, so we just throw
;it away.

SIN.ER:	LOAD T1,SBDPA,(P4)	;Get node number
	LOAD T2,CBSCID,(P1)	;Get connect ID
	BUG. (CHK,SCABMT,SCAMPI,SOFT,<SCA - Bad message type from remote node>,<<T1,NODE>,<T2,CID>,<T3,OPCODE>>,<

Cause:	A bad message type was found on range checking. This shouldn't
	happen if the port and port driver are working correctly. The 
	message is thrown away.

Data:	NODE   - node number
	CID    - Connect ID
	OPCODE - SCS op code received

>)
	CALL SC.CVC		;(P4/) Close the v.c.
	RET			;All done here for now, return
	ENDBS.
; Note: All message handlers assume that they have been called by SC.INT.
;Hence they assume that a SAVEP was done at that level and another is not
;necessary.

;They also assume they're at interrupt level (i.e., not interruptible),
;that v.c. is open (SC.INC checks it), that SC.RSP will fail only if the v.c.
;is closed. Note that this means there's currently no way for SC.RSP to fail,
;since we never try to send a response if the v.c. was found to be closed
;at SC.INC. In the future, we might try for some reason. If so, we may want
;to have PHYKLP check for closed v.c.

;THe order of events in these routines is deliberately as follows:
;	Copy input from packet
;	Send response
;	Update the state
;	Tell the sysap

;This allows us to be sure that the state won't be updated if sending the
;response mysteriously fails.
	SUBTTL Call from port driver -- Incoming buffer -- SC.ORQ (Connect request)

; This routine handle the reception of connection requests.
;
;	Call
;	P2/	Addr of datagram
;
;	Return +1:	Always
;

SC.ORQ:	AOS SCAORC		;[7211] COUNT THE MESSAGE
	CALL SC.INC		;[7211] (P2/T1,T2,P1) Just do check on v.c. closed
	 JRST SC.RIB		;Ignore this packet
	CALL SC.SCM		;(P2/P1,P4) Search for a connection match
	 JRST SOR.NM		;No match, say so...

;Copy data from the packet into the connect block

	LOAD T2,MH$CDT,(P2)	;Get the credit from the message header
	MOVEM T2,.CBSCD(P1)	;Store it as the credit (since previous MBZ)
	LOAD T2,MH$SCI,(P2)	;Get the remotes connect ID
	STOR T2,CBDCID,(P1)	;Store in the CB 
	LOAD T2,MH$MCR,(P2)	;Get the minimum credit from mess header
	STOR T2,CBMNRC,(P1)	;Store it as the minimum receive credit
	MOVEI T2,<C%PNMN+3>/4	;Number of words to move
	XMOVEI T3,.MGSPN(P2)	;Source address
	XMOVEI T4,.CBDPN(P1)	;Destination address
	EXTEND T2,[XBLT]	;Move the destination process name
	MOVEI T2,<C%SDTL+3>/4	;Number of words to move
	XMOVEI T3,.MGSDT(P2)	;Source address for connection data
	XMOVEI T4,.CBDTA(P1)	;Destination address
	EXTEND T2,[XBLT]	;Move the connection data

;Build and send a match CONNECT_RESPONSE.

	MOVEI T4,.CMCMT		;Get the "match" status
	STOR T4,MH$STS,(P2)	;Put the status info into the message header
	MOVEI T1,.STORS		;Get the CONNECT_RESPONSE message type code
	CALL SC.RSP		;(T1,P1,P2,P4/)Send the response
	 JRST SC.RIB		;Failed. Return the buffer to the free queue
	;..
;Update connection state to connect_received

	;..
	MOVEI T2,.CSCRE		;Get the CONNECT_RECEIVED circuit state
	STOR T2,CBCNST,(P1)	;Put it up in the connection block

;Notify the SYSAP that someone has connected to its listener.

   IFN SCARNG,<
        XMOVEI T1,.		;Get feature routine address
        MOVE T2,(P)		;Get PC of caller to feature routine
        MOVEI T3,.SSCTL		;Get callback notification code
        CALL RG.SCS		;(T1,T2,T3,P1) Record callback event
>				;End of IFN SCARNG
	MOVEI T1,.SSCTL		;Tell the reason for the SYSAP call
	LOAD T2,CBSCID,(P1)	;Tell who was connected to
	XMOVEI T3,.CBDTA(P1)	;Point to the remote connection data
	CALL @.CBADR(P1)	;Make the trusting leap into oblivion
	RET			;Return to the port driver, all went well

;Build and send a no match CONNECT_RESPONSE. Can't use standard routines
;because we want to zero the source connect ID

SOR.NM:	SETZRO MH$CDT,(P2)	;Zero the credit field of the message header
	MOVEI T1,.STORS		;Get op code for CONNECT_RSP
	STOR T1,MH$MSG,(P2)	;Store op code
	LOAD T2,MH$SCI,(P2)	;Get the sending CID
	STOR T2,MH$DCI,(P2)	;Store as the receiving CID
	SETZRO MH$SCI,(P2)	;Send our ID as zero since we have no connect
	MOVEI T4,.CMCNM		;Say we found no connection match
	STOR T4,MH$STS,(P2)	;Put the status info into the message header
	SETZRO MH$MCR,(P2)	;Zero minimum_credit field for safety
	CALL SC.PAK		;(P2,P4/)Send the response
	 JRST SC.RIB		;Failed. Return the buffer to the free queue
	RET			;Else return now, no one to notify
	SUBTTL Call from port driver -- Incoming buffer -- SC.ORS (Connect response)

; Here we handle connect responses. 
;
;	Call
;	P2/	Addr of message
;	P4/	Addr of system block
;
;	Return +1:	Always
;

SC.ORS:	AOS SCAORC		;[7211] COUNT THE MESSAGE
	CALL SC.INC		;[7211] (P2/T1,T2,P1) Check validity, get state & op code
	 JRST SC.RIB		;Return the buffer and quit
	MOVEM T1,P3		;Save new state

;If state was closed, our end disconnected after requesting connection
;Don't need to update state. If other side said "match", wait for the
;accept or reject to come in. If it said "no match", we're finished.

	LOAD T2,CBCNST,(P1)	;Get old state
	LOAD T3,MH$STS,(P2)	;Get match/no match code
	CAIE T2,.CSCLO		;Was it closed already?
	IFSKP.
	  CAIE T3,.CMCMT	;It was closed. Is this a match?
	  CALL SC.PTC		;No. End of protocol, then

;Here when state wasn't closed. This is the normal case. If the other
;side said "no match", tell the sysap that the connection failed, and
;mark protocol complete. Otherwise, update the state and wait for
;the accept or reject.

	ELSE.
	  CAIE T3,.CMCMT	;Not closed. Is this a match?
	  IFSKP.
	    LOAD T2,MH$SCI,(P2)	;Get source connect ID from packet
	    STOR T2,CBDCID,(P1)	;Store as destination ID
	    STOR T1,CBCNST,(P1)	;Store the new connection state
	  ELSE.
	    MOVEI T1,.CSCLO	;No match, new connect state is closed
	    STOR T1,CBCNST,(P1)	;Store the new connect state
   IFN SCARNG,<
      	    XMOVEI T1,.		;Get feature routine address
	    MOVE T2,(P)		;Get PC of caller to feature routine
	    MOVEI T3,.SSCRA	;Get callback notification code
	    CALL RG.SCS		;(T1,T2,T3,P1) Record callback event
>				;End of IFN SCARNG
	    MOVEI T1,.SSCRA	;Say why we are calling the SYSAP
	    LOAD T2,CBSCID,(P1)	;Get the connect ID
	    SETZ T3,		;Say we were rejected
	    LOAD T4,MH$STS,(P2)	;Get reason code for rejection
	    CALL @.CBADR(P1)	;Call the SYSAP
	    CALL SC.PTC		;(P1/) Declare protocol complete
	  ENDIF.
	ENDIF.
	JRST SC.SAR		;Go send next SCS control message, return buffer
	SUBTTL Call from port driver -- Incoming buffer -- SC.ARQ (Accept request)

; Here to handle an ACCEPT_REQUEST.
;
;	Call
;	P2/	Address of message buffer
;	P4/	Address of system block
;
;	Return +1:	Always
;

SC.ARQ:	AOS SCAORC		;[7211] COUNT THE MESSAGE
	CALL SC.INC		;[7211] (P2/T1,T2,P1) Check validity, get state & op code
	 JRST SC.RIB		;Return the buffer and quit
	MOVEM T1,P5		;Save new state
	MOVEM T2,P3		;Save op code of response

;If the connection is currently closed, then the sysap changed its mind after
;sending a connect_request.

	LOAD T3,CBCNST,(P1)	;If current state is closed, we want
	CAIN T3,.CSCLO		; to send an accept-response with
	JRST SAR.NG		; "no match"

;Copy data from the packet into the connect block
;* * * *
;NOTE: We've added the next two lines in order to talk to VMS.
;The connect ID that they send us with the connect_response isn't useful.
;For now, the copy remains in SC.ORS in case there's something wrong with
;this approach.

	LOAD T2,MH$SCI,(P2)	;Get source connect ID from packet
	STOR T2,CBDCID,(P1)	;Store as destination ID
; * * * *
	LOAD T2,MH$CDT,(P2)	;Get the credit field from the message header
	ADDM T2,.CBSCD(P1) 	;Calculate and store the new send credit
	LOAD T2,MH$MCR,(P2)	;Get the min credit out of the message header
	STOR T2,CBMNRC,(P1)	;Store it in the CB as the min send credit
	MOVEI T2,<C%SDTL+3>/4	;Number of words to move
	XMOVEI T3,.MGSDT(P2)	;Source address of connection data
	XMOVEI T4,.CBDTA(P1)	;Destination address for connect data
	EXTEND T2,[XBLT]	;Move the connection data

;Build and send the ACCEPT_RESPONSE message.

	MOVX T4,.CMCMT		;Get the universal MATCH code
	STOR T4,MH$STS,(P2)	;Put the status info into the message header
	MOVE T1,P3		;Get the op code
	CALL SC.RSP		;(T1,P1,P2,P4/)Send the response
	 JRST SC.RIB		;Failed. Return the buffer to the free queue

;Set new state

	STOR P5,CBCNST,(P1)	;Store connection state returned above
	
	;..
;Notify the SYSAP about what has happened.

	;..
   IFN SCARNG,<
        XMOVEI T1,.		;Get feature routine address
        MOVE T2,(P)		;Get PC of caller to feature routine
        MOVEI T3,.SSCRA		;Get callback notification code
        CALL RG.SCS		;(T1,T2,T3,P1) Record callback event
>				;End of IFN SCARNG
	MOVEI T1,.SSCRA		;Say why we are calling
	LOAD T2,CBSCID,(P1)	;Say for whom we are calling
	SETO T3,		;Indicate accepted connection request
	XMOVEI T4,.CBDTA(P1)	;Build a pointer to the connection data
	CALL @.CBADR(P1)	;L E A P  . . . . .
	RET			;And return...

;Send accept_response "no match" because our side disconnected.
;State is already closed; no need to change it.

SAR.NG:	MOVE T1,P3		;Get op code for ACCEPT_RSP
	LOAD T2,CBSDRE,(P1)	;Get sysap's reason for disconnecting
	STOR T2,MH$STS,(P2)	;Store as the status
	CALL SC.RSP		;(T1,P1,P2,P4/)Send the response
	 JRST SC.RIB		;Failed. Return the buffer to the free queue
	CALL SC.PTC		;(P1/) Declare protocol complete
	RET
	SUBTTL Call from port driver -- Incoming buffer -- SC.ARS (Accept response)

; Here to handle an ACCEPT_RESPONSE.
;
;	Call
;	P2/	Address of message buffer
;	P4/	Address of system block
;
;	Return +1:	Always
;

SC.ARS:	AOS SCAORC		;[7211] COUNT THE MESSAGE
	CALL SC.INC		;[7211] (P2/T1,T2,P1) Check validity, get state & op code
	 JRST SC.RIB		;Return the buffer and quit

	LOAD T2,CBCNST,(P1)	;Get old state
	LOAD T3,MH$STS,(P2)	;Get the status word from the message
	CAIE T2,.CSCLO		;Was it closed?
	IFSKP.
	  CAIE T3,.CMCMT	;Is the status MATCH?
	  IFSKP.
	    MOVEI T1,.BSDPN	;New block state is disconnect_pending
	    CALL SC.SCA		;(T1,P1,P4/) Set block state and queue message
	  ELSE.
	    CALL SC.PTC		;No match. We've finished with this c.b.
	  ENDIF.

;Here when state was not closed. This is the normal case
;If match, tell sysap it's OK to send data. if no match, the other side
;changed its mind. Tell the sysap and declare protocol complete.

	ELSE.
	  CAIE T3,.CMCMT	;Match?
	  IFSKP.
	    STOR T1,CBCNST,(P1) ;Store the new connection state
   IFN SCARNG,<
      	    XMOVEI T1,.		;Get feature routine address
	    MOVE T2,(P)		;Get PC of caller to feature routine
	    MOVEI T3,.SSOSD	;Get callback notification code
	    CALL RG.SCS		;(T1,T2,T3,P1) Record callback event
>				;End of IFN SCARNG
	    MOVEI T1,.SSOSD	;Say why we are calling
	    LOAD T2,CBSCID,(P1)	;Provide local CID
	    CALL @.CBADR(P1)	;Make the leap of faith into the SYSAP
	  ELSE.
	    MOVEI T1,.CSCLO	;Get the closed state
	    STOR T1,CBCNST,(P1)	;Store as the new connection state
   IFN SCARNG,<
      	    XMOVEI T1,.		;Get feature routine address
	    MOVE T2,(P)		;Get PC of caller to feature routine
	    MOVEI T3,.SSRID	;Get callback notification code
	    CALL RG.SCS		;(T1,T2,T3,P1) Record callback event
>				;End of IFN SCARNG
	    MOVEI T1,.SSRID	;Say the remote has changed its mind
	    LOAD T2,CBSCID,(P1)	;Show who locally
	    CALL @.CBADR(P1)	;Tell the SYSAP about the change of mind
	    CALL SC.PTC		;(P1/) Declare protocol complete
	  ENDIF.
	ENDIF.
	JRST SC.SAR		;Go send next SCS control message, return buffer
	SUBTTL Call from port driver -- Incoming buffer -- SC.RRQ (Reject request)

; Here for REJECT_REQUEST received.
;
;	Call
;	P2/	Address of message buffer
;	P4/	Address of system block
;
;	Return +1:	Always
;

SC.RRQ:	AOS SCAORC		;[7211] COUNT THE MESSAGE
	CALL SC.INC		;[7211] (P2/T1,T2,P1) Check validity, get state & op code
	 JRST SC.RIB		;Return the buffer and quit
	MOVEM T1,P5		;Save new state

;Get reason for rejection from the packet, and store it in the connect block

	LOAD T3,MH$STS,(P2)	;Find out why we were rejected
	STOR T3,CBDDRE,(P1)	;Store as his reason for saying "NO."

;Now build the response in the buffer we have from the REJECT_REQUEST.

	MOVE T1,T2		;Get op code returned above
	CALL SC.RSP		;(T1,P1,P2,P4/)Send the response
	 JRST SC.RIB		;Failed. Return the buffer to the free queue

;Now poke the SYSAP with its response to our connect.
;If state was already closed, don't change it. Sysap isn't interested
;in hearing about this.

	LOAD T1,CBCNST,(P1)	;Get old connection state
	CAIN T1,.CSCLO		;If closed, sysap isn't interested.
	IFSKP.
	  STOR P5,CBCNST,(P1)	;Store the new connection state
   IFN SCARNG,<
      	  XMOVEI T1,.		;Get feature routine address
	  MOVE T2,(P)		;Get PC of caller to feature routine
	  MOVEI T3,.SSCRA	;Get callback notification code
	  CALL RG.SCS		;(T1,T2,T3,P1) Record callback event
>				;End of IFN SCARNG
	  MOVEI T1,.SSCRA	;Tell the SYSAP why we are calling
	  LOAD T2,CBSCID,(P1)	;Get the connect ID
	  SETZ T3,		;Indicate that the connection was rejected
	  LOAD T4,CBDDRE,(P1)	;T4/ reason for rejection
	  CALL @.CBADR(P1)	;Call the SYSAP
	ENDIF.
	CALL SC.PTC		;(P1/) Declare protocol complete
	RET
	SUBTTL Call from port driver -- Incoming buffer -- SC.RRS (Reject response)

; Here to handle REJECT_RESPONSE messages.
;
;	Call
;	P2/	Address of message buffer
;	P4/	Address of system block
;
;	Return +1:	Always
;

SC.RRS:	AOS SCAORC		;[7211] COUNT THE MESSAGE
	CALL SC.INC		;[7211] (P2/T1,T2,P1) Check validity, get state & op code
	 JRST SC.RIB		;Return the buffer and quit

;Set new state

	STOR T1,CBCNST,(P1)	;Set connection block state as returned above
	CALL SC.PTC		;Declare protocol complete
	JRST SC.SAR		;Go send next SCS control message, return buffer
	SUBTTL Call from port driver -- Incoming buffer -- SC.DRQ (Disconnect request)

; Here for DISCONNECT_REQUESTs.
;
;	Call
;	P2/	Address of message buffer
;	P4/	Address of system block
;
;	Return +1:	Always
;

;NOTE: This code assumes it's running at interrupt level. If it
;isn't, it must lock the c.b.

SC.DRQ:	AOS SCAORC		;[7211] COUNT THE MESSAGE
	CALL SC.INC		;[7211] (P2/T1,T2,P1) Check validity, get state & op code
	 JRST SC.RIB		;Return the buffer and quit
	MOVEM T1,P3		;Save new state

;Copy reason for disconnect from packet to connect block

	LOAD T3,MH$STS,(P2)	;Get the disconnect reason
	STOR T3,CBDDRE,(P1)	;Stash the remote discconect reason in CB

;send a DISC_RSP

	MOVE T1,T2		;Get op code as returned above
	CALL SC.RSP		;(T1,P1,P2,P4/)Send the response
	 JRST SC.RIB		;Failed. Return the buffer to the free queue

;Honor the c.b. lock. If it's locked, set a flag. When the locker unlocks
;the block, this function will be completed.

	MOVX T1,CBFDRQ
	CALL SC.HNR		;(T1,P1/) See if the c.b. is locked
	 RET			;Yes. Can't finish this now

;Now store new state as returned above

	STOR P3,CBCNST,(P1)	;Store the new connection state

;If the new state is disconnect_received, previous state was open.
;This means the other side initiated the disconnect.

	CAIN P3,.CSDRE		;Is the state disconnect received???
	JRST SDR.CO		;Yes. Go handle that

;Here when new state is not disconnect_received. If new state is closed,
;protocol is complete. This happens when we initiate the disconnection, and
;the other side responds with a disconnect_request.

	CAIN P3,.CSCLO		;Is the new state closed?
	CALL SC.PTC		;(P1/) Yes. Indicate protocol is complete
	RET
	;..
;Here when new state is disconnect_received.
;Corporate spec says the sysap should be required to do a disconnect.
;We fake it by setting the state and sending the message.
;Set the state before calling the sysap. If it does an SC.DIS before returning
;we won't send two disconnect_requests.

SDR.CO:	MOVEI T1,.CSDMC		;New connection state is disconnect_match
	STOR T1,CBCNST,(P1)

;Tell the sysap that the other side hung up.

   IFN SCARNG,<
        XMOVEI T1,.		;Get feature routine address
        MOVE T2,(P)		;Get PC of caller to feature routine
        MOVEI T3,.SSRID		;Get callback notification code
        CALL RG.SCS		;(T1,T2,T3,P1) Record callback event
>				;End of IFN SCARNG
	MOVX T1,.SSRID		;Get SYSAP notify code for remote disconnect
	LOAD T2,CBSCID,(P1)	;Tell the SYSAP which connection went away
	LOAD T3,CBDDRE,(P1)	;Return reason from packet status field
	CALL @.CBADR(P1)	;Notify sysap of disconnection

;Set block state to disconnect_pend to cause disconnect_request to be
;sent.

	MOVEI T1,.BSDPN		;New block state is disconnect_pend
	CALL SC.SCA		;(T1,P1,P4/) Set block state and queue message
	CALL SC.SNM		;(P4/) Send the message if possible
	RET
;SC.FN3 - finish work of SC.DRQ when c.b. is unlocked

;Accepts:
;	P1/ address of c.b.
;	P4/ address of system block

;	CALL SC.FN3

;Returns +1: always

;CIOFF protects from incoming disconnect_response. Ordinarily, it can't
;interfere with incoming disc_req because both are at interrupt level.
;We must be CIOFF for the callback anyway.

SC.FN3:
	CIOFF
	SETZRO CBFDRQ,(P1)	;Clear indication that this was deferred
	MOVEI T1,.STDRQ		;Op code is disconnect_request
	IMULI T1,MXCNST		;Compute offset in the table based
	OPSTR <ADD T1,>,CBCNST,(P1) ; on op code and current state
	SOS T1			;States start at 1
	TMNE K.ERR,(T1)		;We can't handle protocol violation here
	BUG. (HLT,SCAFN3,SCAMPI,SOFT,<SCA - Can't complete deferred call to SC.DRQ>,,<

Cause:	PHYKLP called SCAMPI at SC.DRQ when the connection block was locked.
	At the time, the incoming packet was legal for the current state of
	the connection. Now it is not legal. This shouldn't happen, and it 
	is uncertain how to proceed. It is possible to close the v.c. and 
	continue, but there is a halt in order to analyze the protocol 
	confusion and fix the bug.
>)
	LOAD T1,K.STAT,(T1)	;Get new state
	STOR T1,CBCNST,(P1)	;Store the new connection state

;If the new state is disconnect_received, previous state was open.
;This means the other side initiated the disconnect.

	CAIN T1,.CSDRE		;Is the state disconnect received?
	JRST FN3.CO		;Yes. Go handle that

;Here when new state is not disconnect_received. If new state is closed,
;protocol is complete. This happens when we initiate the disconnection, and
;the other side responds with a disconnect_request.

	CAIN T1,.CSCLO		;Is the new state closed?
	CALL SC.PTC		;(P1/) Yes. Indicate protocol is complete
	CION
	RET

;Here when new state is disconnect_received.
;Corporate spec says the sysap should be required to do a disconnect.
;We fake it by setting the state and sending the message.
;Set the state before calling the sysap. If it does an SC.DIS before returning
;we won't send two disconnect_requests.

FN3.CO:	MOVEI T1,.CSDMC		;New connection state is disconnect_match
	STOR T1,CBCNST,(P1)

;Tell the sysap that the other side hung up.

;	CIOFF			;Sysap wants us to prevent interrupts
   IFN SCARNG,<
      	XMOVEI T1,.		;Get feature routine address
	MOVE T2,(P)		;Get PC of caller to feature routine
	MOVEI T3,.SSRID		;Get callback notification code
	CALL RG.SCS		;(T1,T2,T3,P1) Record callback event
>				;End of IFN SCARNG
	MOVEI T1,.SSRID		;Get SYSAP notify code for remote disconnect
	LOAD T2,CBSCID,(P1)	;Tell the SYSAP which connection went away
	LOAD T3,CBDDRE,(P1)	;Return reason from packet status field
	CALL @.CBADR(P1)	;Notify sysap of disconnection
;	CION

;Set block state to disconnect_pend to cause disconnect_request to be
;sent.

	MOVEI T1,.BSDPN		;New block state is disconnect_pend
	CALL SC.SCA		;(T1,P1,P4/) Set block state and queue message
	SETONE CBFSNM,(P1)	;Indicate call to SC.SNM was deferred.
	CION
	RET
	SUBTTL Call from port driver -- Incoming buffer -- SC.DRS (Disconnect response)

; Here for DISCONNECT_RESPONSE
;
;	Call
;	P2/	Address of message buffer
;	P4/	Address of system block
;
;	Return +1:	Always
;

SC.DRS:	AOS SCAORC		;[7211] COUNT THE MESSAGE
	CALL SC.INC		;[7211] (P2/T1,T2,P1) Check validity, get state & op code
	 JRST SC.RIB		;Return the buffer and quit

	STOR T1,CBCNST,(P1)	;Store the new connect state

;If new state is closed, this is confirmation of our disconnect_request.
;earlier we had received a disconnect_request and sent a disconnect_response
;If not, the other side still needs to send a disconnect_request

	CAIN T1,.CSCLO		;Is the next state CLOSED???
	CALL SC.PTC		;(P1/) Yes. Declare protocol complete
	JRST SC.SAR		;Go send next SCS control message, return buffer
	SUBTTL Call from port driver -- Incoming buffer -- SC.CRQ (Credit request)

; Here to receive CREDIT_REQUEST messages...
;
;	Call
;	P2/	Address of message buffer
;	P4/	Address of system block
;
;	Return +1:	Always
;

SC.CRQ:	AOS SCAORC		;[7211] COUNT THE MESSAGE
	CALL SC.INC		;[7211] (P2/T1,T2,P1) Check validity, get state & op code
	 JRST SC.RIB		;Return the buffer and quit
	MOVEM T2,P5		;Save op code of response

	LOADE T1,MH$CDT,(P2)	;Get the credit field from the message header
	JUMPGE T1,SCR.RS	;Taking credit back?

;Here when the other side is withdrawing credit
;Don't allow this if send credit is already below the minimum, and don't
;allow it to go below the minimum

;Spec says

;if PTR^.CREDIT < 0 
;   then PTR^.CREDIT:=
;        -MIN(MAX(0,CB$SEND_CREDIT-CB$MIN_SEND_CREDIT),-PTR^.CREDIT)

;In our terms,
;	if .CBSCD < CBMNSC, use 0
;	if .CBSCD - CBMNSC .LT. T1, use -(.CBSCD-CBMNSC)
;	if .CBSCD - CBMNSC .GE. T1, use T1 as it is

;Implemented in the opposite sense:
;	Compute CBMNSC-.CBSCD
;	If positive, use 0
;	If .GT. T1, use the difference as computed
;	If .LE. T1, use T1 as it is

	LOAD T2,CBMNSC,(P1)	;Get minimum_send_credit
	SUB T2,.CBSCD(P1)	;Compute -(send_credit - minimum_send_credit)
	SKIPG T2		;Already below minimum?
	IFSKP.
	  SETZM T1		;Yes. Don't reduce at all
	ELSE.
	  CAMLE T2,T1		;Request too large?
	  MOVE T1,T2		;Yes. Reduce only to minimum_send_credit
	ENDIF.
	;..
;Send the response.

;	T1/ credit we decided to accept or give up

	;..
SCR.RS:	ADDM T1,.CBSCD(P1)	;Add this back into send credit
	STOR T1,MH$CDT,(P2)	;Put the credit amount back into the header
	EXCH T1,P5		;Get op code, save credit value
	CALL SC.RS2		;(T1,P1,P2,P4/)Send the response, don't zero credit
	IFNSK.
	  MOVNS P5		;Get negative of credit
	  ADDM P5,.CBSCD(P1)	;Restore credit to previous value
	  JRST SC.RIB		;Return the buffer to the free queue
	ENDIF.

;If the sysap has tried to send a message and failed because of lack of
;send credit, we need to notify it that credit has been given to it.
;Note that we must clear the flag BEFORE the call to the sysap, because
;it may try to send more messages, and run the credit down again, before
;returning control. In that case, SC.SMG could set the flag, and then this
;code would clear it.

	JUMPLE P5,R		;If not adding to credit, we've finished
	LOAD T1,CBCNST,(P1)	;Get current state of the connection.
	TMNE CBFNNC,(P1)	;Does sysap need notification?
	CAIE T1,.CSOPN		;Yes. Is connection open?
	RET			;Nope, return now
	SETZRO CBFNNC,(P1)	;Show notification complete, zero flag in CB
   IFN SCARNG,<
        XMOVEI T1,.		;Get feature routine address
        MOVE T2,(P)		;Get PC of caller to feature routine
        MOVEI T3,.SSCIA		;Get callback notification code
        CALL RG.SCS		;(T1,T2,T3,P1) Record callback event
>				;End of IFN SCARNG
	MOVX T1,.SSCIA		;Say why we are calling, we have credit for you
	LOAD T2,CBSCID,(P1)	;Indicate which connection this for
	MOVE T3,.CBSCD(P1)	;Show the send credit 
	MOVE T4,.CBRCD(P1)	;Receive credit
	CALL @.CBADR(P1)	;Leap into the SYSAP
	RET
	SUBTTL Call from port driver -- Incoming buffer -- SC.CRS (Credit response)

; Here to receive a CREDIT_RESPONSE.
;
;	Call
;	P2/	Address of message buffer
;	P4/	Address of system block
;
;	Return +1:	Always
;

;NOTE:
;If credit field is negative, we can take buffers back from the port. If
;that fails, we have a problem. There will be disagreement among 1) our
;receive credit, 2) the other side's send credit, and 3) the number of
;buffers actually queued for this connection. This code attempts to
;keep 1 and 2 in agreement.

SC.CRS:	AOS SCAORC		;[7211] COUNT THE MESSAGE
	CALL SC.INC		;[7211] (P2/T1,T2,P1) Check validity, get state & op code
	 JRST SC.RIB		;Return the buffer and quit

;Get credit from message, and figure out what is required

	LOADE P3,MH$CDT,(P2)	;Get the credit field from the message header
	SKIPL .CBRQC(P1)	;Were we trying to get credit back?
	IFSKP.
	  MOVM T2,P3		;Get the number we were allowed
	  ADDM T2,.CBRTC(P1)	;Add into return credit.
   IFN SCADBG,<
	ELSE.
	  CAMN P3,.CBRQC(P1)	;Do we agree with the other end?
	  JRST SCC.YY		;Yes. Proceed
	  LOAD T1,SBDPA,(P4)	;Get node number
	  LOAD T2,CBSCID,(P1)	;Get connect ID
	  BUG. (CHK,SCAUCF,SCAMPI,SOFT,<SCA - Unexpected credit field in credit_request>,<<T1,NODE>,<T2,CID>>,<

Cause:	The response to a positive credit_request contains a credit value that
	is different from what is believed to have been sent.

Data:	NODE - Node number
	CID  - Connect ID
>)
   >				;End of IFN SCADBG
	ENDIF.
SCC.YY:	ADDM P3,.CBRCD(P1)	;Update the receive credit
SCC.XX:	SETZM .CBRQC(P1)	;[7.1037]If negative, don't let SC.DAB dequeue
				; because they are counted in return_credit
	SETZM .CBPND(P1)	;Indicate no credit_request pending
	CALL SC.CD1		;(P1,P4/) Queue credit_request if needed
	 NOP			;Don't care whether queued or not
	CALL SC.GCB		;(P1/) Get canceled buffers, if any
	JRST SC.SAR		;Go send the next message

;Common exit for incoming SCS control messages.

;Here when response arrived. This is the packet that is reserved for outgoing
;messages for the system block of interest. Use it to send the next message,
;or queue it to the system block for the next time it wants to send a request.

SC.SAR:	MOVEM P2,.SBOBB(P4)	;Queue buffer to system block
	CALL SC.SNM		;(P4/)Send next SCS control message
	RET

;Here to return buffer to the port. THis happens when the packet arrives
;after the v.c. has already been closed. If it was a request, we can't queue
;it to the system block, because SC.ERR has already run. If we queued it
;now, it would cause a problem when the node came online again, or stay there
;forever if the node never came back.

;Any failing attempt to send a response to a connection management request
;will come here. However, this shouldn't happen because of other checks that
;were made earlier.

;Failure to send a packet will occur only if the v.c. is closed. No attempt
;is made to handle the state of the connection or to notify the sysap when
;this happens, on the assumption that closing the v.c. took care of these things

SC.RIB:	SETZM (P2)		;Clear forward pointer in buffer
   IFN SCARNG,<
	XMOVEI T1,.		;Get feature routine address
	MOVE T2,(P)		;Get PC of caller to feature routine
	MOVEI T3,1		;Set buffer count
	MOVE T4,P2		;Get buffer address
	TXO T3,RPQFLK   	;Set port link flag
	TXO T3,RPQFMG    	;Set message free queue flag
	CALL RG.PQM		;(T1,T2,T3,T4,P4) Record port manipulation
>				;End of IFN SCARNG
	BLCAL. (<@[MSEC1,,LNKMFQ]>,<P4,P2>) ;[7.1037]Return buffer to port's free queue
	RET
	SUBTTL Call from port driver -- Incoming buffer -- SC.INC (Connection management)

;SC.INC - process incoming packet

;Accepts:
;	P2/ address of buffer
;	P4/ address of system block

;	CALL SC.INC

;Returns +1: failure
;	 +2: success,

;		T1/ new state
;		T2/ op code of response
;		P1/ address of connection block

;Determines new state for connection, and appropriate response, for
;incoming SCS control message

;NOTE: callers to this routine give the buffer back to the port if this
;returns +1, on the assumption that the v.c. has been closed. If this
;routine is changed to handle failure in some other way, changes may be
;necessary in the callers.

SC.INC:	SAVEAC <P3>
	LOAD T1,SBVCST,(P4)	;If the v.c. is already closed, we aren't
	CAIE T1,VC.OPN		; interested in this packet
	RET
	LOAD P3,MH$MSG,(P2)	;Get the op code
	CAIN P3,.STORQ		;Special case for CONNECT_REQ
	RETSKP

;See whether we know about this connect ID

	LOAD T1,MH$DCI,(P2)	;Get destination connect-ID
	CALL <XENT SC.CSC>	;[7.1037](T1/T1,P1) Is it valid?
	 JRST SC.IN6		;No. Go handle the problem
   IFN SCADBG,<
	CAME P4,.CBSBA(P1) 	;Is address of system block OK
	JRST SC.IN4		;No.
   >				;end IFN SCADBG
;See whether this event is expected given the current state

	IMULI P3,MXCNST		;Compute offset in the table based
	OPSTR <ADD P3,>,CBCNST,(P1) ; on op code and current state
	SOS P3			;States start at 1
	JN K.ERR,(P3),SC.IN4	;If unexpected, go handle the error


	TMNN K.CHK,(P3)		;Want to check this response?
	IFSKP.
	  LOAD T3,MH$MSG,(P2)	;Yes. Get op code
	  OPSTR <CAMN T3,>,CBEXPR,(P1); Is this what we expected?
	  JRST SC.IN2		;Yes.
	  LOAD T1,SBDPA,(P4)	;Get node number
	  LOAD T2,CBSCID,(P1)	;Get out connect id
	  LOAD T4,CBEXPR,(P1)	;Get what we expected
	  BUG. (CHK,SCAUXR,SCAMPI,SOFT,<SCA - Unexpected response>,<<T1,NODE>,<T2,CID>,<T3,OPCODE>,<T4,EXPECT>>,<

Cause:	A connection management response arrived for a particular
	connection, but the op code is not the expected one.

Action:	The v.c. will be closed, on the assumption that the other node
	violated protocol. This may correct the confusion. If this error
	persists, try to determine the events that led to it. Use the
	ring buffer if necessary.

Data:	NODE   - Node number
	CID    - Connect ID
	OPCODE - Op code of incoming packet
	EXPECT - Expected op code for this connection
>)
	  JRST SC.IN7		;Go close the v.c.
	ENDIF.

;We like this packet. Return success to the caller.

SC.IN2:	LOAD T1,K.STAT,(P3)	;It's legal. Get new state
	LOAD T2,K.OP,(P3)	; and op code to send
	RETSKP			;Success
;Something unexpected happened. Handle the error here and return failure

SC.IN4:
	LOAD T1,SBDPA,(P4)	;get node number
	LOAD T2,CBSCID,(P1)	;get our connect ID
	LOAD T3,MH$MSG,(P2)	;get op code
	LOAD T4,CBCNST,(P1)	;get state of connection
	BUG. (CHK,SCAPER,SCAMPI,SOFT,<SCA - Protocol error>,<<T1,NODE>,<T2,CID>,<T3,OPCODE>,<T4,STATE>>,<

Cause:	An incoming message violated the SCS protocol. This message is 
	illegal. Closing the v.c. will eliminate any confusion.

Action:	If this persists, change it to a BUGHLT, and determine the sequence of
	events that led to it. Use the ring buffer, if necessary.

Data:	NODE   - Node number
	CID    - Connect ID at this node
	OPCODE - Op code of incoming packet
	STATE  - state of connection
>)
	JRST SC.IN7		;Go close the v.c.

;Here when destination CID doesn't exist. Complain. Note: Can't use common
;BUGCHK because there's no connection block.

SC.IN6:
	LOAD T1,SBDPA,(P4)	;Get node number
	LOAD T2,MH$DCI,(P2)	;Get destination CID
	LOAD T3,MH$MSG,(P2)	;Get op code
	BUG. (CHK,SCANOC,SCAMPI,SOFT,<SCA - Received packet and connection block doesn't exist>,<<T1,NODE>,<T2,CID>,<T3,OPCODE>>,<

Cause:	An incoming packet's destination CID doesn't match any connection block.
	This may reflect disagreement with another node about the state of
	a previously-existing connection.

Action:	The v.c. will be closed, which will correct the problem.
	If this bug persists, try to determine the events that led to it.
	Use the ring buffer if necessary.

Data:	NODE   - Node number
	CID    - Connect ID
	OPCODE - Op code
>)
	;..
;Close the v.c. and return failure

	;..

SC.IN7:	CALL SC.CVC		;(P4/) Close the v.c.
	RET			;Return failure
	SUBTTL Call from port driver -- Incoming buffer -- SC.ADG/SC.AMG (application datagram/message)

;Accepts:
;	T1/ Flags
;	T2/ Length (bytes if industry compatible; words if high density)
;	P2/ Address of packet
;	P4/ Address of system block

;	CALL SC.ADG/SC.AMG

;Returns +1: Always

;Caller did SAVEP

SC.ADG:
SC.AMG:
	LOAD T3,SBVCST,(P4)	;If the v.c. has already been closed
	CAIE T3,VC.OPN		; return the buffer
	JRST SAG.RT

;Save flags and packet length

	ANDX T1,C%FLGM		;Be sure to keep just the flag bits
	MOVEM T1,P3		;Save flags
	MOVEM T2,P5		;Save length

;Check for error cases -- invalid CID or invalid state

	LOAD T1,MH$DCI,(P2)	;Get destination connect ID from packet
	CALL <XENT SC.CSC>	;[7.1037](T1/T1,P1) Check if this connect ID is OK
	 JRST SAG.CL		;No. Close the v.c.
	LOAD T1,CBCNST,(P1)	;Get the connection state
	CAIN T1,.CSOPN		;Is the connect state open?
	JRST SAG.OK		;Yup, allow this to happen
	CAIE T1,.CSDAK		;Are we in the middle of sending
	CAIN T1,.CSDSE		;  or receiving a disconnect?
	JRST SAG.RT		;Yes. It's OK. Return the buffer
	JRST SAG.CL		;No. We shouldn't be getting this packet now
;Here when we are happy to receive this packet

SAG.OK:	STOR P5,MH$PKL,(P2)	;Store packet length where sysap expects it
	LOAD T2,MH$DCI,(P2)	;Sysap wants destination connect ID
	MOVE T3,P2		;Sysap wants address of packet
	LOAD P5,MH$MSG,(P2)	;Which kind of packet was this?
	CAIE P5,.STAMG		;Message?
	IFSKP.
	  SOS .CBRCD(P1)	;Yes. Decrease receive credit
	  LOAD T1,MH$CDT,(P2)	;Get credit from packet
	  ADDM T1,.CBSCD(P1)	; and increase send credit by this amount
	  MOVEM T1,P2		;* * *Note: P2 no longer points to buffer
	  MOVEI T1,.SSMGR	;Get reason code for sysap
	  MOVE T4,[MSEC1,,SC.RBF]  ;[7.1048] Address of buffer-returning routine
	ELSE.
	  SOSGE .CBDGR(P1)	;Datagram. Do we have a buffer queued?
	  JRST SAG.DD		;NO. Have to drop this datagram
	  MOVEI T1,.SSDGR	;Get reason code for sysap
	  MOVE T4,[MSEC1,,SC.RLD]  ;[7.1048] Address of buffer-returning routine
	ENDIF.
	IOR T4,P3		;Combine with flags
   IFN SCARNG,<
	BLOCK.
	  SAVEAC <T1,T2,T3>	;Save smashed ACs
	  MOVE T3,T1		;Get callback notification code
      	  XMOVEI T1,.		;Get feature routine address
	  MOVE T2,-5(P)		;Get PC of caller to feature routine
	  CALL RG.SCS		;(T1,T2,T3,P1) Record callback event
	ENDBK.
>				;End of IFN SCARNG
	CALL @.CBADR(P1)	;Give the packet to the sysap
	CAIE P5,.STAMG		;Was this a message?
	RET			;No. We've finished, then.

;This was a message.
;If the remote sysap increased our send credit, and our sysap needs
;to be told, tell it now.

	TMNE CBFNNC,(P1)	;Sysap waiting for credit?
	SKIPN P2		;Yes. Did we get any?
	JRST SAG.XX		;No. Don't notify, then
	SETZRO CBFNNC,(P1)	;Indicate sysap no longer waiting
   IFN SCARNG,<
        XMOVEI T1,.		;Get feature routine address
        MOVE T2,(P)		;Get PC of caller to feature routine
        MOVEI T3,.SSCIA		;Get callback notification code
        CALL RG.SCS		;(T1,T2,T3,P1) Record callback event
>				;End of IFN SCARNG
	MOVEI T1,.SSCIA		;Credit is available
	LOAD T2,CBSCID,(P1)	;Connect ID
	MOVE T3,.CBSCD(P1)	;Send credit
	MOVE T4,.CBRCD(P1)	;Receive credit
	CALL @.CBADR(P1)

;If this pushed our receive credit under the minimum, notify the
;sysap that little credit is left.

SAG.XX:	MOVE T1,.CBPRC(P1)	;Get the pending receive credit
	MOVE T2,.CBRCD(P1)	;  and the receive credit
	ADD T1,T2		;Get the sum of the two
	LOAD T2,CBMNRC,(P1)	;Get the minimum receive credit
	SUB T1,T2		;Differenec between threshold and what we have
	SKIPLE T1		;Is there more left???
	RET			;Yes return now...
	MOVM T3,T1		;Get the positive number of buffers to get
	AOS T3			;Increment just have an extra around
   IFN SCARNG,<
	BLOCK.
	  SAVEAC <T3>		;Save smashed ACs
      	  XMOVEI T1,.		;Get feature routine address
	  MOVE T2,-3(P)		;Get PC of caller to feature routine
	  MOVEI T3,.SSLCL	;Get callback notification code
	  CALL RG.SCS		;(T1,T2,T3,P1) Record callback event
	ENDBK.
>				;End of IFN SCARNG
	MOVX T1,.SSLCL		;Get the reason for our call
	LOAD T2,CBSCID,(P1)	;Get our connect ID
	CALL @.CBADR(P1)	;Call the SYSAP
	RET			;And return.
;Have to drop this datagram.

SAG.DD:
   IFN SCARNG,<
	XMOVEI T1,.		;Get feature routine address
        MOVE T2,(P)		;Get PC of caller to feature routine
        MOVEI T3,.SSDDG		;Get callback notification code
        CALL RG.SCS		;(T1,T2,T3,P1) Record callback event
>				;End of IFN SCARNG
	MOVEI T1,.SSDDG		;Get callback reason code
	LOAD T2,MH$DCI,(P2)	;Sysap wants destination connect ID
	CALL @.CBADR(P1)	;Call the SYSAP
	INCR CBCDD,(P1)		;Count a dropped datagram
	AOS .CBDGR(P1)		;Restore the count that we decremented
	JRST SAG.RT		;Go return the buffer

;Here when the packet shouldn't have come. Close the v.c.

SAG.CL:	CALL SC.CVC		;(P4/) Close the v.c.

;Return the buffer to the port.
;* * * *
;Might be better to adjust the count in the connection block and return
;the buffer to SCA. WOuld have to do this only when the c.b. still exists.
; * * * *

SAG.RT:	SETZM (P2)		;Clear FLINK word in buffer
	LOAD T1,MH$MSG,(P2)	;Get op code
	CAIE T1,.STAMG		;Message?
	IFSKP.
   IFN SCARNG,<
	  XMOVEI T1,.		;Get feature routine address
	  MOVE T2,(P)		;Get PC of caller to feature routine
	  MOVEI T3,1		;Set buffer count
	  MOVE T4,P2		;Get buffer address
	  TXO T3,RPQFLK   	;Set port link flag
	  TXO T3,RPQFMG   	;Set message free queue flag
	  CALL RG.PQM		;(T1,T2,T3,T4,P4) Record port manipulation
>				;End of IFN SCARNG
	  BLCAL. (<@[MSEC1,,LNKMFQ]>,<P4,P2>) ;[7.1037]Yes. Return buffer to port
	ELSE.
   IFN SCARNG,<
	  XMOVEI T1,.		;Get feature routine address
	  MOVE T2,(P)		;Get PC of caller to feature routine
	  MOVEI T3,1		;Set buffer count
	  MOVE T4,P2		;Get buffer address
	  TXO T3,RPQFLK   	;Set port link flag
	  TXZ T3,RPQFMG   	;Clear message free queue flag since datagram
	  CALL RG.PQM		;(T1,T2,T3,T4,P4) Record port manipulation
>				;End of IFN SCARNG
	  BLCAL. (<@[MSEC1,,LNKDFQ]>,<P4,P2>) ;[7.1037]No. Return datagram buffer
	ENDIF.
	RET
	SUBTTL Periodic functions -- SC.CLK (Dispatch)

;This routine is called by the scheduler at CLK2. 

;For debugging, it is useful to patch out the call to SC.IDL.

;
; Usage:
;	Call
;	No arguments
;
;	Return (+1) Always
;	No arguments returned
;

; * * * Seems to be called before initialization takes place. Should
;check that
; * * * 

XRENT	(SC.CLK,G)		;[7.1037]SC.CLK::, XSC.CL::
	CALL SC.IDL		;Do idle chatter
	RET			;All done
	SUBTTL Periodic functions -- SC.IDL (Idle chatter)

; This routine handles idle chatter.
;	If a remote has not sent us a packet lately we will send it a credit
;request over an open connect. (Hence if there are no open connections then
;there is no idle chatter) 
;
; Usage:
;	Call
;	No arguments
;
;	Return (+1) Always
;	No data returned
;
SC.IDL:	SKIPE CITIMR		;TIMERS OFF FOR DEBUGGING?
	RET			;YES
	SAVEP			;NO
	MOVX T1,C%STIM		;Get the cycle time for the next loop
	MOVEM T1,SCATIM		;Reset the timer
	AOS T1,TMGSBI		;Get the next SBI we should look at
	CAIL T1,C%SBLL		;Have we gone off the end of the list???
	SETZB T1,TMGSBI		;Yes, reset to the start of the list
	SKIPN P4,SBLIST(T1)	;Is there an SB here???
	RET			;No, all done
	LOAD T1,SBVCST,(P4)	;Get the port to port virtual circuit state
	CAIE T1,VC.OPN		;If it's not open,
	RET			; punt on this SB
	SKIPN .SBFCB(P4)	;Are there any connections on this SB???
	RET			;No, we have nothing to do this time around
	SKIPN T1,.SBTIM(P4)	;Has this node ever spoken to us???
	RET			;No, ignore it
	SUB T1,TODCLK		;Yes, build long ago that was
	CAMLE T1,TMGTIM		;Has it been too long???
	RET			;No, return

;It's been a while since we heard from this node. If we already sent a
;timed message the last time we came through here, give up on it and close
;the v.c. Otherwise, go send a timed message.

	TMNN SBFTMG,(P4)	;Has a timed message been sent on this SB???
	JRST SCL.LP		;No.
	AOS TMGCNT		;Yes, count another system biting the dust
	LOAD T2,SBDPA,(P4)	;Get remote node number
	BUG. (INF,SCATMO,SCAMPI,SOFT,<SCA - SCA timed out remote node>,<<T2,NODE>,<T1,TIME>>,<

Cause:	SCA sent a message to another node, and did not receive a response
	within a timeout period.

Action:	This happens legitimately if a node crashes. If this timeout
	is occurring for nodes that appear to be running, try to determine
	why they are not communicating.

Data:	NODE - Node number
	TIME - time since we sent timed message
>,,<DB%NND>)			;[7.1210] 
	CALL SC.CVC		;(P4/) Close the v.c.
	RET			;  and we are all done with this SB
;Find a connection on this system block that is fully open
;If node goes offline while we're doing this, all attempts at sending
;will fail because connection state will be closed for each c.b.,
;and v.c. will be closed

;NOSKED is sufficient to protect the list of connection blocks, because
;the reaper runs in process context.

SCL.LP:
	NOSKED			;Prevent reaper from removing entries

;The following check needs some verification. However, it seems that if
;the buffer is in use, there's no need to send another message for timing
;purposes, because a message was just sent.

;	SKIPN .SBOBB(P4)	;Is the buffer in use now?
;	JRST SCL.EX		;Yes. Don't need to send another message, then

	SKIPN P1,.SBFCB(P4)	;Get addr of first CB
	JRST SCL.EX		;All CB's are gone, all done with this SB

;Try this connection block. If the connection state is OK, we'll send it
;a credit_request

SCL.TC:	CALL SC.LOK		;(P1/) Lock the connection block
	SETOM P3		;Assume we'll need to send something
	CALL SC.CD7		;(P1,P4/) Queue credit request if possible
	 SETZM P3		;Don't need to send a message
	CALL SC.ULK		;(P1/) Unlock the connection block
	SKIPN P3		;Can we send the credit_request?
	JRST SCL.NC		;No. Try another one

;We sent a credit_request to this node

	CALL SC.SNM		;(P4/) Send next message
	SETONE SBFTMG,(P4)	;Light the timed message sent flag
	JRST SCL.EX

;Step to next connection block on this system block

SCL.NC:	SKIPE P1,.CBANB(P1) 	;Is there a next connection?
	JRST SCL.TC		;Try it

SCL.EX:	OKSKED
	RET
	SUBTTL Periodic functions -- SC.RAP (Reap old connections)

; This routine is called by job 0. We don't need
;to be nearly that prompt so we only do anything real every 15 seconds.
;When we do go off, loop over the total set of connections known to SCA and
;reap connection blocks that have the reap bit lit. Also, light the reap bit
;for connections with the abort bit lit.
;
;	Call
;	No arguments
;
;	Return (+1) Always
;	No data returned
;
;

;This routine assumes that it is the only deleter of connection blocks.
;In particular, it assumes that no block in the chain can be deleted by
;some other process while it is searching through the chain.

XRENT	(SC.RAP,G)		;[7.1037]SC.RAP::, XSC.RA::
	SAVEAC <P1,Q1,P5>

;Loop through all the system blocks

SRA.LP:	SETZRO CIREP		;WE'RE NOW REAPING
	SETO Q1,		;Fudge so we start with the zero'th SB
SRA.NS:	AOS Q1			;Move on to the next system block
	CAILE Q1,C%SBLL-1	;Have we run off the end of the list???
	JRST SRA.DC		;Yes, go do the dont care list
	SKIPN T2,SBLIST(Q1)	;Is there an entry here???
	JRST SRA.NS		;No, try the next system block

;Loop through all connection blocks for this system block

	SKIPN P1,.SBFCB(T2)	;Is there a first CB???
	JRST SRA.NS		;No, try the next system block
	;..
;We're interested in this block only if it's reapable. 
;This is indicated by the "reap" bit. If we are debugging, we'll make some
;sanity checks first. The sysap may have queued a buffer for output after
;the reap bit was set. If one or more buffers is still outstanding,
;we will wait a while.

	;..
SRA.CC:	MOVE P5,.CBANB(P1)	;Save the address of the next CB
	TMNN CBFRAP,(P1)	;Is it reapable?
	JRST SRA.CL		;No. Go check the next one

;Reap bit is set. Make sure we really mean it.

	TMNE CBNPO,(P1)		;Are packets still on the command queue?
	JRST SRA.PO		;Yes. Wait a while
   IFN SCADBG,<
	CALL SC.RRR		;(P1/) Is it really ready to reap?
	 JRST SRA.PO		;No. Postpone it, then
   >				;End of IFN SCADBG

;We mean it. Do the job.

	CALL <XENT SC.DAB>	;[7.1037](P1/) Reap the connect data
	JRST SRA.CL		;  and go on

;Postpone reaping because something hasn't been cleaned up. But if we do
;this several times, give up and reap anyway.

SRA.PO:	INCR CBRCNT,(P1)	;Count another postponement
	LOAD T1,CBRCNT,(P1)	;Have we had enough of this?
	CAIGE T1,RPMAX
	JRST SRA.CL		;Not yet. Go check next block

;Here when we've postponed reaping a number of times, and we're just going to
;do it anyway! The assumption is that the reason for delaying is invalid,
;that some bug is causing the count or FLINK word never to be zeroed.

	LOAD T1,CBSCID,(P1)	;Get connect ID
	MOVE T2,.CBSBA(P1)	;Get system block address
	LOAD T2,SBDPA,(T2)	;Get node number
	LOAD T3,CBBKST,(P1)	;BLock state
	LOAD T4,CBNPO,(P1)	;Number of queued commands
	BUG. (CHK,SCARTO,SCAMPI,SOFT,<SCA - Reap timed out>,<<T2,NODE>,<T1,CID>,<T3,STATE>,<T4,COUNT>>,<

Cause:	A block that is reapable cannot be reaped because either the count of
	outstanding packets is non-zero or a debugging check has failed. After
	several postponements, these were not corrected. The block is now being
	deleted.

Action:	If COUNT is non-zero, see if the CI-20 was reloaded recently.
	Buffers can be lost legitimately when this happens.

Data:	NODE  - Node number
	CID   - Connect ID at this node
	STATE - Block state
	COUNT - Contents of CBNPO (number of queued messages or datagrams)
>)

;* * * *NOTE: FOR NOW, DON't REAP SO WE CAN DEBUG IT!

;	CALL <XENT SC.DAB>		;[7.1037](P1/) Reap the data

;Here when finished with current c.b. Move on to next one.

SRA.CL:	MOVE P1,P5		;Get the address of the next CB in line
	JUMPN P1,SRA.CC		;If there is one, check it for reaping/aborting
	JRST SRA.NS		;Else, try for the next SB
; Here when we have finished all regular CB's and are ready to work on the
;don't care queue. Since these are listeners, there should be no reason to
;postpone reaping.

SRA.DC:	SKIPN P1,TOPDC		;Are there DC blocks to consider???
	RET			;No, return now pls
	CIOFF			;Protect against changes in the list
	MOVE P1,TOPDC		;Get the top of the list
SRA.DL:	SKIPE P1		;Is this a real entry?
	IFSKP.
	  CION			;No. We've finished
	  TMNN CIREP		;IS THERE MORE FOR US TO DO?
	  RET			;NO
	  JRST SRA.LP		;YES
	ENDIF.
	TMNE CBFRAP,(P1)	;Is this reapable?
	IFSKP.
	  MOVE P1,.CBANB(P1)	;No. Get the next one
	  JRST SRA.DL		; and continue
	ELSE.
	  CION			;Yes. Allow interrupts while we do it
	  CALL <XENT SC.DAB>	;[7.1037](P1/) Reap this block
	  JRST SRA.DC		;Go start over since list may have changed
	ENDIF.
;SC.RRR - see if we're really ready to reap

;Accepts:
;	P1/ address of connection block

;	CALL SC.RRR

;Returns +1: not ready
;	 +2: ready

   IFN SCADBG,<
SC.RRR:
	LOAD T1,SBDPA,(P4)	;Get node number for optional data
	LOAD T2,CBSCID,(P1)	;Get connect ID

;When we set the reap bit, we cleared the block state. If it's not zero now,
;something is wrong.

	TMNN CBBKST,(P1)	;Not ready if block state isn't zero
	IFSKP.
	  LOAD T3,CBBKST,(P1)	;Get block state
	  BUG. (CHK,SCABSN,SCAMPI,SOFT,<SCA - Block state non-zero when ready to reap>,<<T1,NODE>,<T2,CID>,<T3,STATE>>,<

Cause:	SCA is ready to delete a connection block, and its block state
	is non-zero. The block state should have been cleared when the reap
	bit was set.

Data:	NODE  - Node number
	CID   - Connect ID
	STATE - block state
>)
	  RET
	ENDIF.

;Check requeue credit. If it's non-zero, we must have sent out a credit_request
;to which we expect a reply.

	SKIPE T3,.CBRQC(P1)	;Non-zero implies credit_request outstanding
	TMNN CBFCVC,(P1)	; but it's bad only if v.c. is open
	IFSKP.
	  BUG. (CHK,SCANRC,SCAMPI,SOFT,<SCA - Non-zero requeue credit at SC.DAB>,<<T1,NODE>,<T2,CID>,<T3,CREDIT>>,<

Cause:	SCA is ready to delete a connection block, and its requeue credit is
	non-zero. This indicates that a credit_response is still expected.

Data:	NODE   - Node number
	CID    - Connect ID
	CREDIT - Requeue credit

>)				;[7.1037]
	  RET
	ENDIF.

;If the lock count is non-zero, some code thinks it still owns the connection
;block.

	SKIPN T3,.CBLCK(P1)
	IFSKP.
	  BUG. (CHK,SCANLC,SCAMPI,SOFT,<SCA - Non-zero lock count at SC.DAB>,<<T1,NODE>,<T2,CID>,<T3,COUNT>>,<

Cause:	SCA is ready to delete a connection block, and its lock count is
	non-zero.

Data:	NODE  - Node number
	CID   - Connect ID
	COUNT - lock count
>)				;[7.1037]
	  RET
	ENDIF.

;All's well. We reap.

	RETSKP			;Indicate we can reap it.
   >				;End of IFN SCADBG
; This routine dealocates a connection block. Simply call it with P1 set up
;to be the connection block address and it will make the block go away...
;
;Usage:
;	Call
;	P1/	Address of connection block
;
;	Return (+1) Always
;	No data returned, connection block has been dealocated.
;
XRENT	(SC.DAB,G)		;[7.1037]SC.DAB::, XSC.DA::
	SAVEAC <Q1,P4>
	CIOFF			;Allow no other access to CB Q
	AOS RCBCNT		;Count another CB biting the dust
	MOVE P4,.CBSBA(P1)	;Get the pointer to the system block
	JUMPLE P4,SRC.DC	;Was this a dont care CB, if so P4 is -1
	CALL SC.RSQ		;(P1/) Remove from system block queue
	CION			;Has been take off CB queue, allow access

; Remove CID table entry from CIDTAB for this CB.  Keep the uniqueness bits
; stored in UBTTAB for later verification (used in routine SC.FUB).

	LOAD T1,CBSCID,(P1)	;Get the connect ID from the CB
	LOAD T4,INDEX,T1	;Extract the index from the CID
	MOVE T1,T4		;Get a copy we can smash
	ADD T1,CIDTAB		;Add the offset to the CB addr table
	SETZM (T1)		;Zero the address entry for this CB

;Here to get buffers back from the message free queue.

SRC.NJ:	
	MOVE Q1,.CBRCD(P1)	;Get the total current credits
	ADD Q1,.CBPRC(P1)	;add the number of pending credits
	ADD Q1,.CBRQC(P1)	; and number of credits in outstand CDT_REQ
	ADD Q1,.CBRTC(P1)	;Add canceled buffers not yet dequeued
	JUMPE Q1,SRC.DG		;If nothing to dequeue, try datagrams
SRC.B1:	BLCAL. (<@[MSEC1,,ULNKMG]>,<P4>) ;[7.1037](/T1) Get a buffer back from the port
	IFNSK.
	  LOAD T1,SBDPA,(P4)	;Get node number
	  LOAD T2,CBSCID,(P1)	;Get connect ID
	  BUG. (CHK,SCACGM,SCAMPI,SOFT,<SCA - Can't get message buffer when reaping>,<<T1,NODE>,<T2,CID>,<Q1,COUNT>>,<

Cause:	While reaping a connection block, a receive credit indicates that
	message buffers are queued to the port. However, the port's queue has
	been emptied while these buffers were removed.

Data:	NODE  - node number
	CID   - Connect ID
	COUNT - number of buffers remaining to be dequeued
>)
   IFN SCARNG,<
	  XMOVEI T1,.		;Get feature routine address
	  MOVE T2,-3(P)		;Get PC of caller to feature routine
	  MOVEI T3,1		;Set buffer count
	  SETOM T4		;Set buffer address to -1 due to failure
	  TXZ T3,RPQFLK   	;Clear port link flag since unlinking
	  TXO T3,RPQFMG   	;Set message free queue flag
	  CALL RG.PQM		;(T1,T2,T3,T4,P4) Record port manipulation
>	         		;End of IFN SCARNG
	  JRST SRC.DG		;No message buffers left, do datagrams
	ENDIF.
   IFN SCARNG,<
	BLOCK.
	  SAVEAC <T1>		;Save smashed AC
	  MOVE T4,T1		;Get buffer address
	  XMOVEI T1,.		;Get feature routine address
	  MOVE T2,-6(P)		;Get PC of caller to feature routine
	  MOVEI T3,1		;Set buffer count
	  TXZ T3,RPQFLK   	;Clear port link flag since unlinking
	  TXO T3,RPQFMG   	;Set message free queue flag
	  CALL RG.PQM		;(T1,T2,T3,T4,P4) Record port manipulation
	ENDBK.
>				;End of IFN SCARNG
	CALL <XENT SC.RBF>	;[7.1037](T1/) Return the buffer to SCA free pool 
	SOJG Q1,SRC.B1		;  and loop if there are more buffers left
	;..

; Here to get datagram buffers back from the free queue.

	;..
SRC.DG:	MOVE Q1,.CBDGR(P1)	;Get the number of datagrams queued
	JUMPE Q1,SRC.EX		;Is there are none queued, exit now
SRC.DL:	BLCAL. (<@[MSEC1,,ULNKDG]>,<P4>) ;[7.1037]Unlink a datagram
	IFNSK.
	  LOAD T1,SBDPA,(P4)	;Get node number
	  LOAD T2,CBSCID,(P1)	;Get connect ID
	  BUG. (CHK,SCACGD,SCAMPI,SOFT,<SCA - Can't get datagram buffer when reaping>,<<T1,NODE>,<T2,CID>,<Q1,COUNT>>,<

Cause:	When reaping a connection block, a buffer count indicates that
	datagram buffers are queued to the port. However, the port's queue has
	been emptied while these buffers were removed.

Data:	NODE  - node number
	CID   - Connect ID
	COUNT - number of buffers remaining to be dequeued
>)
   IFN SCARNG,<
	  XMOVEI T1,.		;Get feature routine address
	  MOVE T2,-3(P)		;Get PC of caller to feature routine
	  MOVEI T3,1		;Set buffer count
	  SETOM T4		;Set buffer address to -1 due to failure
	  TXZ T3,RPQFLK   	;Clear port link flag since unlinking
	  TXZ T3,RPQFMG   	;Clear message free queue flag since datagram
	  CALL RG.PQM		;(T1,T2,T3,T4,P4) Record port manipulation
>	         		;End of IFN SCARNG
          JRST SRC.EX		;Can't get any more
	ENDIF.
   IFN SCARNG,<
	BLOCK.
	  SAVEAC <T1>		;Save smashed AC
	  MOVE T4,T1		;Get buffer address
	  XMOVEI T1,.		;Get feature routine address
	  MOVE T2,-6(P)		;Get PC of caller to feature routine
	  MOVEI T3,1		;Set buffer count
	  TXZ T3,RPQFLK   	;Clear port link flag since unlinking
	  TXZ T3,RPQFMG   	;Clear message free queue flag since datagram
	  CALL RG.PQM		;(T1,T2,T3,T4,P4) Record port manipulation
	ENDBK.
>				;End of IFN SCARNG
	CALL <XENT SC.RLD>	;[7.1037](T1/)  and return it to the SCA free pool
	SOJG Q1,SRC.DL		;Loop if there are more buffers to do

SRC.EX:
;	CALL SC.JSY		;(P1/) Clean up data for JSYS connection
	JRST SRC.KL		;Go kill the buffer

; Here when we are deleting an entry from the dont care listen queue. We can 
;make some nice assumptions about this CB here. It was never in any state other
;than listen, hence no checks need be made for buffers, or blocks hanging
;off this CB. It only needs to be removed from the don't care queue and
;the fork queue of the owning fork (if this is a JSYS connect).
;
SRC.DC:	CALL SC.RDQ		;(P1/) Remove it from don't-care queue
	CION			;Restore CI interrupts

;delete the connection block

SRC.KL:	MOVE T1,P1		;Move addr of CB to be released
	CALL <XENT SC.RBF>	;Release buffer space back to free pool
	RET			;  and return OK...

COMMENT |

;SC.JSY - Do cleanup required for a JSYS connection
;
;Accepts:
;	P1/ address of connection block
;
;	CALL SC.JSY
;
;Returns +1: always
;
SC.JSY:
;
; If this is a JSYS connection, remove it from the fork CB queue.
;
	MOVE T2,.CBFLG(P1)	;Get the CB flags
	TXNE T2,<CBFJSY>	;Is this a JSYS connection???
	TXNE T2,<CBFKIL>	;A JSYS connect, is the fork gone???
	RET			;Not a JSYS connect, or, if a JSYS connect the
				;   fork has been killed already  

	SETZ Q1,		;Clear the RELCPT flag
	LOAD T4,CBFORK,(P1)	;Get the controlling fork number
	CAME T4,FORKX		;Is this the current fork???
	IFNSK.
	  SETO Q1,		;Set the RELCPT flag
	  LOAD T1,FKPS%,(T4)	;Nope, get the SPT slot for the PSB
	  CALLX (MSEC1,SETCPT)	;[7.1037]Map the target PSB
	  MOVEI T1,SCSTCQ	;Get the rightmost 18 bits of the queue top
	  ANDI T1,777		;Keep only the offset pls...
	  XMOVEI T1,CPTPGA(T1)	;Get the address of the queue top pointer
	  MOVEI T2,SCSBCQ	;Get the right 18 bits of the queue bottom
	  ANDI T2,777		;Keep just the page offset
	  XMOVEI T2,CPTPGA(T2)	;Now get the address of queue bottom pointer
	  MOVES (T2)		;Reduce chance of NOSKED page faults
	ELSE.
	  XMOVEI T1,SCSTCQ	;This is current fork, get Q top pointer
	  XMOVEI T2,SCSBCQ	;  and addr of queue bottom pointer
	 ENDIF.

	NOSKED			;Time to diddle the fork queues
	LOAD T3,CPJNB,(P1)	;Get the addr of the next fork CB
	LOAD T4,CPJPB,(P1)	;  and the addr of the previous
	SKIPN T3		;Is this the last buffer to come off???
	SKIPE T4		;.	.	.
	JRST SRC.NL		;No, handle case of other entries left
	SETZM (T1)		;Last entry, zero the list head
	XMOVEI T1,SCSTCQ	;Always use real top of queue address
	MOVEM T1,(T2)		;  to init tail as pointer to head
	OKSKED			;We are last entry, allow access again
	JRST SRC.BD		;Now go handle any BSD's we have on this CB

; Not the last entry on the fork CB queue.
;
SRC.NL:	SKIPE T3		;Is there a next entry???
	STOR T4,CPJPB,(T3)	;Yes, update previous pointer of next CB
	SKIPE T4		;Is there a previous entry???
	STOR T3,CPJNB,(T4)	;Yes, update next field of previous entry
	OKSKED			;Done with Q pointers allow access again

; Note: We assume here that there are no pending packets on this CB. We make
;this assumption since one of two things has happened. Either the queue has
;been cleared by now or the KLIPA has been reloaded. In either case there
;are no more pending packets for this connect. No matter what the count
;may be...

SRC.BD:	SKIPE Q1		;Do we need to call RELCPT???
	CALLX (MSEC1,RELCPT)	;[7.1037]Yes, release the mapped PSB page...

	OPSTR <SKIPN T1,>,CBTBQ,(P1) ;Are there BSD's on this connection???
	JRST SRC.DQ		;No, go do queue entry deallocation
	CALL SCM.RD		;Return Datagrams

; Here to take entries off all of the JSYS queues (messgae, datagram, DMA, and
;event).
;
SRC.DQ:	OPSTR <SKIPN T1,>,CBTMQ,(P1) ;Are there any messages for this connection???
	JRST SRC.DD		;No, try for datagrams
	XMOVEI T2,MSG		;This is a message block
	CALL <XENT SCSDEQ>	;[7.1043]Remove it from the fork and CB queues
	CALL <XENT SC.RBF>	;[7.1037]Return the message buffer
	JRST SRC.DQ		;Loop for all message buffers on the CB

; Here to get entries back from the datagram queue
;
SRC.DD:	OPSTR <SKIPN T1,>,CBTDQ,(P1) ;Are there any datagrams for this connection???
	JRST SRC.DX		;No, try for DMA blocks
	XMOVEI T2,DG		;This is a datagram block
	CALL <XENT SCSDEQ>	;[7.1043]Remove it from the fork and CB queues
	CALL <XENT SC.RLD>	;[7.1037]Return the datagram buffer
	JRST SRC.DD		;Loop for all datagram buffers on the CB

; Here to get entries back from the DMA queue
;
SRC.DX:	OPSTR <SKIPN T1,>,CBTXQ,(P1) ;Are there any datagrams for this connection???
	JRST SRC.DE		;No, try for DMA blocks
	XMOVEI T2,XFER		;This is a datagram block
	CALL <XENT SCSDEQ>	;[7.1043]Remove it from the fork and CB queues
	CALLX (MSEC1,RELRES)	;[7.1037]Release the DMA block
	JRST SRC.DX		;Loop for all DMA block

; Here to get entries back from the event queue
;
SRC.DE:	OPSTR <SKIPN T1,>,CBTEQ,(P1) ;Are there any events for this connection???
	RET			;No. Finished
	XMOVEI T2,EVT		;This is an event block
	CALL <XENT SCSDEQ>	;[7.1043]Remove it from the fork and CB queues
	CALLX (MSEC1,RELRES)	;[7.1037]Return the event block
	JRST SRC.DE		;Loop for all event blocks on the CB
	RET

| ; End COMMENT 
	SUBTTL Periodic functions -- SC.MAL (Allocate buffers)

;SC.MAL - Allocate buffers	;[7.1037]

;Called by CIFORK when CIBUF is non-zero.

XRENT	(SC.MAL,G)		;[7.1037]SC.MAL::, XSC.MA::
	SKIPN SCAINI		;Have we inited yet???
	RET			;No, return now
SC.AL1:	SETZRO CIBUF		;WE'RE CREATING BUFFERS
	CALL SC.DEF		;Do buffer deferral requests
	CALL SC.ALC		;Allocate buffers to get us up to thresholds
	TMNN CIBUF		;MORE WORK TO DO?
	RET			;NO
	JRST SC.AL1		;YES
	SUBTTL Periodic functions -- SC.ALC (Allocate buffers for pool)

; Here to check on buffer levels. First do messages.

SC.ALC:	MOVE T1,MINMSG		;Get current min message threshold
	SUB T1,FQCNT		;How many do we need?
	JUMPLE T1,SAL.DG	;We have enough
	CALL SC.CMG		;(T1/T1,T2,T3) Create the message buffers
	IFNSK.
	  MOVE T2,FQCNT
	  BUG. (CHK,SCAMCF,SCAMPI,SOFT,<SCA - Message buffer creation failure>,<<T1,ERROR>,<T2,COUNT>>,<

Cause:	SCA detected that the level of buffers maintained was below minimum.
	The attempt to create more message buffers failed.

Data:	ERROR - error code
	COUNT - number of message buffers in SCA's pool
>)


	 JRST SAL.DG		;  and try for datagrams
	ENDIF.
 	CIOFF			;No interrupts pls...
	MOVEM T1,@BOTFQ		;Link these new buffers onto datagram Q
	MOVEM T2,BOTFQ		;Update the tail pointer
	ADDM T3,FQCNT		;Update the buffer count
	ADDM T3,TOTMGB		;   and the total number of buffers created
   IFN SCADBG,<
	CALL SC.TMQ		;Trace the message free queue
>				;End of IFN SCADBG
	CION			;Allow access again
	;..
;Here to allocate datagrams as needed

	;..
SAL.DG:	MOVE T1,MINDG		;Get the current DG threshold
	SUB T1,DFQCNT		;How many do we need?
	JUMPLE T1,R		;None
	CALL SC.CDG		;(T1/T1,T2,T3) Create the datagram buffers
	IFNSK.
	  MOVE T2,DFQCNT
	  BUG. (CHK,SCADCF,SCAMPI,SOFT,<SCA - Datagram buffer creation failure>,<<T1,ERROR>,<T2,COUNT>>,<

Cause:	SCA detected that the level of buffers maintained was below minimum.
	The attempt to create more datagram buffers failed. The error code is
	in T1. Output is given as additional data.

Data:	ERROR - error code
	COUNT - number of datagram buffers in SCA's pool
>)
	 RET			;  and return
	ENDIF.
	CIOFF
	MOVEM T1,@BOTDFQ	;Link these new buffers onto datagram Q
	MOVEM T2,BOTDFQ		;Update the tail pointer
	ADDM T3,DFQCNT		;Update the buffer count
	ADDM T3,TOTDGB		;  and the total number of buffers created
   IFN SCADBG,<
	CALL SC.TDQ		;Trace the datagram free queue
>				;End of IFN SCADBG
	CION
	RET			;All done...
	SUBTTL Periodic functions -- SC.DEF (Allocate deferred buffers for sysap)

;SC.DEF - Handle buffer deferral

;No arguments

;Returns +1: always

;Called by job 0 in case there are connections waiting for buffers
;before sending connect_request or accept_request messages

SC.DEF:	SKIPN T1,SBSTUK		;Any system blocks stuck?
	RET	
	SAVEP
SBD.FB:	JFFO T1,SBD.ST		;Find first system block that's stuck
	RET			;Could happen if node went offline
SBD.ST:	SKIPN P4,SBLIST(T2)	;Get system block address
	BUG. (HLT,SCANSB,SCAMPI,SOFT,<SCA - System block has gone away>,<<T2,NODE>>,<

Cause:	SC.DEF found a system block marked as stuck for buffers, but the address
	of the system block is 0.

Data:	NODE - Node number
>)

;Mark this system block as no longer stuck. If SC.SNM runs while we're
;in here, and finds some new c.b. stuck, it'll set the bit and we'll detect
;it on the way out.

	MOVE T1,BITS(T2)
	ANDCAM T1,SBSTUK	;Clear stuck bit for this s.b.
	SETZM P3		;Clear record of first c.b. found on list

;Find the first connection block on the work queue.
;We'll process any entry that needs buffers, even if it's not already
;stuck.

SBD.BA:	CALL SC.RWQ		;(P3,P4/P1,P3) Get and lock next entry
	 JRST SBD.XT		;End of the list

;If connection state is closed, sysap did a disconnect after doing a
;connect, and before we had sent the connect_request. No need to allocate
;buffers or send the request.

;To detect SC.ACC followed by SC.REJ, we'd have to look for block state
;of reject_pending while CBIMB or CBIDB was still non-zero. We just
;let that one happen. It will be cleaned up later.

	LOAD T1,CBCNST,(P1)	;Get connection state
	CAIN T1,.CSCLO		;No. Is it closed?
	JRST SBD.CC		;Yes.
	;..
;Get buffers needed by this connection
	;..

	CALL SC.BF2		;Get the buffers if we can
	 JRST SBD.ER		;Failed. This shouldn't happen in process context

;Mark the connection block as no longer stuck, and go find the next
;one

	SETZRO CBFSOB,(P1)	;No longer stuck on buffers
	SKIPN P3		;Have we recorded first moved block?
	MOVEM P1,P3		;No. This is it, then
	CALL SC.AWQ		;(P1,P4/) Put on the end of the queue
	CALL SC.ULK		;(P1/) Unlock the connection block
	JRST SBD.BA		;Go get next connect block for this s.b.

;Connection has been closed since this c.b. was queued. There's no need
;to create buffers or send a message.

SBD.CC:	SETZRO <CBIMB,CBIDB>,(P1); Don't need buffers now
	SETZRO CBFSOB,(P1)	;No longer stuck
	CALL SC.PTC		;(P1/) Finished with this c.b.
	CALL SC.ULK		;(P1/) Unlock the connection block
	JRST SBD.BA		;Go get the next c.b.

;Nothing left to do for this system block. See if another one needs help.

SBD.XT:
	CALL SC.SNM		;(P4/) Maybe we can send something now
	SKIPE T1,SBSTUK		;Any more stuck system blocks?
	JRST SBD.FB		;Go get the next system block that's stuck
	RET
;Here when we couldn't create buffers. Ultimately, we should handle
;this better but for now, we expect process context to succeed in creating
;a page.

SBD.ER:
	LOAD T2,SBDPA,(P4)	;Get node number
	LOAD T3,CBSCID,(P1)	;Get CID
	BUG. (HLT,SCAEBD,SCAMPI,SOFT,<SCA - Error handling buffer deferral request>,<<T2,NODE>,<T3,CID>,<T1,ERROR>>,<

Cause:	SCA was unable to create buffers when running in job 0. This should 
	never happen since job 0 can create pages as needed.

Data:	NODE  - Node number
	CID   - Connect ID
	ERROR - error code
>)

;If we turn this into a BUGCHK, this code should work:

REPEAT 0,<
	SETONE CBFSOB,(P1)	;Leave it stuck
	SKIPN P3
	MOVEM P1,P3		;Record this as having been moved
	CALL SC.AWQ		;Requeue it
	CALL SC.ULK		;(P1/) Unlock the connection block
	LOAD T1,SBDPA,(P4)
	MOVE T1,BITS(T1)
	IORM T1,SBSTUK
	JRST SBD.BA
   >				;END OF REPEAT 0
	SUBTTL Connection management utility routines -- SC.SCA (Send connection management message)

;SC.SCA - Set block state and queue SCS control message

;Accepts:
;	T1/ new state
;	P1/ address of connection block
;	P4/ address of system block

;	CALL SC.SCA

;Returns +1: always

;Caller must have locked connection block

;It is possible to find block state non-zero here. This can happen,
;for example, if we had the c.b. queued waiting to send a credit_request,
;and a disconnect_request came in. In that case, we will store the new
;state on top of the old one. The block will already be queued, so we won't
;try to queue it again. This should happen only rarely.

SC.SCA:
	TMNN CBBKST,(P1)	;Is state zero?
	IFSKP.
	  MOVE T3,.CBSBA(P1)	;Get address of system block
	  LOAD T3,SBDPA,(T3)	;Get node number
	  LOAD T4,CBSCID,(P1)	;Get CID
	  LOAD T2,CBBKST,(P1)	;Get block state
	  BUG. (INF,SCASBN,SCAMPI,SOFT,<SCA - Block state already non-zero>,<<T3,NODE>,<T4,CID>,<T2,OLDSTA>,<T1,NEWSTA>>,<

Cause:	While trying to set a connection's block state, it is found to be 
	already non-zero. This can happen legitimately under some conditions.

Action:	If the old state is anything except CREDIT_PEND, something is wrong.
	Try to trace the events that led to this, using the ring buffer, if
	necessary.

Data:	NODE   - Node number
	CID    - Connect ID
	OLDSTA - existing block state
	NEWSTA - state we're trying to set
>)
	  STOR T1,CBBKST,(P1)	;Store over it
	  RET			;But don't try to queue it again
	ENDIF.
	STOR T1,CBBKST,(P1)	;Set state as requested
	CALL SC.AWQ		;(P1,P4/) Add this c.b. to the work queue
	RET
	SUBTTL Connection management utility routines -- SC.SNM (Send next connection management message)

;SC.SNM - send an SCS control message

;Accepts:
;	P4/ Address of system block

;	CALL SC.SNM

;Returns +1: always

;Sends an SCS control message for this system block if the buffer is
;available and there's a waiting connnection block. If the c.b. requires
;buffers, creates them if possible. Otherwise, moves the c.b. to the
;end of the queue and tries the next one.

SC.SNM:
	SKIPN .SBTWQ(P4)	;Is there a c.b. that needs something?
	RET			;No. Nothing to do.
	SAVEP
	SETZM P2		;Prepare to clear the address of the buffer
	EXCH P2,.SBOBB(P4)	;Grab outbound buffer if it's there
	JUMPE P2,R		;It was in use. We'll come here later
	SETZM P3		;Initialize address of first c.b. moved

;Here when buffer is available, and there's something to be done.
;Remove first entry from work queue

SSN.BA:	CALL SC.RWQ		;(P3,P4/P1,P3) Get and lock next entry
	 JRST SSN.XT		;There isn't one.

;Block state shouldn't be zero. Complain if it is

   IFN SCADBG,<
	TMNE CBBKST,(P1)	;Is block state still non-zero?
	IFSKP.
	  LOAD T1,SBDPA,(P4)	;Get node number
	  LOAD T2,CBSCID,(P1)	;Get connect ID
	  LOAD T3,CBCNST,(P1)	;Get connection state
	  BUG. (CHK,SCABSZ,SCAMI,SOFT,<SCA - Block state is zero when trying to send connection management request>,<<T1,NODE>,<T2,CID>,<T3,STATE>>,<

Cause:	A connection block is on the system block's work queue, but its block
	state is zero. This value should be non-zero to indicate the kind of
	request to be sent.

Data:	NODE  - Node number
	CID   - Connect ID
	STATE - Connection state

>)
	  CALL SC.PTC		;(P1/) Allow reaper to get this block
	  CALL SC.ULK		;(P1/) Unlock the connection block
	  JRST SSN.BA		;Don't try to send.
	ENDIF.
   >				;end of ifn scadbg

;This probably isn't necessary, but we'll do it just in case.
;If the "reap" bit is on, we shouldn't be sending any requests.
;If block state is non-zero, reap shouldn't be set.

   IFN SCADBG,<
	TMNN CBFRAP,(P1)	;Are we ready to reap this block?
	IFSKP.
	  LOAD T1,SBDPA,(P4)	;Get node number
	  LOAD T2,CBSCID,(P1)	;Get CID
	  BUG. (CHK,SCARBS,SCAMPI,SOFT,<SCA - Reap bit is set when block state is non-zero>,<<T1,NODE>,<T2,CID>>,<

Cause:	A connection block is marked as both waiting to send a request 
	message as reapable. The reapable bit should be set only when
	there is no need to send further requests.

Action:	The message is not sent and the block is deleted. If the
	problem persists, use the ring buffer to trace the events leading
	to it.

Data:	NODE - Node number
	CID  - Connect ID at this node
>)
	  CALL SC.PTC		;(P1/) Finish off this block
	  CALL SC.ULK		;(P1/) Unlock the connection block
	  JRST SSN.BA		;Go handle next c.b.
	ENDIF.
   >				;END IFN SCADBG

;It is possible for the connection state to be closed here. We could
;check for that and refuse to send connect_request. Instead, we just
;let it go. When accept_request comes in, we'll send accept_response NM

;If this connection block is already stuck on buffers, move it to the
;end of the queue.

	TMNE CBFSOB,(P1)	;Are we stuck on buffers?
	JRST SSN.SB		;Yes. Move it to the end of the queue
;Get buffers that we want, if possible


	CALL SC.BF1		;(P1/) Allocate buffers if we need them
	 JRST SSN.SB		;Couldn't get them all

;Here when we got the buffers we wanted, or didn't want any. Create the
;packet and send it.

	CALL SC.RQS		;(P1,P2,P4/) Build packet, set new state, send
	IFNSK.
	  CALL SC.ULK		;(P1/) Unlock the connection block
	  JRST SSN.SF		;Couldn't send
	ENDIF.
	CALL SC.ULK		;(P1/) Unlock the connection block
	RET

;Here when we couldn't get the buffers needed or connection block was already
;stuck. Mark the connect block as "stuck on buffers" so that job 0 can
;fix things. Mark the system block, too.


SSN.SB:
	SETONE CBFSOB,(P1)	;Mark c.b. as stuck on buffers
	SKIPN P3		;Is this the first block moved to end?
	MOVEM P1,P3		;Yes. record it
	CALL SC.AWQ		;(P1,P4/) Move entry to end of queue
	CALL SC.ULK		;(P1/) Unlock the connection block
	LOAD T1,SBDPA,(P4)	;Get node number
	MOVE T1,BITS(T1)	;Get bit position for this index
	IORM T1,SBSTUK		;Mark system block as stuck
	JRST SSN.BA		;Go see if another entry exists
;Here when all the connection blocks that are left require buffers
;or there aren't any blocks

;We have to keep the buffer that we had planned to use for the message
;Job 0 will run eventually and create the buffers needed, and send
;the next message.

;If v.c. has been closed, then SC.ERR has already checked SBOBB. We
;must give the buffer to the port, since we already took one from it.

SSN.XT:	CIOFF
	LOAD T1,SBVCST,(P4)	;Is v.c. open?
	CAIE T1,VC.OPN
	IFSKP.
	  MOVEM P2,.SBOBB(P4)	;Yes. Return buffer to system block
	  CION
	  SKIPN SBSTUK		;Is a system block stuck?
	  IFSKP.
	     SETONE CIBUF	;Ask CIFORK fork to run for us
	  ENDIF.
	  RET
	ENDIF.
	CION

;Here when the v.c. has been closed. Give the buffer to
;the port, since we won't be needing it.

SSN.SF:
   IFN SCARNG,<
	XMOVEI T1,.		;Get feature routine address
	MOVE T2,(P)		;Get PC of caller to feature routine
	MOVEI T3,1		;Set buffer count
	MOVE T4,P2		;Get buffer address
	TXO T3,RPQFLK   	;Set port link flag
	TXO T3,RPQFMG   	;Set message free queue flag
	CALL RG.PQM		;(T1,T2,T3,T4,P4) Record port manipulation
>				;End of IFN SCARNG
	SETZM 0(P2)		;Tell PHYKLP there's only one buffer
	BLCAL. (<@[MSEC1,,LNKMFQ]>,<P4,P2>) ;[7.1037]Link buffer onto port's message free queue
	RET
	SUBTTL Connection management utility routines -- SC.AWQ (Add entry to work queue)

;SC.AWQ - add an entry to the work queue

;Accepts:
;	P1/ address of connection block
;	P4/ address of system block

;	CALL SC.AWQ

;Returns +1: always

;Adds c.b. to end of s.b.'s work queue

;Caller must lock the connection block

SC.AWQ:	CIOFF			;Protect the work queue
	LOAD T1,SBVCST,(P4)	;If v.c. is not open
	CAIN T1,VC.OPN
	IFSKP.
	  CION			; don't try to send
	  RET
	ENDIF.
	MOVE T1,.SBBWQ(P4)	;Get last entry in queue
	XMOVEI T2,.SBTWQ(P4)	;Get head of queue
	CAMN T1,T2		;Empty if equal
	IFSKP.
	  MOVEM P1,.CBNWQ(T1)	;Make old "last" point to this
	ELSE.
	  MOVEM P1,.SBTWQ(P4)	;Make this be the first
	ENDIF.
	MOVEM P1,.SBBWQ(P4)	;Make this be the last
	CION
	RET
	SUBTTL Connection management utility routines -- SC.RWQ (Remove entry from work queue)

;SC.RWQ - remove entry from system block work queue

;Accepts:
;	P3/ address of connection block to stop at
;	P4/ address of system block

;	CALL SC.RWQ

;Returns +1: no more entries
;	 +2: entry available and locked
;		P1/ address of connection block
;		P3/ updated if necessary

;Returns non-skip when there are no more entries to be processed.
;Caller initializes P3 to 0. If it returns a block to the queue, it
;stores that block's address in P3. It does this only once, to record
;the first block that has already been seen. This routine will detect when it
;has looped around to the first block. Also, if this routine finds a connection
;block locked, it will move the block to the end of the queue, and update
;P3 appropriately.

;NOTE: This routine is closely coupled to SC.SNM and SC.DEF. It is 
;not meant to be called by other routines.

SC.RWQ:
	CIOFF			;Protect the work queue
SCR.LP:	SKIPN P1,.SBTWQ(P4)	;Get first entry on queue
	JRST SRW.EX		;Empty.
	CAMN P1,P3		;Have we found this buffer before?
	JRST SRW.EX		;Yes. We've finished with this system block
	SKIPE T1,.CBNWQ(P1)	;Point to the second entry
	IFSKP.
	  XMOVEI T2,.SBTWQ(P4)	;This is the end. Make tail point
	  MOVEM T2,.SBBWQ(P4)	; to head
	ENDIF.
	MOVEM T1,.SBTWQ(P4)	;Make head point to next or 0
	SETZM .CBNWQ(P1)	;Indicate no longer on queue
	MOVX T1,CBFSNM		;Flag to set if we have to defer
	CALL SC.LAH		;(T1,P1/) Get the lock if possible
	 JRST SRW.NX		;We have to defer
	CION
	RETSKP

;Here when the connection block was locked. Move it to the end of the
;list and continue looking for a good entry.

SRW.NX:	SKIPN P3		;Have we recorded first moved block?
	MOVEM P1,P3		;No. This is it, then
	CALL SC.AWQ		;(P1,P4/) Move it to the end of the queue
	JRST SCR.LP		;Go try for the next entry

;Here when we're at the end of the list, or it's empty

SRW.EX:	CION
	SETZM P1		;Precaution
	RET
	SUBTTL Connection management utility routines -- SC.AIB	(Allocate and initialize a connection block)

; This routine allocates and initializes a connection block.
;
; Usage:
;	Call
;	T1/ SYSAP bits to be placed in CID
;
;	Return (+1)
;	T1/ Error code
;
;	Return (+2)
;	P1/ Address of connection block
;
XRENT	(SC.AIB,G)		;[7.1037]SC.AIB::, XSC.AI::
	STKVAR <SYBITS,IDX,UBTS,CID>
	MOVEM T1,SYBITS		;Save the SYSAP bits

;Create and store the CID pls...
;
	CALL SC.FNI		;(/T1) Get the next available index
	 RETBAD (SCSTBF)	;No more, return with error code in T1
	SETZ T4,		;Start with zero as CID
	STOR T1,INDEX,T4	;Store index
	MOVEM T1,IDX		;Save the index
	CALL SC.FUB		;(T1/T1,T2) Get uniqueness bits to use for CID
	STOR T2,UBITS,T4	;Store the unique bits
	MOVEM T2,UBTS		;Save the unique bits
	MOVE T2,SYBITS		;Get the SYSAP bits back again
	STOR T2,SID,T4		;Store these bits in the CID
	MOVEM T4,CID		;Save newly created CID
	MOVEI T1,1		;We want only one quanta of memory for CB
	CALL <XENT SC.ABF>	;[7.1037](T1/T1,T2,T3) Get it from the allocator
	 RETBAD ()		;Return with the error code in T1
	MOVE T4,CID		;Get the created CID back again
	STOR T4,CBSCID,(T1)	;Store the source connect ID in the CB
	MOVE P1,T1		;Save connect block address

	MOVE T1,IDX		;Get the index back again
	ADD T1,CIDTAB		;Add the base addr of the CB addr table
	MOVEM P1,(T1)		;Store the address of the CB
	MOVE T1,IDX		;Get the index once more
	ADD T1,UBTTAB		;Add the base addr of the unique bits table
	MOVE T2,UBTS		;Get said bits back
	MOVEM T2,(T1)		;Store the unique bits

;Init the JSYS queue pointers in the CB
;
	SETZRO CBTMQ,(P1)	;Zero the FLINK for the message queue
	OPSTR <XMOVEI T2,>,CBTMQ,(P1) ;Address of the FLINK
	STOR T2,CBBMQ,(P1)	;Init message BLINK as pointer to FLINK

	SETZRO CBTDQ,(P1)	;Zero datagram FLINK
	OPSTR <XMOVEI T2,>,CBTDQ,(P1)	;Address of datagram FLINK
	STOR T2,CBBDQ,(P1)	;Init DG BLINK as pointer to FLINK

	SETZRO CBTXQ,(P1)	;Zero DMA Q FLINK
	OPSTR <XMOVEI T2,>,CBTXQ,(P1) ;Pointer to DMA FLINK
	STOR T2,CBBXQ,(P1)	;Init BLINK as pointer to FLINK

	SETZRO CBTEQ,(P1)	;Zero FLINK of event queue
	OPSTR <XMOVEI T2,>,CBTEQ,(P1) ;Address of event FLINK
	STOR T2,CBBEQ,(P1)	;Init BLINK as pointer to FLINK

	SETZRO CBTBQ,(P1)	;Zero FLINK for buffer queue
	OPSTR <XMOVEI T2,>,CBTBQ,(P1) ;Pointer to buffer FLINK
	STOR T2,CBBBQ,(P1)	;Init BLINK as pointer to FLINK

	MOVEI T2,.CSCLO		;Initial state is "closed"
	STOR T2,CBCNST,(P1)	;Set that in connection block
	RETSKP			;Return happy with address in P1

	ENDSV.
; This routine finds and updates the next index into the CID tables.
;
; Usage:
;	Call
;	No arguments
;
;	Return (+1)
;	No free slots left in the table
;
;	Return (+2)
;	T1/	Next available index
;
; Smashes T2 and T3

SC.FNI:	MOVEI T3,C%CIDL		;Init count of entries searched
SFI.LP:	SOSGE T1,NXTIDX		;Try for the next index
	IFNSK.			;Failed, time to recycle
	  MOVEI T1,C%CIDL-1	;Init NXTIDX to highest CIDTAB entry
	  MOVEM T1,NXTIDX	
	  AOS CIDRFL		;Indicate CIDTAB recycling
	ENDIF.
	MOVEM T1,T2		;Get a copy we can play with
	ADD T2,CIDTAB		;Add the offset to the CID address table
	SKIPN (T2)		;Is there an entry there???
	IFSKP.			;Yes
	  SKIPN CIDRFL		;Are we in recycle mode?
	  JRST SFI.LP		;No, try for another index
	  SOSE T3		;Have we checked the entire CIDTAB?
	  JRST SFI.LP		;No, look at next index
	  RET			;Yes, table must be full, return failure
	ENDIF.
	RETSKP			;No entry so return index found

; This routine finds and updates the next uniqueness bits for a CID.
;
; Usage:
;	Call
;	T1/	Index into CIDTAB of CID being formed
;
;	Return +1: Always
;	T1/	Index into CIDTAB of CID being formed
;	T2/	Next uniqueness bits to use for CID

SC.FUB:	SOSG T2,UNQBTS		;Try for the next identifier
	IFNSK.			;No more left, recycle
	  SETONE UBITS,T2	;Set all bits in the unique bits field
	  LSH T2,-<C%RMBU>	;Right justify said bits
	  MOVEM T2,UNQBTS	;Store as the uniquness bits
	  AOS UNQRFL		;Indicate recycling
	ENDIF.
	SKIPN UNQRFL		;Are we in recycle mode for the bits?
	RET			;No, return success
	ADD T1,UBTTAB		;Obtain address of old entry
	CAME T2,(T1)		;Yes, are the old and new uniqueness bits equal?
	IFSKP.			;Yes, make new bits different
	  SOS T2		;Decrement to insure uniqueness for entry
	  SKIPLE T2		;Is this new value valid?
	  IFSKP.		;No, adjust
	    SETONE UBITS,T2	;Set all bits in the unique bits field
	    LSH T2,-<C%RMBU>	;Right justify said bits
	  ENDIF.
	ENDIF.
	RET			;Return success
	SUBTTL Connection management utility routines -- SC.LCB (Link a new CB)

; This routine links a new conection block into the list of connection
;blocks hanging off a system block.
;
;Accepts:
;	P1/	Address of CB
;	P4/	System block address (or -1 for don't care listener)
;
;	CALL SC.LCB

;Returns +1: Failure
;	 +2: Success

;CIOFF protects from node's going offline, and from changes in the
;list of c.b.'s

;Caller must have locked the connection block

;If this was previously on the don't-care queue, the caller must have
;removed it.

XRENT	(SC.LCB,G)		;[7.1037]SC.LCB::, XSC.LC::
	CIOFF
	JUMPL P4,SLC.DC		;Special case, handle linking dont cares
	LOAD T1,SBVCST,(P4)	;Get state of connection
	CAIE T1,VC.OPN		;Is it open?
	RETBAD (KLPX9,<CION>)	;No. Don't try to link, then

;Remove entry from current list if it's on one. This shouldn't happen.
;If it was on the don't-care queue, the caller has removed it. And it should
;never move from one system block queue to another

	SKIPN T3,.CBANB(P1) 	;Is there a current forward link
	SKIPE T4,.CBAPB(P1) 	;  or a link to a previous buffer???
	IFNSK.
	  LOAD T1,SBDPA,(P4)	;Get node number
	  LOAD T2,CBSCID,(P1)	;Get connect ID
	  BUG. (CHK,SCABAL,SCAMPI,SOFT,<SCA - Connection block already linked>,<<T1,NODE>,<T2,CID>,<T3,FLINK>,<T4,BLINK>>,<

Cause:	SCA is linking a connection block onto a system block. However, the
	connection block's pointers indicate that it is already linked to some
	other block

Data:	NODE  - node number
	CID   - Connect ID
	FLINK - Address of next connection block
	BLINK - Address of previous connection block
>)
	  CALL SC.RSQ		;(P1/) Dequeue CB from current queue
	ENDIF.

;Add entry to the queue

	MOVE T2,.SBLCB(P4)	;Get the pointer to current last
	XMOVEI T3,.SBFCB(P4)	;Get the address of the SB CB FLINK
	CAME T2,T3		;Are we about to store an SB addr as BLINK???
	MOVEM T2,.CBAPB(P1)	;No, make this the pointer to previous
	MOVEM P1,@.SBLCB(P4)	;Link on the new buffer
	MOVEM P1,.SBLCB(P4)	;Set up the new last pointer
	CION			;Turn on CI interrupts, unlock CB list
	RETSKP			;Indicate success

;Here to link dont care listeners togther...

SLC.DC:
	MOVE T1,BOTDC		;Get the address of the last buffer on the Q
	MOVEM P1,@BOTDC		;Link this to the end of the DC queue
	XMOVEI T3,TOPDC		;Get the address of the top pointer
	CAMN T1,T3		;Is previous CB the top pointer???
	SETZ T1,		;Yes, make it zero instead
	MOVEM T1,.CBAPB(P1)	;Make this CB point to the previous one
	MOVEM P1,BOTDC		;Now show it as the end of the queue
	CION			;Restore the state of the PI
	RETSKP			;And we are all done
;SC.RSQ - remove c.b. from its current system block queue

;Accepts:

;	P1/ address of connection block

;	CALL SC.RSQ

;Returns +1: always

; Here to dequeue a CB from its current queue before we go on to put it on
;the new one. 

;Caller must ensure that connection block is not on the don't-care queue.
;Caller must be CIOFF

SC.RSQ:
	MOVE T1,.CBANB(P1)	;Get forward pointer for CB queue
	MOVE T2,.CBAPB(P1)	;  and link to previous on CB queue
	MOVE T3,.CBSBA(P1)	;No previous or next, this is last, get SB pntr
	SKIPN T1		;Is there a next link???
	SKIPE T2		;  or a previous link???
	JRST SLC.NL		;Yes, not last entry, do a real dequeue
	XMOVEI T4,.SBFCB(T3)	;Get pointer to head of CB queue
	MOVEM T4,.SBLCB(T3)	;Init tail as pointer to head
	SETZM .SBFCB(T3)	;Init head as zero
	RET			;All done

; Here when there were other things on the queue.
;
SLC.NL:	SKIPE T1		;Is there a next link???
	MOVEM T2,.CBAPB(T1)	;Yes, update pointer to previous of next
	SKIPE T2		;Is there a previous link???
	MOVEM T1,.CBANB(T2)	;Yes, update pointer to next of previous
	SKIPN T1		;Is there a next buffer???
	MOVEM T2,.SBLCB(T3)	;No, deleted last, update queue BLINK
	SKIPN T2		;Is there a previous buffer
	MOVEM T1,.SBFCB(T3)	;No, deleted first, update queue FLINK
	RET			;  and return
;SC.RDQ - remove entry from don't-care queue

;Accepts:
;	P1/ address of connection block

;	CALL SC.RDQ

;Returns +1: always

SC.RDQ:	MOVE T1,.CBANB(P1)	;Get the addr of the next CB
	MOVE T2,.CBAPB(P1)	;  and the addr of the previous CB (on CB Q)
	SKIPN T1		;Is there a next entry???
	SKIPE T2		;   or a previous entry???
	JRST SRC.MT		;Yes, not the last buffer...
	XMOVEI T1,TOPDC		;No, this is the last CB on DC queue
	MOVEM T1,BOTDC		;Init tail as pointer to head
	SETZM TOPDC		;Init head as zero
	RET

SRC.MT:	SKIPE T1		;Is there a next entry???
	MOVEM T2,.CBAPB(T1)	;Yes, update previous of next CB
	SKIPE T2		;Is there a previous entry???
	MOVEM T1,.CBANB(T2)	;Yes, update next of previous CB
	SKIPN T1		;Was there a next entry???
	MOVEM T2,BOTDC		;No, update the queue BLINK
	SKIPN T2		;Was there a previous entry???
	MOVEM T1,TOPDC		;No, update the queue FLINK
	RET
	SUBTTL Connection management utility routines -- SC.SCM (Search for connection match)

; This routine searches the connection blocks for a match between a 
;local listen and a destination connect request.
;
; Usage:
;	Call
;	P2/	Address of datagram/message buffer
;
;	Return (+1)
;	No match, no data returned
;
;	Return (+2)
;	P1/	Address of connection block with a match
;
; This routine assumes that the message type is CONNECT_REQUEST. If it is not
;we will have real problems...
;
;
; AC usage within this routine:
;	T1/	Address of the message
;	T2/	Scratch
;	T3/	Scratch
;	T4/	Scratch
;
;	Q1/	Current system block index (SBI)
;	Q2/	Address of the current system block
;	Q3/	Copy of initial P1
;
;	P1/	Address of current CB
;	P2/	Address of message (Touch not the contents of P2!!!)
;	P3/	Touch not the contents of P3!!
;	P4/	System block address of remote we got connect request from
;			*** Set up by port driver on call to SCA ***
;				    *** Touch it not ***
;	P5/	Unused here
;
;This code assumes it is called at interrupt level, and therefore
;doesn't protect itself from changes in the list of connection blocks
;on a system block

SC.SCM:	SAVEQ
	MOVEM P1,Q3		;Save P1 here in case we have to restore it

; Here to start looping over the system blocks.
;
	SETO Q1,		;Start with the first SB
SSC.SL:	AOS Q1			;Next SB please...
	CAILE Q1,C%SBLL-1	;Have we run off the end of the list???
	JRST SSC.DC		;No more SB's, try for the dont care Q
	SKIPN Q2,SBLIST(Q1)	;Get the address of an SB
	JRST SSC.SL		;No S.B. here, try for the next one
	;..
; Here to loop over the connection blocks hung off an SB.
;
	;..
	MOVE P1,.SBFCB(Q2)	;Get the pointer to the first CB
	$SKIP			;Dont smash what we just did...
SSC.CL:	MOVE P1,.CBANB(P1)	;Get the address of the next connection block
	JUMPE P1,SSC.SL		;If no connection blocks, do next SB
	LOAD T1,CBCNST,(P1)	;Get the connection state
	CAIE T1,.CSLIS		;Is the connect state listen???
	JRST SSC.CL		;No, loop to next connection block

;Here to do system address checking
;
	LOAD T1,CBDNOD,(P1)	;Get the destination node number
	CAMN T1,[XWD 0,-1]	;Is this the DONT CARE of system index's???
	JRST SSC.AS		;Yes, dont do a system index check
	MOVE T1,SBLIST(T1)	;Now the system block address
	CAME T1,P4		;Do we have a match???
	JRST SSC.CL		;Nope, wrong system, next connection block

;Here to do name checking
;
SSC.AS:	SKIPN .MGDPN(P2)	;Is there a requested process name??
	SKIPE .CBDPN(P1)	;And do we care who we talk to??
	$SKIP			;We care, do regular name checking
	  JRST SSC.FX		;We have a dont care situation, match now
	XMOVEI T1,.CBSPN(P1)	;Point to our name for me
	XMOVEI T2,.MGDPN(P2)	;Point to the remotes name for me
	CALL SC.C4S		;Do they match???
	 JRST SSC.CL		;No, try the next connection block

	XMOVEI T1,.CBDPN(P1)	;Point to CB's destination proc name
	XMOVEI T2,.MGSPN(P2)	;  and the source name of the connect request
	CALL SC.C4S		;Compare the two strings...
	 JRST SSC.CL		;No match, next connection block please
	JRST SSC.FX		;Else, we have a match, return
; Here when all that is left is the dont care queue.
;
SSC.DC:	MOVE P1,TOPDC		;Get the addr of the first CB on dont care Q
	$SKIP			;Smash not on the first time through
SSC.DL:	MOVE P1,.CBANB(P1)	;Get the address of the next CB on DC Q
	JUMPE P1,SSC.YL		;No next CB, we are done and you loose
	LOAD T1,CBCNST,(P1)	;Get state of connection
	CAIE T1,.CSLIS		;Listening?
	JRST SSC.DL		;No. Go check the next one
	SKIPN .MGDPN(P2)	;Is there a requested process name???
	SKIPE .CBDPN(P1)	;  and do we care who we talk to???
	$SKIP			;Yes, not dont care case, do regular name check
	JRST SSC.LC		;No, we have default match, put CB on SB queue

	XMOVEI T1,.CBSPN(P1)	;Point to our name
	XMOVEI T2,.MGDPN(P2)	;  and to the remotes name for us
	CALL SC.C4S		;Do they match???
	JRST SSC.DL		;No, try for the next CB on DC q
	SKIPN .CBDPN(P1)	;Do we care who we talk to???
	JRST SSC.LC		;No, then match this connect
	XMOVEI T1,.CBDPN(P1)	;We care, get target name pointer
	XMOVEI T2,.MGSPN(P2)	;  and pointer to remotes name
	CALL SC.C4S		;Does our target name match remote source name?
	 JRST SSC.DL		;No, try the next entry on don't care queue

;We have a match, delink us from the dont care queue and put us on the CB list
;for the SB we have found a home with.
;
SSC.LC:	CALL SC.RDQ		;(P1/) remove block from queue
	LOAD T1,SBDPA,(P4)	;Get node number for this system block
	STOR T1,CBDNOD,(P1)	;Save it in this connect block
	MOVEM P4,.CBSBA(P1)	;Be sure the CB reflects the new SB address
	SETZM .CBANB(P1)	;We just dequeued, zero links so SCLCB
	SETZM .CBAPB(P1)	;   does not dequeue again
	CALL <XENT SC.LCB>	;[7.1037](P1,P4/) Link this CB onto the remote's SB
	IFNSK.
	  LOAD T2,SBDPA,(P4)	;Get node number
	  BUG. (HLT,SCACLB,SCAMPI,SOFT,<SCA - Incoming connect_request on closed v.c.>,<<T2,NODE>>,<

Cause:	SCAMPI received a connect_request and matched it to a listener.
	But when SCAMPI tried to queue the connection block to the system 
	block, it found that the v.c. was closed. Since SCAMPI had checked 
	for that state earlier, and this is happening at interrupt level, 
	something unexpected has happened.

Data:	NODE - Node number
>)
	ENDIF.
	RETSKP			;And return success

; Here when there is no match. You lose...
;
SSC.YL:	MOVE P1,Q3		;Get the initial contents of P1 back again
	RET			;Return with no match

; Here to fix things up for a match. We are here to insure the CB has good info
;about the SB.
;
SSC.FX:	MOVEM P4,.CBSBA(P1)	;Store the system block address
	LOAD T1,SBDPA,(P4)	;Get node number for this system block
	STOR T1,CBDNOD,(P1)	;Save it in this connect block
	RETSKP			;And return success

; This routine compares four word strings. The strings are always
;be padded out to their full four word size. Hence we can do this whole
;operation in a set of full word compares. This is infinitly faster than
;an ILDB/CAME loop.
;
; Usage:
;	Call
;	T1/	Address of one four word string
;	T2/	Address of another four word string
;
;	Return (+1)
;	T1 and T2 are preserved - Strings do not match
;
;	Return (+2)
;	T1 and T2 are preserved - Strings match
;
SC.C4S:	MOVE T3,(T1)		;Get first word from string
	CAME T3,(T2)		;Does the first word match?
	RET			;No, return no match
	MOVE T3,1(T1)		;Do the next word
	CAME T3,1(T2)		;Check for a match
	RET			;Nope...
	MOVE T3,2(T1)		;Next word along please...
	CAME T3,2(T2)		;A match???
	RET			;Nope...
	MOVE T3,3(T1)		;Now for the last word
	CAME T3,3(T2)		;A match
	RET			;Nope
	RETSKP			;Yes!!! Return matching strings!!
	SUBTTL Connection management utility routines -- SC.CSC (CID sanity check)

; This routine checks the validity of a connect ID.
;
; Usage
;	Call
;	T1/	Connect ID to check
;
;	Return (+1)
;	T1/	error code
;
;	Return (+2)
;	T1/	Connect ID
;	P1/	Address of connection block where match was found
;

;Alternate entry point, SC.CAL, checks the c.b. and locks it

XRENT	(SC.CSC,G)		;[7.1037]SC.CSC::, XSC.CS::
	TDZA P1,P1		;Flag = 0 means we don't want to lock
SC.CAL:	SETOM P1		;Flag = -1 means we do want to lock
	CIOFF			;Insure we are the only ones in the CID table
				; and protect connection block until locked
	LOAD T2,INDEX,T1	;Get the index from the connect ID
	MOVEM T2,T3		;Save a copy of the index
	CAIL T2,C%CIDL		;Is it within range???
	JRST SCC.XT		;No, fail
	ADD T2,CIDTAB		;Add the offset to the CID table
	SKIPN T2,(T2)		;Now get the address of the CB
	JRST SCC.XT		;No, fail
	LOAD T4,UBITS,T1	;Get the uniqueness bits from the CID
	MOVE T2,T3		;Get a copy of the index
	ADD T2,UBTTAB		;Add the offset to the uniqueness table
	MOVE T2,(T2)		;Get the bits from the unique table
	CAME T2,T4		;Do we have a match???
	JRST SCC.XT		;No, fail
	ADD T3,CIDTAB		;Yes, T3 = CID table base addr + index
	MOVE T3,(T3)		;Get address of the connection block
	EXCH T3,P1		;Put it in P1; retrieve entry flag
	SKIPE T3		;Want to lock?
	CALL SC.LOK		;(P1/) Yes. Lock the connection block
	CION			;Restore the state of the PI
	RETSKP			;Return success

;Here to failure exit
SCC.XT:	CION			;Restore the state of the PI
	RETBAD (SCSIID)		;Return "invalid Connect ID"
	SUBTTL Connection management utility routines -- SC.CDT (Send credit_request)

;SC.CDT - Send credit_request if necessary

;Accepts:
;	P1/ address of connection block
;	P4/ address of system block

;	CALL SC.CDT

;Returns +1: didn't send it
;	 +2: did send it

;Four entry points:
;	SC.CDT - when sysap queues buffer for message reception
;	SC.CD1 - when credit_response arrives
;	SC.CD5 - when sysap takes a buffer back
;	SC.CD7 - idle chatter

;Caller must lock connection block

;If this routine returns +2, caller must call SC.SNM after unlocking
;the connection block

;Here when sysap queues buffer. Send if pend_rec_credit .GT. 0 and
;rec_credit .LT. min_rec_credit

SC.CDT:	
	SKIPG T1,.CBPRC(P1)	;Give up if pending receive credit
	JRST SCC.RT		; is not positive
	JRST SC.CD3		;Go check on receive credit

;Here when credit_response arrives. We may have wanted to send another
;one earlier, but only one can be outstanding at a time. Send if
;pend_rec_credit is negative, or if pend_rec_credit is positive and
;rec_credit .LT. minimum_receive_credit.

SC.CD1:	
	SKIPGE T1,.CBPRC(P1)	;Send if pending receive credit is negative
	JRST SCC.SM
	JUMPE T1,SCC.RT		;Don't send if there's no change

;Send if receive creidt .LT. minimum_receive_credit or if pending
;receive credit is getting large

SC.CD3:	LOAD T2,CBMNRC,(P1)	;Send if receive credit is below the
	CAMLE T2,.CBRCD(P1)	; minimum
	JRST SCC.SM
	CAIGE T1,C%MBCR		;Send if pending is getting large
	JRST SCC.RT		;Don't send
	JRST SCC.SM		;Send

;Here when sysap takes a buffer back. Send only if pend_rec_credit is
;negative

SC.CD5:	
	SKIPL .CBPRC(P1)	;Give up if pending receive credit
	JRST SCC.RT		; is not negative
	JRST SCC.SM		;It's negative. Tell the other end.

;Here for idle chatter

SC.CD7:
	;..
;Here because credit values suggest sending a credit_request. See
;if the state of the connection will allow it. We don't send if the connection
;isn't open. If we're still opening it, there's a risk of confusing the
;other side. If we're closing it, there's no need to send a credit_request.
;Also, we want to avoid sending anything after the disconnect sequence
;has started, because we will declare protocol complete and reap the block
;when the final disconnect_response comes in. We don't want to receive
;a credit_response after that.

	;..
SCC.SM:	LOAD T1,CBCNST,(P1)	;Do this only if we're open
	CAIE T1,.CSOPN
	JRST SCC.RT

;Racefree, indicate that we're setting up for a credit_request, and make
;sure no other context is already doing it. If someone got here ahead of
;us, we don't need to send a credit_request, because our change is already
;reflected in .CBPRC. And we don't want to send one, because we might try
;to queue the same c.b. twice. Also, the second message would contain 0,
;so why bother? If credit is still pending when the credit_response comes
;in, we'll send another credit_request.

	SETOM T1		;Indicate credit_request is pending
	EXCH T1,.CBPND(P1)	;Get the old value
	JUMPL T1,SCC.RT		;Already pending. Don't want to do this
	LOAD T1,CBBKST,(P1)	;Get the block state
	SKIPN T1
	IFSKP.
	  MOVE T1,.CBSBA(P1)	;Get address of system block
	  LOAD T1,SBDPA,(T1)	;Get port number
	  LOAD T2,CBSCID,(P1)	;Get CID
	  LOAD T3,CBBKST,(P1)	;Get state
	  BUG. (CHK,SCACSC,SCAMPI,SOFT,<SCA - Can't send credit request>,<<T1,NODE>,<T2,CID>,<T3,STATE>>,<

Cause:	SCA wants to send a credit request, but the connection block already
	has some other message pending. This reflects some sort of
	inconsistency, since the state was "open", and the interlock word
	for credit requests was 0.

Data:	NODE  - Node number
	CID   - Connect ID
	STATE - BLock state
>)
	  SETZM .CBPND(P1)	;We're not doing credit_request after all
	  RET
	ENDIF.
	MOVEI T1,.BSCRP		;Set block state to credit_pending
	CALL SC.SCA		;(T1,P1,P4/) Set block state and queue block
	RETSKP			;Tell caller to get it sent

SCC.RT:	
	RET
;SC.GCB - Reclaim buffers according to return_credit field of connect block

;Accepts:
;	P1/ address of connect block
;	P4/ address of system block

;	CALL SC.GCB

;Returns +1: always

;Caller must lock connection block

SC.GCB:
	SAVEAC <P3>
	SETZM P3
	EXCH P3,.CBRTC(P1)	;Get old value, zero it
	JUMPE P3,SCG.EX		;Nothing to do if it already was zero
SCG.CL:	BLCAL. (<@[MSEC1,,ULNKMG]>,<P4>) ;[7.1037](/T1) Get a buffer from the port driver
	IFNSK.
   IFN SCARNG,<
	  XMOVEI T1,.		;Get feature routine address
	  MOVE T2,-2(P)		;Get PC of caller to feature routine
	  MOVEI T3,1		;Set buffer count
	  SETOM T4		;Set buffer address to -1 due to failure
	  TXZ T3,RPQFLK   	;Clear port link flag since unlinking
	  TXO T3,RPQFMG   	;Set message free queue flag
	  CALL RG.PQM		;(T1,T2,T3,T4,P4) Record port manipulation
>	         		;End of IFN SCARNG
	  LOAD T1,SBDPA,(P4)	;get node number
	  LOAD T2,CBSCID,(P1)	;get our connect ID
	  BUG. (CHK,SCACRB,SCAMPI,SOFT,<SCA - Can't reclaim buffers>,<<T1,NODE>,<T2,CID>,<P3,COUNT>>,<

Cause:	Based on the return_credit field for this connection, SCAMPI is trying
	to reclaim buffers from the port's queue. The queue is empty. This
	reflects confusion about credit, since these buffers should have 
	been queued at some time in the past.

Data:	NODE  - Node number
	CID   - Connect ID at this node
	COUNT - Number of buffers we couldn't get
>)
	  JRST SCG.EX	  
	ENDIF.
   IFN SCARNG,<
	BLOCK.
	  SAVEAC <T1>		;Save smashed AC
	  MOVE T4,T1		;Get buffer address
	  XMOVEI T1,.		;Get feature routine address
	  MOVE T2,-5(P)		;Get PC of caller to feature routine
	  MOVEI T3,1		;Set buffer count
	  TXZ T3,RPQFLK   	;Clear port link flag since unlinking
	  TXO T3,RPQFMG   	;Set message free queue flag
	  CALL RG.PQM		;(T1,T2,T3,T4,P4) Record port manipulation
	ENDBK.
>				;End of IFN SCARNG
	CALL <XENT SC.RBF>	;[7.1037](T1/) Return the buffer to SCA
	SOJG P3,SCG.CL		;Continue until we've gotten them all
SCG.EX:	RET
	SUBTTL Connection management utility routines -- SC.CVC (Close a virtual connection)

; Usage:
;	Call
;	P4/	Address of system block
;
;	Return (+1) Always
;	No data returned

SC.CVC:	LOAD T1,SBDPA,(P4)	;Get port number
	BLCAL. (<@[MSEC1,,CLOSVC]>,<P4>) ;[7.1037]Request close of the connection
				;This will cause callback at SC.ERR
	RET
	SUBTTL Connection management utility routines -- SC.SDM (String and data move to CB)

; This routine moves the source process name, destination process name, and
;connection data from the SYSAPs arguments, into the connect block.
;Note that the addresses provided for destination name and conenction data
;may be zero, but the source name is never zero.
;
; Usage:
;	Call
;	T1/	Address of source process name
;	T2/	Address of destination process name or zero
;	T3/	Address of connection data or zero
;	P1/	Address of connect block
;
;	Return (+1) Always
;	No data returned, T1-T3 are smashed
;
SC.SDM:	STKVAR <DPN,DATA>
	MOVEM T2,DPN		;Save the address of the destintion name
	MOVEM T3,DATA		;  and the connection data

; Move the source process name

	MOVE T2,T1		;Source address for the source process name
	MOVX T1,C%PNLW		;Get the length of a process name in words
	XMOVEI T3,.CBSPN(P1)	;Destination address in CB for source name
	EXTEND T1,[XBLT]	;Move the source name

; Move the destination process name

	SKIPN T2,DPN		;Is there a destination process name to move???
	JRST SDM.DT		;No, do connection data now
	MOVX T1,C%PNLW		;Yes, get its length in words
	XMOVEI T3,.CBDPN(P1)	;Destination addr in CB for destination name
	EXTEND T1,[XBLT]	;Move the destintion process name

; Move the connection data

SDM.DT:	SKIPN T2,DATA		;Is there any data to move???
	RET			;No, all done
	MOVX T1,C%DTLW		;Yes, get its length in words
	XMOVEI T3,.CBDTA(P1)	;Destination addr in CB for connect data
	EXTEND T1,[XBLT]	;Move connetion data please...
	RET			;All done

	ENDSV.
	SUBTTL Connection management utility routines -- SC.OUT (Check sysap call)

;SC.OUT - Handle call from sysap for connection management functions

;Accepts:
;	T1/ event code
;	P1/ address of connection block

;Returns +1: failure
;		T1/ error code
;	 +2: success
;		T1/ new block state (0 if no change)
;		T2/ new connection state (0 if no change)

SC.OUT:
	MOVEM T1,T4		;Save the event
	IMULI T4,MXCNST
	OPSTR <ADD T4,>,CBCNST,(P1)
	SOS T4
	JN X.ERR,(T4),SC.OU5	;Is event legal for current state?
	LOAD T1,X.BSTAT,(T4)	;Yes. Return new block state
	LOAD T2,X.CSTAT,(T4)	;Return new connection state
	RETSKP

SC.OU5:	RETBAD(SCSCWS)
	SUBTTL Connection management utility routines -- SC.RSP (Send a response)

;SC.RSP - Send responses

;Accepts:
;	T1/ op code
;	P1/ address of connection block
;	P2/ address of packet
;	P4/ address of system block

;	CALL SC.RSP

;Returns +1: failure to send,
;		T1/ error code
;	 +2: success

;SC.RS2 - Special entry for credit_rsp to avoid clearing credit field

SC.RSP:	SETZRO MH$CDT,(P2)	;Clear the credit field
SC.RS2:	STOR T1,MH$MSG,(P2)	;Store op code
	LOAD T2,MH$SCI,(P2)	;Get the sending CID
	STOR T2,MH$DCI,(P2)	;Store as the receiving CID
	LOAD T2,CBSCID,(P1)	;Get the source connect-ID
	STOR T2,MH$SCI,(P2)	;Store in packet as sending CID
	CALL @SCMKPK(T1)	;(P2/) Store op-code-specific data
	CALLRET SC.PAK		;(P2,P4/) Send the packet

;Make a connect_response (caller stored MH$STS)

SC.MOS:	SETZRO MH$MCR,(P2)	;Minimum credit field must be 0

;Make an accept_response (caller stored MH$STS)

SC.MAS:

;Make a reject_response

SC.MRS:

;Make a disconnect_response

SC.MDS:

;Make a credit_response

SC.MCS:	RET
	SUBTTL Connection management utility routines -- SC.RQS (Send a request)

;SC.RQS - send an SCS control message

;Accepts:
;	P1/ Address of connection block
;	P2/ Address of packet buffer
;	P4/ address of system block

;	CALL SC.RQS

;Returns +1: failure to send, caller must dispose of buffer
;	 +2: success, buffer was given to port driver

;Sends requests only. Gets data from c.b.

;Caller must lock connection block

;NOTE: Other code depends on CBBKST's being zero when there is nothing
;waiting to be sent

SC.RQS:

;Block state may have gone to zero while the c.b. was queued, if the
;node went offline after it was queued. Return failure so that caller
;will get rid of the buffer.

	LOAD T1,CBBKST,(P1)	;Get block state
   IFN SCADBG,<
	SKIPE T1		;Shouldn't be zero
	CAILE T1,YSIZE		;Too big?
	IFNSK.
	  LOAD T2,SBDPA,(P4)	;Get node number
	  LOAD T3,CBSCID,(P1)	;Get connect ID
	  BUG. (HLT,SCAIBS,SCAMPI,SOFT,<SCA - Invalid block state>,<<T2,NODE>,<T3,CID>,<T1,BSTATE>>,<

Cause:	This caller to SC.RQS provided a block state larger than the table 
	(or zero).

Data:	NODE   - Node number
	CID    - Connect ID
	BSTATE - Block state
>)
	ENDIF.
   >				;End IFN SCADBG
	LOAD T4,Y.OP,(T1)	;Get op code to be sent
	STOR T4,MH$MSG,(P2)	;Store it in the packet
	LOAD T1,CBDCID,(P1)	;Get destination connect ID
	STOR T1,MH$DCI,(P2)	;Store it in the packet
	LOAD T1,CBSCID,(P1)	;Get source connect ID
	STOR T1,MH$SCI,(P2)	;Store it in the packet
	CALL @SCMKPK(T4)	;(P1,P2/)Call specific routine for this op code
	LOAD T1,CBBKST,(P1)	;Get block state again
	OPSTR <SKIPN T1,>,Y.STAT,(T1) ;Get new connection state
	IFSKP.
	   STOR T1,CBCNST,(P1)	;Store in connection block
	ENDIF.
	LOAD T1,MH$MSG,(P2)	;Get op code
	OPSTR <SKIPN T1,>,Z.RSP,(T1) ;If we expect a response,
	IFSKP.
	   STOR T1,CBEXPR,(P1)	; store its op code in connection block
	ENDIF.
	CALL SC.PAK		;(P2,P4/) Send the packet
	 RET
	SETZRO CBBKST,(P1)	;Indicate nothing is pending
	RETSKP

;Not necessary to clear block state as long as failure occurs only
;when node goes offline.
;SC.MOQ - Make a connect request

SC.MOQ:	CALL SCACDT		;(P1,P2/) Store credit field in packet
	SETZRO MH$DCI,(P2)	;We don't know the destination's CID
	JRST SCM.AC

;SC.MAQ - Make an accept_request

SC.MAQ:	CALL SCACDT		;(P1,P2/) Store credit field in packet
SCM.AC:	SETZRO MH$STS,(P2)	;Status field must be zero
	LOAD T1,CBMNSC,(P1)	;Get the minimum send credit
	STOR T1,MH$MCR,(P2)	;Store in minimum_credit field

; Move the destination process name.

	MOVEI T1,<C%PNMN+3>/4	;The number of words to move
	XMOVEI T2,.CBDPN(P1)	;Source address of destination process name
	XMOVEI T3,.MGDPN(P2)	;It goes here...
	XBLT. T1		;Move the destination process name

; Move the source process name

	MOVEI T1,<C%PNMN+3>/4	;How many words to move
	XMOVEI T2,.CBSPN(P1)	;Source address for source process name
	XMOVEI T3,.MGSPN(P2)	;Destination address
	XBLT. T1		;Move the source process name

; Move the initial connection data

	MOVEI T1,<C%CDMN+3>/4	;The number of words to move
	XMOVEI T2,.CBDTA(P1)	;Source
	XMOVEI T3,.MGSDT(P2)	;Destination address
	XBLT. T1		;Move the initial connection data
	RET

;SC.MRQ - Make a reject request

SC.MRQ:

;SC.MDQ - Make a disconnect request

SC.MDQ:	SETZRO MH$CDT,(P2)	;Credit field must be zero
	LOAD T1,CBSDRE,(P1)	;Get the reason for disconnecting
	STOR T1,MH$STS,(P2)	;Store it in the packet
	SETZRO MH$MCR,(P2)	;Minimum_credit field must be zero
	RET

;SC.MCQ - Make a credit request

SC.MCQ:	CALL SCACDT		;(P1,P2/) Store credit field in packet
	RET
; Routine to set credit in a packet and update .CBPRC
;
;
;Usage:
;
;	CALL SCACDT
;
;	P1/	Address of Connection block
;	P2/	Message buffer to send
;	
;	Does not alter any AC's except T1


SCACDT:	CIOFF			;Credit play time again 
	LOAD T1,MH$MSG,(P2)	;Get op code from packet
	CAIE T1,.STCRQ		;Is this a credit request we are sending???
	IFSKP.
	  MOVE T1,.CBPRC(P1)	;Get the pending receive credit
	  MOVEM T1,.CBRQC(P1)	;Store curr pend receive credit as REQ_CREDIT
	ELSE.
	  MOVE T1,.CBPRC(P1)	;Get the pending receive credit
	  ADDM T1,.CBRCD(P1) 	;Update the receive credit
	 ENDIF.
	STOR T1,MH$CDT,(P2)	;Stor the credit field
	SETZM .CBPRC(P1)	;zero the pending credit
	CION			;Restore the state of the PI
	RET			;RETURN
	SUBTTL Connection management utility routines -- SC.PAK (Send a packet)
;SC.PAK - send a packet

;Accepts:
;	P2/ address of packet
;	P4/ address of system block

;	CALL SC.PAK

;Returns +1: failure to send,
;		T1/ error code
;	 +2: success


SC.PAK:	STKVAR <OPCODE>
   IFN SCARNG,<
SCPAK:	XMOVEI T1,.		;Get feature routine address
	MOVE T2,-3(P)		;Get caller to feature routine
	LOAD T3,MH$MSG,(P2)	;Get opcode
	LOAD T4,Z.LEN,(T3)	;Get length based on opcode
	LOAD T3,Z.PRI,(T3)	; and priority also
	HRL T4,T3		;Place priority correctly
	SETZ T3,0		;No flags
	CALL RG.PKT		;(T1,T2,T3,T4,P2,P4) Record packet transmission
>				;End of IFN SCARNG
	LOAD T1,MH$MSG,(P2)	;Get op code
	MOVEM T1,OPCODE
	LOAD T2,Z.LEN,(T1)	;Get length of this message
	CALL SC.ROU		;Byte swap the packet header for output
	LOAD T3,Z.PRI,(T1)	;Get priority for this op code
	BLCAL. (<@[MSEC1,,SNDMSG]>,<T2,[0],P4,P2,T3>) ;[7.1037]Send the packet (no flags)
	 RETBAD ()		;Return failure
	AOS SCAOSN		;[7211] COUNT THE SEND
	MOVE T1,OPCODE		;Restore op code
	AOS SNDTAB(T1)		;Increment count for sending this code
	RETSKP
	ENDSV.
;SC.PTC - Declare protocol complete

;Accepts:
;	P1/ address of connection block

;	CALL SC.PTC

;Returns +1: always

;This routine is called when we believe that no more output should be sent
;to a node, and we don't expect any input from it. In theory, we can delete
;the connection block now. In practice, we have to wait until all outstanding
;buffers (used for sending) have been returned. Also, if this is a JSYS
;connection, the SCSJSY code will decide when to reap the block. It doesn't
;do this until the user has run, because event blocks are queued off the
;connection block

;NOTE: It is legal for the block state to be non-zero here. This can happen
;if the node goes offline.

SC.PTC:
   IFN SCADBG,<
	LOAD T3,CBCNST,(P1)
	CAIN T3,.CSCLO		;Should be closed
	IFSKP.
	  MOVE T4,(P)		;Get address of caller
	  LOAD T1,CBSCID,(P1)	;Get connect ID
	  CALL <XENT SC.NOD>	;[7.1037](T1/T1,T2) Get node number
	  BUG. (CHK,SCAPCC,SCAMPI,SOFT,<SCA - Protocol complete set and connect state not closed>,<<T2,NODE>,<T1,CID>,<T3,CSTATE>,<T4,CALLER>>,<

Cause:	A call was made to SC.PTC indicating that the protocol was complete.
	When this happens, the connect state should be closed.  It was not.

Data:	NODE   - Node number
	CID    - Connect ID
	CSTATE - Connect state
	CALLER - Address of caller to SC.PTC
>)
	ENDIF.
  >
	SETONE CBFPTC,(P1)	;Indicate we've quit talking to other end
	SETZRO CBBKST,(P1)	;Clear block state
	TMNE CBFJSY,(P1)	;If it's not a JSYS block
	IFSKP.
	  SETONE CBFRAP,(P1)	; then we can go ahead and reap it
	  SETONE CIREP		;TELL CIFORK TO RUN
	ENDIF.
	RET
	SUBTTL Buffer management routines -- SC.SBT (Set buffer thresholds)

; This routine set buffer thresholds based on the number of systems currently
;online.
;
; Usage:
;	Call
;	No arguments
;
;	Return (+1) Always
;	MINMSG/	New message buffer threshold
;	MINDG/	New datagram buffer threshold
;
SC.SBT:	MOVE T1,SBCNT		;Get current number of online systems
	IMUL T1,MBPS		;Multiply by threshold per SB to get threshold
	ADD T1,MGTRSH		;Add the threshold we must have around
	MOVEM T1,MINMSG		;Update the minimum message buffer count

	MOVE T1,SBCNT		;Get the system count again
	IMUL T1,DBPS		;Mult by DG buffers per sys to get threshold
	ADD T1,DGTRSH		;Add on the treshold we must keep about
	MOVEM T1,MINDG		;Update min datagram buffer count
	RET			;Return
; Routine to Link Multiple Messages onto the Port Free Queue
;
; Usage:
;
;	T1/ Address of buffer chain
;	T2/ Count of the buffers
;	P1/ address of connection block
;	P4/ address of system block

;	CALL SCL.MC
;
;	Returns +1 always
;

SCL.MC:	SAVEAC <Q2>		;Save a temporary for buffer count
	MOVEM T2,Q2		;Save the count of buffers
   IFN SCARNG,<
	BLOCK.
	  SAVEAC <T1>		;Saved smashed AC
	  MOVE T4,T1		;Get buffer address
	  XMOVEI T1,.		;Get feature routine address
	  MOVE T2,-5(P)		;Get PC of caller to feature routine
	  MOVE T3,Q2		;Get buffer count
	  TXO T3,RPQFLK		;Set port link flag
	  TXO T3,RPQFMG		;Set message free queue flag
	  CALL RG.PQM		;(T1,T2,T3,T4,P4) Record port manipulation
	ENDBK.
>				;End of IFN SCARNG
	BLCAL. (<@[MSEC1,,LNKMFQ]>,<P4,T1>) ;[7.1037]Link buffer chain onto Message Free queue
	ADDM Q2,.CBPRC(P1)	;Update credit counts
	RET
; Routine to Link Multiple Datagrams onto the Port Free Queue
;
; Usage:
;
;	T1/ Address of buffer chain
;	T2/ Count of the buffers
;	P1/ address of connection block
;	P4/ address of system block

;	CALL SCL.DC
;
;	Returns +1 always
;

SCL.DC:	SAVEAC <Q2>		;Save a temporary for buffer count
	MOVEM T2,Q2		;Save the count of buffers 
   IFN SCARNG,<
	BLOCK.
	  SAVEAC <T1>		;Save smashed AC
	  MOVE T4,T1		;Get buffer address
	  XMOVEI T1,.		;Get feature routine address
	  MOVE T2,-5(P)		;Get PC of caller to feature routine
	  MOVE T3,Q2		;Set buffer count
	  TXO T3,RPQFLK   	;Set port link flag
	  TXZ T3,RPQFMG   	;Clear message free queue flag since datagram
	  CALL RG.PQM		;(T1,T2,T3,T4,P4) Record port manipulation
	ENDBK.
>				;End of IFN SCARNG
	BLCAL. (<@[MSEC1,,LNKDFQ]>,<P4,T1>) ;[7.1037]Link buffer chain onto Datagram Free queue
	ADDM Q2,.CBDGR(P1)	;Update Datagram counts
	RET
; Routine to return Multiple Message buffers to the Message pool
;
;Usage
;
;	T1/	Address of Buffer list
;	Call SCM.RM
;
;	Returns +1 always

SCM.RM:	SAVEAC <Q1>		;Save a place for the header
SCM.LM:	MOVE Q1,0(T1)		;Get the pointer to the next buffer
	CALL <XENT SC.RBF>	;[7.1037]Return the buffer
	SKIPN T1,Q1		;Was there another buffer?
	RET			;Return no more to do
	JRST SCM.LM		;Yes try again for more
; Routine to return Multiple Datagrams buffers to the Datagrams pool
;
;Usage
;
;	T1/	Address of Buffer list
;	Call SCM.RD
;
;	Returns +1 always

SCM.RD:	SAVEAC <Q1>		;Save a place for the header
SCM.LP:	MOVE Q1,0(T1)		;Get the pointer to the next buffer
	CALL <XENT SC.RLD>	;[7.1037]Return the buffer
	SKIPN T1,Q1		;Was there another buffer?
	RET			;Return no more to do
	JRST SCM.LP		;Yes try again for more
	SUBTTL Buffer management routines -- SC.BUF

;SC.BUF - get buffers for SC.SNM or SC.DEF

;Accepts:
;	P1/ address of connection block
;	P4/ address of system block

;	CALL SC.BF1 (if can't create buffers)
;	CALL SC.BF2 (if can create buffers)

;Returns +1: failed to create buffers
;	 +2: buffers were created

;This routine attempts to allocate buffers from SCA's free pool. If
;the caller can tolerate page faults, it tries to create new buffers if
;the pool is empty

SC.BF1:	TDZA T1,T1		;Can't create buffers
SC.BF2:	SETOM T1		;Can create buffers
	SAVEP
	MOVEM T1,P2		;Save flag
	OPSTR <SKIPN T1,>,CBIMB,(P1) ;Get the number of message buffers needed
	JRST SBF.DG		;None. Go try for datagram buffers
	CALL <XENT SC.ABF>	;[7.1037](T1/T1,T2,T3) Try to get them from the pool
	 SKIPA			;Failed. HAve to create them
	JRST SBF.QM		;Succeeded. Go give them to the port

;Didn't have enough in SCA's pool. Create them.

	IFE. P2			;Can we create them?
	  AOS DMRCNT		;No. Count failure
	  RET
	ENDIF.
	LOAD T1,CBIMB,(P1)	;Get number of buffers needed
	CALL SC.CMG		;(T1/T1,T2,T3) Create the message buffers 
	 RET			;Indicate failure
	ADDM T3,TOTMGB		;Add to total number of message buffers created

;SC.CMG may have created more than we needed. If so, make a chain of the
;extra buffers and return them to SCA's pool.

	LOAD P5,CBIMB,(P1)	;See how many buffers we wanted
	CAMN P5,T3		;Did we get exactly what we wanted???
	JRST SBF.QM		;Yes, queue the buffer chain immediatly

;We got more than we wanted. Make a chain out of the desired number.

	MOVEM T1,P3		;Save the address of the buffer chain
	MOVE T2,T1		;No, loop to get address of last desired buffer
	MOVE T3,T2		;Save the address of the previous buffer
	MOVE T2,(T2)		;Get the address of the next buffer
	SOJG P5,.-2		;Loop until request count is exhausted
	SETZM (T3)		;Zero the forward pointer of last req buffer

;Return the excess buffers created by CMG to the SCA free pool.

	MOVE T1,T2		;Get the address of the current buffer
	CALL SCM.RM		;Return messages to free pool
	MOVE T1,P3		;Get the address of the buffer chain

; Here when we are ready to queue the buffers to the port queue.

SBF.QM:	LOAD T2,CBIMB,(P1)	;Get the count of the buffers in the chain
	CALL SCL.MC		;(T1,T2,P1,P4/) Queue up the Messages to the port
				; and update pending receive credit
	SETZRO CBIMB,(P1)	;No longer need these buffers
	;..
; Here to do datagrams.
	;..

SBF.DG:	OPSTR <SKIPN T1,>,CBIDB,(P1) ;Get the number of datagrams to create
	JRST SBF.EX		;None
	CALL <XENT SC.ALD>	;[7.1037](T1/T1,T2,T3) Try to get them from the pool
	 SKIPA			;Failed. HAve to create them
	JRST SBF.QD		;Succeeded. Go give them to the port

;Didn't have enough in SCA's pool. Create them.

	IFE. P2
	  AOS DDRCNT
	  RET
	ENDIF.
	LOAD T1,CBIDB,(P1)	;Get number of buffers needed
	CALL SC.CDG		;(T1/T1,T2,T3) Create the datagrams 
	 RET			;Indicate failure
	ADDM T3,TOTDGB		;Add to total datagram buffers created

;SC.CMG may have created more than we needed. If so, make a chain of the
;extra buffers and return them to SCA's pool.

	LOAD P5,CBIDB,(P1)	;Get the number of buffer requested
	CAMN P5,T3		;Did we get excatly what we asked for???
	JRST SBF.QD		;Yes, go queue the datagrams

;We got more than we wanted. Make a chain out of the desired number.

	MOVEM T1,P3		;Save the address of the buffer chain
	MOVE T2,T1		;Get the base addr of the chain
	MOVE T3,T2		;Save the address of the previous buffer
	MOVE T2,(T2)		;Move on to the next buffer
	SOJG P5,.-2		;Loop until we have the number we requested
	SETZM (T3)		;Zero the FLINK of the last req buffer

; Here to put the excess buffers created by CDG on the SCA free queue.

	MOVE T1,T2		;Get the address of the current buffer
	CALL SCM.RD		;Return Datagrams
	MOVE T1,P3		;Get the address of the buffer chain

; Here to link the new buffers onto the hardware free queue.

SBF.QD:	LOAD T2,CBIDB,(P1)	;Get the number of datagrams queued
	CALL SCL.DC		;Put the Datagrams on the Free q
	SETZRO CBIDB,(P1)	;No longer need these buffers

SBF.EX:	RETSKP
	SUBTTL Buffer management routines -- SC.ALD (Allocate long datagram buffers)

; This routine allocates long datagram buffers. In order to receive a long 
;datagram you must queue a buffer obtained with this routine.
;
; Usage:
;	Call
;	T1/	Number of buffers desired
;
;	Return (+1)
;	Not enough buffers available to fill request, try again later
;
;	Return (+2)
;	T1/	Address of first buffer on chain
;	T2/	Number of buffers returned
;	T3/	Address of routine to return buffers
;
; Local AC usage:
;	T1/	Pointer to current buffer
;	T3/	Saved copy of current buffer pointer
;	T4/	Number of buffer left in request
;
XRENT	(SC.ALD,G)		;[7.1037]SC.ALD::, XSC.AL::
	MOVE T2,T1		;A copy we can work with
	CIOFF			;Interlock the buffer counts
   IFN SCADBG,<
	CALL SC.TDQ		;Trace the datagram free queue
>				;End of IFN SCADBG
	SUB T2,DFQCNT		;(T2) = (request) - (available)
	SKIPLE T2		;Is the request more than we have available???
	JRST SAL.RF		;Yes, refuse the request
	MOVMS T2		;(T2) = (available) - (request)
	CAML T2,DGTRSH		;Will there be enough left over after request??
	IFSKP.
	 CAML T1,LRGREQ		;No, but is this a small request???
	 JRST SAL.RF		;No, a large request, refuse it
	 AOS DBUST		;Count another small request busting threshold
	ENDIF.

; Here to honor the request.
;
	STKVAR <NUMBUF>
	MOVEM T1,NUMBUF		;Save the number of buffers requested
	MOVE T4,T1		;Working copy of the request size
	SKIPN T1,TOPDFQ		;Is there a first buffer, get its address
	JRST SAL.ER		;Handle a bad buffer count

	MOVE T2,T1		;Start buffer loop with addr of first buffer
SAL.BL:	SOJLE T4,SAL.CR		;If no more buffers,fix up count and Q pointers
	SKIPN T2,(T2)		;Now on to the next buffer
	JRST SAL.ER		;No entry!!! Recover from a bad FQCNT
	JRST SAL.BL		;Loop for more entries

; Here when we have completed the request.
;
;	Expects:
;	T1/	Address of first buffer to be returned
;	T2/	Address of last buffer to be returned
;
SAL.CR:	SKIPE T3,(T2)		;Get the addr of the new first buffer
	IFSKP.
	  XMOVEI T4,TOPDFQ	;No next buffer, get pointer to top of the Q
	  MOVEM T4,BOTDFQ	;  and init the queue BLINK as pointer to FLINK
	  SETONE CIBUF		;Ask CIFORK fork to run for us
	ENDIF.
	MOVEM T3,TOPDFQ		;In any case update the q FLINK
	SETZM (T2)		;Zero forward link of last buffer
	MOVN T3,NUMBUF		;Get the number of buffers issued
	ADDM T3,DFQCNT		;Account for these in buffer counts
   IFN SCADBG,<
	CALL SC.TDQ		;Trace the datagram free queue
>				;End of IFN SCADBG
	MOVE T3,MINDG		;Number of buffers we should have onhand 
	CAMGE T3,DFQCNT		;Are there enough buffers around these days???
	JRST SAL.EX		;Yes, bail out now...
	SETONE CIBUF		;Ask CIFORK fork to run for us

SAL.EX:	CION			;Restore the channel
   IFN SCARNG,<
	MOVE T3,NUMBUF		;Get buffer count
	BLOCK.
	  SAVEAC <T1>		;Save the base address of buffer chain
	  MOVE T4,T1		;Get base address of buffer chain
     	  XMOVEI T1,.		;Get feature routine address
	  MOVE T2,-6(P)		;Get PC of caller to feature routine
	  CALL RG.BFM		;(T1,T2,T3,T4) Record buffer management
	ENDBK.
>				;End of IFN SCARNG
	MOVE T2,NUMBUF		;Return the number of buffers queued
	MOVE T3,[MSEC1,,SC.RLD]	;[7.1048] Tell caller where to return buffer
	RETSKP			;Return all OK

; Here to refuse the request. We have some book keeping to do.
;
;	T1/	Request size
;
SAL.RF:	ADD T1,ASRDR		;Add current average size to  new request
	SKIPE RDRCNT		;Don't averge if this is the first time through
	IDIVI T1,2		;Take the average of the two
	MOVEM T1,ASRDR		;Update the average size of refused request
	AOS RDRCNT		;Increment the number of refused requests
	CION			;Release the counters
   IFN SCARNG,<
     	XMOVEI T1,.		;Get feature routine address
	MOVE T2,(P)		;Get PC of caller to feature routine
	MOVE T3,RDRCNT		;Get count of refused requests
	SETOM T4		;Indicate buffer was not created
	CALL RG.BFM		;(T1,T2,T3,T4) Record buffer management
>				;End of IFN SCARNG
	RETBAD (SCSNBA)		;Return not enough buffers

; Here when we discover that the count was incorrect and that we have fewer
;buffers than we thought.
;
; Expects:
;	T1/	Address of first buffer on returned chain
;
SAL.ER:	SETONE CIBUF		;Ask CIFORK fork to run for us
	AOS NDBCNT		;Count this event
	AOS RDRCNT		;Increment the number of refused requests
	MOVE T1,NUMBUF		;Get the request size again
	ADD T1,ASRDR		;Add current average size to  new request
	IDIVI T1,2		;Take the average of the two
	MOVEM T1,ASRDR		;Update the average size of refused request

; Now readjust the buffer count
;
	SETZ T2,		;Zero the buffer count
	SKIPE T1,TOPDFQ		;Are there any buffers here???
	IFSKP.
	  XMOVEI T1,TOPDFQ	;No, get a pointer to the Q FLINK
	  MOVEM T1,BOTDFQ	;Init the Q tail pointer
	  SETZM TOPDFQ		;Init the Q head pointer
	  SETZM DFQCNT		;Reset count of buffers
	  JRST SAL.EE		;  and error exit
	ENDIF.
	AOS T2			;Count the initial buffer
	SKIPE T1,(T1)		;Is there a next buffer
	AOJA T2,.-1		;Yes, continue to count buffers
	MOVEM T2,DFQCNT		;Restore the buffer count
   IFN SCADBG,<
	CALL SC.TDQ		;Trace the datagram free queue
>				;End of IFN SCADBG

SAL.EE:	CION			;Restore the state of the PI
   IFN SCARNG,<
     	XMOVEI T1,.		;Get feature routine address
	MOVE T2,-3(P)		;Get PC of caller to feature routine
	MOVE T3,RDRCNT		;Get count of refused requests
	SETOM T4		;Indicate buffer was not created
	CALL RG.BFM		;(T1,T2,T3,T4) Record buffer management
>				;End of IFN SCARNG
	RETBAD (SCSNBA)		;Return failure

	ENDSV.
	SUBTTL Buffer management routines -- SC.ABF (Allocate a buffer/buffers)

; This routine is used to obtain message buffers from SCA. When you wish to
;receive or send a message, you must obtain the buffer from here. 
;All you need to tell SCA is how many buffers you want. What is returned to you
;is a chain of buffers containing the number of buffer you asked for.
;
; Usage:
;	Call
;	T1/	Number of buffers desired
;
;	Return (+1)
;	T1/	Error code (No buffers returned)
;
;	Return (+2)
;	T1/	Address of the first buffer in the returned chain
;	T2/	Count of buffer returned
;	T3/	Address of routine to call to return buffers
;
XRENT	(SC.ABF,G)		;[7.1037]SC.ABF::, XSC.AB::
	MOVE T2,T1		;A copy we can work with
	CIOFF			;Interlock the buffer counts
   IFN SCADBG,<
	CALL SC.TMQ		;Trace the message free queue
>				;End of IFN SCADBG
	SUB T2,FQCNT		;(T2) = (request) - (available)
	SKIPLE T2		;Is the request more than we have available???
	JRST SAB.RF		;Yes, refuse the request
	MOVMS T2		;(T2) = (available) - (request)
	CAML T2,MGTRSH		;Will there be enough left over after request??
	IFSKP.
	 CAML T1,LRGREQ		;No, but is this a small request???
	 JRST SAB.RF		;No, a large request, refuse it
	 AOS MBUST		;Count another small request busting threshold
	ENDIF.

; Here to honor the request.
;
SAB.PR:	STKVAR <NUMBUF>
	MOVEM T1,NUMBUF		;Save the number of buffers requested
	MOVE T4,T1		;Working copy of the request size
	SKIPN T1,TOPFQ		;Is there a first buffer, get its address
	JRST SAB.ER		;Handle a bad buffer count

	MOVE T2,T1		;Start buffer loop with addr of first buffer
SAB.BL:	SOJLE T4,SAB.CR		;If no more buffers,fix up count and Q pointers
	SKIPN T2,(T2)		;Now on to the next buffer
	JRST SAB.ER		;No entry!!! Recover from a bad FQCNT
	JRST SAB.BL		;Loop for more entries

; Here when we have completed the request.
;
;	Expects:
;	T1/	Address of first buffer to be returned
;	T2/	Address of last buffer to be returned
;
SAB.CR:	SKIPE T3,(T2)		;Get the addr of the new first buffer
	IFSKP.
	  XMOVEI T4,TOPFQ	;No next buffer, get pointer to top of the Q
	  MOVEM T4,BOTFQ	;  and init the queue BLINK as pointer to FLINK
	  SETONE CIBUF		;Ask CIFORK fork to run for us
	ENDIF.
	MOVEM T3,TOPFQ		;In any case update the q FLINK
	SETZM (T2)		;Zero forward link of last buffer
	MOVN T3,NUMBUF		;Get the number of buffers issued
	ADDM T3,FQCNT		;Account for these in buffer counts
   IFN SCADBG,<
	CALL SC.TMQ		;Trace the message free queue
>				;End of IFN SCADBG
	MOVE T3,MINMSG		;Number of buffers we should have onhand 
	CAMGE T3,FQCNT		;Are there enough buffers around these days???
	JRST SAB.EX		;Yes, bail out now...
	SETONE CIBUF		;Ask CIFORK fork to run for us

SAB.EX:	CION			;Restore the channel
   IFN SCARNG,<
	MOVE T3,NUMBUF		;Get buffer count
	BLOCK.
	  SAVEAC <T1>		;Save the base address of buffer chain
	  MOVE T4,T1		;Get base address of buffer chain
     	  XMOVEI T1,.		;Get feature routine address
	  MOVE T2,-6(P)		;Get PC of caller to feature routine
	  CALL RG.BFM		;(T1,T2,T3,T4) Record buffer management
	ENDBK.
>				;End of IFN SCARNG
	MOVE T2,NUMBUF		;Return the number of buffers requested
	MOVE T3,[MSEC1,,SC.RBF]	;[7.1048] Tell caller where to return buffer
	RETSKP			;Return all OK

; Here to refuse the request. We have some book keeping to do.
;
;	T1/	Request size
;
SAB.RF:	ADD T1,ASRMR		;Add current average size to  new request
	SKIPE RMRCNT		;If this is the first time, no averaging needed
	IDIVI T1,2		;Take the average of the two
	MOVEM T1,ASRMR		;Update the average size of refused request
	AOS RMRCNT		;Increment the number of refused requests
	CION			;Release the counters
   IFN SCARNG,<
     	XMOVEI T1,.		;Get feature routine address
	MOVE T2,-3(P)		;Get PC of caller to feature routine
	MOVE T3,RMRCNT		;Get count of refused requests
	SETOM T4		;Indicate buffer was not created
	CALL RG.BFM		;(T1,T2,T3,T4) Record buffer management
>				;End of IFN SCARNG
	RETBAD (SCSNBA)		;Return not enough buffers

; Here when we discover that the count was incorrect and that we have fewer
;buffers than we thought.
;

SAB.ER:	MOVE T1,FQCNT		;Get number of buffers we thought we had
	MOVE T2,TOPFQ		;Get pointer to top of free queue
	MOVE T3,BOTFQ		;Get pointer to bottom of free queue
	MOVE T3,NUMBUF		;Get number of buffers requested
	BUG. (CHK,SCAMCR,SCAMPI,SOFT,<SCA - Message buffer count was incorrect>,<<T1,COUNT>,<T2,TOPQ>,<T3,BOTQ>,<T4,BUFNUM>>,<

Cause:	There are no message buffers when the count indicated there are enough.

Data:	COUNT  - count of buffers we believed we had
	TOPQ   - pointer to top of message free queue
	BOTQ   - pointer to bottom of message free queue
	BUFNUM - number of buffers requested
>)
   IFN SCARNG,<
     	XMOVEI T1,.		;Get feature routine address
	MOVE T2,-3(P)		;Get PC of caller to feature routine
	MOVE T3,RMRCNT		;Get number of refused requests
	SETOM T4		;Indicate buffer was not created
	CALL RG.BFM		;(T1,T2,T3,T4) Record buffer management
>				;End of IFN SCARNG
	SETONE CIBUF		;Ask CIFORK fork to run for us
	AOS NMBCNT		;Count this event
	AOS RMRCNT		;Increment the number of refused requests
	MOVE T1,NUMBUF		;Get the request size again
	ADD T1,ASRMR		;Add current average size to  new request
	IDIVI T1,2		;Take the average of the two
	MOVEM T1,ASRMR		;Update the average size of refused request

; Now readjust the buffer count
;
	SETZ T2,		;Zero the buffer count
	SKIPE T1,TOPFQ		;Are there any buffers here???
	IFSKP.
	  XMOVEI T1,TOPFQ	;No, get a pointer to the Q FLINK
	  MOVEM T1,BOTFQ	;Init the Q tail pointer
	  SETZM TOPFQ		;Init the Q head pointer
	  SETZM FQCNT		;Zero the buffer count...
	  JRST SAB.EE		;  and error exit
	ENDIF.
	AOS T2			;Count the initial buffer
	SKIPE T1,(T1)		;Is there a next buffer
	AOJA T2,.-1		;Yes, continue to count buffers
	MOVEM T2,FQCNT		;Restore the buffer count
   IFN SCADBG,<
	CALL SC.TMQ		;Trace the message free queue
>				;End of IFN SCADBG

SAB.EE: CION			;Restore the state of the PI system
        RETBAD (SCSNBA)		;Return failure

	ENDSV.
	SUBTTL Buffer management routines -- SC.CMG/SC.CDG (Create MSG/DG buffers)

; This routine creates emssage buffers by creating (touching) pages and
;turning them into SCA buffers. The pages used are created by touching them and
;then locking them down. Hence THIS ROUTINE MAY ONLY BE CALLED IN PROCESS 
;CONTEXT.
;
; Usage:
;	Call
;	T1/	Number of buffers to create
;
;	Return (+1)
;	T1/	Error code
;
;	Return (+2)
;	T1/	Address of first buffer on chain
;	T2/	Address of last buffer on chain
;	T3/	Number of buffers actually returned
;
; Note: The number of buffers returned is rounded up to fill an intgeral
;number of pages. Hence the calling routine may get more buffers back than it
;requested.
;
SC.CMG:	TDZA T2,T2		;Clear the datagram flag
SC.CDG: SETO T2,		;Set the datagram flag
	SAVEAC <Q1,Q2,P4,P5>
	STKVAR <BUFSZ,NUMPPG,NUMBUF>
	MOVX T3,C%MGSZ		;Assume messages
	MOVX T4,C%MGPG		;.	.	.
	SKIPE T2		;Good assumption???
	IFNSK.
	 MOVX T3,C%DGSZ		;Nope, get the size oF datagrams
	 MOVX T4,C%DGPG		;  and the number of datagrams per page
	ENDIF.
	MOVEM T3,BUFSZ		;Save the size of the buffers we desire
	MOVEM T4,NUMPPG		;Save the number of buffers per page
	MOVE Q1,T1		;Get the request size in buffers
	IDIV Q1,NUMPPG		;(Q1) = Number of pages in request
	SKIPE Q2		;Any remainder???
	AOS Q1			;Yes, round up the page count
	MOVE T1,Q1		;Get the page count we will create
	IMUL T1,NUMPPG		;Find the total number of buffers created
	MOVEM T1,NUMBUF		;Save for later return
	SETZ P4,		;Zero the page chain foreward pointer
	MOVEI P5,P4		;Make the tail pointer point to the head

; Create a chain of pages from which we can make buffers.

SCM.CP:	NOSKED			;Interlock the first free page in EPG pointer
	MOVE Q2,LSTEPG		;Get the last page we used from EPGSEC
	SKIPE @[EP. EPGMAP(Q2)]	;Is this page in use???
	SOJGE Q2,.-1		;Yes? Loop for the next one
	JUMPL Q2,SCM.ER		;Handle no pages left in EPGSEC
	MOVEM Q2,LSTEPG		;Store as the next page to use
	SOS LSTEPG		;Move pointer to next page
	OKSKED			;Release the last EPG page pointer
	LSH Q2,^D9		;Convert the page number into an address
	HRL Q2,EPGSEC		;Fill in the section number
	MOVE T1,Q2		;Address to Xlock
	CALLX (MSEC1,MLKMA)	;[7.1037]Lock the page down please
	MOVEM Q2,(P5)		;Add entry to the end of the chain
	MOVEM Q2,P5		;  and update the tail pointer
	SOJG Q1,SCM.CP		;Loop if there are more pages to do

; Make the page chain into an SCA buffer chain

   IFN SCARNG,<
     	XMOVEI T1,.		;Get feature routine address
	MOVE T2,-12(P)		;Get PC of caller to feature routine
	MOVE T3,NUMBUF		;Get buffer count
	MOVE T4,P4		;Get base address of buffer chain
	CALL RG.BFM		;(T1,T2,T3,T4) Record buffer management
>				;End of IFN SCARNG
	MOVE T1,P4		;Get the base address of the page chain
	MOVE T2,BUFSZ		;Get the size of the buffers desired
	CALL SC.BBF		;Create the buffer chain
	MOVE T3,NUMBUF		;Return the total buffer count as well
	RETSKP			;Return all OK

; Here when we run out of pages in EPGSEC. This is only an indication of
;a different problem. In any case we should NEVER have so much memory in use
;for SCA buffers that we overrun the section. Hence die here... In general
;this means someone is not lighting F.RTB when it should be and buffers are 
;ending up on the hardware free queue by the dozen...
;
SCM.ER:	OKSKED
	BUG. (CHK,SCABSF,SCAMPI,SOFT,<SCA - Buffer section full>,<>,<

Cause:	SCA went to create more buffers and discovered that the section
	is full. This is an indication that buffers are not being returned.
>)
	RETBAD (SCSNEB)
	ENDSV.
	SUBTTL Buffer management routines -- SC.BBF (Break memory into buffers)

; Give this routine the number of buffers you would like and it will get a
;block of memory and break it up into the number of message buffers
;you asked for. The major use of this routine is the initialization code and 
;the code that gets buffers after we have run out during system operation.
;
; Usage:
;	Call
;	T1/	Address of first page in page list
;	T2/	Buffer size
;
;	Return (+1) Always
;	T1/	Address of first buffer on chain
;	T2/	Address of last buffer on chain
;	
; Local AC usage:
;
;	T1/	Address of first buffer in list
;	T2/	Address of last buffer in list
;	T3/	Number of words left in the current page
;	T4/	Address of the next buffer
;
;	P1/	Address of next page 
;	P2/	Count of buffers obtained so far
;
SC.BBF:	SAVEP			;Save the regs we use for work
	STKVAR <BUFSIZ>		;Allocate space for the buffer size
	ADDI T2,C%BINV		;Add invisible space size to buffer size
	MOVEM T2,BUFSIZ		;Save the alleged buffer size 
	MOVEM T1,P1		;Save the callers list pointer
	ADDI T1,C%BINV		;Create the invisible buffer area
	MOVEM T1,T2		;For init, tail is same as head pointer
	SETZ P2,		;Init the count at zero
	MOVEI T3,PGSIZ		;Get the size of a page
	MOVE P1,(P1)		;Get the address of the next page
	MOVEM T1,T4		;Init next addr as first addr

SBB.BL:	CAMGE T3,BUFSIZ		;Have we run out of room on this page???
	JRST SBB.PL		;Yes we have, do the next page pls...
	AOS P2			;Count this buffer into the total
	MOVEM T4,T2		;Update the tail pointer
	MOVE T4,BUFSIZ		;Get the size of a buffer
	ADDM T2,T4		;Make it the address of the next buffer
	MOVEM T4,(T2)		;Link it onto the list
	SUB T3,BUFSIZ		;Update page space counter
	JRST SBB.BL		;Loop over the whole page

; Here to loop over pages...
SBB.PL:	SETZM (T2)		;Be sure nxt ptr is zero since we might be done
	SKIPN P1		;Is there a next page to do???
	JRST SBB.EX		;Nope, go exit
	MOVE T4,P1		;Yes, get addr of next page
	ADDI T4,C%BINV		;Create the invisible space
	MOVEM T4,(T2)		;Link last page to new page
	MOVE P1,(P1)		;Get the address of the next page
	MOVEI T3,PGSIZ		;Reset the page space counter
	JRST SBB.BL		;And break this page into buffers.

; Here to leave the routine. Place args where we promised them...
;
SBB.EX:	MOVE T3,P2		;Set up the count of buffers
	RET			;And return
	ENDSV.
	SUBTTL Buffer management routines -- SC.RBF (Return a message buffer)

; This routine is called when you wish to return a buffer to SCA which you
;received from SCA. All that must be done is hand SCA a pointer to the
;buffer and away we go.
;
; Usage:
;	Call
;	T1/	Address of buffer to be returned
;
;	Return (+1) Always
;	No data returned, all buffers returned OK
;
XRENT	(SC.RBF,G)		;[7.1037]SC.RBF::, XSC.RB::
	MOVE T4,T1		;Save the address of the buffer
	MOVE T2,T1		;Make this address the source for XBLT
	SUBI T2,C%BINV		;Move the origin to the start of the invisible
	MOVE T3,T2		;  and the destination
	AOS T3			;  is one more than the source
	MOVX T1,<C%BINV+C%MGSZ>-1 ;Number of words to zero
	SETZM (T2)		;Zero the first word
	EXTEND T1,[XBLT]	;Zero the buffer please
	MOVE T1,T4		;Restore the address of the buffer
	CIOFF			;Interlock my queues
	MOVEM T1,@BOTFQ		;Link this buffer after the end of the list
	MOVEM T1,BOTFQ		;Store the new free queue bottom pointer
	SETZM (T1)		;Insure the FLINK of last buffer is zero
	AOS FQCNT		;Update the buffer count
   IFN SCADBG,<
	CALL SC.TMQ		;Trace the message free queue
>				;End of IFN SCADBG
	CION			;Bring back the world again
   IFN SCARNG,<
     	XMOVEI T1,.		;Get feature routine address
	MOVE T2,(P)		;Get PC of caller to feature routine
	SETOM T3		;Buffer is being returned
	CALL RG.BFM		;(T1,T2,T3,T4) Record buffer management
>				;End of IFN SCARNG
	RET			;Return
	SUBTTL Buffer management routines -- SC.RLD (Return a datagram buffer)

; This routine is called when you wish to return a long datagram buffer to SCA.
;All that must be done is hand SCA a pointer to the buffer.
;
; Usage:
;	Call
;	T1/	Address of buffer to be returned
;
;	Return (+1) Always
;	No data returned, buffer is now in SCA database
;
XRENT	(SC.RLD,G)		;[7.1037]SC.RLD::, XSC.RL::
	MOVE T4,T1		;Save the address of the buffer
	MOVE T2,T1		;Make this the start address
	SUBI T2,C%BINV		;Move back to start of the invisible area
	MOVE T3,T2		;Destination address is the start address
	AOS T3			;  plus one
	MOVX T1,<C%BINV+C%DGSZ>-1 ;Get the size of the buffer to be zeroed
	SETZM (T2)		;Zero the first word
	EXTEND T1,[XBLT]	;Zero the buffer
	MOVE T1,T4		;Get the address of the buffer back
	CIOFF			;Interlock my queues
	MOVEM T1,@BOTDFQ	;Link this buffer after the end of the list
	MOVEM T1,BOTDFQ		;Store the new free queue bottom pointer
	SETZM (T1)		;Zero the buffer FLINK
	AOS DFQCNT		;Update the buffer count
   IFN SCADBG,<
	CALL SC.TDQ		;Trace the datagram free queue
>				;End of IFN SCADBG
	CION			;Bring back the world again
   IFN SCARNG,<
     	XMOVEI T1,.		;Get feature routine address
	MOVE T2,(P)		;Get PC of caller to feature routine
	SETOM T3		;Buffer is being returned
	CALL RG.BFM		;(T1,T2,T3,T4) Record buffer management
>				;End of IFN SCARNG
	RET			;Return

   IFN SCADBG,<
	SUBTTL Buffer management routines -- SC.TMQ/SC.TDQ (Trace free queue)

; These routines are called whenever a message or datagram buffer is being 
;removed from or replaced to the free queue.  The queue is traced and the count is 
;compared against the known count.  If an inconsistency occurs, a SCATQF 
;BUGHLT will result.
;
; Usage: 
;
;For a trace of the message free queue:
;
;	Call SC.TMQ
;
;	Return (+1) Always
;
;For a trace of the datagram free queue:
;
;	Call SC.TDQ
;
;	Return (+1) Always
;
;No ACs are destroyed by either routine.
;Both routines must be called CIOFF.

SC.TMQ:	SAVEAC <T1,T2,T3>	;Save the ACs we use
	MOVE T1,FQCNT		;Get known count of free queue message buffers
	SKIPE T2,TOPFQ		;Get first buffer on queue
	IFSKP.			;No buffers
	  SKIPN T1		;Did we believe we had any?
	  RET			;No, return ok
	  JRST SCT.ER		;Error, report it
	ENDIF.
	JRST SCT.CC		;Continue at common code

SC.TDQ:	SAVEAC <T1,T2,T3>	;Save the ACs we use
	MOVE T1,DFQCNT		;Get known count of free queue datagram buffers
	SKIPE T2,TOPDFQ		;Get first buffer on queue
	IFSKP.			;No buffers
	  SKIPN T1		;Did we believe we had any?
	  RET			;No, return ok
	  JRST SCT.ER		;Error, report it
	ENDIF.

SCT.CC:	MOVEI T3,1		;Set up initial value of buffers on queue
	SKIPE T2,(T2)		;Is there a next buffer?
	AOJA T3,.-1		;Yes, continue to count buffers
	CAMN T3,T1		;Are the counts the same?
	RET			;Yes, return ok

SCT.ER:	BUG. (HLT,SCATQF,SCAMPI,SOFT,<SCA - Trace of free queue detected inconsistency>,,<

Cause:	The trace of the message or datagram free queue resulted in a count
	which was not equal to the known value which SCA keeps.
>)
>				;End of IFN SCADBG
	SUBTTL Byte-swapping routines -- SC.RIN (Byte swap incoming packet)

; This routine performs magic on the packet header words.
;Since VAX and 11's have their heads wedged we must swap the order of the 
;bytes that go out and come in from these systems. 
;
;Usage:
;	Call
;	P2/	Address of packet being sent
;
;	Return (+1) Always
;	Header at address in P2 has been byte swapped
;
;
SC.RIN:	SAVEAC <T1,T2,T3,T4,P5>	;Be sure we smash no ACs
	LOAD T1,MH$TYP,(P2)	;Get the word conatining the message type
	LDB P5,[POINT 1,T1,24]	;Get the -11 style sign bit
	CALL <XENT SC.ISW>	;[7.1037]Swap to get -10 style bytes
	SKIPE P5		;Was the number of credits negative???
	TXO T1,<3B1>		;Yes, light the bits to make this a -10 neg num
	STOR T1,MH$TYP,(P2)	;Put it back into the packet

	LOAD T1,MH$MSG,(P2)	;Now get the message type
	CAIE T1,.STADG		;Is this an application datagram
	CAIN T1,.STAMG		;  or application message?
	RET			;Yes it is!! Skip status and min credit word

	LOAD T1,MH$SMC,(P2)	;No... get the word uncommon to ADG and AMG
	CALL <XENT SC.ISW>	;[7.1037]Call the byte swapper
	STOR T1,MH$SMC,(P2)	;Move the word back out to the header
	RET
	SUBTTL Byte-swapping routines -- SC.ISW (Swap bytes from 11 to 10 format)

; This routine byte swaps a word from 11 format to 10 format.
;
; Usage:
;	Call
;	T1/	Word to be swapped
;
;	Return (+1) Always
;	T1/	Byte swapped word
;
; Input format:
;	2 16 bit half words, left justified
;
; !=======================================================!
; !  B (lsb)  !  B (msb)  !  A (lsb)   !   A (msb)  ! IGN !
; !=======================================================!
; 0          7 8        15 16        23 24        31 32  35
;
; Where A and B are the half words, and (lsb) are the least significant bits 
;and (msb) are the most significant bits.
;
;The contents of bits 32 thru 35 are ignored.
;
;  Output format:
; 2 18 bit half words,
;
; !=======================================================!
; !X!    Byte A (msb+lsb)     !X!     Byte B (msb +lsb)   !
; !=======================================================!
; 0  2                      17 	 20			 35
;
; X denotes the 2 bit field within each halfword that will always be zero.
;
XRENT	(SC.ISW,G)		;[7.1037]SC.ISW::, XSC.IS::
	LDB T2,EA$MSB		;Byte A, MSB
	LDB T3,EA$LSB		;Byte A, LSB
	LDB T4,EB$MSB		;Byte B, MSB
	LSH T1,^D<-28>		;Move byte B, LSB into its poisition for the 10
	DPB T4,TB$MSB		;Now replace the bytes into their 10 positions
	DPB T3,TA$LSB		;.	.	.
	DPB T2,TA$MSB		;.	.	.
	RET			;All done
	SUBTTL Byte-swapping routines -- SC.ROU (Byte swap outgoing packet)

; This routine byte swaps a packet for output to the wire...
;
; Usage:
;	Call
;	P2/	Address of packet
;
;	Return (+1) Always
;	P2/	Packet address, packet has been byte swapped
;	
SC.ROU:	SAVET			;Be sure we smash no ACs
	LOAD T1,MH$MSG,(P2)	;Get the message type
	CAIE T1,.STADG		;Is this an application message???
	CAIN T1,.STAMG		;  or application message
	JRST SRO.CN		;Yes it is!! Skip status and min credit word

	LOAD T1,MH$SMC,(P2)	;No... get the word uncommon to ADG and AMG
	CALL <XENT SC.OSW>	;[7.1037]Call the byte swapper
	STOR T1,MH$SMC,(P2)	;Move the word back out to the header

SRO.CN:	LOAD T1,MH$TYP,(P2)	;Lastly the credit and message type word
	SKIPGE T1		;Non-neg??? If yes, go handle the normal case
	TXZ T1,<3B1>		;Else zero the bits that get in the way
	CALL <XENT SC.OSW>	;[7.1037]Byte swap this one too pls...
	STOR T1,MH$TYP,(P2)	;   and replace it in the header
	RET			;All done...
	SUBTTL Byte-swapping routines -- SC.OSW (Swap word from 10 to 11 format)

; This routine swaps individual words from PDP-10 format to PDP-11 format. 
;Since these folks number funny we must do this oddity...
;
; Usage:
;	Call
;	T1/	Words to swap
;
;	Return (+1) Always
;	T1/	Byte swapped word
;
;Input format:
; 2 18 bit half words,
;
; !=======================================================!
; !       Byte A (msb+lsb)     !     Byte B (msb +lsb)    !
; !=======================================================!
; 0                          17 18		         35
;
;
;
;
; Output format:
;	2 16 bit half words, left justified
;
; !=======================================================!
; !  B (lsb)  !  B (msb)  !  A (lsb)   !   A (msb)  ! IGN !
; !=======================================================!
; 0          7 8        15 16        23 24        31 32  35
;
; Where A and B are the half words, and (lsb) are the least significant bits 
;and (msb) are the most significant bits.
;
XRENT	(SC.OSW,G)		;[7.1037]SC.OSW::, XSC.OS::
	LDB T2,TA$MSB		;Get ten byte A, MSB
	LDB T3,TA$LSB		;Ten byte A, LSB
	LDB T4,TB$MSB		;Ten byte B, MSB
	LSH T1,^D28		;Move ten byte B, LSB into correct position
	DPB T4,EB$MSB		;Eleven byte B, MSB
	DPB T3,EA$LSB		;Eleven byte A, LSB
	DPB T2,EA$MSB		;Eleven byte A, MSB
	RET			;All done return pls...
	SUBTTL Locking/unlocking routines -- SC.PFF (Turn KLIPA channel off)

; This routine is the KLIPA channel controlling routine. it is called by what
;used to be a macro (CIOFF). The macro took no arguments so a CIOFF macro
;expansion or an inline call to this routine are equivalent.
;
; We are rather careful here about a few things. First check if we are at
;KLIPA interrupt level. If we are do nothing at all. If we are not at interrupt
;level but the channel is already off, go NOSKED to lock down the nesting
;counter and increment said counter. Do not set the PIFLAG however. If we are
;not at interrupt level and the channel is on, go NOSKED, increment the
;nesting counter, set PIFLAG, and turn off the channel.
;
; Usage:
;	Call
;	No arguments
;
;	Return (+1) Always
;	The KLIPA channel is either off, or we are at interrupt level
;
; *** Warning ***
;	The pain factor for this routine is approximatly .96. Be sure you
;full understand it before trying to change it...
;
XRENT	(SC.PFF,G)		;[7.1037]SC.PFF::, XSC.PF::
	
   IFN SCARNG,<			;If ring buffer recording is on
	SAVEAC <T1,T2>
      	XMOVEI T1,.		;Get feature address
	MOVE T2,-3(P)		;Get caller to this routine
	CALL RG.PIT		;(T1,T2) Record the PI transition
>				;End of IFN SCARNG
   IFE SCARNG, SAVEAC <T1>
	CONI PI,T1		;Get current PI state
	TRNE T1,<1B25>		;Are we in KLIPA interrupt code???
	RET			;Yes. Do nothing at all here
	SKIPN CHNCTL		;If we have been here before, dont NOSKED again
	NOSKED			;Be the only kid on the block
	AOS CHNCTL		;Show another channel off has happened
	TRNN T1,<1B33>		;Is the KLIPA channel already off???
	RET			;Yes, return now
	CHNOFF PHYCHN		;Turn off the CI channel
	SETOM PIFLAG		;Show last CION that it must do channel on
	RET			;Return all OK
	SUBTTL Locking/unlocking routines -- SC.PON (Turn KLIPA channel on)

; This routine turns the KLIPA channel back on only if we are the outermost
;nesting level. It also checks that the outmost loop actually did a channel
;off (PIFLAG -- 0 indicates no channel off was done). Note that whenever
;the nest counter (CHNCTL) is changed we are NOSKED. This MUST be since
;CHNCTL is system wide not per process storage. Also note that we avoid doing
;redundant NOSKEDs by checking CHNCTL for previous invocations.
;
; Usage:
;	Call
;	No arguments
;
;	Return (+1) Always
;	Channel is off or you are already at KLIPA interrupt level
;
; *** Warning **
;	The pain factor for this routine is approximatly .96. Be sure you
;understand it before you try to change it...
;
XRENT	(SC.PON,G)		;[7.1037]SC.PON::, XSC.PO::
	
   IFN SCARNG,<			;If ring buffer recording is on
	SAVEAC <T1,T2>
      	XMOVEI T1,.		;Get feature address
	MOVE T2,-3(P)		;Get caller to this routine
	CALL RG.PIT		;(T1,T2) Record the PI transition
>				;End of IFN SCARNG
   IFE SCARNG, SAVEAC <T1>
	CONI PI,T1		;Get current PI state
	TRNE T1,<1B25>		;Are we in KLIPA interrupt code???
	RET			;Yes, we have nothing to do here

; Do nothing until we reach the outermost nesting of calls to SC.PFF. This
;prevents routine A from going channel off, calling routine B which goes 
;channel off and then channel on. The channel on done by routine B does 
;nothing. The channel on done by routine A will actually turn on the channel.
;
	SOSLE CHNCTL		;Is this an outermost CION in a nest???
	 RET			;No, do nothing
	SKIPE CHNCTL
	BUG. (HLT,SCAODI,SCAMPI,SOFT,<SCA - Overly decremented CI interlock>,,<

Cause:	A CION was done when no previous CIOFF had occurred. This leads to
	an overly-decremented lock.

Action:	If you are unable to determine how this happened, turn on the ring
	buffer tracing of interlocks. (Do this by setting RPITRN in RINGSW.)
	It should be possible to pair each CION with a preceding CIOFF.
	Note that these calls are invoked from several CI-related modules.
>)

; Here at the outermost nesting level, I.E. the first routine to do the channel
;off. See if that channel off really did the CONO or was the channel off when
;we got there (I.E. did someone turn it off behind my back)...
;
	SKIPE PIFLAG		;Should we really turn on the channel again?
	JRST SPO.CO		;Yes, go turn on the channel
	OKSKED			;No! But still at outer loop, go OKSKED
	RET			;  and return

; Here when that first channel off really did the CONO. Turn the channel
;back on and go OKSEKD..
;
SPO.CO:	SETZM PIFLAG		;Clear channel on flag since we are about to
	CHNON PHYCHN		;Turn on the CI channel once more
	OKSKED			;Allow other kids onto the block again
	RET			;  and return
	SUBTTL Locking/unlocking routines -- SC.LOK (Lock connection block)

;SC.LOK - lock a c.b.

;Accepts:
;	P1/ address of c.b.

;	CALL SC.LOK

;Returns +1: always

;Preserves all AC's.

;Caller usually needs to be CIOFF, since it wants to verify the
;existence of the connection block and then lock it without being
;interrupted.

SC.LOK:	SZPI 1B25		;Is channel 5 in progress?
	RET			;Yes. Don't need a lock, then
	NOSKED			;No. Make sure no one else can lock it
	AOS .CBLCK(P1)		;Increment the lock
   IFN SCARNG,<
	SAVET			;Save temporary ACs
      	XMOVEI T1,.		;Get feature address
	MOVE T2,-5(P)		;Get caller to this routine
	CALL RG.ITL		;(T1,T2,P1/) Record the interlock call
>				;End of IFN SCARNG
	RET

;SC.LAH - Lock and honor

;Accepts:
;	T1/ bit to be set if lock is locked
;	P1/ address of connection block

;	CALL SC.LAH

;Returns +1: someone else has it locked
;	 +2: we got the lock


SC.LAH:	SZPI 1B25		;Is channel 5 interrupt in progress?
	IFSKP.
	  NOSKED		;No. We get the lock
	  AOS .CBLCK(P1)	;Increment the lock
   IFN SCARNG,<
	  SAVET			;Save temporary ACs
      	  XMOVEI T1,.		;Get feature address
	  MOVE T2,-5(P)		;Get caller to this routine
	  CALL RG.ITL		;(T1,T2,P1/) Record the interlock call
>				;End of IFN SCARNG
	  RETSKP
	ENDIF.
;	JRST SC.HNR

;SC.HNR - honor the c.b. lock

;Accepts:
;	T1/ bit to be set if it's locked
;	P1/ address of connection block

;	CALL SC.HNR

;Returns +1: someone else has the lock
;	 +2: we got the lock

;Caller must be at interrupt level

SC.HNR:
	SKIPN .CBLCK(P1)	;Is it locked?
	RETSKP			;No. We can proceed
	IORM T1,.CBFLG(P1)	;Indicate what was deferred
   IFN SCARNG,<
	SAVET			;Save temporary ACs
        XMOVEI T1,.		;Get feature address
        MOVE T2,-5(P)		;Get caller to this routine
        CALL RG.ITL		;(T1,T2,P1/) Record the interlock call
>				;End of IFN SCARNG
	RET			;Return failure
	SUBTTL Locking/unlocking routines -- SC.ULK (Unlock connection block)

;SC.ULK - Unlock the connection block

;Accepts:
;	P1/ address of connection block

;	CALL SC.ULK

;Returns +1: always

;Saves T1 because error code is in it

;We're NOSKED, so the reaper can't run and delete the connection block

SC.ULK:	SZPI 1B25		;Is interrupt on level 5 in progress?
	RET			;Yes. Nothing to do, then
	SAVEAC <T1,P3,P4,P5>
   IFN SCARNG,<
	BLOCK.
	  SAVET			;Save temporary ACs
      	  XMOVEI T1,.		;Get feature address
	  MOVE T2,-13(P)	;Get caller to this routine
	  CALL RG.ITL		;(T1,T2,P1/) Record the interlock call
	ENDBK.
>				;End of IFN SCARNG
	MOVE T1,.CBLCK(P1)	;What's the current value of the lock?
	CAIG T1,1		;Quit if it's not 1
	IFSKP.
	  SOS .CBLCK(P1)	;Decrement it
	  OKSKED		;Lock routine went NOSKED
	  RET			;Last unlocker will do the rest
	ENDIF.
   IFN SCADBG,<
	SKIPG T1		;Should never be less than 1
	BUG. (HLT,SCAILC,SCAMPI,SOFT,<SCA - Illegal lock count in connection block>,,<

Cause:	The routine to unlock a connection block found that the count
	is less than 1. Since the caller must have locked the connection
	block earlier, something unexpected has happened.

>)
   >

;Current value is 1. We will be the last unlocker. See what sorts of
;things have been deferred, and call the appropriate routines.

;Each processing routine clears its bit. If the bit gets set again while
;we're in here, we will detect that.

	SETZB P3,P5		;Initialize flags
	MOVE P4,.CBSBA(P1)	;Get address of system block

;See if anything happened while we had this locked. Need to be CIOFF to
;avoid having the bit set after we make the check, and unlocking the
;c.b. without processing the deferred event.

SC.UL2:	CIOFF			;Need to check for newly-set bits race-free
	TMNN CBFDEF,(P1)	;Anything deferred?
	JRST SC.UL6		;No.
	CION			;Yes.

;Test and handle each possible event. Node offline is first.

	TMNN CBFERR,(P1)	;Deferred node offline?
	IFSKP.
	  SETOM P5		;Yes. Indicate we had deferred node offline
	  CALL SC.FN1		;(P1,P4/) Do what's left to be done
	ELSE.
	  TMNE CBFDIS,(P1)	;Sysap wanted disconnect?
	  CALL SC.FN2		;(P1,P4/) Yes. Finish that
	  TMNE CBFDRQ,(P1)	;Disconnect_request arrived?
	  CALL SC.FN3		;(P1,P4/) Yes. FInish that
	ENDIF.
SC.UL3:	TMNN CBFSNM,(P1)	;Wanted to send connect management request?
	IFSKP.
	  SETZRO CBFSNM,(P1)	;Yes. Indicate no longer deferred
	  SETOM P3		;Remember this
	ENDIF.
	JRST SC.UL2		;See if anything new has come up

;Nothing left to do. Unlock the block.

SC.UL6:	SOS .CBLCK(P1)		;Unlock the c.b.
	CION
   IFN SCADBG,<
	SKIPE .CBLCK(P1)	;Better be zero now!
	BUG. (HLT,SCALCC,SCAMPI,SOFT,<SCA - Connection block lock count has changed>,,<

Cause:	The routine to unlock a connection block has found an inconsistency
	in the lock count. Earlier in the routine, the current count was 1.
	Now, after decrementing it, the count is not zero. Some other context
	must have changed it. This should not happen since the locker is
	NOSKED and interrupt level code doesn't change the lock.
>)
   >
	OKSKED			;Lock routine went NOSKED

;If we had wanted to send a connection management request, do it

	SKIPE P3
	CALL SC.SNM		;(P4/) Send if there's anything to send

;If this block's node had gone offline, we have put off reopening the v.c.
;because of the locked c.b. If this is the last one to be unlocked, open
;the v.c.

	SKIPN P5		;Had we deferred node offline?
	RET			;No.
	SOSE .SBCLC(P4)		;Decrement system block count of locked c.b.'s
	RET			;Still have more to go
	SETZRO SBFOVC,(P4)	;No longer waiting to open
	BLCAL. (<@[MSEC1,,OPENVC]>,<P4>) ;[7.1037]Let PHYKLP open the v.c.
	RET
	SUBTTL Ring Buffer routines -- SC.RGI (Initialize ring buffer variables)
   IFN SCARNG,<

;This routine initializes the ring buffer
;
; Usage:
;
;	CALL SC.RGI
;
;	Returns:	+1 Failure - could not allocate buffer space
;			+2 Success
;
;	No data is returned and no ACs are smashed.

SC.RGI:	SAVEAC <T1,T2>		;Saved smashed ACs
	MOVEI T1,RBFLEN		;Number of pages for ring buffer
	CALLX (MSEC1,PGRSKD)	;[7.1037](T1/T1,T2) Get space from extended section
	 RET			;No space, return failure
	IMULI T2,PGSIZ		;Compute actual size of ring buffer
	MOVEM T2,RNGSIZ		;Save it
	MOVEM T1,RNGTOP		;Save as top of ring buffer
	MOVEM T1,RNGADR		;Also save as current pointer
	ADD T1,RNGSIZ		;Add buffer size
	SOS T1			;Account for first word
	MOVEM T1,RNGBOT		;Store as bottom of ring buffer
	SETZM RNGCUR		;There are no completed entries yet
	SETZM RNGNUM		
	RETSKP			;Return success
>				;End of IFN SCARNG

   IFN SCARNG,<
	SUBTTL Ring Buffer routines -- SC.RHD (Write ring buffer entry header)

;This routine will write the common entry header for a ring buffer entry
;
; Usage:
;	T1/ FEATURE ROUTINE ADDRESS
;	T2/ PC OF CALLER TO FEATURE ROUTINE
;	T3/ EVENT CODE
;	T4/ JACKET ROUTINE ADDRESS
;
;	CALL SC.RHD
;
;	Returns:	+1 Always
;
;	No data is returned and T1 and T2 are smashed.
;
;Note:	This routine is designed to allow the ring buffer to wrap upon 
;	itself when it goes beyond RNGBOT.  The entries will continue
;	to be written starting from RNGTOP.  A SCARAP BUGINF will be 
;	issued when the ring buffer wraps.  This indicates that the entries
;	at the top of the ring buffer are being overwritten.
;
;     	This routine has an explicit knowledge of the format of the ring 
;	buffer entry.  The entry header is written in order.  Should the
;	header change, this routine will have to change as well.

SC.RHD:	ASUBR <FRA,PCC,EVC,JKT>	;Save incoming args
	MOVE T2,EVC		;Get the event code
	CAIG T2,EN%CHI		;A valid event code?
	CAIGE T2,EN%CLO		
	JRST SC.RHE		;No, return error
	MOVE T1,RNGADR		;Get current pointer position
	MOVEM T1,RNGCUR		;Save as the top of this new entry
	ADD T1,ENTLTB(T2)	;Determine end of entry
	SOS T1			;Adjust since already pointing at first word
	CAMG T1,RNGBOT		;Will it overflow?
	IFSKP.			;Yes
	  MOVE T1,RNGTOP	;Get pointer to top of buffer
	  MOVEM T1,RNGADR	;Save as current pointer
	  MOVEM T1,RNGCUR	;Also as top of current entry
	  SKIPA	0		;By default, do not report condition

;Do not issue SCARAP whenever the ring buffer wraps because certain settings
;of RNGSW will cause many SCARAPs to be issued.  However, if reporting of 
;this condition is desired, the above SKIPA instruction can be removed.

	  BUG.(INF,SCARAP,SCAMPI,SOFT,<SCA - Ring buffer has wrapped>,,<

Cause:	The ring buffer overflowed and wrapped upon itself.
	The entries at the top are being overwritten and will be lost.
>)				;Report wraping of ring buffer
	ENDIF.
	MOVX T1,RNG%HC		;Get the constant for the ring header
	CALL SC.RWR		;(T1) Place in ring buffer
	MOVE T2,EVC		;Get event code
	HRLZ T1,T2		;Locate event code correctly
	HRR T1,ENTLTB(T2)	;Put length in right half
	CALL SC.RWR		;(T1) Place event code,,length in entry
	MOVE T1,JKT		;Get jacket routine label
	CALL SC.RWR		;(T1) Place in header
	MOVE T1,FRA		;Get feature routine label
	CALL SC.RWR		;(T1) Place in header
	MOVE T1,PCC		;Get PC of caller to feature routine
	CALL SC.RWR		;(T1) Place in header
	MOVE T1,TODCLK		;Get time of day
	CALL SC.RWR		;(T1) Place in entry header
	RET			;Return success

SC.RHE:	MOVE T1,FRA		;Get routine that called jacket routine
	MOVE T2,PCC		;Get PC of caller to feature routine
	MOVE T3,EVC		;Get event code
	MOVE T4,JKT		;Get jacket routine address
	BUG.(HLT,SCAIEC,SCAMPI,SOFT,<SCA - Invalid event code for ring buffer entry>,<<T1,FEATURE>,<T2,PC>,<T3,ENTRY>,<T4,JACKET>>,<

Cause:	A bad event code was passed to SC.RHD to be placed in the ring buffer
	header.  This could cause problems since the entry length table is
	indexed by event code.

Action:	Check the caller of SC.RHD to be sure that a valid event code is being  
	placed in T3 before the call. The caller is indicated by the jacket 
	routine address in T4.

Data: 	FEATURE - feature routine address
	PC      - PC of caller to feature routine
	ENTRY   - entry code
	JACKET  - jacket routine address
>)				;Report error and die
>				;End of IFN SCARNG

   IFN SCARNG,<
	SUBTTL Ring Buffer routines -- SC.RTE (Write ring buffer entry tail)

;This routine will write the common tail of a ring buffer entry
;
; Usage:
;	CALL SC.RTE
;
;	Returns:	+1 Always
;
;	No data is returned and T1 is smashed.

SC.RTE:	MOVE T1,RNGCUR		;Get pointer to top of this entry
	CALL SC.RWR		;(T1) Place in ring buffer entry tail
	AOS RNGNUM		;Increment number of buffer entries written
	RET			;Return success
>				;End of IFN SCARNG

   IFN SCARNG,<
	SUBTTL Ring Buffer routines -- SC.RWR (Write ring buffer entry)

;This routine will write a word of a ring buffer entry
;
; Usage:
;	T1/ WORD TO WRITE
;
;	CALL SC.RWR
;
;	Returns:	+1 Always
;
;	No data is returned and no ACs are smashed.

SC.RWR:	MOVEM T1,@RNGADR	;Put word in ring buffer entry
	AOS RNGADR		;Increment pointer to next location
	RET			;Return success
>				;End of IFN SCARNG

   IFN SCARNG,<
	SUBTTL Ring Buffer routines -- RG.SSC (SYSAP to SCA calls)

;This routine is used to record SYSAP to SCA calls in the ring buffer
;
; Usage:
;	T1/ FEATURE ROUTINE ADDRESS
;	T2/ PC OF CALLER TO FEATURE ROUTINE
;	T3/ ADDRESS OF CONNECT BLOCK
;
;	CALL RG.SSC
;
;	Returns:	+1 Always

RG.SSC:	TMNN RSYSCA		;Are we recording these events?
	RET			;No, just return
	CIOFF			;Do not allow any interrupts
	SAVET			;Make routine transparent
       	STKVAR <CBADDR>
	MOVEM T3,CBADDR		;Save CB address
	MOVEI T3,SYSSCA		;Get event code
      	XMOVEI T4,.		;Get jacket routine address
	CALL SC.RHD		;(T1,T2,T3,T4) Write the entry header
	MOVE T1,CBADDR		;Get CB address
	LOAD T1,CBSCID,(T1)	;Get source connect ID
	CALL <XENT SC.NOD>	;[7.1037](T1/T1,T2) Get node number
	EXCH T1,T2		;Get node number in T1
	CALL SC.RWR		;(T1) Record node number in entry
	MOVE T1,CBADDR		;Get CB address
	CALL SC.RWR		;(T1) Record in entry
	MOVE T2,T1		;Move CB address
	MOVE T1,.CBSTS(T2)	;Get CB status word
	CALL SC.RWR		;(T1) Record in entry
	MOVE T1,.CBFLG(T2)	;Get flags
	CALL SC.RWR		;(T1) Record in entry
	LOAD T1,CBSCID,(T2)	;Get source connect ID
	CALL SC.RWR		;(T1) Record in entry
	LOAD T1,CBDCID,(T2)	;Get destination connect ID
	CALL SC.RWR		;(T1) Record in entry
	CALL SC.RTE		;() Write the ring entry tail
	CION			;Enable interrupts again
	RET			;Return

	ENDSV.
>				;End of IFN SCARNG

   IFN SCARNG,<
	SUBTTL Ring Buffer routines -- RG.SCS (SCA to SYSAP calls)

;This routine is used to record SCA to SYSAP calls (callbacks)
;in the ring buffer
;
; Usage:
;	T1/ FEATURE ROUTINE ADDRESS
;	T2/ PC OF CALLER TO FEATURE ROUTINE
;	T3/ CALLBACK REASON CODE
;	P1/ CONNECT BLOCK ADDRESS
;
;	CALL RG.SCS
;
;	Returns:	+1 Always

RG.SCS:	TMNN RSCASY		;Are we recording these events?
	RET			;No, just return
	CIOFF			;Do not allow any interrupts
	SAVET			;Make routine transparent
	STKVAR <REASON>
	MOVEM T3,REASON		;Save reason code
	MOVEI T3,SCASYS		;Get event code
      	XMOVEI T4,.		;Get jacket routine address
	CALL SC.RHD		;(T1,T2,T3,T4) Write the entry header
	LOAD T1,CBSCID,(P1)	;Get source connect ID
	CALL <XENT SC.NOD>	;[7.1037](T1/T1,T2) Get node number
	MOVE T1,T2		;Relocate node number
	CALL SC.RWR		;(T1) Place in entry
	MOVE T1,P1		;Get connect block address
	CALL SC.RWR		;(T1) Place in entry
	MOVE T1,REASON		;Get callback reason code
	CALL SC.RWR		;(T1) Place in entry
	CALL SC.RTE		;() Write the ring entry tail
	CION			;Enable interrupts again
	RET			;Return

	ENDSV.
>				;End of IFN SCARNG

   IFN SCARNG,<
	SUBTTL Ring Buffer routines -- RG.BFM (Buffer manipulation)

;This routine is used to record buffer allocation, creation, and return.
;All calls to SC.CMG, SC.CDG, SC.ABF, SC.ALD, SC.RBF, and SC.RLD
;are recorded.
;
; Usage:
;	T1/ FEATURE ROUTINE ADDRESS
;	T2/ PC OF CALLER TO FEATURE ROUTINE
;	T3/ NUMBER OF BUFFERS REQUESTED FOR CREATION/ALLOCATION
;	T4/ ADDRESS OF FIRST BUFFER CREATED/ALLOCATED
;
;	CALL RG.BFM
;
;	Returns:	+1 Always

RG.BFM:	TMNN RBUFMG		;Are we recording these events?
	RET			;No, just return
	CIOFF			;Do not allow any interrupts
	SAVET			;Make routine transparent
	STKVAR <NUMBUF,ADDR>
	MOVEM T3,NUMBUF		;Save number of buffers
	MOVEM T4,ADDR		; and address of first buffer on chain
	MOVEI T3,BUFMAN		;Get event code
      	XMOVEI T4,.		;Get jacket routine address
	CALL SC.RHD		;(T1,T2,T3,T4) Write the entry header
	MOVE T1,NUMBUF		;Get number of buffers requested
	CALL SC.RWR		;(T1) Place in entry
	MOVE T1,ADDR		;Get address of first buffer in chain
	CALL SC.RWR		;(T1) Place in entry
	MOVE T1,FQCNT		;Get number of buffers on message free queue
	CALL SC.RWR		;(T1) Place in entry
	MOVE T1,TOPFQ		;Get pointer to top of message free queue
	CALL SC.RWR		;(T1) Place in entry
	MOVE T1,BOTFQ		;Get pointer to bottom of message free queue
	CALL SC.RWR		;(T1) Place in entry
	MOVE T1,DFQCNT		;Get number of buffers on datagram queue
	CALL SC.RWR		;(T1) Place in entry
	MOVE T1,TOPDFQ		;Get pointer to top of datagram free queue
	CALL SC.RWR		;(T1) Place in entry
	MOVE T1,BOTDFQ		;Get pointer to bottom of datagram free queue
	CALL SC.RWR		;(T1) Place in entry
	CALL SC.RTE		;() Write the ring entry tail
	CION			;Enable interrupts again
	RET			;Return

	ENDSV.
>				;End of IFN SCARNG

   IFN SCARNG,<
	SUBTTL Ring Buffer routines -- RG.PKT (Packet movement)

;This routine is used to record packet movement; both outgoing
;(calls to SNDMSG and SNDDG) and incoming (arriving at SC.INT).
;
; Usage:
;	T1/ FEATURE ROUTINE ADDRESS
;	T2/ PC OF CALLER TO FEATURE ROUTINE
;	T3/ FLAGS,,
;	T4/ PRIORITY,,PACKET LENGTH
;	P2/ PACKET ADDRESS
;	P4/ SYSTEM BLOCK ADDRESS
;
;	CALL RG.PKT
;
;	Returns:	+1 Always

RG.PKT:	TMNN RPACKT		;Are we recording these events?
	RET			;No, just return
	CIOFF			;Do not allow any interrupts
	SAVET			;Make routine transparent
	STKVAR <FLAGS,PRPL>
	MOVEM T3,FLAGS		;Save flags 
	MOVEM T4,PRPL		; and priority,,packet length
	MOVEI T3,PKTEVT		;Get event code
      	XMOVEI T4,.		;Get jacket routine address
	CALL SC.RHD		;(T1,T2,T3,T4) Write the entry header
	LOAD T1,SBDPA,(P4)	;Get node number
	CALL SC.RWR		;(T1) Place in entry
 	MOVE T1,RNGCUR		;Get address if top of entry
	HRRZ T1,.REFRL(T1)	;Get feature routine label
	CAIN T1,SCINT		;Did the entry come from SCINT (incoming)?
	IFSKP.
	  LOAD T1,MH$SCI,(P2)	;No, outgoing packet, use source CID always
	ELSE.
     	  MOVE T1,FLAGS		;Yes, incoming packet, get flags
	  TXNN T1,F.RSP		;Is this a local or remote packet?
	  IFSKP.		;It is local
	    LOAD T1,MH$SCI,(P2)	;Get source connect ID
	  ELSE.			;It is a remote packet
	    LOAD T1,MH$DCI,(P2)	;Get destination connect ID
	  ENDIF.
	ENDIF.
	$LDCID T1,T1		;Obtain connect block address
	CALL SC.RWR		;(T1) Place in entry
	MOVE T1,P2		;Get buffer address
	CALL SC.RWR		;(T1) Place in entry
	MOVE T1,FLAGS		;Get flags
	CALL SC.RWR		;(T1) Place in entry
	MOVE T1,PRPL		;Get priority,,packet length
	CALL SC.RWR		;(T1) Place in entry
	LOAD T1,MH$TYP,(P2)	;Get message type word
	CALL SC.RWR		;(T1) Place in entry
	LOAD T1,MH$SCI,(P2)	;Get source connect ID
	CALL SC.RWR		;(T1) Place in entry
	LOAD T1,MH$DCI,(P2)	;Get destination connect ID
	CALL SC.RWR		;(T1) Place in entry
	CALL SC.RTE		;() Write the ring entry tail
	CION			;Enable interrupts again
	RET			;Return

	ENDSV.
>				;End of IFN SCARNG

   IFN SCARNG,<
	SUBTTL Ring Buffer routines -- RG.PIT (PI transitions)

;This routine is used to record PI transitions.
;
; Usage:
;	T1/ FEATURE ROUTINE ADDRESS
;	T2/ PC OF CALLER TO FEATURE ROUTINE
;
;	CALL RG.PIT
;
;	Returns:	+1 Always
;
;Note:	There are no CIONs or CIOFFs in this jacket routine since it is 
;	designed to be called from the routines CION and CIOFF.

RG.PIT:	TMNN RPITRN		;Are we recording these events?
	RET			;No, just return
	SAVET			;Make routine transparent
	MOVEI T3,PITRAN		;Get event code
      	XMOVEI T4,.		;Get jacket routine address
	CALL SC.RHD		;(T1,T2,T3,T4) Write the entry header
	MOVE T1,CHNCTL		;Get level of PI nesting
	CALL SC.RWR		;(T1) Record it in the entry
	MOVE T1,PIFLAG		;Get indication of channel on done
	CALL SC.RWR		;(T1) Record it in the entry
	CALL SC.RTE		;() Write the ring entry tail
	RET			;Return
>				;End of IFN SCARNG

   IFN SCARNG,<
	SUBTTL Ring Buffer routines -- RG.PQM (Port queue manipulation)

;This routine is used to record port queue manipulation
;
; Usage:
;	T1/ FEATURE ROUTINE ADDRESS
;	T2/ PC OF CALLER TO FEATURE ROUTINE
;	T3/ FLAGS,,COUNT OF BUFFERS UNLINKED/LINKED
;	    (SEE SCAPAR FOR FLAG DEFINITIONS)
;	T4/ ADDRESS OF FIRST BUFFER UNLINKED/LINKED
;	P4/ ADDRESS OF SYSTEM BLOCK
;
;	CALL RG.PQM
;
;	Returns:	+1 Always

RG.PQM:	TMNN RPRTQU		;Are we recording these events?
	RET			;No, just return
	CIOFF			;Do not allow any interrupts
	SAVET			;Make routine transparent
	STKVAR <COUNT,ADDR>
	MOVEM T3,COUNT		;Save buffer count
	MOVEM T4,ADDR		; and address of first buffer in chain
	MOVEI T3,PORTQU		;Get event code
      	XMOVEI T4,.		;Get jacket routine address
	CALL SC.RHD		;(T1,T2,T3,T4) Write the entry header
	LOAD T1,SBDPA,(P4)	;Get node number
	CALL SC.RWR		;(T1/) Place in entry
	MOVE T1,COUNT		;Get flags,,count word
	CALL SC.RWR		;(T1/) Place in entry
	MOVE T1,ADDR		;Get buffer address
	CALL SC.RWR		;(T1/) Place in entry
	CALL SC.RTE		;() Write the ring entry tail
	CION			;Enable interrupts again
	RET			;Return

	ENDSV.
>				;End of IFN SCARNG

   IFN SCARNG,<
	SUBTTL Ring Buffer routines -- RG.ITL (Interlocks)

;This routine is used to record interlocks.
;
; Usage:
;	T1/ FEATURE ROUTINE ADDRESS
;	T2/ PC OF CALLER TO FEATURE ROUTINE
;	P1/ CONNECT BLOCK ADDRESS
;
;	CALL RG.ITL
;
;	Returns:	+1 Always
;
; Note:  It is assumed that the caller has done a SAVET before the call!

RG.ITL:	TMNN RINTLK		;Are we recording these events?
	RET			;No, just return
	CIOFF			;Do not allow any interrupts
	MOVEI T3,INTLOK		;Get event code
      	XMOVEI T4,.		;Get jacket routine address
	CALL SC.RHD		;(T1,T2,T3,T4) Write the entry header
	MOVE T1,P1		;Get connect block address
	CALL SC.RWR		;(T1/) Place in entry
	MOVE T1,.CBLCK(P1)	;Get connect block lock value
	CALL SC.RWR		;(T1/) Place in entry
	MOVE T1,.CBFLG(P1)	;Get all connect block flags
	CALL SC.RWR		;(T1/) Place in entry
	MOVE T1,.CBSBA(P1)	;Get address of system block
	MOVE T1,.SBCLC(T1)	;Get count of locked connect blocks on S.B.
	CALL SC.RWR		;(T1/) Place in entry
	CALL SC.RTE		;() Write the ring entry tail
	CION			;Enable interrupts again
	RET			;Return
>				;End of IFN SCARNG
; Routine to copy a strings and blank fill
;
;Usage:
;	T3/	Destination address
;	T4/	Source address
;	Always transfers C%PNMN bytes
;	CALL SCG.ST
;
;	Return +1 Always
;

SCG.ST:	MOVEI T2,C%PNMN			;Number of characters to move
SCG.LP:	ILDB T1,T4			;Get a character from the source
	JUMPE T1,SCG.NL			;Found a 0 space fill
	IDPB T1,T3			;Store character in the Destination
	SOJG T2,SCG.LP			;Try for another character
	RET				;Done return

SCG.NL:	MOVX T1," "			;Get a space as padding character
	IDPB T1,T3			;Store it in the Destination
	SOJG T2,.-1			;Do until count runs out
	RET				;Return to caller all done
	SUBTTL General Routines -- SC.BRK (Break data into SCA buffers)
;[7.1060]
;SC.BRK - Routine that breaks up the data block to be sent and places
;the pieces into SCA buffers. This routine can be used by any SYSAP
;that requires multiple SCA packets to be sent.
;
; Call with:
;	T1/ Address of data block
;	T2/ Offset from .MHUDA in SCA message to begin storing data in
;	    the left half,,number of words in data block to be placed
;	    in SCA buffers
;	CALL SC.BRK
;	  or
;	CALL SC.BR1 if address in T1 is in user space
;
; Returns:
;	+1 - Error, Could not obtain enough SCA buffers
;	+2 - Success, data placed in SCA message buffers with:
;		T1/ Pointer to linked list of message buffers. FLINK
;		    is in word .PKFLI of the port header field in each buffer
;		T2/ Number of message buffers in list
;		T3/ Address of routine to call to return SCA buffers
;
;Note that it is the caller's responsibility to return the SCA buffers
;after it has sent them.

	XRESCD			;Called from anywhere, anytime - always home

SC.BRK::SAVEQ
	MOVE Q1,[MSEC1,,XBLTAT]	;Get appropriate routine
	JRST SC.BR2		;Join common code

SC.BR1::SAVEQ
	MOVE Q1,[MSEC1,,BLTUM1]	;[7.1069] For copying from user to monitor space
SC.BR2:	STKVAR <DATA,NBUFS,WRDS,OFFSET,FIRST,BLTIT,FILWRD,GIVBAC> ;Temp storage
	MOVEM Q1,BLTIT		;Put it in this location
	SKIPGE INTDF		;Caller NOINT?
	BUG.(CHK,SCBROK,SCAMPI,SOFT,<SC.BRK called while OKINT>,<<T1,PCC>>,<

Cause:	This is a coding problem. SC.BRK will be attempting to assign
	SCA buffers to the caller and being OKINT leaves a possible window
	where SCA buffers could be lost.

Action:	Make the caller NOINT until it has returned the SCA buffers.

Data:	PCC - PC of the calling routine
>)				;No, BUG!
	NOINT			;Make sure we are NOINT
	MOVEM T1,DATA		;Save location of data here
	HLRZM T2,OFFSET		;Stash offset here
	HRRZM T2,WRDS		;Save word count too
	MOVEI T3,C%MUDA		;If offset were 0, we'd start here
	SUB T3,OFFSET		;This is how many words we will be filling in SCA buffer
	MOVEM T3,FILWRD		;Save how many words to be filled in SCA buffers
	HRRZ T1,WRDS		;Get just word count here
	IDIV T1,T3		;This is how many SCA buffers
	SKIPE T2		;No more words if we fit exactly
	AOS T1			;Account for extra word for remainder
	MOVEM T1,NBUFS		;Save this number here
	CALL <XENT SC.ABF>	;(T1/T1,T2,T3) Get those SCA buffers
	 RETBAD(,OKINT)		;Failed, pass back error
	MOVEM T1,FIRST		;Save address of first buffer
	MOVEM T3,GIVBAC		;Save routine to return SCA buffers for caller
	MOVE T2,DATA		;Get data address back

;From here on, T2 will be updated by XBLTAT or BLTUM. It will contain an
;updated address for XBLTs. 

	MOVE Q1,NBUFS		;Get count of SCA buffers
	MOVE Q2,FIRST		;Get first SCA buffer
SC.BR3:	SOSLE Q1		;Can the rest fit in one buffer?
	IFSKP.			;Yes
	  MOVE T1,WRDS		;Get remaining word count
	  MOVE T3,Q2		;Get SCA buffer to receive data
	  ADDI T3,.MHUDA	;Going past this word...
	  ADD T3,OFFSET		;...by this many slots
	  CALL @BLTIT		;(T1,T2,T3/T1,T2,T3) Put stuff in SCA buffer
	  JRST SC.BR4		;And return to caller
	ELSE.			;Must copy into multiple buffers
	  MOVE T1,FILWRD	;Get count of wrds to fill in SCA buffer
	  MOVE T3,Q2		;Get SCA buffer to receive data
	  ADDI T3,.MHUDA	;Going past this word...
	  ADD T3,OFFSET		;...by this many slots
	  CALL @BLTIT		;(T1,T2,T3/T1,T2,T3) Put stuff in SCA buffer
	  MOVE T4,WRDS		;Get words count
	  SUB T4,FILWRD		;Update it to reflect how many more to be bufferized
	  MOVEM T4,WRDS		;Store the new count of words remaining to do
	  MOVE Q2,(Q2)		;Get next SCA buffer to be filled
	  JRST SC.BR3		;Fill this one in too
	ENDIF.
SC.BR4:	MOVE T1,FIRST		;Get address of first SCA buffer back for caller
	MOVE T2,NBUFS		;This is how many in the chain
	MOVE T3,GIVBAC		;Get back returning routine
	OKINT			;Undo our NOINT
	RETSKP			;Back to the caller
	ENDSV.
	SUBTTL General Routines -- MXCIND (Return max CI nodes seen)

	RESCD			;[7.1037]Short enough for MSEC1

;This routine is called to obtain the maximum number of nodes we have 
;ever seen on the CI.  It is currently only called by CFSSRV when the 
;delay time is being calculated.
;
;Usage:
;	CALL MXCIND
;
;Returns:	+1 Always with  T2/ max nodes ever seen

MXCIND::MOVE T2,MXSBCT		;Get the max value of SBCNT
	RET			;And return
	SUBTTL Dummy routines until the port driver supports them

PPDSMD::
PPDRMD::RETBAD (MONX03)

	XRESCD			;[7.1037]Back to XCDSEC
	SUBTTL End of SCAMPI

	END