IDENT PFDM1,/COMSPFS/OVLA,PFD,01,00
TITLE PFDM - PERMANENT FILE DISK MANAGEMENT UTILITIES.
ABS
SST
SYSCOM B1
SPACE 4,10
*COMMENT PFDM - PERM FILE DISK MANAGEMENT UTILITIES.
COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
SPACE 4,10
*** PFDM - PERMANENT FILE DISK MANAGEMENT UTILITIES.
*
* G. S. YODER 86/09/01.
SPACE 4,10
*** *PFDM* CONTAINS UTILITIES FOR MANAGING DISK RESIDENT PERMANENT
* FILES AND PERMANENT FILE CATALOGS. THESE UTILITIES MAY BE
* CALLED THROUGH THE *PFS* COMMAND OR DIRECTLY BY UTILITY NAME.
*
* THE FOLLOWING UTILITIES RESIDE IN *PFDM* -
*
* PFCAT - CATALOG PERMANENT FILE DEVICE.
* PFREL - RELEASE DISK SPACE OF FILES RESIDING ON ALTERNATE
* STORAGE MEDIA.
SPACE 4,30
*** MESSAGE LEGEND.
*
* THE FOLLOWING LEGEND DEFINES PARAMETERS THAT ARE USED IN MANY
* OF THE UTILITY ERROR MESSAGES. THE DESCRIPTIVE CHARACTER
* STRINGS DEFINED HERE ARE REPLACED BY THEIR ACTUAL VALUE WHEN
* A PARTICULAR MESSAGE IS ISSUED. THE _ CHARACTER DOES NOT
* APPEAR IN ACTUAL MESSAGES BUT IS USED IN THE DOCUMENTATION AS
* A DELIMITER TO AVOID AMBIGUITIES.
*
* DD = DEVICE NUMBER.
* EEE = EST ORDINAL.
* MMMMM = NUMBER OF FILES.
* NNNNNNN = PERMANENT FILE NAME.
* UUUUUU = USER INDEX.
SPACE 4,40
*** INFORMATIVE DAYFILE MESSAGES.
*
* * ERROR FLAG TERMINATION.*
* AN EXTERNAL ERROR FLAG WAS DETECTED.
*
* * MMMMMM FILES CATALOGED.*
* THE NUMBER OF FILES CATALOGED BY *PFCAT*.
*
* * MMMMMM FILES RELEASED.*
* THE NUMBER OF FILES RELEASED BY *PFREL*.
*
* * MMMMMM FILES SELECTED FOR RELEASE.*
* THE NUMBER OF FILES SELECTED FOR RELEASE BY *PFREL*.
*
* * PFCAT COMPLETE.*
* *PFCAT* TERMINATED.
*
* * PFREL COMPLETE.*
* *PFREL* TERMINATED.
SPACE 4,20
*** INFORMATIVE OPERATOR MESSAGES.
*
* * WAIT FOR CATALOG INTERLOCK.*
* THE UTILITY IS WAITING FOR *PFU* TO SET A CATALOG
* TRACK INTERLOCK BEFORE PROCESSING FILES CATALOGED ON
* THAT TRACK.
*
* * CLEARING PF ACTIVITY COUNT.*
* THE UTILITY IS WAITING FOR *PFU* TO DECREMENT THE
* PERMANENT FILE ACTIVITY COUNT WHEN PROCESSING HAS BEEN
* COMPLETED.
*
* * SETTING PF ACTIVITY COUNT.*
* THE UTILITY IS WAITING FOR FOR *PFU* TO INCREMENT THE
* PERMANENT FILE ACTIVITY COUNT BEFORE PROCESSING A
* DEVICE.
SPACE 4,15
*** SYSTEM ERROR MESSAGES THAT ARE FATAL.
*
* THESE ERRORS RESULT IN THE UTILITY ABORTING.
*
* * SELECTED MASTER OR TRUE DEVICE NOT FOUND.*
* THE DEVICE SPECIFIED WITH THE *DN* OR *TD* PARAMETER
* WAS NOT FOUND.
*
* * NO FILES SELECTED.*
* THE FILE SELECTION PARAMETERS SPECIFIED FOR PROCESSING
* WERE SUCH THAT NO DEVICES IN THE SYSTEM COULD CONTAIN
* THE SPECIFIED FILES. THIS MAY BE CAUSED BY
* CONFLICTING SELECTION PARAMETERS.
SPACE 4,40
*** SYSTEM ERROR MESSAGES WHICH ARE NON FATAL.
*
* SEE *MESSAGE LEGEND* ABOVE FOR A DESCRIPTION OF PARAMETERS
* APPEARING IN THESE MESSAGES.
*
* * CATALOG READ ERROR, UI=UUUUUU.
* A MASS STORAGE ERROR OCCURRED WHILE READING THE
* PERMANENT FILE CATALOG TRACK FOR THE INDICATED USER
* INDEX. ANY REMAINING FILES CATALOGED ON THE AFFECTED
* TRACK WILL NOT BE DUMPED.
*
* * DEVICE NOT FOUND, FN=NNNNNNN, UI=UUUUUU, DN=DD.*
* THE SPECIFIED DIRECT ACCESS FILE, RESIDENT ON DEVICE
* *DD*, WAS TO BE PROCESSED BUT DEVICE *DD* COULD NOT BE
* FOUND IN THE SYSTEM.
SPACE 4,10
* COMMON DECKS
*CALL COMCMAC
*CALL COMCCMD
*CALL COMSLFD
*CALL COMSMLS
*CALL COMSMMF
*CALL COMSMST
*CALL COMSPFM
LIST X
*CALL COMSPFS
LIST *
*CALL COMSPFU
*CALL COMSPRD
*CALL COMSRPV
*CALL COMSSFM
*CALL COMSVER
TITLE PROGRAM CONSTANT SECTION.
SPACE 4,10
* MISCELLANEOUS CONSTANTS.
NWCP EQU 102B LENGTH OF PRU WITH *CIO* CONTROL WORDS
* BUFFER LENGTHS.
CATBL EQU 10*NWCP+1 CATALOG BUFFER LENGTH
DBUFL EQU 101B GET DEVICE INFORMATION BUFFER
MSFBL EQU 10001B *COMCMSF* SORT FILES BUFFER LENGTH
OUTBL EQU 1001B OUTPUT FILE BUFFER LENGTH
PFRBL EQU 101B *PFM* REQUEST FILE BUFFER LENGTH
SABFL EQU 1000B SUMMARY FILE ASSEMBLY BUFFER LENGTH
SRTBL EQU 20000B SORT BUFFER LENGTH
PFLBL EQU 1001B PROCESSED FILES FILE BUFFER LENGTH
SUMBL EQU 1001B SUMMARY FILE BUFFER LENGTH
* *SETPFP* OPTION CONSTANTS.
FMPR EQU 10B FAMILY NAME PARAMETER FLAG
PKPR EQU 4 PACKNAME PARAMETER FLAG
UNPR EQU 2 USER NAME PARAMETER FLAG
UIPR EQU 1 USER INDEX PARAMETER FLAG
* *COMSPFS* EQUIVALENCES.
CPAR EQU /COMSPFS/CPL CONVERTED PARAMETER LIST
IDSA EQU /COMSPFS/PADR
TITLE MAIN ROUTINES.
PFD SPACE 4,10
** MAIN PROGRAM.
*
* EXIT TO *END*.
*
* CALLS OCF, PCF, PCT, PFR, PRS, SNC, SND.
*
* MACROS RETURN, SETPFP.
ORG /COMSPFS/OVLA
PFD BSS 0 ENTRY
RJ PRS PRESET PROGRAM
* PROCESS NEXT DEVICE.
PFD1 RETURN CATS RETURN OLD CATALOG FILE
RJ SND SET NEXT DEVICE
ZR X1,PFD4 IF NO MORE DEVICES
RJ OCF OPEN CATALOG FILE
* PROCESS CATALOG TRACK.
PFD2 RJ SNC SET NEXT CATALOG TRACK
RJ PCF POSITION CATALOG FILE
NG X5,PFD1 IF END OF CATALOG TRACKS
RJ PCT PROCESS CATALOG TRACK
EQ PFD2 SET NEXT CATALOG TRACK
* PERFORM TERMINATION PROCESSING.
PFD4 RJ PSF PROCESS SORTED FILE OUTPUT
SA1 /COMSPFS/UTLC
SX1 X1-/COMSPFS/CAUT
ZR X1,PFD5 IF *PFCAT*
RJ PFR PROCESS *PFM* REQUESTS
PFD5 SETPFP GPAR RESTORE PERMANENT FILE PARAMETERS
EQ END TERMINATE
PCT SPACE 4,20
** PCT - PROCESS CATALOG TRACK.
*
* EXIT ALL FILES ON CATALOG TRACK PROCESSED.
*
* USES X - 0, 1, 2, 4, 5, 6, 7.
* A - 0, 1, 2, 3, 4, 5, 6, 7.
* B - 4.
*
* CALLS CCH, CFP, CRC, CSC, RCS, SCA, SFL.
*
* MACROS READCW.
PCT SUBR ENTRY/EXIT
* INITIALIZE CATALOG FILE FET AND INITIATE READ.
SA1 CATS+FTFT
SX6 X1
SA6 A1+B1 SET IN = FIRST
SA6 A6+B1 SET OUT = FIRST
READCW CATS,17B INITIATE CATALOG READ
* READ SECTOR OF CATALOG ENTRIES.
PCT1 SA0 CSBF INITIALIZE CATALOG ADDRESS
SX2 CATS SET FET ADDRESS
RJ RCS READ CATALOG SECTOR
ZR X1,PCT2 IF READ COMPLETE
PL X1,PCTX IF END OF CATALOG TRACK OR FATAL ERROR
EQ PCT1 READ NEXT SECTOR
* CHECK CATALOG ENTRY.
PCT2 SA1 A0+FCUI
SA3 CPAR+/COMSPFS/CPTD
SA4 FLSF
SX6 B0
MX7 -6
SA6 FLCF INITIALIZE FILE LENGTH CORRECT FLAG
MX0 -18
BX1 -X0*X1 USER INDEX
ZR X1,PCT7 IF CATALOG HOLE
ZR X3,PCT4 IF NO TRUE DEVICE SELECTION
SA2 A0+FCDN
SA1 CPAR+/COMSPFS/CPDN
LX2 -36
BX2 -X7*X2 RESIDENCY DEVICE
BX1 X1-X3
BX2 X2-X3
ZR X1,PCT4 IF MASTER DEVICE IS TRUE DEVICE
NZ X2,PCT7 IF FILE DOES NOT RESIDE ON TRUE DEVICE
PCT4 ZR X4,PCT5 IF FILE LENGTH NOT REQUIRED FOR SELECTION
RJ SFL SET FILE LENGTH IN ENTRY
ZR X6,PCT7 IF DEVICE NOT FOUND ERROR
PCT5 SB4 A0 SET CATALOG ADDRESS
RJ CSC CHECK SELECTION CRITERIA
ZR X6,PCT7 IF FILE NOT SELECTED
SA1 /COMSPFS/UTLC
SX1 X1-/COMSPFS/CAUT
ZR X1,PCT6 IF *PFCAT*
* DETERMINE IF FILE CAN BE RELEASED.
RJ SCA SET CATALOG DISK ADDRESS
RJ CRC CHECK RELEASE CRITERIA
ZR X6,PCT7 IF FILE NOT TO BE RELEASED
* OUTPUT CATALOG DATA.
PCT6 RJ SFL INSURE FILE LENGTH CORRECT FOR OUTPUT
RJ CFP OUTPUT CATALOG DATA AND UPDATE FILE COUNTS
* ADVANCE CATALOG ADDRESS.
PCT7 SA1 CSLW
SA0 A0+NWCE ADVANCE CATALOG ADDRESS
SX2 A0
IX1 X2-X1
NG X1,PCT2 IF MORE ENTRIES IN SECTOR
EQ PCT1 READ NEXT CATALOG SECTOR
TITLE PFREL ROUTINES.
CRC SPACE 4,20
** CRC - CHECK RELEASE CRITERIA.
*
* ENTRY (A0) = ADDRESS OF CATALOG ENTRY.
*
* EXIT (X6) .NE. 0 IF DISK SPACE TO BE RELEASED.
* (X6) = 0 IF DISK SPACE NOT TO BE RELEASED.
* *DROPDS* ENTRY MADE IN *PFMREQ* FILE IF DISK SPACE TO
* BE RELEASED.
*
* USES X - 0, 1, 2, 3, 5, 6, 7.
* A - 1, 2, 3, 5, 6.
* B - 3.
*
* CALLS CBR, CDS, WPR.
*
* MACROS GETDI.
CRC5 SX6 B0+ SET FILE NOT SELECTED
CRC SUBR ENTRY/EXIT
SA1 A0+FCRS CHECK PREFERRED RESIDENCE
SA5 A0+FCBT CHECK ACTUAL RESIDENCE
MX0 -3
MX6 -12
LX1 3
LX5 -12
BX1 -X0*X1
BX6 -X6*X5
SX1 X1-RSLK
ZR X6,CRCX IF FILE NOT DISK RESIDENT
ZR X1,CRC5 IF LOCKED TO DISK PREFERRED RESIDENCE
RJ CBR CHECK BACKUP REQUIREMENT
ZR B2,CRC5 IF NO ALTERNATE STORAGE COPIES OF FILE
NZ X7,CRC2 IF FILE BACKED UP ON ALTERNATE STORAGE
SA1 MAEQ EST ORDINAL OF MASTER DEVICE FOR THIS FILE
SA2 CRCA EST ORDINAL FROM PREVIOUS *CRC* CALL
SA3 CRCB
BX6 X1-X2
ZR X6,CRC1 IF INHIBIT DATE PRESENT FOR CURRENT DEVICE
BX6 X1 SAVE EST ORDINAL
SA6 CRCA
GETDI DEVI,X1 GET INHIBIT DATE FOR CURRENT DEVICE
SA3 DBUF+MDIT SAVE INHIBIT DATE
BX6 X3
SA6 CRCB
CRC1 SA1 A0+FCUD GET UTILITY CONTROL DATE AND TIME
MX6 -36
BX3 -X6*X3
BX1 -X6*X1
IX1 X1-X3
PL X1,CRC5 IF FILE MODIFIED SINCE LAST DUMP
PL X5,CRC2 IF INDIRECT ACCESS FILE
SA1 A0+FCDN GET RESIDENCY DEVICE
MX6 -6
LX1 -36
BX1 -X6*X1
ZR X1,CRC2 IF FILE RESIDES ON MASTER DEVICE
RJ CDS CHECK DEVICE STATUS
ZR X6,CRCX IF DEVICE NOT FOUND
CRC2 SA1 CPAR+/COMSPFS/CPIP
NZ X1,CRC4 IF PROCESSING INHIBITED
SX7 B0 SET SPECIAL REQUEST BLOCK WORD 1
RJ WPR WRITE *PFM* REQUEST
CRC4 SX6 B1 SET FILE SELECTED FOR RELEASE
EQ CRCX RETURN
CRCA CON 0 RELEASE INHIBIT DATE EST ORDINAL
CRCB CON 0 DEVICE RELEASE INHIBIT DATE AND TIME
TITLE GENERAL SUBROUTINES.
APR SPACE 4,10
** APR - ABORT PROCESSOR.
*
* EXIT CATALOG AND *PFM* REQUEST FILES RETURNED.
* PERMANENT FILE ACTIVITY COUNT DECREMENTED.
* PERMANENT FILE PARAMETERS RESTORED.
*
* CALLS CAC.
*
* MACROS RETURN, SETPFP.
APR SUBR ENTRY/EXIT
RETURN CATS RETURN CATALOG FILE
RETURN PFMREQ
RJ CAC CLEAR PERMANENT FILE ACTIVITY COUNT
SETPFP GPAR RESTORE PERMANENT FILE PARAMETERS
EQ APRX RETURN
IFM SPACE 4,10
** IFM - ISSUE FILE COUNT MESSAGES.
*
* EXIT FILE COUNT MESSAGES ISSUED TO DAYFILE.
*
* USES X - 1, 2, 5, 6.
* A - 1, 2, 5, 6.
*
* CALLS IFC.
IFM SUBR ENTRY/EXIT
SA1 /COMSPFS/UTLC
SA5 IFMA
SX1 X1-/COMSPFS/CAUT
ZR X1,IFM1 IF *PFCAT*
SA5 IFMB
RJ IFC ISSUE *PFREL* FILES SELECTED MESSAGES
SA1 CPAR+/COMSPFS/CPIP
NZ X1,IFMX IF PROCESSING INHIBITED
SA1 PRFC
SA2 PPFC
IX6 X1-X2
SA6 NPFC SET FILES NOT POST PROCESSED
SA5 IFMC
IFM1 RJ IFC ISSUE FILE COUNT MESSAGES
EQ IFMX RETURN
IFMA BSS 0 *PFCAT* MESSAGE TABLE
VFD 1/1,22/0,1/0,18/MSFC,18/PRFC
CON 0 END OF TABLE
IFMB BSS 0 *PFREL* FILES SELECTED MESSAGE TABLE
VFD 1/1,22/0,1/0,18/MSSR,18/PRFC
CON 0 END OF TABLE
IFMC BSS 0 *PFREL* FILES RELEASED MESSAGE TABLE
VFD 1/1,22/0,1/0,18/MSRL,18/PPFC
VFD 1/0,22/0,1/0,18/MSNR,18/NPFC
CON 0 END OF TABLE
RIP SPACE 4,10
** RIP - REPRIEVE INTERRUPT PROCESSOR.
*
* EXIT BUSY FETS SET COMPLETE TO ALLOW TERMINATION
* PROCESSING.
*
* MACROS COMPFET.
RIP SUBR ENTRY/EXIT
COMPFET (CATS,O,SU)
EQ RIPX RETURN
TITLE COMMON DECKS.
SPACE 4,10
* COMMON DECKS.
*CALL COMCCDD
ERP1$ SET 0 SELECT *COMCCIO* ERROR PROCESSING OPTION
*CALL COMCCIO
*CALL COMCCOD
*CALL COMCCPM
*CALL COMCDXB
*CALL COMCEDT
FCE$ SET 0 SELECT *COMCFCE* UTILITY FORMAT OPTION
*CALL COMCFCE
GMS$ EQU 1 USE SORT KEY MASK
MWK$ EQU 1 ALLOW MULTIPLE WORD SORT KEYS
*CALL COMCGMS
*CALL COMCJCR
*CALL COMCLFM
*CALL COMCMSF
*CALL COMCMVE
*CALL COMCPFM
PFD$ EQU 1 ASSEMBLE DEVICE ACCESS ROUTINES
DVA$ EQU 1 ASSEMBLE DEVICE ACCESS ROUTINES
PFC$ EQU 1 ASSEMBLE *PFCAT* ROUTINES
LIST X
*CALL COMCPFS
LIST *
*CALL COMCPFU
*CALL COMCRDO
*CALL COMCRDW
*CALL COMCSCB
*CALL COMCSFM
*CALL COMCSFN
*CALL COMCSNM
*CALL COMCSYS
*CALL COMCVLC
*CALL COMCWTC
*CALL COMCWTH
*CALL COMCWTW
*CALL COMCZTB
TITLE GLOBAL DATA AREA.
SPACE 4,10
USE LITERALS
SPACE 4,10
** STATUS MESSAGES.
MSRE DATA 10HRELEASING
SPACE 4,10
** FILE COUNT MESSAGES.
MSFC DATA C* ?????? FILE! CATALOGED.*
MSSR DATA C* ?????? FILE! SELECTED FOR RELEASE.*
MSRL DATA C* ?????? FILE! RELEASED.*
MSNR DATA C* ?????? SELECTED FILE! NOT RELEASED.*
SPACE 4,10
** RESERVED LOCATIONS.
FLSF BSSZ 1 FILE LENGTH REQUIRED FOR SELECTION FLAG
NCAT BSSZ 1 NUMBER OF CATALOG TRACKS ON DEVICE
SPACE 4,10
* FETS.
CATS BSS 0 CATALOG TRACKS
ZZZZZG1 FILEB CATB,CATBL,EPR,FET=10
PFMREQ BSS 0 POST-PROCESSING *PFM* REQUESTS
ZZZZZG4 FILEB PFRB,PFRBL,FET=10
DEVI BSS 0 *GETDI* CALL FET
FILEB DBUF,DBUFL,FET=10
STAT FILEB 0,0,FET=7 FILE STATUS
FWAB EQU * FWA OF BUFFERS
TITLE PRESET.
PRS SPACE 4,30
** PRS - PRESET PROGRAM.
*
* ENTRY (CPAR) = CRACKED PARAMETER ARRAY.
* FILES *ZZZZZG0* THROUGH *ZZZZZG8* RETURNED BY *PFS*.
* FILE *ZZZZZG9* RETURNED BY *PFS* IF NO FILE
* SELECTIONS.
* FILE *ZZZZZG9* CONTAINS FILE SELECTIONS IF PRESENT.
*
* EXIT (B1) = 1.
* (MPFM) = FAMILY NAME PARAMETER.
* (MPPN) = PACK NAME PARAMETER.
* (FMPN) = FAMILY NAME OR PACK NAME.
* (PFRI) = *PFM* PROCESSING PARAMETERS.
* EXECUTION FIELD LENGTH SET.
* DEVICE VALIDATION AND SELECTION PERFORMED.
* ACCES LEVEL RANGE VALIDATED IF SECURE SYSTEM.
*
* USES X - 0, 1, 2, 5, 6, 7.
* A - 0, 1, 2, 5, 6, 7.
* B - 1.
*
* CALLS BMT, CAL, DSS, IFL, IOF, ODV, OSP, SBS, SFP, SSP.
*
* MACROS MEMORY, MOVE, REPRIEVE.
PRS SUBR
SB1 1
MEMORY CM,,R,EBUF REQUEST REQUIRED MEMORY
REPRIEVE RPVB,SET,277B SET EXTENDED REPRIEVE PROCESSING
* INITIALIZE DEVICE ENVIRONMENT. NOTE THAT *PRESET* BUFFERS
* ARE NOT AVAILABLE AFTER THE CALL TO *RPS*.
RJ DSS DETERMINE SECURITY STATUS
RJ BMT BUILD MASS STORAGE TABLE
RJ CAL CHECK ACCESS LEVELS
SX0 EMBUF SET SELECTIONS BUFFER ADDRESS
RJ RPS READ FILE SELECTIONS
RJ SMK SET FILE SELECTION MASK
RJ SFP SET PERMANENT FILE PARAMETERS
* DETERMINE IF FILE LENGTH REQUIRED FOR SELECTION.
SA1 CPAR+/COMSPFS/CPLS
SA2 CPAR+/COMSPFS/CPUS
MX6 1
BX6 -X6
BX2 X6-X2
NZ X1,PRS4 IF LOWER FILE SIZE LIMIT .NE. 0
ZR X2,PRS5 IF UNLIMITED UPPER FILE SIZE LIMIT
PRS4 SA6 FLSF SET FILE LENGTH REQUIRED FOR SELECTION
* INITIALIZE OUTPUT FILE AND SUMMARY FILE.
PRS5 RJ IOF INITIALIZE OUTPUT FILES
RJ OSP OUTPUT SELECTION PARAMETERS
SX6 DSTBUF SET DEVICE STATUS BUFFER ADDRESS
RJ ODV OUTPUT DEVICE STATUS
RJ IFL INITIALIZE FOR FILE PROCESSING
SA1 /COMSPFS/UTLC
SX1 X1-/COMSPFS/CAUT
ZR X1,PRS6 IF *PFCAT*
* INITIALIZE *PFM* REQUEST FILE.
SA1 PRSA SET *PFM* PROCESSOR FOR *PFREL*
BX6 X1
SA6 PFRI
* REDUCE MEMORY, IF FILE SELECTION BUFFER NOT ALLOCATED.
PRS6 SA5 /COMSPFS/NFIS
NZ X5,PRSX IF FILE SELECTION BUFFER ALLOCATED
MEMORY CM,,R,EMBUF+4 REDUCE MEMORY
EQ PRSX RETURN
PRSA VFD 12/2000B+DDPP,30/0,18/MSRE
COMMON SPACE 4,10
* PRESET COMMON DECKS.
LIST X
*CALL COMCPFP
LIST *
*CALL COMCRSB
*CALL COMCWTO
TITLE BUFFER ALLOCATION.
EPRS EQU * END OF PRESET CODE
SPACE 4,10
* MAIN PROGRAM BUFFERS.
CATB EQU FWAB CATALOG FILE BUFFER
PFRB EQU CATB+CATBL *PFM* REQUEST FILE BUFFER
PFLB EQU PFRB+PFRBL PROCESSED FILES FILE BUFFER
MS1B EQU PFLB+PFLBL SORT FILE 1
MS2B EQU MS1B+MSFBL SORT FILE 2
MS3B EQU MS2B+MSFBL SORT FILE 3
MS4B EQU MS3B+MSFBL SORT FILE 4
SRTB EQU MS3B SORT BUFFER (OVERLAYS *MS3B* AND *MS4B*)
ERRNG MSFBL*2-SRTBL SORT BUFFER OVERFLOW
DBUF EQU MS4B+MSFBL DEVICE INFORMATION BUFFER
SPACE 4,10
* BUFFERS USED BY BOTH MAIN PROGRAM AND PRESET.
.BUF MAX DBUF+DBUFL,EPRS START OF BUFFERS ALSO USED BY PRESET
OUTB EQU .BUF OUTPUT FILE BUFFER
SUMB EQU OUTB+OUTBL SUMMARY FILE BUFFER
DSTBUF EQU SUMB+SUMBL DEVICE STATUS BUFFER
EMBUF EQU DSTBUF+100B*2 END OF MAIN PROGRAM BUFFERS
SPACE 4,10
* PRESET BUFFERS OVERLAID BY FILE SELECTIONS.
ESTADD EQU EMBUF *RSB* PARAMETER WORD FOR EST
ESTBUF EQU ESTADD+1 EST BUFFER
MSTADD EQU ESTBUF+ESMX*ESTE *RSB* PARAMETER WORD FOR MST
MSTBUF EQU MSTADD+1 MST BUFFER
EBUF EQU MSTBUF+MSTL END OF PRESET BUFFERS
END