Trailing-Edge
-
PDP-10 Archives
-
SRI_NIC_PERM_SRC_3_19910112
-
monitor/jsysm.dif
There is 1 other file named jsysm.dif in the archive. Click here to see a list.
; JSYSM.MAC.8 & <7.FT3.MONITOR.STANFORD>JSYSM.MAC.4 18-Apr-89 1804 PAGE 1
LINE 1, PAGE 1
1) ;[SRI-NIC]SRC:<MONITOR>JSYSM.MAC.8, 4-Apr-89 17:37:32, Edit by MKL
1) ; just RET at LOGCJ1 cause I think we are crashing around there
1) ; Edit= 8955 to JSYSM.MAC on 26-Aug-88 by LOMARTIRE
1) ;Improve BUG. documentation some more
1) ; Edit= 8902 to JSYSM.MAC on 12-Aug-88 by RASPUZZI
1) ;Update BUG. documentation.
1) ;[SRI-NIC]SRC:<MONITOR>JSYSM.MAC.6, 16-Mar-89 01:44:36, Edit by MKL
1) ; fix system going down message
1) ;[SRI-NIC]SRC:<MONITOR>JSYSM.MAC.2, 25-Nov-88 14:17:45, Edit by MKL
1) ; v7 merge
1) ;[MACBETH.STANFORD.EDU]SRC:<7.FT2.MONITOR.STANFORD>JSYSM.MAC.6, 6-Jun-88 17:15:21, Edit by A.ALDERSON
1) ; Make IDLE% call GL2LCL in section 1 explicitly
1) ;Stanford changes
1) ; HSYS% changes
1) ; Make IDLE% work correctly for line 0.
1) ; CHKAC% treats domestic structures as an extension of the public structure
1) ; HANDS% JSYS for fast lookup of GETAB% tables
1) ; IDLE% JSYS to get a job's "idle" time
1) ; ISI ATACH% fix to eliminate carrier-off PSI race for network TTY's
1)
1) ; Edit= 8834 to JSYSM.MAC on 21-Apr-88 by GSCOTT (TCO 7.1279)
1) ; UPD ID= 8705, RIP:<7.MONITOR>JSYSM.MAC.95, 21-Apr-88 16:11:20 by GSCOTT
LINE 1, PAGE 1
2) ;[MACBETH.STANFORD.EDU]SRC:<7.FT3.MONITOR.STANFORD>JSYSM.MAC.4, 20-Jun-88 21:15:50, Edit by A.APPLEHACKS
2) ; Convert some '^' 'L's into '^L's. sheesh. Yank an extra BUG paren.
2) ;[MACBETH.STANFORD.EDU]SRC:<7.FT3.MONITOR.STANFORD>JSYSM.MAC.3, 20-Jun-88 18:25:50, Edit by A.ALDERSON
2) ; correct mangled BUG text.
2) ;[MACBETH.STANFORD.EDU]SRC:<7.FT3.MONITOR.STANFORD>JSYSM.MAC.2, 20-Jun-88 14:26:16, Edit by A.APPLEHACKS
2) ; FT7 Clock Merge - Note TCOTST hang fix.
2) ;
2) ; UPD ID= 8705, RIP:<7.MONITOR>JSYSM.MAC.95, 21-Apr-88 16:11:20 by GSCOTT
LINE 34, PAGE 1
1) ;TCO 7.1230 - Add routine BLINKS which breaks links and advice and defaults
LINE 20, PAGE 1
2) ;
2) ;[MACBETH.STANFORD.EDU]SRC:<7.FT2.MONITOR.STANFORD>JSYSM.MAC.7, 6-Jun-88 17:21:33, Edit by A.ALDERSON
2) ; Do previous edit right
2) ;[MACBETH.STANFORD.EDU]SRC:<7.FT2.MONITOR.STANFORD>JSYSM.MAC.6, 6-Jun-88 17:15:21, Edit by A.ALDERSON
2) ; Make IDLE% call GL2LCL in section 1 explicitly
2) ;[MACBETH.STANFORD.EDU]SRC:<7.FT2.MONITOR.STANFORD>JSYSM.MAC.5, 26-May-88 13:38:10, Edit by A.ALDERSON
2) ; Make PUP SYSGT routines explicitly MSEC1 in tables
2) ;[MACBETH.STANFORD.EDU]SRC:<7.FT2.MONITOR.STANFORD>JSYSM.MAC.4, 30-Apr-88 16:27:58, Edit by A.ALDERSON
2) ; Fix some bad comments in ATACH1
2) ;[MACBETH.STANFORD.EDU]SRC:<7.FT2.MONITOR.STANFORD>JSYSM.MAC.2, 22-Apr-88 18:52:13, Edit by A.APPLEHACKS
2) ; FT7.2 Merge -- Note well that this module (JSYSM) is a hodgepodge of
2) ; JSYS routines from JSYSA and MEXEC.
; JSYSM.MAC.8 & <7.FT3.MONITOR.STANFORD>JSYSM.MAC.4 18-Apr-89 1804 PAGE 2
2) ;
2) ; UPD ID= 8653, RIP:<7.MONITOR>JSYSM.MAC.92, 18-Feb-88 20:46:31 by GSCOTT
2) ;TCO 7.1230 - Add routine BLINKS which breaks links and advice and defaults
LINE 26, PAGE 10
1)
1) Action: This is almost always caused by running GALAXY under job 0.
1) Investigate why there are too many forks under job 0 and move
1) some of them out.
1) >)
LINE 26, PAGE 10
2) >)
LINE 3, PAGE 12
1) HSYS9: CALL PHYLOG ;LOG DISK, TAPE STATISTICS
1) SETZM DDTIME ;POKE DDMP
LINE 3, PAGE 12
2) HSYS9:
2) IFN STANSW&PUPSW,<
2) CALL SETPOF ;TURN OFF PUP ETHERNET
2) >;IFN STANSW&PUPSW
2) CALL PHYLOG ;LOG DISK, TAPE STATISTICS
2) SETZM DDTIME ;POKE DDMP
LINE 11, PAGE 13
1) [/] ;[7.1086]
1) SETZ T3,
1) SOUT
1) ERJMP .+1 ;[7.1086] Not when SOUTing to memory
1) IFE NICSW,<
1) HRROI T2,OURNAM ;[7.1086] Get our node name
1) SOUT% ;[7.1086] Put node name in string
1) ERJMP .+1 ;[7.1086] Shouldna happen
1) >
1) IFN NICSW,<
1) MOVE T2,T1 ;DESTINATION POINTER
1) MOVX T1,.GTHNS ;NUMBER TO NAME CONVERSION
1) SETO T3, ;-1 MEANS LOCAL HOST
1) GTHST% ;TRY GETTING INTERNET NAME
1) IFNJE.
1) MOVE T1,T2 ;GET POINTER BACK IN T1
1) ELSE.
1) MOVE T1,T2 ;GET POINTER BACK IN T1
1) HRROI T2,[ASCIZ/System/] ;DEFAULT NAME
1) SETZ T3,
1) SOUT%
1) ENDIF.
1) >
; JSYSM.MAC.8 & <7.FT3.MONITOR.STANFORD>JSYSM.MAC.4 18-Apr-89 1804 PAGE 3
1) HRROI T2,[ASCIZ / going down/] ;[7.1086] Finish header
LINE 11, PAGE 13
2) [System /] ;[7.1086]
2) SETZ T3,
2) SOUT
2) ERJMP .+1 ;[7.1086] Not when SOUTing to memory
2) HRROI T2,OURNAM ;[7.1086] Get our node name
2) SOUT% ;[7.1086] Put node name in string
2) ERJMP .+1 ;[7.1086] Shouldna happen
2) HRROI T2,[ASCIZ / going down/] ;[7.1086] Finish header
LINE 11, PAGE 15
1) Check other cluster systems for structure dismount instructions.
1)
LINE 11, PAGE 15
2) Check other cluster systems for
2) structure dismount instructions.
2)
LINE 1, PAGE 16
1) ^L SUBTTL CHKAC JSYS
LINE 47, PAGE 15
2)
2) ^L SUBTTL CHKAC JSYS
LINE 10, PAGE 22
1) SKIPE T1 ;IF NOT LOGGED IN, RETURN 0
1) HRLI T1,USRLH ;TURN THIS INTO A 36 BIT USER NUMBER
LINE 10, PAGE 21
2) SKIPE T1 ;IF NOT LOGGED IN, RETURN 0
2) HRLI T1,USRLH ;TURN THIS INTO A 36 BIT USER NUMBER
LINE 27, PAGE 23
1) XCTU [HRRZ 1,1] ;FORK HANDLE
1) CAIN 1,-5 ;WHOLE JOB?
LINE 27, PAGE 22
2) XCTU [HRRZ 1,1] ;FORK HANDLE
2) CAIN 1,-5 ;WHOLE JOB?
; JSYSM.MAC.8 & <7.FT3.MONITOR.STANFORD>JSYSM.MAC.4 18-Apr-89 1804 PAGE 4
LINE 3, PAGE 25
1) XSWAPCD ;[7.1200]
1)
LINE 3, PAGE 24
2) XSWAPCD ;[7.1200]
2)
LINE 3, PAGE 27
1) XSWAPCD ;[7.1200]
1)
LINE 3, PAGE 26
2) XSWAPCD ;[7.1200]
2)
LINE 3, PAGE 28
1) XSWAPCD ;[7.1200]
1)
LINE 3, PAGE 27
2) XSWAPCD ;[7.1200]
2)
LINE 3, PAGE 29
1) ; Tables for GETAB
1)
1) ;All tables defined with following macro which takes name of another macro to
LINE 3, PAGE 28
2) ; Tables for GETAB
2) ;All tables defined with following macro which takes name of another macro to
LINE 6, PAGE 30
1) XXX ;;FORMERLY JOBDIR
1) >;IFE STANSW
LINE 6, PAGE 29
2) XXX ;;FORMERLY JOBDIR
2) >;IFE STANSW
; JSYSM.MAC.8 & <7.FT3.MONITOR.STANFORD>JSYSM.MAC.4 18-Apr-89 1804 PAGE 5
LINE 29, PAGE 30
1) XXX PTYPAR,0,1,<@[MSEC1,,GTBPTY]> ;;[7.1200]
1) XXX SYMTAB,SYMTAB,GTBSIZ
LINE 29, PAGE 29
2) XXX PTYPAR,0,1,<@[MSEC1,,GTBPTY]> ;;[7.1200]
2) XXX SYMTAB,SYMTAB,GTBSIZ
LINE 38, PAGE 30
1) XXX NETRDY,0,10,<@[MSEC1,,GNTRDY]> ;;[7.1200]
1) XXX ;;FORMERLY IMPHRT
LINE 38, PAGE 29
2) XXX NETRDY,0,10,<@[MSEC1,,GNTRDY]> ;;[7.1200]
2) XXX ;;FORMERLY IMPHRT
LINE 60, PAGE 30
1) >
LINE 60, PAGE 29
2) IFN STANSW&PUPSW,<
2) XXX PUPPAR,PUPPAR,NPUPPR ;PUP PARAMETER TABLE
2) XXX PUPROU,PUPROU,NPNETS ;HOST NUMBER AND ROUTING TABLE
2) XXX PUPLSK,PUPLSK,NPUPUN ;LOCAL SOCKET NUMBERS,
2) XXX PUPLNH,0,NPUPUN,@[MSEC1,,GTBLNH] ;LOCAL NET/HOST NUMBERS, BSP LINKAGE
2) XXX PUPFPT,0,NPUPUN,@[MSEC1,,GTBFPT] ;FOREIGN PORTS
2) XXX PUPSTS,PUPSTS,NPUPUN ;PUP STATUS WORD
2) XXX PUPBUF,0,PUPBFZ*NPUPUN,@[MSEC1,,GTBBUF] ;STORAGE REGION FOR PUP DATA
2) XXX PUPSTA,PUPSTA,NPUPST,,.PUTA ;STATISTCS
2) XXX NVTPUP,0,NTTPNV,@[MSEC1,,GTBNVT] ;PUP NVT INFO (TTYPUP WORD)
2) XXX PUPPSI,0,NPUPUN,@[MSEC1,,GTBPSI] ;PUP PSI AND PNV/JOB INFORMATION
2) XXX PUPON,PUPON,1 ;ETHERNET UP/DOWN FLAG
2) >;IFN STANSW&PUPSW
2) >
LINE 6, PAGE 32
1) ;[7.1200] Call with T2/ global Job number, T3/ table number
1)
LINE 6, PAGE 31
2) ;[7.1200] Call with T2/ global Job number, T3/ table number
2)
; JSYSM.MAC.8 & <7.FT3.MONITOR.STANFORD>JSYSM.MAC.4 18-Apr-89 1804 PAGE 6
LINE 27, PAGE 33
1) HLRZ T1,T3 ;GET THE LOCAL INDEX
1) CALLX (MSEC1,LCL2GL) ;[7.1200] (T1/T1) Get the global job number
1) SETO T1, ;SHOULDN'T HAPPEN, RETURN -1
1) HRL T3,T1 ;CONSTRUCT NEW DEVUNT FOR USER
1) ENDIF.
1) MOVE T1,T3 ;PUT IT WHERE USER EXPECTS IT
1) RET ;DONE
1)
1) ^L
LINE 27, PAGE 32
2) HLRZ T1,T3 ;GET THE LOCAL INDEX
2) CALLX (MSEC1,LCL2GL) ;[7.1200] (T1/T1) Get the global job number
2) SETO T1, ;SHOULDN'T HAPPEN, RETURN -1
2) HRL T3,T1 ;CONSTRUCT NEW DEVUNT FOR USER
2) ENDIF.
2) MOVE T1,T3 ;PUT IT WHERE USER EXPECTS IT
2) RET ;DONE
2) ^L
LINE 50, PAGE 38
1)
1) XSWAPCD ;[7.1200]
1)
1) ^L SUBTTL SETSN JSYS
1) ;SUBSYSTEM STATISTICS LOGIC
LINE 1, PAGE 38
2) ^L SUBTTL SETSN JSYS
2)
2) XSWAPCD ;[7.1200]
2)
2) ;SUBSYSTEM STATISTICS LOGIC
LINE 3, PAGE 40
1) XSWAPCD ;[7.1200]
1)
LINE 3, PAGE 40
2) XSWAPCD ;[7.1200]
2)
; JSYSM.MAC.8 & <7.FT3.MONITOR.STANFORD>JSYSM.MAC.4 18-Apr-89 1804 PAGE 7
LINE 31, PAGE 41
1) CAIL T1,0 ;YES, LEGAL LINE NUMBER ?
1) CAIL T1,NLINES
1) RETERR (GTJIX2) ;NO
1) MOVE T2,T1 ;T2/ LINE NUMBER
1) CALLX (MSEC1,GTCJOB) ;[7.1200] (T2/T3) Get owning job number
1) JRST GETJI6 ;[7.1200] Jump if not active
1) CAIN T3,-1 ;IS THERE AN OWNING JOB?
1) JRST GETJI6 ;NO.
1) MOVE T2,T3 ;YES. PRESERVE JOB NUMBER
1) HLRZ T3,JOBPT(T2) ;GET CONTROLLING TTY FOR JOB
1) CAME T3,T1 ;SAME AS GIVEN TTY?
1) JRST GETJI1 ;NO, TTY IS ASSIGNED NOT CONTROLLING
1) MOVE T1,T2 ;SETUP JOB INDEX
1) ELSE. ;OTHERWISE, USER SPECIFIED A JOB NUMBER
1) CALLX (MSEC1,GL2LCL) ;[7.1200] (T1/T1) Convert it into a local job
1) RETERR() ;CFSSRV WILL RETURN THE RIGHT STUFF
1) ENDIF. ;FALL THROUGH
LINE 31, PAGE 41
2) CAIL T1,0 ;YES, LEGAL LINE NUMBER ?
2) CAIL T1,NLINES
2) RETERR (GTJIX2) ;NO
2) MOVE T2,T1 ;T2/ LINE NUMBER
2) CALLX (MSEC1,GTCJOB) ;[7.1200] (T2/T3) Get owning job number
2) JRST GETJI6 ;[7.1200] Jump if not active
2) CAIN T3,-1 ;IS THERE AN OWNING JOB?
2) JRST GETJI6 ;NO.
2) MOVE T2,T3 ;YES. PRESERVE JOB NUMBER
2) HLRZ T3,JOBPT(T2) ;GET CONTROLLING TTY FOR JOB
2) CAME T3,T1 ;SAME AS GIVEN TTY?
2) JRST GETJI1 ;NO, TTY IS ASSIGNED NOT CONTROLLING
2) MOVE T1,T2 ;SETUP JOB INDEX
2) ELSE. ;OTHERWISE, USER SPECIFIED A JOB NUMBER
2) CALLX (MSEC1,GL2LCL) ;[7.1200] (T1/T1) Convert it into a local job
2) RETERR() ;CFSSRV WILL RETURN THE RIGHT STUFF
2) ENDIF. ;FALL THROUGH
LINE 10, PAGE 45
1) ;GET MAGTAPE DENSITY
LINE 10, PAGE 45
2)
2) ;GET MAGTAPE DENSITY
; JSYSM.MAC.8 & <7.FT3.MONITOR.STANFORD>JSYSM.MAC.4 18-Apr-89 1804 PAGE 8
LINE 17, PAGE 45
1) ;GET MAGTAPE DATA MODE
LINE 18, PAGE 45
2)
2) ;GET MAGTAPE DATA MODE
LINE 24, PAGE 45
1) ;GET MAGTAPE RECORD SIZE
LINE 26, PAGE 45
2)
2) ;GET MAGTAPE RECORD SIZE
LINE 3, PAGE 48
1) XSWAPCD ;[7.1200]
1)
LINE 3, PAGE 48
2) XSWAPCD ;[7.1200]
2)
LINE 21, PAGE 49
1) XPKTAB: XADDR. (XPPEK) ;[7.1200] (1) Extended peek function
1)
LINE 21, PAGE 49
2) XPKTAB: XADDR. (XPPEK) ;[7.1200] (1) Extended peek function
2)
LINE 1, PAGE 52
1) ^L
LINE 54, PAGE 51
2)
2)
2) ^L
LINE 1, PAGE 58
1) ^L SUBTTL LOGIN JSYS
LINE 35, PAGE 56
2)
2) ^L SUBTTL LOGIN JSYS
; JSYSM.MAC.8 & <7.FT3.MONITOR.STANFORD>JSYSM.MAC.4 18-Apr-89 1804 PAGE 9
LINE 24, PAGE 64
1) CALL LDTACH ;[7456] Do the work
LINE 24, PAGE 62
2) IFN STANSW&PUPSW,<
2) CALL PNVDET ;IF PUP NVT, FLAG NO CARRIER-OFF PSI WANTED
2) >;IFN STANSW&PUPSW
2) CALL LDTACH ;[7456] Do the work
LINE 32, PAGE 74
1) PUSH P,T1
1) SKIPLE T2,CTRLTT(Q2) ;OTHER JOB NOW ATTACHED?
1) CALL BANNER ;YES, BANNER IT
1) POP P,T1
1) >;IFN STANSW
LINE 32, PAGE 72
2) SKIPLE T2,CTRLTT(Q2) ;OTHER JOB NOW ATTACHED?
2) CALL BANNER ;YES, BANNER IT
2) >;IFN STANSW
LINE 11, PAGE 75
1) MOVE T2,ATACLN ;T2/ LINE NUMBER
LINE 11, PAGE 73
2) IFN STANSW&PUPSW,<
2) CALL PNVABT ;BLOW AWAY PUP CONNECTION IF NECESSARY
2) >;IFN STANSW&PUPSW
2) MOVE T2,ATACLN ;T2/ LINE NUMBER
LINE 20, PAGE 76
1) HRLM Q3,JOBPT(T4) ;[7.1200]
1) MOVEI T1,.TTDES(Q3) ;[7.1200] T1/ Device Designator for terminal
LINE 20, PAGE 74
2) HRLM Q3,JOBPT(T4) ;[7.1200]
2) MOVEI T1,.TTDES(Q3) ;[7.1200] T1/ Device Designator for terminal
LINE 2, PAGE 80
1) ;Here when we are certain that it is OK to murder the target job
1)
LINE 2, PAGE 78
2) ;Here whenwe are certain that it is OK to murder the target job
2)
; JSYSM.MAC.8 & <7.FT3.MONITOR.STANFORD>JSYSM.MAC.4 18-Apr-89 1804 PAGE 10
LINE 9, PAGE 80
1) CALL ELOGOO ;[7.1260] (T1/) Set PSI to logout target job
1) SKIPGE T2,CTRLTT(P2) ;[7.1260] Does job have a controlling terminal?
1) IFSKP. ;[7.1260] Yes, we need to clear output buffers
1) CALL LCKTTY ;[7.1260] (T2/T2) Prevent deallocation
1) CAIA ;[7.1260] Couldn't lock, skip over buffer clear
1) CALL TTCOBF ;[7.1260] (T2/) Clear output buffers
1) CALL ULKTTY ;[7.1260] (T2/) Counteract the LCKTTY
1) ENDIF. ;[7.1260]
1) CALL CLRJSB ;[7.1260] () Let go of the JSB
1) OKSKED
LINE 9, PAGE 78
2) CALL ELOGOO ;[7.1260] (T1/) Set PSI to logout target job
2) SKIPGE T2,CTRLTT(P2) ;[7.1260] Does job have a controlling terminal?
2) IFSKP. ;[7.1260] Yes, we need to clear output buffers
2) CALL LCKTTY ;[7.1260] (T2/T2) Prevent deallocation
2) CAIA ;[7.1260] Couldn't lock, skip over buffer clear
2) CALL TTCOBF ;[7.1260] (T2/) Clear output buffers
2) CALL ULKTTY ;[7.1260] (T2/) Counteract the LCKTTY
2) ENDIF. ;[7.1260]
2) CALL CLRJSB ;[7.1260] () Let go of the JSB
2) OKSKED
LINE 11, PAGE 81
1) JRST [ OKSKD1 ; no, fail
1) RET] ; ..
1) HRRZ 2,JOBPT(1) ;TOP FORK OF OBJECT JOB
LINE 11, PAGE 79
2) JRST [ OKSKD1 ; no, fail
2) RET] ; ..
2) HRRZ 2,JOBPT(1) ;TOP FORK OF OBJECT JOB
LINE 2, PAGE 83
1) SJLGO4: SETO T1, ;CLEAR USER MAP OF TOP FORK
1) MOVSI 2,<.FHSLF!FH%EPN> ;THIS FORK
1) MOVE 3,[PM%CNT!PM%EPN!<1000>B35] ;REQUEST 1000 PAGES
1) PMAP
1) ERJMP .+1
1) MOVE Q3,FORKX ;[7.1200]
1) RESET ;CLEAN UP JSB STACK
LINE 2, PAGE 81
2) SJLGO4: SETO T1, ;CLEAR USER MAP OF TOP FORK
2) MOVSI 2,<.FHSLF!FH%EPN> ;THIS FORK
2) MOVE 3,[PM%CNT!PM%EPN!<1000>B35] ;REQUEST 1000 PAGES
2) PMAP
2) ERJMP .+1
2) MOVE Q3,FORKX ;[7.1200]
; JSYSM.MAC.8 & <7.FT3.MONITOR.STANFORD>JSYSM.MAC.4 18-Apr-89 1804 PAGE 11
2) RESET ;CLEAN UP JSB STACK
LINE 11, PAGE 84
1) CALL LOGTOT ;SUMMARY TO LOG TTY
LINE 11, PAGE 82
2) IFN STANSW&SUMXSW,<
2) MOVX T1,.NULIO ;DON'T CLUTTER UP LOGTTY
2) >;IFN STANSW&SUMXSW
2) CALL LOGTOT ;SUMMARY TO LOG TTY
LINE 20, PAGE 84
1) ERJMP .+1 ;ignore errors
1) TXZ 2,TT%PGM ;TO ALLOW THE MESSAGE TO COME OUT
1) STPAR
1) ERJMP .+1 ;ignore errors
1) CALL LOGTOT ;[7.1230] (T1/) Spit out the logout message
LINE 23, PAGE 82
2) ERJMP .+1 ;ignore errors
2) TXZ 2,TT%PGM ;TO ALLOW THE MESSAGE TO COME OUT
2) STPAR
2) ERJMP .+1 ;ignore errors
2) CALL LOGTOT ;[7.1230] (T1/) Spit out the logout message
LINE 41, PAGE 84
1) SKIPGE T1,CTRLTT ;[7.1260] Any controlling terminal here
1) JRST LOG2 ;[7.1260] Nope
1) TXO T1,.TTDES ;[7.1260] Make a terminal designator for it
1) CFOBF% ;[7.1260] Flush output buffer for good measure
1) ERJMP .+1 ;[7.1260] Ignore errors
1) ^L
1) ;[7.1260] Here to hang up connection depending on variables set by x-SETSPD.
1)
1) SKIPGE T2,CTRLTT ;[7.1260] Controlling terminal?
1) JRST LOG2 ;[7.1260] Detached, don't try to hang up line
1) MOVE T1,JOBNO ;[7.1260] Get local job number
1) SKIPE JOBDIR(T1) ;[7.1260] Job logged in?
1) IFSKP. ;[7.1260] Nope, job is not logged in
1) SKIPE HNGU0F ;[7.1260] Hangup if not logged in?
1) CALL TTHNGU ;[7.1260] (T2/) Hangup line
1) ELSE. ;[7.1260] Yes, job is logged in
1) SKIPE HNGU1F ;[7.1260] Hangup if not logged in?
1) CALL TTHNGU ;[7.1260] (T2/) Hangup line
1) ENDIF. ;[7.1260]
1)
1) IFN STANSW,<
LINE 44, PAGE 82
2) SKIPGE T1,CTRLTT ;[7.1260] Any controlling terminal here
2) JRST LOG2 ;[7.1260] Nope
; JSYSM.MAC.8 & <7.FT3.MONITOR.STANFORD>JSYSM.MAC.4 18-Apr-89 1804 PAGE 12
2) TXO T1,.TTDES ;[7.1260] Make a terminal designator for it
2) CFOBF% ;[7.1260] Flush output buffer for good measure
2) ERJMP .+1 ;[7.1260] Ignore errors
2) ^L
2) ;[7.1260] Here to hang up connection depending on variables set by x-SETSPD.
2)
2) SKIPGE T2,CTRLTT ;[7.1260] Controlling terminal?
2) JRST LOG2 ;[7.1260] Detached, don't try to hang up line
2) MOVE T1,JOBNO ;[7.1260] Get local job number
2) SKIPE JOBDIR(T1) ;[7.1260] Job logged in?
2) IFSKP. ;[7.1260] Nope, job is not logged in
2) SKIPE HNGU0F ;[7.1260] Hangup if not logged in?
2) CALL TTHNGU ;[7.1260] (T2/) Hangup line
2) ELSE. ;[7.1260] Yes, job is logged in
2) SKIPE HNGU1F ;[7.1260] Hangup if not logged in?
2) CALL TTHNGU ;[7.1260] (T2/) Hangup line
2) ENDIF. ;[7.1260]
2) IFN STANSW,<
LINE 20, PAGE 85
1)
1) ;[7.1051] Here after job's logout message printed and line is hung up,
LINE 1, PAGE 84
2) ^L
2) ;[7.1051] Here after job's logout message printed and line is hung up,
LINE 48, PAGE 88
1) CAIE T2,.TT100 ;RESET VT100 TO POWER UP CONFIGURATION FIRST
LINE 48, PAGE 88
2) IFE SUMXSW,<
2) CAIE T2,.TT100 ;RESET VT100 TO POWER UP CONFIGURATION FIRST
LINE 68, PAGE 88
1) MOVEI T1,[BYTE (8) 032,.STPL] ;ADM3 SPECIAL CLEAR
LINE 69, PAGE 88
2) >;IFE SUMXSW
2) MOVEI T1,[BYTE (8) 032,.STPL] ;ADM3 SPECIAL CLEAR
LINE 17, PAGE 92
1) LOGONM::MOVE T1,LOGDES ;Load the logging designator
1) CALL LOGDOB ;(T1/T1) Check designator and do a DOBE
LINE 17, PAGE 92
2) LOGONM::
2) IFE STANSW&SUMXSW,<
2) MOVE T1,LOGDES ;Load the logging designator
2) CALL LOGDOB ;(T1/T1) Check designator and do a DOBE
; JSYSM.MAC.8 & <7.FT3.MONITOR.STANFORD>JSYSM.MAC.4 18-Apr-89 1804 PAGE 13
LINE 24, PAGE 92
1) LOGON1: MOVEI T1,.USLGI ;Load the login function for USAGE
LINE 26, PAGE 92
2) >;End of IFE STANSW&SUMEXSW
2) LOGON1: MOVEI T1,.USLGI ;Load the login function for USAGE
LINE 37, PAGE 92
1)
1) Action: Use the DOB% facility to produce a dump and submit an SPR.
1) Also, if you have a procedure for reproducing this problem
1) please include it with the SPR.
1) >)
LINE 40, PAGE 92
2) >)
LINE 18, PAGE 95
1) LOGCJ1:
1) IFN NICSW,<
1) RET
1) >
1) MOVE T1,JOBNO ;[7.1006] Load the internal job number
1) SKIPN JOBDIR(T1) ;[7.1006] Accounting for this job?
1) RET ;[7.1006] Not for not logged in jobs
1) CALL SESRES ;[7.1006] (/) Reset this job's session info
1) MOVE T1,LOGDES ;Load the logging designator
1) CALL LOGUSD ;(T1,T2/) No, log job number and time
1) MOVEI T1,.USSEN ;Load the session entry code
LINE 18, PAGE 95
2) LOGCJ1: MOVE T1,JOBNO ;[7.1006] Load the internal job number
2) SKIPN JOBDIR(T1) ;[7.1006] Accounting for this job?
2) RET ;[7.1006] Not for not logged in jobs
2) CALL SESRES ;[7.1006] (/) Reset this job's session info
2) IFE STANSW&SUMXSW,< ;Don't clutter up LOGTTY
2) MOVE T1,LOGDES ;Load the logging designator
2) CALL LOGUSD ;(T1,T2/) No, log job number and time
2) >;End of IFE STANSW&SUMXSW
2) MOVEI T1,.USSEN ;Load the session entry code
; JSYSM.MAC.8 & <7.FT3.MONITOR.STANFORD>JSYSM.MAC.4 18-Apr-89 1804 PAGE 14
LINE 5, PAGE 96
1) ;[7.1272] T1/ offset to the other jobs JSB (or 0 if current job)
1) ;[7456] T2/ local job number
LINE 5, PAGE 96
2) ;[7.1272] T1/ offset to the other jobs JSB (or 0 if current job)
2) ;[7456] T2/ local job number
LINE 12, PAGE 99
1) DETMS0: ASUBR <ATAJN,ATALN> ;JOB # , LINE #
1) MOVE T1,LOGDES ;Load the logging designator
LINE 12, PAGE 99
2) DETMS0:
2) IFE STANSW&SUMXSW,<
2) ASUBR <ATAJN,ATALN> ;JOB # , LINE #
2) MOVE T1,LOGDES ;Load the logging designator
LINE 22, PAGE 99
1)
LINE 24, PAGE 99
2) >;End of IFE STANSW&SUMXSW -- Note that we fall into ATAMSG
2)
LINE 31, PAGE 99
1) ATAMSG: ASUBR <ATAJN,ATALN> ;Place to save job #, line #
1) MOVE T1,LOGDES ;Load the logging designator
LINE 34, PAGE 99
2) ATAMSG:
2) IFE STANSW&SUMXSW,<
2) ASUBR <ATAJN,ATALN> ;Place to save job #, line #
2) MOVE T1,LOGDES ;Load the logging designator
LINE 1, PAGE 100
1) ^L
LINE 51, PAGE 99
2) >;End of IFE STANSW&SUMXSW
2) IFN STANSW&SUMXSW,<
2) RET ;NO JUNK ON SUMEX'S LOGGING TTY
2) >;End of IFN STANSW&SUMXSW
2) ^L
; JSYSM.MAC.8 & <7.FT3.MONITOR.STANFORD>JSYSM.MAC.4 18-Apr-89 1804 PAGE 15
LINE 31, PAGE 101
1) >;IFE STANSW
1) ENDIF. ;End of case of logged in job
LINE 31, PAGE 100
2) >;End of IFE STANSW
2) ENDIF. ;End of case of logged in job
LINE 45, PAGE 101
1) LOGJO2:
1) IFE STANSW,<
1) HRROI T2,[ASCIZ /,
1) at /] ;Here to add a crlf and the current date time
1) >
1) IFN STANSW,<
1) HRROI T2,[ASCIZ /, at /]
1) >
1) CALL LOGMES ;(T1,T2/T1)
LINE 45, PAGE 100
2) LOGJO2:
2) IFE STANSW,<
2) HRROI T2,[ASCIZ /,
2) at /] ;Here to add a crlf and the current date time
2) >;End of IFE STANSW
2) IFN STANSW,<
2) HRROI 2,[ASCIZ/, at /]
2) >;End of IFN STANSW
2) CALL LOGMES ;(T1,T2/T1)
LINE 1, PAGE 112
1) ^L SUBTTL USAGE JSYS -- Set Checkpoint Interval
LINE 34, PAGE 110
2)
2) ^L SUBTTL USAGE JSYS -- Set Checkpoint Interval
LINE 8, PAGE 121
1)
1) MOVEI T1,.USJNO ;[7456] Load the job code
LINE 8, PAGE 119
2) MOVEI T1,.USJNO ;[7456] Load the job code
; JSYSM.MAC.8 & <7.FT3.MONITOR.STANFORD>JSYSM.MAC.4 18-Apr-89 1804 PAGE 16
LINE 15, PAGE 121
1) LOAD T2,UQFCN,(Q1) ;[7.1279] Load the entry type
1) CAIN T2,.USENT ;[7.1279] Need to validate the job number?
1) IFSKP. ;[7.1279] Yes, in fact we do
1) CALL GL2LCL ;[7.1279][7456] (T1/T1) Get local job number
1) JRST UFNINX ;[7.1279][7.1049] Return error code from GL2LCL
1) STOR T1,UQLJI,(Q1) ;[7.1279][7456] Save it in the Queue Header
1) ENDIF. ;[7.1279]
1)
LINE 14, PAGE 119
2) LOAD T2,UQFCN,(Q1) ;[7.1279] Load the entry type
2) CAIN T2,.USENT ;[7.1279] Need to validate the job number?
2) IFSKP. ;[7.1279] Yes, in fact we do
2) CALL GL2LCL ;[7.1279][7456] (T1/T1) Get local job number
2) JRST UFNINX ;[7.1279][7.1049] Return error code from GL2LCL
2) STOR T1,UQLJI,(Q1) ;[7.1279][7456] Save it in the Queue Header
2) ENDIF. ;[7.1279]
2)
LINE 1, PAGE 125
1) ^L SUBTTL USAGE JSYS -- Compute Length of User Entry
1)
LINE 1, PAGE 123
2) ^L SUBTTL USAGE JSYS -- Compute Length of User Entry
2)
LINE 1, PAGE 129
1) ^L SUBTTL USAGE JSYS -- Get Length of Disk Usage Block
LINE 30, PAGE 126
2)
2) ^L SUBTTL USAGE JSYS -- Get Length of Disk Usage Block
LINE 1, PAGE 132
1) ^L SUBTTL USAGE JSYS -- Wait For Free Space
LINE 43, PAGE 128
2)
2) ^L SUBTTL USAGE JSYS -- Wait For Free Space
; JSYSM.MAC.8 & <7.FT3.MONITOR.STANFORD>JSYSM.MAC.4 18-Apr-89 1804 PAGE 17
LINE 16, PAGE 135
1) ENACT:: STKVAR <<ENFDB,11>,ENJFN> ;[7.1010]
1) LOCK ACTLCK
LINE 16, PAGE 131
2) ENACT:: STKVAR <<ENFDB,11>,ENJFN> ;[7.1010]
2) LOCK ACTLCK
LINE 4, PAGE 138
1) UFNSA2: LOCK ASCLOK ;Lock database and pointer
1) EXCH Q1,ASCPTR ;Store new pointer, get old one
LINE 4, PAGE 134
2) UFNSA2:
2) LOCK ASCLOK ;Lock database and pointer
2) EXCH Q1,ASCPTR ;Store new pointer, get old one
LINE 35, PAGE 139
1) Cause: If the GTJFN (GJ%PHY,GJ%OLD) or the OPENF (OF%RD, OF%WR, OF%RTD) on the
1) checkpoint file ACCOUNT:CHECKPOINT.BIN.1 fails, then another GTJFN
1) (GJ%FOU) and OPENF (OF%WR) is attempted in order to create a new
1) checkpoint file. If the second try GTJFN and OPENF fail, the UXXCRE
1) BUGHLT occcurs.
1)
1) Action: Analyze the error code from the failing JSYS, and use EDDT to
1) bring the system up without accounting and repair the problem.
1) This can be done by putting a RET at USGINI.
1) >) ;[7.1279]
1) JRST USGIN1] ;TRY AGAIN
LINE 35, PAGE 135
2) Cause: If the GTJFN (GJ%PHY,GJ%OLD) or the OPENF (OF%RD, OF%WR, OF%RTD) on the
2) checkpoint file ACCOUNT:CHECKPOINT.BIN.1 fails, then another GTJFN
2) (GJ%FOU) and OPENF (OF%WR) is attempted in order to create a new
2) checkpoint file. If the second try GTJFN and OPENF fail, the UXXCRE
2) BUGHLT occcurs.
2)
2) Action: Analyze the error code from the failing JSYS, and use EDDT to patch the
2) system so that you can fix the checkpoint file so that the error does
2) not happen.
2) >) ;[7.1279]
2) JRST USGIN1] ;TRY AGAIN
; JSYSM.MAC.8 & <7.FT3.MONITOR.STANFORD>JSYSM.MAC.4 18-Apr-89 1804 PAGE 18
LINE 11, PAGE 140
1) Cause: USGINI invoked OPENF (OF%RD, OF%WR, OF%RTD), which failed to open the
1) USAGE file ACCOUNT:SYSTEM-DATA.BIN.
1)
1) Action: Use EDDT to bring the system up without accounting and repair the
1) problem. This can be done by putting a RET at USGINI.
1) >) ;[7.1279]
1) HRRZ T1,T1 ;GET RID OF OPEN FLAGS
LINE 11, PAGE 136
2) Cause: USGINI invoked OPENF (OF%RD, OF%WR, OF%RTD), which failed to open the
2) USAGE file ACCOUNT:SYSTEM-DATA.BIN.
2)
2) Action: Use EDDT to bring the system up without accounting and repair the
2) problem.
2) >) ;[7.1279]
2) HRRZ T1,T1 ;GET RID OF OPEN FLAGS
LINE 23, PAGE 140
1) GTFDB%
1) ERJMP .+1
1) HRRZS T4 ;PAGE # ONLY
LINE 23, PAGE 136
2) GTFDB
2) HRRZS T4 ;PAGE # ONLY
LINE 30, PAGE 140
1) reported by FFFFP% is not the last page in the file. This means
1) that the file has holes in it, or lost pages.
1)
1) Action: The USAGE file ACCOUNT:SYSTEM-DATA.BIN should be repaired or deleted.
1) >,,<DB%NND>) ;[7.1279][7.1210]
1) JUMPE Q1,USGIN4 ;EMPTY FILE IF 0
LINE 29, PAGE 136
2) reported by FFFFP% is not the last page in the file. This means
2) that the file has holes in it, or lost pages.
2)
2) Action: The USAGE file ACCOUNT:SYSTEM-DATA.BIN should be repaired or deleted.
2) >,,<DB%NND>) ;[7.1279][7.1210]
2) JUMPE Q1,USGIN4 ;EMPTY FILE IF 0
; JSYSM.MAC.8 & <7.FT3.MONITOR.STANFORD>JSYSM.MAC.4 18-Apr-89 1804 PAGE 19
LINE 13, PAGE 141
1) Cause: The file ACCOUNT:CHECKPOINT.BIN.1 could not be referenced for one
1) reason or another. The code first attempts a GTJFN (GJ%PHY, GJ%OLD)
1) and an OPENF (OF%RD, OF%WR, OF%RTD), one of which must fail for UXXCKP
1) to be a possibility.
1)
1) After the above GTJFN or OPENF has failed, then a GTJFN (GJ%PHY,
1) GJ%NEW) is attempted. If this succeeds, then UXXCKP will occur if a
1) failure happens on one of the following: the subsequent OPENF
1) (OF%WR,OF%RD), the call to ASGSWP to allocate CKPSIZ words, or the SOUT
1) writing CKPSIZ words to the checkpoint file.
1)
1) If the GTJFN (GJ%PHY, GJ%NEW) fails, then another GTJFN (GJ%PHY,
1) GJ%DEL) is attempted, and its failure will cause UXXCKP. If this GTJFN
1) succeeds, however, then a CHFDB (turning off FB%DEL to undelete the
1) file) is done, and its failure will also cause UXXCKP.
1)
1) Action: Use EDDT to patch the system so that you can bring up the system
1) without the checkpoint file being referenced. This can be done by
1) putting a RET at USGINI and bringing the system up. Then get the
1) checkpoint file into a state such that none of the above failures
1) will occur.
1) >) ;[7.1279]
1) JRST USGIN5]
LINE 13, PAGE 137
2) Cause: The file ACCOUNT:CHECKPOINT.BIN.1 could not be referenced for one
2) reason or another. The code first attempts a GTJFN (GJ%PHY, GJ%OLD)
2) and an OPENF (OF%RD, OF%WR, OF%RTD), one of which must fail for UXXCKP
2) to be a possibility.
2)
2) After the above GTJFN or OPENF has failed, then a GTJFN (GJ%PHY,
2) GJ%NEW) is attempted. If this succeeds, then UXXCKP will occur if a
2) failure happens on one of the following: the subsequent OPENF
2) (OF%WR,OF%RD), the call to ASGSWP to allocate CKPSIZ words, or the SOUT
2) writing CKPSIZ words to the checkpoint file.
2)
2) If the GTJFN (GJ%PHY, GJ%NEW) fails, then another GTJFN (GJ%PHY,
2) GJ%DEL) is attempted, and its failure will cause UXXCKP. If this GTJFN
2) succeeds, however, then a CHFDB (turning off FB%DEL to undelete the
2) file) is done, and its failure will also cause UXXCKP.
2)
2) Action: Use EDDT to patch the system so that you can bring up the system
2) without the checkpoint file being referenced. Then get the checkpoint
2) file into a state such that none of the above failures will occur.
2) >) ;[7.1279]
2) JRST USGIN5]
; JSYSM.MAC.8 & <7.FT3.MONITOR.STANFORD>JSYSM.MAC.4 18-Apr-89 1804 PAGE 20
LINE 9, PAGE 142
1) Cause: The ACCOUNT:CHECKPOINT.BIN file is not in the correct format for this
1) monitor's configuration. This can occur if the value of NJOBS has
1) changed from the previous monitor or if the size of the checkpoint
1) records has changed. This BUGCHK can be expected if the monitor
1) version has changed or a monitor with a different configuration has
1) been loaded.
1)
1) Action: TOPS-20 will rebuild the checkpoint file, no further action is needed.
1) >,,<DB%NND>) ;[7.1279][7.1210]
1) CALL UNMAPC
LINE 9, PAGE 138
2) Cause: The ACCOUNT:CHECKPOINT.BIN file is not in the correct format for this
2) monitor's configuration. This can occur if the value of NJOBS has
2) changed from the previous monitor or if the size of the checkpoint
2) records has changed. This BUGCHK can be expected if the monitor
2) version has changed or a monitor with a different configuration has
2) been loaded.
2)
2) Action: TOPS-20 will rebuild the checkpoint file, no further action is needed.
2) >,,<DB%NND>) ;[7.1279][7.1210]
2) CALL UNMAPC
LINE 40, PAGE 143
1) >) ;[7.1279]
LINE 40, PAGE 139
2)
2) >) ;[7.1279]
LINE 36, PAGE 146
1) USGIOE: MOVE T1,USGEOF ;REPORT BAD PAGE
1) LSH T1,-PGSFT
1) BUG.(CHK,UXXWER,JSYSM,HARD,<Write error in usage file>,<<T1,PAGE>>,<
1)
1) Cause: A SOUT or UFPGS error occurred while trying to write to the USAGE file
1) ACCOUNT:SYSTEM-DATA.BIN. This indicates that there is a hard error in
1) the file.
1)
1) Action: The USAGE file ACCOUNT:SYSTEM-DATA.BIN must be repaired or deleted.
1)
1) Data: PAGE - Page number in USAGE file
1) >,,<DB%NND>) ;[7.1279][7.1210]
1) RET ;CONTINUE
LINE 36, PAGE 142
2) USGIOE: MOVE T1,USGEOF ;REPORT BAD PAGE
2) LSH T1,-PGSFT
2) BUG.(CHK,UXXWER,JSYSM,HARD,<Write error in usage file>,<<T1,PAGE>>,<
; JSYSM.MAC.8 & <7.FT3.MONITOR.STANFORD>JSYSM.MAC.4 18-Apr-89 1804 PAGE 21
2)
2) Cause: A SOUT or UFPGS error occurred while trying to write to the USAGE file
2) ACCOUNT:SYSTEM-DATA.BIN. This indicates that there is a hard error in
2) the file.
2)
2) Action: The USAGE file ACCOUNT:SYSTEM-DATA.BIN must be repaired or deleted.
2)
2) Data: PAGE - Page number in USAGE file
2) >,,<DB%NND>) ;[7.1279][7.1210]
2) RET ;CONTINUE
LINE 8, PAGE 155
1) Cause: The USAGE file ACCOUNT:SYSTEM-DATA.BIN could not be created. This error
1) will occur if a JFN cannot be obtained on the file or if it cannot be
1) opened.
1)
1) Data: ERRCOD - JSYS error code
1) >,,<DB%NND>) ;[7.1279][7.1210]
1) RET] ;JUST EXIT - NOTHING DONE
LINE 8, PAGE 151
2) Cause: The USAGE file ACCOUNT:SYSTEM-DATA.BIN could not be created. This error
2) will occur if a JFN cannot be obtained on the file or if it cannot be
2) opened.
2)
2) Data: ERRCOD - JSYS error code
2) >,,<DB%NND>) ;[7.1279][7.1210]
2) RET] ;JUST EXIT - NOTHING DONE
LINE 19, PAGE 155
1) Cause: This bug indicates that the USAGE file ACCOUNT:SYSTEM-DATA.BIN could
1) not be opened. This will occur if a JFN cannot be obtained on the file
1) or if the file cannot be opened.
1)
1) Data: ERRCOD - JSYS error code
1) >,,<DB%NND>) ;[7.1279][7.1210]
1) RET] ;TOUGH AGAIN
LINE 19, PAGE 151
2) Cause: This bug indicates that the USAGE file ACCOUNT:SYSTEM-DATA.BIN could
2) not be opened. This will occur if a JFN cannot be obtained on the file
2) or if the file cannot be opened.
2)
2) Data: ERRCOD - JSYS error code
2) >,,<DB%NND>) ;[7.1279][7.1210]
2) RET] ;TOUGH AGAIN
; JSYSM.MAC.8 & <7.FT3.MONITOR.STANFORD>JSYSM.MAC.4 18-Apr-89 1804 PAGE 22
LINE 35, PAGE 155
1) CLOSF% ;CLOSE OUT FILE
1) BUG.(CHK,UXXCL3,JSYSM,HARD,<Unable to close usage file>,<<T1,ERRCOD>>,<
1)
1) Cause: This bug indicates that TOPS-20 could not CLOSF the USAGE file
1) ACCOUNT:SYSTEM-DATA.BIN. This bug is highly unlikely unless the JFN
1) has been lost.
1)
1) Action: Look at the JSYS error code and figure out what could have happened.
1)
1) Data: ERRCOD - JSYS error code
1) >,,<DB%NND>) ;[7.1279][7.1210]
1) SETZM USGEOF ;SETUP FOR NEW FILE
LINE 35, PAGE 151
2) CLOSF ;CLOSE OUT FILE
2) BUG.(CHK,UXXCL3,JSYSM,HARD,<Unable to close usage file>,,<
2)
2) Cause: This bug indicates that TOPS-20 could not CLOSF the USAGE file
2) ACCOUNT:SYSTEM-DATA.BIN. This bug is highly unlikely unless the JFN
2) has been lost.
2)
2) Data: ERRCOD - JSYS error code
2) >,,<DB%NND>) ;[7.1279][7.1210]
2) SETZM USGEOF ;SETUP FOR NEW FILE
LINE 7, PAGE 160
1) LINE 7, PAGE 156
2)
2)
2)
2)
2)
2)