Google
 

Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_SRC_3_19910112 - mit/monitor/dif.mac
There are no other files named dif.mac in the archive.
**** FILE SSY:<BERLIN.NEW-MULTINET>MEXEC.MAC.1, 1-1 (0)
;[BBNF]<TAPPAN.NEW>MEXEC.MAC.4, 16-Jun-82 20:53:36, Ed: TAPPAN
;<BBN-5-MONITOR>MEXEC.MAC.12, 27-Mar-82 15:42:56, Edit by TAPPAN
; remove calls to IMPBEG etc., MNTCHK now done by seperate fork
;<BBN-5-MONITOR>MEXEC.MAC.11, 13-Mar-82 08:02:04, Edit by TAPPAN
; Use PM%EPN in the PMAP at SJLGO4 (correct fix for the PAGLCK problem)
;<BBN-5-MONITOR>MEXEC.MAC.5, 18-Feb-82 10:07:52, Edit by TAPPAN
; PUT A CLZFF AT SJLGO4 TO GET RID OF POSSIBLE BAD INTERACTIONS WITH THE
; UPT FROM DOING IT AFTER UPMAPPING PAGES
;SNARK:<BBN-4-MONITOR>MEXEC.MAC.219 19-Jan-82 10:06:22, Edit by RBASCH
;CHANGED LOGOUT MESSAGE
;<BBN-4-MONITOR>MEXEC.MAC.217, 29-Oct-81 08:06:31, Edit by TAPPAN
;100: Merged in Chaosnet changes
;<DISMOUNT-MONITOR>MEXEC.MAC.3 30-Sep-81 14:03:19, Edit by EONEIL
;UPDATE LINE NO. AND LINE TYPE CODE AT SESSION END TOO
;<DISMOUNT-MONITOR>MEXEC.MAC.2 29-Sep-81 08:29:30, Edit by JDELSIGNORE
; CHANGED A LOAD OF UHTAD TO A MOVE OF UQDAT+1 TO PREVENT UNDEFINED ERROR
;[BBND]<EONEIL>MEXEC.MAC.216 28-Sep-81 17:28:32, Edit by EONEIL
;UPDATE SESSION START AND END TADS FOR SESSION END, IN USGSEN
;SNARK:<BBN-4-MONITOR>MEXEC.MAC.215 30-Jul-81 11:50:10, Edit by JDELSIGNORE
; UPDATED THE TNTTAB TO INCLUDE THE NEW MLC-PORT LINE NUMBERS
;[BBND]<BBN-4-MONITOR>MEXEC.MAC.213, 20-Jul-81 14:03:48, Ed: EONEIL
;SKIP "SYSTEM GOING DOWN..." MESSAGE IF SHUTDOWN LESS THAN 24 HR. AWAY
;[BBND]<MULTINET-MONITOR>MEXEC.MAC.14,  8-May-81 15:56:44, Ed: EONEIL
;REMOVED CALL TO TNTCKR NOW THAT TELENET-11 IS DEFUNCT
;[BBND]<MULTINET-MONITOR>MEXEC.MAC.13,  3-May-81 15:12:49, Ed: JDELSIGNORE
;MODIFIED TNTTAB TO REFLECT THE PROPER MLC LINES ASSOCOIATED WITH TP2200
;FIXED CALL TO TNTCKR TO SET UP T2 PROPERLY
;[BBND]<TP-MONITOR>MEXEC.MAC.15, 20-Mar-81 13:11:31, Ed: EONEIL
;CHANGE SYSTEM EXPUNGE INTERVAL TO 12 HOURS, AT EXPAL3
;<MULTINET-MONITOR>MEXEC.MAC.9, 20-Jan-81 11:48:03, Edit by TAPPAN
; Merge to real sources
;<TAPPAN.4>MEXEC.MAC.2,  5-Nov-80 14:54:25, Edit by TAPPAN
; Changes for multinet, add some routines for GETAB tables,
; call MNTINI at RUNDD
;[BBND]<TP-MONITOR>MEXEC.MAC.13,  4-Feb-81 16:14:15, Ed: JDELSIGNORE
;ADDED CODE TO GENERATE THE TNTTAB FOR THE TELENET TP2200 ACCOUNTING
;[BBND]<TP-MONITOR>MEXEC.MAC.3, 21-Jan-81 15:47:48, Ed: JDELSIGNORE
;ADDED CODE FOR TP2200 TELENET ACCOUNTING
;CHANGED CODE IN THE FOLLOWING PLACES: LOGIN,DETACH,ATACH,CHECKPOINT
;ADDED CODE NEAR THE END AT LABEL TNTACT:
;[BBND]<STRIPPED-MONITOR>MEXEC.MAC.4, 19-Jan-81 14:00:49, Ed: JDELSIGNORE
;REMOVED CODE FOR TELENET LINE ACCOUNTING
;[BBND]<TCP-BBN-4-MONITOR>MEXEC.MAC.210, 19-Sep-80 12:48:52, Ed: EONEIL
;CHANGED USER MESSAGE INT. FROM 5 TO 30 MIN., EXP INT. FROM 6 TO 3 HR.
;<TCP-BBN-4-MONITOR>MEXEC.MAC.209, 19-Sep-80 12:28:12, Edit by TAPPAN
; CHKR calls IMICHK to prevent buffer lockups
***************

**** FILE SSY:<BERLIN.MONITOR>MEXEC.MAC.1, 2-14 (27811)
	MOVEI T1,MFRKWD		;GET SPECIAL PRIORITY FOR MONITOR FORKS
	MOVEM T1,JOBSKD		;AND SET THIS JOB AS SUCH
**** FILE SSY:<BERLIN.NEW-MULTINET>MEXEC.MAC.1, 2-14 (14117)
;	MOVEI T1,MFRKWD		;GET SPECIAL PRIORITY FOR MONITOR FORKS
;	MOVEM T1,JOBSKD		;AND SET THIS JOB AS SUCH
	CALL SETHIQ
***************


**** FILE SSY:<BERLIN.MONITOR>MEXEC.MAC.1, 71-45 (130533)
	XXX NETRDY,IMPRDY,IMPGTN	;ARPANET
**** FILE SSY:<BERLIN.NEW-MULTINET>MEXEC.MAC.1, 71-45 (118952)
IFE MNET,<
	XXX NETRDY,IMPRDY,IMPGTN	;ARPANET
>		;; Table is table only on non-multinet systems
IFN MNET,<
	XXX NETRDY,0,10,GNTRDY
>
***************

**** FILE SSY:<BERLIN.MONITOR>MEXEC.MAC.1, 71-50 (130773)
	XXX HSTNAM,HSTNAM,NHSTN		;ARPANET
;SIMULATE GHOSTN AND NETAWD
	XXX HOSTN,0,NHOSTS,GHOSTN	;ARPANET
	XXX NETLSK,LSKT,NSKT		;ARPANET
	XXX NETFSK,FSKT,NSKT		;ARPANET
	XXX NETAWD,0,NSKT,GNTAWD	;ARPANET
**** FILE SSY:<BERLIN.NEW-MULTINET>MEXEC.MAC.1, 71-55 (119295)
IFE MNET,<
	XXX HSTNAM,HSTNAM,NHSTN		;ARPANET
>
IFN MNET,<
	XXX HSTNAM,0,NHSTN,GHSTNM
>
;SIMULATE GHOSTN AND NETAWD
	XXX HOSTN,0,NHOSTS,GHOSTN	;ARPANET
IFE MNET,<
	XXX NETLSK,LSKT,NSKT		;ARPANET
	XXX NETFSK,FSKT,NSKT		;ARPANET
>
IFN MNET,<
	XXX NETLSK,0,NSKT,GNTLSK
	XXX GNTFSK,0,NSKT,GNTFSK
>
	XXX NETAWD,0,NSKT,GNTAWD	;ARPANET
IFE MNET,<
***************

**** FILE SSY:<BERLIN.MONITOR>MEXEC.MAC.1, 71-64 (131293)
**** FILE SSY:<BERLIN.NEW-MULTINET>MEXEC.MAC.1, 71-81 (119969)
>
IFN MNET,<
	XXX NETBAL,0,NSKT,GNTBAL
	XXX NETSTS,0,NSKT,GNTSTS
	XXX NETBUF,0,NSKT,GNTBUF
	XXX NETBTC,0,NSKT,GNTBTC
	XXX IMPLT1,0,IMPNLK,GIMLT1,.IMPL1
	XXX IMPLT2,0,IMPNLK,GIMLT2,.IMPL2
	XXX IMPLT3,0,IMPNLK,GIMLT3,.IMPL3
	XXX IMPLT4,0,IMPNLK,GIMLT4,.IMPL4
>
***************

**** FILE SSY:<BERLIN.MONITOR>MEXEC.MAC.1, 71-68 (131493)
**** FILE SSY:<BERLIN.NEW-MULTINET>MEXEC.MAC.1, 71-96 (120439)
	XXX CHSTAT,CHAON,CHASBS		;100
	XXX CHPMXT,CHPMXT,1		;100
***************

**** FILE SSY:<BERLIN.MONITOR>MEXEC.MAC.1, 80-42 (145821)
**** FILE SSY:<BERLIN.NEW-MULTINET>MEXEC.MAC.1, 80-42 (134827)
	MOVE T1,LDTALN		;LINE NUMBER. -TELENET?
	SETZ T2,		;FOR THIS JOB
	CALL TNTACT		;CLOSE OUT TELENET SUBSESSION
***************

**** FILE SSY:<BERLIN.MONITOR>MEXEC.MAC.1, 81-3 (147726)
;DETACH JOB IMMEDIATELY, LOGOUT AFTER 5 MINUTES IF NOT REATTACHED.
**** FILE SSY:<BERLIN.NEW-MULTINET>MEXEC.MAC.1, 81-3 (136845)
;DETACH JOB IMMEDIATELY, LOGOUT AFTER 10 MINUTES IF NOT REATTACHED
;AND THE SYSTEM IS JOBS FULL (LOGOUT IS PROBABILISTIC, SO ALL SUCH JOBS DON'T
;GO AT ONCE AFTER A NETWORK FLAP)
***************

**** FILE SSY:<BERLIN.MONITOR>MEXEC.MAC.1, 81-34 (148675)
	CALL FFORKI		;INDIRECTLY FREEZE ALL INFERIORS
	MOVE 1,[^D<5*60000>]	;SETUP TO WAIT 5 MINUTES
	CALL SETBKT		;COMPUTE BLOCKT DATA
	HRRI 1,COFTST		;SETUP SPECIAL TEST
	MOVSI T2,FHV1		;LOW BLOCK PRIORITY
	HDISMS
**** FILE SSY:<BERLIN.NEW-MULTINET>MEXEC.MAC.1, 81-37 (137910)
	MOVE T1,BITS+.TICRF	; SEE IF TOP FORK ENABLED
	TDNN T1,TTSPSI		; FOR CARRIER OFF PSI
	CALL FFORKI		;INDIRECTLY FREEZE ALL INFERIORS
	HRRZI 1,COFTST		;SETUP SPECIAL TEST
	MDISMS
***************

**** FILE SSY:<BERLIN.MONITOR>MEXEC.MAC.1, 81-76 (149942)
	JRST BLOCKT		;NO, GO TEST TIME
**** FILE SSY:<BERLIN.NEW-MULTINET>MEXEC.MAC.1, 81-78 (139145)
	MOVE T2,TODCLK		;GET PRESENT TIME
	SUB T2,FKNBW(FX)	;SUBTRACT  TIME STARTED WAITING
	MOVEI T1,^D60000	;CHECK IT IN A MINUTE (OR LESS)
	CAMGE T2,[^D<10*60000>]	;AT LEAST 10 MIN. WAITING?
	JRST 0(4)		;NO, KEEP WAITING
	CAMLE T2,[^D<60*60000>]	; More than 1 hour waiting?
	JRST 1(4)		; Yes, return to be logged out
	SKIPE FREJOB		;JOBS FULL?
	JRST 0(4)		;NO, KEEP WAITING FOR USER TO COME BACK
	LOAD T2,FKJOBN		;YES, CHOOSE 1 IN 40 JOBS FOR LOGOUT
	XOR T2,TODCLK		;USE TIME TO RANDOMIZE
	TRNE T2,37		;THIS JOB TO GO?
	JRST 0(4)		;NO, KEEP WAITING
	JRST 1(4)		;YES, WAKE UP
***************

**** FILE SSY:<BERLIN.MONITOR>MEXEC.MAC.1, 83-31 (152726)
	 MOVE T3,ATACDR		;GET USER NUMBER
	 HRLI T3,USRLH		;MAKE IT USABLE BY OTHERS
	 GTOKM (.GOATJ,<T3,T4>,[RETERR()]) ;LET ACJ SNIFF THIS
**** FILE SSY:<BERLIN.NEW-MULTINET>MEXEC.MAC.1, 83-31 (142481)
	 GTOKM (.GOATJ,<ATACDR,T4>,[RETERR()]) ;LET ACJ SNIFF THIS
***************

**** FILE SSY:<BERLIN.MONITOR>MEXEC.MAC.1, 84-28 (155288)
**** FILE SSY:<BERLIN.NEW-MULTINET>MEXEC.MAC.1, 84-28 (144967)
	MOVE T1,CTRLTT		;TTY FOR THIS JOB- TELENET?
	SETZ T2,		;THIS JOB
	CALL TNTACT		;CLOSE OUT TELENET SUBSESSION
	MOVE T1,CTRLTT(Q2)	;TTY FOR OTHER JOB
	MOVE T2,Q2		;OFFSET FOR OTHER JOB'S JSB
	CALL TNTACT		;CLOSE OUT TELENET SUBSESSION FOR OBJECT JOB
***************

**** FILE SSY:<BERLIN.MONITOR>MEXEC.MAC.1, 84-41 (155770)
**** FILE SSY:<BERLIN.NEW-MULTINET>MEXEC.MAC.1, 84-47 (145704)
	CALL REMTCJ		; Avoid carrier off interrupts
***************

**** FILE SSY:<BERLIN.MONITOR>MEXEC.MAC.1, 97-36 (175406)
**** FILE SSY:<BERLIN.NEW-MULTINET>MEXEC.MAC.1, 97-36 (165386)
	MOVE T2,UQDAT+1(Q1)	;GET TIMESTAMP (SESSION END)
	MOVEM T2,2(T4)		;PUT IN CHECKPOINT ENTRY
	MOVE T2,UQDAT+2(Q1)	;GET LINE TYPE CODE, ETC.
	MOVEM T2,3(T4)		;PUT IN CHECKPT. ENTRY
	HRRZ T2,UQDAT+6(Q1)	;GET LINE NO.
	HRRM T2,7(T4)		;PUT IN CHECKPT. ENTRY
***************

**** FILE SSY:<BERLIN.MONITOR>MEXEC.MAC.1, 97-40 (175565)
**** FILE SSY:<BERLIN.NEW-MULTINET>MEXEC.MAC.1, 97-46 (165804)
	MOVE T4,(T2)		;GET SESSION START TAD
	MOVEM T4,(T3)		; INTO CKPT DATA
***************

**** FILE SSY:<BERLIN.MONITOR>MEXEC.MAC.1, 97-44 (175704)
**** FILE SSY:<BERLIN.NEW-MULTINET>MEXEC.MAC.1, 97-52 (166016)
	MOVE T4,4(T2)		;UPDATE THE TELENET CONNECT
	MOVEM T4,4(T3)		; WHICH IS USING THE BATCH SEQ. NO. FIELD
***************

**** FILE SSY:<BERLIN.MONITOR>MEXEC.MAC.1, 98-32 (177073)
**** FILE SSY:<BERLIN.NEW-MULTINET>MEXEC.MAC.1, 98-32 (167490)
	CALL TNTCPT		;TELENET CHECKPOINT
***************

**** FILE SSY:<BERLIN.MONITOR>MEXEC.MAC.1, 98-55 (177778)
**** FILE SSY:<BERLIN.NEW-MULTINET>MEXEC.MAC.1, 98-56 (168230)
	SETZM CONTNT(T3)	;REINIT TELENET CONNECT TIME IN JOB
	SETZM 1(FX)		;AND IN CHECKPOINT PAGE (BATCH SEQ # LOCATION)
***************

**** FILE SSY:<BERLIN.MONITOR>MEXEC.MAC.1, 98-69 (178150)
**** FILE SSY:<BERLIN.NEW-MULTINET>MEXEC.MAC.1, 98-72 (168719)
	MOVEM T1,CONCON(T3)	;STORE IN MAPPED JSB TOO
***************

**** FILE SSY:<BERLIN.MONITOR>MEXEC.MAC.1, 98-73 (178268)
**** FILE SSY:<BERLIN.NEW-MULTINET>MEXEC.MAC.1, 98-77 (168884)
	MOVEM T1,JBRUNT(T3)	;STORE IN MAPPED JSB TOO
***************

**** FILE SSY:<BERLIN.MONITOR>MEXEC.MAC.1, 99-2 (178642)
**** FILE SSY:<BERLIN.NEW-MULTINET>MEXEC.MAC.1, 99-2 (169305)
; ACCOUNTING SHIFT CHANGE - CLOSE OUT SESSION
;
; CHECKPOINT TELENET CONNECT TIME (PUT IN BATCH SEQUENCE NUMBER LOCATION
;					IN CHECKPOINT.BIN)
TNTCPT:	MOVE T2,T3		;JSB OFFSET FOR JOB
	MOVE T1,CTRLTT(T3)	;LINE NUMBER- TELENET?
	CALL TNTACT		;CLOSE OUT TELENET SUBSESSION
	MOVE T1,CONTNT(T3)	;GET UPDATED TELENET CONNECT TIME
	MOVEM T1,1(FX)		;STORE IN CHECKPOINT PAGE (BATCH SEQ #)
	RET			;RETURN
; ROUTINE TO UPDATE TELENET ACCOUNTING WORD IN JSB.
; CLITNT : TELENET CONNECT TIME ON (TODCLK UNITS)
; CONTNT : TELENET CONNECT TIME FOR THIS SESSION (IN SECONDS)
; ACCEPTS:
;	T1:  LINE NUMBER
;	T2:  OFFSET FOR JOB'S JSB (0 IF FOR CURRENT JOB)
TNTACT:	PUSH P,T3
	MOVE T3,T2		;JSB OFFSET
	CALL TNTCHK		;TELENET LINE?
	 JRST [	MOVE T1,TODCLK	;NO, JUST REINIT
		MOVEM T1,CTITNT(T3)
		POP P,T3
		RET]
	MOVE T1,TODCLK
	SUBM T1,CTITNT(T3)	;DELTA CONNECT TIME TO CTITNT(T3)
	EXCH T1,CTITNT(T3)	;DELTA CONNECT IN T1, NEW TODCLK IN CTITNT(T3)
	IDIVI T1,^D1000		;CONVERT MILLISECONDS TO SECONDS
	ADDM T1,CONTNT(T3)	;ADD DELTA CONNECT TIME TO TOTAL TELENET CONNCT
	POP P,T3
	RET			;RETURN
; TELENET ACCOUNTING ROUTINE TO SEE IF A TTY NUMBER IS A TELENET LINE
; ACCEPTS:
;	T1: TTY NUMBER OR -1 FOR DETACHED
; RETURNS:
;	+1 FAILURE: LINE IS NOT A TELENET LINE
;	+2 SUCCESS: LINE IS A TELENET LINE
;
; THIS ROUTINE SEARCHES A TABLE DEFINED IN STG.MAC
TNTCHK:	CAIL	T1,MLCTTX-MLCTTY ;SKIP IF TTY # < MLC RANGE.
	CAIL	T1,MLCTTX-MLCTTY+NMLCS ;SKIP IF TTY IS IN THE MLC RANGE
	 RET			;TTY IS ABOVE OR BELOW MLC RANGE
	MOVE	T1,MLCTTY(T1)	;GET THE MLC NUMBER
	HRLZI	T2,-NUMTNT	;AOBJN LOOP COUNTER,,TELENET MLC TABLE INDEX
TNTLOP:	CAMN	T1,TNTTAB(T2)	;COMPARE MLC # WITH VALUE IN TABLE
	RETSKP			;VALUE FOUND IN TABLE, SUCCESS RETURN +2
	AOBJN	T2,TNTLOP	;ADJUST INDX & LOOP CNTR, JUMP IF MORE IN TABLE
	RET			;TELENET MLC NOT IN TABLE, RETURN
; GENERATE TELENET MLC TABLE
; THIS TABLE CONTAINS THE MLC NUMBERS THAT ARE TELENET LINES.
; THE TABLE IS SEARCHED BY TNTCHK IN MODULE MEXEC.MAC
; DEFINE A MACRO THAT GENERATES AN MLC WORD SIMILAR TO THAT FOUND IN THE
; MLCTTY TABLE IN THE MONITOR.
DEFINE TNTVAL(MLC,PORT)<
	<MLC>B26+<PORT>B34
>
TNTTAB:	TNTVAL 5,35
	TNTVAL 5,36
	TNTVAL 5,37
	TNTVAL 5,65
	TNTVAL 5,66
	TNTVAL 5,67
	TNTVAL 5,70
	TNTVAL 5,74
	TNTVAL 5,75
	TNTVAL 5,76
	TNTVAL 6,26
	TNTVAL 6,27
	TNTVAL 6,30
	TNTVAL 6,31
	TNTVAL 6,32
	TNTVAL 6,33
	TNTVAL 6,34
	TNTVAL 6,35
	TNTVAL 6,36
	TNTVAL 6,37
	TNTVAL 6,66
	TNTVAL 6,67
	TNTVAL 6,70
	TNTVAL 6,71
	TNTVAL 6,72
	TNTVAL 6,73
	TNTVAL 6,74
	TNTVAL 6,75
	TNTVAL 6,76
	TNTVAL 6,77
REPEAT	^D10,<TNTVAL 0,0>	;ALLOCATE 10 MORE WORDS IN THE MLC TABLE
				;SO THAT IF MORE TP2200 LINES ARE ADDED,
				;THEIR VALUES CAN BE PUT INTO THE TABLE.
				;WARNING!!! THE SEARCH IN THE TABLE IS
				;DEPENDENT ON THE VALUE  OF NUMTNT.
				;IF THE NUMBER OF ENTRIES CHANGE, ADJUST
				;THE VALUE IN CODE BELOW.
NUMTNT=.-TNTTAB		;NUMBER OF ENTRIES IN THE TELENET MLC TABLE
***************