.TITLE	VTLBUF - VTL Buffer Allocation
	.IDENT	/1.2/
	.ENABL	LC
;+
;
;			  Free software BY
;		Project Software & Development, Inc.
;
; This  software  is  furnished  for  free and may be used and copied as
; desired.  This software or any other copies thereof may be provided or
; otherwise  made  available  to  any  other  person.  No  title  to and
; ownership of the software is hereby transferred or allowed. 
;
; The  information  in this software is subject to change without notice
; and  should  not  be  construed  as  a commitment  by PROJECT SOFTWARE
; AND DEVELOPMENT, INC.
;
; PROJECT SOFTWARE assumes no responsibility for the use or  reliability  
; of this software on any equipment whatsoever.
;
;	Project Software & Development, Inc.
;	14 Story St.
;	Cambridge, Ma. 02138
;	617-661-1444
;
;
; Title:	VTLBUF.MAC
; Author:	Robin Miller
; Date:		July 1, 1983
;
; Description:
;
;	This module contains the buffer allocation for the VTL program.
;
; Modification History:
;
; June 5, 1984 by Robin Miller.  Edit (02)
;	Add five words to store the previous record context.
;
; June 2, 1984 by Robin Miller.  Edit (01)
;	Add two words to contain total records skipped for debugging.
;
;-
	.ENABL	AMA
	.NLIST	BEX


;	Buffer allocation:

	.PSECT	$$ZZZZ,RW,D,REL,CON	; Force buffers to end of the task.

INPTR::	.WORD	INBUF1			; Pointer to input file name(s).
OUTPTR::.WORD	OUTFIL			; Pointer to the output file name.
CMDBUF::.BLKB	CMDSIZ			; The command line buffer.
ERRBUF::.BLKB	ERRSIZ+FILSIZ		; The error message buffer.
FNDBUF::.BLKB	FNDSIZ			; The search string buffer.
FMTBUF::.BLKB	RECSIZ			; The format buffer (very volitile).
INBUF1::.BLKB	CMDSIZ			; The 1st input file name(s) buffer.
	.BYTE	377,0			; Used to flag end of buffer.
INBUF2::.BLKB	CMDSIZ			; The 2nd input file name(s) buffer.
	.BYTE	377,0			; Used to flag end of buffer.
OUTFIL::.BLKB	FILSIZ			; The output file name buffer.
	.BYTE	377,0			; Used to flag end of buffer.
INFIL1::.BLKB	FILSIZ			; Storage for expanded file
INFIL2::.BLKB	FILSIZ			;	name for two input files.
INDAT1::.BLKB	DATSIZ			; Storage for the ASCII
INDAT2::.BLKB	DATSIZ			;	file creation date.
INBUF::	.BLKB	RECSIZ			; Input buffer (if needed).
TMPBUF::.BLKB	TMPSIZ			; Buffer for temporary use.
	.EVEN
MARKB1::.BLKW	<MRKENT*MRKLEN>		; Storage for mark buffers
MARKB2::.BLKW	<MRKENT*MRKLEN>		;	for two input files.

	.PSECT				; Return to original psect.

;	Global storage area:

BCKCNT::.WORD	0			; Number of lines to backup.
NEGFLG::.WORD	0			; Negation of command -1 = True.
PLUFLG::.WORD	0			; Plus sign specified -1 = True.
REPCNT::.WORD	0			; The command repeat count.
TABSIZ::.WORD	DEFTAB			; The maximum tab count size.
WTGREC::.BLKW	2			; The where to go record number.
SKPCNT::.BLKW	2			; The number of records to skip.
;	Keep the next five words contiguous.
PRVREC::.BLKW	2			; The previous record number.	(02)
PRVDOT::.BLKW	3			; The previous record context.	(02)

	.IFDF	T$SKIP

TSKIPS::.BLKW	2			; Total records skipped.	(01)

	.ENDC	; T$SKIP

	.END