// DATE 270915
// NOHALT
*
*** RUN MAINT.
*
// LOAD $MAINT,F1
// RUN
// COPY FROM-READER,TO-F1,RETAIN-R,LIBRARY-S,NAME-@VOL
       MACRO
       @VOL  &EXP-N
.*
.*     5703-XM1 GENERAL EQUATES.
.*
       TEXT
       PRINT OFF
       AIF   (&EXP EQ 'Y').ON          PRINT ON REQUESTED ?
       AIF   (&EXP EQ 'N').OFF         PRINT OFF REQUESTED ?
.ERR   MNOTE 00,'INVALID MACRO OPTION SPECIFIED.'
       AGO   .MEND
.ON    ANOP
       PRINT ON
.OFF   ANOP       
       TITLE '@VOLEQ - VOLUME LABEL EQUATES'
**********************************************************************
*      VOLUME LABEL EQUATES                                          *
**********************************************************************
$#TVOL EQU   X'02'                     START OF VOLUME LABEL ('VOL')
$#TLBL EQU   X'08'                     VOLUME LABEL
$#TVTC EQU   X'0A'                     VTOC POINTER
$#TOID EQU   X'5B'                     OWNER ID
$#TCYL EQU   X'5C'                     NUMBER OF CYLINDERS ON DISK
$#TCET EQU   X'69'                     CE TRACK INDICATOR          1-5 
$#TALT EQU   X'75'                     ALTERNATE TRACK ASSIGNMENT
$#TUSE EQU   X'A8'                     TACK USAGE MASK
$#TSUS EQU   X'EF'                     SUSPECTED DEFECTIVE TRACKS
$#THVT EQU   X'F0'                     HELP FILE VTOC TAG NO.
$#THAD EQU   X'F2'                     HELP FILE DADDR
$#TPTF EQU   X'F3'                     PTF VTOC TAG NO.
$#TPSZ EQU   X'F4'                     PTF SIZE
$#TPAD EQU   X'F6'                     PTF DADDR
$#TLSZ EQU   X'F7'                     PTF SIZE
$#TLIB EQU   X'F8'                     LIBRARY VTOC TAG NO.
$#TWRK EQU   X'F9'                     WORK AREA VTOC TAG NO.
$#TSYS EQU   X'FA'                     SYSTEM PGM FILE VTOC TAG NO.
$#TBIS EQU   X'FC'                     BIS SYSTEM FILE DADDR
$#TLAD EQU   X'FE'                     BIS USER LIBRARY DADDR
$#TIDR EQU   X'FF'                     BIS FILES INDICATOR
$#TWAL EQU   215                       DISP TO WKAREA RELEASE LEVEL
$#TRES EQU   215                       DISP TO END OF BIS RESERVED AREA
       SPACE 1
*                                      BIS FILES INDR BYTE:
$#TSYM EQU   X'80'                     BIT 0 - SYSTEM PROGRAM FILE. 
$#TWR1 EQU   X'40'                     *   1 - WORK AREA R1
$#TWF1 EQU   X'20'                     *   2 - WORK AREA F1
$#TLIF EQU   X'10'                     *   3 - LIBRARY FILE
$#TPFL EQU   X'08'                     *   4 - PTF DATA FILE
$#THEL EQU   X'04'                     *   5 - HELP FILE
*      END OF VOLUME LABEL EQUATES
.*     END OF MACRO; RESTORE PRINT ON.
.MEND  ANOP
       PRINT ON
       MEND
// CEND
// END
*
// READER CONSOLE