Trailing-Edge
-
PDP-10 Archives
-
SRI_NIC_PERM_SRC_1_19910112
-
7/ft3/monitor/stanford/dskalc.dif
There are no other files named dskalc.dif in the archive.
; DSKALC.MAC.2 & <MONITOR>DSKALC.MAC.1 24-Feb-89 1712 PAGE 1
LINE 1, PAGE 1
1) ;[MACBETH.STANFORD.EDU]SRC:<7.FT3.MONITOR.STANFORD>DSKALC.MAC.2, 20-Jun-88 19:48:51, Edit by A.APPLEHACKS
1) ;Get the nice hacked source out of the virgin directory...
1) ;[MACBETH.STANFORD.EDU]SRC:<7.FT3.MONITOR>DSKALC.MAC.3, 20-Jun-88 18:30:40, Edit by A.ALDERSON
1) ; Fix "literal" edit number (transcription error)
1) ;[MACBETH.STANFORD.EDU]SRC:<7.FT3.MONITOR.STANFORD>DSKALC.MAC.1, 17-Jun-88 18:13:49, Edit by A.APPLEHACKS
1) ; FT7 Clock Merge.
1) ; UPD ID= 8700, RIP:<7.MONITOR>DSKALC.MAC.13, 20-Apr-88 10:30:11 by RASPUZZI
1) ;TCO 7.1276 - Wait for things to settle down before attempting to find the
1) ; login structure. Also, use new bit U1.NOL to see if this is an
1) ; OK unit to try.
1) ; UPD ID= 8693, RIP:<7.MONITOR>DSKALC.MAC.12, 7-Apr-88 12:42:14 by LOMARTIRE
1) ;TCO 7.1267 - Add a question to the /G143 dialogue to allow user to
1) ; enable password encryption (again)
1) ;[MACBETH]SRC:<7.FT2.MONITOR.STANFORD>DSKALC.MAC.2, 6-Apr-88 02:11:11, Edit by A.APPLEHACKS
1) ; FT7.2 Merge - we have only the one change - applied now to 7.FT2 version.
1) ;[MACBETH.STANFORD.EDU]SRC:<7.FT1.MONITOR.STANFORD>DSKALC.MAC.1, 6-Mar-88 16:30:02, Edit by A.ALDERSON
1) ;Make FNDLGS pay attention to debugging: If we are standalone, we DON'T want
1) ; the user login structure.
1) ;
1) ; UPD ID= 8675, RIP:<7.MONITOR>DSKALC.MAC.11, 1-Mar-88 16:02:13 by GSCOTT
LINE 1, PAGE 1
2) ; Edit= 8832 to DSKALC.MAC on 20-Apr-88 by RASPUZZI (TCO 7.1276)
2) ;Install TCO 7.1276 into the autopatch sources.
2) ;TCO 7.1276 - Wait for things to settle down before attempting to find the
2) ; login structure. Also, use new bit U1.NOL to see if this is an
2) ; OK unit to try.
2) ; Edit= 8819 to DSKALC.MAC on 7-Apr-88 by LOMARTIRE (TCO 7.1267)
2) ;Add password encryption question to /G143 dialog
2) ;Add a question to the /G143 dialogue to allow user to enable password
2) ;encryption (again)
2) ; UPD ID= 8675, RIP:<7.MONITOR>DSKALC.MAC.11, 1-Mar-88 16:02:13 by GSCOTT
LINE 31, PAGE 101
1) IFN STANSW,<
1) MOVE T1,DBUGSW ;Are we debugging?
1) CAIL T1,2 ;T
1) RET ;Don't mount normal login structure, OK?
1) >;IFN STANSW
1) MOVN P4,MAXCHN ;Set up to read every Home Block
LINE 31, PAGE 101
2) MOVN P4,MAXCHN ;Set up to read every Home Block
; DSKALC.MAC.2 & <MONITOR>DSKALC.MAC.1 24-Feb-89 1712 PAGE 2
LINE 9, PAGE 118
1) ; non-zero, then it will make sure the disk is online. If not and the
1) ; reason is that MSCP has not onlined it yet, we will wait for up to 5
LINE 9, PAGE 118
2) ; non-zero, then it will make sure the disk is online. If it is not and the
2) ; reason is that MSCP has not onlined it yet, we will wait for up to 5
LINE 47, PAGE 118
1) IFSKP. ;[7.1276] MSCP has even seen this disk
1) TDNN T3,UDBSTS(P3) ;[7.1276] Home block check done?
1) RETSKP ;[7.1276] Yes, MSCP seen and home block check done
1) ENDIF.
1) MOVEI T1,^D100 ;[7.1276] Dismiss for 1/10th second
LINE 47, PAGE 118
2) IFSKP. ;[7.1276] MSCP seen this disk
2) TDNN T3,UDBSTS(P3) ;[7.1276] Home block check done?
2) RETSKP ;[7.1276] Yes, MSCP seen and home block check done
2) ENDIF. ;[7.1276]
2) MOVEI T1,^D100 ;[7.1276] Dismiss for 1/10th second
LINE 19, PAGE 156
1) SETZM FSIFLG ;[7.1267] Init flag word
1) HRROI T1,[ASCIZ/
LINE 19, PAGE 156
2) SETZM FSIFLG ;[8819] Init flag word
2) HRROI T1,[ASCIZ/
LINE 13, PAGE 163
1) JRST FSID16 ;[7.1267] Yes
1) HRROI T1,[ASCIZ/
LINE 13, PAGE 163
2) JRST FSID16 ;[8819] Yes
2) HRROI T1,[ASCIZ/
LINE 20, PAGE 163
1) ;[7.1267] See if user wants password encryption enabled.
1)
1) FSID16: HRROI T1,[ASCIZ/
1) Do you want to enable password encryption for the system structure? /] ;[7.1267]
1) HRROI T2,[ASCIZ/
1) [Type 'YES' to enable password encryption or
1) 'NO' to disable password encryption]
1) /] ;[7.1267]
1) MOVEI T3,FSIYNO ;[7.1267] Get YES or NO
1) CALL FSIASK ;[7.1267] Ask the question and get the answer
; DSKALC.MAC.2 & <MONITOR>DSKALC.MAC.1 24-Feb-89 1712 PAGE 3
1) JRST FSID16 ;[7.1267] Failed. Try again
1) JUMPE T1,FSID17 ;[7.1267] If NO don't set MS%CRY
1) MOVX T1,MS%CRY ;[7.1267] Get the encryption bit
1) IORM T1,FSIFLG ;[7.1267] Set it up
1) FSID17: HRROI T1,[ASCIZ/
LINE 20, PAGE 163
2) ;[8819] See if user wants password encryption enabled.
2)
2) FSID16: HRROI T1,[ASCIZ/
2) Do you want to enable password encryption for the system structure? /] ;[8819]
2) HRROI T2,[ASCIZ/
2) [Type 'YES' to enable password encryption or
2) 'NO' to disable password encryption]
2) /] ;[8819]
2) MOVEI T3,FSIYNO ;[8819] Get YES or NO
2) CALL FSIASK ;[8819] Ask the question and get the answer
2) JRST FSID16 ;[8819] Failed. Try again
2) JUMPE T1,FSID17 ;[8819] If NO don't set MS%CRY
2) MOVX T1,MS%CRY ;[8819] Get the encryption bit
2) IORM T1,FSIFLG ;[8819] Set it up
2) FSID17: HRROI T1,[ASCIZ/