.MCALL	.MODULE
.MODULE	INDSYM,VERSION=17,COMMENT=<Symbol table overlay>

; Copyright (c) 1998 by Mentec, Inc., Nashua, NH.
; All rights reserved
;
; This software is furnished under a license for use only on a
; single computer system and  may  be  copied  only  with  the
; inclusion of the above copyright notice.  This software,  or
; any other copies thereof, may not be provided  or  otherwise
; made available to any other person except for  use  on  such
; system and to one who agrees to these license  terms.  Title
; to  and  ownership of the software shall at all times remain
; in Mentec, Inc.
;
; The information in this document is subject to change without
; notice and should not be construed as a commitment by Digital
; Equipment Corporation, or Mentec, Inc.
;
; Digital and Mentec  assume  no  responsibility for the use or
; reliability of its software on equipment which is not supplied
; by Digital  or Mentec,  and listed  in the  Software  Product
; Description.
.ENABL	GBL,LC

	.SBTTL	Macro definition

	.MCALL	DEFIN$

DEFIN$

	.SBTTL	Impure data overlay

;+
;Entry point to overlay.  Called in when IND is run.  Returns to the next
;location.
;-

	.PSECT	INDTBS	,D

INDTBS::				;Real start of table

	.PSECT	INDSYM

TBLSYM::JMP	RTN			;Used for table size calculations
REF::
	.SBTTL	Impure data

	.PSECT	DATA	,D

;+
;Global data.
;
;			***** WARNING ***** 
;This data must be bound on a block boundary when the indirect command file 
;processor is linked.
;-

RMON::	.WORD	0		;RMON base address (filled in at init time)
TICKS::	.WORD	60.		;Number of ticks per second ( " )
ENDAT::	.WORD	0		;FDB address of data file for which
				; ".ENABLE DATA" is active
SS::	.BLKW	MAXSND*4	;Subroutine stack (.GOSUB) for maximum
				; subroutine depth = <MAXSND>
SSE::				;End of subroutine stack
SSB::	.WORD	SS		;Begining of subroutine stack
SSP::	.WORD	SS		;Current pointer in subroutine stack
CMDBL::	.BLKW	1		;Length of command buffer
CMDBE::	.BLKW	1		;Pointer to end of command buffer
LINBL::	.BLKW	1		;Length of command line in LINBUF
CMDNAM::.BLKW	2		;Command name


CONTXT:: .BLKW	4		;Block context:
				;	3 words to be set up by .MARK
				;	1 word to point to previous end of
				;	  local symbols

;+
;******************************* NOTE **********************************
;The next four bytes must stay together.  In the first pass into IND the
;INDIN1 routine clears the bytes as CLR (R1)+.
;************************************************************************
;-

BLOCK::	.BYTE	0		;Nesting depth of current block
BLKFLG::.BYTE	0		;Flags for block context
SCAN::	.BYTE	0		;Current scanning depth for label search
	.BYTE	0		;**** Currently unused
LINBUF::.BLKB	LBSIZE+2	;Line buffer
DUMCMD::.BYTE	40,0		;Dummy command line (space plus terminator)
	.EVEN
LIMIT::	.LIMIT			;Task limit

	.SBTTL	Special symbols

;+
;Special symbol table
; These are symbols bracketed by <>
;-

SPCTAB::

;+
;Logical symbols.
;-

;+
;<MAPPED>	Defaulted to false, set in INDIN. Must follow SPCTAB lable.
;-

	.RAD50	/MAPPED/
	.BYTE	LOGF
	.BYTE	0

;+
; <ALTMOD>	'TRUE' if query answer terminated with alt-mode,'FALSE' else
;-

SPSAM::	.RAD50	/ALTMOD/
	.BYTE	LOGF,0

;+
;<ESCAPE>	Synonym to <ALTMOD>
;-

SPSES::	.RAD50	/ESCAPE/
	.BYTE	LOGF,0

;+
;<DEFAUL>	'TRUE' if answer to numeric query defaulted, 'FALSE' else.
;-

SPSDF::	.RAD50	/DEFAUL/
	.BYTE	LOGF,0
;+
;<RAD50>	'TRUE' if last string entered was a valid RAD50 string else
;		'FALSE'
;-

SPS50::	.RAD50	/RAD50/
	.BYTE	LOGF,0

;+
;<ALPHAN>	'TRUE' if last string entered was alphanumeric else 'FALSE'
;-

SPSAN::	.RAD50	/ALPHAN/
	.BYTE	LOGF,0

;+
;<EOF>		'TRUE' if end of file on read else 'FALSE'
;-

SPEOF::	.RAD50	/EOF   /
	.BYTE	LOGF,	0

;+
;<FALSE>	Special TRUE symbol
;-

SPFAL::	.RAD50	/FALSE /
	.BYTE	LOGF,0

;+
;<TIMOUT>	Specifies if ask directive timed out
;-

SPSTMO::.RAD50	/TIMOUT/
	.BYTE	LOGF,0

;+
;<TRUE>		Special TRUE symbol
;-

SPTRU::	.RAD50	/TRUE  /
	.BYTE	LOGT,0

;+
;<MODE>		Set false if not ID software and hardware support on
;		current system (ie. ZB or ZM on hardware that supports
;		ID space.
;-

SPSMOD::.RAD50	/MODE  /
	.BYTE	LOGF,0

;+
;<OCTAL>	Set true if last numeric was octal value (set by .TESTN)
;-

SPSOCT::.RAD50	/OCTAL /
	.BYTE	LOGT,0

;+
;Numeric symbols.
;-

;+
;<SPACE>	Free space in symbol table in bytes.
;-

SPACE::	.RAD50	/SPACE /
	.BYTE	NUMOCT,2
	.WORD	0		;To be filled in by SRSYM

;+
;<SYMTYP>	Contains a numeric code indicating the type of symbol tested.
;-

SPSTP::	.RAD50	/SYMTYP/
	.BYTE	NUMOCT,2
	.WORD	0		;To be filled in by TEST routine

;+
;<FILERR>	Status from last file request
;-

SPFIR::	.RAD50	/FILERR/
	.BYTE	NUMOCT,2
	.WORD	0

;+
;<STRLEN>	Length in characters of last string entered in response
;		to .ASKS.
;-

SPSSL::	.RAD50	/STRLEN/
	.BYTE	NUMOCT,2
	.WORD	0		;To be filled in by .ASKS

;+
;<SYUNIT>	System disk unit number
;-

SPSSU::	.RAD50	/SYUNIT/
	.BYTE	NUMOCT,2
	.WORD	0		;To be filled in by SRSYM

;+
;<EXSTAT>	Exit status from from ERRBYT in RMON
;-

SPSEXS::.RAD50	/EXSTAT/
	.BYTE	NUMOCT,2
	.WORD	1		;Filled in upon re-entry to IND from KMON

;+
;<SUCCES>	RT-11 success status error code
;-

SPSSUC::.RAD50	/SUCCES/
	.BYTE	NUMOCT,2
	.WORD	1

;+
;<WARNIN>	RT-11 warning status error code
;-

SPSWRN::.RAD50	/WARNIN/
	.BYTE	NUMOCT,2
	.WORD	0

;+
;<ERROR>	RT-11 error status error code
;-

SPSERR::.RAD50	/ERROR /
	.BYTE	NUMOCT,2
	.WORD	2

;+
;<SEVER>	RT-11 severe status error code
;-

SPSSEV::.RAD50	/SEVERE/
	.BYTE	NUMOCT,2
	.WORD	4

;+
;<JOBS>		Number of job slots
; -

SPSJOB::.RAD50	/JOBS  /
	.BYTE	NUMOCT,2
	.WORD	1

;+
;<SYSTEM>	System value
;
; Current definitions:
;	0 = RSX-11D
;	1 = RSX-11M
;	2 = RSX-11S
;	3 = IAS
;	4 = RSTS
;	5 = VAX/VMS
;	6 = RSX-11M-PLUS
;	7 = RT-11 (SJ MONITOR)
;      10 = RT-11 (FB MONITOR) check mapped for XM.
;-

SPSSYS::.RAD50	/SYSTEM/
	.BYTE	NUMOCT,2
	.WORD	10		;Default to RT-11 FB/SJ is set up in INDINX.
;+
;String symbols.
;-

;+
;<MONNAM>	Name of running monitor
;-

SPSMON::.RAD50	/MONNAM/
	.BYTE	STR
	.BYTE	20$-10$
10$:	.ASCII	/MONNAM/
20$:	.EVEN

;+
;<SYDISK>	System disk mnemonic (no unit number)
;-

SPSSD::	.RAD50	/SYDISK/
	.BYTE	STR,2
	.WORD	0

;+
;<DATE>	Current date - Format "DD-MMM-YY"				;016
;
;The value is inserted by TIMDAT
;-

SPSDAT::.RAD50	/DATE  /
	.BYTE	STR
	.BYTE	20$-10$
10$:	.ASCII	/         /		;Set to 9. spaces if no date
20$:	.EVEN

;+									;016
;<DATE4Y>	Current date - Format "DD-MMM-YYYY"			;016
;									;016
;The value is inserted by TIMDAT					;016
;-									;016
									;016
SPSD4Y::.RAD50	/DATE4Y/						;016
	.BYTE	STR							;016
	.BYTE	20$-10$							;016
10$:	.ASCII	/           /		;Set to 11. spaces if no date	;016
20$:	.EVEN								;016

;+
;<TIME>		Current time - Format "HH:MM:SS"
;
;The value is inserted by TIMDAT
;-

SPSTIM::.RAD50	/TIME  /
	.BYTE	STR
	.BYTE	20$-10$
10$:	.ASCII	/HH:MM:SS/
20$:	.EVEN

;+
;End of special symbol table.
;-

SPCEND::.WORD	SPCEND		;Special symbol table end

;+
;<FILSPC>	Expanded file specification from file OPEN or TESTFILE
;-

FILSPC::.RAD50	/FILSPC/
	.BYTE	STR,40
	.BLKB	40.		;Reserve space for the maximum string length

;+
;<EXSTRI>	Contains information about any device on the system.
;
; Changed during .TESTDEVICE processing.
;-
SPSDEV::.RAD50	/EXSTRI/
	.BYTE	STR
	.BYTE	40.
	.BLKB	40.
	.EVEN
	.SBTTL	Symbol table and stack area

;+
;Reserve symbol table space.
;	Note - symbol table must be at higher address than the special symbol
;	       table SPCTAB! (expected by subroutine ASVALS).
;-

SYMTAB::.BLKB	STSIZ		;Symbol table

;+
;IND internal stack area.  Placed here because if the stack overflows it will
; overflow into the symbol table area which will probably never fill up
; (except the first time the user uses IND).
;-

	.BLKW	4*<MAXBEG>	;Stack space
IND$SK	== .-2			;Start of stack
ISTACK::.WORD	0		;Pointer to current stack pointer

;+
;Control variables.
;-

TMPFLG::.WORD	0		;Temporary flag for ENABLE/DISABLE
.LIFLG::.WORD	0		;Command listing flag
LIFLGA::.WORD	0		;Flag word of previous indirect level
TMPFL2::.WORD	0		;Temporary flag for second ENABLE/DIS word
.LFLG2::.WORD	0		;Second control status flag word
LIFLG2::.WORD	0		;Flag word of previous level (FOR LFLG2)

;+
;Symbol table for logical, numeric and string symbols.
;
; Format:	Bytes 0-3: Symbol name in RAD50
;		Byte 4: (symbolic offset SETYP) - Symbol type
;		Byte 5: (symbolic offset SELEN) - Value field length in bytes
;		Bytes 6-...: Value field
;
;Offsets and types are defined globally in INDROT.
;-

SYMTB:: .WORD	0		;Address of start of symbol table
SYMND:: .WORD	0		;End of symbol table+2
SYMFR:: .WORD	0		;First free element in symbol table

;+
;Local symbol table starts at "SYMND" and ends at "LSYME"
;-

LSYME::	.WORD	0		;End of local symbol table
	.SBTTL	Direct access labels
;+
;Table of direct access labels.
;This table is a FIFO queue with length = <NDALAB>.  Each element points to
;the next older element.  LABTP points to the earliest entry.  Each time a
;direct access label is found in the command file, an entry for it is pushed
;into the queue (popping the oldest entry out of the queue).  If the label
;already has an entry, it is moved to the beginning of the queue (nothing is
;popped).
;
; Format:	WORD 0 : Pointer to next older entry (0 in oldest entry)
;		WORDS 1-2 : Label name in RAD50
;		WORDS 3-5 : Positional context for record following the label
;			    in the indirect command file.
;-

LABT::	.BLKW	NDALAB*6	;Direct access label table
LABTE::				;End of direct access label table
LABTP::	.WORD	LABT		;Pointer to youngest entry
	.SBTTL	Variable area

VAR0::				;Start of variable area to be cleared at
				;initialization time

LINDS:: .BLKW	1		;Line displayed flag (0 = no, 1 = yes)
CRNTS::	.BLKW	2		;Current symbol (RAD50 packed)
LINLN:: .BLKW	1		;Line length
SBFLG:: .BLKW	1		;Substitution flag
				; 0 = no substitution occured
				; 1 = substitution occured
SBERR:: .BLKW	1		;Substitution error flag 0 = no, 1 = yes
INDDEP::.BLKW	1		;Current indirection depth
ERLBL::	.BLKW	3		;Error routine label
LABL::	.BLKB	6		;Search label
LBLND::	.BLKB	1		;End of label
GLOBS::	.BLKB	1		;Set to 1 if current symbol is global, else 0
GBLERA::.BLKB	1		;Used in erase directive for local/gbl setting
SYMTP:: .BLKB	1		;Symbol type
SPCSYM::.BLKB	1		;Non-zero if handling special symbol
SKIP::	.BLKB	1		;Non-zero if searching for label
ERPROC::.BLKB	1		;Non-zero if processing an error
TIMSUP::.BLKB	1		;Non-zero if gene'd for timer support and
				;a clock is present
PRFLAG::.BLKB	1		;Prompt flag - non-zero if prompt already sent
CONTL::	.BLKB	1		;Non-zero if current command line is a
				;continuation line of a CSI command
EXFL::	.BLKB	1		;Non-zero when exiting
VAR1::	.EVEN			;End of area to initialize

STATUS::.BLKW	1		;Exit status
VOLFLG::.WORD	0		;.vol, .structure flag
DVSTAT::.WORD	0		;Device status word, otherwise known as
				; device is attached flag

	.SBTTL	Indirect file data area

;+
;External macro library calls
;-

	.MCALL	FDBDF$, GCMLB$

	FDBDF$			;Define FDB offsets

;+
;File descriptor block area.
;-

TTFDB::	.BLKB	F$SIZE		;FDB for terminal I/O

DATDN::				;FDBs for OPEN and OPENR
		N=1
	.REPT	NDATF
		.WORD	N
		.BLKB	F$SIZE-2
		N=N+1
	.ENDR

TSTFDB::			;FDB for TESTFILE
	.WORD	N
	.BLKB	F$SIZE-2
	N=N+1

WRKFDB::			;FDB for general use
	.WORD	IN$CHN		;Use IND internal channel
	.BLKW	F$SIZE-4	;F$FNAM (offset 4) must always be 0 for
				;non-filestructured LOOKUP. -4 because
				; channel already specified.

GCML::	GCMLB$	MAXD,LINBUF,N,,LBSIZE ;Get command line block
 
PDLPTR::.WORD	0		;Initial push down list storage for GCML block

TIMUNT::.BYTE	0		;Storage byte for time unit
LIMTYP::.BYTE	0		;Limits and default type (octal or decimal)
ARG::	.BYTE	0		;Non zero if arguments were specified
	.EVEN

CLPTR::	.WORD	0		;Saved command line pointer on entry
LOW::	.WORD	0		;Low limit if specified
HIGH::	.WORD	0		;High limit if specified
DEF::	.WORD	0		;Default if specified
DEFSIZ::.WORD	0		;Size of default string for ASKS
TMOUT::	.WORD	0		;Address of timeout text
TIMVAL::.WORD	0		;Storage for time value
SYMOVL::.WORD	0		;Pointer to start of overlay table info for
				;this overlay

;+
;************************** NOTE ******************************
; The following must be kept in order.
;-

BOOTCD::.BYTE	1		;PDP-8 of somekind 10-17
	.BYTE	2		;RT of somekind 20-27
	.BYTE	3		;RSTS of somekind 30-37
	.BYTE	4		;FILES - 11 41-47
	.BYTE	5		;UNIX - 50-57
	.BYTE	6		;DSM - 60-67
	.BYTE	10		;CP/M  100-107
	.BYTE	11		;UCSD 111-117
	.BYTE	12		;MS-DOS 120-127
	.BYTE	0		;Table End

;+									;017
;MOTABL
;Month ASCII equivilent table, indexed into by month * 4.
;-

        .NLIST  BEX

MOTABL::.ASCII  'Jan-'
        .ASCII  'Feb-'
        .ASCII  'Mar-'
        .ASCII  'Apr-'
        .ASCII  'May-'
        .ASCII  'Jun-'
        .ASCII  'Jul-'
        .ASCII  'Aug-'
        .ASCII  'Sep-'
        .ASCII  'Oct-'
        .ASCII  'Nov-'
        .ASCII  'Dec-'
        .EVEN

        .LIST   BEX

;+
;************************** NOTE ******************************
; The following must be kept in order.
;-

OP1::	.WORD	0		;SYMTAB address of first operand in .IF
				; statement
CUROP::	.BYTE	0		;Current operand
PRVOP::	.BYTE	0		;Previous operand. 0 = FALSE, -1 = TRUE.
FLAG::	.BYTE	0		;1 = Last command element was .IFxxx command,
				;0 = Last element was .AND/.OR,
				;or nothing parsed thus far
COND::	.BYTE	0		;Saved relational operator

;+
;End of order specific data.
;-

;+
;The following area is used for time EMT's.  They must stay in order.
;They are used in timeouts for ask directives, TWAIT (.Delay directive),
;and .GTIM (when updating the TIME special symbol).
;-

TIMBLK::.WORD	0		;TWAIT units area (high word).
	.WORD	0		;TWAIT units area (low word).

; Argument block for the TIMASC (SYSLIB) routine

TASBLK::.WORD	2		;2 arguments for TIMASC call
	.WORD	TIMBLK		;Pointer to .GTIM results.
	.WORD	SPSTIM+SEVAL	;Pointer to <TIME> special symbol area.

COMFLG::.WORD	0		;Comment flag 0=none, 1=comment in progress
LIM1::	.BYTE	0
LIM2::	.BYTE	0

;
;******** NOTE ********
;Do not separate the next two bytes!!!
;-

FLAG1::	.BYTE	0		;0 = next character is start of number or
				;symbol, or "(".
				;<> 0 next character is operator or ")".
PARCNT::.BYTE	0		;Parentheses nesting level
SETLFL::.BYTE	0		;<> process for SETL (negative logic)
	.EVEN

;+
;.TESTDEVICE/.VOL status blocks.
;-
DVINFO::.BLKW	4		;Device information block

$IOWNR::.WORD	0		;FDB address of input buffer owner
$IBLKN::.WORD	177777		;Current block number of owning file
				;Must be minus to correct bug
$INPBF::.BLKB	1000		;Input file blocking buffer
$INPND::			;End of blocking buffer
	.EVEN

REDBLK::.WORD	0
$OOWNR::.WORD	0		;FDB address of output buffer owner
$OUPBF::.BLKB	1000		;Output file blocking buffer
$OUPND::			;End of buffer area

SYMTEN::			;Used for table size calculations
	.END