.TITLE DIRBUF - DIR 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: DIRBUF.MAC ; Author: Robin Miller ; Date: February 19, 1985 ; ; Description: ; ; This module contains the buffer allocation for the DIR program. ; ; Modification History: ; ; April 11, 1985 by Robin Miller. Edit (02), Version 1.2 ; o Add storage to save pointer to uic, file type, and version number. ; o Add storage for pointer to user specified format string. ; ; April 10, 1985 by Robin Miller. Edit (01), Version 1.1 ; Add storage for offset to identification area in file header. ; ;- .ENABL AMA .NLIST BEX ; Buffer allocation: .PSECT $$ZZZZ,RW,D,REL,CON ; Force buffers to end of the task. INPTR:: .WORD INBUF ; Pointer to input file name(s). OUTPTR::.WORD OUTFIL ; Pointer to the output file name. INBUF:: .BLKB CMDSIZ ; The 1st 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. INFILE::.BLKB FILSIZ ; Storage for expanded file name. BUFONE: .BLKB FMTSIZ ; Two format buffers BUFTWO: .BLKB FMTSIZ ; for double buffering. DATBUF::.BLKB DATSIZ ; Buffer for today's date. TMPBUF::.BLKB TMPSIZ ; Buffer for temporary use. ERRBUF::.BLKB ERRSIZ ; The error message buffer. .EVEN ; Counters/flags: BUFADR::.WORD BUFONE ; Address of current output buffer. BUFALT::.WORD BUFTWO ; Address of alternate output buffer. BUFPTR::.WORD 0 ; Pointer into current output buffer. IOFSET::.WORD 0 ; Offset to identification area. (01) NUMCOL::.WORD 4 ; Number of columns (default = 4). SOFFMT::.WORD 0 ; Pointer to user format string.(02) SOFTYP::.WORD 0 ; Pointer to start of file type.(02) SOFUIC::.WORD 0 ; Pointer to start of UIC string(02) SOFVER::.WORD 0 ; Pointer to start of version #.(02) CLRBUF == . ; Address to start clearing at. COLCNT::.WORD 0 ; The current column count. FLDMAX::.WORD 0 ; The maximum field size. FLDSIZ::.WORD 0 ; The current field size. FILCNT::.WORD 0 ; File count for this directory. SELCNT::.WORD 0 ; Files selected in this directory. HREADS::.WORD 0 ; Total number of file header reads. NEGFLG::.WORD 0 ; Negation of command -1 = True. TIOCNT::.WORD 0 ; Terminal I/O outstanding flag. TOTCNT::.BLKW 2 ; Total file count all directorys. DIRCNT::.WORD 0 ; Number of directorys processed. DIRABK::.BLKW 2 ; Allocated blocks this directory. DIRUBK::.BLKW 2 ; Total used blocks this directory. TOTABK::.BLKW 2 ; Allocated blocks all directorys. TOTUBK::.BLKW 2 ; Total used blocks all directorys. ; ; Save area for file ID via /FID=(file_ID) ; TMPFID::.BLKW 3 ; Storage for three word FID. ; ; Storage for dates and times for /BEFORE and /SINCE. ; TMPDAY::.WORD 0 ; Temporary storage for day. TMPMON::.WORD 0 ; Temporary storage for month. TMPYR:: .WORD 0 ; Temporary storage for year. TMPHR:: .WORD 0 ; Temporary storage for hour. TMPMIN::.WORD 0 ; Temporary storage for minute. DTSIZE == <.-TMPDAY>/2 ; Number of words to copy. ; BEFDAY::.WORD 0 ; Storage for before day. BEFMON::.WORD 0 ; Storage for before month. BEFYR:: .WORD 0 ; Storage for before year. BEFHR:: .WORD 0 ; Storage for before hour. BEFMIN::.WORD 0 ; Storage for before minute. ; FILDAY::.WORD 0 ; Storage for file day. FILMON::.WORD 0 ; Storage for file month. FILYR:: .WORD 0 ; Storage for file year. FILHR:: .WORD 0 ; Storage for file hour. FILMIN::.WORD 0 ; Storage for file minute. ; SINDAY::.WORD 0 ; Storage for since day. SINMON::.WORD 0 ; Storage for since month. SINYR:: .WORD 0 ; Storage for since year. SINHR:: .WORD 0 ; Storage for since hour. SINMIN::.WORD 0 ; Storage for since minute. ; CLRSIZ == <.-CLRBUF>/2 ; Number of words to clear. .PSECT ; Return to original psect. .END