Trailing-Edge
-
PDP-10 Archives
-
bb-kl11c-bm_tops20_v6_1_atpch1_16
-
autopatch/checkd.c16
There are no other files named checkd.c16 in the archive.
INS 1/1 ;16C1
; *** Edit 4 to CHECKD.MAC by RASPUZZI on 7-Jan-87, for SPR #21493
; Increase the amount of lost pages that CHECKD can handle from 1/3 of an RP06
; to about 1/3 of an RA81
; *** Edit 3 to CHECKD.MAC by MCCOLLUM on 18-Nov-86
; Print last directory seen if RCDIR fails in NXTDIR
REP 19/2 ;16C2
PRGEDT==VI%DEC+^D1 ;EDIT NUMBER
WIT
PRGEDT==VI%DEC+^D4 ;EDIT NUMBER
REP 22/7 ;16C3
MAXLOS==50000 ;NUMBER OF LOST PAGES THAT CAN BE ACCOUNTED
WIT
;**;[04] Change value of MAXLOS MDR 5-JAN-86
MAXLOS==405000 ;[04] NUMBER OF LOST PAGES THAT CAN BE ACCOUNTED FOR
REP 14/32 ;16C4
ERJMP [ PNTERR(<Failed to get next directory>)
SETZ T1, ;CLEAR FLAGS FOR ERROR
SETZM DIRNUM
RET]
WIT
;**;[3] Replace 4 lines with 14 at NXTDIR: + 4 L JDM 18-Nov-86
IFJER. ;[3]IF A JSYS ERROR OCCURS
PNTERR(<Failed to get next directory>) ;[3]
HRROI T1,[ASCIZ/? CHECKD: Last directory seen was /] ;[3]TELL HIM WHERE WE WERE
PSOUT% ;[3]OUTPUT TO THE TTY:
MOVEI T1,.PRIOU ;[3]OUTPUT TO TTY:
MOVE T2,DIRNUM ;[3]GET THE LAST DIRECTORY NUMBER
DIRST% ;[3]PRINT IT OUT
ERJMP .+1 ;[3]AT LEAST WE TRIED
TMSG <
> ;[3]FINISH OFF THE MESSAGE
SETZ T1, ;[3]CLEAR FLAGS FOR ERROR
SETZM DIRNUM ;[3]
RET ;[3]
ENDIF. ;[3]
SUM 76476