// DATE 300520
// NOHALT
*
*** RUN MAINT.
*
// LOAD $MAINT,F1
// RUN
// COPY FROM-READER,TO-F1,RETAIN-R,LIBRARY-S,NAME-@DIR
       MACRO
       @DIR  &EXP-N
.*
.*     5703-XM1 USER LIBRARY DIRECRORY 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 '@DIREQ - FILE LIBRARY DIRECRORY EQUATES'
***********************************************************************
*      USER LIBRARY DIRECRORY EQUATES
***********************************************************************
*
***    RELATIVE DISK ADDRESS EQUATES
*
##RN   EQU   X'0000'                   REL. DADDR OF NULL DIRCTY
##RP   EQU   X'0001'                   REL. DADDR OF PASSWORD DIRCTY
##R2   EQU   X'0005'                   REL. DADDR OF TWO-STAR DIRCTY
##R1   EQU   X'0007'                   REL. DADDR OF ONE-STAR DIRCTY
       SPACE
***********************************************************************
*                  DISPLACEMENT EQUATES
***********************************************************************
*
***    PASSWORD DIRECTORY
*
##DPHC EQU   0                         DISP TO PSWD HDR COUNT FIELD
##DPHR EQU   3                         DISP TO END OF DIRECTORY HEADER
##DPE1 EQU   4                         DISP TO 1ST PSWD ENTRY
##DPEN EQU   7                         DISP TO PSWD IN ENTRY
##DPEA EQU   9                         DISP TO REL ADDR IN PSWD ENTRY
##DPER EQU   11                        DISP TO END OF ENTRY
*
***    USER DIRECTORY
*
##DUHA EQU   1                         DISP TO CURR BLOCK REL. DADDR
##DUHB EQU   3                         DISP TO FORWARD LINK
##DUHC EQU   4                         DISP TO BLOCK ENTRY COUNT
##DUHR EQU   11                        DISP TO END OF DIRECTORY HEADER
##DUE1 EQU   12                        DISP TO 1ST ENTRY
##DUEN EQU   7                         DISP TO FILE NAME
##DUEA EQU   9                         DISP TO REL DADDR OF FILE
##DUEF EQU   11                        DISP TO FILE LENGTH
##DUEI EQU   12                        DISP TO FIT LENGTH
##DUES EQU   13                        DISP TO STATUS BYTE
##DUEL EQU   15                        DISP TO NUMBER OF LINES
##DUED EQU   18                        DISP TO DATE (RIGHT MOST BYTE)
##DUEH EQU   43                        DISP TO FILE HEADER
##DUER EQU   49                        DISP TO END OF ENTRY
*
***    NULL DIRECTORY
*
##DNHC EQU   0                         DISP TO ENTRY COUNT
##DNHY EQU   1                         DISP TO LIBR CYL COUNT
##DNHR EQU   3                         DISP TO END OF DIRECTORY HEADER
##DNE1 EQU   4                         DISP TO 1ST ENTRY
##DNEA EQU   1                         DISP TO REL STARTING DADDR
##DNEF EQU   3                         DISP TO NUMBER OF SECTORS
##DNER EQU   5                         DISP TO END OF ENTRY
       SPACE
***********************************************************************
*                  LENGTH EQUATES
***********************************************************************
*
***    GENERAL
*
##LAHC EQU   1                         LENGTH OF ENTRY COUNT FIELD
##LAAA EQU   2                         LNG OF RELATIVE DISK ADDRESSES
*
***    PASSWORD DIRECTORY
*
##LP   EQU   4                         LNG OF DIRECTORY IN SECTORS
##LPHZ EQU   3                         LNG OF HEADER RESERVED AREA
##LPEN EQU   8                         LNG OF PASSWORD
##LPEZ EQU   2                         LNG OF ENTRY RESERVED AREA
##LPH  EQU   4                         LNS OF PASWD DIRCTY HEADER
##LPE  EQU   12                        LNG OF PASWD DIRCTY ENTRY
*
***    USER DIRECTORY
*
##LU   EQU   2                         LNG OF EACH DIRCTY BLK IN SCTRS
##LUHZ EQU   7                         LNG OF HEADER-RESERVED AREA
##LUH  EQU   12                        LNG OF USER DIRCTY WADER
##LUEN EQU   8                         LNG OF FILE NAME
##LUEF EQU   2                         LNG OF FILE LENGTH FIELD
##LUEI EQU   1                         LNG OF FIT LENGTH FIELD
##LUES EQU   1                         LNG OF STATUS FIELD
##LUEL EQU   2                         LNG OF NO. OF LINES FIELD
##LUED EQU   3                         LNG OF DATE
##LUEH EQU   25                        LNG OF FILE READER
##LUEZ EQU   6                         LNG OF ENTRY RESERVED AREA
##LUE  EQU   50                        LNG OF USER DIRCTY ENTRY
*
***    NULL DIRECTORY
*
##LN   EQU   1                         LNG OF DIRECTORY IN SECTORS
##LNHY EQU   1                         LNG OF CYL COUNT FIELD
##LNHZ EQU   2                         LNG OF HEADER RESERVED AREA
##LNH  EQU   4                         LNG OF NULL DIRCTY HEADER
##LNEF EQU   2                         LNG OF NUMBER OF SECTORS FIELD
##LNEZ EQU   2                         LNG OF HENTRY RESERVED AREA
##LNE  EQU   6                         LNG OF NULL DIRCTY ENTRY
       SPACE
***********************************************************************
*                  MASK EQUATES
***********************************************************************
*
***    PASSWORD DIRECTORY
*
##MPHM EQU   85                        MAX. NO. OF PASSWORDS ALLOWED
*
***    USER DIRECTORY
*
##MUHM EQU   10                        MAX. NO. ENTRIES PER DIRCTY BLOCK
##MUEP EQU   X'80'                     '1' - BASIC PROGRAM FILE
##MUEK EQU   X'40'                     '1' - KEYBRD DATA FILE
##MUEG EQU   X'20'                     '1' - PROD. GEN. DATA FILE
##MUEX EQU   X'10'                     '1' - FILE IS POOLED
##MUER EQU   X'08'                     '1' - FILE IS PROTECTED
##MUEO EQU   X'04'                     '1' - FILE IS OPEN
##MUEV EQU   X'02'                     '0' - SHORT PREC DATA FILE
*                                      '1' - LONG  PREC DATA FILE
***    NULL DIRECTORY
*
##MNHM EQU    42                       MAX. NO. ENTRIES IN NULL DIRCTY
*      END OF USER LIB DIR EQUATES
.*     END OF MACRO; RESTORE PRINT ON.
.MEND  ANOP
       PRINT ON
       MEND
// CEND
// END
*
// READER CONSOLE