// DATE 270915
// NOHALT
*
*** RUN MAINT.
*
// LOAD $MAINT,F1
// RUN
// COPY FROM-READER,TO-F1,RETAIN-R,LIBRARY-S,NAME-@WKA
       MACRO
       @WKA  &EXP-N
.*
.*     5703-XM1 GENERAL 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 '@WKAEQ - SYSTEM WORK AREA ADDRESSES'
**********************************************************************
*      THIS EQUATE MODULE PROVIDES THE FIXED PHYSICAL DISK           *
*      ADDRESSES OF PGM'S AND WA'S IN THE SYSTEM WORK AREA.          *
**********************************************************************
*
***    SELECTED SYSTEM PROGRAMS AND BAD LINE
*
#@WAR1 EQU   X'0400'                   DADDR OF SELECTED PGM AREA
#@WAF1 EQU   X'0401'                   DADDR OF SELECTED PGM AREA
#@BOVL EQU   X'0400'                   PHYSICAL DADDR OF #BOVLY
#@@BOV EQU   24                        SECTOR COUNT OF #BOVLY
#@SFSY EQU   X'0480'                   PHYSICAL DADDR OF #SFSYN
#@@SFS EQU   17                        SECTOR COUNT OF #SFSYN
#@GUFU EQU   X'0401'                   PHYSICAL DADDR OF #GUFUD
#@@GUF EQU   16                        SECTOR COUNT OF #GUFUD
#@SDSY EQU   X'04AD'                   PHYSICAL DADDR OF #SDSYN
#@@SDS EQU   4                         SECTOR COUNT OF #SDSYN
#@ERRP EQU   X'0441'                   PHYSICAL DADDR OF #ERRPG
#@@ERR EQU   3                         SECTOR COUNT OF #ERRPG
#@LDSV EQU   X'044D'                   PHYS DADDR OF #LOADR SAVE AREA
#@@LDS EQU   2                         SECTOR COUNT OF #LOADR SA
#@#BAD EQU   X'0455'                   PHYSICAL DADDR OF THE BAD LINE
#@@#BA EQU   1                         SECTOR COUNT OF ##BADL
#@ECMA EQU   X'0481'                   PHYSICAL DADDR OF #ECMAN
#@@ECM EQU   6                         SECTOR COUNT OF #ECMAN
#@SFLO EQU   X'0499'                   PHYSICAL DADDR OF SFLOAD
#@@SFL EQU   5                         SECTOR COUNT OF SFLOAD
#@SFFI EQU   X'04BD'                   PHYSICAL DADDR OF SFFIND
#@@SFF EQU   8                         SECTOR COUNT OF SFFIND
#@#IO1 EQU   X'0459'                   PHYSICAL DADDR OF 1ST I/O SECTOR
#@#IO2 EQU   X'045D'                   PHYSICAL DADDR OF 2ST I/O SECTOR
#@@#SC EQU   2                         SECTOR COUNT OF I/O SECTOR
#@@#08 EQU   8                         NO. ENTRIES IN 1ST I/O SECTOR
#@@#04 EQU   4                         NO. ENTRIES IN 2ND I/O SECTOR
#@@#IO EQU   1                         SECTOR COUNT OF I/O SECTOR
#@SFOV EQU   X'04C4'                   PHYSICAL DADDR OF #SFOVR
#@@SFO EQU   5                         SECTOR COUNT OF #SFOVR
*
***    WORK FILE ADDRESSES
*
#@#WFT EQU   X'0500'                   PHYSICAL DADDR 1ST SCTR OF FIT
#@@#WF EQU   3                         SCTR COUNT OF FIT
#@#WDB EQU   X'050C'                   PHYSICAL DADDR OF 1ST DATA BLOCK
#@@#WD EQU   189                       SCTR COUNT OF DATA BLOCKS
*
***    VIRTUAL MEMORY ADDRESSES
*
#@#VFP EQU   X'0700'                   PHYSICAL DADDR FIRST PAGE OF VM
#@VTRL EQU   X'0708'                   DADDR OF SAVED 'TRACE' VAR.LIST
#@@VTR EQU   1                         SCTR COUNT SAVED 'TRACE' VAR.LIST
#@#VLP EQU   X'093D'                   PHYSICAL DADDR LAST PAGE OF VM
#@@#VM EQU   256                       SCTR COUNT OF VIRTUAL MEMORY
*
***    TEMPORARELY WORK AREA ADDRESSES
*
#@#TFS EQU   X'0941'                   PHYSICAL DADDR 1ST SCTR TEMP WK AREA
#@@#TW EQU   32                        SCTR COUNT OF TEMP WORKAREA
#@#TAT EQU   X'0941'                   PHYSICAL DADDR STMT ADDR TABLE
#@@#TA EQU   16                        SCTR COUNT OF STMT ADDR TABLE
#@#TSY EQU   X'0941'                   PHYSICAL DADDR SYMBOL TBL SAVE AREA
#@@#TS EQU   5                         SCTR COUNT OF SYMBOL TBL SAVE AREA
#@#TBA EQU   X'09A1'                   PHYSICAL DADDR BRANCH ADDR TABLE
#@@#TB EQU   16                        SCTR COUNT OF BRANCH ADDR TABLE
#@VSFI EQU   X'09A1'                   PHYSICAL DADDR VSFINT
#@@VSF EQU   16                        SCTR COUNT OF VSFINT
#@@VSL EQU   15                        SCTR COUNT OF VSFLOA
*      END OF WORK AREA EQUATES
.*     END OF MACRO; RESTORE PRINT ON.
.MEND  ANOP
       PRINT ON
       MEND
// CEND
// END
*
// READER CONSOLE