*COMDECK,LCORE
*CALL,FETCOM
          EJECT 
* 
*         LOW CORE-LOCATION USAGE 
* 
**************************************************************
*  NOTE... PRSP IN BASCOMP ZEROES OUT LOPTION THROUGH        *
*          ERRORFL WHEN RUN INTERACTIVELY                    *
*                            -()-                            *
**************************************************************
* 
* 
 EOPTION  EQU    2           ERROR (TERMINAL) FILE
 IOPTION  EQU    EOPTION+1   INPUT FILE 
 XOPTION  EQU    IOPTION+1   BINARY FILE
 ASOPTION EQU    XOPTION+1   ASCII OPTION 
 DBOPTION EQU    ASOPTION+1  DEBUG OPTION 
 LOPTION  EQU    DBOPTION+1  LIST OPTION
 SLOPTION EQU    LOPTION+1   SOURCE LIST
 OLOPTION EQU    SLOPTION+1  OBJECT LIST
 BLOPTION EQU    OLOPTION+1  BURSTABLE LISTING
 TROPTION EQU    BLOPTION+1  PRINT BYTE 
 PDOPTION EQU    TROPTION+1  PAGE DENSITY 
 PSOPTION EQU    PDOPTION+1  PAGE SIZE
 ELOPTION EQU    PSOPTION+1  ERROR LIST OPTION
 GOOPTION EQU    ELOPTION+1  GO NO-GO 
 ERRORFL  EQU    GOOPTION+1  ERROR FLAG 
 KOPTION  EQU    ERRORFL+1   RUN TIME OUTPUT
 JOPTION  EQU    KOPTION+1   RUN TIME INPUT 
 ENDOFOPT EQU    JOPTION     END OF OPTION
* 
* 
 INSTSRT  EQU    JOPTION+1
 INSTPTR  EQU    INSTSRT+1
 DATAPTR  EQU    INSTPTR+1
 CONDSRT  EQU    DATAPTR+1
 CONSPTR  EQU    CONDSRT+1
 LABLPTR  EQU    CONSPTR+1
 IDLASRT  EQU    LABLPTR+1
 RELSTRT  EQU    IDLASRT+1
 ABSSTRT  EQU    RELSTRT+1
 PRENTRY  EQU    ABSSTRT+1
 VARCONT  EQU    PRENTRY+1
 IDENTIF  EQU    VARCONT+1
 UPPERTB  EQU    IDENTIF+1
 FIELDLG  EQU    UPPERTB+1    B59-30 = MAX FL, B29-0 = CURRENT FL 
* 
* 
 IBFLG    EQU    FIELDLG+1   INTERACTIVE/BATCH FLAG 
 ROPTION  EQU    IBFLG+1
 RELTOP   EQU    ROPTION+1
* 
* 
