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
***************