Trailing-Edge
-
PDP-10 Archives
-
BB-KL11M-BM_1990
-
t20src/chkpnt.mac
There are 32 other files named chkpnt.mac in the archive. Click here to see a list.
; Edit= 215 to CHKPNT.MAC on 1-Mar-89 by WONG (TCO none)
;Look for SYSTEM-DATA.BIN according to the system (4.1 or 7.0) we are on.
; Edit= 214 to CHKPNT.MAC on 25-Mar-88 by LOMARTIRE
;Bump edit number for 7.0 Autopatch
; UPD ID= 50, RIP:<7.UTILITIES>CHKPNT.MAC.5, 19-Feb-88 17:54:34 by GSCOTT
;TCO 7.1236 - Edit 204, update copyright notice.
; UPD ID= 36, RIP:<7.UTILITIES>CHKPNT.MAC.4, 12-Jan-88 15:58:31 by GSCOTT
;TCO 7.1171 - Fix column overflows during disk storage usage caused by edit 131
; UPD ID= 31, RIP:<7.UTILITIES>CHKPNT.MAC.3, 14-Dec-87 09:16:44 by BROOKS
;Increment version number for 7.0 ft1
; UPD ID= 27, RIP:<7.UTILITIES>CHKPNT.MAC.2, 24-Nov-87 15:28:02 by MCCOLLUM
;TCO 7.1146 - Look for SYSTEM-DATA.BIN on ACCOUNT:
; *** 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 ***************
; *** 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
;Edit 128 to CHKPNT.MAC by TBOYLE on Mon 19-Dec-83 - Reset version to edit 128
;Edit 127 to CHKPNT.MAC by TBOYLE on Tue 11-Oct-83
; Change version back to 5.0 for autopatch.
;Edit 126 to CHKPNT.MAC by TBOYLE on Thu 15-Sep-83, for SPR #19429
; Correct calculation of user defined entry.
;Edit 125 to CHKPNT.MAC by TBOYLE on Tue 23-Aug-83, for SPR #18102
; Change Unknown record type to be warning.
;Edit 124 to CHKPNT.MAC by TBOYLE on Fri 19-Aug-83, for SPR #18102
; Upgrade minor version to 1.
;Edit 123 to CHKPNT.MAC by TBOYLE on Fri 19-Aug-83, for SPR #18897
; TCO 6.1783 More robust when bad data in SYSTEM-DATA.BIN.
;Edit 122 to CHKPNT.MAC by WEETON on Wed 29-Jun-83, for SPR #19232
; Make count of records following a header 1 on empty
;; directories.
;Edit 121 by LOMARTIRE on Mon 11-Apr-83, for SPR #18602
; Use correct revision numbers from system file instead of "01"
;Edit 120 by LOMARTIRE on Mon 11-Apr-83, for SPR #18599
; Add code to identify RP07s and RP20s in usage record
;Edit 119 - Write records for empty directories
; UPD ID= 10, FARK:<5-WORKING-SOURCES.UTILITIES>CHKPNT.MAC.3, 29-Apr-82 12:57:32 by ZIMA
;Edit 118 - Fix nulls in DISK-STATISTICS output.
; UPD ID= 3, FARK:<5-WORKING-SOURCES.UTILITIES>CHKPNT.MAC.2, 5-Apr-82 08:56:03 by DONAHUE
;Edit 117 - Fix handling of user defined records at MAKARB
; UPD ID= 79, SNARK:<5.UTILITIES>CHKPNT.MAC.7, 8-Feb-82 09:58:01 by DONAHUE
;TCO 5.1718 - Correct connect time conversion
; UPD ID= 17, SNARK:<5.UTILITIES>CHKPNT.MAC.6, 31-Jul-81 10:47:24 by LEACHE
;Update program edit number on previous
; UPD ID= 16, SNARK:<5.UTILITIES>CHKPNT.MAC.5, 31-Jul-81 10:32:44 by LEACHE
;TCO 5.1437
;Eliminate annoying multiple error messages on column overflow on NOUT
; UPD ID= 2090, SNARK:<5.UTILITIES>CHKPNT.MAC.4, 27-May-81 15:11:07 by LEACHE
;TCO 5.1350
;Change MAKARB to calculate length of arbitrary usage records correctly
; UPD ID= 1676, SNARK:<5.UTILITIES>CHKPNT.MAC.3, 11-Mar-81 22:32:55 by GRANT
;UPDATE COPYRIGHT
; UPD ID= 1653, SNARK:<5.UTILITIES>CHKPNT.MAC.2, 6-Mar-81 15:33:47 by BLOUNT
;change version number to 5
; UPD ID= 112, SNARK:<4.1.UTILITIES>CHKPNT.MAC.2, 7-Dec-79 16:32:29 by SCHMITT
;TCO 4.1.1052 - CHANGE UFRSTT TO GET MONITOR UPTIME FROM SYSTEM-DATA.BIN
;<4.UTILITIES>CHKPNT.MAC.19, 29-Oct-79 15:08:20, Edit by KONEN
;CORRECT ELASPED TIME DIVISION FOR STRUCTURE AND TAPE RECORDS
;<4.UTILITIES>CHKPNT.MAC.18, 5-Oct-79 14:13:06, Edit by KONEN
;comment CHKPNT command out. (Monitor does checkpointing)
;<4.UTILITIES>CHKPNT.MAC.17, 25-Sep-79 15:52:17, Edit by KONEN
;DON'T IGNORE INVISIBLE FILES WHEN GATHERING DISK STATISTICS
;<4.UTILITIES>CHKPNT.MAC.16, 10-Jul-79 11:19:32, Edit by KONEN
;CORRECT USAGE TYPE FOR TAPE MOUNT RECORD
;<4.UTILITIES>CHKPNT.MAC.15, 10-Jul-79 10:05:26, Edit by KONEN
;INSERT EDIT LOST FROM 3A
;MOVED LABEL DODK60 -1 TO ALLOW DISK STATS FOR MULTIPLE STRUCTURES
;<4.UTILITIES>CHKPNT.MAC.14, 16-May-79 07:54:45, EDIT BY GRADY
;CLEAN UP REASONABLENESS CHECK IN GTITM1 ROUTINE...SPR 12846
;<4.UTILITIES>CHKPNT.MAC.13, 6-Apr-79 09:51:53, Edit by KONEN
;ADD ELAPSED TIME OF USE FOR STRUCTURES AND TAPES
;ADD ARCHIVAL, RETRIEVAL, MIGRATION RECORDS
;<4.UTILITIES>CHKPNT.MAC.12, 10-Mar-79 13:42:02, EDIT BY KONEN
;UPDATE COPYRIGHT FOR RELEASE 4
;<4.UTILITIES>CHKPNT.MAC.11, 6-Feb-79 08:43:09, EDIT BY DBELL
;CHANGE QUESTION MARKS TO PERCENT SIGNS NEAR GETUNK
;<4.UTILITIES>CHKPNT.MAC.10, 11-Jan-79 09:20:36, Edit by KONEN
;ADD STRUCTURE AND TAPE MOUNTS ACCOUNTING
;<4.UTILITIES>CHKPNT.MAC.8, 18-Jul-78 16:54:52, Edit by PORCHER
;<4.UTILITIES>CHKPNT.MAC.7, 18-Jul-78 16:03:07, Edit by PORCHER
;TCO # 1947 - Remove version number herald.
; Update to version 4(112)
;<3A.UTILITIES>CHKPNT.MAC.58, 11-Jul-78 13:39:40, Edit by PORCHER
;TCO # 1898 - ALLOW USER-DEFINED USAGE ENTRIES (5000-9999)
;<4.UTILITIES>CHKPNT.MAC.5, 2-Mar-78 10:05:35, Edit by PORCHER
;Add "CHANGE (ACCOUNTING SHIFT)" command
;<4.UTILITIES>CHKPNT.MAC.4, 28-Feb-78 12:12:59, Edit by KIRSCHEN
;<4.UTILITIES>CHKPNT.MAC.3, 28-Feb-78 12:08:50, Edit by KIRSCHEN
;<4.UTILITIES>CHKPNT.MAC.2, 28-Feb-78 12:01:04, Edit by KIRSCHEN
;FIX INCORRECT PADDING WHEN NOUT IN OUTDEC FAILS
; COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1976, 1988.
; ALL RIGHTS RESERVED.
;
; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
; TRANSFERRED.
;
; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
; CORPORATION.
;
; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
; SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL.
TITLE CHKPNT - TOPS20 CHECKPOINTING PROGRAM
SUBTTL D. KIRSCHEN 10-13-75
Subttl Table of Contents
; Table of Contents for CHKPNT
;
; Section Page
;
;
; 1. Definitions . . . . . . . . . . . . . . . . . . . . . 3
; 2. Macro Definitions . . . . . . . . . . . . . . . . . . 7
; 3. Initialization . . . . . . . . . . . . . . . . . . . . 8
; 4. Command Parser and Dispatch . . . . . . . . . . . . . 10
; 5. CHANGE (ACCOUNTING SHIFT NOW) . . . . . . . . . . . . 11
; 6. CHECKPOINT (EVERY) n (MINUTES) . . . . . . . . . . . . 12
; 7. ENTER (SINGLE CHECKPOINT) . . . . . . . . . . . . . . 13
; 8. LIST (DISK STATISTICS ON) file-spec . . . . . . . . . 14
; 9. EXPUNGE (PROCESSED SYSTEM DATA) . . . . . . . . . . . 15
; 10. COPY (SYSTEM DATA TO) file-spec . . . . . . . . . . . 17
; 11. DISK-STATISTICS (FOR STRUCTURE) str: . . . . . . . . . 20
; 11.1 Initialization . . . . . . . . . . . . . . . . 21
; 11.2 Loop Over Directories . . . . . . . . . . . . 23
; 11.3 Loop over files . . . . . . . . . . . . . . . 26
; 11.4 Write Usage Data . . . . . . . . . . . . . . . 29
; 11.5 Usage Template . . . . . . . . . . . . . . . . 30
; 11.6 Statistics Subroutines . . . . . . . . . . . . 31
; 11.7 Output to Listing File . . . . . . . . . . . . 33
; 11.8 Errors . . . . . . . . . . . . . . . . . . . . 38
; 12. HELP . . . . . . . . . . . . . . . . . . . . . . . . . 39
; 13. EXIT (TO MONITOR) . . . . . . . . . . . . . . . . . . 40
; 14. SET (CHECKPOINT INTERVAL TO) n (MINUTES) . . . . . . . 41
; 15. Command Error Subroutines . . . . . . . . . . . . . . 42
; 16. Ascii Output Routines . . . . . . . . . . . . . . . . 43
; 17. Interrupt Routines . . . . . . . . . . . . . . . . . . 44
; 18. Usage File Routines . . . . . . . . . . . . . . . . . 45
; 19. Usage File Templates . . . . . . . . . . . . . . . . . 55
; 20. Pure Data . . . . . . . . . . . . . . . . . . . . . . 65
; 21. Impure Data . . . . . . . . . . . . . . . . . . . . . 67
; 22. End of CHKPNT . . . . . . . . . . . . . . . . . . . . 69
SUBTTL Definitions
SEARCH MONSYM, MACSYM, ACTSYM
.CPYRT <<1976, 1988>>
.REQUIRE SYS:MACREL
SALL
IFNDEF .PSECT,<.DIRECTIVE .XTABM>
.DIREC FLBLST ;[7.1171] Clean listing
; ACCUMULATOR DEFINITIONS
F=0 ;FLAGS
T1=1 ;TEMPORARY
T2=2 ;TEMPORARY
T3=3 ;TEMPORARY
T4=4 ;TEMPORARY
P1=5 ;PRESERVED
P2=6 ;PRESERVED
P3=7 ;PRESERVED
AT=10 ;ACCOUNT TABLE ENTRY ADDRESS
;ACS FOR COPY ROUTINES
TBL=11 ;TABLE LENGTH
DESC=12 ;FORM DESCRIPTOR POINTER
LEN=13 ;FIELD LENGTH COUNT
BPNTR=14 ;LBUFR POINTER
;...
CX=16 ;RESERVED FOR SUPPORT CODE
P=17 ;PUSH-DOWN POINTER
;FLAGS IN F
F.SKIP=1B0 ;DO A SKIP RETURN FROM SUBROUTINE ON NO ERROR
; VERSION NUMBER DEFINITIONS
VMAJOR==6 ;Major version of CHKPNT
VMINOR==0 ;Minor version number
VEDIT==VI%DEC+^D215 ;Edit number
VWHO==0 ;Group last edited program (0=DEC development)
VCHKPT== <VWHO>B2+<VMAJOR>B11+<VMINOR>B17+VEDIT
; MISCELLANEOUS SYMBOL DEFINITIONS
.ATALC==0 ;[7.1171][131] Offset to # of allocated pages
.ATPGS==1 ;[7.1171] Offset to # of pages this account
.ATFIL==2 ;[7.1171] Offset to number of files this acct
.ATSIZ==3 ;[7.1171][131] Size of entries in account table
DATFLG==1B9+1B17 ;ODTIM FLAG - OUTPUT DATE ONLY
TIMFLG==400240,,0 ;ODTIM FLAGS - OUTPUT TIME ONLY AS HHMM
PDLEN==50 ;PUSH-DOWN STACK SIZE
DEFTIM==^D15*^D60*^D1000 ;DEFAULT TIME INTERVAL BETWEEN CHECKPOINTS
ACTMAX==^D39 ;MAX CHARACTERS IN ACCOUNT STRINGS IN DISK ENTRIES
NCHPW==5 ;NUMBER OF ASCII CHARACTERS PER WORD
APPMAX==50 ;MAX SIZE OF APPEND KEYWORD TABLE
CMDMAX==100 ;MAX SIZE OF COMMAND TABLE
ACTBSZ==10 ;SIZE OF ACCOUNT STRING BUFFER
BUFSIZ==200 ;SIZE OF INPUT TEXT BUFFER
ATMSIZ==BUFSIZ ;SIZE OF ATOM BUFFER FOR COMND JSYS
GJFSIZ==.GJRTY+2 ;SIZE OF GTJFN BLOCK USED BY COMND JSYS
DATSIZ==20 ;SIZE OF DATE AND TIME BUFFER
DEFISZ==^D5 ;SIZE OF DEFAULT TIME INTERVAL STRING BUFFER
SVERSZ==20 ;SIZE OF BUFFER FOR SYSTEM NAME AND VERSION
JOBSIZ==20 ;SIZE OF JOB INFORMATION BLOCK FOR GETJI
ACTSIZ==1000 ;SIZE OF ALPHANUMERIC ACCOUNT TABLE
ACPSIZ==ACTSIZ*.ATSIZ ;SIZE OF ALPHA ACCOUNT PAGES TABLE
STRBSZ==21 ;SIZE OF DIRECTORY NAME BLOCK
STRMAX==STRBSZ*5 ;MAXIMUM # OF CHARACTERS IN STRDIR
PAGLEN==^D55 ;NUMBER OF LINES/PAGE ON DISK STATISTICS LISTING
GTDBSZ==13 ;SIZE OF GTDIR BLOCK
;FORMAT OF DISK/DIRECTORY TYPE WORD
DEFSTR (FOND,,0,1) ;FILES ONLY INDICATOR
DEFSTR (STYP,,1,1) ;STRUCTURE TYPE (0 := FOREIGN, 1 := DOMESTIC)
DEFSTR (PSF,,2,1) ;PUBLIC STRUCTURE FLAG
DEFSTR (PPSF,,3,1) ;PRIMARY PUBLIC STR
;UNUSED 4-11
DEFSTR (KTYP,,23,12) ;KONTROLER TYPE
DEFSTR (DTYP,,35,12) ;DRIVE TYPE
RH2TYP==6 ;RH20 TYPE CODE
RP4TYP==0 ;RP04 TYPE CODE
RP5TYP==1 ;RP05 TYPE CODE
RP6TYP==2 ;RP06 TYPE CODE
RP7TYP==3 ;[120] RP07 TYPE CODE
R20TYP==4 ;[120] RP20 TYPE CODE
;DEFINITIONS OF INTERNAL FORMAT OF SYSTEM-DATA FILE
DEFSTR (UHTYP,BUFF+0,17,18) ;TYPE CODE
DEFSTR (UHLEN,BUFF+0,35,18) ;ENTRY LENGTH
DEFSTR (UHTAD,BUFF+1,35,36) ;ENTRY DATE/TIME
DEFSTR (UHDRV,BUFF+2,5,6) ;DEC REVISION #
DEFSTR (UHCRV,BUFF+2,11,6) ;CUST REVISION #
DEFSTR (UHTMT,BUFF+2,17,6) ;TERMINAL TYPE CODE
DEFSTR (UHJNO,BUFF+2,35,18) ;JOB #
DEFSTR (UHPNM,BUFF+3,35,36) ;PROGRAM NAME (SIXBIT)
DEFSTR (UHPVR,BUFF+4,35,36) ;PROGRAM VERSION NUMBER (STD FORM)
DEFSTR (UHMVR,BUFF+5,35,36) ;MONITOR VERSION NUMBER (STD FORM)
DEFSTR (UHJTS,BUFF+6,0,1) ;BATCH/TS FLAG
DEFSTR (UHULN,BUFF+6,5,5) ;USER NAME STRING LEN
DEFSTR (UHSL1,BUFF+6,11,6) ;STRING LENGTH #1 (ACCOUNT)
DEFSTR (UHSL2,BUFF+6,17,6) ;STRING LENGTH #2 (SESSION REMARK)
DEFSTR (UHLNO,BUFF+6,35,18) ;LINE NUMBER
DEFSTR (UHNOD,BUFF+7,35,36) ;NODE NAME (SIXBIT)
UHNAM==BUFF+10 ;LOC OF FIRST WORD OF USER NAME
UHMIN==UHNAM-BUFF+1 ;MINIMUM ENTRY SIZE
UHMAX=^D512*50 ;[123]MAX RECORD SIZE WE WILL HANDLE
MXRTYP==.UTCOL ;MAX RECORD TYPE WE WILL HANDLE
;GTJFN ARGUMENT BLOCK
GTJARG: GJ%OLD!GJ%IFG!GJ%XTN ;MUST BE EXISTING FILE,CAN BE WILDCARDED
; ARG BLOCK CONTAINS MORE THAN 10 WORDS
.NULIO,,.NULIO ;NO INPUT OR OUTPUT JFNS
0 ;NO DEFAULT DEVICE
0 ;NO DEFAULT DIRECTORY
0 ;NO DEFAULT FILE NAME
0 ;NO DEFAULT FILE TYPE
0 ;NO DEFAULT FILE PROTECTION
0 ;NO DEFAULT FILE ACCOUNT
0 ;NO JFN TO ASSOCIATE WITH FILE SPEC
G1%IIN ;DON'T IGNORE INVISIBLE FILES
0 ;NO USERS'S TYPESCRIPT
0 ;IGNORE NUMBER OF BYTES AVAILABLE
0 ;NO CTRL/R
0 ;IGNORE DESTINATION BUFFER
0 ;NO FILE SPEC ATTRIBUTE BLOCK
SUBTTL Macro Definitions
; FUNCTION DESCRIPTOR BLOCK FOR COMND JSYS
DEFINE CMFDB (TYPE,FLAGS,DATA,HELP,DEFLT,LST)
< ..XX== < FLD(TYPE,CM%FNC) + FLAGS + LST >
IFNB <HELP>,< ..XX== ..XX+CM%HPP >
IFNB <DEFLT>,< ..XX== ..XX+CM%DPP >
..XX
IFNB <DATA>,<DATA>
IFB <DATA>,<0>
IFNB <HELP>, <POINT 7,[ASCIZ\HELP\] >
IFB <HELP>, <0>
IFNB <DEFLT>, <POINT 7,DEFLT >
IFB <DEFLT>, <0>
>
DEFINE TXT(TEXT) <POINT 7,[ASCIZ\TEXT\]>
SUBTTL Initialization
;[215]Before we do anything, lets find out whether we are 7.0 or 4.1 because
;depending on which system, we must get the correct ACCOUT-TABLE.BIN.
;If we are 7.0 SYFLAG=-1, If we are 4.1 SYFLAG=0
SY4170: SETOM SYFLAG ;[215]Assume 7.0
MOVE T1,[SIXBIT /MONVER/] ;[215]This table is not in 4.1 monitors
SYSGT% ;[215]Get monitor version
SKIPN T2 ;[215]Was the table found?
SETZM SYFLAG ;[215]No, must br 4.1
START: RESET ;RESET THE WORLD
MOVE P,[IOWD PDLEN,PDL] ;SET UP PUSH-DOWN STACK
SETZB F,COVCNT ;ZERO FLAG WORD AND COLUMN OVERFLOW COUNT
SETZM LSTJFN ;INDICATE NO LISTING FILE FOR DISK STATS
MOVX T1,DEFTIM ;GET DEFAULT TIME BETWEEN CHECKPOINTS
SKIPN CHKTIM ;IS TIME INTERVAL ALREADY SET ?
MOVEM T1,CHKTIM ;NO, SAVE DEFAULT TIME INTERVAL
HRROI T1,DEFINT ;GET POINTER TO DEFAULT INTERVAL BUFFER
MOVE T2,CHKTIM ;GET DEFAULT TIME BETWEEN CHECKPOINT PASSES
IDIV T2,[^D60*^D1000] ;CONVERT TO MINUTES FROM MILLISECONDS
MOVEI T3,^D10 ;USE DECIMAL RADIX
CALL NOUTRS ;OUTPUT DEFAULT TIME INTERVAL
JRST [ MOVE T1,[ASCIZ/15/] ;ASSUME A DEFAULT STRING
MOVEM T1,DEFINT ;SAVE DEFAULT STRING
JRST START0 ] ;REJOIN MAINLINE CODE
START0: CIS ;CLEAR SOFTWARE INTERRUPT SYSTEM
MOVEI T1,.FHSLF ;GET OUR FORK HANDLE
MOVE T2,[LEVTAB,,CHNTAB] ;GET ADDRESS OF INTERRUPT TABLES
SIR ;SET INTERRUPT REGISTERS
MOVE T1,[.TICTI,,0] ;GET "TYPIN-TERMINAL-CODE",,CHANNEL 0
ATI ;ATTACH TERMINAL CODE TO CHANNEL 0
MOVE T1,[.TICCA,,1] ;GET "CONTROL-A-TERMINAL-CODE",,CHANNEL 1
ATI ;ATTACH ^A TO SOFTWARE CHANNEL 1
MOVEI T1,.FHSLF ;GET OUR FORK HANDLE
MOVX T2,1B0+1B1 ;DECATIVATE CHANNELS 0 AND 1 UNTIL LATER
DIC ;DEACTIVATE ^A AND TYPIN CHANNELS
MOVEI T1,.FHSLF ;GET OUR FORK HANDLE
EIR ;ENABLE THE SOFTWARE INTERRUPT SYSTEM
; DETERMINE IF CHKPNT IS RUNNING UNDER JOB 0
; IF RUNNING UNDER JOB 0, AUTOMATICALLY GO INTO CHECKPOINT LOOP
; ELSE, GO PARSE COMMAND FROM USER
SETOM T1 ;INDICATE INFO WANTED FOR OUR JOB
MOVE T2,[-1,,T4] ;ONE ITEM DESIRED, PUT INTO T4
MOVEI T3,.JIJNO ;GET JOB NUMBER OF THIS JOB
GETJI ;GET JOB INFORMATION
JRST [ JSERR ;UNEPXECTED ERROR
GJINF ;TRY GETTING JOB NUMBER THIS WAY
MOVE T4,T3 ;GET OUR JOB NUMBER
JRST START1 ] ;REJOIN MAIN-LINE CODE
START1: MOVEM T4,JOBNUM ;SAVE OUR JOB NUMBER
JUMPE T4,[HALTF ;TERMINATE IF JOB 0
MOVEI T4,0
JRST START1] ;INCASE CONTINUE
; GET NAME OF SYSTEM
MOVX T1,'SYSVER' ;GET NAME OF "SYSTEM NAME" TABLE
SYSGT ;GET TABLE # AND # OF ENTRIES
HLRE P1,T2 ;GET -<NUMBER OF ENTRIES IN TABLE>
MOVN P1,P1 ;GET NUMBER OF ENTRIES IN TABLE
SUBI P1,1 ;FORM INDEX INTO TABLE
HRRZ P2,T2 ;SAVE TABLE NUMBER
START5: HRLZ T1,P1 ;GET INDEX INTO TABLE
HRR T1,P2 ;GET TABLE NUMBER
GETAB ;GET ONE WORD FROM TABLE
JSERR ;UNEXPECTED ERROR
MOVEM T1,SYSVER(P1) ;SAVE ONE WORD OF SYSTEM NAME
SOJGE P1,START5 ;GO GET NEXT WORD OF SYSTEM NAME
SUBTTL Command Parser and Dispatch
HRROI T1,PROMPT ;GET POINTER TO PROMPT STRING
MOVEM T1,CMDBLK+.CMRTY ;PUT RE-TYPE PROMPT POINTER IN STATE BLOCK
HRROI T1,BUFFER ;GET POINTER TO INPUT TEXT BUFFER
MOVEM T1,CMDBLK+.CMPTR ;SAVE POINTER TO COMMAND STRING
MOVEM T1,CMDBLK+.CMBFP ;SAVE POINTER TO START-OF-BUFFER
MOVE T1,[.PRIIN,,.PRIOU] ;GET PRIMARY INPUT,, OUTPUT JFN'S
MOVEM T1,CMDBLK+.CMIOJ ;SAVE PRIMARY JFN'S
MOVEI T1,PARSE1 ;GET RE-PARSE ADDRESS
MOVEM T1,CMDBLK+.CMFLG ;SAVE RE-PARSE ADDRESS
SETZM CMDBLK+.CMINC ;INITIALIZE # OF CHARACTERS AFTER POINTER
MOVEI T1,BUFSIZ*NCHPW ;GET # OF CHARACTERS IN BUFFER AREA
MOVEM T1,CMDBLK+.CMCNT ;SAVE INITIAL # OF FREE CHARACTER POSITIONS
HRROI T1,ATMBFR ;GET POINTER TO ATOM BUFFER
MOVEM T1,CMDBLK+.CMABP ;SAVE POINTER TO LAST ATOM INPUT
MOVEI T1,ATMSIZ*NCHPW ;GET # OF CHARACTERS IN ATOM BUFFER
MOVEM T1,CMDBLK+.CMABC ;SAVE COUNT OF SPACE LEFT IN ATOM BUFFER
PARSE: MOVEI T1,CMDBLK ;GET ADDRESS OF COMMAND STATE BLOCK
MOVEI T2,[CMFDB (.CMINI)] ;GET FUNCTION DESCRIPTOR BLOCK
COMND ;INITIALIZE COMMAND SCANNER JSYS
PARSE1: MOVE T1,[CZ%NCL+.FHSLF] ;DON'T CLOSE, OUR SELF + OUR INFERIORS
CLZFF ;RELEASE ALL JFN'S
MOVE P,[IOWD PDLEN,PDL] ;RESET PDL
MOVE T1,[GJFBLK,,GJFBLK+1] ;SET UP TO CLEAR GTJFN BLOCK
SETZM GJFBLK ;CLEAR FIRST WORD OF BLOCK
BLT T1,GJFBLK+GJFSIZ-1 ;CLEAR GTJFN BLOCK
MOVEI T1,GJFBLK ;GET ADDRESS OF GTJFN BLOCK
MOVEM T1,CMDBLK+.CMGJB ;STORE POINTER TO GTJFN BLOCK
MOVEI T1,CMDBLK ;GET POINTER TO COMMAND STATE BLOCK
MOVEI T2,[CMFDB (.CMKEY,,CMDTAB)] ;GET FUNCTION BLOCK
COMND ;DO INITIAL PARSE
TXNN T1,CM%NOP ;VALID COMMAND ENTERED ?
JRST PARSE5 ;YES, GO DISPATCH TO PROCESSING ROUTINE
CALL TSTCOL ;TEST COLUMN POSITION, NEW LINE IF NEEDED
TMSG <? CHKPNT: No such CHKPNT command as ">
MOVE T1,CMDBLK+.CMABP ;GET POINTER TO ATOM BUFFER
PSOUT ;OUTPUT STRING ENTERED BY USER
TMSG <"
> ;OUTPUT END-OF-MESSAGE
JRST PARSE ;GO TRY TO GET A COMMAND AGAIN
PARSE5: HRRZ T1,(T2) ;GET DISPATCH ADDRESS
CALL (T1) ;PERFORM REQUESTED FUNCTION
SKIPLE COVCNT ;DID WE GET COLUMN--OVERFLOW ERRORS?
CALL NERR ;YES, OUTPUT MESSAGE + COUNT
JRST PARSE ;GO PARSE NEXT COMMAND
SUBTTL CHANGE (ACCOUNTING SHIFT NOW)
.CHANGE:
MOVEI T1,CMDBLK
MOVEI T2,[CMFDB (.CMNOI,,<TXT<ACCOUNTING SHIFT NOW>>)]
COMND ;Do guide words
MOVEI T2,[CMFDB (.CMCFM)] ;GET FUNCTION BLOCK FOR CONFIRMATION
COMND ;REQUIRE CONFIRMATION
TXNE T1,CM%NOP ;VALID END-OF-COMMAND SEEN ?
CALLRET COMER2 ;NO, ISSUE ERROR MESSAGE AND RETURN
MOVX T1,.USCAS ;Change accounting shift function
USAGE ; . . .
ERJMP [JSERR ;Oops.
RET] ;Give up
RET ;All done with CHANGE
SUBTTL CHECKPOINT (EVERY) n (MINUTES)
REPEAT 0,< ;[7.1171] No longer used
.CHECK: MOVEI T1,CMDBLK ;GET ADDRESS OF COMMAND STATE BLOCK
MOVEI T2,[CMFDB (.CMNOI,,<TXT(EVERY)>)] ;GET FUNCTION BLOCK
COMND ;GO PARSE NOISE WORD
MOVEI T2,[CMFDB (.CMNUM,CM%SDH,^D10,NUMBER OF MINUTES,DEFINT)]
;GET FUNCTION BLOCK FOR DECIMAL #
COMND ;GO PARSE A NUMBER
TXNN T1,CM%NOP ;NUMBER CORRECTLY ENTERED ?
JRST CHECK1 ;YES, GO ON
CALL TSTCOL ;SEE IF CRLF NEEDED
TMSG <? CHKPNT: Time interval must be a number
> ;OUTPUT ERROR MESSAGE
RET ;RETURN AND TRY NEXT COMMAND
CHECK1: JUMPG T2,CHECK2 ;GO ON IF INTERVAL ENTERED IS POSITIVE
CALL TSTCOL ;GO SEE IF CRLF NEEDED
TMSG <? CHKPNT: time interval must be a positive number of minutes
> ;OUTPUT ADVISORY MESSAGE
RET ;RETURN AND TRY NEXT COMMAND
CHECK2: IMUL T2,[^D60*^D1000] ;CONVERT TO MILLISECONDS
MOVEM T2,CHKTIM ;SAVE INTERVAL BETWEEN CHECKPOINTS
MOVEI T1,CMDBLK ;GET ADDRESS OF COMMAND BLOCK
MOVEI T2,[CMFDB (.CMNOI,,<TXT(MINUTES)>)] ;GET FUNCTION BLOCK
COMND ;GO PARSE LAST GUIDE PHRASE
MOVEI T2,[CMFDB (.CMCFM)] ;GET FUNCTION BLOCK FOR CONFIRMATION
COMND ;REQUIRE CONFIRMATION
TXNE T1,CM%NOP ;VALID END-OF-COMMAND SEEN ?
CALLRET COMER2 ;NO, ISSUE ERROR MESSAGE AND RETURN
; ENTER CONTINUOUS CHECKPOINT LOOP
CHECK5: MOVEI T1,.FHSLF ;GET OUR FORK HANDLE
RCM ;GET ACTIVATED CHANNELS
MOVE T2,T1 ;COPY CHANNELS TO ACTIVATE
TXO T2,1B0 ;ADD CHANNEL 0 TO ACTIVATED CHANNELS
MOVEI T1,.FHSLF ;GET OUR FORK HANDLE
AIC ;ACTIVATE SOFTWARE INTERRUPT CHANNELS
CHECK7: CALL CHKPNT ;TAKE ONE CHECKPOINT PASS
MOVE T1,CHKTIM ;GET TIME UNTIL NEXT CHECKPOINT
DISMS ;WAIT UNTIL TIME FOR NEXT PASS
JRST CHECK7 ;GO TAKE ANOTHER CHECKPOINT PASS
> ;[7.1171] End of repeat 0
SUBTTL ENTER (SINGLE CHECKPOINT)
.ENTER: MOVEI T1,CMDBLK ;GET ADDRESS OF COMMAND STATE BLOCK
MOVEI T2,[CMFDB (.CMNOI,,<TXT(SINGLE CHECKPOINT)>)] ;GET FUNCTION BLOCK
COMND ;GO PARSE GUIDE WORDS
MOVEI T2,[CMFDB (.CMCFM) ] ;GET FUNCTION BLOCK FOR CONFIRMATION
COMND ;WAIT FOR CONFIRMATION
TXNE T1,CM%NOP ;VALID END-OF-COMMAND SEEN ?
CALLRET COMER2 ;NO, ISSUE ERROR MESSAGE AND RETURN
; CHECK THAT USER IS ALLOWED TO MAKE ENTRIES IN FACT FILE
CHKPNT: MOVEI T1,.FHSLF ;GET FORK HANDLE OF THIS PROCESS
RPCAP ;READ OUR PROCESS CAPABILITIES
TXNN T3,SC%WHL!SC%OPR ;WHEEL OR OPERATOR
JRST CKERR1 ;NO, GO ISSUE ERROR MESSAGE
MOVEI T1,.USCKP ;CHECKPOINT FUNCTION
MOVEI T2,0 ;NO ARGUMENTS
USAGE ;PERFORM A CHECKPOINT
ERJMP [JSERR
JRST .+1]
RET ;DONE
; ERROR ROUTINES
CKERR1: CALL TSTCOL ;SEE IF CRLF NEEDED
TMSG <? CHKPNT: WHEEL or OPERATOR capability required to do checkpointing
>
RET ;RETURN TO WHENCE WE CAME ...
SUBTTL LIST (DISK STATISTICS ON) file-spec
.LIST:
LIST5: MOVEI T1,CMDBLK ;GET ADDRESS OF COMMAND STATE BLOCK
MOVEI T2,[ CMFDB(.CMNOI,,<TXT(DISK STATISTICS ON)>)]
COMND ;PARSE NOISE WORD
MOVE T1,[GJFBLK,,GJFBLK+1] ;SET UP TO CLEAR GTJFN BLOCK FOR COMND
SETZM GJFBLK ;CLEAR FIRST WORD OF BLOCK
BLT T1,GJFBLK+GJFSIZ-1 ;CLEAR GTJFN BLOCK FOR COMND JSYS
HRROI T1,[ASCIZ/DISK-STATISTICS/] ;GET DEFAULT FILE NAME
MOVEM T1,GJFBLK+.GJNAM ;SAVE DEFAULT FILE NAME
HRROI T1,[ASCIZ/LST/] ;GET DEFAULT EXTENSION
MOVEM T1,GJFBLK+.GJEXT ;SAVE DEFAULT EXTENSION
MOVX T1,GJ%FOU ;GET "FOR OUTPUT USE" FLAG
HLLZM T1,GJFBLK+.GJGEN ;SAVE GTJFN FLAGS
MOVEI T1,CMDBLK ;GET ADDRESS OF COMMAND STATE BLOCK
MOVEI T2,[ CMFDB(.CMFIL)] ;GET FUNCTION BLOCK FOR FILE-SPEC
COMND ;PARSE OUTPUT FILE SPEC
TXNN T1,CM%NOP ;NAME PARSED OK?
JRST LIST10 ;YES, GO GET CONFIRMATION
CALL TSTCOL ;OUTPUT CRLF IF NEEDED
TMSG <? CHKPNT: Invalid file specification
> ;output error message
RET ;RETURN
LIST10: HRROI T1,LSTFIL ;CONVERT JFN TO STRING FOR NOW
MOVEI T3,0 ;GET FILSPEC DEFAULTS
JFNS
HRRZ T1,T2
RLJFN ;RELEASE JFN
JFCL
MOVEI T1,CMDBLK ;GET ADDRS OF COMMAND STATE BLOCK
MOVEI T2,[CMFDB (.CMCFM)] ;GET FCN BLOCK FOR EOL
COMND
TXNE T1,CM%NOP ;FAILED?
CALLRET COMER2 ;YES - ISSUE ERROR MSG
SETOM LSTJFN ;SAY WE HAVE A FILESPEC
RET ;RETURN
SUBTTL EXPUNGE (PROCESSED SYSTEM DATA)
.EXPNG: MOVEI T1,CMDBLK ;COMMAND STATE BLOCK
MOVEI T2,[CMFDB (.CMNOI,,<TXT (PROCESSED SYSTEM DATA)>)]
COMND
MOVEI T2,[CMFDB (.CMCFM)]
COMND ;PARSE EOL
TXNE T1,CM%NOP
CALLRET COMER2
;NOW GET A JFN ON THE DESIRED FILES AND DO DELETE AND KEEP
; 1 GENERATION , THEN DO EXPUNGE
MOVX T1,GJ%SHT!GJ%OLD
SKIPE SYFLAG ;[215]7.0?
SKIPA T2,[-1,,[ASCIZ /ACCOUNT:SYSTEM-DATA.BIN.0/]] ;[215]7.0
HRROI T2,[ASCIZ /PS:<ACCOUNTS>SYSTEM-DATA.BIN.0/] ;[215]4.1
GTJFN ;GET A JFN
IFNSK. ;[215]Error
CALL WHATSY ;[215]What system are we
JSERR ;[215]REPORT UNUSUAL FAILURE
RET ;[215]AND EXIT
ENDIF. ;[215]
HRRZM T1,DATJFN ;SAVE JFN
MOVE T2,T1 ;SETUP FOR RCDIR
MOVX T1,RC%EMO ; TO GET DIRECTORY NUMBER
RCDIR
MOVEM T3,DIRNUM ;SAVE IT
MOVE T1,T3 ;NOW GET CURRENT ALLOCATION
GTDAL
MOVEM T2,HIGHV ;SAVE CURRENT USAGE
MOVE T1,DATJFN ;GET THE JFN
MOVEI T2,1 ;KEEP 1 (THE CURRENT)
DELNF ;DELETE THEM
JRST [ JSERR ;REPORT LOSAGE
JRST EXPNGX] ;AND EXIT
MOVEM T2,CURRV ;NUMBER OF FILES DELETED
MOVEI T1,0 ;NOTHING SPECIAL
MOVE T2,DIRNUM ;DIRECTORY NUMBER
DELDF ;DO EXPUNGE
ERJMP [JSERR
JRST .+1]
EXPNGX: MOVE T1,DATJFN ;RELEASE THIS
RLJFN
JFCL
MOVE T1,DIRNUM ;GET ALLOCATION NOW
GTDAL
SUBM T2,HIGHV ;GET DIFFERENCE FROM BEFORE
TMSG < [>
SKIPN T2,CURRV ;ANYTHING DELETED?
JRST [ TMSG <No>
JRST EXPNX1]
MOVEI T1,.PRIOU
MOVEI T3,^D10 ;DECIMAL NUMBER
NOUT
JSERR
EXPNX1: TMSG < file(s) deleted, >
MOVN T2,HIGHV ;PAGES FREED
MOVEI T1,.PRIOU
MOVEI T3,^D10
NOUT
JSERR
TMSG < page(s) freed]
>
RET ;DONE
SUBTTL COPY (SYSTEM DATA TO) file-spec
.COPY: MOVEI T1,CMDBLK ;COMMAND STATE BLOCK
MOVEI T2,[CMFDB (.CMNOI,,<TXT (SYSTEM DATA TO)>)]
COMND ;PARSE GUIDE WORDS
MOVE T1,[GJFBLK,,GJFBLK+1]
SETZM GJFBLK ;CLEAR GTJFN BLOCK
BLT T1,GJFBLK+GJFSIZ-1 ;CLEAR ENTIRE GTJFN BLOCK
MOVEI T1,GJFBLK ;GET ADDRESS OF GTJFN BLOCK
MOVEM T1,CMDBLK+.CMGJB ;SAVE ADDRESS OF GTJFN BLOCK FOR COMND JSYS
HRROI T1,[ASCIZ "USAGE"] ;GET DEFAULT FILE NAME
MOVEM T1,GJFBLK+.GJNAM ;SAVE DEFAULT FILE NAME
HRROI T1,[ASCIZ "OUT"] ;GET DEFAULT EXTENSION STRING
MOVEM T1,GJFBLK+.GJEXT ;SAVE DEFAULT EXTENSION POINTER
MOVX T1,GJ%FOU ;FILE FOR OUTPUT USE
MOVEM T1,GJFBLK
MOVEI T1,CMDBLK ;GET ADDRESS OF COMMAND STATE BLOCK
MOVEI T2,[CMFDB (.CMFIL) ] ;GET FUNCTION BLOCK
COMND ;PARSE NEXT PART OF COMMAND
TXNN T1,CM%NOP ;ABLE TO GET A JFN ?
JRST COPY1 ;YES, GO ON
CALL TSTCOL ;GO SEE IF CRLF NEEDED
TMSG <? CHKPNT: Invalid file specification
>
RET ;RETURN AND DO NEXT COMMAND
COPY1: MOVEM T2,USGJFN ;SAVE JFN OF USAGE FILE
MOVEI T2,[CMFDB (.CMCFM)]
COMND ;PARSE EOL
TXNE T1,CM%NOP
CALLRET COMER2 ;ISSUE MESSAGE AND RETURN
;..
;..
;NOW GET A JFN ON THE CURRENT SYSTEM-DATA FILE AND FIGURE
;OUT THE HIGHEST GENERATION NUMBER WE WILL WANT TO COPY
MOVX T1,GJ%SHT!GJ%OLD
SKIPE SYFLAG ;[215]7.0?
SKIPA T2,[-1,,[ASCIZ /ACCOUNT:SYSTEM-DATA.BIN.0/]] ;[215]7.0
HRROI T2,[ASCIZ /PS:<ACCOUNTS>SYSTEM-DATA.BIN.0/] ;[215]4.1
GTJFN
IFNSK. ;[215]Error
CALL WHATSY ;[215]What system are we
JSERR ;[215]REPORT UNUSUAL FAILURE
RET ;[215]AND EXIT
ENDIF. ;[215]
MOVE T2,T1 ;COPY TO T2 FOR JFNS
HRROI T1,HIGHV ;PLACE FOR STRING
MOVX T3,<FLD (.JSAOF,JS%GEN)>
JFNS ;GET GENERATION NUMBER
MOVE T1,T2 ;GET JFN BACK
RLJFN ;RELEASE IT
JSHLT
MOVEI T1,.USCLS ;CLOSE OFF USAGE FILE
SETZ T2,
USAGE ;...
ERJMP [JSERR
RET] ;REPORT LOSAGE
MOVX T1,GJ%SHT!GJ%IFG!GJ%OLD
SKIPE SYFLAG ;[215]7.0?
SKIPA T2,[-1,,[ASCIZ /ACCOUNT:SYSTEM-DATA.BIN.*/]] ;[215]7.0
HRROI T2,[ASCIZ /PS:<ACCOUNTS>SYSTEM-DATA.BIN.*/] ;[215]4.1
GTJFN ;GET JFN ON ALL DATA FILES
IFNSK. ;[215]Error
CALL WHATSY ;[215]What system are we
JSERR ;[215]REPORT UNUSUAL FAILURE
RET ;[215]AND EXIT
ENDIF. ;[215]
MOVEM T1,DATJFN ;SAVE IT
;NOW OPEN USAGE OUTPUT FILE
MOVE T1,USGJFN ;GET OUTPUT JFN
MOVX T2,7B5+OF%WR ;CREATE FILE
OPENF
JRST [ TMSG <?CHKPNT: Could not open USAGE file.>
JSERR
RET]
;7.1171 CALL FILHDR ;PUT OUT HEADER RECORD
;..
;..
;NOW LOOP OVER ALL EXISTING FILES AND CREATE USAGE FILE
COPY2: HRRZ T1,DATJFN ;GET INPUT JFN
MOVX T2,44B5+OF%RD ;36BIT MODE, READ
OPENF ;OPEN DATA FILE
JRST [ TMSG <?CHKPNT: Could not open file: >
HRRZ T2,DATJFN
MOVEI T1,.PRIOU
MOVEI T3,0
JFNS ;REPORT FILE NAME
JSERR ; THEN ERROR
TMSG <% File being skipped...>
JRST COPY3]
CALL MAKUSG ;CONVERT FILE
;ALL DONE - CLOSE FILE AND CHECK IF DONE
HRRZ T1,DATJFN ;CLOSE FILE
TXO T1,CO%NRJ ; AND RETAIN JFN
CLOSF
JSHLT ;IMPOSSIBLE
COPY3: HRRZ T2,DATJFN ;NOW SEE IF THIS WAS THE LAST
HRROI T1,CURRV ;BUFFER FOR GENERATION #
MOVX T3,<FLD (.JSAOF,JS%GEN)>
JFNS
HRROI T1,CURRV
HRROI T2,HIGHV
STCMP ;COMPARE STRINGS
JUMPE T1,COPY4 ;MATCH - DONE
MOVE T1,DATJFN ;NOMATCH - STEP TO NEXT FILE
GNJFN ;...
JRST [ JSERR ;BETTER NOT HAPPEN
RET]
JRST COPY2
;ALL DONE - CLOSE OUTPUT AND RETURN
COPY4: MOVE T1,USGJFN
CLOSF ;CLOSE OUPUT FILE
JSERR
RET ;RETURN
SUBTTL DISK-STATISTICS (FOR STRUCTURE) str:
.DISK: MOVEI T1,CMDBLK ;GET ADDRESS OF COMMAND STATE BLOCK
MOVEI T2,[CMFDB (.CMNOI,,<TXT(FOR STRUCTURE)>)]
COMND ;PARSE NOISE PHRASE
HRROI T2,STRBUF ;INIT STRING
MOVEM T2,STRPTR ; POINTER
MOVEI T2,[CMFDB (.CMDEV,CM%SDH,,<STRUCTURE NAME>,<[ASCIZ "DSK"]>)]
COMND
TXNE T1,CM%NOP
JRST [ TMSG <? CHKPNT: Invalid structure name given
>
RET]
MOVE P1,T2 ;SAVE DESIGNATOR
MOVEI T2,[CMFDB (.CMCFM) ] ;GET FUNCTION BLOCK FOR CONFIRM
COMND ;WAIT FOR CONFIRMATION
TXNE T1,CM%NOP ;VALID END-OF-COMMAND SEEN ?
CALLRET COMER2 ;NO, ISSUE ERROR MESSAGE AND RETURN
MOVE T1,P1 ;GET DESIGNATOR
DVCHR ;GET ITS CHARACTERISTICS
LDB T1,[POINTR T2,DV%TYP]
CAIE T1,.DVDSK ;MAKE SURE IT IS A DISK
JRST [ TMSG <?CHKPNT: Invalid structure name given
>
RET]
MOVE T2,P1 ;DESIGNATOR AGAIN
MOVE T1,STRPTR ;POINTER TO BUFFER
DEVST ;CONVERT TO STRING
JRST [ JSERR
RET] ;HANDLE ERROR
MOVEI T2,":" ;PUT ON TERMINATING COLON
IDPB T2,T1
MOVEM T1,STRPTR ;UPDATED STRING POINTER
HRROI T1,STRNAM ;GET STR NAME STRING ALONE
MOVE T2,P1
DEVST
JFCL ;IGNORE
CALL GSTINF ;GET STRUCTURE INFO
;INTO TYPWRD
SUBTTL DISK-STATISTICS (FOR STRUCTURE) str: -- Initialization
; OPEN LISTING FILE IF ANY SPECIFIED
MOVE T1,LSTJFN ;GET FLAG
SETOM LSTJFN ;MARK NON-EXISTANT
JUMPE T1,DODSK ;NONE - PROCEEDE
MOVX T1,GJ%FOU!GJ%SHT
HRROI T2,LSTFIL ;FILE SPEC FROM BEFORE
GTJFN ;GET A JFN ON IT
ERJMP [TMSG <%Cannot get a JFN on listing file.>
JSERR
JRST DODSK]
MOVX T2,<FLD (7,OF%BSZ)+OF%WR>
OPENF
ERJMP [TMSG <%Cannot open listing file.>
JSERR
JRST DODSK]
MOVEM T1,LSTJFN ;SAVE JFN FOR LATER
;GET FIRST DIRECTORY NUMBER FOR THIS STRUCTURE
DODSK: MOVE T1,STRPTR ;POINT TO STRUCTURE
HRROI T2,[ASCIZ "<*>"]
MOVEI T3,0
SOUT ;BUILD FILESPEC
MOVX T1,RC%AWL ;ALLOW STARS
HRROI T2,STRBUF ;POINT TO STRING
RCDIR ;GET DIRECTORY NUMBER
ERJMP [TMSG <?Unable to access directories>
JSERR
JRST DKERRX]
MOVEM T3,DIRNUM ;SAVE FIRST NUMBER
;CHECK PROCESS CAPABILITIES
MOVEI T1,.FHSLF ;GET OUR FORK HANDLE
RPCAP ;READ PROCESS CAPABILITIES
TXNN T3,SC%WHL!SC%OPR ;WHEEL OR OPERATOR POSSIBLE ?
CALLRET DKERR3 ;NO, GO ISSUE MESSAGE AND RETURN
; ACTIVATE SOFTWARE INTERRUPT CHANNEL 1 FOR ^A (FOR STATUS REPORT)
MOVEI T1,.FHSLF ;GET OUR FORK HANDLE
RCM ;GET ACTIVATED CHANNELS
MOVE T2,T1 ;COPY ACTIVATED CHANNELS
TXO T2,1B1 ;ADD CHANNEL 1
MOVEI T1,.FHSLF ;GET OUR FORK HANDLE
AIC ;ACTIVATE CHANNEL 1
; OUTPUT HEADER FOR LISTING FILE IF LISTING BEING MADE
MOVEI T1,0 ;GET INITIAL PAGE NUMBER
MOVEM T1,PAGNUM ;INITIALIZE LISTING PAGE NUMBER
MOVEI T1,1 ;GET INITIAL LINE NUMBER
MOVEM T1,LINNUM ;INITIALIZE LINE NUMBER ON PAGE
SKIPG LSTJFN ;MAKING A LISTING FILE ?
JRST DODSK2 ;NO, GO CONNECT TO FIRST DIRECTORY
CALL WRTHDR ;WRITE A HEADER ON THE LISTING FILE
SETZM ASTEND ;CLEAR POINTER
;..
SUBTTL DISK-STATISTICS (FOR STRUCTURE) str: -- Loop Over Directories
; CLEAR TABLES AND INITIALIZE TABLE POINTERS
DODSK2: SETZM TOTFIL ;CLEAR TOTAL NUMBER OF FILES FOR THIS DIRECTORY
SETZM TOTPGS ;CLEAR TOTAL NUMBER OF PAGES FOR THIS DIRECTORY
SETZM TOTACT ;CLEAR TOTAL NUMBER OF ACCOUNTS FOR THIS DIR
SETZM ALCPGS ;[131]Clear total allocated pages for directory
SKIPN T2,ASTEND ;FIRST TIME HERE?
JRST DODK2A ;YES - SKIP CLEAR
SETZM STRACT ;ELSE CLEAR STRING SPACE
MOVE T1,[STRACT,,STRACT+1] ;ALREADY USED
BLT T1,-1(T2) ;...
DODK2A: MOVE T1,[ACTTAB,,ACTTAB+1] ;SET UP TO CLEAR ALPHA ACCOUNT TABLE
SETZM ACTTAB ;CLEAR FIRST WORD OF TABLE
BLT T1,ACTTAB+ACTSIZ-1 ;CLEAR ALPHA ACCOUNT TABLE
MOVE T1,[ACPTAB,,ACPTAB+1] ;SET UP TO CLEAR ALPHA ACCOUNT PAGES TABLE
SETZM ACPTAB ;CLEAR FIRST WORD OF TABLE
BLT T1,ACPTAB+ACPSIZ-1 ;CLEAR ALPHA ACCOUNT PAGE COUNT TABLE
MOVEI T1,ACTSIZ ;GET CURRENT,,MAX SIZE OF ALPHA ACCT TABLE
MOVEM T1,ACTTAB ;SAVE INITIAL TABLE HEADER WORD
MOVEI T1,STRACT ;GET ADDRESS OF ALPHA ACCOUNT STRINGS
MOVEM T1,ASTEND ;SAVE ADDRESS OF NEXT FREE WORD
MOVEI T1,ACPTAB ;GET ADDRESS OF FIRST ENTRY IN SIZE TABLE
MOVEM T1,ACPEND ;SAVE POINTER TO NEXT ENTRY IN SIZE TABLE
;GET DIRECTORY INFORMATION
HRROI T1,FILBUF ;[119]pointer to tempory spot
MOVE T2,DIRNUM ;[119]get current directory number
DIRST ;[119]write out directory name
JRST [ JSERR ;[119]write error
JRST DODK45] ;[119]IGNORE THIS ONE
MOVE T1,[POINT 7,FILBUF] ;[119]make a pointer to STR:<DIRECTORY>
MOVE T2,[POINT 7,DIRNAM] ;[119]make a pointer to just name
DODK21: ILDB T3,T1 ;[119]get a byte from STR:<DIRECTORY>
CAIE T3,"<" ;[119]are we up to the "<"?
JRST DODK21 ;[119]no, keep going
DODK22: ILDB T3,T1 ;[119]yes, write name (get byte)
CAIN T3,">" ;[119]are we done yet?
JRST DODK23 ;[119]yes.
IDPB T3,T2 ;[119]no, copy byte to name buffer
JRST DODK22 ;[119]go back and do next byte
DODK23: MOVEI T3,0 ;[119]done, make sure it's an ASCIZ string
IDPB T3,T2 ;[119]append a NUL
MOVEI T1,GTDBSZ ;SETUP BUFFER
MOVEM T1,GTDBUF+.CDLEN ; LENGTH OF ITEMS WANTED
MOVE T1,DIRNUM ;DIRECTORY NUMBER
MOVEI T2,GTDBUF ;POINT TO BUFFER
SETZ T3, ;NO PASSWORD
GTDIR
ERJMP [JSERR ;LOSING ERROR
JRST DODK45] ;SKIP DIRECTORY
MOVE T2,[^D999999] ;MAX ALLOWABLE RANGE
MOVM T1,GTDBUF+.CDLIQ ;GET LOGGED IN QUOTA
CAML T1,[^D1000000] ;VALID RANGE?
MOVEM T2,GTDBUF+.CDLIQ ;STUFF MAX ALLOWED
MOVM T1,GTDBUF+.CDLOQ ;CHECK LOGGED OUT QUOTA
CAML T1,[^D1000000]
MOVEM T2,GTDBUF+.CDLOQ
LDB T1,[POINTR <GTDBUF+.CDMOD>,CD%DIR]
STOR T1,FOND,TYPWRD ;SAVE FILES ONLY INDICATOR
;[119] GET AN INDEXABLE FILE HANDLE FOR ALL FILES IN THE CURRENT DIRECTORY
HRROI T1,FILBUF ;[119]CONSTRUCT FILESPEC
MOVE T2,DIRNUM ;[119]FORM DIRECTORY NAME
DIRST ;[119]
JRST [ JSERR ;[119]
JRST DODK10] ;[119]Write out dirctory info
HRROI T2,[ASCIZ "*.*.*"] ;[119]
MOVEI T3,0 ;[119]
SOUT ;[119]APPEND FILESPEC
MOVEI T1,GTJARG ;[119]MOVE ARGUMENT TABLE ADDRESS TO T1
HRROI T2,FILBUF ;[119]ALL FILES
GTJFN ;[119]GET AN INDEXABLE FILE HANDLE
JRST [ CAIE T1,GJFX32 ;[119]ERROR - WAS IT NO FILES IN DIRECTORY ?
JSERR ;[119]NO, ISSUE ERROR MESSAGE
JRST DODK10 ] ;[119]Write this dirctory, go to next one
MOVEM T1,FILJFN ;[119]SAVE JFN FOR ALL FILES IN DIRECTORY
HRRZ T2,T1 ;[119]MAKE SPECIAL COPY OF
HRROI T1,STRDIR ;[119] STRUCTURE AND DIRECTORY NAME
MOVX T3,1B2+1B5+1B35 ;[119] FOR ACCOUNT FILE BLOCK
JFNS ;[119]
SUBTTL DISK-STATISTICS (FOR STRUCTURE) str: -- Loop over files
; LOOP OVER ALL FILES IN THE CURRENT DIRECTORY
DODSK3: AOS TOTFIL ;INCREMENT # OF FILES IN CURRENT DIRECTORY
MOVE T1,[ACTBUF,,ACTBUF+1] ;SET UP TO CLEAR ACCOUNT BUFFER
SETZM ACTBUF ;CLEAR FIRST WORD OF ACCOUNT BUFFER
BLT T1,ACTBUF+ACTBSZ-1 ;CLEAR ASCIZ ACCOUNT BUFFER
HRRZ T1,FILJFN ;GET JFN OF CURRENT FILE
HRROI T2,ACTBUF ;GET POINTER TO ASCIZ ACCOUNT BUFFER
GACTF ;GET ACCOUNT FOR CURRENT FILE
JRST [ JSERR ;UNEXPECTED ERROR
JRST DODSK9 ] ;GO ON TO NEXT FILE IN DIRECTORY
JRST DODSK6 ;ALPHANUMERIC ACCOUNT - SEE IF IN TABLE
;CONVERT ACCOUNT NUMBER TO STRING
HRROI T1,ACTBUF ;ASCIZ POINTER
TLZ T2,(7B2) ;CLEAR THIS JUNK
MOVEI T3,^D10 ;DECIMAL RADIX
CALL NOUTR ;CONVERT TO STRING
; HERE FOR ALPHANUMERIC ACCOUNTS
DODSK6: MOVEI T1,ACTTAB ;GET ADDRESS OF TABLE HEADER WORD
HRROI T2,ACTBUF ;GET POINTER TO ACCOUNT STRING
TBLUK ;SEE IF STRING ALREADY IN TABLE
TXNN T2,TL%EXM ;EXACT MATCH ?
JRST DODSK7 ;NO, GO ADD STRING TO TABLE
HRRZ AT,(T1) ;YES, GET ADDRESS OF SIZE ENTRY
JRST DODK7A ;GO GET SIZE OF THE FILE
; HERE TO ADD A NEW ALPHANUMERIC ACCOUNT STRING TO TABLE
DODSK7: HRRO T1,ASTEND ;FORM POINTER TO WHERE STRING WILL GO
HRROI T2,ACTBUF ;GET POINTER TO WHERE STRING IS NOW
SETZM T3 ;TERMINATE ON NULL BYTE
SOUT ;MOVE STRING TO ALPHA ACCOUNT STRING AREA
HRLZ T2,ASTEND ;GET ADDRESS WHERE STRING WAS JUST MOVED
IBP T1 ;INCREMENT POINTER PAST TEXT JUST MOVED
AOS T1 ;INCREMENT ADDRESS OF FREE POINTER
HRRZM T1,ASTEND ;SAVE NEW FREE SPACE POINTE
HRR T2,ACPEND ;GET ADDRESS OF ENTRY IN SIZE TABLE
MOVEI T1,ACTTAB ;GET ADDRESS OF TABLE HEADER WORD
TBADD ;ADD STRING TO TABLE
MOVE AT,ACPEND ;GET ADDRESS OF NEXT ENTRY
CAIL AT,ACPTAB+ACPSIZ ;AT END OF SIZE TABLE ?
CALL DKERR2 ;YES, ISSUE MESSAGE
MOVEI T1,.ATSIZ ;get size of table entries
ADDM T1,ACPEND ;update pointer to next free entry
AOS TOTACT ;INCREMENT # OF ACCOUNTS FOR THIS DIRECTORY
; GET SIZE OF CURRENT FILE AND ADD TO # OF PAGES FOR THIS ALPHA ACCOUNT
DODK7A: HRRZ T1,FILJFN ;GET JFN OF CURRENT FILE
SIZEF ;GET SIZE OF CURRENT FILE
JRST [ JSERR ;UNEXPECTED ERROR
JRST DODSK9 ] ;GO ON TO NEXT FILE
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
; DONE WITH CURRENT FILE - GO ON TO NEXT FILE IN DIRECTORY
DODSK9: MOVE T1,FILJFN ;GET INDEXABLE FILE HANDLE
GNJFN ;GET NEXT JFN IN CURRENT DIRECTORY
JRST [ CAIE T1,GNJFX1 ;ERROR - WAS IT NO MORE FILES IN SPECIFICATION ?
JSERR ;NO, ISSUE ERROR MESSAGE
JRST DODK10 ] ;GO OUTPUT CURRENT ACCOUNT INFORMATION
JRST DODSK3 ;GO ACCUMULATE INFORMATION ON NEXT FILE
SUBTTL DISK-STATISTICS (FOR STRUCTURE) str: -- Write Usage Data
;NOW DUMP DATA INTO SYSTEM USAGE FILE
DODK10: HLRZ AT,ACTTAB ;GET # OF ENTRIES IN TABLE
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.
SKIPN TOTACT ;[130]Is this an empty directory?
AOS TOTACT ;[130]Yes, make the count of accts one
MOVEI T1,.ATSIZ ;SET ITEM SIZE IN TABLE
HRRM T1,ACTTAB ; FOR USAGE JSYS
MOVEI T1,.USENT ;WRITE DISK STATS
MOVEI T2,DSKBLK ;POINTER TO DATA
USAGE
ERJMP [JSERR ;REPORT LOSAGE
JRST .+1] ; AND CONTINUE
;..
; HERE WHEN DONE WITH EACH DIRECTORY
DODK40: SKIPLE LSTJFN ;listing of statistics wanted ?
CALL LSTDSK ;YES, GO OUTPUT DISK STAT LISTING
DODK45: MOVX T1,RC%STP!RC%AWL
HRROI T2,STRBUF
MOVE T3,DIRNUM ;WHERE WE ARE
RCDIR ;TO NEXT
ERJMP [JSERR ;ERROR
JRST DODK50]
TXNE T1,RC%NMD ;MORE?
JRST DODK50 ;NO - DONE
MOVEM T3,DIRNUM ;YES - SAVE NUMBER
JRST DODSK2 ;DO NEXT DIR
DODK50: SKIPG LSTJFN ;USING A LISTING FILE ?
JRST DODK60 ;NO, GO TURN OFF OUT CAPABILITIES
HRRZ T1,LSTJFN ;GET LISTING FILE JFN
CLOSF ;CLOSE LISTING FILE
JSERR ;UNEXPECTED ERROR
DODK60: SETZM LSTJFN ;INDICATE NO LISTING FILE FOR DISK STATS
MOVEI T1,.FHSLF ;GET OUR FORK HANDLE
MOVX T2,1B1 ;GET SOFTWARE INTERRUPT CHANNEL 1 BIT
DIC ;DEACTIVATE CHANNEL 1 (CONTROL-A)
RET ;RETURN TO WHENCE WE CAME ...
SUBTTL DISK-STATISTICS (FOR STRUCTURE) str: -- Usage Template
;DISK STATISTICS TEMPLATE FOR USAGE JSYS
DSKBLK: USENT. (.UTFLU,1,1) ;FILE USAGE RECORD TYPE
USSTR. (<-1,,STRNAM>) ;STRUCTURE NAME STRING
USDIR. (<-1,,DIRNAM>) ;DIRECTORY NAME STRING
USNRF. (TOTACT) ;TOTAL NUMBER OF ACCOUNTS
USTAL. (ALCPGS) ;[131] Total number of allocated pages
USTUS. (TOTPGS) ;TOTAL NUMBER OF PAGES
USTNF. (TOTFIL) ;TOTAL NUMBER OF FILES
USLIQ. (GTDBUF+.CDLIQ) ;LOGGED IN QUOTA
USLOQ. (GTDBUF+.CDLOQ) ;LOGGED OUT QUOTA
USLLI. (GTDBUF+.CDLLD) ;DATE/TIME LAST LOGGED IN
USAGE. (.USDSX,0,.USOCT,0,TYPWRD) ;STR/DIR INFO
USDSK. (ACTTAB) ;ACCOUNT TABLE INFO
USPVR. (<ENTVEC+2>) ;VERSION NUMBER
0 ;END OF TABLE
SUBTTL DISK-STATISTICS (FOR STRUCTURE) str: -- Statistics Subroutines
;ROUTINE TO GET VARIOUS BITS OF STRUCTURE INFO INTO TYPWRD
; P1/ DEVICE DESIGNATOR
GSTINF: MOVEM P1,STSBLK ;SETUP DEVICE DESIG.
MOVE T1,[2,,.MSGSS]
MOVEI T2,STSBLK
MSTR ;GET STRUCTURE STATUS
LDB T1,[POINTR <STSBLK+.MSGST>,MS%PS]
STOR T1,PSF,TYPWRD ;PUBLIC STRUCTURE BIT
LDB T1,[POINTR <STSBLK+.MSGST>,MS%DOM]
STOR T1,STYP,TYPWRD ;FOREIGN/DOMESTIC BIT
LDB T1,[POINTR <STSBLK+.MSGST>,MS%PPS]
STOR T1,PPSF,TYPWRD ;PRIMARY PUBLIC STR BIT
MOVEI T1,RH2TYP ;RH20 TYPE CODE
STOR T1,KTYP,TYPWRD
;SETUP FOR FINDING UNIT IN STR TO GET DEVICE TYPE STUFF
SETOM RNUBLK+.MSRCH ;INIT FOR FIRST UNIT
SETOM RNUBLK+.MSRCT
SETOM RNUBLK+.MSRUN
MOVEI T1,RP4TYP ;DEFAULT TO RP04
STOR T1,DTYP,TYPWRD
GSTIN1: CALL GTUSTS ;GET UNIT STATUS
RET ;NO MORE UNITS
CALL STRMAT ;MATCH STR WANTED?
JRST GSTIN1 ;NO - TRY NEXT
LDB T1,[POINTR <RNUBLK+.MSRST>,MS%TYP]
MOVEI T2,RP4TYP ;DEFAULT IF NONE FOUND
CAIN T1,.MSRP5 ;RP05?
MOVEI T2,RP5TYP
CAIN T1,.MSRP6 ;RP06
MOVEI T2,RP6TYP
CAIN T1,.MSRP7 ;[120] RP07?
MOVEI T2,RP7TYP ;[120] YES, SET IT
CAIN T1,.MSR20 ;[120] RP20?
MOVEI T2,R20TYP ;[120] YES, SET IT
STOR T2,DTYP,TYPWRD ;STORE DEVICE TYPE CODE
RET ;RETURN
;ROUTINE TO READ-NEXT-UNIT STATUS
GTUSTS: HRROI T1,FILBUF ;PLACE FOR STRUCTURE NAME
MOVEM T1,RNUBLK+.MSRSN
SETZM RNUBLK+.MSRSA ;DONT CARE ABOUT ALIAS
MOVE T1,[.MSRLN,,.MSRNU] ; LEN,,FCN
MOVEI T2,RNUBLK ;ADDRS OF ARGS
MSTR ;GET STATUS
ERJMP [MOVEI T1,.FHSLF ;OURSELVES
GETER
HRRZ T1,T2
CAIE T1,MSTX18 ;NO MORE UNITS?
JSERR ;ERROR
RET] ;NO - RETURN
RETSKP ;GOOD RETURN
;ROUTINE TO CHECK IF THIS UNIT IS OFF-LINE AND PART OF
;THE STRUCTURE WE WANT (STRNAM)
STRMAT: MOVE T1,RNUBLK+.MSRST ;GET UNIT STATUS
TXNN T1,MS%MNT ;MOUNTED?
RET ;OFF-LINE, DIAG, OR BAD
HRROI T1,FILBUF ;CONSIDER THIS NAME
HRROI T2,STRNAM ;REQUESTED STRUCTURE
STCMP ;MATCH STRINGS
JUMPN T1,R ;RETURN IF NO MATCH
RETSKP ;SKIP IF MATCH
SUBTTL DISK-STATISTICS (FOR STRUCTURE) str: -- Output to Listing File
; ROUTINE TO OUTPUT DISK STATISTICS TO LISTING FILE FOR EACH DIRECTORY
LSTDSK: HRRZ T1,LSTJFN ;GET LISTING FILE JFN
MOVE T2,DIRNUM ;GET CURRENT DIRECTORY NUMBER
DIRST ;OUTPUT NAME OF CURRENT DIRECTORY
JSERR ;UNEXPECTED ERROR
CALL TSTPAG ;SEE IF NEW PAGE NEEDED
; LOOP OVER ALL ALPHANUMERIC ACCOUNTS
LSTDS5: HLRZ P1,ACTTAB ;GET # OF ENTRIES IN ALPHA ACCOUNT TABLE
JUMPE P1,LSTDS8 ;IF NO ALPHA ACCOUNTS, GO ON
MOVN P1,P1 ;GET NEGATIVE NUMBER OF ENTRIES
HRLZ P1,P1 ;GET - # OF ENTRIES,, 0
HRRI P1,ACTTAB+1 ;GET ADDRESS OF FIRST ENTRY
LSTDS6: HRRZ T1,LSTJFN ;GET LISTING FILE JFN
HRROI T2,[ASCIZ " "] ;GET TABS
SETZM T3 ;TERMINATE ON NULL BYTE
SOUT ;OUTPUT A TAB
HLRO T2,(P1) ;GET POINTER TO ACCOUNT STRING
MOVEI T3,ACTMAX ;GET MAX # OF CHARACTERS TO MOVE
MOVEI T4,.CHNUL ;GET TERMINATING BYTE (NULL)
SOUT ;OUTPUT ACCOUNT STRING
BKJFN ;[118] BACK OVER THE NULL
ERJMP .+1 ;[118] IGNORE ERROR HERE
SUBI T3,ACTMAX ;COMPUTE -<# OF CHARACTERS IN ACCOUNT STRING>
MOVM T3,T3 ;GET NUMBER OF CHARACTERS IN ACCOUNT STRING
CAILE T3,^D8 ;ANOTHER TAB REQUIRED ?
JRST LSTD6A ;NO, GO SEE IF CRLF NEEDED
HRRZ T1,LSTJFN ;YES, GET LISTING FILE JFN
MOVEI T2,.CHTAB ;GET A TAB
BOUT ;OUTPUT ANOTHER TAB FOR SPACING
JRST LSTDS7 ;GO ON
LSTD6A: CAIG T3,^D15 ;MORE THAN 15 COLUMNS ?
JRST LSTDS7 ;NO, GO OUTPUT A TAB
CALL TSTPAG ;go output a crlf, see if new page needed
HRRZ T1,LSTJFN ;GET LISTING FILE JFN
HRROI T2,[ASCIZ " "] ;GET THREE TABS
SETZM T3 ;TERMINATE ON NULL BYTE
SOUT ;MAKE COLUMNS LINE UP
LSTDS7: HRRZ T1,LSTJFN ;GET LISTING FILE JFN
HRROI T2,[ASCIZ " "] ;GET A TAB
SETZM T3 ;TERMINATE ON NULL
SOUT ;OUTPUT A TAB
HRRZ AT,(P1) ;GET ADDRESS OF ENTRY FOR THIS ACCOUNT
HRRZ T1,LSTJFN ;GET LISTING FILE JFN
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
MOVE T2,.ATPGS(AT) ;GET # OF PAGES FOR THIS ACCOUNT
MOVEI T3,^D10 ;GET DECIMAL RADIX
TXO T3,1B2+6B17 ;USE LEADING FILLER
CALL NOUTR ;OUTPUT NUMBER OF PAGES
HRROI T2,[ASCIZ " "] ;GET A TAB
SETZM T3 ;TERMINATE ON NULL
SOUT ;OUTPUT PUNCTUATION
MOVE T2,.ATFIL(AT) ;GET # OF FILES FOR THIS ACCOUNT
MOVEI T3,^D10 ;GET DECIMAL RADIX
TXO T3,1B2+6B17 ;USE LEADING FILLER
CALL NOUTR ;OUTPUT # OF FILES FOR THIS ACCOUNT
CALL TSTPAG ;output a crlf, see if new page needed
AOBJN P1,LSTDS6 ;LOOP OVER ALL ALPHANUMERIC ACCOUNTS
; HERE WHEN DONE WITH ALL ACCOUNTS FOR THIS DIRECTORY
LSTDS8: CALL TSTPAG ;Go see if new page needed
HRRZ T1,LSTJFN ;GET LISTING FILE JFN
HRROI T2,[ASCIZ " Total of "] ;GET FIRST PART OF SUMMARY LINE
SETZM T3 ;TERMINATE ON NULL BYTE
SOUT ;OUTPUT INITIAL PART OF SUMMARY
MOVE T2,TOTPGS ;GET TOTAL # OF PAGES FOR THIS DIRECTORY
MOVEI T3,^D10 ;GET DECIMAL RADIX
CALL NOUTR ;OUTPUT # OF PAGES FOR THIS DIRECTORY
HRROI T2,[ASCIZ " page"];GET INITIAL PART OF STRING
SETZM T3 ;TERMINATE ON NULL
SOUT ;OUTPUT STRING
MOVEI T2,"s" ;GET PLURAL SUFFIX
MOVE T3,TOTPGS ;GET TOTAL NUMBER OF PAGES
CAIE T3,1 ;JUST ONE PAGE ?
BOUT ;NO, OUTPUT SUFFIX
HRROI T2,[ASCIZ " in "] ;GET STRING
SETZM T3 ;TERMINATE ON NULL
SOUT ;OUTPUT REST OF STRING
MOVE T2,TOTFIL ;GET TOTAL NUMBER OF FILES FOR CURRENT DIR
MOVEI T3,^D10 ;GET DECIMAL RADIX
CALL NOUTR ;OUTPUT TOTAL NUMBER OF FILES
HRROI T2,[ASCIZ " file"] ;GET FIRST PART OF STRING
SETZM T3 ;TERMINATE ON NULL BYTE
SOUT ;OUTPUT END OF SUMMARY LINE
MOVEI T2,"s" ;GET PLURAL SUFFIX
MOVE T3,TOTFIL ;GET TOTAL NUMBER OF FILES
CAIE T3,1 ;EXACTLY ONE FILE ?
BOUT ;NO, OUTPUT AN 'S'
HRROI T2,[ASCIZ " in "]
SETZM T3 ;TERMINATE ON NULL
SOUT ;OUTPUT REMAINDER OF STRING
MOVE T2,TOTACT ;GET NUMBER OF ACCOUNTS FOR THIS DIRECTORY
MOVEI T3,^D10 ;GET DECIMAL RADIX
CALL NOUTR ;OUTPUT NUMBER OF ACCOUNTS IN THIS DIRECTORY
HRROI T2,[ASCIZ " account"] ;GET FIRST PART OF STRING
SETZM T3 ;TERMINATE ON NULL
SOUT ;OUTPUT END-OF-LINE
MOVEI T2,"s" ;GET PLURAL SUFFIX
MOVE T3,TOTACT ;GET TOTAL NUMBER OF ACCOUNTS
CAIE T3,1 ;EXACTLY ONE ACCOUNT ?
BOUT ;NO, OUTPUT PLURAL SUFFIX
CALL TSTPAG ;EXTRA CRLF
CALLRET TSTPAG ;OUTPUT A CRLF
; SUBROUTINES FOR LISTING FILE PRODUCTION
; ROUTINE TO OUTPUT A FORM FEED AND A HEADER LINE ON A NEW PAGE OF LISTING
WRTHDR: HRRZ T1,LSTJFN ;GET LISTING FILE JFN
MOVEI T2,.CHFFD ;GET A FORMFEED
BOUT ;NEW PAGE
AOS PAGNUM ;INCREMENT CURRENT PAGE NUMBER
HRRZ T1,LSTJFN ;GET LISTING FILE JFN
HRROI T2,[ASCIZ "Disk Utilization Statistics "]
SETZM T3 ;terminate on null byte
SOUT ;output disk statistics header line
HRRZ T1,LSTJFN ;GET LISTING FILE JFN
SETOM T2 ;USE CURRENT DATE AND TIME
SETZM T3 ;USE NORMAL FORMAT
ODTIM ;OUTPUT THE DATE AND TIME
HRROI T2,[ASCIZ " Page "]
SETZM T3 ;TERMINATE ON NULL BYTE
SOUT ;OUTPUT REST OF STRING
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
HRRZ T1,LSTJFN ;GET LISTING FILE JFN
HRROI T2,SYSVER ;GET POINTER TO SYSTEM NAME AND VERSION
SOUT ;OUTPUT SYSTEM NAME AND VERSION
HRRZ T1,LSTJFN ;GET LISTING FILE JFN
HRROI T2,[ASCIZ "
Directory Account Allocated Used Files
Pages Pages
"] ;GET END-OF-LINE
SETZM T3 ;TERMINATE ON NULL
SOUT ;OUTPUT END-OF-LINE
MOVEI T1,4 ;get current line number
MOVEM T1,LINNUM ;save current line number
RET ;return to whence we came ...
; ROUTINE TO OUTPUT A CRLF AND TEST FOR NEW PAGE NEEDED
TSTPAG: HRRZ T1,LSTJFN ;GET LISTING FILE JFN
HRROI T2,[ASCIZ "
"] ;GET END-OF-LINE
SETZM T3 ;TERMINATE ON NULL BYTE
SOUT ;OUTPUT A CRLF
AOS T1,LINNUM ;INCREMENT # OF LINES OUTPUT ON CURRENT PAGE
CAIL T1,PAGLEN ;AT END OF PAGE YET ?
CALLRET WRTHDR ;YES, GO OUTPUT A FORM FEED AND HEADER LINE
RET ;NO, RETURN
SUBTTL DISK-STATISTICS (FOR STRUCTURE) str: -- Errors
; ERROR ROUTINES
DKERR2: TMSG <
% CHKPNT: Internal program error -
Insufficient space in alphanumeric account size-table
Statistics may not be computed for all accounts ...
>
RET ;RETURN TO WHENCE WE CAME ...
DKERR3: TMSG <
? CHKPNT: WHEEL or OPERATOR capability required to compute disk usage statistics
>
DKERRX: RET ;RETURN TO COMMAND PARSER
SUBTTL HELP
; HELP COMMAND
.HELP: MOVEI T1,CMDBLK ;GET ADDRESS OF COMMAND STATE BLOCK
MOVEI T2,[CMFDB (.CMCFM)] ;GET FUNCTION BLOCK FOR CONFIRMATION
COMND ;WAIT FOR CONFIRMATION
TXNE T1,CM%NOP ;VALID END-OF-COMMAND SEEN ?
CALLRET COMER2 ;NO, ISSUE ERROR MESSAGE AND RETURN
HRROI T1,HLPMSG ;GET POINTER TO HELP MESSAGE
PSOUT ;OUTPUT HELP MESSAGE
RET ;GO PARSE NEXT COMMAND
SUBTTL EXIT (TO MONITOR)
; EXIT COMMAND
.EXIT: MOVEI T1,CMDBLK ;GET ADDRESS OF COMMAND BLOCK
MOVEI T2,[CMFDB (.CMNOI,,<TXT(TO MONITOR)>)]
COMND ;PARSE NOISE PHRASE
MOVEI T2,[CMFDB (.CMCFM)] ;GET FUNCTION BLOCK FOR CONFIM
COMND ;PARSE CONFIRMATION
TXNE T1,CM%NOP ;VALID END-OF-COMMAND SEEN ?
CALLRET COMER2 ;NO, ISSUE ERROR MESSAGE AND RETURN
SETOM T1 ;INDICATE ALL FILES SHOULD BE CLOSED
CLOSF ;CLOSE ALL OPEN FILES
JSERR ;UNEXPECTED ERROR
HALTF ;RETURN TO MONITOR
JRST START ;IF CONTINUE'D, START OVER
SUBTTL SET (CHECKPOINT INTERVAL TO) n (MINUTES)
; SET CHECKPOINTING INTERVAL COMMAND
.SET: STKVAR <INTRVL> ;ALLOCATE LOCAL STORAGE
MOVEI T1,CMDBLK ;GET ADDRESS OF COMMAND STATE BLOCK
MOVEI T2,[CMFDB (.CMNOI,,<TXT(CHECKPOINT INTERVAL TO)>)]
COMND ;PARSE NOISE WORD
MOVEI T2,[CMFDB (.CMNUM,CM%SDH,^D10,NUMBER OF MINUTES,DEFINT)]
COMND ;GO PARSE NUMBER
TXNN T1,CM%NOP ;NUMBER CORRECTLY ENTERED ?
JRST SET1 ;YES, GO ON
TMSG <
? CHKPNT: Time interval must be a number
> ;output error message
RET ;RETurn and try next command
SET1: JUMPG T2,SET2 ;go on if interval entered is positive
TMSG <
? CHKPNT: time interval must be a positive number of minutes
> ;OUTPUT ADVISORY MESSAGE
RET ;RETURN AND TRY NEXT COMMAND
SET2: MOVEM T2,INTRVL ;SAVE INTERVAL
MOVEI T1,CMDBLK ;GET ADDRESS OF COMMAND STATE BLOCK
MOVEI T2,[CMFDB (.CMNOI,,<TXT(MINUTES)>)]
COMND ;PARSE NOISE PHRASE
MOVEI T2,[CMFDB (.CMCFM)] ;GET FUNCTION BLOCK FOR CONFIRM
COMND ;WAIT FOR USER CONFIRMATION
TXNE T1,CM%NOP ;VALID END-OF-COMMAND SEEN ?
CALLRET COMER2 ;NO, ISSUE ERROR MESSAGE AND RETURN
MOVE T2,INTRVL ;GET THE NEW CHECKPOINTING INTERVAL
MOVEI T1,.USCKI ;SET CHECKPOINT INTERVAL FUNCTION
USAGE
ERJMP [JSERR
RET]
RET
SUBTTL Command Error Subroutines
; INVALID END-OF-COMMAND
COMER2: STKVAR <FBLK> ;ALLOCATE STORAGE FOR FUNCTION BLOCK ADDRESS
MOVEM T2,FBLK ;SAVE ADDRESS OF FUNCTION BLOCK
CALL TSTCOL ;TEST COLUMN POSITION
TMSG <? CHKPNT: Garbage at end-of-command
> ;OUTPUT ERROR MESSAGE
RET ;RETURN TO WHENCE WE CAME ...
SUBTTL Ascii Output Routines
; SUBROUTINE TO TEST COLUMN POSITION AND OUTPUT CRLF IF NEEDED
TSTCOL: MOVEI T1,.PRIOU ;Get primary output designator
RFPOS ;Read file position
HRRZ T2,T2 ;Keep just the column position
JUMPE T2,R ;If at column 1 do not output CRLF
TMSG <
> ;No, output a crlf
RET ;Return to whence we came
; SUBROUTINE TO PERFORM NOUT JSYS
; CALL WITH AC'S 1-3 SET UP FOR NOUT
; ENTRY VECTORS:
; NOUTRS: Returns +1, normal or +2, error
; NOUTR: Returns +1 always
NOUTRS: TXOA F,F.SKIP ;Indicate we want to skip on error
NOUTR: TXZ F,F.SKIP ;No skip on error
NOUT
ERJMP NJERR ;Failure
TXZN F,F.SKIP ;Skipping on no error?
RET ;No, return +1
RETSKP ;Yes, return +2
NJERR: CAIN T3,NOUTX2 ;See why we failed
JRST COLERR ;Yes, it's the obnoxious column overflow error
JSERR ;Vanilla error, handle normally
SKIPA
COLERR: AOS COVCNT ;Increment column overflow count
RET ;Return
;SUBROUTINE TO OUTPUT NOUT ERROR MESSAGE
NERR: TMSG <%Column overflow detected - occurrences: >
MOVEI T1,.PRIOU ;Primary output
MOVE T2,COVCNT ;Get count of column overflows
MOVE T3,[NO%MAG+12B35] ;Magnitude + radix 10
NOUT ;Output count of column overflows
JFCL ;Ignore errors
TMSG <
>
SETZM COVCNT ;Reset the count
RET
SUBTTL Interrupt Routines
; HERE ON TYPIN FROM TERMINAL DURING CHECKPOINTING LOOPS
.TYPIN: MOVEI T1,.FHSLF ;GET OUR FORK HANDLE
MOVX T2,1B0 ;GET CHANNEL 0 BIT
DIC ;DEACTIVATE CHANNEL 0 (TYPIN CHANNEL)
MOVEI T1,PARSE ;GET ADDRESS OF COMMAND PARSER
MOVEM T1,RETPC1 ;CHANGE RETURN ADDRESS FROM INTERRUPT
DEBRK ;DISMISS INTERRUPT, RETURN TO PARSER
TMSG <
? CHKPNT: Internal error, interrupt code entered (.TYPIN) with no interrupt
> ;OUTPUT ERROR MESSAGE
HALTF ;FATAL ERROR, STOP PROCESSING
JRST START ;START OVER IF CONTINUE'D
; HERE ON CONTROL-A (^A) DURING DISK STATISTICS
.CTRLA: SKIPN DIRNUM ;ANYTHING?
DEBRK ;NO - IGNORE
MOVEM 17,SAVE17 ;SAVE AC 17
MOVEI 17,SAVREG ;SET UP TO SAVE REMAINING AC'S
BLT 17,SAVREG+16 ;SAVE REMAINING REGISTERS
TMSG <[CHKPNT: Working on directory >
MOVEI T1,.PRIOU ;GET PRIMARY OUTPUT JFN
MOVE T2,DIRNUM ;GET CURRENT DIRECTORY NUMBER
DIRST ;OUTPUT DIRECTORY NAME
JSERR ;UNEXPECTED ERROR
TMSG <]
>
MOVSI 17,SAVREG ;SET UP TO RESTORE AC'S 0-16
BLT 17,16 ;RESTORE AC'S 0 TO 16
MOVE 17,SAVE17 ;RESTORE AC 17
DEBRK ;RETURN TO DISK STATISTICS CODE
TMSG <
? CHKPNT: Internal error, interrupt code entered (.CTRLA) with no interrupt
>
HALTF ;FATAL ERROR
JRST START ;RESTART ON CONTINUATION
SUBTTL Usage File Routines
;COPY SYSTEM-DATA FILE TO USAGE FILE
MAKUSG: CALL GETITM ;SET UP ITEM IN BUFFER
RET ;EOF RETURN
LOAD T1,UHTYP ;GET RECORD TYPE
CAIG T1,MXRTYP ;SUPPORTED RECORD?
SKIPN FRMTBL(T1) ;SUPPORTED RECORD?
CAIL T1,.UTUSR ;NO-- USER-DEFINED RECORD?
JRST MAKUS1 ;YES-- SUPPORTED OR USER-DEFINED-- OK
TMSG <%CHKPNT: Unknown record type, record ignored...
> ;[125] WARNING ONLY.
JRST MAKUSG ;INVALID RECORD TYPE, TRY NEXT ENTRY
MAKUS1: MOVEI P1,UHNAM ;SETUP P1 FOR REMAINDER OF DATA
OPSTR <ADD P1,>,UHULN
OPSTR <ADD P1,>,UHSL1
OPSTR <ADD P1,>,UHSL2 ;AFTER ALL STRINGS
CALL MAKHDR ;WRITE A HEADER RECORD
LOAD T1,UHTYP ;GET TYPE AGAIN
CAIL T1,.UTUSR ;USER-DEFINED ENTRY TYPE?
JRST [ CALL MAKARB ;YES-- MAKE ARBITRARY RECORDS
JRST MAKUSG] ; AND LOOP FOR ANOTHER ENTRY
HRRZ DESC,FRMTBL(T1) ;LOAD FORM POINTER
MOVE DESC,0(DESC)
CALL FILFRM ;FILL IN FORM
CALL OCRLF ;CRLF AND DUMP RECORD
LOAD T1,UHTYP ;GET TYPE ONCE MORE
HLRZ T2,FRMTBL(T1) ;GET LHS OF TABLE
JUMPE T2,MAKUSG ;DONE IF ZERO
CALL USRREC ;ELSE WRITE USER ID RECORD
JRST MAKUSG ;PROCESS NEXT RECORD
;FORM FILLING IN ROUTINE
;CALL: DESC/ -N,,TABLE-ADDRS
FILFRM: CALL MAKFST ;SETUP FIRST PART
FILFM0: XCT 1(DESC) ;FETCH DATA INTO T1
LDB T3,[POINTR (<0(DESC)>,US%TYP)] ;GET ITEM TYPE
LDB LEN,[POINTR (<0(DESC)>,US%LEN)] ;GET ITEM LENGTH
CALL OUTITM ;OUTPUT ITEM
AOBJP DESC,.+1
AOBJN DESC,FILFM0 ;LOOP OVER ALL ITEMS
RET ;RETURN
;ROUTINE TO FETCH NEXT ITEM OUT OF FILE AND PLACE IN BUFF
GETITM: HRRZ T1,DATJFN ;FILE JFN
BIN ;READ WORD
JUMPE T2,CKEOF ;CHECK FOR EOF OR ERROR
GTITM1: MOVEM T2,BUFF ;SAVE HEADER
LOAD T2,UHTYP ;GET ENTRY TYPE
CAIL T2,^D0001 ;IS ENTRY TYPE
CAILE T2,^D9999 ; WITHIN RANGE?
JRST GETUNK ;NO-- SKIP THIS WORD
LOAD T2,UHLEN ;GET LENGTH
CAIL T2,UHMIN ;[123]NOT BELOW MIN
CAILE T2,UHMAX ;[123]NOT ALLOWED ABOVE 50 PAGES
JRST GETUNK ;NO-- SKIP THIS WORD (BAD)
MOVNI T3,-1(T2) ;COMPUTE RECORD SIZE
MOVE T2,[POINT 36,BUFF+1]
SIN ;READ REST OF RECORD
MOVE T4,0(T2) ;[123]GET LAST WORD IN RECORD
CAMN T4,BUFF ;[123]SEE IF SAME AS FIRST
RETSKP ;[123]SKIP RETURN IF RECORD OK
RFPTR ;[123]NOT OK, READ FILE POINTER
JSERR ;[123]UNEXPECTED ERROR
SUB T2,T3 ;[123]LENGTH SIN ACTUALLY READ IN
HRRZ T3,BUFF ;[123]LENGTH WANTED
SUB T2,T3 ;[123]WE ARE NOW BACK TO THE ORIGINAL
AOS T2 ;[123]SKIP OVER BAD HEADER WORD
SFPTR ;[123]RESET FILE POINTER
JSERR ;[123]UNEXPECTED ERROR
JRST GETUNK ;[123]COMPLAIN ABOUT BAD DATA
;MAYBE EOF, MAYBE GARBAGE
CKEOF: GTSTS ;GET FILE STATUS
TXNE T2,GS%EOF ;REAL EOF
RET ;YES - RETURN
TMSG <%CHKPNT: Zeroes in file, continuing...
>
CKEOF1: HRRZ T1,DATJFN ;NEED JFN
CKEOF2: BIN ;READ ANOTHER WORD
ERJMP R ;RETURN ON EOF
JUMPN T2,GTITM1 ;TRY THIS ONE
JRST CKEOF2 ;KEEP GOING
GETUNK: TMSG <%CHKPNT: Unknown data in file, continuing...
>
JRST GETITM ;TRY AGAIN
; MAKARB -- MAKE ARBITRARY RECORD DATA FOR USER-DEFINED ENTRY TYPES (5000-9999)
; CALL: P1/ POINTER TO START OF ENTRY-DEPENDENT DATA
; RETURNS: +1 ALWAYS
MAKARB: SETO P2, ;INDICATE WE HAVE NOT SEEN ANY RECORDS YET
;FORM AOBJN POINTER TO DATA IN ENTRY
LOAD T1,UHLEN ;GET TOTAL LENGTH OF ENTRY
ADDI T1,BUFF ;MAKE POINTER TO END OF ENTRY IN BUFFER
SUBI T1,1(P1) ;[117][126] MINUS THE WORDS WE HAVE DEALT WITH ALREADY
; AND THE TRAILER WORD
MOVN T1,T1 ;MAKE THAT -VE WORDS LEFT
HRLZ P3,T1 ; TO FORM AN
HRR P3,P1 ; AOBJN POINTER...
;LOOP THROUGH ALL THE ITEM-TYPE/DATA PAIRS AND PUT THEM INTO USAGE FILE
MAKAR1: LDB T1,[POINTR (0(P3),US%COD)] ;GET ITEM CODE
CAIN T1,.USUAR ;USER-DEFINED ARBITRARY RECORD DELIMITER?
CALL [ AOSE P2 ;YES-- ARE WE AT BEGINNING?
CALL OCRLF ;NO-- COMPLETE LAST RECORD
CALLRET MAKFST] ; AND START NEW RECORD
LDB T3,[POINTR (0(P3),US%TYP)] ;GET ITEM DATATYPE
CAIL T3,MAXITM ;WITHIN TABLE RANGE?
JRST [ TMSG <?CHKPNT: Invalid item type code, record ignored...
>
RET] ;NO-- GIVE UP RECORD
LDB LEN,[POINTR (0(P3),US%LEN)] ;GET ITEM LENGTH IN CHARACTERS
AOBJN P3,.+1 ;BUMP OVER ITEM HEADER
CAIN T3,.USSPC ;SPACE FILL?
JRST MAKAR2 ;YES-- NO DATA
CAIE T3,.USASC ;ASCII STRING?
JRST [ MOVE T1,0(P3) ;NO-- DATA IS ONLY ONE WORD
AOBJN P3,MAKAR2 ;COUNT THE WORD
JRST MAKAR2] ; AND TURN IT INTO TEXT
;ASCII STRING TYPE-- MUST ACCOUNT FOR SIZE AND PROVIDE POINTER
MOVEI T1,4(LEN) ;ROUND UP LEN
IDIVI T1,5 ; TO WORDS
HRL T1,T1 ;MAKE XWD LEN,LEN
MOVE T2,T1 ;MOVE THAT AROUND SO THAT WE HAVE T1 FREE
HRROI T1,0(P3) ;FORM POINTER TO STRING IN T1
ADD P3,T2 ;NOW BUMP DATA BUFFER POINTER
;CONVERT ITEM TO TEXT
; T1/ DATA (OR POINTER)
; T3/ DATA TYPE CODE
; LEN/ LENGTH OF ITEM IN CHARACTERS
MAKAR2: CALL OUTITM ;OUTPUT ITEM
JUMPL P3,MAKAR1 ;KEEP ON GOING IF MORE ITEMS TO DO
;END OF ENTRY-- FINISH UP
AOSE P2 ;HAVE WE WRITTEN ANY RECORDS?
JRST [ CALL OCRLF ;[117] YES-- FINISH THE LAST ONE OFF
CALLRET USRREC] ;[117] OUTPUT USER ID RECORD
RET ;RETURN FROM MAKARB
;ROUTINE TO MAKE STANDARD RECORD HEADER
MAKHDR: SETZM RSEQ ;INIT RECORD SEQ NUMBER
MOVE DESC,[-UFHDRL,,UFHDRT] ;HEADER RECORD FORM
CALL FILFRM ;FILL IN FORM
CALLRET OCRLF ;OUTPUT CRLF
;ROUTINE TO MAKE FIRST PART OF RECORD
MAKFST: MOVE T1,[POINT 7,LBUFR]
MOVEM T1,BPNTR ;INIT RECORD POINTER
LOAD T1,UHTYP ;GET TYPE CODE
MOVEI LEN,4 ;LENGTH
CALL OUTDEC ;DUMP IT
MOVEI T2,"2" ;TOPS20 ID
IDPB T2,BPNTR
AOS T2,RSEQ ;INCREMENT SEQUENCE NUMBER
ADDI T2,"0" ;MAKE ASCII
IDPB T2,BPNTR ;STORE
LOAD T1,UHDRV ;[121] GET DEC REVISION NUMBER
MOVEI LEN,2 ;[121] LENGTH IS 2
CALL OUTDEC ;[121] OUTPUT IN DECIMAL
LOAD T1,UHCRV ;[121] GET CUSTOMER REVISION NUMBER
MOVEI LEN,2 ;[121] LENGTH IS 2
CALL OUTDEC ;[121] OUTPUT IN DECIMAL
MOVEI LEN,^D10 ;SPACE FILER
CALLRET OUTSPC ;DUMPIT
; OUTITM -- OUTPUT AN ITEM
; CALL: T1/ DATA FOR ITEM
; T3/ ITEM TYPE
; LEN/ LENGTH OF ITEM IN CHARACTERS
OUTITM: CALLRET @ITMDSP(T3) ;CALL ROUTINE TO OUTPUT ITEM AND RETURN FROM OUTITM
;DISPATCH TABLE FOR DATA ITEM TYPES
ITMDSP: Z OUTASC ;ASCII DATA
Z OUTSIX ;SIXBIT DATA
Z OUTOCT ;OCTAL DATA
Z OUTDEC ;DECIMAL DATA
Z OUTDAT ;DATE/TIME DATA
Z OUTTBL ;TABULAR DATA (SPECIAL)
Z OUTVER ;VERSION DATA
Z OUTSPC ;SPACE FILLER
MAXITM==.-ITMDSP
;ROUTINE TO OUTPUT 'N' SPACES FOUND IN C(LEN)
OUTSPC: JUMPLE LEN,R ;DO NOTHING IF NOTHING DESIRED
MOVEI T2," " ;GET A SPACE
IDPB T2,BPNTR ;DUMP
SOJG LEN,.-1
RET ;DONE - RETURN
;ROUTINE TO OUTPUT A SIXBIT ITEM
;CALL: T1/ DATA ITEM
; LEN/ LENGTH OF FIELD
OUTSIX: MOVE T2,[POINT 6,T1] ;GET A POINTER
OUTSX1: ILDB T3,T2 ;GET A CHAR
ADDI T3,40 ;CONVERT TO ASCII
IDPB T3,BPNTR ;STORE IT
SOJG LEN,OUTSX1 ;LOOP TILL DONE
RET ;RETURN
;ROUTINE TO OUTPUT A STRING AND SPACE FILL
;CALL: T1/ STRING POINTER
; T2/ NUMBER OF WORDS
; LEN/ -1 FOR ASCIZ STRING
; + LENGTH FOR FIXED STRING
OUTASC: TLC T1,-1 ;CHECK FOR -1,,ADDRS
TLCN T1,-1
HRLI T1,(POINT 7,,) ;CONVERT
JUMPL LEN,OUTASZ ;HANDLE SPECIAL
OUTAS1: ILDB T3,T1 ;FETCH CHARACTER
JUMPE T3,OUTSPC ;NULL-- SPACE FILL THE REST AND RETURN
CAIGE T3,40 ;VALID CHARACTER?
MOVEI T3,"\" ;NO - INSERT BACKSLASH INSTEAD
IDPB T3,BPNTR ;STORE CHAR
SOJG LEN,OUTAS1 ;LOOP FOR NEXT
RET ; EXACT FIT - RETURN
OUTASZ: ILDB T3,T1 ;GET A CHAR
JUMPE T3,R ;DONE ON NULL
CAIGE T3,40 ;VALID CHARACTER?
MOVEI T3,"\" ;NO - INSERT BACKSLASH INSTEAD
IDPB T3,BPNTR ;STASH
JRST OUTASZ ;LOOP TILL NULL
;ROUTINE(S) TO OUTPUT NUMBERS
;CALL: T1/ NUMBER
; LEN/ LENGTH OF FIELD
OUTOCT: SKIPA T3,[8] ;OCTAL ENTRY
OUTDEC: MOVEI T3,^D10 ;DECIMAL ENTRY
MOVE T2,T1 ;COPY NUMBER TO CORRECT PLACE
MOVE T1,BPNTR ;GET OUTPUT POINTER
HRL T3,LEN ;GET LENGTH OF FIELD
TXO T3,NO%LFL!NO%ZRO ;LEADING ZERO FILL FLAGS
CALL NOUTRS ;COPY TO OUTPUT
JRST [ MOVEI T1,0 ;PAD THIS FIELD WITH 0'S INSTEAD OF ORIGINAL #
CALLRET OUTDEC] ; SO THAT SUBSEQUENT FIELDS ARE NOT OFFSET
MOVEM T1,BPNTR ;SAVE UPDATED POINTER
RET ;RETURN
;ROUTINE TO APPEND CRLF TO LBUFR AND DUMP IT
OCRLF: MOVEI T1,15
IDPB T1,BPNTR ;CR
MOVEI T1,12
IDPB T1,BPNTR ;LF
MOVEI T1,0 ;APPEND A NULL
IDPB T1,BPNTR
HRRZ T1,USGJFN ;GET OUTPUT JFN
HRROI T2,LBUFR ;BUFFER POINTER
SETZ T3,
SOUT ;DUMP STRING
RET ;RETURN
;ROUTINE TO OUTPUT DATE/TIME IN USAGE FORMAT
;CALL: T1/ DATE/TIME WORD
OUTDAT: JUMPE T1,OUTDEC ;JUST ZEROES IF NO DATE
STKVAR <YRMON,DAY,TIM>
MOVE T2,T1 ;COPY TO T2
MOVX T4,0 ;LOCAL DATE/TIME FOR NOW
ODCNV ;CONVERT FIELDS
MOVEM T2,YRMON
MOVEM T3,DAY
MOVEM T4,TIM ;SAVE ARGS
HLRZ T1,YRMON ;GET YEAR
MOVEI LEN,4 ;SIZE 4
CALL OUTDEC
HRRZ T1,YRMON ;GET MONTH
CALL OUTDT1 ;OUTPUT TWO DIGITS
HLRZ T1,DAY ;GET DAY
CALL OUTDT1 ;OUTPUT TWO DIGITS
HRRZ T1,TIM ;GET SECONDS SINCE MIDNITE
IDIVI T1,^D3600 ;HAVE HOURS
MOVEM T2,TIM ;SAVE REMAINDER
CALL OUTDT2
MOVE T1,TIM ;GET BACK REM
IDIVI T1,^D60 ;MINUTES
MOVEM T2,TIM ;SAVE SECS
CALL OUTDT2
MOVE T1,TIM ;OUTPUT SECONDS
CALLRET OUTDT2
OUTDT1: AOS T1 ;ADD ONE FIRST
OUTDT2: IDIVI T1,^D10 ;FORM 2 DIGITS
ADDI T1,"0" ;MAKE INTO ASCII
IDPB T1,BPNTR ;STASH HIGH DIGIT
ADDI T2,"0" ;CONVERT LOW DIGIT
IDPB T2,BPNTR ;SAVE IT
RET ;RETURN
;ROUTINE TO HANDLE SPECIAL TABULAR DATA
OUTTBL: STKVAR <SVDESC>
MOVEM DESC,SVDESC ;SAVE DESC
MOVE AT,T1 ;POINT TO TABLE
LDB T1,[POINTR (<0(DESC)>,US%COD)]
CAIN T1,.USDST ;TYPE WE KNOW?
JRST GETDKS ;YES - DO DISK ACCOUNT STRINGS
TMSG <? CHKPNT: Unknown table type, ignored...
>
RET ;RETURN
OUTTBX: MOVE DESC,SVDESC ;RESTORE CONTEXT
RET ;AND RETURN
;HANDLE DISK ACCOUNT STRING RECORDS
GETDKS: SKIPA TBL,0(P1) ;SETUP TABLE LENGTH
GETDK1: SOS RSEQ ;ALL RECORDS ARE SAME SEQUENCE #
CALL OCRLF ;DUMP PREVIOUS RECORD
MOVE DESC,[-UFDASL,,UFDAST]
CALL FILFRM ;FILL OUT RECORD
HRRZ T1,0(AT) ;LENGTH OF ACCOUNT STRING
ADDI AT,.ATSIZ+1(T1) ;STEP TO NEXT ENTRY
SOJG TBL,GETDK1 ;LOOP OVER ALL ENTRIES
JRST OUTTBX ;COMMON EXIT
;RETURN POINTER TO ACCOUNT STRING
GETAST: HRROI T1,4(AT) ;[131]Point to string
HRRZ T2,0(AT) ;SETUP LENGTH
RET ;DONE
;ROUTINE TO OUTPUT VERSION NUMBER IN STANDARD FORMAT
OUTVER: STKVAR <VERX,VPTR>
MOVEM T1,VERX ;SAVE VERSION
MOVEM BPNTR,VPTR ;SAVE CURRENT POINTER
CALL OUTSPC ;PREFILL SPACES
LDB T2,[POINT 9,VERX,11] ;MAJOR VERSION
MOVE T1,VPTR ;START HERE
MOVEI T3,10 ;OCTAL
CALL NOUTRS ;NUMBER
RET ;RETURN ON ERROR
LDB T2,[POINT 6,VERX,17] ;MINOR VERSION
JUMPE T2,OUTVR1 ;SKIP IF NONE
SUBI T2,1 ;NORMALIZE
IDIVI T2,^D26 ;MOD 26
SKIPE T2 ;TWO DIGITS?
JRST [ ADDI T2,"A"-1(T2)
IDPB T2,T1 ;YES - PRINT FIRST
JRST .+1]
ADDI T3,"A"
IDPB T3,T1 ;THEN OTHER
OUTVR1: MOVEI T2,"(" ;OPEN PAREN
IDPB T2,T1
HRRZ T2,VERX ;GET EDIT NUMBER
MOVEI T3,10 ;OCTAL
CALL NOUTRS ;DUMP IT
RET ;RETURN ON ERROR
MOVEI T2,")" ;CLOSE PAREN
IDPB T2,T1
LDB T2,[POINT 3,VERX,2] ;WHO LAST EDITED
JUMPE T2,R ;DONE IF ZERO
MOVEI T3,"-"
IDPB T3,T1
ADDI T2,"0" ;MAKE INTO ASCII
IDPB T2,T1 ;AND STORE
RET ;DONE - RETURN
;ROUTINE TO OUTPUT USER NAME RECORD
USRREC: CALL MAKFST ;GEN RECORD HEADER
HRROI T1,UHNAM ;POINT TO USER NAME STRING
LOAD T2,UHULN ;LENGTH IN WORDS
MOVEI LEN,^D39 ;SIZE OF STRING
CALL OUTASC ;DUMP ASCII
CALLRET OCRLF ;DUMP RECORD
;SPECIAL ROUTINES FOR FORMATTING INPUT
;HANDLE SINGLE ASCII CHARACTER
SNGASC: SETZM TXTB ;CLEAR WORD
DPB T1,[POINT 7,TXTB,6] ;PLACE CHAR IN BUFFER
HRROI T1,TXTB ;RETURN POINTER TO STRING
RET
;SET POINTER TO STRING 1
GETST1: MOVEI T1,UHNAM ;START HERE
OPSTR <ADD T1,>,UHULN ;ADD IN FIRST OFFSET
TLO T1,-1 ;MAKE INTO STRING POINTER
LOAD T2,UHSL1 ;SETUP LENGTH
RET ;RETURN
;SET POINTER TO STRING 2
GETST2: MOVEI T1,UHNAM ;STARTING POINT
OPSTR <ADD T1,>,UHULN ;PLUS NAME STRING
OPSTR <ADD T1,>,UHSL1 ;PLUS STRING 1
TLO T1,-1 ;MAKE STRING POINTER
LOAD T2,UHSL2 ;SETUP LENGTH
RET ;RETURN
;GET OFFSET IN DAYS
GETOFD: HLRZ T1,0(P1) ;OLD DATE/TIME
HLRZ T2,BUFF+1 ;NEW DATE
SUB T1,T2 ;TAKE DIFFERENCE
MOVMS T1 ; MAGNITUDE
RET ;RETURN
;GET OFFSET IN SECONDS
GETOFS: HRRZ T1,0(P1) ;OLD TIME
HRRZ T2,BUFF+1 ;NEW TIME
SUB T1,T2 ;TAKE DIFFERENCE
MOVMS T1 ; ABS VALUE
MULI T1,^D<24*3600> ;CONVERT TO SECONDS
DIV T1,[1B17]
RET ;RETURN (NO ROUNDING)
;[215]Print an error message for 4.1 or 7.0 when we can't get a JFN on
;SYSTEM-DATA.BIN.
WHATSY: SKIPE SYFLAG ;[215]What system
IFSKP. ;[215]4.1
TMSG <? CHKPNT: Cannot get JFN on PS:<ACCOUNTS>SYSTEM-DATA.BIN >
ELSE. ;[215]7.0
TMSG <? CHKPNT: Cannot get JFN on ACCOUNT:SYSTEM-DATA.BIN >
ENDIF. ;[215]
RET ;[215]
SUBTTL Usage File Templates
;FORM TABLE TABLE
;-1 IN LHS TO OUTPUT USER NAME RECORD
FRMTBL: 0,,0 ;0 - ILLEGAL
0,,[-UFRSTL,,UFRSTT] ;1 - RESTART RECORD
-1,,[-UFLOGL,,UFLOGT] ;2 - SESSION ENTRY
-1,,[-UFLOGL,,UFLOGT] ;3 - CHECKPOINT ENTRY
0,,0 ;4 - ILLEGAL
0,,[-UFTADL,,UFTADT] ;5 - DATE/TIME
0,,0 ;6 - BATCH PROCESSOR
-1,,[-UFINPL,,UFINPT] ;7 - INPUT SPOOLER
-1,,[-UFOUTL,,UFOUTT] ;8 - OUTPUT SPOOLER
0,,[-UFDSKL,,UFDSKT] ;9 - DISK STORAGE USAGE
0,,0 ;10 - DISK SPINDLE USAGE
-1,,[-UFSTRL,,UFSTRT] ;11 - STRUCTURE MOUNT
-1,,[-UFMTAL,,UFMTAT] ;12 - MAGTAPE MOUNT
0,,0 ;13 - DECTAPE MOUNT (???)
0,,0 ;14 - FILE COMMAND (!!!)
-1,,[-UFRETL,,UFRETT] ;15 - FILE RETRIEVE
-1,,[-UFRETL,,UFRETT] ;16 - FILE ARCHIVED
-1,,[-UFRETL,,UFRETT] ;17 - FILE MIGRATED
-1,,[-UFRETL,,UFRETT] ;18 - FILE COLLECTED
;RECORD DESCRIPTORS
;ENTRY HEADER RECORD
UFHDRT: USJNO. <LOAD T1,UHJNO> ;JOB NUMBER
USTAD. <LOAD T1,UHTAD> ;DATE/TIME
USTRM. <CALL [LOAD T1,UHTMT
ADDI T1,40
JRST SNGASC]> ;TERMINAL TYPE
USLNO. <CALL [LOAD T1,UHLNO
ANDI T1,7777
RET]> ;LINE NUMBER (4 DIGITS)
USPNM. <LOAD T1,UHPNM> ;PROGRAM NAME
USPVR. <LOAD T1,UHPVR> ;PROGRAM VERSION
USAMV. <LOAD T1,UHMVR> ;MONITOR VERSION
USNOD. <LOAD T1,UHNOD> ;NODE NAME
UFHDRL==.-UFHDRT
;RESTART RECORD
UFRSTT: USSNM. <CALL GETST1> ;SYSTEM NAME (STRING 1)
USMVR. <MOVE T1,0(P1)> ;MONITOR VERSION
USMBD. <MOVE T1,1(P1)> ;MONITOR BUILD DATE/TIME
USMUP. <MOVE T1,2(P1)> ;MONITOR UPTIME
USCPN. <MOVEI T1,1> ;NUMBER OF CPU'S
USCP0. <MOVE T1,3(P1)> ;SERIAL NUMBER OF CPU0
USCP1. <MOVEI T1,0> ;SERIAL NUMBER OF CPU1
USCP2. <MOVEI T1,0> ;SERIAL NUMBER OF CPU2
USCP3. <MOVEI T1,0> ;SERIAL NUMBER OF CPU3
USCP4. <MOVEI T1,0> ;SERIAL NUMBER OF CPU4
USCP5. <MOVEI T1,0> ;SERIAL NUMBER OF CPU5
USLCK. <MOVE T1,4(P1)> ;LAST CHECKPOINT DATE/TIME
UFRSTL==.-UFRSTT
;DISK USAGE ACCOUNT STRING BLOCK
;[7.1171] See UFDSKT in JSYSA for the format of this block.
UFDAST: USACT. <CALL GETAST> ;GET ACCOUNT STRING
USDIR. <CALL GETST2> ;DIRECTORY NAME STRING (STRING 2)
USALC. <MOVE T1,1(AT)> ;[7.1171][131] Data and overhead pages
USUSG. <MOVE T1,2(AT)> ;[7.1171] Data pages used
USFIL. <MOVE T1,3(AT)> ;[7.1171] Total files in this account
USSTR. <CALL GETST1> ;STRUCTURE NAME (STRING 1)
USSTP. <CALL [LOAD T1,STYP,<7(P1)> ;[7.1171] Load 1=domestic, 0=foreign
ADDI T1,3 ;[7.1171] Make 3=foreign, 4=domestic
RET]>
USKTP. <LOAD T1,KTYP,<7(P1)>> ;[7.1171] Controller type
USDTP. <LOAD T1,DTYP,<7(P1)>> ;[7.1171] Device type
UFDASL==.-UFDAST
;SESSION RECORD
UFLOGT: USACT. <CALL GETST1> ;ACCOUNT (STRING 1)
USRTM. <MOVE T1,2(P1)> ;RUNTIME
USSST. <MOVE T1,0(P1)> ;SESSION START TIME
USJTY. <CALL [LOAD T1,UHJTS
AOJA T1,R]> ;1 := T/S , 2 := BATCH
USBJN. <MOVE T1,3(P1)> ;BATCH JOB NAME
USBSN. <MOVE T1,4(P1)> ;BATCH SEQUENCE NUMBER
USCOM. <CALL GETST2> ;USER COMMENT (STRING 2)
USCCT. <CALL [MOVE T1,1(P1)
IDIVI T1,^D1000
RET]> ;CONSOLE CONNECT TIME (SECONDS)
USBRI. <MOVE T1,5(P1)> ;[129]Batch request ID
UFLOGL==.-UFLOGT
;DATE/TIME CHANGE RECORD
UFTADT: USOFD. <CALL GETOFD> ;OFFSET IN DAYS
USOFS. <CALL GETOFS> ;OFFSET IN SECONDS
USODT. <MOVE T1,0(P1)> ;OLD DATE/TIME
UFTADL==.-UFTADT
;DISK STORAGE USAGE RECORD
UFDSKT: USNRF. <MOVE T1,0(P1)> ;NUMBER OF ACCOUNTS
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
USFON. <CALL [LOAD T2,FOND,<6(P1)>
MOVEI T1,"N"
SKIPE T2
MOVEI T1,"Y"
JRST SNGASC]> ;[131]Files only indicator
USDSK. <MOVEI T1,10(P1)> ;[131]Disk table
UFDSKL==.-UFDSKT
;INPUT SPOOLER RECORD
UFINPT: USACT. <CALL GETST1> ;ACCOUNT (STRING 1)
USSRT. <MOVE T1,0(P1)> ;SPOOLER RUNTIME
USSCI. <MOVEI T1,0> ;CORE-TIME INTEGRAL ???
USSDR. <MOVE T1,1(P1)> ;SPOOLER DISK READS
USSDW. <MOVE T1,2(P1)> ;SPOOLER DISK WRITES
USJNM. <MOVE T1,3(P1)> ;JOB NAME
USQNM. <MOVE T1,4(P1)> ;QUEUE NAME
USSDV. <MOVE T1,5(P1)> ;INPUT DEVICE NAME
USSSN. <MOVE T1,6(P1)> ;SEQUENCE NUMBER
USSUN. <MOVE T1,7(P1)> ;CARDS READ
USCRT. <MOVE T1,10(P1)> ;DATE/TIME
USDSP. <MOVE T1,11(P1)> ;DISPOSITION
USTXT. <CALL GETST2> ;SYSTEM TEXT
USPRI. <MOVE T1,12(P1)> ;PRIORITY
UFINPL==.-UFINPT
;OUTPUT SPOOLER RECORD
UFOUTT: USACT. <CALL GETST1> ;ACCOUNT (STRING 1)
USSRT. <MOVE T1,0(P1)> ;SPOOLER RUNTIME
USSCI. <MOVEI T1,0> ;CORE-TIME INTEGRAL ???
USSDR. <MOVE T1,1(P1)> ;SPOOLER DISK READS
USSDW. <MOVE T1,2(P1)> ;SPOOLER DISK WRITES
USJNM. <MOVE T1,3(P1)> ;JOB NAME
USQNM. <MOVE T1,4(P1)> ;QUEUE NAME
USSDV. <MOVE T1,5(P1)> ;OUTPUT DEVICE NAME
USSSN. <MOVE T1,6(P1)> ;SEQUENCE NUMBER
USSUN. <MOVE T1,7(P1)> ;PAGES, FEET, CARDS, MINUTES
USSNF. <MOVE T1,13(P1)> ;FILES, COPIES
USCRT. <MOVE T1,10(P1)> ;DATE/TIME
USSCD. <MOVE T1,14(P1)> ;SCHEDULED DATE/TIME
USFRM. <MOVE T1,15(P1)> ;FORMS TYPE
USDSP. <MOVE T1,11(P1)> ;DISPOSITION
USTXT. <CALL GETST2> ;SYSTEM TEXT
USPRI. <MOVE T1,12(P1)> ;PRIORITY
UFOUTL==.-UFOUTT
;STRUCTURE USE RECORD
UFSTRT: USACT. <CALL GETST1> ;ACCOUNT (STRING 1)
USSSI. <MOVE T1,0(P1)> ;STRUCTURE NAME
USSTP. <MOVE T1,1(P1)> ;STRUCTURE TYPE
USTNP. <MOVE T1,2(P1)> ;TOTAL NUMBER OF PACKS IN FILE STRUCTURE
USKTP. <MOVE T1,3(P1)> ;CONTROLLER TYPE
USDTP. <MOVE T1,4(P1)> ;DEVICE TYPE (RP04,ETC)
USDSP. <MOVE T1,5(P1)> ;DISPOSITION
USTXT. <CALL GETST2> ;SYSTEM TEXT
USCRT. <MOVE T1,6(P1)> ;CREATION DATE/TIME OF REQUEST
USSCD. <MOVE T1,7(P1)> ;SCHEDULED DATE/TIME
USSRV. <MOVE T1,10(P1)> ;SERVICED DATE/TIME
USMCT. <MOVE T1,11(P1)> ;MOUNT COUNT BEFORE MOUNT
USDCT. <MOVE T1,12(P1)> ;MOUNT COUNT AFTER DISMOUNT
USATP. <MOVE T1,13(P1)> ;ACCESS TYPE
USEUT. <CALL [MOVE T1,14(P1)
MULI T1,<^D24*^D60*^D60>;MULTIPLY BY SECONDS PER DAY
DIV T1,[1,,0] ;SHIFT
CAIL T2,400000 ;ROUND UP?
ADDI T1,1 ;YES
RET]> ;ELAPSED TIME OF USE (SECONDS)
UFSTRL==.-UFSTRT
;TAPE MOUNT RECORD
UFMTAT: USACT. <CALL GETST1> ;ACCOUNT (STRING 1)
USVID. <MOVE T1,0(P1)> ;VOLUME IDENTIFIER IN VOL1 LABEL
USVSN. <MOVE T1,1(P1)> ;VISUAL SERIAL NAME (SAME AS VOL ID)
USMRF. <MOVE T1,2(P1)> ;THOUSANDS OF FRAMES READ
USMWF. <MOVE T1,3(P1)> ;THOUSANDS OF FRAMES WRITTEN
USDSP. <MOVE T1,4(P1)> ;DISPOSITION
USTXT. <CALL GETST2> ;SYSTEM TEXT
USCRT. <MOVE T1,5(P1)> ;CREATION DATE/TIME
USSCD. <MOVE T1,6(P1)> ;SCHEDULED DATE/TIME
USSRV. <MOVE T1,7(P1)> ;SERVICED DATE/TIME
USKTP. <MOVE T1,10(P1)> ;CONTROLLER TYPE
USMLT. <MOVE T1,11(P1)> ;LABEL TYPE
USMLS. <MOVE T1,12(P1)> ;LABEL STATE
USMRD. <MOVE T1,13(P1)> ;NUMBER OF PHYSICAL RECORDS READ
USMWR. <MOVE T1,14(P1)> ;NUMBER OF PHYSICAL RECORDS WRITTEN
USFSI. <MOVE T1,15(P1)> ;FILE SET IDENTIFIER
USSRE. <MOVE T1,16(P1)> ;NUMBER OF SOFT READ ERRORS
USSWE. <MOVE T1,17(P1)> ;NUMBER OF SOFT WRITE ERRORS
USHRE. <MOVE T1,20(P1)> ;NUMBER OF HARD READ ERRORS
USHWE. <MOVE T1,21(P1)> ;NUMBER OF HARD WRITE ERRORS
USEUT. <CALL [MOVE T1,22(P1)
MULI T1,<^D24*^D60*^D60>;MULTIPLY BY SECONDS PER DAY
DIV T1,[1,,0] ;SHIFT
CAIL T2,400000 ;ROUND UP?
ADDI T1,1 ;YES
RET]> ;ELAPSED TIME OF USE (SECONDS)
UFMTAL==.-UFMTAT
;ARCHIVING, MIGRATING, RETRIEVAL RECORD
UFRETT: USACT. <CALL GETST1> ;ACCOUNT OF FILE OR RETRIEVE REQUESTOR
; (STRING 1)
USSSI. <MOVE T1,0(P1)> ;STRUCTURE NAME
USDIR. <CALL GETST2> ;DIRECTORY OF FILE (STRING 2)
USUSG. <MOVE T1,1(P1)> ;# OF PAGES INVOLVED
USTP1. <MOVE T1,2(P1)> ;TAPE 1 ID
USTS1. <MOVE T1,3(P1)> ;SAVESET # FOR TAPE 1
USTF1. <MOVE T1,4(P1)> ;TAPE FILE # FOR TAPE 1
USTP2. <MOVE T1,5(P1)> ;TAPE 2 ID
USTS2. <MOVE T1,6(P1)> ;SAVESET # FOR TAPE 2
USTF2. <MOVE T1,7(P1)> ;TAPE FILE # FOR TAPE 2
USRSN. <MOVE T1,10(P1)> ;CODE FOR REASON FILE MOVED OFF-LINE
UFRETL==.-UFRETT
SUBTTL Pure Data
DEFINE TB(RTN,TXT)<[ASCIZ/TXT/],,RTN>
CMDTAB: CMDSIZ-1 ,, CMDMAX
TB (.CHANGE,CHANGE) ;Change accounting shift
; TB (.CHECK,CHECKPOINT) ;CHECKPOINT EVERY N MINUTES
TB (.COPY,COPY) ;COPY SYSTEM-DATA TO FILE
TB (.DISK,DISK-STATISTICS) ;DISK STATISTICS
TB (.ENTER,ENTER) ;ENTER A SINGLE CHECKPOINT
TB (.EXIT,EXIT) ;EXIT TO MONITOR
TB (.EXPNG,EXPUNGE) ;EXPUNGE PROCESSED SYSTEM DATA
TB (.HELP,HELP) ;OUTPUT HELP MESSAGE
TB (.LIST,LIST) ;LIST DISK STATISTICS ON FILE-SPEC
TB (.SET,SET) ;SET CHECKPOINTING INTERVAL
CMDSIZ== .-CMDTAB
CMDFRE: BLOCK CMDMAX-CMDSIZ ;FREE SPACE IN COMMAND TABLE
PROMPT: ASCIZ /CHKPNT>/ ;PROMPT STRING
; ENTRY VECTOR DEFINITION
ENTVEC: JRST SY4170 ;[215]MAIN ENTRY POINT
JRST START ;REENTER ENTRY POINT
EXP VCHKPT ;VERSION OF CHKPNT PROGRAM
; LEVEL TABLE FOR SOFTWARE INTERRUPT SYSTEM
LEVTAB: RETPC1 ;RETURN PC FOR LEVEL 1
RETPC2 ;RETURN PC FOR LEVEL 2
RETPC3 ;RETURN PC FOR LEVEL 3
; CHANNEL TABLE FOR SOFTWARE INTERRUPT SYSTEM
CHNTAB: 1,,.TYPIN ;TERMINAL INPUT DURING CHECKPOINTING LOOP
1,,.CTRLA ;CONTROL-A - INFO REQUEST DURING DISK STATS
BLOCK ^D34 ;REMAINDER OF TABLE
; LITERALS
XLIST ;[7.1171] Next line (not listed) is "LIT"
LIT ;[7.1171] Put literals here
LIST ;[7.1171] Resume listine
; HELP TEXT FOR HELP COMMAND
HLPMSG: ASCIZ \TOPS20 CHKPNT PROGRAM --
FUNCTIONS:
1) Compile accounting statistics on disk space utilization.
2) Set monitor checkpoint interval.
3) Copy system data to an accounting file.
COMMANDS:
COPY (SYSTEM DATA TO) file-spec
DISK-STATISTICS (FOR STRUCTURE) str:
ENTER (SINGLE CHECKPOINT)
EXPUNGE (PROCESSED SYSTEM DATA)
LIST (DISK STATISTICS ON) file-spec
CHANGE (ACCOUNTING SHIFT NOW)
EXIT (TO MONITOR)
HELP
SET (CHECKPOINT INTERVAL TO) n (MINUTES)
OPERATION:
CHKPNT is usually run manually to gather disk utilization
statistics one every week, month, or once per billing period.
EXAMPLE:
To copy the current system data to a file for later processing:
$R CHKPNT
CHKPNT>COPY (SYSTEM DATA TO) USAGE.OUT
CHKPNT>EXPUNGE (PROCESSED SYSTEM DATA)
[2 file(s) deleted, 123 Page(s) freed]
CHKPNT>EXIT (TO MONITOR)
$
RESTRICTIONS:
WHEEL or OPERATOR capability is required to write checkpoint
data and to compile disk statistics.
\
SUBTTL Impure Data
CMDBLK: BLOCK .CMGJB+5 ;COMMAND STATE BLOCK FOR COMND JSYS
COVCNT: BLOCK 1 ;COUNT OF COLUMN OVERFLOW OCCURRENCES
LSTJFN: BLOCK 1 ;JFN FOR DISK STATISTICS LISTING FILE
USGJFN: BLOCK 1 ;JFN ON USAGE FILE
DATJFN: BLOCK 1 ;JFN ON SYSTEM-DATA FILE
FILJFN: BLOCK 1 ;JFN FOR *.*.* DURING DISK STATISTICS ROUTINE
CURRV: BLOCK 2 ;BUFFER FOR GENERATION NUMBER
HIGHV: BLOCK 2 ;BUFFER FOR HIGHEST GEN
RSEQ: BLOCK 1 ;USAGE RECORD SEQUENCE NUMBER
SYSVER: BLOCK SVERSZ ;BUFFER FOR SYSTEM NAME AND VERSION
TOTFIL: BLOCK 1 ;TOTAL NUMBER OF FILES IN CURRENT DIRECTORY
ALCPGS: BLOCK 1 ;[131]Total # of allocated pages in current dir
TOTPGS: BLOCK 1 ;TOTAL NUMBER OF PAGES IN CURRENT DIRECTORY
TOTACT: BLOCK 1 ;TOTAL NUMBER OF ACCOUNTS IN CURRENT DIRECTORY
LINNUM: BLOCK 1 ;current line number for disk stats listing
PAGNUM: BLOCK 1 ;CURRENT PAGE # FOR DISK STAT LISTING
ACPEND: BLOCK 1 ;POINTER TO END OF ALPHA ACCOUNT SIZE TABLE
ASTEND: BLOCK 1 ;POINTER TO END OF ALPHA ACCOUNT STRINGS
ACTEND: BLOCK 1 ;POINTER TO END OF ACCOUNT TABLE
DIRNUM: BLOCK 1 ;CURRENT DIRECTORY NUMBER
TYPWRD: BLOCK 1 ;STR/DRIVE/KONTROLLER TYPE WORD
STRPTR: BLOCK 1 ;POINTER TO END OF STR NAME
STRBUF: BLOCK 14 ;BUFFER FOR STR:<*>
FILBUF: BLOCK 24 ;BUFFER FOR FILESPECS
STRDIR: BLOCK STRBSZ ;STG FOR STR:<DIR> STRING
STRNAM: BLOCK 10 ;STRUCTURE NAME STRING
DIRNAM: BLOCK 10 ;DIRECTORY NAME STRING
GTDBUF: BLOCK GTDBSZ+1 ;BLOCK FOR GTDIR PARAMS
STSBLK: BLOCK 2 ;FOR STRUCTURE STATUS
RNUBLK: BLOCK .MSRLN ;FOR UNIT STATUS
LSTFIL: BLOCK 4*10+1 ;STORAGE FOR LISTING FILESPEC
RETPC1: BLOCK 1 ;RETURN PC FOR LEVEL 1 INTERRUPTS
RETPC2: BLOCK 1 ;RETURN PC FOR LEVEL 2 INTERRUPTS
RETPC3: BLOCK 1 ;RETURN PC FOR LEVEL 3 INTERRUPTS
CHKTIM: BLOCK 1 ;TIME IN MS BETWEEN CHECKPOINTS
JOBNUM: BLOCK 1 ;JOB NUMBER OF THIS JOB
DEFINT: BLOCK DEFISZ ;DEFAULT INTERVAL BETWEEN CHECKPOINTS (TEXT)
TXTB: BLOCK 20 ;TEMP TEXT BUFFER
ACPTAB: BLOCK ACPSIZ ;TABLE OF # OF PAGES FOR ALPHA ACCOUNTS
ACTTAB: BLOCK ACTSIZ ;TABLE OF ALPHA ACCOUNT STRINGS
ACTBUF: BLOCK ACTBSZ ;BUFFER FOR ACCOUNT STRINGS
BUFFER: BLOCK BUFSIZ ;INPUT TEXT STORED HERE
ATMBFR: BLOCK ATMSIZ ;ATOM BUFFER FOR COMND JSYS
JOBBLK: BLOCK JOBSIZ ;JOB INFORMATION FROM GETJI
DATBUF: BLOCK DATSIZ ;DATE AND TIME STRING BUFFER
GJFBLK: BLOCK GJFSIZ ;GTJFN BLOCK FOR COMND JSYS
SAVREG: BLOCK ^D15 ;AC'S 0-16 ARE SAVED HERE ON ^A INTERRUPT
SAVE17: BLOCK 1 ;AC 17 SAVED HERE ON ^A INTERRUPT
SYFLAG: BLOCK 1 ;[215]7.0/4.1 system flag
PDL: BLOCK PDLEN ;PUSH DOWN POINTER
BUFF=100000 ;BUFFER FOR SYSTEM-DATA RECORD
LBUFR=BUFF+UHMAX ;[123]BUFFER FOR STRING OUTPUT RECORD
; STORAGE FOR ALPHANUMERIC ACCOUNT STRINGS DURING DISK STATS COLLECTION
STRACT=200000
SUBTTL End of CHKPNT
END <3,,ENTVEC>