// DATE 270915
// NOHALT
*
*** RUN MAINT.
*
// LOAD $MAINT,F1
// RUN
// COPY FROM-READER,TO-F1,RETAIN-R,LIBRARY-S,NAME-@CAN
       MACRO
       @CAN  &EXP-N
.*
.*     5703-XM1 COMMON CORE LOCATIONS OUTSIDE NUCLEUS
.*
       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 '@CANEQ - COMMON CORE LOCATIONS OUTSIDE NUCLEUS'
***********************************************************************
*      INPUT LINE HEADER                                              *
***********************************************************************
$$ILHD EQU   $ENDNU                    FIRST BYTE OF INPUT LINE HEADER
*
$$ILEN EQU   $$ILHD+1                  SECOND BYTE OF SDF LENGTH FIELD
*
$$UPAR EQU   $$ILEN+1                  UP ARROW LOCATION IN LAST LINE
*
$$CKEY EQU   $$UPAR+1                  CMD KEY FUNCTION CODE
*                                      * EXECUTABLE CMD KEYS
$$BNLN EQU   $$ILEN+4                  SECOND BYTE OF BINARY LINE NO.
*
$$TPCD EQU   $$BNLN+1                  TYPE CODE FIELD
       SPACE 1
***********************************************************************
*      INPUT LINE TEXT                                                *
***********************************************************************
$$INLN EQU   $$TPCD+1                  FIRST BYTE CHAR OF INPUT LINE
*
$$CDND EQU   $$INLN+@CARDL-1           LAST CHAR OF CARD INPUT
*
$$INND EQU   $$INLN+@LINSZ-1           LAST CHAR OF INPUT LINE BUFFER
       SPACE 1
***********************************************************************
*      KEYBOARD ROUTINE LOCATIONS AND MASKS                           *
***********************************************************************
$$PRES EQU   $ENDNU+X'0290'            ENABLE KEYBOARD ENTRY TO DEPRES
*
$$KBDT EQU   $$PRES+X'0151'            DATA BYTE FROM KEYBOARD
$$$STD EQU   B'10000001'               CLI MASK FOR START KEY DATA
$$$EPL EQU   B'10010001'               CLI MASK FOR ENTER PLUS KEY
*
$$KBSN EQU   $$KBDT+1                  TYPE BYTE FROM KEYBOARD
$$$DAT EQU   B'01000000'               TBM MASK FOR DATA KEY
$$$CMD EQU   B'00100000'               TBM MASK FOR COMMAND KEY
$$$FUN EQU   B'00010000'               TBM MASK FOR FUNCTION KEY
*
$$LPOS EQU   $$KBSN+9                  PRINT HEAD POSITION ADDR
$$EOSA EQU   $$PRES+X'026E'            LOCATION OF EOS ADDR
$$COFF EQU   $$PRES+X'02B4'            ENTRY TO TURN OFF CMD LIGHTS
$$CKFF EQU   $$PRES+X'02AD'            ENTRY TO TURN OFF CMD LIGHTS 1-1
$$DATB EQU   $$PRES+X'032F'            ADDR OF DATA TABLE TYPE INDR IN
*                                      * DEPRES (VALUE: 1-9)
       SPACE 1
***********************************************************************
*      MATRIX PRINTER ROUTINE ENTRY POINT                             *
***********************************************************************
$$PRNT EQU   $ENDNU+X'0100'+@HDRLN     DPRINT ENTRY
$$PRTN EQU   $$PRNT+X'007B'            ADDR OF CARRIER RETURN TEST IN
*                                      * DPRINT.  MASKS FOLLOE
*                                      * @NOP - NO TEST MADE
*                                      * @BNL - TEST WILL BE MADE
$$PSIO EQU   $$PRNT+X'00C7'            ADDR OF SIO CTRL IN DPRINT
$$PCNT EQU   $$PRNT+X'00E2'            ADDR OF PPL CNT IN DPRINT
       EJECT
***********************************************************************
*      CARD READER LOCATIONS                                          *
***********************************************************************
$$CDRD EQU   $$PRES                    ENTRY POINT TO READ CARDS
*
$$CDBS EQU   $$CDRD+X'0030'            ENTRY POINT TO WAIT FOR READ
       SPACE 1
***********************************************************************
*      CRT OUTPUT ROUTINE LOCATIONS                                   *
***********************************************************************
$$PYMP EQU   $$ZERO+X'2000'            ENTRY POINT TO CRT PLUS PRINT
*
$$PLYN EQU   $$PYMP+4                  ENTRY POINT TO CRT ONLY
*
$$CSNS EQU   $$PYMP+X'009C'            LOCATION OF SENSE BYTE IN
*                                      * DSPLYN
$$PRFL EQU   $$PYMP+X'0143'            ENTRY POINT FOR PRINTER FAILURE
*
$$PYCD EQU   $$PYMP+X'0200'            ENTRY POINT FOR COMMAND KEYS
*                                      * OR CLEAR CRT FUNCTION
       SPACE 1
***********************************************************************
*      MISCELLANEOUS LOCATIONS                                        *
***********************************************************************
$$ERSK EQU   X'1C00'                   START ADDR OF ERROR CODE STACK
$$$NLN EQU   X'00A0'                   HIGH ORDER BYTE OF LINE NUMBER
*                                      * IN STACK IF NO. NOT DESIRED
$$SLIB EQU   X'1C00'                   SECONDAIRY LINE INPUT BUFFER
$$XIND EQU   $ENDNU+X'00FF'            EXEC INDR PASS AREA
$$$ERN EQU   B'10000000'               RUN FUNC SAVED FILE INDR MASK
$$WSPB EQU   X'1E00'                   LOCATION OF BAGETC BUFFER
$$FLIB EQU   $$XIND                    FILE LIB ADDR PASS AREA
$$FITS EQU   X'1D00'                   LOCATION OF FIT
       SPACE 1
***********************************************************************
*      KEYWORD COMMAND LOAD ADDRESSES                                 *
***********************************************************************
$$KLD1 EQU   $ENDNU                    PROGRAMS THAT LOAD BEHIND
*                                      * SYSNUC
$$KLD2 EQU   $ENDNU+X'0100'            PROGRAMS THAT LOAD BEHIND
*                                      * THE INPUT LINE BUFFER
$$KLD3 EQU   $ENDNU+X'0600'            STANDARD LOAD ADDRESS BEHIND
*                                      * I/O ROUTINES
*      END OF COMMON CORE LOCATIONS EQUATES
.*     END OF MACRO; RESTORE PRINT ON.
.MEND  ANOP
       PRINT ON
       MEND
// CEND
// END
*
// READER CONSOLE