* 07/10/74 -- 16:00
* MODULE NAME: TEXTSTA
* NUMBER: 58
* PURPOSE: CONTAINS DEF'S AND RESERVED SPACE FOR ALL
*          UTS/TEXT STATUS TABLES
*
* 'SYSTEM ITEMDEF' CONTAINS ITEM DEFINITIONS
*
         SYSTEM   TEXTDEF
            RESREFLG                RESET REF FLAG
         SYSTEM   ITEMDEF
            INVCMDSTA
            INVWSSTA
            INVLNSTA
            INVPRSTA
            INVAFSTA
            INVHDRSTA
*
*
         DEF      58D
*
58D      CSECT    0                 START OF DATA AREA
         DATA     X'58'             MODULE NUMBER
         DATA     X'071074'         DATE
         DATA     X'1630'           TIME
*
*
         TITLE    '** TEXTSTA(58) **'
*
*
* SUBPROGRAM RETURN ADDRESS STACK
*
         DEF      RTNSTACK,ZRTNSTK
*
*
         BOUND    8
RTNSTACK DATA     WA(ADDRSTK)       STACK POINTER DOUBLE WORD
         DATA,2   STACKSZ,0         STACK INITIALIZATION
*
ADDRSTK  EQU      %
         RES      STACKSZ           ACTUAL RETURN ADDR STACK
*
ZRTNSTK  EQU      %
         DATA     WA(ADDRSTK)
         DATA,2   STACKSZ,0
*
*
         PAGE
*
*
* WORKING STORAGE STATUS TABLE (WSSTA)
*
         DEF      WSSTA,SAVWSSTA
*
*
WSSTA    EQU      %                 START OF WSSTA TABLE
         RES      SZWSSTA
SAVWSSTA EQU      %
         RES      SZWSSTA
*
*
* AUXILIARY FILE STATUS TABLE
*
         DEF      AFSTA,NXTENTRY
*
NXTENTRY RES      1                 NEXT ENTRY POINTER
AFSTA    EQU      %
         RES      SZAFSTA
*
*
         PAGE
*
*
* HEADER RECORD TABLE
*
         DEF      HDRSTA
*
HDRSTA   EQU      %
         RES      SZHDRSTA
*
*
*
* POINTERS FOR TAG STATUS TABLE
*
         DEF      TAGBUF,OCCBASE
*
TAGBUF   RES      1                 POINTER TO TAG BUFFER
OCCBASE  RES      1                 POINTER TO OCCURENCES
*
*
* TABLE STATUS POINTER
*
         DEF      TBLPTR
*
TBLPTR   RES      1
*
         PAGE
*
* PRINT STATUS TABLE
*
         DEF      PRSTA
*
PRSTA    EQU      %
         RES      SZPRSTA
*
*
*
*
* COMMAND STATUS TABLE
*
         DEF      CMDSTA
*
CMDSTA   RES      SZCMDSTA
*
*
* LINE FORMATTING STATUS TABLE
*
         DEF      LNSTA
*
LNSTA    RES      SZLNSTA
*
*
         PAGE
*
* STANDARD BUFFERS
*
         DEF      STDINBUF
STDINBUF RES,1    #STDBUFSZ
*
         DEF      STDPRBUF
STDPRBUF RES,1    #STDBUFSZ
*
         DEF      STDX1BUF
STDX1BUF RES,1    #STDBUFSZ
*
         DEF      STDX2BUF
STDX2BUF RES,1    #STDBUFSZ
*
         DEF      STDX3BUF
STDX3BUF RES,1    #STDBUFSZ
*
         DEF      STDWKBUF
STDWKBUF RES,1    #STDBUFSZ
*
         DEF      MSGBUF
MSGBUF   RES,1    #MSGBUFSZ
*
*
         DEF      PATCH             DEFINE PATCH AREA
PATCH    RES      50                50 WORDS FOR NOW
*
*
         END
