Trailing-Edge
-
PDP-10 Archives
-
bb-kl11c-bm_tops20_v6_1_atpch1_16
-
autopatch/chkpnt.c15
There are no other files named chkpnt.c15 in the archive.
INS 1/1 ;15C1
; *** Edit 131 to CHKPNT.MAC by WONG on 4-Aug-86, for SPR #18589 (TCO none)
; Include index and super index pages when calculating USALC (total allocated
; pages) for Disk Usage Record. Also on empty directories make sure the second
; word of ACTTAB is pointing to ACPTAB.
;************* This edit requires MONITOR edit 7347 ***************
REP 6/3 ;15C2
.ATSIZ==2 ;SIZE OF ENTRIES IN ACCOUNT TABLE
WIT
;**;[131]At .ATFIL replace 1 line with 2 lines JYCW AUG/1/86
.ATALC==2 ;[131]Offsett to # of allocated pages
.ATSIZ==3 ;[131]Size of entries in account table
INS 9/21 ;15C3
;**;[131]At DODSK2:+3L add 1 line JYCW AUG/1/86
SETZM ALCPGS ;[131]Clear total allocated pages for directory
DEL 23/23 ;15C4
REP 28/23 ;15C5
ADDM T3,.ATPGS(AT) ;ADD SIZE OF THIS FILE TO ACCOUNT TOTAL
ADDM T3,TOTPGS ;ADD SIZE OF THIS FILE TO DIRECTORY TOTAL
AOS .ATFIL(AT) ;INCREMENT # OF FILES WITH THIS ACCOUNT
WIT
;**;[131]At DODK&A:+3L replace 3 lines with 12 lines JYCW AUG/1/86
JUMPE T3,DODSK8 ;[131]Empty file, no need to add any pages
ADDM T3,.ATPGS(AT) ;[131]Add size of this file to account total
ADDM T3,TOTPGS ;[131]Add size of this file to directory total
MOVEM T3,T1 ;[131]Store for calculation
IDIVI T3,^D512 ;[131]See how many index pages for this file
SKIPE T4 ;[131]Within page boundary?
AOS T1 ;[131]No, add one more page
CAIN T3,^D512 ;[131]Any super index page?
AOS T1 ;[131]Yes, add one more
ADDM T3,T1 ;[131]Add index pages
ADDM T1,.ATALC(AT) ;[131]Add to file allocated pages
ADDM T1,ALCPGS ;[131]Add to directory allocated pages
DODSK8: AOS .ATFIL(AT) ;INCREMENT # OF FILES WITH THIS ACCOUNT
INS 5/24 ;15C6
;**;[131]At DODK10:+1L add 3 lines JYCW AUG/1/86
SKIPE AT ;[131]Any entries?
IFSKP.
MOVEI T1,ACPTAB ;[131]No, get account page table address
MOVEM T1,ACTTAB+1 ;[131]Make sure it's in account string block
ENDIF.
INS 8/26 ;15C7
;**;[131]At DSKBLK:+3L add 1 line JYCW AUG/1/86
USTAL. (ALCPGS) ;[131] Total number of allocated pages
DEL 70/27 ;15C8
REP 31/29 ;15C9
call tstpag ;go output a crlf, see if new page needed
WIT
CALL TSTPAG ;go output a crlf, see if new page needed
INS 42/29 ;15C10
;**;[131]at LSTDS7:+6L add 4 lines JYCW AUG/1/86
MOVE T2,.ATALC(AT) ;[131]Get # of allocated pages for this account
MOVEI T3,^D10 ;[131]Get decimal radix
TXO T3,1B2+6B17 ;[131]Use leading filler
CALL NOUTR ;[131]Output number of pages
HRROI T2,[ASCIZ " "] ;[131]Get a tab
SETZM T3 ;[131]Terminate on null
SOUT ;[131]Output punctuation
HRRZ T1,LSTJFN ;[131]GET LISTING FILE JFN
REP 53/29 ;15C11
call tstpag ;output a crlf, see if new page needed
WIT
CALL TSTPAG ;output a crlf, see if new page needed
REP 4/30 ;15C12
LSTDS8: call tstpag ;go see if new page needed
WIT
LSTDS8: CALL TSTPAG ;Go see if new page needed
REP 12/31 ;15C13
setzm t3 ;terminate on null byte
sout ;output disk statistics header line
WIT
SETZM T3 ;terminate on null byte
SOUT ;output disk statistics header line
REP 21/31 ;15C14
move t2,pagnum ;get current page number
movei t3,^D10 ;get decimal radix
call noutr ;output current page number
HRRZ T1,LSTJFN ;GET LISTING FILE JFN
hrroi t2,[asciz "
"] ;get end-of-line
setzm t3 ;terminate on null
sout ;output end of line
WIT
MOVE T2,PAGNUM ;get current page number
MOVEI T3,^D10 ;get decimal radix
CALL NOUTR ;output current page number
HRRZ T1,LSTJFN ;GET LISTING FILE JFN
HRROI T2,[ASCIZ "
"] ;get end-of-line
SETZM T3 ;terminate on null
SOUT ;output end of line
REP 34/31 ;15C15
Directory Account Pages Files
WIT
Directory Account Allocated Used Files
Pages Pages
REP 39/31 ;15C16
movei t1,4 ;get current line number
movem t1,linnum ;save current line number
ret ;return to whence we came ...
WIT
MOVEI T1,4 ;get current line number
MOVEM T1,LINNUM ;save current line number
RET ;return to whence we came ...
REP 29/45 ;15C17
GETAST: HRROI T1,3(AT) ;POINT TO STRING
WIT
;**;[131]At GETAST:+0L change 1 line JYCW AUG/1/86
GETAST: HRROI T1,4(AT) ;[131]Point to string
REP 5/46 ;15C18
USALC. <MOVE T1,1(AT)> ;ALLOCATED (USED)
WIT
;**;[131]At UFDAST:+2L change 1 line JYCW AUG/1/86
USALC. <MOVE T1,3(AT)> ;[131]Allocated (used)
REP 28/51 ;15C19
USTAL. <MOVE T1,1(P1)> ;TOTAL ALLOCATED (USED)
USTUS. <MOVE T1,1(P1)> ;TOTAL USED
USTNF. <MOVE T1,2(P1)> ;TOTAL NUMBER OF FILES
USSTR. <CALL GETST1> ;STRUCTURE NAME (STRING 1)
USDIR. <CALL GETST2> ;DIRECTORY NAME (STRING 2)
USSTP. <CALL [LOAD T1,STYP,<6(P1)>
ADDI T1,3 ;3 := FORIEGN, 4 := DOMESTIC
RET]> ;STRUCTURE TYPE
USKTP. <LOAD T1,KTYP,<6(P1)>> ;CONTROLLER TYPE (RH20)
USDTP. <LOAD T1,DTYP,<6(P1)>> ;DEVICE TYPE (RP04)
USLIQ. <MOVE T1,3(P1)> ;LOGGED IN QUOTA
USLOQ. <MOVE T1,4(P1)> ;LOGGED OUT QUOTA
USLLI. <MOVE T1,5(P1)> ;DATE/TIME LAST LOGIN
USLAT. <MOVEI T1,0> ;LAST ACCOUNTING DATE/TIME (NOT IMP)
USEXP. <CALL [MOVEI T1,"N"
JRST SNGASC]> ;NOT EXPIRED
WIT
;**;[131]At UFDSKT:+1L
USTAL. <MOVE T1,1(P1)> ;[131]Total allocated (used)
USTUS. <MOVE T1,2(P1)> ;[131]Total used
USTNF. <MOVE T1,3(P1)> ;[131]Total number of files
USSTR. <CALL GETST1> ;[131]Structure name (string 1)
USDIR. <CALL GETST2> ;[131]Directory name (string 2)
USSTP. <CALL [LOAD T1,STYP,<7(P1)>
ADDI T1,3 ;[131]3 := Foriegn, 4 := Domestic
RET]> ;[131]Structure type
USKTP. <LOAD T1,KTYP,<7(P1)>> ;[131]Controller type (RH20)
USDTP. <LOAD T1,DTYP,<7(P1)>> ;[131]Device type (RP04)
USLIQ. <MOVE T1,4(P1)> ;[131]Logged in quota
USLOQ. <MOVE T1,5(P1)> ;[131]Logged out quota
USLLI. <MOVE T1,6(P1)> ;[131]Date/time last login
USLAT. <MOVEI T1,0> ;[131]Last accounting date/time (not imp)
USEXP. <CALL [MOVEI T1,"N"
JRST SNGASC]> ;[131]Not expired
REP 48/51 ;15C20
JRST SNGASC]> ;FILES ONLY INDICATOR
USDSK. <MOVEI T1,7(P1)> ;DISK TABLE
WIT
JRST SNGASC]> ;[131]Files only indicator
USDSK. <MOVEI T1,10(P1)> ;[131]Disk table
INS 16/58 ;15C21
;**;[131]At TOTFIL:+0L add 1 line JYCW AUG/1/86
ALCPGS: BLOCK 1 ;[131]Total # of allocated pages in current dir
SUM 68554