Google
 

Trailing-Edge - PDP-10 Archives - QT020_T20_4.1_6.1_SWSKIT_851021 - swskit-hacks/find.mac
There are 3 other files named find.mac in the archive. Click here to see a list.
	TITLE	FIND	SUBSTRING SEARCH PROGRAM
	SUBTTL	J. G. ZIMA/JGZ  AUGUST 1980

	SEARCH	MACSYM,MONSYM	;GET SYMBOLS
	SEARCH	ZSUBS		;GET SUBROUTINE PACKAGE
	SALL			;NICE LOOKING MACROS
	.DIRECT	FLBLST		;AND NICE LISTING


;VERSION INFORMATION:


	VMAJOR==3		;MAJOR VERSION LEVEL
	VMINOR==0		;MINOR VERSION LEVEL
	VEDIT==^D58		;EDIT LEVEL
	VWHO==0			;WHO LAST EDITED



;FIND is a substring search program.  The canonical use is to search
;all of the monitor source files for all occurrances of a given symbol.
;FIND is designed to be fast, and reasonably concise to run.  It
;is not intended to ever become full of features which will detract
;from those goals.
;
;ASSEMBLY INSTRUCTIONS:
;
;	@LOAD FIND.MAC
;	@SAVE FIND
;
;RELATED FILES:
;	FIND.MAC	THIS FILE
;	FIND.CTL	CONTROL FILE TO BUILD FIND
;	ZSUBS.UNV	UNIVERSAL FOR COMND/LUUO SUBROUTINES
;	ZSUBS.REL	REQUIRE FILE FOR COMND/LUUO SUBROUTINES
;
	SUBTTL	TABLE OF CONTENTS


;	TABLE OF CONTENTS					  PAGE
;	-----------------					  ----
;
;  1. J. G. ZIMA/JGZ  AUGUST 1980. . . . . . . . . . . . . . . . .   1
;  2. TABLE OF CONTENTS. . . . . . . . . . . . . . . . . . . . . .   2
;  3. REVISION HISTORY . . . . . . . . . . . . . . . . . . . . . .   3
;  4. DEFINITIONS. . . . . . . . . . . . . . . . . . . . . . . . .   7
;  5. ENTRY VECTOR AND INITIALIZATION. . . . . . . . . . . . . . .   8
;  6. RESCAN COMMAND LINE ROUTINE. . . . . . . . . . . . . . . . .  10
;  7. THE SIMPLE COMMANDS - HELP . . . . . . . . . . . . . . . . .  11
;  8. RESET COMMAND TO RESET PARAMETERS. . . . . . . . . . . . . .  13
;  9. INFORMATION COMMAND TO TELL PARAMETERS . . . . . . . . . . .  15
; 10. TYPEOUT FORMATTING SELECTION COMMANDS. . . . . . . . . . . .  17
; 11. CHARACTER MATCH CASE SELECTION SETTING . . . . . . . . . . .  18
; 12. FILES COMMAND TO GIVE FILE SPECIFICATION . . . . . . . . . .  19
; 13. STRING COMMAND . . . . . . . . . . . . . . . . . . . . . . .  20
; 14. FIND COMMAND TO HANDLE COMPRESSED COMMAND SYNTAX . . . . . .  21
; 15. LIST COMMAND TO SPECIFY OUTPUT FILE AND BEGIN. . . . . . . .  22
; 16. SEARCH ROUTINE . . . . . . . . . . . . . . . . . . . . . . .  24
; 17. SCAN ROUTINE TO SCAN INPUT FILE. . . . . . . . . . . . . . .  26
; 18. INCLUD - ROUTINE TO PRINT A MATCH. . . . . . . . . . . . . .  27
; 19. STRING COMPARISON ROUTINE. . . . . . . . . . . . . . . . . .  28
; 20. NXTFIL ROUTINE TO RETURN NEXT FILE . . . . . . . . . . . . .  29
; 21. MORE ROUTINE TO MAP NEXT FILE SEGMENT. . . . . . . . . . . .  32
; 22. STSINT STATUS INTERRUPT ROUTINE. . . . . . . . . . . . . . .  33
; 23. SKPINT - SKIP FILE INTERRUPT ROUTINE . . . . . . . . . . . .  34
; 24. ILLEGAL MEMORY READ INTERRUPT. . . . . . . . . . . . . . . .  35
; 25. THE DATA AREA. . . . . . . . . . . . . . . . . . . . . . . .  36
	SUBTTL	REVISION HISTORY

;REVISION HISTORY:

;   1	JGZ	7-AUG-80
;		START KEEPING THE REVISION HISTORY NOW THAT AT LEAST 70%
;		OF THE CODE IS IN.
;
;   2	JGZ	10-AUG-80
;		REMOVE SRCDON CONSTRUCT, INSTALL CONTROL-A INTERRUPT.
;
;   3	JGZ	21-AUG-80
;		USE THE NAME "FIND" FOR THE PROGRAM.
;
;   4	JGZ	22-AUG-80
;		MAKE CONTROL-A DO TDEC INSTEAD OF DECOUT.
;
;   5	JGZ	24-AUG-80
;		TRY USING PRELOADING PMAPS TO SEE IF IT HELPS.
;
;   6	JGZ	26-AUG-80
;		SET MATCH COUNTER TO ZERO BEFORE CALLING SEARCH.
;
;   7	JGZ	26-AUG-80
;		CHANGE LISTING FORMAT A BIT, MOVE BLANK LINES.
;
;  10	JGZ	26-AUG-80
;		PUT A TAB IN THE SEPARATOR IN MODULE-NAME-ONLY FORMAT
;		BETWEEN THE FILENAME AND STRING.
;
;  11	JGZ	28-AUG-80
;		ADD MATCHF VARIABLE TO COUNT NUMBER OF FILES WITH MATCHES.
;		ADD SUMMARY LINE TO LIST COMMAND GIVING MATCHC AND MATCHF.
;
;  12	JGZ	12-SEP-80
;		ADD CONTROL-E ABORT OF LIST COMMAND.
;
;  13	JGZ	12-SEP-80
;		ADD THE GIVE COMMAND SO PEOPLE WHO WANT TO CAN SEE EACH
;		FILENAME AS SEARCHED.
;
;  14	JGZ	16-OCT-80
;		MAKE MODULE-NAME-ONLY COUNT UP MATCH FILES IN MATCHF.
;
;  15	JGZ	18-OCT-80
;		HANDLE OFF-LINE FILES IN THE SEARCH LIST MORE GRACEFULLY.
;
;  16	JGZ	16-DEC-80
;		MORE OFF-LINE FILES FIX.  CRLF AFTER MESSAGE.
;
;  17	JGZ	18-DEC-80
;		PRETTY UP PLURAL SYNTAX FOR MATCH COUNT TYPEOUT.
;
;  20	JGZ	1-JAN-80
;		SOME CODE CLEANUP AND START ADDING ^X INTERRUPT.
;
;  21	JGZ	1-JAN-80
;		FINISH REST OF CONTROL-X INTERRUPT HANDLING.  IMPROVE
;		ERROR HANDLING IN NXTFIL FOR SOME RECOVERABLE CASES AND
;		GIVE FILENAME ON MORE UNRECOVERABLE ONES.
;
;  22	JGZ	7-JAN-80
;		BE SURE CONTROL-A AND CONTROL-X ARE TURNED OFF ON CONTROL-E
;		PATH OUT OF THE CODE.
;
;  23	JGZ	9-JAN-80
;		START ADDING STRUCTURES FOR HANDLING FILES LARGER THAN
;		THE INTERNAL BUFFER EVENTUALLY.
;
;  24	JGZ	9-JAN-80
;		HANDLE STRING NUMBER IN SCAN DIFFERENTLY TO REMOVE MULTIPLY.
;		MAKE A FEW OTHER TINY SPEEDUPS IN SCAN.
;
;  25	JGZ	9-JAN-80
;		STRIP CONTROL-V FROM SEARCH STRINGS.
;
;  26	JGZ	11-JAN-80
;		ONE MORE PLACE TO CHANGE P6 USAGE (INCLUD).
;
;  27	JGZ	17-FEB-80
;		PUT NUMBERS ON THE FILES AND STRINGS TO REFER TO LATER.
;
;  30	JGZ	20-FEB-80
;		CLEAN UP THE LISTING A BIT
;
;  31	JGZ	24-FEB-80
;		TURN PRINT TO PRINT. IN INCLUDE.  MATCH STRING WAS NOT
;		BEING OUTPUT, GETTING "0(P6)" INSTEAD.
;
;  32	JGZ	10-MAR-81
;		MARK OJFN CLOSED AFTER CLOSING IT IN LSTFIN.
;
;  33	JGZ	12-MAR-81
;		INSTALL TEMPORARY CODE TO JUST INFORM AND SKIP FILES TOO
;		LARGE FOR INTERNAL BUFFER.
;
;  34	JGZ	18-MAR-81
;		DO SETSN TO SEE ACCUMULATED SUBSYSTEM STATISTICS.
;
;  35	JGZ	22-JAN-82
;		CONVERT TO USE ZSUBS.  BEGIN MAJOR VERSION TWO.
;
;  36	JGZ	26-JAN-82
;		TEXT MACRO IS NOW IN ZSUBS TOO.  USE LERROR IN A FEW PLACES.
;
;  37	JGZ	26-JAN-82
;		ADD OMIT COMMAND TO COMPLEMENT GIVE COMMAND.  ADD RESET
;		COMMAND OPTIONS.
;
;  40	JGZ	27-JAN-82
;		START ADDING THE BIG FILE SEGMENTATION CODE.  UPDATE THE
;		HELP TEXT.
;
;  41	JGZ	27-JAN-82
;		PUT THE OFFLINE FILE SKIPPED TYPEOUTS UNDER THE "GIVE"
;		REPORTING MODE BIT.  COUNT FILES ABORTED AND SKIPPED FOR STATS.
;		PRINT THE TOTAL ON THE FINAL STATUS LINE.
;
;  42	JGZ	28-JAN-82
;		MAKE USE OF THE NEW TYPJFN/PRTJFN ZSUBS LUUOS TO OUTPUT
;		FILESPECS.
;
;  43	JGZ	28-JAN-82
;		FINISH THE BIG FILE SEGMENTATION CODE AND TURN IT ON WITH
;		A SMALL SEGMENT SIZE FOR DEBUGGING.  NOTE - THE ADJUSTMENTS
;		NEEDED ARE VERY MESSY, AND ALSO THE DESTINATION CROCK FOR
;		THE EXTEND INSTRUCTION MUST BE RE-INITIALIZED!
;
;  44	JGZ	28-JAN-82
;		MUST STORE FILENAME STRINGS IF WANT TO CONTINUE TO USE
;		THEM...
;
;  45	JGZ	30-JAN-82
;		PERFORMANCE IMPROVEMENT - DON'T COUNT LINES IF DOING
;		MODULE-NAME-ONLY REPORTING.
;		(MEASURES ABOUT 10 PER CENT BETTER ON CPU TIME)
;
;  46	JGZ	2-FEB-82
;		FIX AWFUL BUG WHERE MATCH CHARACTER IS LAST CHARACTER OF
;		SEGMENT AND P1 FIXUP IS NOT RIGHT.
;
;  47	JGZ	3-FEB-82
;		CLEAN UP LISTING, DEFINE SEGMENTATION SYMBOLS SO NOT AS MUCH
;		BUGGY EXPRESSION ARITHMETIC, REMOVE BYTCNT VARIABLE, NEW
;		TABLE OF CONTENTS.
;
;  50	JGZ	24-FEB-82
;		TEST PERIOD OVER, PUT BUFFER SIZE BACK TO LARGE VALUE.
;
;  51	JGZ	13-APR-82
;		CHANGE IDIVI OF SEGBY TO IDIV FROM MEMORY.
;
;  52	JGZ	9-JAN-84
;		HANDLE THE CASE OF THE ILLEGAL MEMORY READ FROM FILES
;		WITH HOLES IN THEM.
;
;  53	JGZ	9-APR-84
;		USE VI%DEC FOR DECIMAL VERSION NUMBER.
;
;  54	JGZ	23-APR-84
;		ADD CASE-OF-CHARACTERS COMMAND TO SET IF UPPER AND
;		LOWER CASE ARE THE SAME.
;
;  55	JGZ	10-SEP-84
;		FIX CALCULATION OF FBYTCT FOR NON-7-BIT FILES.  REPORTED
;		BY BOB LONGO (RAL).
;
;  56	JGZ	14-MAY-85
;		START ADDING FIND COMMAND SYNTAX TO ALLOW CALLING FIND
;		AS A COMMAND.  ULTIMATE SYNTAX WOULD BE LIKE:
;		@FIND "FOO","BAR Z","BAZ" (IN) MAC:*.MAC, SYS:*.TXT
;
;  57	JGZ	16-MAY-85
;		ADD INIT FILE SUPPORT VIA ZSUBS.  TRY FOR FIND.INIT AT
;		STARTUP.  START CALLING THIS VERSION 3.
;
;  58	JGZ	25-JUN-85
;		PUT IN FIND COMMAND WITH SINGLE STRING, SINGLE FILESPEC.
;		PUT IN FL%RSC FLAG FOR HANDLING RESCAN OF COMMAND LINE
;		AND FL%EXI FOR EXITING.
;
	SUBTTL	DEFINITIONS

;DEFAULT PARAMETERS:


	MAXFIL==^D16		;MAXIMUM NUMBER OF JFNS TO ALLOW
	MAXSTR==^D16		;MAXIMUM NUMBER OF STRINGS TO ALLOW
	STRSIZ==^D8		;SIZE OF A STRBUF ENTRY

	BUFFER==10000		;BUFFER STARTS AT PAGE 10
	BUFSIZ==670		;MAX PAGES TO MAP
	SEGSIZ==BUFSIZ		;SEGMENTATION PARAMETERS
	SEGPG==BUFSIZ		;NUMBER OF PAGES IN SEGMENT
	SEGWD==SEGPG*PGSIZ	;NUMBER OF WORDS IN SEGMENT
	SEGBY==SEGWD*5		;NUMBER OF BYTES IN SEGMENT



;FLAGS:


	FL%MNO==1B0		;MODULE-NAMES-ONLY OUTPUT FORMAT IF SET
	FL%FNO==1B1		;FILE NAME HAS BEEN OUTPUT
	FL%GEF==1B2		;GIVE EVERY FILENAME WHILE SEARCHING
	FL%NOX==1B3		;CRITICAL REGION - DON'T TAKE ^X NOW
	FL%BIG==1B4		;FILE IS TOO BIG FOR INTERNAL BUFFER
	FL%PCC==1B5		;PRESERVE CHARACTER CASE FOR COMPARE
	FL%INI==1B6		;INIT FILE PROCESSED
	FL%RSC==1B7		;PROCESS RESCANNED COMMAND LINE
	FL%EXI==1B8		;FLAG FOR EXIT NOW IN NEWCMD


;CONSTANTS:

	INTCHN==0		;CHANNEL FOR ^E INTERRUPT
	STSCHN==1		;CHANNEL FOR STATUS (^A) INTERRUPT
	SKPCHN==2		;CHANNEL FOR SKIP FILE (^X) INTERRUPT

	PGSIZ==1000		;SIZE OF A PAGE
	PGSFT==^D9		;NUMBER OF BITS FOR PAGE SHIFTING

	RES.ST==1B35		;RESET SEARCH STRINGS CODE
	RES.FN==1B34		;RESET FILENAMES LIST CODE
	RES.LM==1B33		;RESET LISTING MODE CODE
	RES.RM==1B32		;RESET REPORTING MODE CODE
	SUBTTL	ENTRY VECTOR AND INITIALIZATION

EVEC:	JRST	FIND		;START
	JRST	REEN		;REENTER
	BYTE	(3)VWHO(9)VMAJOR(6)VMINOR(18)VI%DEC+VEDIT ;VERSION


FIND:	RESET			;CLEAR EVERYTHING
	SETZ	F,		;CLEAR ALL FLAGS
	$INIT			;INITIALIZE ZSUBS PACKAGE
	TYPE	<FIND %>	;TYPE BANNER AND VERSION
	VERSIO	EVEC+2		;OUTPUT VERSION NUMBER
	TYPE	<

>				;AND A CRLF
	DMOVE	T1,[EXP	'FIND  ','FIND  ']
	SETSN			;SET OUR SYSTEM NAME TO GATHER STATISTICS
	 ERJMP	.+1		;FORGET ERRORS HERE
	SETZM	FILCNT		;NO FILES GIVEN YET
	SETZM	STRCNT		;NO STRINGS GIVEN YET
	CALL	RESCAN		;SETUP FOR ANY RESCANNED COMMAND

REEN:	MOVE	P,[IOWD PDLSIZ,PDL]	;SET UP A STACK
	SETZM	OJFN		;CLEAR OUTPUT JFN
	MOVE	T1,[1,,STSINT]	;SETUP CONTROL-A TRANSFER ADDRESS
	MOVEM	T1,CHNTAB+STSCHN ;IN THE CHANNEL PSI TABLE
	MOVE	T1,[1,,SKPINT]	;SETUP CONTROL-X TRANSFER ADDRESS
	MOVEM	T1,CHNTAB+SKPCHN ;IN THE CHANNEL PSI TABLE
	MOVE	T1,[1,,IRDINT]	;SETUP ILLEGAL MEMORY READ ADDRESS
	MOVEM	T1,CHNTAB+.ICIRD ;IN THE CHANNEL PSI TABLE
	MOVX	T1,.FHSLF	;FOR US, CHANNELS FOR ^A, ^X, AND ILL MEM
	MOVX	T2,1B<STSCHN>+1B<SKPCHN>+1B<.ICIRD> ; READ INTERRUPTS
	AIC			;SET THEM UP
	 ERJMP	LOSE
	MOVEI	T1,NEWPAR	;SET THE
	HRRM	T1,CMDBLK+.CMFLG ;REPARSE ADDRESS ALSO
	HRROI	T1,[ASCIZ/FIND.INIT/] ;INIT FILE NAME
	TXON	F,FL%INI	;ONCE ONLY ON STARTUP FLAG
	CALL	TAKINI		;TRY TO PROCESS ANY INIT FILE

NEWCMD:	TXZE	F,FL%EXI	;TIME TO STOP?
	 HALTF			; YES, BUT CONTINUE IF DESIRED
	TXNE	F,FL%RSC	;RESCANNING AND
	SKIPE	TAKJFN		; NOT IN INIT FILE?
	SKIPA			; NO - GO ON
	TXO	F,FL%EXI	; YES, DON'T WANT TO DO MORE
	HRROI	T1,[ASCIZ/FIND>/] ;SET PROMPT
	TXNE	F,FL%RSC	;NO PROMPT IF RESCAN MODE
	HRROI	T1,[0]		;NULL PROMPT
	MOVEM	T1,CMDBLK+.CMRTY ;IN COMND BLOCK
	MOVEI	T1,NEWPAR	;AND SET THE
	HRRM	T1,CMDBLK+.CMFLG ;REPARSE ADDRESS ALSO
	PARSE	[FLDDB. .CMINI] ;INITIALIZATION FUNCTION
	MOVEM	P,SAVEP		;SAVE STACK FOR REPARSING
	JRST	NEWPAR		;AND PARSE A NEW COMMAND

PARERR:	JRST	REEN		;REPARSE ADR-1 = WHERE TO GO ON ERROR
NEWPAR:	MOVE	P,SAVEP		;RESTORE THE STACK
	SKIPE	T1,JFNTMP	;UNLOAD ANY LEFTOVER JFNS
	RLJFN			; FROM REPARSING,...
	 ERJMP	.+1		;DON'T WORRY ABOUT ERRORS
	SETZM	JFNTMP		;AND MARK THE "JFN STACK" EMPTY
	PARSE	[FLDDB. (.CMKEY,,CMDTAB)] ;PARSE FROM COMMAND TABLE
	MOVE	T2,0(T2)	;GET ADDRESS OF ROUTINE
	CALL	0(T2)		;CALL IT
	JRST	NEWCMD		; DO COMMANDS ON CONTINUE




;TABLE OF COMMANDS:


CMDTAB:	CMDLEN,,CMDLEN			;HEADER
	AA	CASE-OF-CHARACTERS,.CASE ;SET WHETHER UPPER==LOWER
	AA	COMPLETE-LISTING,.COMP	;COMPLETE LISTING FORMAT
	AA	EXIT,.EXIT		;EXIT COMMAND
	AA	F,CMDFI,CM%INV+CM%ABR	;ABBREVIATIONS
	AA	FI,CMDFI,CM%INV+CM%ABR	;ABBREVIATIONS
CMDFI:	AA	FILES,.FILES		;FILE SPECIFICATION
	AA	FIND,.FIND		;COMPRESSED FIND SYNTAX
	AA	GIVE,.GIVE		;GIVE ALL FILENAMES SEARCHED
	AA	HELP,.HELP		;TYPE HELP MESSAGE
	AA	INFORMATION,.INFO	;INFORMATION ABOUT PARAMETERS
	AA	LIST,.LIST		;LIST COMMAND TO START
	AA	MODULE-NAMES-ONLY,.MODULE ;ONLY LIST SUCCESSES
	AA	OMIT,.OMIT		;OMIT GIVING SEARCH FILENAMES
	AA	PUSH,.PUSH		;PUSH TO A NEW EXEC
	AA	RESET,.RESET		;RESET PARAMETERS
	AA	STRING,.STRING		;STRING SPECIFICATION
	AA	TAKE,.TAKE		;TAKE COMMANDS FROM FILE

	CMDLEN==.-CMDTAB-1		;NUMBER OF COMMANDS
	SUBTTL RESCAN COMMAND LINE ROUTINE

;RESCAN -- ROUTINE TO RESCAN THE COMMAND LINE TO SEE IF INVOKED AS A
;COMMAND, SET FL%RSC, AND "DO THE RIGHT THING".

RESCAN:	MOVX	T1,.RSINI	;SETUP AND
	RSCAN			; MAKE THE COMMAND LINE AVAILABLE
	 ERJMP	R		;GO ON PROBLEMS
	MOVX	T1,.RSCNT	;NOW COUNT THE CHARACTERS
	RSCAN			; IN THE BUFFER
	 ERJMP	R
	CAIG	T1,^D6		;AT LEAST "FIND <RET>" + EPSILON?
	 JRST [	HRROI	T1,[0]	; NO - CLEAR THE STRING
		RSCAN		; FROM THE RSCAN BUFFER
		 ERJMP	R
		RET]		; AND RETURN
	TXO	F,FL%RSC	;YES - SET THE FLAG
	RET			; AND DONE
	SUBTTL	THE SIMPLE COMMANDS - HELP

;THE "HELP" COMMAND.

.HELP:	NOISE	(WITH COMMANDS)	;DO GUIDEWORDS
	CONFRM			;CONFIRM THE LINE
	TYPE.	HLPTXT		;TYPE THE HELP TEXT
	RET			;AND DONE

HLPTXT:	TEXT	<

FIND  is a program to search lists of files for lists of  strings and
to report on matches, for instance, to find all references to a given
symbol in a group of modules.

The commands are:

CASE-OF-CHARACTERS	Specify whether the case of characters is important
			for a match.  Default is IGNORED, so uppercase and
			lower case map together.
COMPLETE-LISTING	Specify complete listing format, which consists
			of the filename, string, line number and line which
			contains the match string for each match.
EXIT			Exit the program.
FILES			Specify a possibly wild file specification to be
			searched.  A maximum of 16 such specifications may
			be given.
FIND			Single-line invocation form.  Specify both a quoted
			string and a single filespec.  Output goes to the
			terminal.  May be used on the EXEC command line.
GIVE			Give the names of all files as they are searched.
HELP			Type this text.
INFORMATION		List the currently active parameters: Files to
			search, search strings, listing format.
LIST			Specify the file to list to (default is TTY:) and
			begin the search process.  A Control-A character
			will output the name of the file currently being
			searched.  A Control-E character will abort the
			search.  A Control-X will abort the current file.
MODULE-NAMES-ONLY	Specifies quick listing format.  Output listing
			consists only of the filename of any file containing
			a match along with the first match string in that
			file.  Searching of the file stops after the first
			match occurs.  This listing format is faster and
			more compact than the complete listing.
OMIT			Do not give the names of files as they are searched.
PUSH			Transfer control to an EXEC in an inferior fork.
RESET			Reset parameters: files, strings, listing format.
			No longer done implicitly after every LIST command.
STRING			Specify a search string.  Limit is 39 characters.
			A maximum of 16 strings may be specified.
TAKE			Take commands from the given file.


[End of FIND.HLP]

>
	SUBTTL	RESET COMMAND TO RESET PARAMETERS

;HERE TO PROCESS THE RESET COMMAND TO CLEAR FILENAMES, STRINGS, FLAGS SET.

.RESET:	NOISE	(PARAMETER)	;GUIDEWORDS
	PARSE	[FLDDB.	(.CMKEY,,RESTAB,,<ALL>)] ;GET WHAT OPTION
	HRRZ	P1,0(T2)	;FETCH THE APPROPRIATE FLAGS
	CONFRM			;CONFIRM THE LINE

RESET0:
	SETOM	T1		;FOR UNMAPPING
	MOVE	T2,[.FHSLF,,BUFFER_-PGSFT]
	MOVX	T3,PM%CNT+SEGPG ;FLUSH ALL THE PAGES
	PMAP			;SO CLOSES WILL WORK
	 ERJMP	LOSE

;SEARCH STRINGS

	TXNE	P1,RES.ST	;RESET STRINGS?
	 SETZM	STRCNT		; YES, ZERO NUMBER OF STRINGS GIVEN

;FILES

	TXNN	P1,RES.FN	;RESET FILES?
	 JRST	RESET2		; NO, GO ON

	SETZM	FILCNT		;MARK NONE IN LIST
	SETZM	FILJFN		;AND MARK NONE IN USE

;LISTING MODE

RESET2:	TXNE	P1,RES.LM	;LISTING MODE?
	 TXZ	F,FL%MNO	; YES, CLEAR MODULE NAME ONLY FLAG

;GIVE FILENAMES MODE

	TXNE	P1,RES.RM	;FILENAME REPORTING MODE?
	 TXZ	F,FL%GEF	; YES, CLEAR GIVE EVERY FILE FLAG

	RET			;AND ALL DONE

;TABLE OF RESET OPTIONS

RESTAB:	RESLEN,,RESLEN
	AA	ALL,RES.ST!RES.FN!RES.LM!RES.RM
	AA	FILES,RES.FN
	AA	LISTING-MODE,RES.LM
	AA	REPORTING-MODE,RES.RM
	AA	STRINGS,RES.ST
	RESLEN==.-RESTAB-1
	SUBTTL	INFORMATION COMMAND TO TELL PARAMETERS

;HERE TO PROCESS THE INFORMATION COMMAND TO REGURGITATE THE INPUTS.

.INFO:	NOISE	(ABOUT PARAMETERS) ;GUIDEWORDS
	CONFRM			;CONFIRM THE COMMAND

	TYPE	<
Files to search specified are:
>				;LEADIN
	MOVN	P1,FILCNT	;-COUNT
	HRLZS	P1		;TO LH FOR AOBJN
	JUMPE	P1,INFO2	;GO IF NONE
INFO1:	MOVEI	T2,1(P1)	;BUILD A NUMBER
	TDEC	T2,6		;OUTPUT THE NUMBER
	TYPE	<  >		;A COUPLE OF SPACES
	MOVEI	T2,0(P1)	;NUMBER
	IMULI	T2,STRSIZ*5	;POINT TO STRING START
	TYPE.	FILLST(T2)	;TYPE IT OUT
	TYPE	<
>				;FINISH LINE WITH CRLF
	AOBJN	P1,INFO1	;AND LOOP FOR ALL

INFO2:	TYPE	<
Strings to search for are:
>				;LEADIN
	MOVN	P1,STRCNT	;-COUNT
	HRLZS	P1		;TO LH FOR AOBJN
	JUMPE	P1,INFO4	;GO IF NONE
INFO3:	HRRZ	T1,P1		;STRING NUMBER
	MOVEI	T2,1(T1)	;AND START WITH ONE FOR TYPEOUT
	TDEC	T2,6		;OUTPUT THE NUMBER
	TYPE	<  >		;A COUPLE OF SPACES
	IMULI	T1,STRSIZ	;STRING NUMBER TIMES BLOCKSIZE
	TYPE.	STRBUF(T1)	;TYPE THE STRING
	TYPE	<
>				;FINISH LINE WITH A CRLF
	AOBJN	P1,INFO3	;AND LOOP FOR ALL

	;...
INFO4:	TXNN	F,FL%MNO	;CHECK LISTING FORMAT
	TYPE	<
Listing format is complete listing.
>
	TXNE	F,FL%MNO	;FOR EITHER CASE
	TYPE	<
Listing format is module name only on matches.
>
	TYPE	<
Filenames will>			;LEADIN
	TXNN	F,FL%GEF	;GIVING ALL NAMES?
	TYPE	< not>		;YES
	TYPE	< be typed for each file as searched.
>				;FINISH FILENAME TYPEOUT MODE
	TXNN	F,FL%PCC	;CHECK CHARACTER CASE
	TYPE	<
Character case will be ignored.

>
	TXNE	F,FL%PCC	;OTHER SENSE
	TYPE	<
Character case will be preserved.

>
	RET			;ALL DONE
	SUBTTL	TYPEOUT FORMATTING SELECTION COMMANDS

;HERE TO PROCESS THE MODULE-NAMES-ONLY COMMAND.  SETS FL%MNO SO THAT
;THE OUTPUT FORMAT AND SEARCH ARE QUICKER.

.MODULE: NOISE	(LISTING FORMAT) ;GUIDEWORDS
	CONFRM			;CONFIRM THE COMMAND
	TXO	F,FL%MNO	;TURN ON THE FLAG TO SAY SO
	RET			; AND ALL DONE



;HERE TO PROCESS THE COMPLETE-LISTING COMMAND. CLEARS FL%MNO SO THAT
;ALL THE OUTPUT AND SEARCHING ARE DONE.

.COMP:	NOISE	(LISTING FORMAT) ;GUIDEWORDS
	CONFRM			;CONFIRM THE COMMAND
	TXZ	F,FL%MNO	;CLEAR THE FLAG
	RET			; AND ALL DONE HERE



;HERE TO PROCESS THE GIVE COMMAND.  SETS FL%GEF SO THAT ALL NAMES ARE
;TYPED AS THE FILES ARE PROCESSED.

.GIVE:	NOISE	(ALL FILENAMES AS THEY ARE SEARCHED) ;GUIDEWORDS
	CONFRM			;CONFIRM THE INTENT
	TXO	F,FL%GEF	;SET THE BIT
	RET			; AND WE ARE DONE



;HERE TO PROCESS THE OMIT COMMAND.  CLEARS FL%GEF SO THAT ALL NAMES ARE
;NOT TYPED AS THE FILES ARE PROCESSED.

.OMIT:	NOISE	(ALL FILENAMES AS THEY ARE SEARCHED) ;GUIDEWORDS
	CONFRM			;CONFIRM THE COMMAND
	TXZ	F,FL%GEF	;CLEAR THE FLAG
	RET			; AND ALL DONE
	SUBTTL	CHARACTER MATCH CASE SELECTION SETTING

;HERE TO PROCESS THE CASE-OF-CHARACTERS COMMAND.  SETS OR CLEARS
;THE FL%PCC FLAG TO INDICATE PRESERVATION OF CHARACTER CASE IN
;MATCH STRINGS.

.CASE:	NOISE	(IN MATCH STRINGS IS TO BE) ;GUIDEWORDS
	PARSE	[FLDDB. (.CMKEY,,CASTAB,,<IGNORED>)] ;PARSE FROM TABLE
	MOVE	P1,0(T2)	;FETCH VALUE
	CONFRM			;CONFIRM THE COMMAND
	TXZ	F,FL%PCC	;ASSUME DEFAULT
	SKIPE	P1		; SEE WHAT WAS SAID
	 TXO	F,FL%PCC	;PRESERVE CASE
	RET			;ALL DONE


;TABLE OF CASE OPTIONS

CASTAB:	CASLEN,,CASLEN		;HEADER
	AA	IGNORED,0	;DEFAULT TO IGNORE
	AA	PRESERVED,1	;PRESERVE CASE
	CASLEN==.-CASTAB-1	;LENGTH
	SUBTTL	FILES COMMAND TO GIVE FILE SPECIFICATION

;HERE TO PROCESS THE FILES COMMAND TO GET ANOTHER JFN FOR FILES TO
;SEARCH AND PUT IT ON THE LIST.

.FILES:	NOISE	(TO SEARCH)	;GUIDEWORDS
	MOVX	T2,GJ%OLD!GJ%IFG!GJ%FLG	;EXISTS, WILD, RETURN FLAGS
	MOVEM	T2,JFNBLK+.GJGEN ;SET UP GTJFN FLAGS
	HRROI	T2,[ASCIZ/*/]	;SETUP DEFAULTS FOR
	MOVEM	T2,JFNBLK+.GJNAM ;FILENAME
	MOVEM	T2,JFNBLK+.GJEXT ;EXTENSION
	PARSE	[FLDDB. (.CMFIL,,,,<*.*.0>)] ;GET THE INPUT FILE
	MOVEM	T2,JFNTMP	;SAVE THE JFN
	CONFRM			;CONFIRM THE LINE
	MOVE	T1,FILCNT	;GET THE COUNT
	CAILE	T1,MAXFIL	;TOO MANY?
	 ERROR	<Too many files> ;YUP
	IMULI	T1,STRSIZ*5	;TIMES THE SPEC SIZE
	HRROI	T1,FILLST(T1)	;POINT TO BUFFER
	MOVE	T2,JFNTMP	;GET THE JFN AGAIN
	MOVX	T3,JS%SPC	;FULL SPEC
	JFNS			;SAVE THE STRING
	 ERJMP	LOSE
	MOVE	T1,T2		;JFN BACK
	RLJFN			;DON'T NEED IT ANYMORE
	 ERJMP	.+1		;LET THEM PILE UP IF FAILS
	SETZM	JFNTMP		;MARK NO JFN TO FLUSH
	AOS	FILCNT		;BUMP THE COUNT
	RET			; AND WE ARE DONE
	SUBTTL	STRING COMMAND

;HERE TO PROCESS THE STRING COMMAND TO GET A SEARCH STRING AND PUT
;IT IN THE STRING LIST.

.STRING: NOISE	(TO SEARCH FOR)	;GUIDEWORDS
	PARSE	[FLDDB. (.CMTXT,CM%SDH,,<Substring to locate>)]
	CALL	CPYSTR		;STORE THE STRING
	CONFRM			;CONFIRM THE COMMAND
	SKIPN	P3		;STRING TOO LONG?
	 WARN	<Search string truncated to 39 characters>
	MOVE	T1,STRCNT	;CURRENT NUMBER
	CAILE	T1,MAXSTR	;SPACE LEFT?
	 ERROR	<Maximum number of strings already in use>
	CAIE	P3,STRSIZ*5-1	;BY THE BY, WAS THERE ANYTHING THERE?
	AOS	STRCNT		;YES, COUNT THE STRING
	RET			;AND ALL DONE


;CPYSTR - COMMON ROUTINE TO PROCESS STRING FROM ATOM BUFFER INTO
;OUR STORAGE.  USES P1-P3, P3 IS FOR LENGTH CHECKING.

CPYSTR:	MOVE	P1,[POINT 7,ATMBUF] ;POINT TO THE INPUT
	MOVE	P2,STRCNT	;NUMBER IN USE
	IMULI	P2,STRSIZ	;TIMES SIZE
	ADDI	P2,STRBUF	;PLUS START OF BUFFER
	HRLI	P2,(POINT 7,)	;AND LH BUILDS BYTE POINTER
	MOVX	P3,STRSIZ*5-1	;MAX CHARACTERS IN STRING

CPYS.1:	ILDB	T1,P1		;GET NEXT BYTE
	JUMPE	T1,CPYS.3	;DONE ON NULL
	CAIE	T1,.CHCNV	;REMOVE ANY CONTROL-V'S
	CAIN	T1,.CHCRT	;IGNORE CARRIAGE RETURNS
	 JRST	CPYS.1		;IN STRING
	CAIN	T1,.CHLFD	;OR LINEFEED
	 JRST	CPYS.3		;TERMINATE
	TXNE	F,FL%PCC	;CONSIDER CHARACTER CASE?
	 JRST	CPYS.2		; YES
	CAIL	T1,"a"		;NO, TURN LOWERCASE TO UPPER
	CAILE	T1,"z"		;WITH USUAL CODE
	 SKIPA
	SUBI	T1,"a"-"A"
CPYS.2:	IDPB	T1,P2		;STORE BYTE
	SOJG	P3,CPYS.1	;LOOP FOR 39 CHARS AT MOST
CPYS.3:	MOVEI	T1,0		;END WITH A NULL
	IDPB	T1,P2		;TO TERMINATE STRING
	RET			;RETURN, COUNTER IN P3
	SUBTTL	FIND COMMAND TO HANDLE COMPRESSED COMMAND SYNTAX

;HERE TO PROCESS THE FIND COMMAND WHICH ALLOWS A COMPRESSED SYNTAX
;FORM OF INVOCATION, SO THAT FIND COULD BE USED AS A SINGLE LINE
;COMMAND.

.FIND:	NOISE	(STRING)	;GUIDEWORDS
	PARSE	[FLDDB.(.CMQST,CM%SDH,,<Search string, in quotes>)]
	CALL	CPYSTR		;COPY IT

	NOISE	(IN FILES)	;MORE GUIDEWORDS
	MOVX	T2,GJ%OLD!GJ%IFG!GJ%FLG	;EXISTS, WILD, RETURN FLAGS
	MOVEM	T2,JFNBLK+.GJGEN ;SET UP GTJFN FLAGS
	HRROI	T2,[ASCIZ/*/]	;SETUP DEFAULTS FOR
	MOVEM	T2,JFNBLK+.GJNAM ;FILENAME
	MOVEM	T2,JFNBLK+.GJEXT ;EXTENSION
	PARSE	[FLDDB. (.CMFIL,,,,<*.*.0>)] ;GET THE INPUT FILE
	MOVEM	T2,JFNTMP	;SAVE THE JFN

	CONFRM			;CONFIRM THE COMMAND LINE

	SKIPN	P3		;TOO LONG?
	 WARN	<Search string truncated to 39 characters>
	MOVE	T1,STRCNT	;CURRENT NUMBER
	CAILE	T1,MAXSTR	;SPACE LEFT?
	 ERROR	<Maximum number of strings already in use>
	CAIE	P3,STRSIZ*5-1	;BY THE BY, WAS THERE ANYTHING THERE?
	AOS	STRCNT		;YES, COUNT THE STRING

	MOVE	T1,FILCNT	;GET THE COUNT
	CAILE	T1,MAXFIL	;TOO MANY?
	 ERROR	<Too many files> ;YUP
	IMULI	T1,STRSIZ*5	;TIMES THE SPEC SIZE
	HRROI	T1,FILLST(T1)	;POINT TO BUFFER
	MOVE	T2,JFNTMP	;GET THE JFN AGAIN
	MOVX	T3,JS%SPC	;FULL SPEC
	JFNS			;SAVE THE STRING
	 ERJMP	LOSE
	MOVE	T1,T2		;JFN BACK
	RLJFN			;DON'T NEED IT ANYMORE
	 ERJMP	.+1		;LET THEM PILE UP IF FAILS
	SETZM	JFNTMP		;MARK NO JFN TO FLUSH
	AOS	FILCNT		;BUMP THE COUNT

	MOVX	T1,.PRIOU	;SEND OUTPUT TO TERMINAL
	MOVEM	T1,JFNTMP	; FOR THIS INVOCATION
	CALLRET	LIST.1		;CONTINUE PROCESSING IN LIST COMMAND
	SUBTTL	LIST COMMAND TO SPECIFY OUTPUT FILE AND BEGIN

;HERE TO PROCESS LIST COMMAND.  SPECIFY OUTPUT FILESPEC AND BEGIN THE
;PROCESSING OF THE SEARCH.

.LIST:	NOISE	(OUTPUT TO FILE) ;GUIDEWORDS
	PARSE	[FLDDB. (.CMOFI,,,,<TTY:>)] ;SETUP AND GET FILESPEC
	MOVEM	T2,JFNTMP	;SAVE JFN IN JFN STACK
	NOISE	(AND BEGIN)	;MORE GUIDEWORDS
	CONFRM			;CONFIRM THE COMMAND

LIST.1:	SKIPN	FILCNT		;ANY FILES TO DO?
	 ERROR	<No files specified>
	SKIPN	STRCNT		;ANY STRINGS TO DO?
	 ERROR	<No search strings specified>
	MOVE	T1,JFNTMP	;GET THE JFN
	MOVEM	T1,OJFN		;MAKE IT THE OUTPUT JFN
	SETZM	JFNTMP		;MARK JFN STACK EMPTY

	MOVE	T1,OJFN		;OUTPUT FILE JFN
	MOVX	T2,OF%WR+FLD(7,OF%BSZ) ;ASCII MODE
	OPENF			;DO OPEN
	 ERJMP [LERROR	<Cannot open output file>]
	SETZM	MATCHC		;ZERO COUNT OF MATCHES
	SETZM	MATCHF		; AND NUMBER OF FILES WITH MATCHES
	SETZM	FSKIP		; AND NUMBER SKIPPED OR ABORTED
	SETABT	LSTABT		;SET UP THE CONTROL-E INTERRUPT
	CALL	SEARCH		;GO DO IT

LSTFIN:	CLRABT			;CLEAR ANY ACTIVE CONTROL-E CHANNEL
	MOVX	T1,.TICCA	;NO MORE FILES TO DO
	DTI			;SO CLEAR CONTROL-A
	 ERJMP	LOSE
	MOVX	T1,.TICCX	;AND ALSO
	DTI			;CLEAR CONTROL-X
	 ERJMP	LOSE
	;...

;NOW PRINT OUT THE TERMINATION FILES STATISTICS (FALL THROUGH)

	PRINT	<
Total of >			;START SUMMARY LINE
	DECOUT	MATCHC		;DO NUMBER OF MATCHES
	PRINT	< match>	;MORE TEXT
	MOVE	T1,MATCHC	;GET COUNT
	CAIE	T1,1		;CHECK THE SINGULAR CASE
	PRINT	<es>		;HANDLE PLURAL
	PRINT	<, >		;MORE TEXT
	DECOUT	MATCHF		;DO NUMBER OF FILES WITH MATCHES
	PRINT	< file>		;TEXT
	MOVE	T1,MATCHF	;GET FILE COUNT
	CAIE	T1,1		;CHECK FOR THE SINGULAR CASE
	PRINT	<s>		;DO PLURAL
	PRINT	< contained matches, >
	DECOUT	FSKIP		;DO THE NUMBER SKIPPED
	PRINT	< files skipped or aborted
>				;FINAL TEXT
	SKIPE	T1,OJFN		;GET THE OUTPUT JFN
	CLOSF			; AND CLOSE IT
	 ERJMP [LERROR	<Cannot close output file>]
	SETZM	OJFN		; MARK IT CLOSED
	RET			;DONE, PRESERVE FILES, STRINGS,...




;HERE ON CONTROL-E ABORT OF LIST COMMAND

LSTABT:	MOVX	T1,.PRIOU	;CLEAR THE
	CFOBF			;OUTPUT IN PROGRESS
	 ERJMP	LOSE
	WARN	Command aborted
	MOVE	P,SAVPSI	;PUT STACK BACK TO KNOWN VALUE
	CALLRET	LSTFIN		;FINISH UP THE NORMAL WAY
	SUBTTL	SEARCH ROUTINE

;SEARCH - ROUTINE TO DO THE ACTUAL SEARCH.  ENTERED WITH THE PARAMETERS
;ALREADY SETUP FOR THE SEARCH.
;RETURNS  +1:	ALWAYS, ON COMPLETION OF THE SEARCH

SEARCH:	MOVE	T1,[CTBL,,XTBL]	;COPY OVER THE BASE TABLE
	BLT	T1,XTBL+^D63	;WITH NORMAL BLT
	MOVE	T1,[.CHLFD,,.CHLFD+1] ;ASSUME NO BREAK ON LF
	TXNN	F,FL%MNO	;MODULE-NAME-ONLY?
	 TXO	T1,<100000,,0>	; NO - SET OPCODE TO BREAK ON LF
	MOVEM	T1,XTBL+<.CHLFD/2> ;SET WORD
	MOVN	T1,STRCNT	;NUMBER OF STRINGS
	HRLZS	T1		;AOBJN POINTER
SEARC0:	HRRZ	T2,T1		;OFFSET
	IMULI	T2,STRSIZ	;TIMES SIZE
	MOVE	T3,[POINT 7,STRBUF(T2)] ;POINT AT STRING
	ILDB	T3,T3		;AND GET FIRST BYTE
	MOVE	T2,[POINT 18,XTBL] ;POINT TO TABLE
	MOVE	T4,T3		;COPY CHARACTER
	ADJBP	T4,T2		;UPDATE BYTE POINTER
	ILDB	T2,T4		;GET BYTE
	TXO	T2,100000	;OPCODE TO TERMINATE TRANSLATION
	DPB	T2,T4		;PUT BYTE BACK
	TXNE	F,FL%PCC	;CASE MATTER?
	 JRST	SEARCL		;YES, DON'T CONVERT
	CAIL	T3,"A"		;IF ALPHABETIC, THEN
	CAILE	T3,"Z"		;MUST SET LOWERCASE BYTE ALSO
	 SKIPA
	 JRST [	ADDI	T3,"a"-"A"	;GET LOWERCASE VALUE
		MOVE	T2,[POINT 18,XTBL] ;START OF TABLE
		ADJBP	T3,T2		;POINT TO L/C BYTE
		ILDB	T2,T3		;GET BYTE
		TXO	T2,100000	;SET TERMINATE OPCODE
		DPB	T2,T3		;PUT BYTE BACK
		JRST	.+1]		;CONTINUE INLINE
SEARCL:	AOBJN	T1,SEARC0	;LOOP FOR ALL STRINGS

	SETZM	FILJFN		;ZERO FILJFN SO IT GETS THE FIRST
	MOVE	T1,[.TICCA,,STSCHN] ;SETUP CONTROL-A
	ATI			;TO GO TO STSINT
	 ERJMP	LOSE
SEARCX:	MOVE	T1,[.TICCX,,SKPCHN] ;SETUP CONTROL-X
	ATI			;TO GO EVENTUALLY TO SKPABT
	 ERJMP	LOSE
	MOVEM	P,SAVEPX	;RECORD THE CURRENT STACK POSITION
	;...
	;...
SEARC1:	TXO	F,FL%NOX	;SET CONTROL-X CRITICAL REGION
	CALL	NXTFIL		;SETUP THE NEXT FILE TO DO
	 JRST [	MOVX	T1,.TICCA	;NO MORE FILES TO DO
		DTI			;CLEAR CONTROL-A
		 ERJMP	LOSE
		MOVX	T1,.TICCX	;AND ALSO
		DTI			;CLEAR CONTROL-X
		 ERJMP	LOSE
		RET]			;RETURN

	TXZ	F,FL%NOX!FL%FNO	;END CRITICAL REGION, MARK FILENAME NOT OUTPUT
	TXNE	F,FL%GEF	;DOES USER WANT TO SEE ALL NAMES?
	 JRST [	TYPE	<Searching > ;LEADIN
		TYPJFN	FILJFN,FULL ;YES, GIVE IT TO HIM
		TYPE	<
>				;AND A NEW LINE
		JRST	.+1]	;THEN CONTINUE IN LINE
	MOVEI	T1,1		;FILE STARTS ON LINE ONE
	MOVEM	T1,LINENO	;SO INIT LINE COUNT
	MOVE	P1,FBYTCT	;GET FILE BYTE COUNT
	TXNE	F,FL%BIG	;BIG FILE?
	 MOVX	P1,SEGBY	; YES, USE SEGMENT SIZE INSTEAD
	MOVE	P2,[POINT 7,BUFFER] ;SOURCE BYTEPOINTER
	MOVEM	P2,LINPTR	;SET INITIAL LINE POINTER ALSO
	SETZB	P3,P6		;THESE ACS ARE UNUSED
	DMOVE	P4,[	EXP	5 ;AND SET UP ONE WORD DESTINATION CROCK
			POINT 7,DSTBUF]
	CALL	SCAN		;DO THE SCAN
	JRST	SEARC1		;LOOP TIL DONE WITH ALL


;SKPABT - ROUTINE TO HANDLE THE CONTROL-X SKIP FILE ABORT
;TYPES OUT THE FILENAME, ADJUSTS THE STACK AND CONTINUES

SKPABT:	MOVX	T1,.PRIOU	;WAIT FOR THE
	DOBE			; OUTPUT STREAM TO COMPLETE
	TYPE	<Aborting search of > ;LEADIN TO FILENAME
	TYPJFN	FILJFN,FULL	;TYPE THE FILENAME
	TYPE	<
>				;FINISH THE LINE
	AOS	FSKIP		;COUNT THE FILE
	MOVE	P,SAVEPX	;ADJUST THE STACK,
	JRST	SEARCX		; AND CONTINUE WITH THE NEXT FILE
	SUBTTL	SCAN ROUTINE TO SCAN INPUT FILE

;SCAN - HERE WE USE A MOVST TO SCAN THE INPUT FILE BYTE BY BYTE AND
;HAVE IT BREAK ON LINE FEEDS AND THE FIRST CHARACTER (UPPER OR LOWER
;CASE) OF STRINGS WHICH MAY MATCH THE TARGET KEYWORDS.  ON A BREAK,
;WE THEN DETERMINE WHAT TO DO FROM THERE, DO IT, AND COME BACK TO
;SCAN AGAIN.
;ACCEPTS:
;  P1-P5/	SETUP FOR MOVST INSTRUCTION
;
;	CALL	SCAN
;
;RETURNS  +1:	ALWAYS, AT END OF FILE

SCAN:	EXTEND	P1,[	MOVST	XTBL	;DO THE SCAN
			EXP	0]	;FILL
	 SKIPA				;TERMINATED ON CHARACTER
	JRST [	TXNN	F,FL%BIG	;NEED TO DO MORE?
		 RET			; NO, OUT OF FILE TO PROCESS
		CALL	MORE		;YES, DO THE NEEDED MAP, ADJUSTMENTS
		MOVE	T1,FBYTCT	;FILE BYTE COUNT
		IDIV	T1,[SEGBY]	;NUMBER OF BYTES
		MOVE	P1,T2		;GET REMAINDER IF NOW NON-BIG
		TXNE	F,FL%BIG	;STILL BIG?
		 MOVX	P1,SEGBY	; YES, USE NUMBER OF BYTES IN BUFFER
		JRST	SCAN]		; AND CONTINUE WITH THE SCAN

	LDB	T2,P2		;GET THE TERMINATOR
	CAIN	T2,.CHLFD	;LINE FEED?
	 JRST [	AOS	LINENO	;YES, COUNT IT
		MOVEM	P2,LINPTR ;SAVE POINTER TO START OF LINE
		JRST	SCAN]	; AND CONTINUE

	MOVN	P6,STRCNT	;NUMBER OF STRINGS
	HRLZS	P6		;BUILD AOBJN POINTER
	HRRI	P6,<STRBUF-STRSIZ+1> ;PRESET FOR FIRST STRING
SCAN1:	SETO	T2,		;-1
	ADJBP	T2,P2		;GET ADJUSTED POINTER FOR ILDB
	MOVEM	P1,SCNSVP	;SAVE OLD POINTER IN CASE NO MATCH
	ADDI	P6,<STRSIZ-1>	;POINT TO NEXT STRING
	HRRZ	T1,P6		;COPY ADDRESS
	HRLI	T1,(<POINT 7,0>) ;AND BUILD A BYTE POINTER TO STRING
	CALL	STRCMP		;DO THE STRING COMPARE
	 JRST [	MOVE	P1,SCNSVP ;RESTORE P1 ON MATCH FAILURE
		AOBJN	P6,SCAN1 ;LOOP FOR ALL STRINGS...
		JRST	SCAN]	; AND CONTINUE SCAN WHEN NO MORE
	AOS	MATCHC		;COUNT MATCH
	MOVE	P2,T2		;UPDATE POINTER
	CALL	INCLUD		;A MATCH, GENERATE OUTPUT
	TXNN	F,FL%MNO	;MODULE-NAMES-ONLY?
	AOJA	P1,SCAN		;NO, LOOP, MAKING UP FOR EARLIER ADJBP COUNT
	 RET	 		;YES, ONE OUTPUT IS ENOUGH
	SUBTTL	INCLUD - ROUTINE TO PRINT A MATCH

;INCLUD - HERE TO OUTPUT A MATCH
;
;  P6/		-N,,ADDRESS OF MATCH STRING
;  LINPTR/	BEGINNING OF LINE CONTAINING MATCH

INCLUD:	TXNN	F,FL%MNO	;MODULE-NAMES-ONLY?
	 JRST	INCLUA		;NO
	PRTJFN	FILJFN,FULL	;YES, OUTPUT THE FILENAME
	PRINT	<  	(>	;OPEN PAREN
	PRINT.	0(P6)		;PRINT MATCH STRING
	PRINT	<)
>				;END WITH A CRLF
	AOS	MATCHF		;COUNT THE FILE FOR A MATCH
	RET			;AND DONE

;HERE TO DO THE FULL-BLOWN OUTPUT

INCLUA:	TXOE	F,FL%FNO	;FILE NAME OUTPUT YET?
	 JRST	INCLU1		;YES, JUST DO MATCH STRING
	AOS	MATCHF		;COUNT THE FILE THE FIRST TIME
	PRTJFN	FILJFN,FULL	;OUTPUT THE FILENAME
	PRINT	<

>				;BLANK LINE
INCLU1:	PRINT	<(Line >	;OPEN PAREN
	DECOUT	LINENO		;GIVE LINE NUMBER
	PRINT	<:  >		;DELIMIT
	PRINT.	0(P6)		;PRINT MATCH STRING
	PRINT	<)
>				;CLOSE PAREN
	MOVE	T1,OJFN		;GET OUTPUT JFN (PRINT. NOT GOOD ENOUGH)
	MOVE	T2,LINPTR	;POINT TO START OF LINE
	MOVEI	T3,^D128	;DO THIS MANY CHARS MAX
	MOVEI	T4,.CHLFD	;OR TERMINATE ON LINEFEED
	SOUT			;OUTPUT THE LINE WITH THE MATCH
	 ERJMP	LOSE
	PRINT	<
>				;FINISH WITH BLANK LINE
	RET			;AND DONE FOR NOW
	SUBTTL	STRING COMPARISON ROUTINE

;STRCMP	THIS ROUTINE PERFORMS THE FILE TO TARGET STRING COMPARE.
;
;  T1/	BYTE POINTER TO THE TARGET PATTERN
;  T2/	BYTE POINTER INTO THE INPUT FILE
;
;	CALL	STRCMP
;RETURNS:  +1:	IF THE MATCH IS UNSUCCESSFUL
;	   +2:	IF THE MATCH IS SUCCESSFUL, P1 COUNTED

STRCMP:	ILDB	T3,T1		;GET BYTE FROM PATTERN STRING
	JUMPE	T3,RSKP		;A MATCH IF AT END, SKIP RETURN
	ILDB	T4,T2		;GET BYTE FROM TEST STRING
	SOJL	P1,[TXNN F,FL%BIG	;MORE FILE MAYBE?
		     RET		;NO
		    DMOVEM T1,STRSV2	;SAVE T1,T2
		    CALL MORE		;YES, MAP, ADJUST
		    DMOVE T1,STRSV2	;GET T1,T2 BACK
		    SUBI T2,<SEGWD-PGSIZ> ;ADJUST T2 WORD ADDRESS DOWN
		    ILDB T4,T2		; OTHER ONE ALSO
		    LDB T3,T1		;GET BYTE BACK
		    JRST .+1]		;AND CONTINUE
	TXNE	F,FL%PCC	;CASE MATTER?
	 JRST STRCM1		; YES, SKIP CONVERSION
	CAIL	T4,"a"		;CONVERT OCCURRENCES OF
	CAILE	T4,"z"		; LOWER CASE
	 SKIPA
	SUBI	T4,"a"-"A"	; TO UPPER CASE
STRCM1:	CAMN	T3,T4		;THE COMPARE
	 JRST	STRCMP		;MATCH SO FAR, CONTINUE
	RET			;DIFFERENCE, RETURN NONSKIP
	SUBTTL	NXTFIL ROUTINE TO RETURN NEXT FILE

;NXTFIL - ROUTINE TO RETURN NEXT FILE TO USE.
;ACCEPTS:
;  FILJFN/	CURRENT JFN
;
;	CALL	NXTFIL
;
;RETURNS  +1:	NO MORE FILES TO PROCESS
;	  +2:	NEXT JFN IS IN FILJFN
;
;UNMAPS AND CLOSES CURRENT FILE AND OPENS AND MAPS NEXT.
;STEPS THROUGH FILLST USING VARIABLE FILSTP AS AN INDEX.

NXTFIL:	SKIPN	FILJFN		;SEE IF FILE IS IN USE
	 JRST [	MOVN	T1,FILCNT	;START WITH COUNT
		HRLZ	T1,T1		;BUILD AOBJN POINTER
		MOVEM	T1,FILSTP	;AND SET FILSTP
		HRROI	T2,FILLST	;POINT TO THE FIRST STRING
		MOVX	T1,GJ%SHT+GJ%IFG!GJ%OLD!GJ%FLG ;WHAT TO LOOK FOR
		GTJFN			;GET THE JFN
		 ERJMP	LOSE
		MOVEM	T1,FILJFN	;SAVE THE JFN
		JRST	NXTFLO]		;THEN GO OPEN IT
	SETOM	T1		;-1 TO UNMAP
	MOVE	T2,[.FHSLF,,BUFFER_-PGSFT] ;THE PAGES IN BUFFER
	HRRZ	T3,FSIZE	;NUMBER OF PAGES WE HAVE MAPPED
	TXO	T3,PM%CNT	;COUNT BIT
	PMAP			;UNMAP THE PAGES
	 ERJMP [WARN	<Trouble with file - > ;LEADIN AND
		TYPJFN	FILJFN,FULL ;LET HIM KNOW WHICH ONE
		LERROR	<Cannot unmap file pages>] ;THEN DIE
	HRRZ	T1,FILJFN	;JFN AGAIN
	TXO	T1,CO%NRJ	;DON'T LOSE JFN
	CLOSF			; BUT CLOSE FILE
	 ERJMP [WARN	<Trouble with file - > ;LEADIN AND
		TYPJFN	FILJFN,FULL ;LET HIM KNOW WHICH ONE
		LERROR	<Cannot close input file>] ;THEN DIE
	;...
;NOW STEP THE CURRENT JFN

NXTFI0:	MOVE	T1,FILJFN	;GET THE JFN
	GNJFN			;STEP IT
	 ERJMP [CAIE	T1,GNJFX1	;NO MORE?
		 JRST	LOSE		;SOME OTHER ERROR, CROAK
		MOVE	T1,FILSTP	;GET THE STEP INDEX
		AOBJP	T1,R		;NO MORE AT ALL!
		MOVEM	T1,FILSTP	;RESTORE STEP INDEX
		HRRZS	T1		;GET THE SPEC NUMBER
		IMULI	T1,STRSIZ*5	;TIMES THE SPACE NEEDED
		HRROI	T2,FILLST(T1)	;POINT TO THE STRING
		MOVX	T1,GJ%SHT+GJ%OLD+GJ%IFG+GJ%FLG ;TYPE OF GTJFN
		GTJFN			;GET A JFN ON IT
		 ERJMP	LOSE
		MOVEM	T1,FILJFN	;SET IT (GNJFN RELEASED OLD ONE)
		JRST	.+1]		;AND CONTINUE IN LINE


;OPEN AND MAP THE NEW FILE

NXTFLO:	HRRZ	T1,FILJFN	;GET JFN PART
	MOVX	T2,OF%RD	;OPENING JUST FOR READ
	OPENF			;TRY THE OPEN
	 ERJMP [AOS	FSKIP		;COUNT UP NUMBER SKIPPED
		TXNN	F,FL%GEF	;GIVE ALL FILES MODE?
		 JRST	NXTFI0		; NO, BE SILENT.
		HRRZ	T1,FILJFN	;GET JFN BACK
		MOVE	T2,[1,,.FBCTL]	;WANT TO READ JUST .FBCTL
		MOVEI	T3,T3		;INTO T3 IS FINE
		GTFDB			;READ FDB
		 ERJMP	LOSE
		TXNN	T3,FB%OFF	;OFF-LINE?
		 WARN	<OPENF failed, skipping file > ;NO, GIVE THIS MESSAGE
		TXNE	T3,FB%OFF	;OFF-LINE?
		 WARN	<Off-line file skipped - > ;SAY SORRY
		TYPJFN	FILJFN,FULL	;GIVE THE NAME
		TYPE	<
>					;CRLF THE LINE
		JRST	NXTFI0]		;AND TRY ANOTHER
	;...
	;...
	MOVE	T2,[2,,.FBBYV]	;WORDS TO READ FROM FDB
	MOVEI	T3,P1		;WHERE TO READ THEM
	GTFDB			;READ THEM
	 ERJMP	LOSE
	HRRZM	P1,TFSIZE	;SAVE THE TOTAL FILE SIZE IN PAGES
	MOVE	T1,TFSIZE	;FETCH THE SIZE BACK
	TXZ	F,FL%BIG	;ASSUME NOT BIG
	CAILE	T1,SEGPG	;FILE TOO LARGE?
	 JRST [	TXO	F,FL%BIG ;MARK IT
		SETZM	BIGSEG	;RECORD START OF SEGMENT
		MOVX	T1,SEGPG ;DO A SEGMENT OF SEGPG PAGES
		JRST	.+1]	; AND CONTINUE INLINE
	MOVEM	T1,FSIZE	;SAVE CURRENT MAPPED FILE SIZE
	LOAD	T1,FB%BSZ,P1	;GET THE BYTE SIZE
	CAIE	T1,7		;NICE KOSHER ASCII?
	 JRST [	MOVX	T2,^D36	;CALCULATE NUMBER OF BYTES/WORD
		IDIV	T2,T1	; INTO T2
		ADDI	P2,-1(T2) ;ROUND UP
		IDIV	P2,T2	; AND CONVERT TO NUMBER OF WORDS
		IMULI	P2,^D5	;HENCE TO NUMBER OF ASCII BYTES
		JRST	.+1]	;AND CONTINUE
	MOVEM	P2,FBYTCT	;SAVING BYTE COUNT FOR FILE

	HRLZ	T1,FILJFN	;JFN,,0
	MOVE	T2,[.FHSLF,,BUFFER_-PGSFT] ;INTO BUFFER
	MOVX	T3,PM%CNT+PM%RD+PM%PLD ;TO READ, AND SET PRELOAD BIT
	HRR	T3,FSIZE	;NUMBER OF PAGES TO MAP
	PMAP			;MAP THEM
	 ERJMP [LERROR	<Cannot map input file>]

	RETSKP			;RETURN WITH NEXT FILE
	SUBTTL	MORE ROUTINE TO MAP NEXT FILE SEGMENT

;MORE - ROUTINE TO MAP THE NEXT SEGMENT OF A FILE WITH FL%BIG SET
;AND ADJUST THE POINTERS TO ACCOMMODATE CHANGES IN CORE ADDRESS.
;LAST PAGE OF BUFFER IS MOVED TO BE THE FIRST.  THIS MAKES THE
;BOLD ASSUMPTION THAT A MATCH STRING IS NOT LONGER THAN A PAGE....
;AND THAT THE LAST LINE STARTS ON THE LAST PAGE, AND THAT MATCH
;LINES DON'T CROSS THE SEGMENT BOUNDARY (THE LAST BEING WRONG).
;DOES ALL THE MESSY FIXUPS ON ALL THE VARIABLES IT KNOWS ABOUT.


MORE:	SETOM	T1		;-1 TO UNMAP
	MOVE	T2,[.FHSLF,,BUFFER_-PGSFT] ;THE PAGES IN THE BUFFER
	HRRZ	T3,FSIZE	;GET THE COUNT
	TXO	T3,PM%CNT	;COUNT BIT
	PMAP			;MAP THEM AWAY
	 ERJMP [WARN	<Trouble with file - > ;LEADIN AND
		TYPJFN	FILJFN,FULL ;LET HIM KNOW WHICH ONE
		LERROR	<Cannot unmap file pages>] ;THEN DIE

	MOVEI	T1,SEGPG-1	;SHIFT DOWN BY N-1 PAGES
	ADDM	T1,BIGSEG	;NEW START PAGE ADDRESS FOR SEGMENT
	MOVE	T1,TFSIZE	;GET TOTAL PAGE COUNT
	SUB	T1,BIGSEG	;MINUS LAST START
	CAILE	T1,SEGPG	;STILL TOO BIG?
	 JRST [	MOVEI	T1,SEGPG ;SIZE IS STILL SEGPG
		JRST	MORE0]	;AND CONTINUE
	TXZ	F,FL%BIG	;LAST SEGMENT, DON'T COME HERE AGAIN
MORE0:	MOVEM	T1,FSIZE	;STORE APPROPRIATE SIZE VALUE
	MOVE	T1,BIGSEG	;GET STARTING SEGMENT NUMBER
	HRL	T1,FILJFN	;GET THE SOURCE JFN
	MOVE	T2,[.FHSLF,,BUFFER_-PGSFT] ;GET DESTINATION POINTER
	MOVE	T3,FSIZE	;GET THE NUMBER OF PAGES TO MAP
	TXO	T3,PM%CNT+PM%RD+PM%PLD ;READ N PAGES WITH PRELOADING
	PMAP			;MAP NEXT SEGMENT
	 ERJMP [LERROR	<Unable to map next file segment>]

;NOW ADJUST POINTERS...

	MOVX	T1,-<SEGWD-PGSIZ> ;USE ADDRESS OFFSET TO
	ADDM	T1,LINPTR	;UPDATE POINTER TO LAST LINE

	ADD	P1,[SEGBY-<PGSIZ*5>] ;UPDATE BYTE COUNTER IN P1 FOR ADDED PAGES

	SUBI	P2,<SEGWD-PGSIZ> ;UPDATE POINTER IN P2

	DMOVE	P4,[	EXP	5 ;AND SET UP ONE WORD DESTINATION CROCK
			POINT 7,DSTBUF]

	MOVE	T1,[<SEGBY-<PGSIZ*5>>] ;CALCULATE BYTE OFFSET FOR P1 THAT SCAN
	ADDM	T1,SCNSVP	; SAVES AND UPDATE IT
	RET			;RETURN SUCCESSFULLY FOR MORE FILE
	SUBTTL	STSINT STATUS INTERRUPT ROUTINE

;STSINT - ROUTINE TO HANDLE A STATUS INTERRUPT ON CONTROL-A
;TO TYPE OUT THE NAME OF THE FILE CURRENTLY BEING PROCESSED.

STSINT:	MOVEM	P,PIACS+P	;SAVE THE ACS
	MOVE	P,[0,,PIACS]	; WITH A BLT
	BLT	P,PIACS+16	; TO THE SAVE BLOCK
	MOVE	P,PIACS+P	;REGET A STACK TO USE
	PUSH	P,.JBUUO##	;PUSH UUO LOC SO WE ARE INTERRUPTABLE

	MOVEI	T1,.PRIOU	;WAIT FOR A CHANCE TO
	DOBE			;GET INTO THE OUTPUT
	TYPE	<Working on >	;LEADIN TO FILENAME
	TYPJFN	FILJFN		;TYPE OUT THE FILESPEC WE ARE USING
	TYPE	<, >		;DELIMIT
	TDEC	MATCHC		;GIVE MATCH COUNT
	TYPE	< match>	;MORE TEXT
	MOVE	T1,MATCHC	;GET COUNT
	CAIE	T1,1		;THE SINGULAR CASE?
	TYPE	<es>		;DO PLURALS NICELY
	TYPE	<
>				;FINISH WITH A CRLF

	POP	P,.JBUUO##	;POP UUO LOCATION
	MOVE	P,[PIACS,,0]	;SETUP BLT AND
	BLT	P,P		; RESTORE THE ACS
	DEBRK			;THEN RETURN FROM INTERRUPT
	 ERJMP	LOSE		;FAILED...
	SUBTTL	SKPINT - SKIP FILE INTERRUPT ROUTINE

;SKPINT - ROUTINE TO HANDLE A SKIP REST OF THIS FILE INTERRUPT ON ^X
;DEBRKS TO SKPABT WITH INTERRUPT CHARACTER DISABLED IF NOT IN CRITICAL
;REGION BASED ON FL%NOX.

SKPINT:	PUSH	P,T1		;SAVE AN AC TO USE
	MOVEI	T1,SKPABT	;WHERE TO DEBRK TO
	TXNN	F,FL%NOX	;IN CRITICAL REGION?
	MOVEM	T1,@LEVTAB	;NO, CHANGE WHERE WE RETURN
	MOVX	T1,.TICCX	;CONTROL-X CODE
	TXNN	F,FL%NOX	;DO WE DISABLE IT TO AVOID MULTIPLE?
	DTI			;YES
	 ERJMP	LOSE
	POP	P,T1		;RESTORE THE AC
	DEBRK			;THEN RETURN FROM INTERRUPT
	 ERJMP	LOSE		;FAILED...
	SUBTTL	ILLEGAL MEMORY READ INTERRUPT

;IRDINT - ROUTINE TO HANDLE AN ILLEGAL MEMORY READ INTERRUPT,
;WHICH IS ASSUMED TO BE CAUSED BY A FILE WITH HOLES.
;WE TRY TO SAY WHICH FILE AND CONTINUE...

IRDINT:	MOVEM	P,PIACS+P	;SAVE THE ACS
	MOVE	P,[0,,PIACS]	; WITH A BLT
	BLT	P,PIACS+16	; TO THE SAVE BLOCK
	MOVE	P,PIACS+P	;REGET A STACK TO USE
	PUSH	P,.JBUUO##	;PUSH UUO LOC SO WE ARE INTERRUPTABLE

	MOVEI	T1,.PRIOU	;WAIT FOR A CHANCE TO
	DOBE			;GET INTO THE OUTPUT
	WARN	<File has holes -- >
	TYPJFN	FILJFN,FULL	;SAY WHICH ONE
	TYPE	<
>				;CRLF

	HRRZ	T4,PIACS+P2	;GET FAILING PAGE ADDRESS FROM EXTEND BP
	LSH	T4,-^D9		;MAKE PAGE NUMBER FOR CORE
	HRLI	T4,.FHSLF	;US
	MOVE	T1,T4		;COPY IT
	RPACS			;SEE IF THIS THE ONE
	 ERJMP	LOSE
	MOVE	T3,T2		;COPY BITS
	RMAP			;CHECK THE MAPPING
	 ERJMP	LOSE
	SKIPL	T1		;PROCESS BECOME FILE POINTER?
	TXNE	T3,PA%PEX	;PAGE EXIST?
	 ERROR	<FIND:  Internal mapping check error>
	SETOM	T1		;GUESSED RIGHT -- MAKE PAGE PRIVATE
	MOVE	T2,T4		;COPY PAGE ID AGAIN
	PMAP			;DELETE PAGE TO MAKE PRIVATE...
	 ERJMP	LOSE

	POP	P,.JBUUO##	;POP UUO LOCATION
	MOVE	P,[PIACS,,0]	;SETUP BLT AND
	BLT	P,P		; RESTORE THE ACS
	DEBRK			;THEN RETURN FROM INTERRUPT
	 ERJMP	LOSE		;FAILED...
	SUBTTL	THE DATA AREA

	XLIST			;DUMP THE LITERALS
DSLITS:	LIT
	LIST


PIACS:	BLOCK	20		;SAVED ACS DURING STATUS PSI

SAVEP:	BLOCK	1		;STORAGE OF STACK POINTER FOR COMMANDS
SAVEPX:	BLOCK	1		;STORAGE OF STACK FOR CONTROL-X

FILJFN:	BLOCK	1		;WORD USUALLY HOLDING FILE JFN
FDBBLK:	BLOCK	.FBADR+1	;SPACE FOR FDB DATA

FILSTP:	BLOCK	1		;POINTER INTO FILLST USED BY NXTFIL
FILCNT:	BLOCK	1		;COUNT OF FILES IN FILLST
FILLST:	BLOCK	MAXFIL*STRSIZ*5	;LIST OF JFNS TO SEARCH
TFSIZE:	BLOCK	1		;TOTAL SIZE OF FILE IN PAGES
FSIZE:	BLOCK	1		;SIZE OF FILE IN PAGES FOR MAPPING
BIGSEG:	BLOCK	1		;STARTING PAGE OF CURRENT SEGMENT
FBYTCT:	BLOCK	1		;BYTE COUNT FOR ENTIRE FILE

STRCNT:	BLOCK	1		;COUNT OF ENTRIES IN USE IN STRBUF
STRBUF:	BLOCK	<MAXSTR+1>*STRSIZ ;SEARCH STRINGS BUFFER

MATCHC:	BLOCK	1		;COUNT OF MATCHES SO FAR (FOR ^A)
MATCHF:	BLOCK	1		;COUNT OF FILES WITH MATCHES
FSKIP:	BLOCK	1		;NUMBER OF FILES SKIPPED OR ABORTED
LINENO:	BLOCK	1		;CURRENT LINE NUMBER
LINPTR:	BLOCK	1		;BYTE POINTER TO BEGINNING OF LAST LINE
DSTBUF:	BLOCK	1		;CROCK DESTINATION FOR MOVST
STRSV2:	BLOCK	2		;AC STORAGE FOR MORE ADJUSTMENT
SCNSVP:	BLOCK	1		;STORAGE OF P1 WHILE CALLING STRCMP
;XTBL IS THE TRANSLATION TABLE FOR THE MOVST INSTRUCTION.
;THERE ARE TWO TYPES OF ENTRIES:  FOR ALL CHARATERS TO
;BE IGNORED ON THE SCAN, THE TRANSLATION ENTRY IS THE
;CODE FOR THE CHARACTER, WITH AN OPCODE OF ZERO; AND FOR
;THOSE WE WANT TO BREAK ON, THE ENTRY IS THE CHARACTER
;CODE WITH AN OPCODE FIELD OF ONE TO TERMINATE TRANSLATION.

	DEFINE	MAKTBL,<
	XLIST
	...ZZZ==0
   REPEAT  ^D64,<
	...XXX==<...ZZZ>B17+<...ZZZ+1>
   IFE	<...ZZZ-.CHLFD>,<...XXX==<...ZZZ+100000>B17+<...ZZZ+1>>
	EXP	...XXX		;;GENERATE THE WORD
	...ZZZ==...ZZZ+2	;;BUMP THE COUNT
	>			;;END OF REPEAT
	LIST
	>			;END OF MAKTBL DEFINITION

CTBL:	MAKTBL			;BUILD THE CONSTANT TABLE TO START WITH, LF SET
XTBL:	BLOCK	^D64		;TRANSLATION TABLE FOR MOVST

	END	<3,,EVEC>