// DATE 270915
// NOHALT
*
*** RUN MAINT.
*
// LOAD $MAINT,F1
// RUN
// COPY FROM-READER,TO-F1,RETAIN-R,LIBRARY-S,NAME-@CY0
       MACRO
       @CY0  &EXP-N
.*
.*     5703-XM1 CYLINDER 0 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 '@CY0EQ - CYLINDER ZERO EQUATES'
**********************************************************************
*      DISK TABLE EQUATES                                            *
**********************************************************************
#VOLNG EQU   6                         LENGTH OF VOL ID
#VOLOC EQU   5                         DISPLACEMENT OF VOL ID ON SCTR
#VLTBE EQU   #VOLNG+2                  LENGTH OF VOLID TABLE ENTRY
       SPACE 1
**********************************************************************
*      SDS (ERROR LOG) EQUATES                                       *
**********************************************************************
#PKRTD EQU   3                         DISP TO END OF PK ERR/RATE ENTRY
#PKRDD EQU   3                         DISP TO RESPECTIVE READ COUNTER
#PKWTD EQU   1                         DISP TO RESPECTIVE WRITE COUNTER
#PKCNT EQU   2                         LENGTH OF IN-CORE COUNTERS
#PKMRW EQU   43                        DISP TO MASTER RD/WT COUNTERS
#PKVRD EQU   11                        DISP TO VOLUME RD COUNTERS IN SDR
#PKVWD EQU   7                         DISP TO VOLUME WT COUNTERS IN SDR
#PKRTL EQU   4                         LENGTH PACK ERROR RATE ENTRY
#RDWTL EQU   4                         LENGTH RD/WT ERROR RATE COUNTER
       SPACE 1
#CNDIS EQU   1                         SECTOR DISPLACEMENT OF
*                                      * CONFIGURATION RECORD
       SPACE 1
**********************************************************************
*      ERROR HISTORY TABLE EQUATES                                   *
**********************************************************************
#HISLN EQU   8                         LENGTH OF HISTORY TABLE ENTRY
#DKEXT EQU   #HISLN-#VOLNG             HIST LOG EXTENSION FOR DISK ERRORS
#HSENT EQU   1                         DISP OF DISP TO NEXT OBR ENTRY
#HISDX EQU   3                         DISP OF DISP PAST LAST ENTRY
#HISTQ EQU   0                         DISP OF SIO Q BYTE
#HISTR EQU   1                         DISP OF SIO CNTL BYTE
#HISN1 EQU   3                         DISP OF PRIMARY  SENSE REG
#HISN2 EQU   5                         DISP OF SECONDARY SENSE REG
#HISCT EQU   6                         DISP OF RETRY COUNT
#HSEND EQU   7                         DISP OF END OF 1ST ENTRY
#HISTC EQU   7                         DISP OF DCF F-BYTE
#HISTS EQU   8                         DISP OF DCF S-BYTE
#HISTN EQU   9                         DISP OF DCF N-BYTE
#HISTV EQU   15                        DISP OF DISK VOL-ID
       SPACE 1
**********************************************************************
*      CYLINDER ZERO DISK ADDRESSES                                  *
**********************************************************************
#CORSV EQU   X'0010'                   DADDR OF TEMP CORE SAVE AREA
#@CORS EQU   5                         SCTR COUNT TEMP CORE SAVE AREA
#NEROV EQU   X'009C'                   DADDR OF NERLOG OVERLAY
#@NERO EQU   3                         SCTR COUNT NERLOG OVERLAY
#OBRAD EQU   X'001D'                   DADDR OF OBR TABLE
#@OBRA EQU   2                         SCTR COUNT OF OBR
#VLSDR EQU   X'000C'                   DADDR OF VOL STATISTICS SCTR R1
#@VLSD EQU   1                         SCTR COUNT OF VOL STATISTICS
#MVSDR EQU   X'000D'                   DADDR OF MASTER VOL STAT SCTR
#@MVSD EQU   1                         SCTR COUNT OF MASTER VOL STAT
#SDRDK EQU   X'0011'                   DADDR OF DISK SDR SCTR
#IOSDR EQU   X'0019'                   DADDR OF NON-DISK SDR SCTR
#CNFIG EQU   X'0005'                   DADDR OF CONFIG RECORD
#FIGSC EQU   1                         SCTR COUNT OF CONFIG RECORD
#VOLF1 EQU   X'0009'                   DADDR OF VOLUME LABEL (F1)
#VOLR1 EQU   X'0008'                   DADDR OF VOLUME LABEL (R1)
#@VLAB EQU   1                         SCTR COUNT OF VOLUME LABEL
#VTCR1 EQU   X'0024'                   DADDR OF R1 VTOC
#VTCF1 EQU   X'0025'                   DADDR OF F1 VTOC
#VTCR2 EQU   X'0026'                   DADDR OF R2 VTOC
#VTCF2 EQU   X'0027'                   DADDR OF F2 VTOC
#@VCNT EQU   2                         SCTR COUNT OF VTOC
#PTFDA EQU   X'00DC'                   DADDR OF PTF LOG
#@PTFS EQU   1                         SCTR COUNT FOR PTF LOG
#@PTFL EQU   6                         LENGTH OF ENTRY IN PTF LOG
*      END OF CYLINDER ZERO EQUATES
.*     END OF MACRO; RESTORE PRINT ON.
.MEND  ANOP
       PRINT ON
       MEND
// CEND
// END
*
// READER CONSOLE