Trailing-Edge
-
PDP-10 Archives
-
bb-kl11c-bm_tops20_v6_1_atpch1_16
-
autopatch/chkpnt.c14
There are no other files named chkpnt.c14 in the archive.
INS 1/1 ;14C1
; *** Edit 130 to CHKPNT.MAC by WONG on 8-Apr-86 (TCO none)
; Fixed edit 122 so that the count of account records is set to one for empty
; directories.
; *** Edit 129 to CHKPNT.MAC by WONG on 14-Mar-86, for SPR #18580
; Include Batch request ID in Session Record
REP 43/2 ;14C2
VEDIT==^D128 ;EDIT NUMBER
WIT
VEDIT==^D130 ;EDIT NUMBER
REP 19/22 ;14C3
;**;[122]Add 1 line at DODSK3: -10L RWW 29-Jun-83
AOS TOTACT ;[122]BUMP COUNT OF ACCOUNTS IN THIS DIRECTORY
WIT
;**;[130]At DODSK3:-10L delete edit 122 JYCW 17-Mar-86
;**;[122]Add 1 line at DODSK3: -10L RWW 29-Jun-83
REP 18/23 ;14C4
movei t1,.atsiz ;get size of table entries
addm t1,acpend ;update pointer to next free entry
WIT
MOVEI T1,.ATSIZ ;get size of table entries
ADDM T1,ACPEND ;update pointer to next free entry
INS 6/24 ;14C5
;**;[130]At DODK10:+1L add 2 lines JYCW 17-Mar-86
SKIPN TOTACT ;[130]Is this an empty directory?
AOS TOTACT ;[130]Yes, make the count of accts one
INS 14/51 ;14C6
;**;[129]At UFLOGT:+8L Add 1 line JYCW 7-Mar-86
USBRI. <MOVE T1,5(P1)> ;[129]Batch request ID
SUM 88164