Trailing-Edge
-
PDP-10 Archives
-
SRI_NIC_PERM_SRC_1_19910112
-
7/ft3/monitor/stanford/disc.dif
There are no other files named disc.dif in the archive.
; DISC.MAC.1 & <MONITOR>DISC.MAC.2 24-Feb-89 1711 PAGE 1
LINE 1, PAGE 1
1) ;[MACBETH]SRC:<7.FT2.MONITOR.STANFORD>DISC.MAC.2, 6-Apr-88 01:54:25, Edit by A.APPLEHACKS
1) ; FT7.2 Merge
1) ; UPD ID= 8642, RIP:<7.MONITOR>DISC.MAC.11, 16-Feb-88 13:46:07 by GSCOTT
LINE 1, PAGE 1
2) ;[SRI-NIC]SRC:<MONITOR>DISC.MAC.2, 10-Nov-88 16:33:18, Edit by MKL
2) ; v7 merge
2) ;;SS:<6-1-MONITOR>DISC.MAC.7, 10-Mar-86 10:16:46, Edit by KNIGHT
2) ;; Crispin's changes for renames on FB%NDL files
2) ;;SS:<6-1-MONITOR>DISC.MAC.6, 7-Mar-86 12:54:12, Edit by KNIGHT
2) ;; R. Ace's patches for FB%NDL files getting index blocks released
2) ;;SS:<6-1-MONITOR>DISC.MAC.5, 20-Nov-85 16:57:54, Edit by KNIGHT
2) ;; Remove superfluous (and dangerous) instruction at DELFI6-2.
2) ;;SS:<6-1-MONITOR>DISC.MAC.3, 29-Oct-85 11:22:43, Edit by KNIGHT
2) ;; Update last reader (under separate NIC conditional, not STANSW&SUMXSW)
2) ;; Update last writer, etc, on file only if have JFN
2) ;; Zero backup words on rename/supercede
2) ;[SU-SCORE.ARPA]PS:<6-1-MONITOR>DISC.MAC.76, 8-Mar-86 00:48:25, Edit by BILLW
2) ;patch to prevent loss of pages from non-deleteable files (MRC/ACE)
2) ;[SU-SCORE.ARPA]PS:<6-1-MONITOR>DISC.MAC.75, 22-Nov-85 00:55:30, Edit by BILLW
2) ; Bob knight's delete/expunge long file bugfix.
2) ;<6-1-MONITOR.FT6>DISC.MAC.2, 12-Aug-85 17:03:14, Edit by WHP4
2) ;Stanford changes:
2) ; Don't generate a FILBAT buginf if process is syserr fork.
2) ; CWR's extensions to attribute lookup code
2) ;SUMEX/NIC changes:
2) ; Update LAST READER at OPENF1
2)
2) ; UPD ID= 8642, RIP:<7.MONITOR>DISC.MAC.11, 16-Feb-88 13:46:07 by GSCOTT
LINE 11, PAGE 1
1) ;[MACBETH.STANFORD.EDU]SRC:<7.FT1.MONITOR.STANFORD>DISC.MAC.4, 16-Feb-88 07:06:05, Edit by A.ALDERSON
1) ; Add ";" to comment (dropped in merge)
1) ;[MACBETH]SRC:<7.FT1.MONITOR.STANFORD>DISC.MAC.2, 6-Feb-88 19:34:00, Edit by A.APPLEHACKS
1) ; FT7 Merge
1) ; ( can't see what non-ps stuff there was here. -ESC)
1) ;
1) ;SIERRA::SRC:<6.1.MONITOR.STANFORD>DISC.MAC.77, 23-Oct-86 11:58:21, Edit by GROSSMAN
1) ;Add Paul Hegarty's non-PS login stuff
1) ;
1) ; UPD ID= 243, RIP:<7.MONITOR>DISC.MAC.7, 4-Nov-87 16:39:53 by MCCOLLUM
LINE 32, PAGE 1
2) ; UPD ID= 243, RIP:<7.MONITOR>DISC.MAC.7, 4-Nov-87 16:39:53 by MCCOLLUM
; DISC.MAC.1 & <MONITOR>DISC.MAC.2 24-Feb-89 1711 PAGE 2
LINE 63, PAGE 1
1) ;------------------------- Autopatch Tape # 13 -------------------------
1) ; *** Edit 7246 to DISC.MAC by MCCOLLUM on 18-Feb-86, for SPR #20334
LINE 75, PAGE 1
2) ; *** Edit 7246 to DISC.MAC by MCCOLLUM on 18-Feb-86, for SPR #20334
LINE 71, PAGE 1
1) ;------------------------- Autopatch Tape # 12 -------------------------
1) ; Edit 7118 to DISC.MAC by PRATT on 8-Aug-85, for SPR #18505 (TCO 6-1-1510)
1) ; Fix problems with special characters in filenames when doing spooled output.
1) ;[SU-SCORE.ARPA]PS:<6-1-MONITOR>DISC.MAC.76, 8-Mar-86 00:48:25, Edit by BILLW
1) ;patch to prevent loss of pages from non-deleteable files (MRC/ACE)
1) ;[SU-SCORE.ARPA]PS:<6-1-MONITOR>DISC.MAC.75, 22-Nov-85 00:55:30, Edit by BILLW
1) ; Bob knight's delete/expunge long file bugfix.
1) ;<6-1-MONITOR.FT6>DISC.MAC.2, 12-Aug-85 17:03:14, Edit by WHP4
1) ; FT6 merge
1) ;Stanford changes:
1) ; Don't generate a FILBAT buginf if process is syserr fork.
1) ; CWR's extensions to attribute lookup code
1) ;SUMEX changes:
1) ; Update LAST READER at OPENF1
1) ;
1) ; UPD ID= 2242, SNARK:<6.1.MONITOR>DISC.MAC.79, 19-Jun-85 14:42:23 by MOSER
LINE 82, PAGE 1
2) ; Edit 7118 to DISC.MAC by PRATT on 8-Aug-85, for SPR #18505 (TCO 6-1-1510)
2) ; Fix problems with special characters in filenames when doing spooled output.
2) ; UPD ID= 2242, SNARK:<6.1.MONITOR>DISC.MAC.79, 19-Jun-85 14:42:23 by MOSER
LINE 15, PAGE 14
1) TRNE F1,OF%PDT ;SUPPRESS REFERENCE UPDATE?
LINE 15, PAGE 14
2) IFE NICSW,<
2) TRNE F1,OF%PDT ;SUPPRESS REFERENCE UPDATE?
LINE 1, PAGE 15
1) OPENF0: SKIPN B,.FBADR(A) ;GET DISK ADDRESS
LINE 39, PAGE 14
2) >;IFE NICSW
{Skipped 1 page and 1 line}
2) OPENF0: SKIPN B,.FBADR(A) ;GET DISK ADDRESS
; DISC.MAC.1 & <MONITOR>DISC.MAC.2 24-Feb-89 1711 PAGE 3
LINE 26, PAGE 17
1) IFN STANSW&SUMXSW,<
1) LOAD B,FBVER,(A) ;CHECK FDB VERSION
LINE 26, PAGE 17
2) IFN NICSW,<
2) LOAD B,FBVER,(A) ;CHECK FDB VERSION
LINE 35, PAGE 17
1) >;IFN STANSW&SUMXSW
1) AOS .FBCNT(A)
LINE 35, PAGE 17
2) >;IFN NICSW
2) AOS .FBCNT(A)
LINE 38, PAGE 19
1) ENDIF.
LINE 38, PAGE 19
2) IFN NICSW,<
2) CALL UPDWTR ;UPDATE THE FILE'S WRITER AND JUNK
2) >;IFN NICSW
2) ENDIF.
LINE 1, PAGE 20
1) ;HERE TO OPEN A LONG FILE
LINE 1, PAGE 20
2) IFN NICSW,<
2) ; Here to update the writer and other attributes of a file
2) UPDWTR: TRNE F1,OF%PDT ;SUPPRESS REFERENCE UPDATE?
2) RET
2) MOVE A,OPNFDB
2) LOAD B,FBVER,(A) ;CHECK FDB VERSION
2) CAIGE B,1 ;LATER THAN VER #1
2) JRST [ MOVE B,JOBNO ;VER 0 - SET DIR #
2) HRRZ B,JOBDIR(B)
2) STOR B,FBLW0,(A) ;INTO FDB
2) JRST DSKOPB] ;CONTINUE
2) MOVEI B,USRNAM ;POINT TO USER NAME
2) MOVEI C,.FBLWR ;UPDATE LAST-WRITER
2) CALL INSUNS ;INSERT NAME STRING
2) MOVE A,OPNFDB ;RESTORE FDB ADDRS
2) DSKOPB: MOVSI B,1
2) ADDM B,.FBCNT(A) ;COUNT NUMBER OF WRITES
2) CALL UPDDTM ;GET TIME OF DAY AND UPDATE DIR TIME
2) MOVE B,A ;SAVE TIME
2) MOVE A,OPNFDB ;GET BACK FDB ADR
2) CAME B,[-1] ;TIME SET YET?
; DISC.MAC.1 & <MONITOR>DISC.MAC.2 24-Feb-89 1711 PAGE 4
2) STOR B,FBWRT,(A) ;SET DATE OF LAST USER WRITE
2) RET
2) >;IFN NICSW
{Skipped 1 page and 1 line}
2) ;HERE TO OPEN A LONG FILE
LINE 16, PAGE 35
1) file. This bughlt indicates that the page table slot in the
1) super PT already contains a pointer to a second level
1) PT. This indicates a race of some kind when a a new page table
1) is created.
1) >)
LINE 14, PAGE 36
2) file. This bughlt indicates that the page table slot in the super PT
2) already contains a pointer to a second level PT. This indicates a race
2) of some kind when a a new page table is created.
2) >)
LINE 1, PAGE 48
1) ;UPDATE PAGE COUNT IF NECESSARY
LINE 45, PAGE 48
2) IFN NICSW,<
2) SETZM .FBBK0(A) ;[NIC5735]
2) SETZM .FBBK1(A) ;[NIC5735]
2) SETZM .FBBK2(A) ;[NIC5735]
2) >;IFN NICSW
{Skipped 1 page and 1 line}
2) ;UPDATE PAGE COUNT IF NECESSARY
LINE 38, PAGE 63
1) SKIPN A,.FBADR(A) ;DEST HAS XB ADR?
LINE 38, PAGE 64
2) IFN NICSW,<
2) TXNE B,FB%NDL ;NEVER DELETE?
2) RETBAD (DELX13,<CALL DSKRE8>) ;YES, DISALLOW
2) >;IFN NICSW
2) SKIPN A,.FBADR(A) ;DEST HAS XB ADR?
LINE 3, PAGE 66
1) MOVX B,FC%WR ;B/WRITE ACCESS
LINE 3, PAGE 67
2) IFN NICSW,<
2) TMNE FB%NDL,.FBCTL(A) ;SOURCE MARKED NEVER DELETE?
2) RETBAD (DELX13,<CALL DSKRE8>) ;YES, DISALLOW
2) >;IFN NICSW
2) MOVX B,FC%WR ;B/WRITE ACCESS
; DISC.MAC.1 & <MONITOR>DISC.MAC.2 24-Feb-89 1711 PAGE 5
LINE 33, PAGE 67
1) JFCL ;MIGHT COME HERE IF PERMANENT
1) MOVE A,RENFDA ;(OLD FDB COPY)
LINE 33, PAGE 68
2) IFE NICSW,<
2) JFCL ;MIGHT COME HERE IF PERMANENT
2) >;IFE NICSW
2) IFN NICSW,<
2) IFNSK.
2) ; DELFIL failed for a misc. reason (not perm. as DEC comment states). This
2) ; isn't very serious, since we are moving the file pages. However, log that
2) ; an old FDB has been left behind.
2) MOVE A,DIRORA ;GET BASE ADDRESS OF DIR
2) LOAD A,DRNUM,(A) ;GET DIR NUM OF MAPPED DIR
2) LOAD B,CURSTR ;GET THE STRUCTURE NUMBER
2) BUG. (CHK.,RENDF1,DISC,SOFT,<DSKREN: DELFIL failed on source file>,,<
2)
2) Cause: A file marked FB%NDL has been renamed, and the contents moved, however,
2) an FDB has been left behind. This either due to archiving system
2) problems or a file open race.
2) >)
2) ENDIF.
2) >;IFN NICSW
2) MOVE A,RENFDA ;(OLD FDB COPY)
LINE 43, PAGE 68
1) CALL DELFIL ;DELETE OLD CONTENT OF DESTINATION
1) JFCL ;ALWAYS FAILS SINCE PERMANENT BIT SET
1) POP P,A ;GET BACK OLD FLAGS
LINE 43, PAGE 69
2) IFE NICSW,<
2) CALL DELFIL ;DELETE OLD CONTENT OF DESTINATION
2) JFCL ;ALWAYS FAILS SINCE PERMANENT BIT SET
2) >;IFE NICSW
2) IFN NICSW,<
2) DO.
2) CALL DELFIL ;DELETE OLD CONTENT OF DESTINATION
2) SKIPN .FBADR(D) ;LOST, IS THERE AN INDEX BLOCK?
2) EXIT. ;WON, OR NO INDEX BLOCK, CONTINUE
2) MOVX B,FB%NDL ;NEVER DELETE?
2) TDNN B,.FBCTL(D) ;...
2) IFSKP.
2) ANDCAM B,.FBCTL(D) ;YES, MUST BE A TIMING RACE
2) LOOP. ;TRY AGAIN
2) ENDIF.
2) IFQN. FBARC,(D) ;HAVE ARCHIVE STATUS?
2) MOVX B,AR%NDL ;ARCHIVE DELETE PROHIBITED?
2) TDNN B,.FBBBT(D) ;WELL?
; DISC.MAC.1 & <MONITOR>DISC.MAC.2 24-Feb-89 1711 PAGE 6
2) ANSKP.
2) ANDCAM B,.FBBBT(D) ;YES, FLUSH THE BIT
2) LOOP. ;TRY TO DELETE IT AGAIN
2) ENDIF.
2) CAIE A,DELFX2 ;DESTINATION FILE BUSY?
2) BUG. (HLT,RENDF2,DISC,SOFT,<DSKREN: Impossible DELFIL failure>)
2) MOVX A,^D1000 ;WAIT
2) DISMS%
2) LOOP. ;TRY AGAIN
2) ENDDO.
2) >;IFN NICSW
2) POP P,A ;GET BACK OLD FLAGS