home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CP/M
/
CPM_CDROM.iso
/
cpm
/
utils
/
squsq
/
crlzh11.lbr
/
CRLZH11.ZY0
/
CRLZH11.ZY0
Wrap
Text File
|
1989-12-12
|
25KB
|
717 lines
;************************************************************************
;* *
;* CRunch LZH v1.1 *
;* 04 Sept 1989 *
;* - Roger Warren *
;************************************************************************
;
; With the kind permission of Mr. Steven Greenberg, author of
; CRunch, this program was generated from his CRunch v2.4 code
; dated 15 Sept 1987. Accordingly, the following notifications
; are in order:
;
; Copyright (c) R. Warren 09/04/89
; Portions Copyright (c) S. Greenberg 09/15/87
; May be reproduced for non-profit use only
;
.Z80
.SALL
TITLE 'CRrunch LZH v1.1 04 Sept 1989'
EXTRN PARSEU
CSEG
;==============================================================================
;
MEMPAG EQU 2000H ; <=== set! [see comment near end of program]
;
;==============================================================================
;..............................................................................
;CRLZH HISTORY:
; v1.1 Official first release. No functional changes from Beta version.
; Merely stepped version for differentiation.
; v1.0 Beta test version
;
;CRunch HISTORY:
; v2.4 Update Note: As explained in the CRUNCH24 general release LBR,
; v2.4 will generate identical files (except embedded revision level
; byte) to CRUNCH v2.3. The great majority of the changes are user
; interface related, and are described in the CRUNCH24 documentation
; files. Some changes were made in the implementation of the "core" of
; the algorithms for both CRUNCH and UNCRunch- in the case of CRUNCH,
; conditionals were removed by splitting into three separate loops. In
; the case of UNCRunch, an unnecessary chase to the end of "virtual
; links" was eliminated by aborting the search as soon as an available
; reassignment slot is found. Other performance improving changes in
; clude less time updating the screen and dynamic I/O buffer sizing.
; Non-time-critical "user-interface" changes (eg the "tag mode" code,
; etc.) were coded in as straightforward a manner as possible, with
; little regard to code space minimization and even less to speed.
;
; While some documentation of the code has been cleaned up in the sev
; eral month interim between the CRUNCH24.LBR release and the release of
; this source code, I have been very careful to avoid any temptation to
; change any of the code itself, thus insuring that this source code can
; be used to create the identical COM files included in the v2.4 release
; of CRUNCH.
FALSE EQU 0 ;
TRUE EQU NOT FALSE ;
CRUNCH EQU TRUE ; True for crunch, false for uncr (for common)
REV EQU 11H ; Program revision level
SIGREV EQU 10H ; "significant" revision level (compatibility)
NOPRED EQU 0FFFFH ; "no predecessor"
SCRUPT1 EQU 03H ; Screen update speeds
SCRUPT2 EQU 0FH ;
; --- reserved codes ---
EOFCOD EQU 100H ; Eof code
;--- Ascii equates ---
;
CTRLC EQU 03H ; ^c
BELL EQU 07H ; Beep
BS EQU 08H ; Backspace
LF EQU 0AH ; Linefeed
CR EQU 0DH ; Carriage return
;--- CP/M address equates ---
;
DFCB EQU 5CH ; Default file control block #1
DFCB2 EQU 6CH ; Default file control block #2
DDMA EQU 80H ; Default dma address
BDOS EQU 0005H ; Bdos entrypoint
;--- BDOS function equates ---
;
CONIN EQU 1 ; Input a character from the console
CONOUT EQU 2 ; Output single char to console
PRTSTR EQU 9 ; Print string to console
CONST EQU 11 ; Get console status
GETVER EQU 12 ; Get cp/m version#
SELDSK EQU 14 ; Select disk
OPEN EQU 15 ; Open file
CLOSE EQU 16 ; Close file
SFIRST EQU 17 ; Search for first file
SNEXT EQU 18 ; Search for next file
ERASE EQU 19 ; Erase file
READ EQU 20 ; Read file (sequential)
WRITE EQU 21 ; Write file (sequential)
MAKE EQU 22 ; Make file
GETDSK EQU 25 ; Get currently logged drive
SETDMA EQU 26 ; Set dma address
SETATR EQU 30 ; Set file attributes
GSUSER EQU 32 ; Get/set user code
RSTDRV EQU 37 ; Reset disk drive
SETMS EQU 44 ; Set multi-sector count (cp/m+ only)
;..............................................................................
;
START: JP STRT ; <--- entry
DB 'Z3ENV',01H ; Zcpr3 environment descriptor
Z3ED: DB 00H,00H
; ----------------------------------------------
Z3FLG: DB 0 ; Zcpr flag
ARCHIV: DB 0 ; Archive bit mode flag
INSREV: DB 23H ; Program rev for install purposes
QUIFL: DB 0 ; Quiet mode flag
NPROFL: DB 0 ; No prompt before overwrite flag
TRBOFL: DB 0 ; Defeat multi-sector i/o flag
CNFRFL: DB 0 ; Confirm every file flag
WRMFLG: DB 0 ; Warm boot flag
BIGFLG: DB 0 ; Bigger file prompt flag
MAXDRV: DB 0FFH ; Maximum drive allowed by program
MAXUSR: DB 0FFH ; Maximum user# allowed by program
SPARFL: DB 0FFH ; Spare flag (or value)
;..............................................................................
;
; File type exclusion list. Must end with zero.
; |<-1->|<-2->|<-3->|<-4->|<-5->|
EXTBL: DB 'ARC','ARK','LBR',0,0,0,0,0,0
; |<-6->|<-7->|<-8->|<-9->|<10->|
DB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DB 0 ; Must leave this terminating zero.
DB 0 ; Leave this byte. Patch space for compat-
; ability with UNCRLZH
;-=*=-=*=-=*==*=-=*=-=*=-=*=-=*=-=*=-=*=-=*=-=*=-=*=-=*=-=*=-=*=-=*=-=*=-=*=-
CPYRT: DB CR,LF,LF
DB 'CRLZH v1.1 Copyright (c) R. Warren 09/04/89',CR,LF
DB ' Portions Copyright (c) S. Greenberg 09/15/87',CR,LF
DB 'May be used/reproduced for non-profit use only$ 619-270-3148'
;-=*=-=*=-=*==*=-=*=-=*=-=*=-=*=-=*=-=*=-=*=-=*=-=*=-=*=-=*=-=*=-=*=-=*=-=*=-
STRT: SUB A ; Z-80 test [RAF]
JP PO,Z80 ;
LD DE,WRNGUP ; "Program requires Z-80 Processor"
JP MESS80 ; Special no frills exit w/ message
Z80: LD (OLDSTK),SP ; Save os's stack
LD SP,TOPSTK ; Set local stack
CALL STRTUP ; Does a lot of stuff
;..............................................................................
;
; ***** Re-enter here for each matching file *****
;
; General wildcard operation: When the program is first invoked, all
; matching filenames are put end to end in FNBUFF, 12 bytes apeice, in
; alphabetical order. Since a filename is only 11 characters long the
; spare byte, which precedes each filename, is used as a "tag/flag". By
; the time file processing starts (now), a number of routines have already
; run (parts of the STRTUP routine). These routines set the tag-flag
; which indicates to us now in what manner the file should be processed:
; "00" = "skip it", "01" = process it", "02" = "perform a direct copy (if
; possible)", "FF" = "no more files".
;
NXTFIL: LD SP,TOPSTK ; Reset SP
LD A,(QUIFM) ;
OR A ;
CALL Z,CRLF ; Extra CR/LF if not in "quiet" mode
LD DE,INFCB ; Input file's fcb
CALL CLRFCB ; Init it to blanks and zeroes
INC DE ; Leave "DE" pointing at "INFCB+1" for below
LD HL,(BUFPTR) ; Pntr to name of next file from expansion bfr
NXTSEL: LD A,(HL) ;
OR A ; If zero, the file is "unselected"
JR NZ,ISSEL ; Br if it is selected
LD BC,12 ; Else just quietly skip to the next file
ADD HL,BC ;
LD (BUFPTR),HL ;
JR NXTSEL ;
;................................
; The file is "selected"; prepare to process it
ISSEL: CP 0FFH ; (FF means done)
JP Z,RETCCP ; Br if that is the case
PUSH AF ; Save stat (to see if file is "excluded" blw)
INC HL ; Skip to 1st filename char
LD BC,11 ; Filename character count
LDIR ; Put next file name into input fcb
LD (BUFPTR),HL ; Save new pointer for next file
CALL INTRAM ; Initialize all ram
LD A,01H ; This loc req's diff init for crunch vs uncr
LD (CSAVE),A ; Goes there
POP AF ; Get file's status byte back again
CP 02H ; 02 if file matched the "exclusion" list
JR NZ,COPNIN ; If not, definitely attempt to compress it
LD A,(WLDFLG) ; If so, see if prgm was invoked w/ wildcards
OR A ;
JR Z,COPNIN ; If not, go attempt compression
LD A,(DIFDU) ; Else see if a direct copy is in order
OR A ; (flag set if data flow is to distinct DU:'s)
JP Z,NXTFIL ; If not, forget the whole thing
;..............................................................................
;
; Perform a direct straight copy of the file
;
LD DE,DASHES ; "-----" for visual separation
CALL MESAG2 ;
JP COPY9 ; Performs the copy
;..............................................................................
;
; Normal Processing; Prepare to compress the input file. First, open the input
; file. A failure here is unusual, since the file existed at the time the
; filename expansion took place. There are "normal" series of events which
; could lead up to this, however.
;
COPNIN: LD DE,DASHES ; "-----" for visual separation
CALL MESAG2 ;
CALL OPNIN ; Attempt to open the next input file "INFCB"
JR NC,OPOK ; Br if ok
LD DE,ERR1 ; "input file not found"
JP SKIP1 ; Skip to next file
;
OPOK: CALL GETCHR ; start input machine
JR NC,NOTMT ; If carry is set on 1st byte, file is empty
LD DE,ERR0 ; "input file empty"
JP SKP991 ;
NOTMT: CP 76H ; If file starts with "76FE" or "76FF", it is
JR NZ,CBL ; - already crunched or squeezed respectively
; "76FD" LZH
PUSH AF ; 1st byte was "76H", take advance peek at 2nd
EXX ; Carefully check next byte, w/o norm call
LD A,(HL) ;
EXX ;
INC A ; Well?
JR Z,ALRDSQ ; Br if already squeezed
INC A ;
JR Z,ALRDCR ; Br if already crunched
INC A ; Check for LZH encoding
JR Z,ALRDLZ ; Br if already LZH encoded
POP AF ;
;..............................................................................
;
ALRDCR: POP AF ;
LD DE,MSGCR ; "already crunched"
JP SKP991 ;
ALRDSQ: POP AF ;
LD DE,MSGSQ ; "already squeezed"
JP SKP991 ;
ALRDlz: POP AF ;
LD DE,MSGLZH ; "already LZH encoded"
JP SKP991 ;
;..............................................................................
;
; So far the input file is open. The output file is not.
;
CBL: LD A,' ' ; For aesthetic alignment purposes
CALL TYPE ;
LD HL,INFCB ; Print input filename to console
CALL PRNFIL ;
LD DE,OUTFCB ; Now for the output fcb
CALL CLRFCB ; Clear it
INC DE ; Leave "DE" pointing at filename area
CALL CPYNAM ; Copies filename from input fcb to output fcb
LD HL,OUTFCB+9 ; Point to 1st letter of ext for analysis
LD A,' ' ; See if extension is blank
CP (HL) ;
JR Z,FORYYY ; If so, force an extension of "YYY"
LD A,'Y' ; See if middle letter is "Y"
INC HL ;
CP (HL) ;
JR NZ,NORMY ; Normal condition- simply force 2nd ltr to y
;................................
INC HL ; Point to last char
CP (HL) ; is y?
JR NZ,NORMY ; Normal condition- simply force 3rd ltr to y
DEC HL
DEC HL ; Last chance...first char
CP (HL) ; is y?
JR NZ,NORMY ; Ok...
LD DE,ERR7 ; If this happens, user better rename his file
JP SKP991 ; But give him a straight copy, anyway
;...............................;
;
FORYYY: LD HL,OUTFCB+9 ; Come here if an extension of "YYY" is needed
LD A,'Y' ;
LD (HL),A ; (A future version will rename "XYZ" files
INC HL ; To "XYY" rather than "YYY", a better idea)
LD (HL),A ;
INC HL ;
;...............................;
NORMY: LD (HL),A ;
;..............................................................................
;
; Now open the output file. "OPNOUT" will check for duplicate filenames,
; and prompt if indicated. If carry is set on return, the file was not
; opened. DE points to an appropriate error message, if any. The routine
; also types an arrow to the screen, followed by a "PRNFIL" call to type
; the DU: and filename to the screen.
CALL OPNOUT ; Do all that
JP C,SKIP2A ; Skips to next file if so deemed by "OPNOUT"
;..............................................................................
;
; Now both files are open. Eventually either both will be closed, or the
; input closed and the output deleted.
LD A,76H ; Output the "76FD" header
CALL OUTB ; Each call to "OUTB" outputs one byte
LD A,0FDH ;
CALL OUTB ;
LD HL,INFCB ; Pointer to original (input) file's name
CALL OUTFIL ; Embed it into the output file at bytes 2+
LD HL,STAMP ; Pointer to possible additional "stamp" chars
IDOULP: LD A,(HL) ; Possibly get a stamp char
INC HL ; Incr bfr pntr
CALL OUTB ; (output at least one zero no matter what)
OR A ; End of stamp bfr?
JR NZ,IDOULP ; Loop till so
;...........................................................
;
LD A,(QUIFM) ; Print "heading" if in verbose mode
OR A ;
JR NZ,QUIET1 ;
LD DE,HEADNG ; (the "in / out " stuff)
CALL MESAGE ;
QUIET1:
PAGE
;==============================================================================
;
; *** Main encoding loop ***
;
;
LD A,0FFH ; Flag as old to COMMON.LIB
LD (OLDFLG),A
EXX ; Go back to start of file (already read some)
LD HL,IBUF ;
EXX ;
LD HL,SECNT ; Bugger up the sector count since we just
INC (HL) ; - reset the input pointer
LD HL,(INCTR) ; [rev 2.1 fix]
DEC HL ; Decr "inctr" for same reason
LD (INCTR),HL ;
LD A,'0' ; [rev 2.1 fix]
LD (PROGBF+5),A ; Reset ascii display to zero
LD HL,TABLE ; Point to large data area for CRLZH
LD A,0 ; Zero (actually xx00xxxx) for
; normal checksum flag to CRLZH
CALL CRLZH
JP C,INSUFF ; only error is insufficient memory
ONBND: LD A,(CHKSUM+0) ; Now output the checksum
CALL OUTB ; (lo byte)
LD A,(CHKSUM+1) ;
CALL OUTB ; (high byte). This completes all output.
CALL DONE ; Writes out partial output bfr, thru cur loc
CALL CLSOUT ; Close the output file
CALL CLSIN ; Close the input file (prevents inadvertent
; Accumulation of open files).
;..............................................................................
;
; Now we are done with the file. The size of the resulting file will be com-
; pared with the original; if the resulting file is larger, file will be
; erased and the original will be copied in uncompressed format instead. This
; will only be done if the source and destination DU:'s are different
; (obviously a direct copy to the same drive and user is nonsensical). When
; this is the case, the user will be given the option of saving the "crunched"
; file- if he doesn't then it will be erased.
;
LD A,(BIGFLG) ; Get size question override flag
AND A ; Check if non-0, clear carry at same time
JP NZ,NEXT ; Skip if bigger
LD DE,(INCTR) ; Size of input file
LD HL,(OUTCTR) ; Size of resulting file
SBC HL,DE ; Compare
JP C,NEXT ; (normally the case)
LD A,(DIFDU) ; Dest du: differ from origin?
OR A ;
JP Z,ASKHIM ; If not, give option of saving larger file
LD DE,MSG998 ; "not smaller..."
CALL MESAG2 ;
CALL ERAOUT ; Erase the output file
COPY9: CALL COPY ; Perform a straight copy
JP C,NXTFIL ; If the copy did not actually take place
JR NEXT ; If it did, count it
;..............................................................................
;
SKP991: CALL MESAG2 ; Type predefined message
LD A,(DIFDU) ; Dest du: differ from origin?
OR A ;
JP Z,NXTFIL ;
JR COPY9 ;
;..............................................................................
;
ASKHIM: LD DE,QUES1 ; Result file not smaller than original
CALL MESAGE ; Ask the guy if he wants it anyway
CALL RSPNSE ; Get his response
PUSH AF ; Nec?
CALL CRLF ;
POP AF ;
JR NZ,SKIP4A ; "skip4a" erases output file, goes to next
;..............................................................................
NEXT: LD HL,NFP ; Increment #of files processed
INC (HL) ;
CALL ARCIT ; Flag input file as archived
JP NXTFIL ; Repeat if still more files
;..............................................................................
;................................
; Entry if neither input nor output files
SKIP1: CALL MESAGE ; - have been open yet
SKIP1A: JP NXTFIL ; (entry here if no error text desired)
;................................
; Entry here if input file open only
SKIP2: CALL MESAGE ;
SKIP2A: CALL CLSIN ; (entry here for no message)
JP NXTFIL ;
;................................
; Entry here if both input and output
SKIP3: CALL MESAGE ; - files need to be closed
SKIP3A: CALL CLSIN ;
CALL CLSOUT ;
JP NXTFIL ;
;................................
; Entry here to erase output & close input file
SKIP4: CALL MESAGE ;
SKIP4A: CALL CLSOUT ; (entry here for no message)
LD DE,OUTFCB ; Close, then erase output file
LD C,ERASE ;
CALL BDOSAV ;
CALL CLSIN ; Close input file as well
JP NXTFIL ;
;...............................;
; File I/O
PLZHEN: JP OUTB ; continue at outb
extrn CRLZH
PUBLIC plzhen
PUBLIC glzhen
GLZHEN: ; fall thru to GETC
;==============================================================================
;
; Subr gets a char from the input stream & adds its value to running checksum.
;
GETC: CALL GETCHR ; Get a char into a
RET C ; Don't add in the garbage char recv'd on eof
CALL CKSUM ; Add it in
AND A ; Guarantee clear carry when no eof
RET ; That's it
;------------------------------------------------------------------------------
;
; Like "prnfil", but send chars to the output stream instead of typing.
; This routine WILL explicitly output blanks in the filename extension.
;
OUTFIL: LD BC,0C20H ; B = loop counter, c = blank character
CHARL2: INC HL ; Pre-incr pointer
LD A,(HL) ; Get a char
CP C ; Blank?
JR Z,SKPTY2 ; Suppress them (but not in the .ext)
TYPEI2: CALL OUTB ; Send char to the output stream
SKPTY2: DEC B ; Loop counter
RET Z ; Rtn when done
LD A,B ; Check loop counter
CP 4 ; At this point, type a "."
JR NZ,CHARL2 ;
LD A,"." ; This is also a convenient char to set "C" to
LD C,A ; A "." cannot be found in an fcb filename
JR TYPEI2 ; Type the ".". do no incr hl.
;==============================================================================
;
; "Stamp" processing.
;
PRCSTM: PUSH DE ; Called w/ "HL" pointing to text of "stamp"
LD DE,STAMP ; Buffer for holding the date stamp or text
LD B,7FH ; Put a limit on its length
STMPLP: LD A,(HL) ; Get a char
LD (DE),A ; Put it in the buffer
INC DE ;
OR A ; Zero denotes end of cmnd tail, ending stamp
JR Z,PRCDN1 ;
INC HL ;
SUB ']' ; The "proper" way the stamp should end
JR Z,PRCDN2 ;
DJNZ STMPLP ; Get more chars
ERR8: LD DE,PRSER8 ; Stamp overflow, probably impossible
JP FATALU ;
PRCDN1: POP DE ; Come here if null terminated the stamp
RET ; Return with the null in "A" & z set
PRCDN2: LD (DE),A ; Make sure a null (a has one now) gets here
NBLP: LD A,(HL) ; Advance to first non-blank after stamp
CP ' ' ;
JR NZ,NBC ; Br if we have one
INC HL ; Else advance
DJNZ NBLP ; And continue
JR ERR8 ; Overflow error
NBC: POP DE ; Rtn with "HL" pointing to 1st non-blank char
OR A ; (rtn z stat if that char is null)
RET ;
;..............................................................................
;
EXCLUD: ; Flag files matching the "exclusion list"
LD BC,12 ; Leave 12 in bc for incrementing ix
LD IX,FNBUFF ; Points to beg of filenames
OUTLP: LD A,(IX+0) ; Get flag byte for this entry
CP 0FFH ; Final [non-] entry?
RET Z ; (return if so)
OR A ; Is it an untagged filename?
JR Z,NXTFN ; If so, leave it that way & move to next
LD HL,EXTBL-3 ; Beg of "exclusion" list
;
INRLP0: INC HL ;
INRLP1: INC HL ; (if hl already incr'd once)
INRLP2: INC HL ; ( " " twice)
LD A,(HL) ; Get a char from list
OR A ; End of list?
JR Z,NXTFN ; If so, move on to next filename in "fnbuff"
CP '?' ; Wildcard?
JR Z,AUTOM1 ; Yes, automatically matches
CP (IX+9) ; Else see if it matches first ft char
JR NZ,INRLP0 ; No match, forget it and move to next filename
AUTOM1: INC HL ;
LD A,(HL) ; Repeat twice more for other 2 chars
CP '?' ;
JR Z,AUTOM2 ;
CP (IX+10) ;
JR NZ,INRLP1 ;
AUTOM2: INC HL ;
LD A,(HL) ; As above
CP '?' ;
JR Z,AUTOM3 ;
CP (IX+11) ;
JR NZ,INRLP2 ;
AUTOM3: LD A,02H ; File type matches; flag file as "excluded"
LD (IX+0),A ;
NXTFN: ADD IX,BC ; Move to next filename in "fnbuff"
JR OUTLP ;
;==============================================================================
;
; All ASCII centralized here as a service to disassembly hobbyists.
;
VUNITS EQU (REV/16)+'0' ; Version, units dig, in ascii
VTNTHS EQU (REV AND 0FH)+'0' ; Version, tenths dig, in ascii
INTRO: DB 'LZH Cruncher v',VUNITS,'.',VTNTHS,CR,LF,'$'
ERR7: DB ' [ Can''t crunch .YYY files ]$'
MSGCR: DB ' [ Already crunched ] $'
MSGSQ: DB ' [ Already squeezed ] $'
MSGLZH: DB ' [ Already LZH encoded ] $'
MSG998: DB CR,LF,' [ Result not smaller ] $'
QUES1: DB 'Result not smaller. Save anyway? <N>: ',BELL,'$'
USAGE: DB CR,LF,LF,'Usage:',CR,LF,LF
DB ' Filename Date, etc. Option letters',CR,LF
DB ' / / /',CR,LF
DB 'CRLZH {du:}<afn> {du:} { [id] } { /<options> }',CR,LF
DB ' \ \ |',CR,LF
DB ' Source Destination (space)'
DB CR,LF,LF
DB ' <options> is up to 4 letters immediately following a " /".',CR,LF
DB ' "Q" = Quiet mode "C" = Confirm (tag) mode',CR,LF
DB ' "O" = Overwrite mode "A" = Archive bit mode',CR,LF
DB ' Option letters toggle (reverse) the corresponding default setup.',CR,LF
DB CR,LF
DB ' Both "du:" are of form DU:, UD:, D:, or U:',CR,LF
DB ' "[id]" is date or any text enclosed in "[ ]".',CR,LF
DB CR,LF
DB ' Everything is optional except filename.',CR,LF,'$'
;==============================================================================
;
; ** Include file begins here **
INCLUDE COMMON.LIB
; ** Include file ends here **
;
;==============================================================================
; Additional misc ram locs which need not be initialized, or are init-
; ialized by the routines which use them.
CSAVE: DS 1
;................................
;
SAFETY: DS 16 ; Safety region beyond stack limit check
ENDPRG EQU $ ; (approx bottom of stack)
;______________________________________________________________________________
;
STKSZ EQU 8 ; Minimum stack size (pages)
IBUFSZ EQU 8 ; Input buffer size (pages)
;==============================================================================
;
; ===> All tables will begin at "MEMPAG", defined at the top of the pro-
; gram. This should be set to a page aligned value (ie address that ends in
; "00") which is ABOVE the end all program and data segments. You may have
; to do one test link to determine the proper value (changing "MEMPAG" will
; not change the length of the segments on the subsequent link).
;
; "MEMPAG" is defined at the beginning of this program to remind you to set
; it properly. If you set it higher than necessary, there will be no negative
; effect other than an increase in the TPA req'd to run the program. If you
; set it too low, you will be in big trouble. The value must be set manually
; because most linkers cannot resolve an "and", "shift", or "hi" byte
; extraction at link time to determine the page boundary.
;
;==============================================================================
; "MAXFLS" is buffer size (in files) for wildcard expansions. Room for
; this many files will be allocated.
MAXFLS EQU 256
TOPSTK EQU MEMPAG+(STKSZ*256) ; Top of stack
IBUF EQU TOPSTK ; (= beg of input buffer)
EIBUF EQU IBUF+(IBUFSZ*256) ; End of input buffer
TABLE EQU EIBUF ; (= beg of table)
EOTBL EQU TABLE+(5*20*256) ; End of table
FNBUFF EQU EOTBL ; (= beg of wildcard expansion buffer)
ENDFNB EQU FNBUFF+(12*MAXFLS) ; End of expansion buffer
STAMP EQU ENDFNB ; File "stamp" buffer ** size temp ***
ENDALL EQU STAMP+100H ; End of everything, except output buffer
OBUF EQU ENDALL ; Beg of dynamically sized output buffer
;------------------------------------------------------------------------------
IBUFHI EQU HIGH IBUF ; Input bfr addr, hi byte (lo byte = 0)
EIBFHI EQU HIGH EIBUF ; End of input bfr addr, hi byte, likewise
TABLHI EQU HIGH TABLE ; Beg of table, hi byte, likewise
ETBLHI EQU HIGH EOTBL ; End of table, hi byte, likewise
EFNBHI EQU HIGH ENDFNB ; End of expansion buffer, likewise
ENDHI EQU HIGH ENDALL ;
OBUFHI EQU HIGH OBUF ; Output bfr addr, hi byte likewise
END