// DATE 300520
// NOHALT
*
*** RUN MAINT.
*
// LOAD $MAINT,F1
// RUN
// COPY FROM-READER,TO-F1,RETAIN-R,LIBRARY-S,NAME-@VTC
       MACRO
       @VTC  &EXP-N
.*
.*     5703-XM1 VTOC INDEX AND FORMAT 1 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 '@VTCEQ - VTOC INDEX AND FORMAT 1 EQUATES'
***********************************************************************
*      VTOC INDEX AND FORMAT 1 EQUATES.
***********************************************************************
*
$@$FIL EQU   X'0D'                     FIRST FILE NAME IN VTOC INDEX
$@$LNG EQU   X'08'                     LENGTH OF FILE NAME
$@$SCT EQU   X'01'                     SCTR ADDR OF SCTR CONTAIN REC
*                                      * RELATIVE TO FILE NAME
$@$BYT EQU   X'02'                     BYTE DISP OF REC WITHIN SCTR
*                                      * RELATIVE TO FILE NAME
$@$INC EQU   X'0A'                     INC FACTOR TO NEXT FILE NAME
$@$TGS EQU   X'32'                     TOTAL # TAGS WITHIN VTOC
$@$LUE EQU   6                         LENGTH OF UNUSED BYTES (AT FIRST
*                                      * AND LAST OF VTOC INDEX)
*
***    FILE LABEL (FL'S) RELATIVE TO FIRST BYTE
*
$@$LTH EQU   X'40'                     LENGTH OF FILE LABEL
$@$FIN EQU   X'0A'                     FILE NAME
$@$RTN EQU   X'11'                     RETAIN TYPE                  1-5
$@$TYP EQU   X'12'                     FILE TYPE
$@$SRT EQU   X'20'                     START DADDR OF FILE (CYL #)
$@$AVL EQU   X'FF'                     NO. FREE TAGS LEFT
*                                      RELATIVE TO SCTR (2) OF VTOC
$@$END EQU   X'22'                     END DADDR OF FILE (CIL #)
*      END OF VTOC INDEX AND FORMAT 1 EQUATES
.*     END OF MACRO; RESTORE PRINT ON.
.MEND  ANOP
       PRINT ON
       MEND
// CEND
// END
*
// READER CONSOLE