Trailing-Edge
-
PDP-10 Archives
-
SRI_NIC_PERM_SRC_1_19910112
-
7/ap23-mon/cfsusr.mac
There are 13 other files named cfsusr.mac in the archive. Click here to see a list.
; Edit= 8973 to CFSUSR.MAC on 28-Sep-88 by GSCOTT
;Only output [Successfully joined CFS cluster] if we have seen another TOPS-20
;node on our CI.
; Edit= 8967 to CFSUSR.MAC on 13-Sep-88 by RASPUZZI, for SPR #21879
;Revamp edit 8871 such that CFS joining takes care of checking out the wire
;status of the local node before joining the CFS cluster.
; Edit= 8966 to CFSUSR.MAC on 13-Sep-88 by GSCOTT
;Always output the [Successfully joined CFS cluster] message if we did.
; Edit= 8959 to CFSUSR.MAC on 1-Sep-88 by GSCOTT
;Wait 10 seconds before output of message in CFSJYN.
; Edit= 8957 to CFSUSR.MAC on 30-Aug-88 by GSCOTT
;Lowercase that join message.
; Edit= 8873 to CFSUSR.MAC on 10-Aug-88 by RASPUZZI
;Update BUG. documentation again.
; Edit= 8871 to CFSUSR.MAC on 29-Jul-88 by LOMARTIRE
;Prevent CFSVFL BUGHLTs and duplicate job numbers and other bad things that
;can happen when CFSJYN does not do its job!
; UPD ID= 8605, RIP:<7.MONITOR>CFSUSR.MAC.5, 11-Feb-88 17:11:11 by RASPUZZI
;TCO 7.1220 - Modify CFS global job assignments. Make JBGET1 get more global
; jobs if we are out of them and make CFGTJB have another (local)
; entry point (CFSGJB) that obtains that extra job chunk.
; UPD ID= 8489, RIP:<7.MONITOR>CFSUSR.MAC.4, 9-Feb-88 12:17:47 by GSCOTT
;TCO 7.1218 - Insert copyright notice.
; UPD ID= 8466, RIP:<7.MONITOR>CFSUSR.MAC.3, 7-Feb-88 18:25:26 by RASPUZZI
;TCO 7.1210 - Correct module name for BUG.s.
; UPD ID= 8358, RIP:<7.MONITOR>CFSUSR.MAC.2, 20-Jan-88 11:41:32 by RASPUZZI
;TCO 7.1190 - Split CFSSRV up. Make CFSPAR and CFSUSR to allow CFSSRV
; to be assembled and have the ability to obtain a CREF.
; COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 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 CFSPAR,SCAPAR,PHYPAR,PROLOG
TTITLE (CFSUSR,,< - CFS User related routines>)
; M. Raspuzzi January 88
SALL
EXTN <HSHDRI,LNGHSH,NSPCQ0,NSPCQ1,WRDHSH>
DEBUG==1 ;Do debugging
RESCD ;Unless otherwise noted
Subttl Table of Contents
; Table of Contents for AM70-CFSUSR
;
; Section Page
;
;
; 1. Initialization
; 1.1 CFSJYN/CFSJYX (Join the CFS network) . . . . . 4
; 1.2 CFSCSC (Create private pages) . . . . . . . . 7
; 2. Support Routines
; 2.1 CFSSPC (Obtain request block space) . . . . . 10
; 2.2 CFCARV (Carve a block from page pool) . . . . 12
; 2.3 SNDTIM (Send date and time to new node) . . . 13
; 2.4 BRDTIM (Send date and time at startup) . . . . 14
; 2.5 CFTADB (Broadcast date and time via STAD) . . 15
; 2.6 CFSPRT (Return local port number) . . . . . . 16
; 2.7 CFSNOD (Routine to get node name) . . . . . . 17
; 3. Global Job Number Routines
; 3.1 JBAVAL (Manage job bit table) . . . . . . . . 19
; 3.2 JBGET1 (Get global job number for local job) . 20
; 3.3 GL2LCL (Return local job number) . . . . . . . 21
; 3.4 LCL2GL (Return global job number) . . . . . . 22
; 3.5 CFGTJB (Get jobs at system startup) . . . . . 23
; 4. DIAG% JSYS Support
; 4.1 CFDIAG (Code for Set CI Unavailable) . . . . . 24
; 5. CNFIG% JSYS Support
; 5.1 CFCIN (Return CFS information) . . . . . . . . 26
; 5.2 CFCSE (Return serial numbers of CFS nodes) . . 27
; 5.3 CFCND (Return list of node names) . . . . . . 28
; 6. End of CFSUSR . . . . . . . . . . . . . . . . . . . . 31
SUBTTL Initialization -- CFSJYN/CFSJYX (Join the CFS network)
;Routine to join the CFS network. This is called after SETSPD has run
;so that all of the system configuration options have been selected.
;Accepts no arguments, and gives no backtalk (a fair arrangement)
;[7.1011] This routine will print out descriptive messages whenever the
;[7.1011] joining process encounters any problems.
;CFSIFL starts at -2. CFSINI calls CFSJYX, which increments it and
;returns.
CFSJYN:: ;Do the join
IFN CFSSCA,< ;If want an SCA interface
MOVEI T1,.NDGLN ;Set up to get our name
MOVEI T2,T3 ;The argument block
MOVE T3,[POINT 8,MYPOR2] ;Where to stash the name
NODE% ;Get it
ERJMP .+1 ;If no name, move on
CFSJYX::AOSE CFSIFL ;Time to join up?
RET ;No
SAVEAC <P1> ;Save a reg
STKVAR <DTIMER,REASON,SEEN20> ;[8973][7.1011] Get some space on stack
SETZM SEEN20 ;[8973] KL has not been seen yet
CALL CFDLSN ;[7.1021] () Open a dump listener
NOP ;[7.1021] Don't care about failure
CALL CFSLSN ;OPEN A LISTENER FIRST
NOP ;BETTER WORK
BLCAL. (SC.SOA,<<.,CFSINT>>) ;[7.1190] Want to know about configuration changes
;NOTE: This will callback at CFSINT for nodes
; that are already online
NOP
; Now we must wait until we have a CFS connection open to every TOPS-20 system
; already up. This will allow for a deterministic way to insure that we are
; fully joined to the CI once we return from this routine. [8959] We wait ten
; seconds before printing out a message for a node. We wait 60 seconds
; between messages.
CALL CFSPRT ;(/T1) Get our own port number
MOVEM T1,MYPOR4 ;Store it
MOVSI P1,-C%SBLL ;Loop for all the nodes
MOVEI T1,^D10 ;[8959][7.1011] Initial time of 10 seconds
MOVEM T1,DTIMER ;[7.1011] Store the initial delay time value
;[8959] Here to check the next node number.
CFSJY0: MOVE T1,MYPOR4 ;[8967] Get our node
CALL PTHSTS ;[8967] (T1/T1,T2) Is it sick?
JRST CFSJY5 ;[8967] It's ill, don't join cluster
TXNN T2,UDB%WA!UDB%WB ;[8967] Is path A or B good?
JRST CFSJY5 ;[8967] Neither is good, leave now
HRRZ T1,P1 ;[8959] Get the current node
CAMN T1,MYPOR4 ;Is this our node?
JRST CFSJY1 ;Yes, skip it
CALL PTHSTS ;(T1/T1,T2) What is path status to node
JRST CFSJY5 ;[8959] The port is not running - quit
TXNN T2,UDB%MA ;[8959] In maintenance mode?
TXNN T2,UDB%WA+UDB%WB ;[8959] Response on either wire?
JRST CFSJY1 ;[8959] No response or in maint mode, quit
SKIPE T1,SBLIST(P1) ;[8871][7.1011] No, is System Block created?
IFSKP. ;[7.1011] No, so we must wait
HRROI T1,[ASCIZ/No System Block created/] ;[7.1011] Save message
MOVEM T1,REASON ;[7.1011]
JRST CFSJY2 ;[7.1011] Go and wait a second
ENDIF. ;[7.1011]
LOAD T1,SBVCST,(T1) ;[8871] Get VC state
CAIN T1,VC.OPN ;[8871] Is it open?
IFSKP. ;[8871] No, so we must wait
HRROI T1,[ASCIZ/No open Virtual Circuit/] ;[8871] Save message
MOVEM T1,REASON ;[8871]
JRST CFSJY2 ;[8871] Go and wait a second
ENDIF. ;[8871]
HRRZ T2,P1 ;Get the node number again
CALL ISIT20 ;(T2/) Is this a TOPS-20 system?
JRST CFSJY1 ;No, skip it
AOS SEEN20 ;[8973] We have seen a TOPS-20 system out there
HRRZ T1,P1 ;Get node number
CALL CFCNCK ;(T1/) Is there a CFS connection?
SKIPA T1,[XWD -1,[ASCIZ/No CFS connection/]] ;[8959] Nope, load mess
JRST CFSJY1 ;[8959] Yes, go check the next node
MOVEM T1,REASON ;[8959] Save reason and fall through
; JRST CFSJY2 ;[8959] to publish the message
;[8959] Here if this node doesn't smell right. Output a message if the DTIMER
;has counted down to zero.
CFSJY2: SOSL DTIMER ;[7.1011] Should a message be given?
IFSKP. ;[7.1011] Yes
HRROI T1,[ASCIZ/
% Cannot join cluster with node /] ;[8957][7.1011] Print first part of message
CALL PMES ;[7.1011] (T1/)
HRRZ T1,P1 ;[7.1011] Now print the node number in decimal
CALL PNUM ;[7.1011] (T1/)
HRROI T1,[ASCIZ/ because: /] ;[8957][7.1011]
CALL PMES ;[7.1011] (T1/)
MOVE T1,REASON ;[7.1011] Finally, print the reason
CALL PMES ;[7.1011] (T1/)
HRROI T1,CRLF ;[7.1011] End with a CRLF
CALL PMES ;[7.1011] (T1/)
MOVEI T1,^D60 ;[7.1011] Now, set the delay timer to 60 to...
MOVEM T1,DTIMER ;[7.1011] ...delay message for about 1 minute.
ENDIF. ;[7.1011]
MOVEI T1,^D1000 ;Wait for a second
DISMS ; to hope that things get solid
JRST CFSJY0 ;[8959] Wait is over, check this node again
;[8959] Here to check the next node number.
CFSJY1: MOVEI T1,^D10 ;[8959] Load ten second count
MOVEM T1,DTIMER ;[7.1011] Reset delay time value
AOBJN P1,CFSJY0 ;[8959] Continue with next node
;[8959] Here if we have checked all nodes. Output message saying we are done
;if we output a "cannot join" message. We have to do a TTMSG since the "System
;restarting, wait..." message would come out ahead of this message, which would
;be confusing. Using a TTMSG insures that this message comes out first.
MOVE T1,CTYLNO ;[8959] Load the CTY's line number
TXO T1,.TTDES ;[8959] Turn that into a terminal designator
HRROI T2,[ASCIZ/
[Successfully joined CFS cluster]
/] ;[8959] Load a good message
SKIPE SEEN20 ;[8973] Did we ever see a TOPS-20 node?
TTMSG% ;[8959] Yes, indicate that all is OK now
ERJMP .+1 ;[8959] Avoid MONNEJ (if this fails we are SOL)
CFSJY5: SETONE SCVER ;[8959] Set verify in job 0
AOS JB0FLG ; so awake it
ENDSV. ;[7.1011]
> ;IFN CFSSCA
RET ;AND DONE
SUBTTL Initialization -- CFSCSC (Create private pages)
;Routine called from JOB 0 start up to create private stock of pages.
CFSCSC::EA.ENT
SAVEQ
CALL CFSDIN ;Do basic set up
REPEAT 0,< ;DONE IN PGRINI, NOT NEEDED HERE
CALL ASSPTL ;Get an SPT slot for the map
TDO T1,SHRPTR ;Make a share pointer out of it
MOVEM T1,MSECTB+CFSSEC ;Stash in the EPT
;Section map all set up. Now put a page in it.
HRRZS T1 ;Get SPT index only
CALL SWPIN1 ;Create a page table for our use
>
MOVEI Q1,LNGHSH ;Get words in long entries
ADDI Q1,WRDHSH ;Add words in short entries
ADDI Q1,HSHLEN+CFSSLN+DMPSLN+PGSIZ+PGSIZ-1 ;[7.1021] Add extra words
IFN CFSSCA,< ;If an SCA interface...
ADDI Q1,NOFN+HSTSIZ ;Add in extra data bases
ADDI Q1,VOTLEN+STRN ;And the extras if SCA is supported
> ;IFN CFSSCA
LSH Q1,-PGSFT
MOVNI Q1,1(Q1) ;Get -(n+1)
HRLZS Q1
DO.
MOVSI T1,CFSSEC ;The section
HRRI T1,0(Q1) ;The page
CALL MLKMA ;Lock it down
ADDI Q1,PGSIZ-1 ;Increase by appropriate amount
AOBJN Q1,TOP. ;Do them all
ENDDO. ;All pages now created
;Now create queue entries
;First, the vote queues
MOVSI Q2,CFSSEC ;Start at the beginning
HRRI Q2,HSHLEN ;Start after the hash table
IFN CFSSCA,< ;Only need this if doing SCA stuff
MOVEM Q2,OLDTAB ;Base of OLDTAB
ADDI Q2,HSTSIZ
MOVEI Q1,NVOTQ0 ;Number of vote packets
DO.
LOAD T1,PGWD,Q2 ;Get page offset in the address
ADDI T1,VOTSIZ-1 ;See if this fits on the page
CAIL T1,PGSIZ ;Does it?
IFNSK. ;If not
MOVE T1,Q2 ;No. See if they are usable anyway
CALL CPPCON ;Check if they are contiguous
ANNSK. ;If not
TXZ Q2,PGWD ;put on page boundary
ADDI Q2,PGSIZ ; next page, that is
ENDIF.
IFN DEBUG,<
MOVE T3,[252525]
STOR T3,CFGWD,(Q2) ;Store unique guard word
> ;IFN DEBUG
MOVE T3,Q2 ;The address
PIOFF
CALL CFSWDN ;Enqueue this one
PION
ADDI Q2,VOTSIZ ;Next address
SOJG Q1,TOP. ;Do them all
ENDDO. ;Vote packets on the queue
> ;IFN CFSSCA
;Now do the hash packest
MOVEI Q1,NSPCQ0 ;The number to do
DO.
MOVE T1,Q2 ;Next one
EXCH T1,CFSPCQ ;Put it on
MOVEM T1,@CFSPCQ ;And link rest to it
ADDI Q2,HSHSIZ ;Next entry
SOJG Q1,TOP. ;Do them all
ENDDO. ;All done
;Now allocate long packets. Always need these, even for non-SCA systems
MOVEI Q1,NSPCQ1 ;Number to get
DO.
MOVE T1,Q2 ;Next one
EXCH T1,CFSPQL ;Enqueue it
MOVEM T1,@CFSPQL ;Link it in
ADDI Q2,HSHSIZ+HSHDRI ;Length of an entry
SOJG Q1,TOP.
ENDDO.
IFN CFSSCA,< ;If SCA present
MOVEM Q2,CFSSTR ;STR transaction table
ADDI Q2,STRN ;# of structures
MOVEM Q2,CFSOFN ;Beginning of OFN pointer table
ADDI Q2,NOFN
> ;IFN CFSSCA
MOVEM Q2,CFSSTK ;Put the stack here
ADDI Q2,CFSSLN ;[7.1021] Goto beginning of dump stack
MOVEM Q2,DMPSTK ;[7.1021] Save the address
ADDI Q2,PGSIZ+DMPSLN ;[7.1021] Get to the guard page
MOVE T1,Q2 ;Copy it
ADDI Q2,PGSIZ ;Get to the next page
TXZ Q2,PGSIZ-1 ;And to the first word
MOVEM Q2,CFNXPG ;Next free cell
CALL FPTA ;Get ID
MOVX T2,PTCACH ;Read-only
CALLRET MSPACS ;Set it
SUBTTL Support Routines -- CFSSPC (Obtain request block space)
;Routine to acquire a request block.
;Returns:
; +1/ no space
; +2 /success. T1/ block address
CFSSPC::PIOFF
SKIPN T1,CFSPCQ ;A PACKET HERE?
IFSKP. ;If so
MOVE T2,0(T1) ;Get the link
MOVEM T2,CFSPCQ ;Pop the stack
PION
AOS CFGTSH ;Count this event
XMOVEI T2,SHTADD
SETZM HSHPST(T1)
SETZM HSHOKV(T1) ;No clla-back for voting
MOVEM T2,HSHRET(T1)
SETZM HSFLAG(T1) ;And the flags
RETSKP ;AND SUCCESS
ENDIF.
PION ;Nothing here.
CALL SPCCOL ;Collect some
SKIPE CFSPCQ ;Any appear?
JRST CFSSPC ;Yep. Go get it
MOVEI T1,HSHSIZ ;Size we need
CALL CFCARV ;Get one please
CALL SHTADD ;Add it
JRST CFSSPC ;And try again
;Entry for a long block
CFSSPL::PIOFF
SKIPN T1,CFSPQL ;Any packets here?
IFSKP. ;If so
AOS CFGTLG ;Count this event
MOVE T2,0(T1) ;Pop it
MOVEM T2,CFSPQL ;And update the list
PION
XMOVEI T2,LNGADD
SETZM HSHPST(T1)
SETZM HSHOKV(T1) ;No call-back for voting
MOVEM T2,HSHRET(T1)
MOVX T2,HSHLOS ;Say it is long
MOVEM T2,HSFLAG(T1) ; and clear other flags
RETSKP ;AND SUCCESS
ENDIF.
PION
CALL SPCCOL ;Collect some
SKIPE CFSPQL ;Any appear?
JRST CFSSPL ;Yep. Go get it
MOVEI T1,HSHDRI+HSHSIZ ;Size needed
CALL CFCARV ;Get one
CALL LNGADD ;Put it in
JRST CFSSPL ;And continue
;Coroutine to add a short block to the CFSPCQ queue
SHTADD: PIOFF
EXCH T1,CFSPCQ ;Make it the head.
MOVEM T1,@CFSPCQ ;And link old queu back in
PION
RET ;Done
;Coroutine to add a long block to the CFSPQL queue
LNGADD: PIOFF
EXCH T1,CFSPQL ;Make it the head
MOVEM T1,@CFSPQL ;Link old queue back in
PION
RET
SUBTTL Support Routines -- CFCARV (Carve a block from page pool)
;Routine to "carve" another block from the page pool
; T1/ Size Needed
;Returns: +1 always.
; T1/ address of block
CFCARV: NOSKED
DO.
MOVE T2,CFNXSZ ;Get size remaining in pool
SUB T2,T1 ;Compute remainder
IFL. T2 ;If not enough
PUSH P,T1 ;Save size needed
MOVE T1,CFNXPG ;Get current address
ADD T1,CFNXSZ ;Increment to the next page
CALL MLKMA ;Create and lock it
POP P,T1 ;Recover size
MOVEI T2,PGSIZ ;Increment of size
ADDM T2,CFNXSZ ;Add it
LOOP.
ENDIF.
ENDDO.
MOVEM T2,CFNXSZ ;Store new size
EXCH T1,CFNXPG ;Get address
ADDM T1,CFNXPG ;And increment by new count
OKSKED
RET ;And done
;Routine to collect some space when a queue is empty. Used by above routines
SPCCOL: MOVEI T1,CFSCTM ;Time
MOVEI T2,SKDCNT ;# to collect
CALLRET CFSRSX ;Do it
SUBTTL Support Routines -- SNDTIM (Send date and time to new node)
;Send date and time to newly on-line host
;Called from various places in CFSSRV
; T1/ Local host index
;Sends date and time if it can
;Clobbers T1-T4
IFN CFSSCA,< ;If SCA support
SNDTIM::ACVAR <W1,W2>
MOVE W1,T1
CALL LGTAD ;Do we have TAD?
CAMN T1,[-1] ;Have it?
RET ;No. DOn't bother doing the rest
MOVE W2,T1 ;Save it
CALL GVOTE1 ;Get a buffer
RET ;None
MOVEI T2,.CFTAD ;Get function
STOR T2,CFCOD,(T1)
MOVEM W2,CFROT(T1) ;Stash the TAD
MOVEI T2,0(W1) ;Host number
CALL SCASND ;Send it off
IFNSK. ;If failed
PIOFF
CALL CFSWDN ;Return the buffer
PION
ENDIF.
RET ;And done
ENDAV.
> ;IFN CFSSCA
SUBTTL Support Routines -- BRDTIM (Send date and time at startup)
;Routine called from MEXEC after date and time is typed in to send
;date and time to any processors that are "inferior" to us.
BRDTIM::
IFE CFSSCA,<RET> ;If no SCA support, nothing to do
IFN CFSSCA,< ;If SCA support...
SAVEQ ;Get some work regs
CFSLOK ;keep things stable for a bit
MOVSI Q1,-HSTSIZ ;Set to loop over the host table
MOVE Q2,MYPORT ;Get our serial number
DO.
SKIPLE CFSHST(Q1) ;Is this one possible around?
SKIPL CFHSTS(Q1) ;yes. Still?
IFSKP. ;If it is here
CAMG Q2,CFSHNM(Q1) ;Are we a bigger wheel?
ANSKP. ;If so
MOVEI T1,0(Q1) ;Get host index
CALL SNDTIM ;Send it the time
ENDIF.
AOBJN Q1,TOP. ;Do all hosts
ENDDO.
CALLRET CFSFAL ;And done
> ;IFN CFSSCA
SUBTTL Support Routines -- CFTADB (Broadcast date and time via STAD)
;Routine to broadcast date and time. Called from STAD JSYS
CFTADB::
IFN CFSSCA,<
CALL LGTAD ;Get local date and time
BLCAL. (CFSBRD,<T1,[0],[.CFTAD],[0]>) ;Do the sends
> ;IFN CFSSCA
RET ;And done
SUBTTL Support Routines -- CFSPRT (Return local port number)
;Routine to return the local port ID to whoever needs it.
; CALL CFSPRT
;Returns: +1
; T1/ ID
CFSPRT::
IFE CFSSCA,<CALLRET RETZ> ;If no SCA, return a zero
IFN CFSSCA,< ;If SCA is present
CALL SC.PRT ;Ask SCA for the amswer
SETZM T1 ;If no port, trouble!!!
RET
> ;IFN CFSSCA
SUBTTL Support Routines -- CFSNOD (Routine to get node name)
;[7.1074]
;CFSNOD - This routine will return the name of a node within a CFS
;cluster given its node number.
;
;Called with:
; T1/ CI node number
; CALL CFSNOD
;
;Returns:
; +1 - Failure, error code in T1
; +2 - Success with:
; T1/ CI node number
; T2 & T3/ 8-bit CI node name
SWAPCD ;Called from TTMSG% JSYS
CFSNOD::SAVEQ ;Preserve these (Q1 is our counter)
STKVAR <NODNUM> ;Place holder for node number
CAIL T1,0 ;Too small?
CAIL T1,C%SBLL ;Or too large?
RETBAD (TTMSX3) ;Yep, CI node is out of range
MOVEM T1,NODNUM ;Stash it
CALL SC.PRT ;(/T1) Get our CI node number
RETBAD () ;Let the caller know an error occurred
CAME T1,NODNUM ;Is the node supplied ours?
IFSKP. ;Yes,
HRLI Q1,(POINT 7,) ;Get 7 bit byte pointer
HRRI Q1,OURNAM ;For our node name
HRLI Q2,(POINT 8,) ;Get 8 bit byte pointer for destination
HRRI Q2,T2 ;It goes here
SETZ T3, ;Be sure no garbage is left over
DO. ;Do all characters until a null is hit
ILDB Q3,Q1 ;Get character
SKIPN Q3 ;Is it a null?
EXIT. ;Yes, all done
IDPB Q3,Q2 ;Not null, stick it in return place
LOOP. ;End of loop
ENDDO.
RETSKP ;Return node name to caller
ENDIF.
CIOFF ;No interruptions while we check this
MOVSI Q1,-HSTSIZ ;Init AOBJN counter
DO. ;Loop over all entries
MOVE T1,CFSHST(Q1) ;Get host entry's CID
SKIPL T1 ;Just a listener?
SKIPN T1 ;Or nothing?
JRST CFSNO2 ;Yes to one, so do next entry
CALL SC.NOD ;(T1/T1,T2) Get CI node number for this
CAME T2,NODNUM ;Is this the node we want?
IFSKP. ;If so
LOAD T2,SID,T1 ;Get index into CFNNAM table from SID field
LSH T2,1 ;CFNNAM has 2 words per entry
DMOVE T2,CFNNAM(T2) ;Retrieve node name and stash in T2 & T3
CION ;And done
RETSKP ;Return to user
ENDIF.
CFSNO2: AOBJN Q1,TOP. ;Do next CFS entry
ENDDO.
CION ;Turn CI back on before going back
RETBAD (TTMSX3) ;All nodes checked, found no match
SUBTTL Global Job Number Routines -- JBAVAL (Manage job bit table)
;Routines to manage job bit table.
;First, routine to make a job available
; T1/ Job to make available
;Returns: +1
; clobbers all temps
RESCD
JBAVAL::SKIPN T1 ;Job 0 is not reserved, so
RET ;Just return
MOVE T4,T1 ;Copy ti
IDIVI T1,^D36 ;Compute word and bit offset
MOVE T2,BITS(T2) ;Get the bit
IORM T2,JOBMBT(T1) ;Make it available
ADJBP T4,GLBPTR ;Point to entry in translation table
MOVEI T3,0 ;Get a zero
DPB T3,T4 ;Clear the entry
RET ;Done
SUBTTL Global Job Number Routines -- JBGET1 (Get global job number for local job)
;[7.1220]
;JBGET1 - Get a free job global for a local job. If there are no free global
;job slots from this system, then try to get another set of 32 jobs. Do this
;only if we have less global jobs than we have NJOBS.
;
; Called with:
; T1/ Local job number
; CALL JBGET1
;
; Returns:
; +1 - Failure, no more global jobs or all jobs in use
; +2 - Success,
; T1/ Global job number
JBGET1::STKVAR <PASS1,JOB> ;[7.1220] Temp storage
SKIPN T1 ;Local Job 0 is always Global Job 0
RETSKP ;So just return
SETZM PASS1 ;[7.1220] Say we are on pass 1
MOVEM T1,JOB ;[7.1220] Save argument
JBGET2: MOVSI T1,-JBWDS ;[7.1220] Scan the table
DO.
SKIPN T2,JOBMBT(T1) ;Anything here?
IFSKP. ;If so
JFFO T2,.+1 ;Find the first
MOVE T2,BITS(T3) ;Get the bit
ANDCAM T2,JOBMBT(T1) ;Clear it
MOVEI T1,0(T1)
IMULI T1,^D36 ;Compute jobs ahead of this one
ADDI T1,(T3) ;Add in the bit
MOVEI T2,(T1) ;Copy it
ADJBP T2,GLBPTR ;Point to entry in translation table
MOVE T4,JOB ;[7.1220] Get local job number back
DPB T4,T2 ;Store local job number
RETSKP ;And done
ENDIF.
AOBJN T1,TOP. ;Look over them all
ENDDO.
SKIPE PASS1 ;[7.1220] On pass 1?
RET ;[7.1220] No, we already tried this
MOVE T1,GBLCNT ;[7.1220] Get current count of jobs allocated
CAIL T1,NJOBS ;[7.1220] Do we have enough jobs already?
RET ;[7.1220] No, all done and no more jobs
SETOM PASS1 ;[7.1220] Flag pass 1 finishing up
NOINT ;[7.1220] Not interruptable while grabbing resources
CALL CFSGJB ;[7.1220] (/) Try to get some more jobs
OKINT ;[7.1220] Can be interrupted now.
JRST JBGET2 ;[7.1220] Now see if we can assign a global job
ENDSV. ;[7.1220]
SUBTTL Global Job Number Routines -- GL2LCL (Return local job number)
;Routine to return the local job number for a global job number.
; T1/ Global job number
;Returns: +1 not a local job. T1/ Error code
; +2 T1/ local job number
;
;Note: This routine is also called by Non-CFS monitors, since they
; depend upon it to check the range of the job number supplied.
GL2LCL::SKIPN T1 ;Job 0 always returns 0
RETSKP
SKIPL T1 ;Must be positive
CAILE T1,MXGLBS ;And must be within range
RETBAD(GTJIX3) ;Invalid
IFG. T1
ADJBP T1,GLBPTR ;Point to entry
LDB T1,T1 ;Get the value
SKIPE T1 ;SKIP if it's zero
CAILE T1,NJOBS ;SKIP if it's below the max.
RETBAD(GTJIX4) ;Illegal job number
ENDIF.
RETSKP ;Else, return the local job number
SUBTTL Global Job Number Routines -- LCL2GL (Return global job number)
;Routine to return the Global Job number, given the local job number.
;Search the Global job number table serially, comparing each entry to
;the desired local job number. This routine can be very slow, and not
;recommended unless absolutely necessary.
;
; T1/ Local Job number
;Returns: +1 No Global job assigned to this local index
; T1/ Error code
; +2 T1/ Global Job number
;
LCL2GL::SKIPN T1 ;Local Job 0 is always Global Job 0
RETSKP ;So return good
CAIL T1,1 ;Check for legal local index
CAILE T1,NJOBS ;Like so
IFNSK. ;If that didn't skip, job index is bad
BUG.(CHK,CFSILJ,CFSUSR,SOFT,<CFSSRV - Illegal Local Job Number>,,<
Cause: LCL2GL as been called to convert a local job number to a global index,
but the local job number is invalid.
Action: If this problem is reproducible, set this BUGCHK dumpable and send in
an SPR along with the dump and instructions on reproducing the problem.
>)
RETBAD(GTJIX3) ;Return error code for invalid job index
ENDIF.
SAVEP ;Save P registers.
MOVE P1,T1 ;Save requested local job number
MOVSI P4,-MXGLBS ;Build counter
MOVE P3,GLBPTR ;Get pointer to start of table
DO. ;Loop through the table
MOVEI T1,1(P4) ;Get Current Global Job number in T1
ILDB P2,P3 ;Get a table entry
CAIN P2,(P1) ;Does it match requested number?
RETSKP ;Yes. Simply return
AOBJN P4,TOP. ;No, bump counter, and continue loop
ENDDO. ;end of loop, job not found
RETBAD(GTJIX4) ;Return 'No such job'.
SUBTTL Global Job Number Routines -- CFGTJB (Get jobs at system startup)
;[7.1220]
;CFGTJB/CFSGJB - Routine called to get a block of jobs for this system.
;CFGTJB is called at system startup to get the initial set of jobs and
;CFSGJB is called when all of those jobs are used up.
;
; Called with:
; no arguments
; CALL CFGTJB/CFSGJB
;
; Returns:
; +1 - Always
CFSGJB: SAVEQ ;[7.1220] Save work registers
MOVEI Q2,1 ;[7.1220] Only want one set of jobs
JRST CFGTJ1 ;[7.1220] Join common code
CFGTJB::SAVEQ ;Get some work regs
MOVEI Q2,LCLPKT ;[7.1220] Number we need
CFGTJ1: MOVSI Q1,-MXPKTS ;[7.1220] Max,,packet we are on
DO. ;Loop
CALL CFSSPC ;Get some space
CALL CFSERR
MOVX T2,CFJBAS ;Assign job numbers
MOVEM T2,HSHROT(T1) ;Store root code
MOVX T2,.HTOEX ;Need exclusive
STOR T2,HSHTYP,(T1) ;Stash it
HRRZM Q1,HSHQAL(T1) ;Store slot needed
SETZM T2 ;No retry
CALL CFSGET ;Get it
IFSKP. ;If we got this one
MOVEI T1,JBPCKT ;[7.1220] This is how many jobs we got
ADDM T1,GBLCNT ;[7.1220] Account for this chunk
MOVEI Q3,0(Q1) ;Get slot
IMULI Q3,JBPCKT ;Jobs in a slot
HRLI Q3,-JBPCKT
DO.
HRRI T1,1(Q3) ;Get job number
CALL JBAVAL ;Make it available
AOBJN Q3,TOP. ;Do them all
ENDDO.
SOJLE Q2,R ;If all done, return
ENDIF.
AOBJN Q1,TOP. ;Try next slot
ENDDO.
RET ;Done
SUBTTL DIAG% JSYS Support -- CFDIAG (Code for Set CI Unavailable)
;Routine called from DIAG code when the CI is placed off-line. This
;routine closes all of the CFS connections.
SWAPCD ;More JSYS support
CFDIAG::
IFE CFSSCA,<RET> ;If nothing to do, don't do anything
IFN CFSSCA,< ;If we might have something to do
SAVEQ
CFSLOK ;Lock everything up
MOVSI Q1,-HSTSIZ ;Scan the table
DO.
SKIPE CFSHST(Q1) ;Anybody here?
SKIPL CFHSTS(Q1) ;Yes, and opened?
IFSKP. ;If this is opened
BLCAL. (SC.DIS,<CFSHST(Q1),[0]>) ;Close it
IFNSK.
MOVE T3,T1 ;Save error code
MOVE T1,CFSHST(Q1) ;Get connect ID
CALL SC.NOD ;(T1/T1,T2) Get node number
BUG.(CHK,CFCCLZ,CFSUSR,SOFT,<CFSSRV - Can't close CFS connection>,<<T2,NODE>,<T1,CID>,<T3,ERROR>>,<
Cause: A "set CI offline" has been requested and SCA refuses to close a CFS
connection. The call to SC.DIS to disconnect from the remote node
failed. This may result in a CFRECN BUGHLT when the CI is put on-line.
Action: It is unlikely that this can be caused by a software problem. Field
Service should run diagnostics on the CI20. Field Service should make
sure that you have up to date hardware (most recent link boards) in
your CI20. If this problem is reproducible, set this BUGCHK dumpable
and send in an SPR along with the dump and instructions on reproducing
the problem.
Data: NODE - node number of remote
CID - connect ID
ERROR - error code returned by SCA
>)
ELSE.
MOVE T3,CFSHST(Q1) ;Get the connect ID
CALL PHYNOL ;Declare the disk's offline
SETZM CFSHST(Q1) ;It is closed
MOVE T1,CFHSTS(Q1)
SETZM CFHSTS(Q1)
SOS CFSHCT ;One less of this
TRNE T1,-1 ;Full?
SOS CFSHCM ;Yes
ENDIF.
HRRZ Q2,Q1 ;GET POSITION
ADD Q2,OLDTAB ; IN OLD CONNECTIONS TABLE
MOVE T1,CFSHNM(Q1) ;GET REMOTE SYSTEM'S SERIAL NUMBER
MOVEM T1,(Q2) ;SAVE IT
ENDIF.
AOBJN Q1,TOP. ;Do all of the table
ENDDO.
CALLRET CFSFAL ;And done
> ;IFN CFSSCA
SUBTTL CNFIG% JSYS Support -- CFCIN (Return CFS information)
IFN CFSSCA,<
; CNFIG% JSYS SUPPORT ROUTINES FOR CFS
; THEY ALSO USE CNFIG% SUPPORT ROUTINES IN JSYSA.MAC
; THE FOLLOWING CONVENTIONS ARE USED FOR PRESERVED REGISTERS
;
; Q1/ MONITOR BLOCK ADDRESS (ESTABLISHED IN THESE ROUTINES)
; Q2/ USER BLOCK ADDRESS
; Q3/ WORDS PROCESSED,,WORDS SUPPLIED
CFCIN:: TRVAR <<CFCINB,.CFCLN>>
XMOVEI Q1,CFCINB ;Q1 POINTS TO MONITOR BLOCK
MOVEI T1,.CFCLN
CALL CFLNDO ;PROCESS .CFLEN
MOVE T1,CFSHCT ;NUMBER OF OTHER CFS HOSTS UP
ADDI T1,1
MOVEM T1,.CFNCN(Q1) ;NUMBER OF CFS NODES
SETZM T2
LOAD T1,SCCNC ;GOT CONNECTED FLAG
SKIPE T1
TXO T2,CF%CFR ;NONZERO MEANS WE DID
MOVEM T2,.CFCDO(Q1) ;DYNAMIC SOFTWARE OPTIONS
CALL CFRET ;RETURN STUFF TO USER
RETSKP
ENDTV.
SUBTTL CNFIG% JSYS Support -- CFCSE (Return serial numbers of CFS nodes)
;RETURN SERIAL NUMBERS OF OTHER HOSTS UP
CFCSE:: TRVAR <<CFCSEB,MAXNDS+2>> ;MAX NUMBER OF OTHER HOSTS + OURS + .CFLEN
XMOVEI Q1,CFCSEB ;ADDRESS OF MONITOR BLOCK
MOVE T1,CFSHCT ;NUMBER OF OTHER HOSTS CURRENTLY UP
ADDI T1,2 ;PLUS US PLUS .CFLEN
CALL CFLND2
XMOVEI P1,.CFCS1(Q1) ; P1/ PLACE TO STORE SERIAL NUMBERS
SETZM 0(P1) ;INITIALIZE TO ZEROS
MOVE T1,APRSER ;APR SERIAL NUMBER IN RIGHT HALF
STOR T1,CF%HSN,0(P1) ;STORE AWAY OUR SERIAL NUMBER
CALL SC.PRT ;GET OUR CI NODE NUMBER
ERJMP .+1 ;IGNORE ERRORS
STOR T1,CF%CIN,0(P1) ;STASH IT
ADDI P1,1
; HERE IS OUR MAIN LOOP TO GET THE SERIAL NUMBERS AND STASH THEM
MOVEI P2,CFSHST ; P2/ PRESENCE TABLE
MOVEI P3,CFHSTS ; P3/ ACTIVENESS TABLE
MOVEI P4,CFSHNM ; P4/ SERIAL NUMBER TABLE
MOVEI P5,HSTSIZ ; P5/ LOOP
DO.
SKIPLE 0(P2) ;ANYTHING HERE?
SKIPL 0(P3) ;ANYTHING ACTIVE?
IFSKP.
SETZM 0(P1) ;INITIALIZE TO ZEROS
MOVE T1,0(P4) ;GET SERIAL NUMBER
LSH T1,-4 ;NORMALIZE
STOR T1,CF%HSN,0(P1) ;STASH IT
MOVE T1,0(P2) ;Get connect ID
CALL SC.NOD ;(T1/T1,T2) Get CI node number
STOR T2,CF%CIN,0(P1) ;Save CI node number
ADDI P1,1 ;BUMP STASH POINTER
ENDIF.
ADDI P2,1 ;BUMP ALL LOOP VARIABLES
ADDI P3,1
ADDI P4,1
SOJG P5,TOP. ;END WHEN WHOLE TABLE SEARCHED
ENDDO.
CALL CFRET ;RETURN STUFF TO USER SPACE
RETSKP
ENDTV.
SUBTTL CNFIG% JSYS Support -- CFCND (Return list of node names)
CFCND:: TRVAR <<CFCNDB,MAXNDS*3+4>>
XMOVEI Q1,CFCNDB
MOVE T1,CFSHCT ;NUMBER OF OTHER HOSTS CURRENTLY UP
IMULI T1,3
ADDI T1,4 ;MAX WORDS RETURNABLE
CALL CFLND2
MOVE T1,CFSHCT
ADDI T1,1
STOR T1,CF%NND,.CFNND(Q1) ; SET NUMBER OF NODES
XMOVEI P1,.CFBP1(Q1) ; P1/ PLACE TO STORE BYTE POINTERS
XMOVEI P2,.CFBP1+1(Q1)
ADD P2,CFSHCT ; P2/ PLACE TO STORE HOST NAMES
MOVEI T3,.CFBP1+1(Q2)
ADD T3,CFSHCT ; T3/ RUNNING ADDRESS FOR BYTE POINTERS
HRR T1,T3
HRLI T1,(POINT 7,)
MOVEM T1,0(P1) ; STORE B.P. FOR OUR NAME
ADDI P1,1 ; BUMP POINTER
ADDI T3,2
DMOVE T1,OURNAM
DMOVEM T1,0(P2)
ADDI P2,2 ; BUMP POINTER
; HERE IS OUR MAIN LOOP TO GET THE NAMES AND STATES AND STASH THEM
MOVEI P3,CFSHST ; P3/ PRESENCE TABLE
MOVEI P4,CFHSTS ; P4/ ACTIVENESS TABLE
MOVEI P5,CFNNAM ; P5/ HOST NAME TABLE
MOVEI T4,HSTSIZ ; T4/ LOOP
DO.
SKIPLE 0(P3) ;ANYTHING HERE?
SKIPL 0(P4) ;ANYTHING ACTIVE?
IFSKP.
HRR T1,T3
HRLI T1,(POINT 7,)
MOVEM T1,0(P1) ; STORE B.P. FOR OUR NAME
ADDI P1,1 ; BUMP POINTER
ADDI T3,2
CALL ASC8T7 ; COPY 0,1(P5) TO 0,1(P2) AND CONVERT
ADDI P2,2 ; BUMP POINTER
ENDIF.
ADDI P3,1
ADDI P4,1
ADDI P5,2
SOJG T4,TOP.
ENDDO.
CALL CFRET
RETSKP
ENDTV.
; THE FOLLOWING CONVERTS 0,1(P5) FROM 8 TO 7 BIT ASCII
; AND STORES THE RESULT IN 0,1(P2)
ASC8T7::SAVET
HRLI T1,(<POINT 8,0>)
HRRI T1,0(P5) ; BYTE POINTER TO SOURCE
HRLI T2,(<POINT 7,0>)
HRRI T2,0(P2) ; BYTE POINTER TO DESTINATION
SETZM 1(P2) ; ZERO DESTINATION NOT TOUCHED
MOVEI T3,8 ; COUNT, 8 BYTES
LOP8T7: ILDB T4,T1 ; THIS IS OUR COPY LOOP
IDPB T4,T2
SOJG T3,LOP8T7
RET
> ;IFN CFSSCA
SUBTTL End of CFSUSR
END