// DATE 151015
// NOHALT
*
*** RUN MAINT.
*
// LOAD $MAINT,F1
// RUN
// COPY FROM-READER,TO-F1,RETAIN-R,LIBRARY-S,NAME-@CNF
       MACRO
       @CNF  &EXP-N
.*
.*     5703-XM1 CONFIG 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 '@CNFEQ - CONFIGURATION RECORD EQUATES'
**********************************************************************
*      CONFIGURATION RECORD EQUATES                                  *
**********************************************************************
*
***    DATA RECORDER EQUATES
*
@#0009 EQU   9                         COMPONENT NUMBER
@#DATA EQU   @#0009*4-4                DISP FACTOR
*                                      * MASKS AND INDRS FOLLOW
@#DATN EQU   X'80'                     DATA RECORDER INDR
*                                      * 0 - NOT SUPPORTED
*                                      * 1 - SUPPORTED
@#DATB EQU   X'40'                     5496 DATA RECORDER INDR
*                                      * 0 - NOT SUPPORTED
*                                      * 1 - SUPPORTED
@#DATC EQU   X'48'                     0129 DATA RECORDER INDR
*                                      * 0 - NOT SUPPORTED
*                                      * 1 - SUPPORTED
*
***    CRT EQUATES
*
@#0011 EQU   11                        COMPONENT NUMBER
@#CRTD EQU   @#0011*4-4                DISP FACTOR
*                                      * MASKS AND INDRS FOLLOW
@#CRTN EQU   X'80'                     CRT INDR
*                                      * 0 - NOT SUPPORTED
*                                      * 1 - SUPPORTED
@#CRTB EQU   X'40'                     CRT INDR (BIS)
*                                      * 0 - NOT SUPPORTED
*                                      * 1 - SUPPORTED
*
***    PRINTER EQUATES
*
@#0006 EQU   6                         COMPONENT NUMBER
@#MTRX EQU   @#0006*4-4                DISP FACTOR
*                                      * MASKS AND INDRS FOLLOW
@#MTXN EQU   X'80'                     MATRIX PRINTER INDR
*                                      * 0 - NOT SUPPORTED
*                                      * 1 - SUPPORTED
@#MTXB EQU   X'40'                     PRINTER INDR (BIS)
*                                      * 0 - NOT SUPPORTED
*                                      * 1 - SUPPORTED
*
@#MTYP EQU   @#MTRX+X'02'              DISP FACTOR
*                                      * MASKS AND INDRS FOLLOW
@#MTMP EQU   X'08'                     MATRIX TYPE PRINTER
@#MTLP EQU   X'04'                     LINE TYPE PRINTER
*                                      * MATRIX PRINTER WIDTH INDR
@#MP22 EQU   X'02'                     * - 22 INCH (MP)/200 PP
@#MP13 EQU   X'01'                     * - 13 INCH (MP)/132 PP
*
***    KEYBOARD EQUATES
*
@#0007 EQU   7                         COMPONENT NUMBER
@#KBRD EQU   @#0007*4-4                DISP FACTOR
*                                      * MASKS AND INDRS FOLLOW
@#KBNO EQU   X'80'                     KEYBOARD INDR
*                                      * 0 - NOT SUPPORTED
*                                      * 1 - SUPPORTED
@#KBRB EQU   X'40'                     KEYBOARD INDR (BIS)
*                                      * 0 - NOT SUPPORTED
*                                      * 1 - SUPPORTED
*
@#KEYS EQU   @#KBRD+X'01'              DISP FACTOR
*                                      * MASKS AND INDRS FOLLOW
@#KE08 EQU   X'40'                     *  8 COMMAND KEYS
@#KE16 EQU   X'80'                     * 16 COMMAND KEYS
*
@#KNAT EQU   @#KBRD+X'02'              DISP FACTOR
*                                      * MASKS AND INDRS FOLLOW
@#DOMS EQU   X'01'                     * 1 - DOMESTIC
@#AGER EQU   X'02'                     * 1 - AUSTRIAN/GERMAN
@#BFRN EQU   X'03'                     * 1 - BELGIUM/FRANCE
@#DENK EQU   X'04'                     * 1 - DENMARK
@#NORW EQU   X'05'                     * 1 - NORWAY
@#FINL EQU   X'06'                     * 1 - FINLAND
@#SPAN EQU   X'07'                     * 1 - SPANISH
@#PORT EQU   X'08'                     * 1 - PORTUGAL/SPAIN
@#UKDM EQU   X'09'                     * 1 - UNITED KINGDOM
*
***    DISK EQUATES
*
@#0005 EQU   5                         COMPONENT NUMBER
@#DISK EQU   @#0005*4-4                DISP FACTOR
*                                      * MASKS AND INDRS FOLLOW
@#DISN EQU   X'80'                     DISK INDR
*                                      * 0 - NOT SUPPORTED
*                                      * 1 - SUPPORTED
@#DISB EQU   X'40'                     DISK INDR (BIS)
*                                      * 0 - NOT SUPPORTED
*                                      * 1 - SUPPORTED
*
@#DSIZ EQU   @#DISK+X'03'              DISP FACTOR
*                                      * MASKS AND INDRS FOLLOW
@#C200 EQU   X'08'                     * 1 - FULL CAPACITY
@#C100 EQU   X'04'                     * 1 - 1/2 CAPACITY
@#C050 EQU   X'02'                     * 1 - 1/4 CAPACITY
*                                      DISK DRIVE CONFIGURATION
@#FRR2 EQU   X'10'                     * 1 - R1, F1, R2
@#FR12 EQU   X'01'                     * 1 - R1, F1, R2, F2
*
***    CORE SIZE EQUATES
*
@#0016 EQU   16                        COMPONENT NUMBER
@#CSIZ EQU   @#0016*4-3                DISP FACTOR
*                                      * MASKS AND INDRS FOLLOW
@#C08K EQU   X'01'                     * 1 -  8KBYTE
@#C12K EQU   X'02'                     * 1 - 12KBYTE
@#C16K EQU   X'04'                     * 1 - 16KBYTE
*      END OF CONFIGURATION RECORD EQUATES
.*     END OF MACRO; RESTORE PRINT ON.
.MEND  ANOP
       PRINT ON
       MEND
// CEND
// END
*
// READER CONSOLE