Google
 

Trailing-Edge - PDP-10 Archives - BB-H138F-BM_1988 - 7-sources/edit.mac
There are 36 other files named edit.mac in the archive. Click here to see a list.
; *** Edit 256 to EDIT.MAC by EVANS on 14-Jul-86, for SPR #20840
; Add VT102 and any other documented terminal types not there, to the tables.
;Edit 254 to EDIT.MAC by LOMARTIRE on Wed 27-Mar-85, for SPR #20638
;		Fix a bug in edit 205 which did not check for EOF
;Edit 253 to EDIT.MAC by LOMARTIRE on Tue 20-Nov-84 - Add the PERUSE command.
;Edit 252 to EDIT.MAC by LOMARTIRE on Tue 24-Jul-84, for SPR #20248
;		Fix the L commmand broken by edit 246.  Edit 246 is now
;;		required for this fix to be correct.
;Edit 251 to EDIT.MAC by LOMARTIRE on Wed 9-Nov-83, for SPR #19694
;		Fix ^+n to return correct line number - not ^+n-1
;Edit 250 to EDIT.MAC by LOMARTIRE on Fri 10-Jun-83, for SPR #19186 - Allow /READONLY in SWITCH.INI
;Edit 249 to EDIT.MAC by LOMARTIRE on Thu 9-Jun-83, for SPR #18725
;		Allow substitution of vertical bar in C64 mode
;Edit 248 by LOMARTIRE on Wed 27-Apr-83, for SPR #18363
;		Fix "C^$ (FILE) filename,^,incr" so that ^ is converted right
; UPD ID= 64, FARK:<5-1-WORKING-SOURCES.UTILITIES>EDIT.MAC.247,   2-Dec-82 11:32:39 by LOMARTIRE
;Edit 247 - Allow G, E, B, /NAME: and /RUN: commands to be aborted via ^U
; UPD ID= 56, FARK:<5-1-WORKING-SOURCES.UTILITIES>EDIT.MAC.246,   4-Nov-82 11:31:12 by LOMARTIRE
;Edit 246 - Store entire filespec so that output directory is not ignored
; UPD ID= 55, FARK:<5-1-WORKING-SOURCES.UTILITIES>EDIT.MAC.245,   4-Nov-82 08:58:45 by LOMARTIRE
;Edit 245 - Allow character editing, recognition, and help for entry of
;filespec when EDIT is invoked without one and there is no saved filespec
;(improvement of edit 243)
; UPD ID= 44, FARK:<5-1-WORKING-SOURCES.UTILITIES>EDIT.MAC.244,  30-Sep-82 17:08:39 by LOMARTIRE
;Edit 244 - Fix T command to deal with entire pages correctly
; UPD ID= 42, FARK:<5-1-WORKING-SOURCES.UTILITIES>EDIT.MAC.6,  21-Sep-82 13:24:58 by LOMARTIRE
;Edit 243 - When EDIT is entered without a saved filespec, make the entry 
;of the filespec more friendly (allow character editing)
; UPD ID= 41, FARK:<5-1-WORKING-SOURCES.UTILITIES>EDIT.MAC.4,  17-Sep-82 17:40:43 by LOMARTIRE
;Edit 242 - Fix I* so it doesn't start at 49999 in empty pages
; UPD ID= 24, FARK:<5-WORKING-SOURCES.UTILITIES>EDIT.MAC.3,   1-Jun-82 17:14:42 by TSANG
;Edit 241 - set flag "DOENDF" off after line CKIND+2
; UPD ID= 20, FARK:<5-WORKING-SOURCES.UTILITIES>EDIT.MAC.2,   6-May-82 15:05:06 by KROSENBLUH
;edit 240 - fix so I* doesn't start with line 99999 on an empty page
; UPD ID= 81, SNARK:<5.UTILITIES>EDIT.MAC.239,  22-Feb-82 16:06:16 by KROSENBLUH
; UPD ID= 77, SNARK:<5.UTILITIES>EDIT.MAC.238,   1-Feb-82 14:32:50 by KROSENBLUH
;TCO 5.1712 - 5EDIT.MAC.36,  1-Feb-82 12:08:44, EDIT BY KROSENBLUH
;improve edit 223 for T command.
;TCO 5.1674 - 5EDIT.MAC.17, 14-Jan-82 16:09:06, EDIT BY KROSENBLUH
;Don't allow re-enter, but do allow continue after ^C from Ex or Gx command
;Also, fix up stuff broken by edit 202, around CNCREN.
;TCO 5.1664 - 5EDIT.MAC.11, 11-Jan-82 13:31:44, EDIT BY KROSENBLUH
;If EXCPFL is on, don't try to do the GTJFN in GTJFNX twice,
;because it can cause a wrong error message.
;TCO 5.1646 - EDIT.MAC.6, 31-Dec-81 13:29:40, EDIT BY KROSENBLUH
;At CKIND, save status of COMFLF, and reset it before leaving,
;so indirect files won't bomb.
;TCO 5.1645 - EDIT.MAC.10, 30-Dec-81 14:48:27, EDIT BY KROSENBLUH
;Discard spaces and tabs between "/" and switch-name. 
;TCO 5.1643 - EDIT.MAC.4, 23-Dec-81 11:57:58, EDIT BY KROSENBLUH
;Make sure EDIT-BUFFER.IN is deleted when quitting.
;TCO 5.1642 - EDIT.MAC.2, 22-Dec-81 16:55:35, EDIT BY KROSENBLUH
;Fix edit 214 so if RSCAN buffer is empty, user can ^C out. 
;<5.UTILITIES>EDIT.MAC.230, 28-Oct-81 15:00:01, EDIT BY GRANT
;Change major version to 5
;<ROSENBLUH>5-EDIT.MAC.10, 19-Oct-81 14:17:53, EDIT BY ROSENBLUH
;increase number of bytes we read from the rscan buffer to 999 (226)
;TCO 5.1585 - <ROSENBLUH>5-EDIT.MAC.6, 16-Oct-81 09:56:37, EDIT BY ROSENBLUH
;make message after a D command right.(225)
;TCO 5.1506 - <ROSENBLUH>EDIT.MAC.23, 14-Sep-81 13:28:14, EDIT BY ROSENBLUH
;dissallow copy from device tty: (224)
;TCO 5.1501 - <ROSENBLUH>EDIT.MAC.15, 10-Sep-81 11:58:27, EDIT BY ROSENBLUH
;make "C/<page>,<source>", and "I/<page>,<incr>" work (223)
;TCO 4.2623 - EDIT.MAC.7, 24-Aug-81 16:16:06, EDIT BY ROSENBLUH
;set jfn storage word to zero after a jfn is closed and released (222)
;TCO 4.2622 - EDIT.MAC.221 FIX REACTION TO "FULL DIRECTORY"
;TCO 4.2621 - EDIT.MAC.220 FIX ?INTERNAL CONFUSION WHEN ON LAST PAGE
;TCO 4.2620 - EDIT.MAC.217 FIX SO ALTER/INSERT MODE DOESN'T ECHO BACK ^E
;TCO 4.2619 - EDIT.MAC.216 ADD THREE NEW TERMINAL TYPES
;TCO 4.2618 - EDIT.MAC.215 FIX SO TYPEAHEAD ISN'T LOST AFTER INDIRECT FILE ENDS
;TCO 4.2617 EDIT.MAC.214 FIX SO "EDIT<CR>" TO EXEC DOESNT CAUSE EXIT (214)
;TCO 4.2616 EDIT.MAC.213 ADD COMMENT COMMAND (;) (213)
;TCO 4.2615 EDIT.MAC.212 FIX SO I* DOESNT GIVE 99999 ON EMPTY PAGE
; UPD ID= 360, FARK:<4-WORKING-SOURCES.UTILITIES>EDIT.MAC.6,   8-Jan-81 15:05:30 by SIMMONS
;TCO 5.1228 - EDIT.MAC.211 FIX FOR CONT WHEN NO ^C CAPBILITY WAS SET
; UPD ID= 359, FARK:<4-WORKING-SOURCES.UTILITIES>EDIT.MAC.4,   7-Jan-81 13:01:11 by SIMMONS
;TCO 5.1227 - EDIT.MAC.210 FIX FOR I.-1 WHEN AT FIRST LINE
; UPD ID= 139, FARK:<4-WORKING-SOURCES.UTILITIES>EDIT.MAC.3,  11-Aug-80 12:13:12 by SIMMONS
;TCO 5.1126 - EDIT.MAC.207 FIX FOR COPY TO CORRECT EDIT 206
; UPD ID= 41, FARK:<4-WORKING-SOURCES.UTILITIES>EDIT.MAC.2,   6-Jun-80 10:57:09 by SIMMONS
;TCO 4.1.1156 - EDIT.MAC.206 FIX TO ELIMINIATE TEMP FILE ON OUTPUT
;TCO 4.1.1144 - EDIT.MAC.205 FIX FOR F/F ON LINE TOO LONG
;TCO 4.1.1127 - EDIT.MAC.203 FIX F & S WHEN USED WITH ,E
;TCO 4.1.1102 - EDIT.MAC.202 FIX "E"/"R" COMMAND ON INTERRUPT WHEN IN SUBSTITUE MODE
;TCO 4.1.1058 - EDIT.MAC.201 FIX EOF SO LINE 100 CAN BE INSERTED/REFERENCED
;TCO 4.1.1054 - EDIT.MAC.200 FIX SO FORMFEEDS DON'T GET LOST
;TCO 4.1.1042 - EDIT.MAC.199 FIX SO "I" REMEBERS LAST INSERT
;TCO 4.1.1040 - EDIT.MAC.198  FIX BACKWARD DELETE IN ALTER MODE
;TCO 4.1.1038 - EDIT.MAC.197 Correct B command for DEV:<DIR>
;TCO 4.1.1004 - DO NOT ALLOW E<ESC> WHEN CREATING A FILE
;<4.UTILITIES>EDIT.MAC.196,  3-Jan-80 15:25:49, EDIT BY R.ACE
;UPDATE COPYRIGHT DATE
;<4.UTILITIES>EDIT.MAC.195,  29-oct-79 10:25:29, EDIT BY SIMMONS
;TCO 4.2558 - KEEP P COMMAND FROM REPRINTING THE LAST LINE PRINTED
;<4.UTILITIES>EDIT.MAC.194,  18-OCT-79 15:30:53, EDIT BY SIMMONS
;tco 4.2531 - ALLOW ECHO ON TERMINAL WHEN ^C IN ALTERMODE
;<4.UTILITIES>EDIT.MAC.193,  3-Jul-79 12:38:53, EDIT BY GRADY
;tco 4.2319 - allow wildcards in 'hlp:' device definition
;<4.UTILITIES>EDIT.MAC.192, 19-Apr-79 15:58:36, EDIT BY GRADY
;TCO 4.2236 - SEE TCO 3.1894 BELOW - PREVENT ILLEGAL INSTRUCTION TRAP
;<4.UTILITIES>EDIT.MAC.191, 10-Mar-79 13:54:40, EDIT BY KONEN
;UPDATE COPYRIGHT FOR RELEASE 4
;<4.UTILITIES>EDIT.MAC.190,  2-Jan-79 16:54:46, EDIT BY DBELL
;TCO 4.2145 - CLEAR UPTOPF ON ERRORS SO P^ DOESN'T GIVE "NO SUCH LINES"
;ERRORS AFTER AN INVALID INSERT COMMAND.
;<4.UTILITIES>EDIT.MAC.189, 20-Dec-78 16:09:24, EDIT BY DBELL
;TCO 4.2127 - CHECK FOR NONEXISTANT OUTPUT FILE AT DELOUT, SO A QUIT
;COMMAND AT THE WRONG TIME DOESN'T BLOW UP.
;<4.UTILITIES>EDIT.MAC.188, 20-Dec-78 13:02:32, EDIT BY DBELL
;REMOVE TEXTI BIT RD%RBF SINCE NOT USED ANYWAY
;<4.UTILITIES>EDIT.MAC.187, 12-Oct-78 14:01:58, EDIT BY DBELL
;TCO 4.2042 - FIX TAB OUTPUT PROBLEM IN "P" AND <LF> COMMANDS
;<4.UTILITIES>EDIT.MAC.186, 10-Oct-78 16:50:46, EDIT BY DBELL
;TCO 4.2040 - DON'T ALLOW WRITING OF TEMPORARY FILES
;<4.UTILITIES>EDIT.MAC.185,  4-Oct-78 11:57:07, EDIT BY DBELL
;TCO 4.2031 - MAKE DISK FULL INTERRUPT CODE CHECK RIGHT PC FOR "CAI"
;<4.UTILITIES>EDIT.MAC.184, 30-Sep-78 21:16:59, EDIT BY DBELL
;TCO 4.2028.  MAKE ALL LINE SEQUENCE FILES USE 36 BIT BYTES.  THIS
;FIXES MANY PROBLEMS CONCERNING THE APPENDING OF TWO LINE SEQUENCE
;NUMBERED FILES TOGETHER.
;<4.UTILITIES>EDIT.MAC.183, 20-Sep-78 15:15:55, EDIT BY DBELL
;TCO 4.2016.  GIVE INFORMATIVE OUT OF ORDER MESSAGE FOR COPY COMMAND.
;<4.UTILITIES>EDIT.MAC.182, 16-Jun-78 11:09:44, Edit by DBELL
;TCO 1923.  FIX /RUN SWITCH TO WORK CORRECTLY
;TCO 1922.  MAKE SURE PRARG BLOCK ALWAYS CONTAINS A NULL BYTE
;<4.UTILITIES>EDIT.MAC.181,  1-Jun-78 11:17:59, Edit by ENGEL
;FIX SFMOD TO USE TT%WAK INSTEAD OF 77B23 (FOR FULL WAKE-UP CHANGES)
;<4.UTILITIES>EDIT.MAC.180, 23-May-78 17:01:54, Edit by HESS
;TCO 1915 - Fix ESC echo on creation first input.
;<4.UTILITIES>EDIT.MAC.179,  3-May-78 11:31:13, Edit by DBELL
;TCO 1894. PREVENT ILLEGAL INSTRUCTION IN COPY COMMAND
;<4.UTILITIES>EDIT.MAC.178,  2-May-78 14:21:28, Edit by DBELL
;TCO 1893.  FIX OBSCURE PROBLEM WHEN A LOGICAL NAME IS DEFINED
;AS A SERIES OF FILE SPECS, AND ONE OF THE FILE SPECS IS PROTECTED.
;<4.UTILITIES>EDIT.MAC.177, 17-Nov-77 01:55:38, EDIT BY DBELL
;TCO 1878.  COPY PROTECTION OF ORIGINAL FILE TO NEW AND BACKUP FILES
;<4.UTILITIES>EDIT.MAC.176, 10-Nov-77 17:43:26, EDIT BY DBELL
;TCO 1877.  DON'T CLOSE INDIRECT FILE ON AN AUTO-SAVE
;<4.UTILITIES>EDIT.MAC.175,  9-Nov-77 14:35:57, EDIT BY DBELL
;TCO 1876.  SET GJ%NS WHEN CHECKING EXISTANCE OF OUTPUT FILE.
;<4.UTILITIES>EDIT.MAC.174, 31-Oct-77 17:42:33, EDIT BY DBELL
;FIX SKPNO1 TO NOT REREAD COMMENT CHARACTER
;<4.UTILITIES>EDIT.MAC.173, 31-Oct-77 15:57:05, EDIT BY DBELL
;IMPLEMENT EK COMMAND WHICH IS SAME AS EU BUT SUPPRESSES FORMFEEDS

;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1976,1977,1978,1979,1980 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

TITLE	EDIT - TOPS20 EDITOR
SUBTTL DEFINITIONS

WHOEDI==0	;LAST EDITED BY DML (DEC)
VEREDI==5
PATEDI==0	;PATCH LEVEL
MODEDI==^D256	;EDIT LEVEL

; EDITOR FOR THE DISK -- WORKS BY RECOPYING FILES USED

	SALL		;SUPPRESS MACRO XPANSIONS
	.HWFRMT		;READABLE LISTING
	IFNDEF .PSECT,<
	.DIRECT .XTABM>

IFNDEF CRYPSW,<CRYPSW==0	;FOR ENCRYPTED FILES>
IFNDEF EXTEND,<EXTEND==1	;FOR EXTENDED FEATURES>
IFNDEF PPNTSW,<PPNTSW==0	;FOR PRETTY PRINT FEATURES>

	SEARCH	MONSYM
    IFN CRYPSW,<
	.REQUIRE ENDECR.REL
    >

OPDEF	OCRLF	[OUTSTR [BYTE (7)15,12]]
OPDEF	CALL	[PUSHJ P,]
OPDEF	RET	[POPJ P,]
OPDEF	RETSKP	[JRST CPOPJ1]
OPDEF	PJRST	[JRST]
;ACS USED

JF=0	;TEMP FLAGS FOR JUSTIFY & PRETTY PRINT
T1=1	;TEMP REGISTERS
T2=2
T3=3
T4=4
T5=5

FL=10		;FLAG REGISTER
FL2=11
ALTP=12		;POINTER FOR ALTER MODE
CS=13		;CHARACTER TABLE BITS
SINDEX=14	;LINE TO FIND, USED ALSO BY THE VARIOUS ROUTINES
PNTR=15		;POINTS AT CURRENT PLACE IN BUFFER
C=16		;CHARACTER RETURNED HERE BY GNCH
P=17		;PUSHDOWN LIST

;FLAGS  (RIGHT HALF)

BOF==1		;NOW ON FIRST RECORD OF FILE
EOF==2		;HAVE READ END OF FILE BUT NOT NECESSARILY BUT IN BUFFER
EOF2==4		;LAST WORD OF FILE IS IN CURRENT BUFFER
ADDL==10	;USED IN COMMAND SCANNING--LINE NUMBER + INC
SUBL==20	;LINE NUMBER - INC
IDF==40		;SCAN HAS SEEN AN IDENTIFIER
NUMF==100	;SCAN HAS SEEN A NUMBER
TERMF==200	;SCAN SAW A TERMINATOR (LF OR ALTMODE)
LINSN==400	;THE COMMAND INPUT ROUTINES SAW A LINE NUMBER
PGSN==1000	;THEY SAW A PAGE NUMBER
NEWFL==2000	;NEW FILE NAME SEEN BY END CODE
ORDF==4000	;LINES OUT OF ORDER (USED BY NUMBER)
BGSN==10000	;BIGGEST PAGE HAS BEEN SEEN
M37F==20000	;THIS IS A MODEL 37
CNTF==40000	;COMMAND USING !
		;100000--UNUSED
READOF==200000	;THIS FILE IS BEING USED IN READ ONLY MODE
EXTOG==400000	;ON FOR SHORT ERROR MESSAGES

;SPECIAL FLAGS FOR PARSE CODE

F.LAHD==1	;LOOK-AHEAD FLAG

CODMAX==^D20	;MAX CHARS IN CODE
SFDLVL==6	;MAX SFD LVL

D==PNTR
S1==PNTR		;SPECIAL ACS
S2==SINDEX
;FLAGS (LEFT HALF)

NEGF==1		;SEARCH HAS SEEN A 
DEMCHR==2	;SEARCH MUST SEE ANOTHER CHARACTER
ASSMF==4	;SEARCH HAS ASSUMED SEARCH CONTINUATION
ALTSRF==10	;HE WANTS TO DO A SEARCH AND EDIT
NUMSRF==20	;HE ONLY WANTS NUMBERS OF LINES FOUND
ARBITG==40	;WE ARE DOING ^N CURRENTLY, DO NOT ALLOW ANOTHER
EXCTSR==100	;WANTS TO SEARCH EXACTLY (NOT IGNORE CASE)
COPFIL==200	;WE ARE COPYING FROM ANOTHER FILE
ISCOP==400	;WE ARE DOING A COPY
NOPRN==1000	;DO NOT PRINT WHILE DOING SUBSTITUTE
DECID==2000	;ALLOW USER TO DECIDE IF LINE IS OK
EXCTS1==4000	;ANOTHER EXACT SEARCH FLAG FOR SUBS
QMODF==10000	;DO NOT TREAT ? AS A SPECIAL CASE ON INPUT
GCOM==20000	;DOING A G COMMAND INSTEAD OF E
SRCOP==40000	;DOING A SEARCH OF SECOND FILE
TRANFL==100000	;THIS IS A TRANSFER COMMAND WHICH HAS DELETED LINES
TECOF==200000	;THIS IS A TECO FILE
FSTOPF==400000	;THIS IS THE FIRST READ OP ON THIS FILE

;FLAGS IN FL2 (RIGHT)

STARF==1	;WE HAVE SEEN A * FOR THE LAST LINE
RUBF==2		;WE ARE DOING RUBOUT IN INTRA-LINE EDIT
ALTDUP==4	;DUPLEX CHARACTERS IN ALTER MODE
RUBF2==10	;DOING DELETE TYPE RUBOUT IN ALTER MODE
SVIT==20	;WE ARE DOING A "W" COMMAND (SAVE WORLD)
NONUMF==40	;SUPPRESS LINE NOS FOR P,R,I CMDS
ACONST==100	;ADD CONSTANT FOR R COMMAND
MONOF==200	;MONOTONIC RENUMBERING - NO REST AT P.M.
ALTECH==400		;ECHO ESC FLAG
SUPN==1000	;SUPPRESS LISTING OF LINE NUMBERS
		;2000 OPEN
UPTOPF==4000	;GET NEW LINE AT TOP OF PAGE
QSEPF==10000	;TREAT . % $ AS SEPARATORS
COMFLF==20000	;READ COMMANDS FROM FILE
ADECIF==40000	;SAW A AS RESPONSE TO DECIDE MODE
BADORD==100000	;FILE BECAME OUT OF ORDER DURING COPY COMMAND

;FLAGS IN FL2 (LEFT)

PDECID==1	;PERM DECIDE MODE FOR S
UARWF==2	;UP ARROW (^) SEEN FOR FIRST LINE
SRCWHO==4	;(203) WHO IS SEARCHING ON=FIND OFF=SEARCH
NORENT==10	;DON'T ALLOW REENTER
RENTF==20	;REENTER COMMAND TYPED
BELLF==40	;ALLOW <BELL><BELL>
BELLSN==100	;<BELL> SEEN
AUTOF==200	;AUTO SAVE IN PROGRESS
EXACT==400	;(203) USED FOR EXACT SEARCHES
EXCPFL==1000	;(207) USETO MARK A COPY
DOENDF==2000	;E CMD REQUESTED OR NEEDED
INOPTF==4000	;READING OPTION FILE
INPARS==10000	;DOING INITIAL PARSE
PCHGF==20000	;FILE HAS CHANGED THIS PASS
FCHGF==40000	;FILE HAS CHANGED THIS EDIT
CCHGF==100000	;THIS COMMAND HAS CHANGED THE FILE

ALLCHG==PCHGF!FCHGF!CCHGF	;ALL FLAGS AFFECTING FILE CHANGE

;FLAGS FOR JF (RIGHT)

EJECT==1	;EJECT AFTER PAGES
WAIT==2		;WAIT FOR CR AFTER PAGES
PGNOS==4	;PAGE NUMBERS AT BOTTOM
OPDEF	ERROR	[1B8]	;ERROR UUOS FATAL ERROR
OPDEF	NERROR	[2B8]	;NON-FATAL ERROR
OPDEF	RERROR	[3B8]	;PRINT MESSAGE AND RETURN
OPDEF	JERROR	[4B8]	;JSYS ERROR CALL
OPDEF	FJERR	[5B8]	;FATAL JSYS ERROR
OPDEF	OUTSTR	[6B8]	;OUTPUT STRING TO TERMINAL
OPDEF	OUTCHR	[7B8]	;OUTPUT CHAR TO TERMINAL
OPDEF	INCHRW	[10B8]	;INPUT CHAR TO LOC
	MAXUUO==10
SRBLG==^D200	;NUMBER OF CHRS ALLOWED IN SEARCH STRING
SRNUM==6	;NUMBER OF SEARCH STRINGS ALLOWED
PDLSIZ==200	;PUSHDOWN LIST SIZE
MXWPL==^D500	;MAX NUMBER OF WORDS PER LINE

IBUF0==100000		;INPUT PAGE BUFFER
OBUF0==IBUF0+1000	;OUTPUT PAGE BUFFER
CPYPG0==OBUF0+1000	;COPY INPUT PAGE BUFFER
CPYBUF==CPYPG0+1000	;COPY BROWSE BUFFER
NCPYP==10		;SIZE OF ABOVE
LIBUF==177000		;LINE BUFFER
LIBUF2==176000		;AUX LINE BUFFER
TTIBUF==175000		;TTY INPUT BUFFER
ARBBUF==173000		;2 PAGES FOR PATTERN MATCHING
BUF0==200000		;MAIN EDIT WINDOW
MINPAG==4		;MINIMUM WINDOW SIZE
MAXPAG==377-<BUF0>B44+1	;MAXIMUM WINDOW SIZE
DEFPAG==12		;DEFAULT WINDOW SIZE IF NONE GIVEN
BUFC==400000		;TEMP STORAGE FOR COPY
NCPAGS==677-<BUFC>B44+1	;SIZE OF ABOVE

IFN EXTEND,<LSNUM==3	;NUMBER OF NESTED LINE SEARCHES ALLOWED>
%LPP==^D53		;LINES/PAGE FOR "L" CMD
PGSZ==^D55		;LINES / PAGE
FULLPG==^D65		;LINES TO NEXT PAGE

FILSIZ==^D24		;WORDS/FILESPEC
SUBTTL REVISION HISTORY
COMMENT \


EDIT #				REASONS
------				-------

1	CHANGED SOS INTO EDIT, CHANGING SYMBOLS, NOT COMMENTS

2	CHANGED BACKUP ROUTINE BACK TO SHORT FILE VERSION

3	Added two new commands: /? prints all the settable
	switches, and =? prints all the printable switches.

4	Re-inserted the LOCATION switch which somehow got
	lost.

5	Added ? to the Alter command.  It prints a list
	of all the valid Alter mode commands.

6	Added the subcommand to E which prints a VTECO-like
	identifying line at the top of your file if you exit
	with the option 'I'.  This feature is in under the
	FT10X switch.

7	CHANGED THE COMMAND DISPATCHER TO BE GENUINELY
	TABLE-DRIVEN.

10	MADE THE W AND Q COMMANDS TELL THE USER TO GIVE THE
	B AND EQ COMMANDS.  THE _ COMMAND TELLS THE USER TO
	GIVE THE / COMMAND.

11	Fixed a bug in the join logic, and fixed ? message.

12	Changed the TOPS-20 parser.  EDIT must be started
	by the TOPS-20 Exec, with the command in the
	RESCAN buffer.  In all other cases, the user gets:
	?You must type an input file specification.

13	The parameter CORSIZ has been added.  For TOPS-10
	programs, this parameter should be set to 3000(8);
	however for now we are setting virtual jobs at
	300000(8).  This is the number of words which will
	be in the 'core memory buffer'.  Refer to the routine
	MOCO (for getting more core).

14	Removed the ED feature which allowed the user to lose
	everything if he typed 'END'.  Also removed the EQ
	command and changed the help message.

15	put most of the code under setppn under the IFE FT10X
	conditional.

16	CONVERT TO TOPS20 MONITOR CALLS

17	FIX ^U PROBLEM IN READNM (SAVE PREVIOUS FILESPEC)
	FIX "FILE STILL MAPPED" PROBLEM IN OCOMPL

20	MAKE COPY BROWSE BUFFER 10 PAGES. CLEANUP ^O STUFF.

21	FIX WRAPAROUND ON /RO FILES THAT ARE UNSEQUENCED.
	MINOR FIX TO ^C INT WHEN NORENT IS ON. CHECK CREATF
	BEFORE TRYING TO MAKE A BAK FILE.

22	SET CORRECT FILE DATE AND TIMES UPON EXIT

23	ADD /WINDOW:N TO SPECIFY EDIT WINDOW SIZE, EJ COMMAND
	TO DO D^/^ , EI, ADD K<LF> TO ALTER MODE

24	HANDLE CHL 20 PSI AND OPENF FAILURES FOR DISK FULL OR
	QUOTA EXCEEDED. ADD CLEAR OUTPUT BUFFER ON ^C

25	REDO ERROR MESSAGE MACRO AND CODE ASSIGNMENT

26	SEE TCO FILE FROM NOW ON (ALSO FIRST COMMENT LINES)

\
	SUBTTL ENTRY VECTOR AND EXEC INTERFACE

EV::	JRST	STPT		;START ADDRS
	JRST	CNCREN		;REENTER ADDRS
	BYTE	(3)WHOEDI (9)VEREDI (6)PATEDI (18)MODEDI


CREFIT:	OCRLF			;INFORM USER ALL IS OK
	MOVEI	T1,1		;COUNT OF ARGS
	MOVEM	T1,LIBUF2	;STASH IN BUFFER
	SKIPN	T2,RUNFIL	;SEE IF FILE GIVEN
	JRST	[SETZM LIBUF2+2	;ZERO MEANS USE LAST LOAD CLASS CMD
		 MOVEI T3,1	;SIZE OF ARG
		 JRST CRFIT1]	;JOIN REST
	HRROI	T1,LIBUF2+2	;COPY STRING
	MOVEI	T3,0
	SOUT
	IBP	T1		;POINT AFTER TERMINATING NULL
	MOVEI	T3,1(T1)	;CALC SIZE
	SUBI	T3,LIBUF2+2	;IN WORDS
CRFIT1:	MOVE	T1,[4B2+17B12+2] ;CODE AND BUFFER OFFSET
	MOVEM	T1,LIBUF2+1	;...
	MOVE	T1,[.PRAST,,.FHSLF]
	MOVEI	T2,LIBUF2	;BUFFER ADDRS
	ADDI	T3,2		;ACCOUNT FOR OVERHEAD
	PRARG			;SET PARAMS
	HALTF			;ALL DONE
	JRST	.-1		;FOREVER


;A CHARACTER TABLE FOR USE ON TYPE IN AND TYPE OUT

;FLAGS USED IN CHARACTER TABLE

OPF==10		;THIS IS A SPECIAL CHARACTER
SNUMF==4	;THIS IS PART OF A NUMBER
LETF==2		;THIS IS A LETTER
TERM==1		;THIS IS A TERMINATOR
M37==400000	;THIS CHR IS PRINTED AS ITSELF ON MODEL 37
NSEPF==200000	;THIS IS NOT A SEPERATOR (USED ON $,%,AND.)
DEFINE CHRS (FLAGS,PALT,INALT,RH)
<BYTE (4) FLAGS (7) PALT,INALT(18)RH>

CTBL:	0
	CHRS	OPF,"!","",""
	CHRS	OPF,42,"",""
	CHRS	OPF,"#",3,3
	CHRS	OPF,"$",4,4
	CHRS	OPF,"%",5,5
	CHRS	OPF,"&",6,6
	CHRS	OPF,"'",7,7
	CHRS	OPF,<"(">,10,10
	0
	CHRS	OPF!TERM,0,12,12
	CHRS	OPF,0,13,13
	CHRS	OPF,0,14,14
	0
	CHRS	OPF,<")">,16,16
	CHRS	OPF,"*",17,17
	CHRS	OPF,"+",20,20
	CHRS	OPF,54,21,21
	CHRS	OPF,"-",22,22
	CHRS	OPF,".",23,23
	CHRS	OPF,"/",24,24
	CHRS	OPF,"0",25,25
	CHRS	OPF,"1",26,26
	CHRS	OPF,"2",27,27
	CHRS	OPF,"9",30,30
	CHRS	OPF,"6",31,31
	CHRS	OPF,"4",32,32
	CHRS	OPF,"=",33,33
	CHRS	OPF,74,34,34
	CHRS	OPF,76,35,35
	CHRS	OPF,"7",36,36
	CHRS	OPF,"8",37,37
	0
	CHRS	OPF,0,1,"!"
	CHRS	OPF,0,2,42
	CHRS	OPF,0,3,"#"
	CHRS	OPF,0,4,"$"+NSEPF
	CHRS	OPF,0,5,"%"+NSEPF
	CHRS	OPF,0,6,"&"
	CHRS	OPF,"'","'","'"
	CHRS	OPF,0,10,<"(">
	CHRS	OPF,0,16,<")">
	CHRS	OPF,0,17,"*"
	CHRS	OPF,0,20,"+"
	CHRS	OPF,0,21,54
	CHRS	OPF,0,22,"-"
	CHRS	OPF,0,23,"."+NSEPF
	CHRS	OPF,0,24,"/"
	CHRS	SNUMF,0,25,20
	CHRS	SNUMF,0,26,21
	CHRS	SNUMF,0,27,22
	CHRS	SNUMF,0,176,23
	CHRS	SNUMF,0,32,24
	CHRS	SNUMF,0,"5",25
	CHRS	SNUMF,0,31,26
	CHRS	SNUMF,0,36,27
	CHRS	SNUMF,0,37,30
	CHRS	SNUMF,0,30,31
	CHRS	OPF,0,174,":"
	CHRS	OPF,0,73,73
	CHRS	OPF,0,34,74
	CHRS	OPF,0,33,"="
	CHRS	OPF,0,35,76
	CHRS	OPF,0,37,"?"
	CHRS	OPF,0,140,"@"
XXZ=101
REPEAT ^D26,<CHRS	LETF,0,XXZ+40,XXZ-40
XXZ=XXZ+1>
	CHRS	OPF,0,173,<"[">
	CHRS	OPF,7,7,"\"	; CTRL-G PRINTS AS BELL
	CHRS	OPF,0,175,<"]">
	CHRS	OPF,0,"^","^"
	CHRS	OPF,0,"_","_"
	CHRS	OPF,100,140,140
XXZ=141
REPEAT ^D26,<CHRS	LETF,XXZ-40,XXZ,XXZ-100
XXZ=XXZ+1>
	CHRS	OPF,<"[">,173,173+M37
	CHRS	OPF,":",174,174+M37
	CHRS	OPF,<"]">,175,175+M37
	CHRS	OPF,"3",176,176
	CHRS	OPF,"\",177,177
	CHRS	OPF,0,0,200

SUBTTL SCANNER
GNCH:	SKIPN	C,LIMBO		;USE SAVED CHAR IF ANY
	PUSHJ	P,@CHIN		;ELSE GET FRESH CHAR
	SETZM	LIMBO		;AND CLEAR LIMBO
	CAMN	C,ESC		;CHECK ESCAPE CHAR
	MOVEI	C,200		;CONFUSE WITH LEFT CURLY BRACKET
	TLNE	FL,QMODF	;SHOULD WE TREAT ' SPECIALLY
	JRST	GNCH1Y		;NO:
	CAIN	C,"'"		;YES: SHOULD WE USE ALT CHR SET?
	JRST	GNCHA		;YES:
GNCH1Y:	TDNN	FL2,[INOPTF,,COMFLF]
	TLNN	FL2,BELLF		;ALLOWED?
	JRST	GNCHB		;NO: JUST GET BITS
	CAIN	C,7		;YES: SEE IF BELL
	JRST	[TLO FL2,BELLSN	;SAY WE SAW ONE
		 JRST GNCHA]	;AND LOOK AT NEXT
GNCHB:	JUMPE	C,GNCH		;IGNORE NULLS
	MOVE	CS,CTBL(C)	;GET CHARACTER TABLE BITS
	TLNE	CS,LETF_16	;CHECK TO SEE IF A LETTER
	TDC	C,CASEBT	;USE UPPER/LOWER INFO
	POPJ	P,		;AND RETURN

GNCHA:	PUSHJ	P,@CHIN		;GET NEXT CHAR
	JUMPE	C,GNCHA		;SKIP NULLS
	TLZE	FL2,BELLSN	;WAS 1ST BELL SEEN
	JRST	[CAIN C,7	;YES: CHECK FOR 2ND
		 JRST [OCRLF	;2ND SEEN - PUNT
		       CALL CLRBFI
		       JRST COMND]
		 MOVEM C,LIMBO	;SAVE CHAR
		 MOVEI C,7	;RETURN A BELL
		 JRST GNCHB]
	SKIPE	CTBL(C)		;NO CHANGE FOR NULL,SPACE,TAB,CRET
	MOVS	C,CTBL(C)	;GET ALTERNATE CHR FROM CHR TABLE
	ANDI	C,177		;ONLY THE CHR BITS
	JRST	GNCHB		;GO CHECK THINGS
;HERE TO INPUT FROM TTY

TTYCH:	SOSG	TTICNT		;SEE IF MORE CHARS
	CALL	TTYINP		;NO - GET SOME MORE
	ILDB	C,TTIPNT	;GET CHAR
	JUMPE	C,TTYCH		;SKIP OVER NULLS
	TRNE	FL2,ALTECH	;ESC ECHO?
	CAME	C,ESC		;IS IT
	RET			;NO - JUST RETURN
	PUSH	P,T1		;SAVE T1
	MOVEI	T1,"$"
	PBOUT			;DUMP DOLLAR
	PJRST	T1POPJ		;RESTORE T1 & EXIT

TTYINP:	PUSH	P,T1		;SAVE T1
TTYIN0:	HRROI	T1,TTIBUF	;POINT TO BUFFER
	MOVEM	T1,TEXTIB+.RDDBP
	MOVSI	T1,(RD%TOP!RD%JFN!RD%RND)
	MOVEM	T1,TEXTIB+.RDFLG	;SET FLAGS
	MOVEI	C,5*MXWPL+2	;COUNT OF CHARS
	MOVEM	C,TEXTIB+.RDDBC
	MOVEI	T1,TEXTIB	;POINT TO ARG BLOCK
	TEXTI			;SNARF SOME
	  FJERR			;FATAL JSYS ERROR
	MOVE	T1,TEXTIB+.RDFLG ;GET FLAGS
	TLNE	T1,(RD%BFE)	;BUFFER EMPTY?
	JRST	TTYNUL		;YES - PROCESS NULL INPUT
	SUB	C,TEXTIB+.RDDBC	;GET CHAR COUNT
	MOVEM	C,TTICNT	;SETUP COUNT
	MOVE	T1,[POINT 7,TTIBUF]
	MOVEM	T1,TTIPNT	;RESET POINTER
	PJRST	T1POPJ		;RESTORE T1

;HERE ON EITHER ^U OR RUBOUT BEYOND BEGINNING OF BUFFER

TTYNUL:	PUSH	P,T2		;SAVE EXTRA REG
	MOVEI	T1,.PRIOU	;USE OUTPUT JFN
	RFPOS			;GET POSITION
	MOVE	T1,T2		;COPY TO T1
	POP	P,T2		;RESTORE T2
	TRNE	T1,-1		;LEFT MARGIN?
	JRST	[OUTCHR [7]	;NO - RING BELL AND TRY AGAIN
		 JRST TTYIN0]
	SKIPE	T1,FSFLG	;IN F/S OR COPY COMMAND
;**;[247]	Change 1 line at TTYNUL:+9		DML	23-NOV-82
	JRST	CTLUAB		;[247] PRINT ABORT MESSAGE
	OUTSTR	CRBUF		;OUTPUT PROMPT
	JRST	TTYIN0		;AND TRY AGAIN

;**;[247]	Add 3 lines at CLRBFI:-1		DML	23-NOV-82
CTLUAB:	OUTSTR	[ASCIZ "Aborted..."]  ;[247] PRINT MESSAGE
	OCRLF			;[247] OUTPUT CRLF
	JRST	COMND		;[247] RETURN TO COMMAND LOOP

CLRBFI:	PUSH	P,T1		;SAVE T1
	MOVEI	T1,.PRIIN	;ONLY CLEAR PRIMARY INPUT
	CFIBF
	PJRST	T1POPJ

NOECHO:	PUSH	P,T3		;SAVE STUFF
	MOVEI	T3,0		;ECHO STATUS FLAGS
	MOVEM	T3,ECFLG	;(194) SET ECHO FLAG
	JRST	ECHOST		;JOIN COMMON CODE

DOECHO:	PUSH	P,T3		;SAVE T3
	MOVEI	T3,2		;TURN ECHO ON
ECHOST:	PUSH	P,T1		;SAVE OTHER REGS
	PUSH	P,T2
	MOVEI T1,.PRIOU		;PRIMARY OUTPUT
	DPB T3,[POINT 2,MODW,25] ;SET FLAGS
	MOVE T2,MODW
	SFMOD			;...
	POP	P,T2		;RESTORE REGS
	POP	P,T1
	POP	P,T3
	RET			;RETURN
;SUBROUTINE TO SCAN NEXT ATOM
;CALL:
;	PUSHJ	P,SCAN
;	<RETURN HERE>
;C(ACCUM) := SIXBIT ATOM
;C(T1)    := ASCII SEQ NUMBER FORM
;C(T2)    := DECIMAL INTEGER
;C(C)     := BREAK CHAR OR SPACE IF IDENT.

SCAN:	TRZ	FL,TERMF!NUMF!IDF ;RESET FLAGS
	SKIPE	CS,SAVCHR	;CHECK TO SEE IF WE LEFT ONE LAST TIME
	JRST	SL1		;YES, IT MUST BE A DELIMITER
	SKIPN	C,SAVC		;BACK UP A CHARACTER?
	JRST	SL10		;NO
	PUSHJ	P,GNCHB		;YES, GET BITS
	TLNN	FL2,INPARS	;HANDLE SPECIAL IF IN PARSE
	JRST	SL11		;NOT IN INITIAL PARSE
	SETZM	SAVC
	SETZM	SAVCHR
	POPJ	P,		;RETURN IF SPACE DELIM
SL10:	PUSHJ	P,GNCH		;GET A CHR
SL11:	SETZM	SAVC
	JUMPE	CS,SL10		;CHECK FOR TAB, SPACE, AND IGNORE
	JUMPL	CS,SL1		;SPECIAL CHARACTER?
	MOVE	T3,[POINT 6,ACCUM] ;SET TO SAVE IDENT
	SETZM	ACCUM
	TLNE	CS,SNUMF_16	;CHECK FOR NUMBER
	JRST	SNUM1		;AND GO RACING OFF TO NUMBER ROUTINE
SL2P:	TRO	FL,IDF		;IT IS AN IDENT
SL2:	TLNE	T3,770000	;HAVE WE STORED ENOUGH?
	IDPB	CS,T3		;NO, STORE ANOTHER (RH OF CHR TABLE HAS SIXBIT)
	PUSHJ	P,GNCH		;CONTINUE
	JUMPG	CS,SL2		;CHECK FOR ANOTHER NUMBER OR LETTER
SOK1:	MOVEM	CS,SAVCHR	;SAVE THE CHARACTER (MUST BE A SPECIAL CHR)
	TLNE	FL2,INPARS
	JRST	[MOVEM C,SAVC	;SAVE HERE IF IN PARSE
		 SETZB C,SAVCHR
		 POPJ P,]
	MOVEI	C,0		;ZERO IN C FOR NUMBERS AND IDNETS
	POPJ	P,

SL1:	HRRZ	C,CS		;FOR SPECIAL CHARACTERS, RETURN RH OF CTABLE
	TLNE	CS,TERM_16	;CHECK FOR TERMINATOR
	TRO	FL,TERMF	;AND SET FLAG
	ANDI	C,377		;GET RID OF EXTRA BITS
	SETZM	SAVCHR		;ZERO SAVCHR FOR LATER
	CAIE	C,"."		;CHECK FOR .
	POPJ	P,		;NO RETURN
	MOVE	T1,CLN		;SET UP FOR CURRENT LINE AND PAGE
	MOVE	T2,CPGL
	TRO	FL,NUMF		;CALL IT A NUMBER
	POPJ	P,
SNUM1:	SETZB	T1,T2		;SET NUMBER ACCUMS TO 0
SN1A:	TLNE	T3,770000	;WILL STORE THE SIXBIT FOR FILE NAMES
	IDPB	CS,T3		;BUT ONLY IF LESS THAN 6
SN1B:	TLNE	T1,(<177B7>)	;CHECK FOR 5 CHARS
	JRST	SN1C		;5 ALREADY
	LSH	T1,7		;ACCUMULATE ASCII IN T1
	IOR	T1,C
SN1C:	IMULI	T2,^D10		;DECIMAL IN T2
	ADDI	T2,-"0"(C)
	PUSHJ	P,GNCH		;GET NEXT AND CONTINUE
	JUMPLE	CS,SOK2		;CHECK FOR END OF NUMBER
	TLNN	CS,SNUMF_16	;CHECK FOR NUMBER
	JRST	SL2P		;MUST BE AN IDENT
	JRST	SN1A		;CONTINUE SCANNING NUMBER

SOK2:	TRO	FL,NUMF		;IT WAS A NUMBER
	LSH	T1,1		;CONVERT TO LINE NUMBER
	IOR	T1,[<ASCII /00000/>!1]
	JRST	SOK1		;SAVE DELIM AND RETURN

SUBTTL PLACE FINDING ROUTINES
;FIND-- PAGE TO FIND IS IN DPG. NUMBER TO FIND IS IN SINDEX.
;LOADS T1 WITH THE LINE NUMBER FOUND
;IF NO EXACT MATCH WILL FIND NEXT HIGHER NUMBER OR A PAGE MARK.
;IF EOF FOUND, RETURNS 0

FIND:	MOVE	T1,DPG		;GET THE DESIRED PAGE
	CAMLE	T1,CPG		;IS IT GREATER THAN THE PAGE WE ARE ON
	JRST	FWDPG		;YES, SEARCH FORWARD FOR PAGE
	CAML	T1,CPG		;IS IT THE SAME AS THE CURRENT PAGE?
	JRST	FEQPG		;YES, JUST SEARCH FOR LINE NUMER
	SUBI	PNTR,1		;BACK UP A LITTLE (IN CASE POINTED AT PAGE MARK)
FIND1:	PUSHJ	P,CHKREN	;SEE IF REENTER
	JRST	FNDONE		;YES: FINISH UP
	SKIPN	T1,(PNTR)	;GET THE WORD, BUT WATCH FOR START OF BUFFER
	JRST	FINDHD		;WILL HAVE TO FINISH COPY AND START OVER
	CAME	T1,PGMK		;IS IT A PAGE MARK?
	SOJA	PNTR,FIND1	;CONTINUE SEARCHING
	SOS	T1,CPG		;DECREASE THE PAGE WE ARE NOW ON
	CAME	T1,DPG		;IS IT THE RIGHT ONE YET?
	SOJA	PNTR,FIND1	;NO, KEEP SEARCHING
	SUBI	PNTR,1		;BACK OVER PAGE MARK
FIND2:	PUSHJ	P,CHKREN	;REENTER?
	JRST	FNDONE		;YES:
	SKIPN	T1,(PNTR)	;PICK UP WORD AND CHECK FOR START OF BUFFER
	JRST	FINDHD		;HAVE TO DO IT THE HARD WAY
	TRNN	T1,1		;IS IT A SEQUENCE NUMBER?
	SOJA	PNTR,FIND2	;NO, CONTINUE SEARCH
	CAMN	T1,PGMK		;IS IT PERHAPS A PAGE MARK?
	AOJA	PNTR,FNDFW1	;YES, GO FORWARD A LINE AND RETURN IT
	CAMGE	SINDEX,T1	;IS THE LINE WE WANT GREATER OR EQUAL TO THIS ONE
	SOJA	PNTR,FIND2	;NO, KEEP UP THE GOOD WORK
	CAMN	SINDEX,T1	;EXACT MATCH?
	POPJ	P,		;YES, RETURN
	JRST	FNDFW1		;GO FORWARD A LINE TO GET NEXT LARGER
FEQPG:	SKIPN	T1,(PNTR)	;CHECK THE WORD WE ARE POINTING AT
	JRST	FNDFOO		;MUST BE POINTING AT END OF BUFFER OR BUFFER EMPTY
	CAMN	T1,PGMK		;IS IT A PAGE MARK?
	SOJA	PNTR,FIND2	;MUST BE ONE AT END OF PAGE, SEARCH BACKWARDS
FEQPG1:	CAMGE	SINDEX,T1	;COMPARE TO LINE WE WANT
	JRST	FIND2		;WANT A SMALLER ONE, SEARCH BACK
	JRST	FNDFW1		;SEARCH FORWARD

FWDPG:	PUSHJ	P,CHKREN	;REENTER?
	JRST	FNDONE		;YES:
	SKIPN	T1,(PNTR)	;SEARCH FORWARD FOR PAGE
	JRST	FNXRCP		;END OF BUFFER, GET A NEW ONE
	CAME	T1,PGMK		;FOUND A PAGE MARK?
	AOJA	PNTR,FWDPG	;NO, CONTINUE
	AOS	T1,CPG		;ADVANCE CURRENT PAGE COUNT
	CAME	T1,DPG		;AND SEE IF WE ARE THER YET
	AOJA	PNTR,FWDPG	;NUTS, LOOK SOME MORE
	ADDI	PNTR,1		;ADVANCE BEYOND PAGE MARK
FNDFW1:
FIND3:	PUSHJ	P,CHKREN	;REENTER?
	JRST	FNDONE		;YES:
	SKIPN	T1,(PNTR)	;LOOK FOR LINE
	JRST	FNXRC		;END OF RECORD, GET A NEW ONE
	TRNN	T1,1
	AOJA	PNTR,FIND3	;NOT LINE NUMBER
	CAMN	T1,PGMK		;PAGE MARK
	POPJ	P,		;RETURN IT, IT IS BEST MATCH WE CAN FIND
	CAMLE	SINDEX,T1	;ARE WE THERE YET?
	AOJA	PNTR,FIND3	;NO, CONTINUE SEARCH
	POPJ	P,		;YES, FINALLY

FNDFOO:	CAMN	PNTR,BUFP	;ARE WE POINTED TO START OF BUFFER
	JRST	FDFOO1		;YES, BUFFER MUST BE EMPTY
	SUBI	PNTR,1		;NO, MUST HAVE BEEN AT END OF BUFFER
FDFOO2:	SKIPN	T1,(PNTR)	;GET WORD
	ERROR	ICN		;MUST BE CONFUSED, THERE SHOULD BE A LINE NUMBER
	TRNN	T1,1		;SEARCH FOR LINE NUMBER
	SOJA	PNTR,FDFOO2	;KEEP LOOKING
	CAMN	T1,PGMK		;IS IT A PAGE MARK
	AOJA	PNTR,FNDFW1	;YES, SEARCH FORWARD
	JRST	FEQPG1		;GO DO SOMETHING WITH IT
FDFOO1:	TRNE	FL,EOF2		;ARE WE AT END OF FILE?
	JRST	FINDHD		;WILL HAVE TO TRY FROM START
	PUSHJ	P,GETN		;GET THE NEXT BUFFER
	JRST	FEQPG

;HERE TO SAY WE HAVE BEEN INTERUPTED

FNDONE:	JRST	COMND		;JUST GO TO CMD LOOP FOR NOW
FNXRCP:	TRNE	FL,EOF2		;ARE WE AT END OF FILE
	JRST	FNX1		;YES, JUST RESET BGPG AND LOOK AGAIN
	PUSHJ	P,GETN		;GET THE NEXT BUFFER
	JRST	FWDPG		;AND CONTINUE SEARCH
FNX1:	MOVE	T1,CPG		;SET BGPG TO CURRENT PAGE
	MOVEM	T1,BGPG
	TRO	FL,BGSN		;RECORD THAT LARGEST PAGE SEEN
	MOVEI	T1,0		;RETURN 0 FOR EOF
	POPJ	P,

FNXRC:	TRNE	FL,EOF2		;ARE WE AT END OF FILE
	JRST	FNX1		;YES, GIVE HIM BACK THE 0
	PUSHJ	P,GETN		;NO, GET THE NEXT BUFFER
	JRST	FIND3		;AND CONTINUE LOOKING FOR LINE

FINDHD:	TRNE	FL,BOF		;ARE WE AT THE START OF THE FILE
	JRST	FNDFST		;YES, CAN NOT GO BACK JUST GIVE FIRST LINE OF FILE
	TLNE	FL,COPFIL	;IS THIS A COPY?
	JRST	FINDH4		;YES: DON'T RELEAS IN & OUT
	TRNE	FL,READOF	;ALSO HANDLE SPECIAL IF RO
	JRST	FINDH
	PUSHJ	P,OCOMPL	;FINISH COPYING FILE
	TLNN	FL2,PCHGF	;ANY CHANGES THIS PASS?
	JRST	[CALL DELOUT	;DELETE OUTPUT FILE
		 JRST FINDHB]
FINDH:	SKIPE	AUXFLG
	JRST	[MOVE T1,ICRJFN	;CURRENT INPUT JFN
		 CALL DOCLSF	;CLOSE IT (RETAIN JFN)
		 CALL DDELFR	;FLUSH IT
		 SETZM ICRJFN	;ITS GONE
		 SETZM AUXFLG	;(222)CLEAR AUXFLG
		 JRST .+1]
	TRNE	FL,READOF	;READ-ONLY ?
	JRST	FINDH2		;YES - THIS IS FAST
	SKIPE	T1,ICRJFN	;CLOSE FILE
	CALL	DOCLSR		;...
	SETZM	ICRJFN		;(222)CLEAR JFN STORAGE
	PUSHJ	P,OUTFIN	;PURGE BUFFER
	HRROI	T1,[ASCIZ "EDIT-BUFFER.IN"]
	HRROI	T2,ICRASZ
	CALL	MAKTMP		;MAKE TEMP FILE SPEC
	HRROI	T2,ICRASZ	;MAKE PNTR TO NAME
	MOVEM	T2,ICRFIL	;...
	MOVSI	T1,(GJ%SHT!GJ%TMP!GJ%FOU)
	PUSHJ	P,GTJFNX	;GET JFN FOR NEW INPUT
	  FJERR
	SETOM	AUXFLG		;WE HAVE AN AUX FILE
	MOVEM	T1,ICRJFN	;...
	MOVE	T1,OCRJFN	;CURRENT OUTPUT JFN
	MOVE	T2,ICRJFN	;JFN OF DEST FILE
	RNAMF			;RENAME OUTPUT FILE
	  FJERR			;FATAL JSYS ERROR
	SETZM	OCRJFN		;(222)CLEAR JFN STORAGE
IFN CRYPSW,<
	MOVE T1,OCRCOD		;INPUT CODE IS NOW
	MOVEM T1,ICRCOD		; OLD OUTPUT CODE
>
FINDH1:	MOVEI	T1,IBUF0	;SET UP BUFFER PNTR
	MOVEM	T1,CIPBUF
	MOVE	T1,ICRJFN	;INPUT JFN
	MOVEM	T1,CIPJFN	;CORRECT BLOCK
	MOVE	T2,[7B5+OF%RD]
	OPENF			;OPEN IT
	  FJERR			;LOASGE
	PUSH	P,ALTP		;SAVE ALT PNTR
	MOVEI	ALTP,CIPB	;INPUT BLOCK
	CALL	GFSIZE		;NEW INPUT FILE SIZE
	POP	P,ALTP		;RESTORE PNTR
FINDHB:	MOVSI	T1,(GJ%FOU!GJ%TMP!GJ%SHT)
	MOVE	T2,OCRFIL	;PNTR TO FILESPEC
	PUSHJ	P,GTJFNX	;GET NEW JFN
	  FJERR
	MOVEM	T1,OCRJFN	;SAVE
	MOVEI	T2,OF%WR	;OPEN FOR WRITE, FULL WORDS
	MOVEM	T1,OPNJFN	;SAVE FOR OPNERR
	OPENF
	  CALL	OPNERR		;CHECK FAILURE
	SETZM	OPG		;OUTPUT PAGE CNTR
	MOVNI	T1,2
	MOVEM	T1,OPCNT	;OUTPUT FILE PAGE COUNT
	SETZM	OUPNT		;OUTPUT FILE PNTR
FINDH2:	SETOM	CIPCNT		;INIT PAGE CNTR
	SETZM	CIPPNT		;CLEAR BUFFER
	SETZM	CIPBYT		;...
FINDH3:	SETZM	WC		;WC STARTS OUT 0
	TDZ	FL,[TECOF,,EOF!EOF2]
	TDO	FL,[FSTOPF,,BOF]
	TLNN	FL,COPFIL	;DON'T HURT THIS FLAG IF IN COPY
	TLZ	FL2,PCHGF	;NO CHANGES YET
	MOVEI	T1,1		;SET UP INPUT PAGE IN CASE OF
	MOVEM	T1,INPG		;ORDER OR LTL ERRORS ON INPUT
	SETZM	SVWD
	SETZM	OLDLIN		;USED IN CHECKING INPUT ORDER OF LINES
	PUSHJ	P,FILLBF	;FILL UP THE BUFFER
	MOVEI	T1,1
	MOVEM	T1,CPG		;START ON PAGE 1
	MOVE	PNTR,BUFP	;SET PNTR TO START OF WORLD
	JRST	FIND		;AND GO LOOKING

FNDFST:	MOVE	T1,@BUFP	;GET FIRST WORD
FNDFS1:	MOVE	PNTR,BUFP	;SET TO START OF WORLD
	POPJ	P,		;AND DISMISS

FINDH4:	SETOM	AIPCNT		;RESET INPUT PAGE COUNT
	SETZM	AIPPNT		;AND EMPTY BUFFER
	SETZM	AIPBYT		;...
	JRST	FINDH3
;FIND THE NEXT LINE, PAGE MARK, ETC.

FINDN1:	SKIPN T1,(PNTR)
	JRST FINDN2
	TRNN T1,1
FINDN:	AOJA PNTR,FINDN1
	POPJ P,		;RETURN THE LINE

FINDN2:	TRNE FL,EOF2	;IS IT EOF?
	POPJ P,		;YES, RETURN PRESENT T1 (0 FOR EOF)
	PUSHJ P,GETN	;GET NEXT BUFFER
	JRST FINDN1	;GO LOOK SOME MORE



FINDZ1:	SKIPN T1,(PNTR)	;AS FINDN BUT STOPS AT END OF RECORD
	POPJ P,
	TRNN T1,1	;LINE NUMBER?
FINDZ:	AOJA PNTR,FINDZ1
	POPJ P,



;FIND THE PREVIOUS LINE

FINDB1:	SKIPN T1,(PNTR)	;WATCH OUT FOR START OF BUFFER
	JRST FINDB2
	TRNN T1,1	;LINE NUMBER?
FINDB:	SOJA PNTR,FINDB1	;TRY AGAIN
	CAMN T1,PGMK	;TEST FOR PAGE MARK
	SOS CPG		;NOW ON PREVIOUS PAGE
	POPJ P,		;RETURN LINE NUMBER

FINDB2:	TRNE FL,BOF	;AT START OF FILE?
	JRST FINDB3	;(210) YES, GO GET THE FIRST LINE OF FILE
	MOVE T1,1(PNTR)	;GET THE FIRST LINE ON THIS PAGE
	TRNN T1,1	;MAKE SURE THERE IS ONE THERE
	ERROR ICN	;NO, WE ARE CONFUSED
	PUSH P,SINDEX	;SAVE (CALLER MAY NEED IT)
	MOVE SINDEX,T1
	PUSHJ P,FINDHD	;THIS WILL WORK AND WE WILL HAVE A LITTLE SPACE BEFORE
	POP P,SINDEX	;GET THIS BACK
	SOJA PNTR,FINDB1	;GO LOOK BACK AGAIN

;**;[244]	Change 1 line at FINDB3:		DML	9/29/82
FINDB3:	TRNN	FL2,UPTOPF	;[244](210) IS THIS AN I COMMAND
	JRST	FNDFS1		;(210) NO JUST GET FIRST LINE
	CAMN	T1,[<ASCII /00000/>!1] ;(210) DOES LINE 00000 EXIST?
	NERROR	ILR		;(210) YES GIVE ERROR
;**;[242]	insert two lines after FINDB3+3		DML	9/17/82
	TRNE	FL2,UPTOPF	;[242] IS THIS AN INSERT
	TRNN	FL2,STARF	;[242] YES, IT IS AN I*, USE LINE = START
	CAMLE	T1,TECFST	;(210) NO, IS THIS <= START PARAMETER?
	JRST	[MOVE T1,TECFST
		 JRST FINDB4]	;(210) NO USE LINE = START
	MOVE	T2,[<ASCII /00000/>!1] ;(210) YES GET AVERAGE FOR NEW ONE
	MOVE	T1,SINDEX	;(210) SET TO START LINE
	MOVE	SINDEX,[<ASCII /00000/>!1] ;(210) SET TO LINE 00000
	PUSHJ	P,ASCAV		;(210) AVERAGE 0 AND FIRST LINE
	MOVE	T1,T2		;(210) SAVE AVERAGE IN T1
FINDB4:	MOVE	SINDEX,T1	;(210) SAVE RESULT IN SINDEX
	JRST	FNDFS1		;(210) ALL DONE GET POINTER

SUBTTL BUFFER HANDLING ROUTINES

SUBTTL BUFFER HANDLING ROUTINES
OCOMPL:	TLNN	FL2,PCHGF	;SEE IF NEEDED
	JRST	[MOVEI T2,<IBUF0>B44
		 PJRST UNMAP]	;UNMAP PAGE AND RETURN
OCOMP0:	MOVE	T1,WC		;GET CURRENT WORD COUNT
	ADD	T1,BUFP		;TURN IT INTO A POINTER
	PUSHJ	P,DUMP		;DUMP DUMPS BUFFER FROM BUFP TO (T1)
	SETZM	WC		;TELL IT NO CURRENT WORD COUNT
	TRNE	FL,EOF2		;ALL DONE?
	POPJ	P,
	PUSHJ	P,FILLBF	;FILL UP INPUT BUFFER
	PUSHJ	P,CHKREN	;DID WE REENTER?
	JRST	COMND		;YES: GO TO COMMAND LOOP
	JRST	OCOMP0		;AND GO DUMP THIS ONE TOO



GETWD:	TRNE	FL,EOF
	JRST	RTEOF		;RETURN 0 IF EOF
	PUSH	P,ALTP		;SAVE PNTR
	MOVEI	ALTP,CIPB	;ASSUME CURRENT INPUT BLOCK
	TLNE	FL,COPFIL	;IN A COPY, WE GET FROM SOMEWHERE ELSE
	MOVEI	ALTP,AIPB	;USE ALT INPUT BLOCK
GETWD0:	MOVE	T3,PNT(ALTP)	;GET PNTR
	AOBJP	T3,GETDO	;GET INPUT IF NECESSARY
	MOVEM	T3,PNT(ALTP)	;RESTORE NEW VALUE
GETWD1:	MOVE	T3,0(T3)	;GET NEXT WORD
	JUMPE	T3,GETWD0	;IGNORE 0 WORDS
	POP	P,ALTP		;RESTORE PNTR
	RET			;RETURN

GETDO:	PUSH	P,T1		;SAVE REGS
	PUSH	P,T2
	AOS	T1,CNT(ALTP)	;GET NEXT PAGE #
	HRL	T1,IJFN(ALTP)	;INPUT JFN
	RPACS			;SEE IF PAGE EXISTS
	TLNN	T2,(PA%PEX)	;???
	JRST	GTEOF		;NO - RETURN EOF
	HRRZ	T2,BUF(ALTP)	;BUFFER ADDRS
	LSH	T2,-^D9		;CONVERT TO PAGE #
	HRLI	T2,.FHSLF	;FORK HANDLE
	MOVSI	T3,(PM%RD!PM%CPY) ;READ ACCESS
	PMAP			;GET PAGE
	MOVNI	T3,0(T1)	;- PAGE #
	IMULI	T3,1000		;TIMES WORDS / PAGE
	ADD	T3,FSZ(ALTP)	;INPUT FILE EOF BYTE #
	MOVNS	T3		;- COUNT BEYOND HERE
	CAMGE	T3,[-1000]	;CHECK MAX
	MOVNI	T3,1000		;MAX ALLOWED
	HRLS	T3		;-WC,,0
	HRR	T3,BUF(ALTP)	;POINT TO BUFFER BEGINNING
	MOVEM	T3,PNT(ALTP)	;SAVE
IFN CRYPSW,<
	MOVE T1,PNT(ALTP)	;BUFFER PNTR
	HRRZ T2,CNT(ALTP)	;PAGE #
	MOVE T3,ICRCOD		;ASSUME CURRENT INPUT
	TLNE FL,COPFIL
	MOVE T3,ALTCOD		;NO - USE ALT INPUT
	PUSHJ P,CRYPT.##
	MOVE T3,PNT(ALTP)	;RESTORE PNTR
>
	POP	P,T2		;RESTORE REGS
	POP	P,T1
	JRST	GETWD1		;GET WORD

GTEOF:	HRRZ	T2,BUF(ALTP)	;GEN BUFFER PAGE #]
	LSH	T2,-^D9
	CALL	UNMAP		;REMOVE BUFFER
	POP	P,T2		;RESTORE REGS
	POP	P,T1		;...
	POP	P,ALTP		;PRUNE THIS ALSO
RTEOF1:	TRO	FL,EOF		;SET EOF FLAG
RTEOF:	MOVEI	T3,0		;RETURN ZERO
	RET			;...

;ROUTINE TO REMOVE PAGE SPECIFIED BY T2

UNMAPL:	PUSH	P,T1		;SAVE T1
	LSH	T2,-^D9		;CONVERT TO PAGE #
	CALL	UNMAP		;UNMAP IT
	POP	P,T1		;RESTORE T1
	RET			;RETURN

UNMAPO:
IFN CRYPSW,<
	MOVE T1,[-1000,,OBUF0]
	HRRZ T2,OPCNT		;LAST PAGE #
	AOS T2			;...
	MOVE T3,OCRCOD
	PUSHJ P,CRYPT.##	;ENCRYPT
>
	MOVEI	T2,<OBUF0>B44	;OUTPUT BUFFER PAGE
UNMAP:	HRLI	T2,.FHSLF	;FORK HANDLE
	MOVNI	T1,1		;SAY DELETE IT
	MOVEI	T3,0		;NO STATUS
	PMAP			;DO IT
	RET			;RETURN
;CHARACTER INPUT ROUINTE

GCHAR:	TRNE	FL,EOF		;CHECK EOF SEEN
	JRST	RTEOF
	PUSH	P,ALTP		;SAVE PNTR
	MOVEI	ALTP,CIPB	;ASSUME PRIMARY INPUT
	TLNE	FL,COPFIL	;USING ALTERNATE INPUT
	MOVEI	ALTP,AIPB	;YES - USE ALTERNATE
GCHAR0:	SOSLE	BYT(ALTP)	;CHECK CHARS LEFT
GCHAR1:	JRST	[ILDB T3,TXT(ALTP) ;GET ONE
		 JUMPE T3,GCHAR0 ;SKIP OVER NULLS
		 POP P,ALTP
		 RET]		;RETURN
	PUSH	P,T1		;NEED MORE - SAVE REGS
	PUSH	P,T2
	MOVE	T1,IJFN(ALTP)	;JFN TO USE
	HRRO	T2,BUF(ALTP)	;WHERE TO PUT INPUT
	MOVNI	T3,1000*5	;CHARS TO READ (PAGE)
	SIN			;SLURP!
	ADDI	T3,1000*5	;SEE HOW MANY READ
	JUMPE	T3,[POP P,T2	;RESTORE PDL
		    POP P,T1
		    POP P,ALTP
		    JRST RTEOF1]
	MOVEM	T3,BYT(ALTP)	;SAVE COUNT
	HRRZ	T3,BUF(ALTP)	;BUFFER ADDRS
	HRLI	T3,(POINT 7,,)	;FORM BP
	MOVEM	T3,TXT(ALTP)	;PNTR TO BUFFER
	POP	P,T2		;PRUNE PDL
	POP	P,T1
	JRST	GCHAR1		;AND EXIT
OUTWDZ:	MOVEI	T3,0		;OUTPUT A WORD OF ZEROES
OUTWD:	PUSH	P,T1		;SAVE T1
	MOVE	T1,OUPNT	;OUTPUT PNTR
	AOBJP	T1,OUTDO	;DUMP IF FULL
OUTWD1:	MOVEM	T3,0(T1)	;LOAD BUFFER
	MOVEM	T1,OUPNT	;RESTORE PNTR
	POP	P,T1		;PRUNE STACK
	RET			;EXIT

OUTDO:	PUSH	P,T2		;SAVE T2
	PUSH	P,T3		;AND WORD
	AOSGE	T1,OPCNT	;OUTPUT PAGE CNT
	JRST	[HRLZ T1,OCRJFN	;INIT PAGE 0
		 JRST OUTDO1]
IFN CRYPSW,<
	MOVE T2,T1		;PAGE #
	MOVE T1,[-1000,,OBUF0]
	MOVE T3,OCRCOD		;OUTPUT CODE
	PUSHJ P,CRYPT.##
	MOVE T1,OPCNT		;RESTORE PAGE #
>
	AOS	T1		;NEXT PAGE
	HRL	T1,OCRJFN	;OUTPUT JFN
OUTDO1:	MOVE	T2,[.FHSLF,,<OBUF0>B44]
	MOVSI	T3,(PM%WT)	;WRITE ACCESS
	PMAP			;GET NEXT PAGE FROM FILE
	MOVE	T1,[-1000,,OBUF0]
	POP	P,T3		;RESTORE REGS
	POP	P,T2		;...
	JRST	OUTWD1		;TRY TO DUMP WORD

;ROUTINE TO SET EOF PNTR FOR OUTPUT FILE

OUTFIN:	CALL	UNMAPO		;DELETE OUTPUT BUFFER
	AOS	T3,OPCNT	;# OF PAGES WRITTEN
	AOS	T3		;...
	LSH	T3,^D9		;CVT TO WORDS
	JUMPE	T3,OUTFN1	;HAVE SIZE IF 0
	HLRE	T1,OUPNT	;CHECK PARTIAL PAGE
	MOVNS	T1		;COUNT +1 OF WORDS UNWRITTEN
	SUBI	T3,-1(T1)	;ADJUST WORD COUNT
OUTFN1:	HRRZ	T1,OCRJFN	;GET JFN
	HRLI	T1,.FBSIZ	;SET EOF PNTR IN FILE
	MOVNI	T2,1		;SET MASK
	CHFDB			;SET FDB
	HRLI	T1,.FBBYV	;SET BYTE SIZE FIELD
	MOVSI	T2,(77B11)	;MASK
	MOVSI	T3,(<^D36>B11)	;BYTE SIZE
	CHFDB			;SET IT
	HRRZS	T1		;JFN ONLY
	PJRST	DOCLSF		;CLOSE IT
;ROUTINE TO DUMP BUFFER FROM BUFP TO (T1)

DUMP:	MOVE	T2,BUFP
	CAMGE	T2,T1		;CHECK TO SEE IF WE ARE DUMPING ANYTHING
	TRZ	FL,BOF		;IF SO TURN OFF BOF
	TRNN	FL,READOF	;RETURN IF READ ONLY MODE
DUMP1:	CAML	T2,T1		;MORE TO DO?
	POPJ	P,		;NO, RETURN
	LDB	T3,[POINT 7,OUPNT,17]
	CAIN	T3,176		;LAST WORD OF SECTOR?
	PUSHJ	P,OUTWDZ	;YES - DUMP ZERO
	MOVE	T3,0(T2)	;DUMP FIRST WORD
	CAMN	T3,PGMK		;COUNT PAGES
	AOS	OPG		;FOR =LOC COMMAND
	PUSHJ	P,OUTWD		;...
DUMP2:	SKIPE	T3,1(T2)	;LOOK FOR END
	TRNE	T3,1		; OR SEQUENCE NUMBER?
	AOJA	T2,DUMP1	;ANY END WILL DO
	PUSHJ	P,OUTWD		;DUMP WORD
	AOJA	T2,DUMP2	;LOOP BACK
	JRST	DUMP1		;GO CHECK FOR END

;ROUTINE TO DELETE FILE AND EXPUNGE

DODELF:	TLO	T1,(DF%NRJ) 	;RETAIN JFN
DDELFR:	TLO	T1,(DF%EXP)	;EXPUNGE ALSO
	DELF			;DELETE FILE
	  FJERR
	HRRZS	T1		;RETURN JFN
	RET			;RETURN

;ROUTINE TO CLOSE FILE AND RETAIN JFN

DOCLSF:	TLO	T1,(1B0)	;NO RELEASE JFN
DOCLSR:	CLOSF			;CLOSE
	  FJERR
	HRRZS	T1		;CLEAR LHS
	RET			;RETURN
INSIST:	OUTSTR	[ASCIZ "? You must type either "]
CONFRM:	OUTSTR	[ASCIZ "(y or n): "]
	CALL	INHELP		;GET RESPONSE
	 JRST	INSIST		;HE ASK FOR HELP
	CAIN	T1,"Y"		;IS IT YES?
	JRST	CPOPJ1		;YEP - SKIP RETURN
	CAIN	T1,"N"		;OR NO
	POPJ	P,		;NON-SKIP
	JRST	INSIST		;ELSE GRUMP AT HIM
GETN:	MOVE T1,WC	;GET THE NEXT BUFFER. FIND CURRENT WORD COUNT
	CAMGE T1,HLFWC	;GREATER THAN HALF OF MAX POSSIBLE?
	JRST FILLBF	;NO, JUST REFILL BUFFER
	ASH T1,-1	;YES, TAKE HALF OF IT
	ADD T1,BUFP	;CONVERT TO POINTER
GETN1:	SKIPN T2,(T1)	;LOOK FOR A WORD BOUNDARY
	JRST NOWFL	;WE ARE HERE?
	TRNN T2,1	;SEQUENCE NUMBER?
	SOJA T1,GETN1
NOWFL:	PUSHJ P,DUMP	;DUMP IT
	MOVE T2,T1	;COPY POINTER
	SUB T2,BUFP	;AND FIND OUT HOW MANY DUMPED
	SUB PNTR,T2	;ADJUST POINTER
	EXCH T2,WC	;CALC NEW WORD COUNT
	SUBB T2,WC
	ADD T2,BUFP	;GET POINTER TO END OF BUFFER
	HRLS T1		;SET UP BLT
	HRR T1,BUFP
	BLT T1,(T2)
	JRST FILLBF	;AND FINISH FILLIN BUFFER



FILLBF:	MOVE T1,WC	;GET WORD COUNT
	ADD T1,BUFP	;AND CONVERT TO POINTER TO END OF BUFFER
FILBF3:	CAML T1,FILPT	;FULL ENOUGH?
	POPJ P,		;YES, RETURN
	TLNE FL,TECOF	;SPECIAL READING FOR TECO FILES
	JRST RDTECO
	HRLI T1,-MXWPL-2	;GET A COUNT FOR MAX LINE SIZE
	SKIPN T3,SVWD	;SEE IF THERE IS A WORD LEFT FROM LAST TIME
	PUSHJ P,GETWD	;ELSE GET A NEW ONE
	JUMPE T3,SNEOF	;MUST BE EOF
	CAMN	T3,PGMK		;CHECK FOR PAGE MARKS
	JRST	CKPGMK		;GO FUDGE P/M
	TLZE FL,FSTOPF	;IF FIRST OP
	JRST CKTECO	;CHECK FOR TECO FILE
NOTECO:	MOVEM T3,SVWD2	;SAVE FOR SEQUENCE CHECK
	JRST FILBF4	;GO PUT IT AWAY
FILBF1:	PUSHJ P,GETWD	;ELSE GET A NEW ONE
	JUMPE T3,FILBF2	;0 WORD MUST BE EOF
	TRNE T3,1	;CHECK FOR SEQNUM
	JRST FILBF2	;YES, FINISH PUTTING IT IN
FILBF4:	MOVEM T3,(T1)	;PUT IN THIS WORD
	AOS WC		;AND ADVANCE WORD COUNT
	AOBJN T1,FILBF1	;ADVANCE POINTER AND CHECK COUNT
	JRST INLTL	;LINE IS TOO LONG
FILBF2:	MOVEM T3,SVWD	;SAVE THIS WORD
FILBF0:	SETZM (T1)	;MAKE SURE OF A ZERO WORD
	HRRZS T1	;ELIMINATE COUNT INFO
	MOVE T3,SVWD2	;CHECK ON ORDER OF INPUT LINES
	CAMG T3,OLDLIN	;CHECK FOR CORRECT ORDER
	JRST OUTOFO	;LINES ARE OUT OF ORDER
FILBF5:	MOVEM T3,OLDLIN	;SAVE FOR LATER
	SKIPE SVWD	;CHECK TO SEE IF WAS EOF
	JRST FILBF3	;AND TRY FOR MORE
SNEOF:	SETZM (T1)	;MAKE SURE OF ZERO WORD
	TRO FL,EOF2	;SET EOF FLAG
	MOVE T1,INPG	;GET INPUT PAGE
	MOVEM T1,BGPG	;AND SET LARGEST PAGE
	TRO FL,BGSN
	SETZM SVWD	;ALSO ZERO EXTRA WORD
	POPJ P,		;AND RETURN

CKPGMK:	SETZM	OLDLIN		;RESET LINE LAST INPUT
	AOS	INPG		;INCR INPUT PAGE
	MOVEM	T3,0(T1)	;STASH PGMK
	AOS	WC		;INCR WORD/COUNT
	PUSHJ	P,GETWD		;PASS NEXT WORD
	MOVE	T3,PGMKW2	;GRNTEE CORRECT P/M 2ND WORD
	MOVEM	T3,1(T1)	;STASH
	AOS	WC		;INCR WC
	SETZM	2(T1)		;GRNTEE ZERO WORD
	SETZM	SVWD		;FORCE READ
	MOVEI	T1,2(T1)	;CORRECT PNTR
	JRST	FILBF3		;CHECK FULL

INLTL:	PUSHJ P,GETWD	;FIND THE END OF THE LINE ON INPUT
	JUMPE T3,INLTL2	;THIS IS IT
	TRNN T3,1	;OR MAYBE THIS
	JRST INLTL	;KEEP LOOKING
INLTL2:	MOVEM T3,SVWD	;SAVE IT
	PUSH P,T1	;SAVE POINTER TO END OF IT
	SUBI T1,2	;LAST PART THAT IS IN THE LINE
	MOVEI T2,<BYTE (21)0(7)15,12>	;A CRLF
	DPB T2,[POINT 15,(T1),35]	;MAKE SURE IT ENDS PROPERLY
INLTL1:	SKIPN T2,(T1)	;NOW LOOK FOR THE START OF IT
	ERROR ICN	;SOMETHING HAS GONE WRONG, THERE IS NO LINE 
	TRNN T2,1	;START?
	SOJA T1,INLTL1	;NO, TRY AGAIN
	MOVE T2,INPG	;PRINT HIM THE CURRENT PAGE
	PUSHJ P,PGPRN
	PUSHJ P,OUTLIN	;PRINT THE LINE
	RERROR LTL	;AND THE ERROR MESSAGE
	POP P,T1	;RESTORE POINTER TO END
	SOS WC	;GET WORD COUNT CORRECTED
	SOJA T1,FILBF0	;AND CONTINUE FILL

OUTOFO:	PUSH P,T1	;SAVE THE POINTER
	PUSH P,T3	;SAVE T3 ALSO
	SUBI T1,1	;GET BACK INTO LINE
OUTOF1:	SKIPN T2,(T1)	;LOOK FOR START OF LINE
	ERROR ICN	;HORRIBLE CONFUSION
	TRNN T2,1	;CHECK FOR SEQ NUM
	SOJA T1,OUTOF1	;NOPE, TRY SOME MORE
	MOVE T2,INPG	;PRINT HIM THE PAGE
	PUSHJ P,PGPRN
	PUSHJ P,OUTLIN	;PRINT THE LINE
	RERROR ORDER	;GIVE HIM SOMETHING TO THINK ABOUT
	POP P,T3	;RESTORE
	POP P,T1	;GET SET TO GO ON
	JRST FILBF5	;GO
CKTECO:	TRNE	T3,1		;CHECK FOR A LINE NUMBER
	JRST	NOTECO		;NO ITS NOT A TECO FILE
	TLO	FL,TECOF	;SET WARNING FLAG
	SETZM	SVWD		;GRNTEE USE FIRST SEQ #
	SETZM	SVWD3		;CLEAR THIS (FORCED PM HACK)
	PUSH	P,T1		;SAVE T1
	TLNE	FL,COPFIL	;IS IT ANOTHER FILE?
	JRST	[SETZM AIPBYT	;CLEAR INPUT BYTE COUNT
		 HRRZ T2,AIPBUF	;PAGE TO UNMAP
		 CALL UNMAPL	;...
		 HRRZ T1,AIPJFN	;JFN TO RESET
		 JRST RDTECR]
	TLO	FL2,PCHGF!FCHGF	;SAY WE'VE CHANGED
	SETZM	CIPBYT		;CLEAR INPUT BYTE COUNT
	HRRZ	T2,CIPBUF	;PAGE TO UNMAP
	CALL	UNMAPL		;DO IT
	HRRZ	T1,CIPJFN	;SET UP FOR FILE RESET
RDTECR:	MOVEI	T2,0		;SET PTR TO ZERO
	SFPTR			;...
	  FJERR			;SHOULDNT HAPPEN
	POP	P,T1		;RESTORE T1

RDTECO:	HRRZM	T1,TMPT1	;SAVE THIS FOR A WHILE
	MOVEI	T3,1(T1)	;ZERO OUT A FEW WORDS
	HRL	T3,T1
	SETZM	(T1)
	BLT	T3,MXWPL(T1)
	ADDI	T1,1		;THIS IS WHERE CHRS SHOULD BE PUT
	PUSH	P,T1		;SAVE
	SKIPE	T1,SVWD		;CHECK BEGINNING OF PAGE
	CAIN	T1,1		;...
	JRST	[MOVE T1,TECFST
		 MOVEM T1,SVWD
		 MOVEM T1,SVWD2
		 JRST RDTEC1]
	MOVE	T2,TECINC	;GET INCREMENT
	PUSHJ	P,ASCIAD
	MOVEM	T1,SVWD		;SAVE FOR LATER
	MOVEM	T1,SVWD2	;AND FOR ORDER CHECK
	CAMGE	T1,TECINC	;CHECK WAR
	JRST	INSPG1		;FORCE PAGE INSERT
RDTEC1:	EXCH	T1,(P)		;GET OLD T1 BACK AND SAVE NUMBER
	MOVEI	T2,MXWPL*5-2	;COUNT
	MOVEI	T3,11		;FIRST CHR
	HRLI	T1,(<POINT 7,0>)
	IDPB	T3,T1
	SKIPN	T3,SVWD3	;SEE IF WE ALREADY TOOK CHAR
LINL1:	CALL	GCHAR		;NEXT CHR
LINL1A:	CAIN	T3,15
	JRST	LINL1		;IGNORE RETURNS
	SETZM	SVWD3		;SAY WE GOT IT
	CAIN	T3,14
	JRST	IPGMK		;INSERT PAGE MARK
	JUMPE	T3,EOF1		;MUST BE END OF FILE
	POP	P,-1(T1)	;PUT NUMBER IN PROPER PLACE
	JRST	LP1		;AND READ MORE OF LINE
CLP:	CALL	GCHAR
LP1:	CAIN	T3,15		;IGNORE RETURNS
	JRST	CLP
	CAIE	T3,0		;FOR EOF
	CAIN	T3,12		;OR LINE FEED
	JRST	LINFD		;GO PUT IN RETURN LINE FEED
	CAIN	T3,14
	JRST	LINFD
	IDPB	T3,T1		;ELSE DEPOSIT
	SOJG	T2,CLP		;HAVE WE RUN OUT
	ADD	T1,[XWD 700,0]	;BACK UP POINTER
	TLZ	FL,TECOF	;USE THE ABSENCE AS A FLAG
LP2:	CALL	GCHAR		;(205) GET A CHARACTER
;**;[254]  Add 1 line after LP2:+0			DML	27-Mar-85
	CAIE 	T3,0		;[254] At the end of the file?
	CAIN	T3,12		;(205) IS IT A LINEFEED?
	JRST	LINFD		;(205) YES
	CAIN	T3,14		;(205) FORMFEED?
	JRST	LINFD		;(205) YES
	JRST	LP2		;(205)
LINFD:	CAIN	T3,14		;(200) IS IT A FORMFEED?
	MOVEM	T3,SVWD3	;(200) YES
	MOVEI	T3,15		;(200)
	IDPB	T3,T1
	MOVEI	T3,12
	IDPB	T3,T1
	MOVEI	T1,1(T1)
	MOVE	T3,T1
	SUB	T3,TMPT1	;GET COUNT
	ADDM	T3,WC
	TLOE	FL,TECOF	;IF OFF WE HAD A LTL ERR
	JRST	FILBF0		;THIS WILL FINISH UP
	PUSH	P,T1		;SET UP FOR LTL CODE
	AOS	WC
	AOS	(P)
	SOJA	T1,INLTL1

INSPG1:	POP	P,T1		;RESTORE PNTR
	PUSHJ	P,MAKPM		;GENERATE PAGE MARK
	CALL	GCHAR		;PEEK AT NEXT CHAR
	CAIN	T3,15		;IGNORE CRS
	JRST	.-2
	CAIN	T3,14		;IF FF THEN SKIP IT
	JRST	FILBF3		; (ALREADY HAVE PM)
	MOVEM	T3,SVWD3	;SAVE FOR LATER
	JRST	RDTECO		;PROCESS NEXT LINE.

IPGMK:	POP	P,0(P)		;CLEAN OFF STACK
	PUSHJ	P,MAKPM		;GENERATE PAGE MARK
	JRST	FILBF3		;FINISH OFF

MAKPM:	MOVEI	T3,1		;SO IT WILL NOT BE EOF
	MOVEM	T3,SVWD		;SO WE START OVER
	MOVE	T3,PGMK
	MOVEM	T3,OLDLIN
	MOVEM	T3,-1(T1)
	MOVEI	T2,2
	ADDM	T2,WC
	MOVE	T3,PGMKW2
	MOVEM	T3,(T1)
	SETZM	1(T1)		;GRNTEE ZERO
	MOVEI	T1,1(T1)	;UPDATE PNTR
	AOS	INPG		;INCR INPUT PAGE
	POPJ	P,		;RETURN

EOF1:	POP	P,T2		;CLEAR STACK
	SOJA	T1,SNEOF

SUBTTL RANGE SPECIFIER READERS
;ROUTINE TO GET ONE LINE NUMBER FROM INPUT STREAM. HANDLES + AND -

GETLS:	PUSHJ P,SCAN
GETL:	TRZ FL,LINSN!ADDL!SUBL
	TRZ FL2,STARF
	TLZ FL2,UARWF
	CAIN C,"^"
	JRST DOFST
	CAIN C,"*"
	JRST DOLST
IFN EXTEND,<
	CAIN C,200	;DO WE HAVE TO SEARCH FOR IT
	PUSHJ P,LSRCH	;OK THEN HERE WE GO
>
	TRZN FL,NUMF
	POPJ P,		;SCAN DID NOT SEE A NUMBER RETURN (CALLER CAN GIVER ERR)
	MOVEM T1,HILN	;SAVE THE NUMBER HERE
GETL1:	TRO FL,LINSN	;SET A FLAG TO SAY WE SAW THE LINE
	PUSHJ P,SCAN	;SCAN FOR + OR -
	CAIN C,"+"
	JRST ADDNUM
	CAIE C,"-"
	POPJ P,		;NEITHER
	TROA FL,SUBL	;SET SUBTRACT FLAG
ADDNUM:	TRO FL,ADDL	;SET ADD FLAG
	PUSHJ P,SCAN	;SCAN ANOTHER
	TRZN FL,NUMF	;WAS IT A NUMBER
	NERROR ILC	;ANYTHING ELSE IS ILLEGAL
	MOVEM T2,SVINC	;SAVE IT
	JRST SCAN	;RETURN AFTER SCANNING ONE MORE
DOLST:	TRO FL2,STARF
	JRST GETL1
DOFST:	TLO FL2,UARWF
	JRST GETL1
;ROUTINE TO RESOLVE THE + AND - IN THE LINE NUMBER. WE MUST WAIT
;UNTIL THE PAGE HAS BEEN DEFINED BEFORE DOING THIS

ADDSUB:	MOVE SINDEX,HILN	;GET THE NUMBER
	MOVE T1,HIPG	;GET THE REQUIRED PAGE
	MOVEM T1,DPG	;AND SET IT AS THE DESIRED ONE
	TLNE FL2,UARWF
	JRST	[PUSHJ P,EVALUP
		 JRST DOAS]
	TRNN FL2,STARF
	JRST DOAS
	MOVE SINDEX,[<ASCII /99999/>!1]	;FIND A BIG LINE
	PUSHJ P,FIND
	CAME T1,[<ASCII /99999/>!1]	;IF ITS THERE ITS LAST
	PUSHJ P,FINDB		;ELSE BACK UP
;**;[240]	Delete 3 lines and insert 3 at ADDSUB:+12	KR	5/6/82
	CAIE T1,0	;[240] FIND A 0
	CAMN T1,PGMK	;[240] OR A PAGE MARK?
	MOVE T1,TECFST	;[240] THEN WE HAD EMPTY PAGE, START AT TECFST
	MOVE SINDEX,T1	;OK, USE ONE FOUND, ELSE LEAVE BIG
DOAS:	TRZE FL,ADDL	;DID WE WANT TO ADD?
	JRST ADLIN	;YES, GO ADD
	TRZN FL,SUBL	;OR SUBTRACT?
CPOPJ:	POPJ P,	;NO, RETURN
	PUSHJ P,FIND	;GET THE DESIRED LINE
SUBL1:	SOSGE SVINC	;DO WE WANT TO GO BACK STILL FARTHER
	POPJ P,		;NO, ALL DONE
	PUSHJ P,FINDB	;GET THE PREVIOUS LINE
	SKIPE T1	;0 MUST BE AT START OF BUFFER, QUIT
	CAMN T1,PGMK	;WAS IT A PAGE MARK?
	POPJ P,		;YES, AS FAR AS WE GO, SINDEX HAS CORRECT NUMBER
	MOVE SINDEX,T1	;THIS WILL DO
	JRST SUBL1	;GO TRY FOR MORE
ADLIN:	PUSHJ P,FIND	;GET DESIRED LINE
	CAME T1,PGMK	;WAS IT A PAGE MARK?
;**;[251]  Change 1 line at ADLIN:+2			DML	9-NOV-83
	JUMPN T1,ADLIN2	;[251] OR 0 (I.E. END OF FILE)
	POPJ P,		;RETURN WITH ORIGINAL NUMBER
;**;[251]  Remove 3 lines at ADLIN1:+0			DML	9-NOV-83
REPEAT 0,<		;[251] REMOVE ROUTINE ADLIN1
ADLIN1:	CAME T1,HILN	;SEE IF AN EXACT MATCH
	SOS SVINC	;IF NO, ALREADY ARE +1
	MOVE SINDEX,T1	;GET THE WORD WE HAVE FOUND
>			;[251] END OF REMOVAL
ADLIN2:	SOSGE SVINC	;NEED TO GO FURTHER
	POPJ P,		;NO, RETURN RESULTS
	PUSHJ P,FINDN	;GET THE NEXT LINE IN SEQUENCE
	CAME T1,PGMK	;PAGE MARK?
	JUMPN T1,.+2	;OR EOF
	POPJ P,		;YES, RETURN
	MOVE SINDEX,T1	;ACCEPT NEW NUMBER
	JRST ADLIN2	;AND LOOK FOR MORE
;EVALUP - ROUTINE THAT ASSIGNS THE CORRECT VALUE TO UP-ARROW
;
;	  UP-ARROW IS THE FIRST LINE FOUND ON THE PAGE,
;	  UNLESS WE ARE IN INSERT MODE.  IN INSERT MODE,
;	  IF 00000 DOES NOT EXIST, UP-ARROW IS A LINE
;	  HALFWAY BETWEEN 00000 AND THE FIRST LINE ON THE PAGE.
;	ALSO FOR TRANS/COPY, BECAUSE IF HE SAYS ^/X IS DESTINATION,
;	HE WANTS STUFF AFTER PGMK, NOT AFTER 1ST LINE ON PAGE.

EVALUP:	MOVE	SINDEX,[<ASCII /00000/>!1] ;LOOK FOR LINE 00000
	PUSHJ	P,FIND		;PUT IN T1, ELSE GET NEXT LINE
	SKIPE	T1		;FOUND EOF?
	CAMN	T1,PGMK		;NO, BUT IS IT A PAGE MARK?
	JRST	[MOVE T1,TECFST
		 JRST EVALU1]	;USE line = START IF EOF OR PGMK
;**;[248]  Add 2 lines after EVALUP:+5		DML	27-APR-83
	TLNE	FL,COPFIL	;[248] IS THIS A COPY FROM A FILE?
	JRST	EVALU1		;[248] YES, USE LINE NUMBER ALREADY FOUND
	TLNN	FL2,EXCPFL	;DO SPECIAL STUFF IF COPY
	TRNE	FL2,UPTOPF	;OR IF INSERT 
	SKIPA
	JRST	EVALU1		;GO SAVE WHAT WE GOT
	CAMN	T1,[<ASCII /00000/>!1] ;DID WE FIND LINE 00000 EXISTS?
	JRST	[TLNN FL2,EXCPFL
		  NERROR ILR		;IS AN ERROR OTHERWISE
		JRST .+1]
	CAMLE	T1,TECFST	;IS THIS LINE <= START?
	JRST	[MOVE T1,TECFST
		TLNN FL2,EXCPFL
		 JRST EVALU1	;No, Use line = start 
		JRST .+1]
	MOVE	T2,[<ASCII /00000/>!1] ;Yes, GET READY TO AVERAGE for new one
	PUSHJ	P,ASCAV		;AVERAGE 0 AND FIRST LINE
	MOVE	T1,T2		;PUT ANSWER IN T1
EVALU1:	MOVE	SINDEX,T1	;SAVE RESULT IN SINDEX
	POPJ	P,
;ROUTINE GETS A FULL SEQ NUMBER OF FORM A/B

GETLAS:	PUSHJ P,SCAN
GETLA:	TRZ FL,PGSN	;NO PAGE SEEN YET
	PUSHJ P,GETL	;GET THE LINE NUMBER PART
	MOVE T2,CPGL	;IN CASE LSRCH GOT A NEW PAGE
	TRNE FL,PGSN	;DID LSRCH GET PAGE?
	MOVEM T2,HIPG	;YES, USE IT
	CAIE C,"/"	;IS THIS A PAGE COMING?   
	JRST NOPG	;NO, A LINE NUMBER AT MOST
	PUSHJ P,SCAN	;YES, GET THE PAGE NUMBER
	CAIN C,"*"
	JRST LASTPG		;GET LAST PAGE #
	CAIE C,"^"		;UPARROW MEANS
	JRST GETLPG		;GET PAGE 1
	MOVEI T2,1
	TRO FL,NUMF		;MAKE LIKE NUMBER
GETLPG:	SKIPLE T2	;NUMBERS .LE. 0 LOSE
	TRZN FL,NUMF	;WAS IT A NUMBER
	NERROR ILC	;LOSE LOSE
	TRO FL,PGSN	;YEP, WE SAW IT
	MOVEM T2,HIPG	;SAVE THAT NUMBER
	PUSHJ P,SCAN	;CHECK FOR + OR -
	CAIN C,"+"
	JRST PGPLS
	CAIE C,"-"
	JRST NOPG	;NO, GO DO ADSUB ON LINE NUMBER
	PUSHJ P,SCAN	;GET THE NUMBER
	TRZN FL,NUMF	;MUST BE A NUMBER
	NERROR ILC
	MOVE T1,HIPG
	SUB T1,T2
	MOVEM T1,HIPG	;FILL IN NUMBER
NOPGA:	PUSHJ P,SCAN	;SCAN PAST NUMBER
NOPG:	TRNN FL,LINSN!PGSN	;DID WE SEE A LINE OR A PAGE?
	NERROR ILC	;NO, SOMETHING IS WRONG
	PUSH P,T1	;SAVE (HAVE ALREADY SCANNED)
	PUSH P,T2
	PUSHJ P,ADDSUB	;TAKE CARE OF + AND - FOR LINE
	POP P,T2
	POP P,T1
	MOVEM SINDEX,HILN	;SAVE RESULT
	POPJ P,		;AND RETURN

PGPLS:	PUSHJ P,SCAN	;GET NUMBER TO ADD
	TRZN FL,NUMF	;A NUMBER?
	NERROR ILC	;NO, NERROR
	ADDM T2,HIPG	;ADD IT IN
	JRST NOPGA	;AND CLEAN UP

LASTPG:	TRNE	FL,BGSN		;SEEN LAST
	JRST	LSTPG1		;YES: SKIP CODE
	MOVSI	T1,1
	MOVEM	T1,DPG		;TRY FOR LARGE
	MOVEI	SINDEX,0
	PUSHJ	P,FIND
	TRNN	FL,BGSN		;SHOULD SEE IT NOW
	ERROR	ICN
LSTPG1:	MOVE	T2,BGPG
	TRO	FL,NUMF		;NUMBER SEEN
	JRST	GETLPG



;ROUTINE SETS HIPG IN CASE NONE SEEN BY GETLA, THEN CALLS GETLA

GET1S:	PUSHJ P,SCAN
GET1:	MOVE T3,CPGL
	MOVEM T3,HIPG
	JRST GETLA



;GET A PAIR OF FORM A/B,C/D LOLN IS SET BY CALLER BEFORE CALL

GET2S:	PUSHJ P,SCAN
GET2:	TRZ FL,CNTF	;NOT A ! COMMAND
	PUSHJ P,GET1	;GET A LINE AND PAGE NUMBER PAIR
	MOVE T3,HIPG	;NOW SET LOWER PAGE TO THE ONE SEEN
	MOVEM T3,LOPG
	MOVE T3,HILN	;RESET LOW LINE IS A NUMBER SEEN
	TRNE FL,LINSN
	MOVEM T3,LOLN
GET2HF:MOVE T3,[<ASCII /99999/>!1]	;SET UP A LARGE NUMBER
	TRNN FL,LINSN	;IF NO LINE NUMBER SEEN
	MOVEM T3,HILN
	TRZ FL,PGSN	;SO DELETE CAN DETECT A SECOND PAGE SPEC
	CAIN C,"!"	;IS IT A ! COMMAND?
	JRST GET2CT	;GO TAKE CARE OF IT
	CAIE C,":"	;CHECK FOR SECOND SET
	POPJ P,		;NOPE, RETURN
	MOVEM T3,HILN	;SET HILN ANYWAY
	JRST GETLAS	;AND GO GET THE SECOND PAIR

GET2CT:	TRO FL,CNTF	;SET THE APPROPRIATE FLAG
	PUSHJ P,SCAN	;THERE SHOULD BE A NUMBER HERE
	TRNN FL,NUMF
	NERROR ILC	;LOSE
	MOVEM T2,SVCNT	;HANG ON TO IT
	JRST SCAN	;SCAN NEXT AND RETURN


SUBTTL LINE NUMBER SEARCH
IFN EXTEND,<
;SEARCH FOR A LINE AND USE ITS NUMBER INSTEAD OF .
;MOSTLY PLAGIARIZED FROM SEARCH

LSRCH:	PUSH	P,SVINC	;SAVE PREVIOUSLY GATHERED LINE NUMBERS
	PUSH P,SVCNT
	PUSH	P,HIPG
	PUSH	P,LOLN
	PUSH	P,LOPG
	PUSH	P,FL	;SAVE FLAGS IN CASE CALLED WITHIN SEARCH
	PUSH P,FL2
	TLO FL2,SRCWHO		;(203) SEARCH IS LOOKING
	TLZ	FL,ASSMF	;CLEAR ALL FLAGS
	SETZM LOLN	;JUST LIKE EVERYONE ELSE HAS TO
	SETZM LSCNT	;START WITH ZERO
	MOVE T1,[ASCII "L*"]
	MOVEM T1,FSFLG		;SETUP FLAG
	SOSGE	LSBUFN	;GET STRING BUFFER NUMBER
	NERROR	TMS	;NESTING TOO DEEP
	MOVE	T2,LSBUFN	;INDEX IN STRING BUFFER TABLES
	MOVE	T1,LSPTR(T2)	;SET UP BYTE POINTER
	MOVE T3,LSPTT(T2)	;AND POINTER TO BYTE POINTER TABLE
	PUSHJ P,SSTRNG	;GET A SEARCH STRING
	JRST	[MOVE T2,LSBUFN		;INDEX TO POINTERS
		SKIPN @LSPTT(T2)	;WAS STRING SET?
		NERROR NSG	;NO, TELL HIM
		CAIN C,12
		JRST ASLMD1	;SPECIAL CONTINUE MODE
		JRST .+1]	;YES, USE OLD ONE
	TLZ FL,NUMSRF!DECID!EXCTSR	;CLEAR FLAGS
	PUSHJ P,SCAN	;CHECK FOR WHAT COMES AFTER
	TRNN FL,TERMF	;IF TERMINATOR
	CAIN C,","	;OR ,
	JRST ASLMDT	;SET UP LIMITS SPECIALLY
	CAIE C,"!"
	CAIN C,":"
	JRST ASLMDT	;LET HIM SPECIFY 2ND HALF OF RANGE
	PUSHJ P,GET2	;ELSE CALL USUAL LIMIT ROUTINE
LSC4:	MOVE T1,HILN	;SAVE END OF RANGE
	MOVEM T1,LSHILN
	MOVE T1,HIPG
	MOVEM T1,LSHIPG
	CAIE C,","	;ANY MORE ARGUMENTS?
	JRST LSC1	;NO, CHECK TERMINATOR AND PROCEED
	PUSHJ P,SCAN	;YES, SEE WHAT IT IS
	TRNN FL,IDF	;SHOULD BE IDENT OR NUMBER
	JRST LSC2	;NOT IDENT, CHECK FOR NUMBER OF SEARCHES
	MOVS T1,ACCUM	;GET THE IDENT
	CAIN T1,(<SIXBIT /N  />)	;AND FIND OUT WHAT IT IS
	TLO FL,NUMSRF!DECID
	CAIN T1,(<SIXBIT /D  />)
	TLO FL,DECID	;WANTS TO DECIDE ON LINE
	TLNN FL,NUMSRF!DECID	;WAS IT EITHER?
	JRST LSC3	;NO, CHECK E
	PUSHJ P,SCAN	;CONTINUE LOOKING
	CAIE C,","
	JRST LSC1	;NO MORE ARGUMENTS
	PUSHJ P,SCAN	;WELL WHAT KIND IS THIS ONE?
	TRNN FL,IDF	;MORE IDENTS?
	JRST LSC2	;NO, MUST BE NUMBER OF SEARCHES
	MOVS T1,ACCUM
LSC3:	CAIE T1,(<SIXBIT /E  />)
	NERROR ILC	;NO, HE MUST HAVE MADE A MISTAKE
	TLO FL,EXCTSR	;YES, REMEMBER IT
	PUSHJ P,SCAN	;AND CHECK FOR MORE
	CAIE C,","
	JRST LSC1	;NO MORE
	PUSHJ P,SCAN	;ONLY ONE THING IT CAN BE NOW
LSC2:	TRNN FL,NUMF
	NERROR ILC	;NOPE, LOSE
	MOVEM T2,LSCNT	;SAVE AS COUNT OF LINES TO FIND
	PUSHJ P,SCAN	;GET TERMINATOR (WE HOPE)
LSC1:	TRNN FL,TERMF	;ALLS WELL THAT ENDS WELL
	NERROR ILC	;BUT THIS DOSNT
LSCH1A:	MOVE T1,LSBUFN
	MOVE T1,LSPTT(T1)	;GET POINTER TO STRINGS
	PUSHJ P,CODSR	;AND GENERATE CODE
	MOVE T1,LOPG	;GET SET TO HUNT IT
	MOVEM T1,DPG
	MOVEM T1,LSPG	;FLAG TO SAY IF WE SHOULD PRINT PAGE
	MOVE SINDEX,LOLN
	PUSHJ P,FIND
	TRZ FL,LINSN	;NO LINES YET
ONLSC:	PUSHJ P,ONMOV	;CHECK RANGE
	JRST ENDLSC	;DONE
	TLZE FL,ASSMF	;FIRST TIME AND WANT .+1?
	JRST	[CAME T1,LOLN	;IS THERE EXACT MATCH?
		JRST .+1	;NO, THIS IS .+1
		AOS SVCNT	;PRETEND WE DIDNT SEE IT
		JRST LSNXT]	;AND TAKE NEXT
	CAMN T1,PGMK	;PAGES ARE SPECIAL
	JRST LSCPAG	;SO TAKE GOOD CARE OF THEM
	MOVE T2,LSBUFN
	MOVE T2,LSPTT(T2)	;POINTER TO STRINGS
	PUSHJ P,COMSRC	;GO SEARCH THIS LINE
	JRST LSNXT	;LOSER
	MOVE T2,CPG	;GET CURRENT PAGE
	CAME T2,LSPG	;AND SEE IF WE SHOULD PRINT IT
	PUSHJ P,PGPRN	;YES
	MOVE T2,CPG	;NOW SET IT AS CURRENT
	MOVEM T2,CPGL
	MOVEM T2,LSPG	;ALSO RESET FLAG
	MOVE T2,(PNTR)	;ALSO SET LINE
	MOVEM T2,CLN
	TRO FL,LINSN	;WE SAW ONE
	TLNN FL,DECID	;DOES HE WANT OPTION?
	JRST LSNXTC	;NO, GO GET NEXT ONE OR STOP
	TLNE FL,NUMSRF	;DO WE WANT ONLY LINE NUMBERS?
	JRST LSCNUM	;YES
	MOVE T1,PNTR	;GO PRINT LINE
	PUSHJ P,OUTLIN
LSNXT1:
	INCHRW T1
	ANDI T1,177
	OCRLF
	CAIE T1,177	;DID HE SAY RUBOUT(DO NOT USE)?
	JRST LSOUT	;NO, WE'RE THROUGH
LSNXTC:	SOSG LSCNT	;HAVE WE FOUND ENOUGH
	JRST LSOUT	;YES, GIVE UP (WE HAVE SEEN AT LEAST ONE)
LSNXT:	PUSHJ P,FINDN	;GET NEXT LINE TO LOOK A
	JRST ONLSC
LSCNUM:	MOVE T1,(PNTR)	;PRINT SEQUENCE NUMBER
	PUSHJ P,OUTSN
	OCRLF
	JRST LSNXT1	;AND DECIDE
ENDLSC:	TRZN FL,LINSN	;DID WE SEE ONE?
	NERROR NLN	;NULL RANGE
	JRST LSOUT
LSCPAG:	AOS CPG	;JUST ADVANCE PAGE COUNTER
	JRST LSNXT	;AND PROCEED
LSOUT:	POP P,FL2	;RESTORE THE FLAGS WE USED
	POP P,T1
	AND T1,[XWD ASSMF!NUMSRF!EXCTSR!DECID,ADDL!SUBL!CNTF]
	ANDCM FL,[XWD ASSMF!NUMSRF!EXCTSR!DECID,ADDL!SUBL!CNTF]
	IOR FL,T1
	POP P,LOPG	;RESTORE PREVIOUS LINE NUMBERS
	POP P,LOLN
	POP P,HIPG
	POP P,SVCNT
	POP P,SVINC
	MOVE T1,CLN	;LOAD CURRENT LINE AND PAGE WHICH WE FOUND
	MOVE T2,CPGL
	TRO FL, NUMF!PGSN	;AND MAKE LIKE SCAN SAW A NUMBER
	AOS LSBUFN	;GO BACK TO SEARCH STRING ON PREVIOUS LEVEL IF ANY
	POPJ P,		;AND EXIT VICTORIOUS
ASLMD1:	TROA FL,CNTF	;MARK AS KEEP END OF RANGE
ASLMDT:	TRZ FL,CNTF	;JUST IN CASE
	TLO FL,ASSMF	;WE ASSUME .+1
	MOVE T1,CLN	;SET THINGS UP FOR . TO INFINITY
	MOVEM T1,LOLN
	MOVEM T1,HILN	;AS GOOD AS ANYTHING WITH THE PAGE WE WILL
	MOVE T1,CPGL	;USE
	MOVEM T1,LOPG
	TRZE FL,CNTF	;KEEP END?
	JRST LNOSPC	;YES
	CAIE C,":"	;IF A : OR !
	CAIN C,"!"
	JRST HALFLS	;GET THE SECOND HALF (.+1 TO GIVEN)
	MOVSI T1,377777	;GET A LARGE PAGE
	MOVEM T1,HIPG
	JRST LSC4	;BACK INTO THINGS

HALFLS:	MOVEM T1,HIPG	;SET TOP AS /.
	PUSHJ P,GET2HF	;GET THE SECOND HALF
	JRST LSC4	;AND GO

LNOSPC:	MOVE T1,LSHIPG
	MOVEM T1,HIPG	;PUT BACK END
	MOVE T1,LSHILN
	MOVEM T1,HILN
	JRST LSCH1A
>

SUBTTL INITIALIZE

;HERE IS THE INITIALIZE CODE

STPT:	RESET
	SETZB	T1,RPGSW
	RSCAN			;GET RE-READ OF COMMAND
	  FJERR
RDFLNA:	SETZM	ZEROB
	MOVE	T1,[XWD ZEROB,ZEROB+1]
	BLT	T1,IMPEND-1
	MOVE	T1,[BYTE (7) 15,15,15,15,15]
	MOVEM	T1,CRSX		;PUT CR'S IN PLACE
	MOVE	P,[IOWD PDLSIZ,PDL]

	MOVSI	FL,QMODF	;SET FOR ' IS NOT SPECIAL
	MOVEI	FL2,0		;NOTHING IN SECOND FLAG REGISTER
	SETOM	BAKF		;SET FOR BAK FILE
	MOVEI	T1,TTYCH	;SET UP DEFAULT INPUT
	MOVEM	T1,CHIN		;...
	MOVE	T1,[POINT 7,CMDBUF] ;POINT TO COMMAND BUFFER
	MOVEM	T1,P.TEXT	;STORE POINTER FOR READING
;**;[243]	Replace 7 lines with 8 at RDFLNA:+13	DML	9/21/82	
	HRROI	T1,CMDBUF	;[243] INPUT BUFFER
	HRLI	T2,40000	;[243] ALLOW BREAK ON END OF LINE
	HRRI	T2,5*SRBLG-1	;[243] INPUT BUFFER SIZE
	HRROI	T3,[ASCIZ !Type "EDIT filename" or "CREATE filename": !]	
				;[243] REPROMPT MESSAGE
	RDTTY			;[243] GET USER INPUT
	  FJERR			;[243] 
	MOVEI	T3,12		;[243] GRNTEE PROPER TERMINATOR
	IDPB	T3,T1		;[243] ...
;**;[245]	Change 1 line at RDFLNA+24		DML	10/21/82
CMDCON:	SETOM	RPGSW		;[245] SAY WE HAVE INPUT
	MOVEI	T1,.PRIOU	;CHECK TERMINAL MODE
	RFMOD			;GET MODES
	MOVEM T2,MODW		;SAVE MODE WORD
	RFCOC
	MOVEM T2,COCW1		;SAVE COC WORDS
	MOVEM T3,COCW2		;...
	MOVEI T1,.FHSLF		;SET TO DISABLE COMPAT
	MOVNI T2,1		;BY SETTING EV TO -1
	MOVEI T3,0
	SCVEC			;...
RPGRET:	MOVE	T1,[CALL ERRHD0] ;SET UP LUUO HANDLER
	MOVEM	T1,.JB41##
	CALL	INIPSI		;INIT PSI STUFF
	SETZM	TTICNT		;EMPTY INPUT
	MOVE	T1,[POINT 7,TTOBUF]
	MOVEM	T1,TTOPNT	;SET UP TTY OUTPUT BUFFER
	MOVEI	T1,^D80
	MOVEM	T1,TTOCNT
NOCOM0:	TLNN	FL2,AUTOF
	MOVE	P,[IOWD PDLSIZ,PDL]
	TRNE	FL2,SVIT	;SKIP * IF DOING W COMMAND
	JRST	RPGR1
	TLZ	FL2,INPARS!BELLF ;SAY WE ARE STARTING
	SETZM	OPTION		;LOOK FOR DEFAULT
	PUSHJ	P,DOOPT
	  JRST	.+2		;IGNORE NOT FOUND RETURN
	JRST	[OUTSTR	[ASCIZ "? Syntax error in default options"]
		 SETZM RPGSW	;CLR CMD MODE
		 CALL CLRBFI
		 JRST .+1]
NOCOM1:	TLO	FL2,INPARS	;SET FOR PARSE
	PUSHJ	P,PARSE
RPGR1:	TLZ	FL2,INPARS	;PARSE DONE
	MOVE	T1,[ORGBLK,,ICRBLK]
	BLT	T1,ICRBKE	;MOVE INFO TO INPUT BLOCK
	HRROI	T1,[ASCIZ "EDIT-BUFFER.OUT"]
	HRROI	T2,OCRASZ	;OUTPUT BLOCK
	CALL	MAKTMP		;MAKE TEMP FILE SPEC
	HRROI	T1,OCRASZ	;SETUP PNTR
	MOVEM	T1,OCRFIL	;TO FILESPEC
IFN CRYPSW,<
	MOVE T1,ORGCOD		;GET ORIG FILE PSW
	TRNE FL,NEWFL		;DO WE HAVE A NEW FILE?
	MOVE T1,NEWCOD		;YES - USE IT INSTEAD
	MOVEM T1,OCRCOD		;NO - USE ORIG PSW
>
	SKIPE	T1,CREATF	;WAS FILE FOUND?
	JRST	NOFILE		;NO - TRY CREATE
	MOVEI	T1,IBUF0	;SET UP BUFFER ADDRS
	MOVEM	T1,CIPBUF	;...
	MOVE	T1,ICRJFN	;GET INPUT JFN
	MOVEM	T1,CIPJFN	;SAVE FOR INPUT ROUTINES
	DVCHR			;GET DEVICE CHARACTERISTICS
	LDB	T2,[POINT 9,T2,17]
	CAIE	T2,.DVDSK	;BETTER BE DISK
	JRST	NOTDKI		;NOPE
	MOVE	T1,ICRJFN	;RESTORE JFN
	MOVE	T2,[7B5+OF%RD]	;OPEN FOR READ
	OPENF			;OPEN FILE
	  FJERR			;FATAL JSYS ERROR
	MOVEI	ALTP,CIPB	;BASE PNTR
	CALL	GFSIZE		;GET FILE SIZE IN WORDS
	SETOM	CIPCNT		;INIT PAGE CNTR
	SETZM	CIPPNT		;CLEAR BUFFER
	SETZM	CIPBYT		;...
FILRET:	TRNE	FL,READOF	;READ-ONLY?
	JRST	FILRT1		;YES - SKIP THIS
	MOVSI	T1,(GJ%FOU!GJ%SHT!GJ%TMP)
	MOVE	T2,OCRFIL	;PNTR TO FILESPEC
	PUSHJ	P,GTJFNX	;TRY TO GET A JFN
	 JRST	[CALL CANTOP	;CANT OPEN TEMP FILE
		 CALL CJERR0	; GIVE SYSTEM MESSAGE
		 JRST LOSER]	;T/S
	MOVEM	T1,OCRJFN	;SAVE JFN
	DVCHR			;CHECK ON DISK
	LDB	T1,[POINT 9,T2,17]
	CAIE	T1,.DVDSK
	JRST	NOTDKO		;ULOSE
FILRT1:	MOVEI	T1,BUF0		;START OF EDIT BUFFER
	SETZM	0(T1)		;SAVE A ZERO WORD
	ADDI	T1,1		;NEXT ONE IS START OF
	MOVEM	T1,BUFP		;  BUFFERS
MOCO:	SKIPN	T1,NPAGS	;FIND END OF EDIT WINDOW
	MOVEI	T1,DEFPAG	;USE DEFAULT IF NONE GIVEN
	MOVEM	T1,NPAGS	;...
	LSH	T1,^D9		;SIZE IN WORDS
	ADDI	T1,BUF0-1	;LAST LOC
	PUSH	P,T1		;SAVE AWHILE
	SUBI	T1,2*MXWPL+4	;LEAVE SPACE FOR A COUPLE OF LINES+ 1 PM
	MOVEM	T1,FILPT	;THIS IS HOW FAR TO FILL THE BUFFER
	POP	P,T1		;GET TOP BACK
	SUB	T1,BUFP
	MOVE	T2,T1		;GET A COPY
	SUBI	T2,MXWPL+1	;WHEN TO START DUMPING
	MOVEM	T2,MAXWC
	ASH	T1,-1		;TAKE HALF OF IT
	MOVEM	T1,HLFWC	;SAVE THAT FIGURE
	TRNE	FL2,SVIT
	JRST	NOSV1		;SKIP SOME MORE STUFF IF IN W COMMAND
	MOVEI	T1,.PRIOU	;CHECK TERMINAL MODE
	RFMOD			;GET MODES
	TLNE	T2,(TT%LCA)	;DO WE HAVE LC?
	TRO	FL,M37F		;LC SET SO SAY HE'S M37
	TRO	T2,<.TTATE>B29	;SET NO OUTPUT XLATE
	MOVEM T2,MODW		;SAVE MODE WORD
	SFMOD			;...
	RFCOC
	TRZ T3,3B19		;FIX ESC PROPERLY
	MOVEM T2,COCW1		;SAVE COC WORDS
	MOVEM T3,COCW2		;...
	SFCOC			;...
	TRO FL2,ALTECH		;TURN ON ESC ECHO
	MOVEI T1,.CTTRM		;CONTROLLING TERMINAL
	GTTYP			;GET TYPE
	CAILE T2,MXTRM		;MAX TYPE
	MOVEI T2,DFTRM		;SUPPLY DEFAULT
	MOVEM	T2,DTYPE	;SAVE IT
	MOVE	T1,[<ASCII /00000/>!1]
	MOVEM	T1,CLN		;SET UP THE CURRENT LINE
	SKIPN	T1,TECINC	;USE STEP IF GIVEN
	MOVE	T1,[<ASCII /00100/>!1] ;AND CURRENT INCREMENT
	MOVEM	T1,INCR
	MOVEM	T1,CURINS	;CURRENT PLACE TO INSERT IF NO ARGS TO I
NOSV1:	MOVEI	T1,1		;AND THE CURRENT PAGE
	MOVEM	T1,CPG
	TRNE	FL2,SVIT	;DO NOT CHANGE LOGICAL PAGE (.)
	JRST	NOSV1A
	MOVEM	T1,CPGL
	MOVEM	T1,IPG		;CURRENT PAGE TO INSERT ON
NOSV1A:	MOVE	PNTR,BUFP	;SET THE BUFFER POINTER
	MOVEI	T1,1		;SET INPUT PAGE
	MOVEM	T1,INPG
	SETZM	SVWD		;O WORDS WAITING
	SETZM	WC		;ZERO WORD COUNT FOR START
	SETZM	OLDLIN		;UESD FOR ORDER CHECKING ON INPUT
	TLNN	FL2,AUTOF	;PRESERVE IF IN AUTO SAVE
	SETZM	ALTSN		;USED FOR ALTMODE SEEN FOR I AND R
	SETZM	AUXFLG		;USED TO FLAG AUXILLARY FILE IN USE
	TRNE	FL2,SVIT	;SAVE WORLD?
	JRST	NOSV2	
	SETZM	SRPNT		;NO SEARCH STRING YET
	SETZM	R1PNT		;ALSO REPLACE STRINGS
	SETZM	R2PNT
	MOVSI	T1,1		;SET BIG PAGE LARGE FOR NOW
	MOVEM	T1,BGPG
	TRNE	FL,READOF	;DONT BOTHER IF READ-ONLY
	JRST	NOSV2
	HRROI T2,LIBUF		;BUILD SPEC HERE
	HRROI T1,[ASCIZ "EDIT-BUFFER.IN"]
	CALL MAKTMP
	MOVSI	T1,(GJ%OLD!GJ%SHT!GJ%TMP)
	HRROI T2,LIBUF		;FILESPEC
	PUSHJ	P,GTJFNX	;EXISTS?
	  JRST	NOSV2		;DON'T CARE
	HRLI	T1,(DF%EXP)	;EXPUNGE ALSO
	DELF			;DELETE FILE
	  FJERR			;LOSE IF CAN'T DELETE
NOSV2:	TLO	FL2,BELLF	;ALLOW BELLS
	PUSHJ	P,ENBINT	;ENABLE ^C INTS
	SKIPE	CREATF		;CHECK IF WE ARE CREATING
	  JRST	CRTOK
	TRNE	FL2,SVIT	;WRAP ON SAVE CMD(W)
	JRST	NOSV3		;YES: DON'T PRINT MSG AGAIN!
	MOVEI	T1,[ASCIZ /Edit: /]
	TRNE	FL,READOF	;CHECK FOR R/O
	MOVEI	T1,[ASCIZ /Read: /]
	OUTSTR	@T1		;PRINT MSG
	OUTSTR	ORGASZ		;GIVE FILE NAME
	OCRLF
NOSV3:	TRNE	FL,READOF
	JRST	NOENT		;DO NOT ENTER
	MOVE	T1,OCRJFN	;GET OUTPUT JFN
	MOVEI	T2,OF%WR	;WRITE MODE
	MOVEM	T1,OPNJFN	;SAVE
	OPENF			;OPEN FILE
	 CALL	[CALL CANTOP
		 JRST OPNERR]	;HANDLE IF OVER QUOTA
	SETZM	OPG		;OUTPUT PAGE CNTR
	SETZM	OUPNT		;CLEAR PNTR
	MOVNI	T1,2
	MOVEM	T1,OPCNT	;OUTPUT PAGE COUNT
NOENT:	TRO	FL,BOF		;IS AT START OF FILE
	TLO	FL,FSTOPF	;FIRST OP
	TLZ	FL2,ALLCHG!DOENDF;NO CHANGES YET,& NO LONGER IN END CODE
	PUSHJ	P,FILLBF	;AND FILL UP THE BUFFER
	TLZN	FL2,AUTOF	;SKIP IF AUTO SAVE
	JRST	COMND
	TRZ	FL2,SVIT	;CLR THIS TOO
	MOVE	SINDEX,SVLNUM	;GET BACK TO POINT OF LAST INSERT
	TLZ	FL2,NORENT	;RE-ENABLE FOR REENTER
	JRST	FIND		;EXITS TO CALLER
;ROUTINE TO PARSE A FILE NAME.
;ALTP/ FILE BLOCK
;T1/ GTJFN BITS
;C/ LAST CHARACTER READ. IF ESCAPE, THEN DO RECOGNITION.
;RETURNS:
;.+1 - ERROR FROM GTJFN, MESSAGE PRINTED.
;.+2 - CONTROL-U TYPED BY USER
;.+3 - SUCCESS, FILE BLOCK FILLED.
;	C HAS TERMINATING CHAR

READNM:	MOVEI	T2,0		;NO DEFAULT
READNE:	MOVEM	T2,CJFNBK+.GJEXT
	TRZ	FL2,ALTECH	;TURN OFF ALT ECHO
	CAIN	C,200		;ESC SEEN?
	OUTSTR	[ASCIZ " (FILE) "]
	TLNE	FL2,EXCPFL	;(207) IS THIS A COPY?
	TLOA	T1,(GJ%FNS!GJ%XTN) ;(207) YES DON'T SET FLAGS
	TLO	T1,(GJ%FNS!GJ%XTN!GJ%FLG) ;(206) TURN ON FLAGS
	TLNE	FL2,INPARS	;READING FROM CORE?
	TLZ	T1,(GJ%CFM)	;YES, DON'T WANT CONFIRMATION THEN
	MOVEM	T1,CJFNBK	;STORE FLAGS
	MOVS	T1,OPTJFN	;ASSUME READING FROM OPTION FILE
	HRRI	T1,.NULIO	;AND OUTPUT GOING NOWHERE
	TLNN	FL2,INOPTF	;REALLY DOING OPTION FILE?
	MOVE	T1,[.PRIIN,,.PRIOU]	;NO, GET NORMAL JFNS
	TLNE	FL2,INPARS	;READING FROM CORE?
	MOVE	T1,[.NULIO,,.NULIO]	;YES, THEN ONLY USE STRING
	MOVEM	T1,CJFNBK+.GJSRC	;SAVE IN BLOCK
	TLNE	FL2,INPARS	;READING FROM CORE?
	SKIPA	T2,P.TEXT	;YES, GET STRING FROM COMMAND LINE
	MOVE	T2,TTIPNT	;NO, GET NORMAL INPUT PNTR
	TLNE	FL2,INOPTF	;READING FROM OPTION FILE?
	SETZ	T2,		;YES, NO STRING FROM CORE THEN
READN1:	PUSH	P,FIL(ALTP)	;SAVE IN CASE OF ERROR
	PUSH	P,JFN(ALTP)	;...
	MOVEI	T1,CJFNBK	;POINT TO BLOCK
	PUSHJ	P,GTJFNX
	  JRST	RDNERR		;ANALYSE ERROR RETURN
	TLNE T1,(GJ%TFS)	;(206) TEST FOR TEMP FILE
	JRST [TLZ FL2,INPARS	;(206)
	      OUTSTR [ASCIZ "
? Illegal to write a temporary file"] ;(206)
	JRST RDNER1]		;(206)
	SUB	P,[2,,2]	;CLEAN UP (NO LONGER NEEDED)
	MOVEM	T1,JFN(ALTP)	;STASH JFN
	PUSH	P,T2		;SAVE PNTR
	HRRZS T1		;(206) CLEAR FLAGS
	CALL	JFNSTR		;CONVERT TO PROPER STRING
	AOS	-1(P)		;SET FOR SKIP RETURN
	AOS	-1(P)		;DOUBLE SKIP
	TLNE	FL2,INPARS	;READING COMMAND LINE?
	JRST	[POP	P,P.TEXT	;YES, RESTORE NEW POINTER
		 POPJ	P,]	;AND RETURN
	TLNE	FL2,INOPTF	;READING OPTION FILE?
	JRST	[POP	P,(P)	;YES, TRIM STACK
		 POPJ	P,]	;AND RETURN
	MOVE	T1,0(P)		;GET NEW BYTE PNTR
	MOVE	T2,TTIPNT	;GET OLD BYTE PNTR
	CALL	SUBBP		;GET SIZE
	EXCH	T1,TTICNT	;CALC NEW REMAINDER
	SUBM	T1,TTICNT	;...
	POP	P,T2		;GET NEW PNTR AGAIN
	LDB	T1,T2		;GET TERMINATING CHAR
	CAME	T1,ESC		;CHECK FOR ESC
	CAIN	T1,0		;  OR NULL
	JRST	RDNSCN		;DO BKJFN ON TERMINAL
	AOS	TTICNT		;ELSE BACKUP INPUT
	ADD	T2,[7B5]
	MOVEM	T2,TTIPNT	;STORE PNTR
	PJRST	SCAN		;AND RETURN THRU SCAN

RDNSCN:	SETZM	TTICNT		;CLEAR INPUT
	HLRZ	T1,CJFNBK+1	;JFN TO BACKUP
	BKJFN			;STEP TO REAR
	  FJERR			;GIANT LOSAGE
	PJRST	SCAN		;EXIT THROUGH SCAN
;HERE ON GTJFN ERROR RETURN - CHECK ^U

RDNERR:	POP	P,JFN(ALTP)	;RESTORE OLD VALUES
	POP	P,FIL(ALTP)	;...
;**;[247]	Insert 6 lines after RDNERR:+1		DML	23-NOV-82
	CAIN	T1,GJFX33	;[247] WAS FILENAME ABSENT?
	JRST	[ OCRLF		;[247]
		  OUTSTR [ASCIZ "?Filename was not specified"]
				;[247] YES, PRINT MESSAGE
		  OCRLF		;[247] OUTPUT CRLF FOR LINE
		  JRST RDNCTU]	;[247] CHECK ^U
	CAIN	T1,GJFX37	;BUFFER EMPTY RETURN
	JRST	RDNCTU		;YES - CHECK ^U
	PUSH	P,T1		;SAVE CODE
	CALL	RDNSCN		;GET DELIM INTO C
	OUTSTR	[ASCIZ "
?"]
	MOVEI	T1,.PRIOU	;PLACE FOR MESSAGE
	MOVEI	T3,0
	POP	P,T2		;RESTORE ERROR
	HRLI	T2,.FHSLF
	ERSTR			;PRINT MESSAGE
	  JFCL			;CANT HAPPEN
	  JFCL
	OCRLF
	RET			;EXIT

RDNER1:	POP	P,JFN(ALTP)	;(206) RESTORE OLD VALUES
	POP	P,FIL(ALTP)	;(206) ...
	CAIN	T1,GJFX37	;(206) BUFFER EMPTY RETURN
	JRST	RDNCTU		;(206) YES - CHECK ^U
	OCRLF			;(206) OUTPUT A CRLF
	RET			;(206) RETURN
;HERE ON BUFFER EMPTY RETURN

RDNCTU:	HLRZ	T1,CJFNBK+1	;INPUT JFN
	RFPOS			;GET POSITION
	TRNN	T2,-1		;AT LM?
	RETSKP			;YES - GIVE ^U RETURN
	OUTCHR	[7]		;NO - RING BELL
	MOVEI	T2,0		;BACK TO JFNS ONLY
	JRST	READN1		;TRY AGAIN

;ROUTINE TO COMPUTE THE DIFFERENCE OF TWO BYTE PNTRS IN CHARS
;C(T1) := ORIG PNTR
;C(T2) := NEW PNTR

SUBBP:	HRRZ	T3,T1
	SUBI	T3,(T2)		;DIFF IN WORDS
	IMULI	T3,5		;CHARS
	LDB	T1,[POINT 6,T1,5] ;GET RESIDUES
	LDB	T2,[POINT 6,T2,5]
	SUBM	T2,T1		;RESULT TO T1
	IDIVI	T1,7		;# OF CHARS
	ADD	T1,T3		;COMBINE RESULT
	RET			;DONE # CHARS IN T1
;ROUTINE TO CALL AFTER READNM (OR WHATEVER) TO PARSE /R/S SWITCHES
;AFTER FILENAME.
;ENTER:
; C/ CHARACTER IMMEDIATELY AFTER
;RETURNS:
; .+1 IF NEITHER /R OR /S
; .+2 IF A SWITCH SEEN, RSW OR SSW -1 AS APPROPRIATE

READSW:	SETZM	RSW		;CLEAR OLD SWITCH FLAGS
	SETZM	SSW
	TLNN	FL2,INOPTF	;NO SWITCHES IN OPTION FILE
	CAIE	C,"/"		;CHECK FOR READ ONLY MODE
	JRST	CPOPJ1		;ALL OK
	PUSHJ	P,SCAN
	TRNN	FL,IDF
	POPJ	P,
	MOVS	T1,ACCUM
	CAIN	T1,'R  '
	SETOM	RSW
	CAIN	T1,'S  '
	SETOM	SSW
	PUSHJ	P,SCAN
	SKIPN	RSW
	SKIPE	SSW
	AOS	(P)
	POPJ	P,
;CREATE A NEW FILE

NOFILE:	JUMPL	T1,NOFIL1	;IF NEG THEN OK
	CALL	CHKCOD		;CHECK ERROR CODE
	  FJERR			;REAL LOSAGE
NOFIL1:	OUTSTR	[ASCIZ /Input: /]
	OUTSTR	ORGASZ		;PRINT FILE NAME
	SETOM	CREATF		;SAY WE ARE CREATING
	SETZM	ICRJFN		;CLEAR INPUT BLOCK
	SETZM	ICRFIL
	JRST	FILRET		;GO OPEN IT

CRTOK:	MOVE	T1,OCRJFN	;OUTPUT JFN
	MOVEI	T2,OF%WR	;WRITE PRIVS
	MOVEM	T1,OPNJFN
	OPENF			;OPEN FILE
	  CALL	OPNERR		;CHECK FAILURE
	SETZM	OPG		;OUTPUT PAGE CNTR
	SETZM	OUPNT		;CLEAR BUFFER
	MOVNI	T1,2
	MOVEM	T1,OPCNT	;INIT PAGE COUNT
	SETZM	(PNTR)		;ZERO FIRST WORD OF BUFFER
	TRZ	FL,READOF	;CREAT AND READOF ARE NOT POSSIBLE
	TRO	FL,BOF!EOF!EOF2	;SAY AT START AND NO MORE TO READ
	TLO	FL2,ALLCHG	;NEW FILE - THEREFORE CHANGES
	MOVEI	T1,1		;SET BGPG
	MOVEM	T1,BGPG
	JRST	CRTINS		;AT LAST

SUBTTL PARSE CODE
;LOOK FOR SYSTEM COMMAND.

PARSE:	PUSHJ	P,ZERNEW	;CLR OUT FILE BLOCK
	MOVEI	T1,LDCHR	;SET UP CHIN FOR PARSE
	EXCH	T1,CHIN		;SAVE OLD VALUE
	MOVEM	T1,SVPCIN	;...
	SETZM	CREATF		;NO CREATE
	SETZM	PZBEG		;CLEAR PARSE AREA
	MOVE	T1,[PZBEG,,PZBEG+1]
	BLT	T1,PZEND
	MOVE	T1,P.TEXT	;CHECK FOR PROPER EOL
PARS1:	ILDB	T2,T1		;GET CHAR
	CAIE	T2,15
	CAIN	T2,12		;LOOK FOR TERMINATOR
	SKIPA	T2,[12]		;REPLACE WITH LF
	JRST	PARS1		;LOOP TILL DONE
	DPB	T2,T1		;GRNTEE CORRECT CHAR
; Rules for obtaining a file specification:
;	1.  Try to get it from the rescanned command line.
;	2.  If there is none in the command, try to get it from
;	    TMPCOR:EDS. 
;	3.  If there is none in TMPCOR:EDS, give him an error.

PARSEA:	SKIPN RPGSW		;Anything in TMPCOR?
	JRST NOTMP		;No give him an error
PARSAA:	PUSHJ P,RDSKIP		;Get first nonspace chr in C
	ANDI C,137		;FOrce uppercase

; Check the CREATE or EDIT command...
; If: 	There is a "/" in the command, or
;	The character after noise words and spacing is not <LF>
; DO not read the EDS file.

PARSEB:	CAIN C,12		;Is this character a <LF>?
	JRST NOTMP		;Yes, use the EDS
	CAIN C,"/"		;Did we see a "/"?
	JRST PARSEI		;Yes, do not use EDS
	CAIE C," "		;If it is a space
	CAIN C,"	"	;or tab
	JRST PARSEC		;next non-spacing better be <LF>
	PUSHJ P,@CHIN		;Get the next character
	JRST PARSEB		;Keep checking

PARSEC:	PUSHJ P,RDSKIP		;Get next non-spacing in C
	PUSHJ P,SKPNOI		;Skip noise, too
	CAIE C,12		;If it:
	JRST PARSEI		;Is not a <LF>, use this line
	JRST NOTMP		;Is a <LF>, use the line in EDS

PARSEI:	MOVE T1,[POINT 7,CMDBUF]	;Pointer to command
	MOVEM T1,P.TEXT		;FALL INTO PARSE1...

; 1    2         3      4             5           6
; EDIT /SWITCHES (FROM) INPUT.TYP.GEN (OUTPUT AS) OUTPUT.TYP.GEN [MESSAGE]
; OR   CREATE /SWITCHES (FROM) INPUT.TYP.GEN [MESSAGE]
; OR   PERUSE /SWITCHES (FROM) INPUT.TYP.GET [MESSAGE]

PARSE1:	TRZ FL,F.LAHD		;SET THE LOOK AHEAD BIT
	PUSHJ P,RDSKIP		;Skip spacing, break chr in C

; Set GTJFN bit according to: C (new), E (existing), S (either), P (existing)

	SETZ T1,		;Will contain GTJFN flags
	ANDI C,137		;ENSURE UPPER CASE
	CAIN C,"E"		;Is this EDIT?
	MOVSI T1,(GJ%OLD)	;Yes, get an existing file
	CAIN C,"C"		;OR CREATE?
	JRST	[MOVSI T1,(GJ%FOU) ;FILE FOR OUTPUT
		 SETOM CREATF	;SAY WE ARE CREATING
		 JRST .+1]
;**;[253]  Add 4 lines after PARSE1:+12			DML	20-Nov-84
	CAIN C,"P"		;[253] Or PERUSE?
	JRST [	MOVSI T1,(GJ%OLD)  ;[253] Yes, get an existing file
		TRO FL,READOF	;[253] Set READONLY flag
		JRST .+1]	;[253]
	CAIE C,"S"		;ALLOW SOS CMD TO DO EITHER
	JUMPE T1,BADTMP		;No bad command
	MOVEM T1,GJBITS		;SAVE FOR GTJFN TO FIND
	MOVEI C,"S"		;Change to S command to make
	DPB C,P.TEXT		;  TMPCOR FILE work

; GET FIRST NON-SPACING CHARACTER AFTER COMMAND NAME

PARS1A:	PUSHJ P,@CHIN		;Get a character
	CAIN C,12		;Or a <LF>?
	JRST BADTMP		;yes there is no file spec
	CAIN C,"/"		;Is it a slash?
	JRST PARS2A		;yes, go process it
	CAIE C," "		;Is it a space?
	CAIN C,"	"	;Or a tab?
	JRST PARSE2		;Yes, get next field
	JRST PARS1A		;No continue

; GOT FIRST CHR. OF 2ND ATOM.

PARSE2:	PUSHJ	P,RDSKIP	;Skip spacing, break chr in C
	CAIN	C,12		;Or a <LF>?
	JRST	BADTMP		;Yes there is no file spec
	CAIN	C,"/"		;IS IT A SWITCH?
PARS2A:	PUSHJ	P,GETSWT	;YES, GET THEM
	PUSHJ	P,SKPNOI	;SKIP SPACES & NOISE
	CAIN	C,"/"		;SWITCH AFTER NOISE VALID
	JRST	PARS2A		;PROCESS
	CAIN	C,12		;Find a <LF>?
	JRST	NOTMP		;NO INPUT FILE SPEC.
PARSE4:	MOVEI	ALTP,ORGBLK	;POINT TO DESIRED BLOCK
	MOVE	T1,GJBITS	;GET SAVED BITS
	TLO	T1,(GJ%SHT)	;USE SHORT FORM
	CALL	TRYGTJ		;TRY GTJFN
	  JRST	PARBI		;BAD INPUT FILE SPEC
	PUSHJ P,RDSKIP		;Skip spaces, break chr in C
PARSE5:	PUSHJ P,SKPNOI		;SKIP SPACES & NOISE
	CAIN C,12		;Or <LF>?
	JRST PARSED
	CAIN C,"/"		;Or switch?
	JRST BADSW		;BAD SWITCH PLACEMENT
PARSE6:	MOVEI	ALTP,NEWBLK	;POINT TO NEW BLOCK
	MOVSI	T1,(GJ%FOU!GJ%MSG!GJ%CFM!GJ%SHT)
	CALL	TRYGTJ		;TRY GTJFN
	  JRST	PARBO		;Bad output file
	CALL TSTNEW		;SEE IF THIS IS A "NEW" FILE
PARSED:	SKIPN	NEWFIL		;NEED NEW?
	CALL	DEFNEW		;ASSURE OUTPUT FILE
	JRST	RDEOTX		;FINISH

; SKPNOI - SKIPS SPACES AND NOISE WORDS THEN SPACES

SKPNOI:	CAIE C,"("
	CAIN C,"["
	JRST SKPNO1
	CAIN C,"!"
	JRST SKPNO1
	RET			;JUST RETURN

SKPNO1:	TRZ FL,F.LAHD		;DON'T REREAD THE CHAR
	PUSHJ P,@CHIN
	CAIN C,12			;CHECK FOR TRICKY <LF>
	RET				;HAH!!!
	CAIE C,")"
	CAIN C,"]"			;OTHER BRACKET
	JRST SKPNO2
	CAIN C,"!"
	JRST SKPNO2
	JRST SKPNO1

SKPNO2:	CALL RDSKIP		;SKIP SPACES
	CAIE C,"("		;MAKE SURE NOT ANOTHER
	CAIN C,"["
	JRST SKPNO1		;ANOTHER KEEP GOING
	CAIN C,"!"
	JRST SKPNO1
	RET			;NO - RETURN

; Didn't get a file specification, give errror and die

PARBI:	SKIPN	CREATF		;TROUBLE IF FAILURE
	PUSHJ P,CHKCOD		;File-not-found-type error?
	 JRST PARBO		;No, Run of the mill error
	TRNE	FL,READOF	;READ-ONLY?
	JRST	PARBO		;YES - LOSAGE THEN
	MOVEM	T1,CREATF	;SAVE ERROR CODE AS FLAG
	OUTSTR	[ASCIZ "
%"]
	CALL	CJERRC		;PRINT MESSAGE
	HRROI T1,[ASCIZ /, Creating New file
/]
	PSOUT
	MOVSI	T1,(GJ%FOU)	;FOR IGNORE DELETED BIT
	MOVEM	T1,GJBITS	;TRY ANY FILE
	JRST	PARSE4		;...

PARBO:	OUTSTR	[ASCIZ "
?"]
	CALL	CJERRC		;SYSTEM MESSAGE
	HRROI T1,[ASCIZ / - /]	;Bad output file
	PSOUT
	PUSHJ P,PARPF		;PRINT IT
	JRST LOSER		;AND DIE

PARPF:	MOVE	T2,P.TEXT	;Get pointer
	ADD	T2,[7B5]	;Back it up one
PARP1:	ILDB	T1,T2		;Retrieve a character
	CAIE	T1,"!"		;CHECK COMMENT CHAR
	CAIN	T1,";"
	RET
	CAIE	T1,40		;SPACE OR
	CAIN	T1,11		;  TAB
	RET
	CAIE	T1,12		;EOL
	CAIN	T1,"/"		;OR SWITCH DESIGNATOR
	RET
	PBOUT
	JRST	PARP1

NOTMP:
BADTMP:	TLZ FL2,INPARS		;SAY WE'RE OUT OF THE PARSE
;**;[245]	Replace 6 lines with 14 at BADTMP:+1	DML	10/21/82
	TLO T1,(CM%NOP)		;[245] SET TO INDUCE ERROR
	HRRI T2,GJFX33		;[245] SET APPROPRIATE ERROR CODE
	CALL PAROK		;[245] PRINT ERROR
PAROK:	TLNN T1,(CM%NOP)	;[245] COULD FIELD BE PARSED?
	RET			;[245] YES, RETURN
	OCRLF			;[245] PRINT NEW LINE
	OUTSTR [ASCIZ/?Error in command - /] ;[245] FIRST PART OF ERROR MSG
	MOVEI T1,.CTTRM		;[245] SET OUTPUT TO GO TO TERMINAL
	HRLI T2,.FHSLF		;[245] SET PROCESS TO SELF
	SETZM T3		;[245] ALLOW NO LIMIT TO ERROR MESSAGE OUTPUT
	ERSTR			;[245] PRINT OUT ERROR
	  FJERR			;[245] ERROR - UNDEFINED ERROR NUMBER
	  FJERR			;[245] ERROR - INVALID DESTINATION
	POP P,T3		;[245] KEEP STACK STRAIGHT - REMOVE TOP ENTRY
	RESET			;TO REENABLE <CNTRL>/C
;**;[245]	Replace 1 line with 63 at BADTMP:+8	DML	10/21/82
	MOVEI T1,CMDBLK		;[245] GET COMMAND BLOCK FOR PARSE
	MOVEI T2,INIFDB		;[245] GET FUNC. DESC. BLOCK (FDB) FOR PARSE
	COMND			;[245] INITIALIZE PARSE
	  ERJMP ERRHD0		;[245] ERROR
INPAR:	MOVEI T2,KWFDB		;[245] GET FDB FOR KEYWORD PARSE
	COMND			;[245] PARSE KEYWORD
	  ERJMP ERRHD0		;[245] ERROR
	CALL PAROK		;[245] KEYWORD PARSED?
;**;[253]  Replace 1 line with 2 at INPAR:+4		DML	20-Nov-84
	HRRZ T2,(T2)		;[253][245] ISOLATE COMMAND NUMBER
				;[253] (1=CREATE,0=EDIT,2=PERUSE)
	MOVEM T2,CMDFLG		;[245] STORE IN FLAG REGISTER
	HRROI T2,[ASCIZ/file/]	;[245] PLACE GUIDE WORD IN T2
	MOVEM T2,NOIFDB+.CMDAT	;[245] STORE IN NOISE FDB
;**;[253]  Replace 1 line at INPAR:+8			DML	20-Nov-84
	SKIPE T2,CMDFLG		;[253][245] IS COMMAND EDIT?
	JRST CRESPC		;[245] NO, CONTINUE ELSEWHERE
	MOVE T2,OFFDB+.CMFNP	;[245] GET FIRST WORD OF OUTPUT FILE FDB
	TLO T2,(CM%SDH)		;[245] SET TO SUPPRESS DEFAULT HELP MESSAGE
	HRRI T2,0		;[245] CLEAR OUT ANY LINK TO OTHER FDB'S
	MOVEM T2,OFFDB+.CMFNP	;[245] REPLACE IN OUTPUT FDB
	MOVEI T2,NOIFDB		;[245] GET NOISE FDB FOR PARSE
	COMND			;[245] PARSE NOISE
	  ERJMP ERRHD0		;[245] ERROR
	CALL PAROK		;[245] GUIDE WORD PARSED?
	MOVEI T2,IFFDB		;[245] GET INPUT FILE FDB
	COMND			;[245] PARSE FOR INPUT FILE
	  ERJMP ERRHD0		;[245] ERROR
	CALL PAROK		;[245] LEGAL FILESPEC PARSED? (INPUT OR OUTPUT)
OSPEC:	MOVE T1,T2		;[245] DON'T NEED JFN ACQUIRED....
	RLJFN			;[245] SO RELEASE IT
	  FJERR			;[245] ERROR
	HRROI T2,[ASCIZ/output as/]  ;[245] GUIDE WORDS (FOR EDIT COMMAND ONLY)
	MOVEM T2,NOIFDB+.CMDAT	;[245] PLACE IN NOISE FDB
CRESPC:	MOVE T2,OFFDB+.CMFNP	;[245] GET FIRST WORD OF OUTPUT FILE FDB
	TLZ T2,(CM%SDH)		;[245] ALLOW DEFAULT HELP MESSAGE
	HRRI T2,0		;[245] INITIALLY, SET TO CLEAR ALL FDB LINKS
;**;[253]  Change 1 line at CRESPC:+3			DML	20-Nov-84
	SKIPG T1,CMDFLG		;[253][245] IS THIS A CREATE OR PERUSE COMMAND?
	HRRI T2,CONFDB		;[245] NO, SO ALLOW LINK TO CONFIRM FDB
	MOVEM T2,OFFDB+.CMFNP	;[245] REPLACE IN OUTPUT FDB
	MOVEI T1,CMDBLK		;[245] GET COMMAND BLOCK FOR PARSE
	MOVEI T2,NOIFDB		;[245] GET NOISE FDB FOR PARSE
	COMND			;[245] PARSE GUIDE WORDS
	  ERJMP ERRHD0		;[245] ERROR
	CALL PAROK		;[245] GUIDE WORDS PARSED?
	MOVEI T2,OFFDB		;[245] GET OUTPUT FILE FDB
;**;[253]  Add 7 lines after CRESPC:+12			DML	20-Nov-84
	MOVEI T3,2		;[253] GET COMMAND CODE FOR PERUSE COMMAND
	CAMN T3,CMDFLG		;[253] WAS THE PERUSE COMMAND ENTERED?
	JRST [	MOVE T2,IFFDB+.CMFNP  ;[253] GET FIRST WORD OF INPUT FILE FDB
		HRRI T2,0	;[253] CLEAR OUT ANY LINK TO OTHER FDB'S
		MOVEM T2,IFFDB+.CMFNP	;[253] REPLACE IN INPUT FDB
		MOVEI T2,IFFDB	;[253] GET INPUT FILE FDB
		JRST .+1]	;[253]
	COMND			;[245] PARSE FILESPEC
	  ERJMP ERRHD0		;[245] ERROR
	CALL PAROK		;[245] OUTPUT FILESPEC PARSED?
ENDPAR:	HRRZ T3,T3		;[245] ISOLATE FDB USED IN PARSE
	CAIN T3,CONFDB		;[245] WAS THE CONFIRM FDB USED?
	JRST STPCMD		;[245] YES, SO PARSE IS OVER
	MOVE T1,T2		;[245] DON'T NEED JFN ACQUIRED ....
	RLJFN			;[245] SO RELEASE IT
	  FJERR			;[245] ERROR
	MOVEI T1,CMDBLK		;[245] GET COMMAND BLOCK FOR PARSE
	MOVEI T2,CONFDB		;[245] GET CONFIRM FDB
	COMND			;[245] PARSE FOR CONFIRMATION (CR)
	  ERJMP ERRHD0		;[245] ERROR
	CALL PAROK		;[245] CARRIAGE RETURN PARSED?
STPCMD: MOVE P,[IOWD PDLSIZ,PDL];[245] RESET STACK POINTER
	MOVEI T1,TTYCH		;[245] RESET DEFAULT INPUT ROUTINE
	MOVEM T1,CHIN		;[245] ....
	MOVE T1,[POINT 7,CMDBUF];[245] RESET POINTER TO COMMAND BUFFER
	MOVEM T1,P.TEXT		;[245] STORE POINTER FOR READING
	JRST CMDCON		;[245] BACK TO TRY AGAIN

BADSW:	TLZ FL2,INPARS		;SAY WE'RE OUT OF PARSE
	OUTSTR	[ASCIZ "
?Type switches immediately after CREATE or EDIT"]
	JRST	LOSER		;BYE-BYE


RDEOTX:	TRZ	FL,F.LAHD	;CLEAR PARSE FLAG
	MOVE	T1,SVPCIN	;RESTORE CHIN
	MOVEM	T1,CHIN
	SKIPN	T1,TECINC	;TECO INCREMENT?
	MOVE	T1,[<ASCII /00100/>!1]
	MOVEM	T1,TECINC	;SET CORRECT ONE UP
	SKIPN	TECFST		;START SEQ # GIVEN?
	MOVEM	T1,TECFST	;NO: USE INCREMENT
	POPJ	P,		;EXIT PARSE

;ROUTINE TO DO GTJFN ON STRING POINTED TO BY P.TEXT
;GTJFN BITS IN T1, FILE BLOCK IN ALTP

TRYGTJ:	MOVE	T2,P.TEXT	;GET TEXT POINTER
	ADD	T2,[7B5]	;BACKUP ONE CHAR
	TLO	T1,(GJ%FLG)	;SET TO GET FLAGS
	PUSHJ	P,GTJFNX	;DO GTJFN
	  RET			;ERROR RETURN
	TLNE	T1,(GJ%TFS)	;SEE IF THIS IS A TEMPORARY FILE SPEC
	  JRST	[TLZ FL2,INPARS	;OUT OF PARSE
		 OUTSTR	[ASCIZ "
?Illegal to write a temporary file"]	;TYPE MESSAGE
		 JRST	LOSER]	;GO DIE
	ANDI	T1,-1		;CLEAR FLAGS
	MOVEM	T1,JFN(ALTP)	;SAVE JFN
	MOVEM	T2,P.TEXT	;SAVE UPDATED PNTR
	TRO	FL,F.LAHD	;ONE AHEAD
	AOS	(P)		;SET FOR SKIP RETURN
;	PJRST	JFNSTR		;CONVERT JFN TO STRING

;ROUTINE TO CONVERT JFN IN T1 , TO ASCIZ STRING

JFNSTR:	MOVE	T2,T1		;COPY JFN TO T2
	HRROI	T1,ASZ(ALTP)	;POINT TO BLOCK
	MOVEM	T1,FIL(ALTP)	;SAVE PNTR
;**;[246]	Change 1 line at JFNSTR:+3		DML	11/4/82
	MOVE T3,[JS%SPC]	;[246] WANT ENTIRE FILESPEC
	JFNS			;GET STRING
	RET			;RETURN
;ROUTINE TO READ THE INITIAL SWITCH LIST FROM THE INITIAL PARSER
;ENTER WITH THE FIRST "/" PARSED, EXIT WITH THE TERMINATOR CHAR
;IN C

GETSWT:	TRZ FL,F.LAHD		;INCREMENT THE POINTER FIRST
	PUSHJ P,RDATOM		;GET SWITCH NAME
	MOVEM D,ACCUM		;LEAVE FOR DOSET
	PUSHJ P,DOSET		;CALL APPROPRIATE SET ROUTINE
	  JRST SWTERR		;ILEEGAL SWITCH, COMPLAIN
	TRO FL,F.LAHD		;ENSURE WE SEE BREAK
	PUSHJ P,RDSKIP		;DISCARD ANY SPACES
	PUSHJ P,@CHIN		;THEN GET THE CHARACTER
	CAIN C,"/"		;ANOTHER SWITCH?
	JRST GETSWT		;YES, KEEP GOING
	TRO FL,F.LAHD		;RETURN TO NO LOOK-AHEAD
	POPJ P,			;NOPE, STOP NOW, RETURN THAT CHARACTER

SWTERR:	HRROI T1,[ASCIZ /?Illegal Switch - /]
	PSOUT			;Give message
	MOVEI T3,6		;Print six characters
	MOVE T2,[POINT 6,D]	;Sixbit pointer
SWTER1:	ILDB T1,T2		;Get sixbit chr.
	ADDI T1,40		;Asciize
	PBOUT			;print it
	SOJG T3,SWTER1		;Only six
	JRST LOSER		;Die ungracefully
;ROUTINE TO ZERO OUT NEWBLK

ZERNEW:	MOVE	T1,[NEWBLK,,NEWBLK+1]
	SETZM	NEWBLK
	BLT	T1,NEWBKE
	POPJ	P,

;ROUTINE TO MAKE OUTPUT FILE BE SAME AS INPUT

DEFNEW:	MOVE	T2,ORGJFN	;ORIGINAL FILE JFN
	HRROI	T1,NEWASZ	;NEW STUFF
	MOVEM	T1,NEWFIL	;SAY WE HAVE SOMETHING
	MOVE	T3,[1B8+1B11+1B35] ;GET FILE SPEC DEFAULTS
	SKIPN	CREATF		;(197) CREATING NEW FILE?
	SKIPE	SAMDEV		;(197) NO, SKIP IF DEV:<DIR> NOT EQUAL
	TLO	T3,(1B2+1B5)	;YES - NEED DEV:<STR> ALSO
	JFNS
	HRROI	T2,NEWASZ	;POINT TO TEXT OF FILESPEC
	MOVSI	T1,(GJ%FOU!GJ%SHT)
	PUSHJ	P,GTJFNX
	  FJERR			;BETTER NOT FAIL
	MOVEM T1,NEWJFN		;SAVE A WHILE
	MOVEI	ALTP,NEWBLK	;POINT TO NEWBLK
	CALL	JFNSTR		;CONVERT TO STRING
;	CALLRET TSTNEW		;CHECK IF "NEW" FILE.

;TEST TO SEE IF WE SHOULD TREAT THE OUTPUT FILE AS A "NEW"
;FILE, RATHER THAN THE NEXT HIGHEST GENERATION.

TSTNEW:	HRROI T1,LIBUF		;USE TEMP BUFFER
	MOVE T2,ORGJFN
	MOVE T3,[1B2+1B5+1B8+1B11+1B35]
	JFNS			;GET DEV:<DIR>NAME.EXT
	HRROI T1,LIBUF2		;2ND BUFFER
	MOVE T2,NEWJFN
	JFNS			;GET DEV:<DIR>NAME.EXT (OUTPUT)
	HRROI T1,DEVSTR		;SAVE OUTPUT DEV:<DIR>
	MOVE T3,[1B2+1B5+1B35]
	JFNS
	HRROI T1,LIBUF
	HRROI T2,LIBUF2		;COMPARE THESE 2 FILES
	STCMP			;SAME?
	SKIPE T1		;AC1 := 0 IF EXACT MATCH
	TRO FL,NEWFL		;NO - SET NEW FILE FLAG
	HRROI	T1,DEVST2	;(197) SAVE DEV:<DIR> INPUT
	MOVE	T2,ORGJFN	;(197)
	MOVE	T3,[1B2+1B5+1B35];(197)
	JFNS			;(197) GET DEV:<DIR> INPUT
	HRROI	T1,DEVSTR	;(197) COMPARE OUTPUT DEV:<DIR>
	HRROI	T2,DEVST2	;(197) COMPARE INPUT DEV:<DIR>
	SETZM	SAMDEV		;(197)
	STCMP			;(197) SAME?
	SKIPN	T1		;(197) AC1: =0 IF EXACT MATCH
	SETOM	SAMDEV		;(197) YES THEY ARE EXACT MATCH
	MOVE T1,NEWJFN		;RELEASE THIS HERE
	SETZM NEWJFN
	RLJFN			;...
	 FJERR			;SHOULDN'T HAPPEN
	MOVE T1,ORGCOD		;CHECK PSWS
	CAME T1,NEWCOD
	TRO FL,NEWFL		;NEW FILE IF PSWS DIFFERENT
	MOVE	T1,ORGJFN	;WANT TO GET PROTECTION OF ORIGINAL FILE
	MOVE	T2,[1,,.FBPRT]	;SO READ FROM FDB
	MOVEI	T3,ORGPRT	;INTO STORAGE
	GTFDB			;GET THE INFORMATION
	RET			;RETURN
;COMMAND ERROR ROUTINE

COMERR:	OUTSTR	[ASCIZ /? /]
	OUTSTR	(T1)
	OCRLF
	CALL	CLRBFI		;CLEAR TYPE AHEAD
	SETZM	TTICNT
COMER1:	SETZM	RPGSW		;CLEAR RPG MODE
	TRZ	FL,F.LAHD
	MOVE	T1,SVPCIN	;RESTORE CHIN
	MOVEM	T1,CHIN
	MOVE	P,[IOWD PDLSIZ,PDL] ;RESTORE PDL
	JRST	NOCOM1		;TRY SOME MORE
;CHKCOD - Checks for File-not-found-type GTJFN errors
;Call:  T1/ anything,,error number
;Uses:  T1, and T2

CHKCOD:	HRRZS	T1		;JUST ERROR NUMBER
	MOVSI	T2,-GTJTLN	;- TABLE LEN
	CAME	T1,GTJTAB(T2)	;LOOK IT UP
	AOBJN	T2,.-1		;LOOP
	JUMPGE	T2,CPOPJ	;NOT FOUND
	RETSKP			;FOUND GIVE SKIP RETURN

GTJTAB:	GJFX18			;?No such file name
	GJFX19			;?No such extension
	GJFX20			;?No such generation
	GJFX16
	GJFX17
	GJFX21
	GJFX24			;?File not found
GTJTLN==.-GTJTAB

;ROUTINE TO MAKE FULL FILE SPEC FOR TEMP FILES
;C(T1) := FILE NAME.EXT
;C(T2) := POINTER TO BUFFER

MAKTMP:	PUSH P,T1		;SAVE NAME
	MOVE T1,T2		;POINTER TO T1
	HRROI T2,DEVSTR		;DEVICE STRUCTURE STRING
	MOVEI T3,0
	SOUT
	POP P,T2		;NAME AND EXT
	SOUT
	RET			;DONE

;GET SIZE FOR FILE IN WORDS

GFSIZE:	MOVE	T1,IJFN(ALTP)	;FILE JFN
	MOVE	T2,[2,,.FBBYV]	;BYTE SIZE & COUNT
	MOVEI	T3,T4		;LOAD T4 & T5
	GTFDB
 	LDB	T2,[POINT 6,T4,11] ;FILE BYTE SIZE
	MOVEI	T3,^D36		;BITS / WORD
	IDIV	T3,T2		;BYTES / WORD
	AOS	T1,T5		;# OF BYTES IN FILE
	ADDI	T1,-1(T3)	;ADJUST FOR XTRA WORD
	IDIV	T1,T3		;# OF WORDS IN FILE
	MOVEM	T1,FSZ(ALTP)	;SAVE
	RET			;RETURN
;UTILITY ROUTINES

RDSKIP:	PUSHJ	P,RDSKP1		;SKIP SPACES
	TRO	FL,F.LAHD		;SET LOOK AGAIN
	POPJ	P,

RDSKP1:	PUSHJ	P,@CHIN
	CAIE	C," "
	CAIN	C,"	"	;SPACE OR TAB
	JRST	RDSKP1
	POPJ	P,

RDATOM:	MOVE	T1,[POINT 6,D]
	MOVEI	D,0		;INIT ATOM
RDATO1:	PUSHJ	P,@CHIN
	PUSHJ	P,CKALN		;CHECK ALPHA-NUMERIC
	JRST	RDATO2
	TLNN	T1,770000		;6 YET?
	JRST	RDATO1
	SUBI	C,40
	IDPB	C,T1
	JRST	RDATO1

RDATO2:	CAIE	C," "
	CAIN	C,"	"
	JRST	RDATO4		
RDATO3:	PUSHJ	P,CKALN
	POPJ	P,
	MOVEI	C," "		;RETURN A SPACE IF
	TRO	FL,F.LAHD		;ALPHA-NUMERIC
	POPJ	P,
RDATO4:	CAIN	D,0		;MAYBE IT WAS A LEADING SPACE
	JRST	RDATO1		;YES, SO GET ANOTHER CHAR
	PUSHJ	P,RDSKP1	;NO,SO IT MEANT END-OF-SWITCH-NAME
	JRST	RDATO3		
;HERE TO FETCH NEXT CHAR

LDCHR:	SKIPN	RPGSW		;FROM WHERE
	JRST	LDCHR1
	TRZN	FL,F.LAHD
LDCHRA:	IBP	P.TEXT
	LDB	C,P.TEXT
	CAIN	C,15		;PURGE CR'S
	JRST	LDCHRA
	POPJ	P,

LDCHR1:	TRZE	FL,F.LAHD
	SKIPA	C,SVCCIN
LDCHRB:	PUSHJ	P,TTYCH
	CAIN	C,15		;SKIP OVER CR'S
	JRST	LDCHRB
	MOVEM	C,SVCCIN
	POPJ	P,

;CHECK IF CHAR IS ALPHA-NUMERIC

CKALN:	CAIG	C,"z"
	CAIGE	C,"a"
	SKIPA
	SUBI	C,40	;CONVERT TO UPPER
	CAIL	C,"0"
	CAILE	C,"Z"
	POPJ	P,
	CAILE	C,"9"
	CAIL	C,"A"
	AOS	(P)
	POPJ	P,

;SPECIAL ROUTINE CALLED FROM SET OPTION IN INITIAL PARSE

OPTSWT:	TLZ	FL2,INPARS	;TEMP CLR FLAG
	PUSHJ	P,DOOPT		;PARSE OPTION FILE
	  JRST	OPTSE1		;SAY NOT FOUND
	  JRST	OPTSE2		;SAY ERROR IN FILE
	TLO	FL2,INPARS	;TURN BACK ON
	MOVEI	C," "		;PRETEND LAST CHAR WAS A SPACE
	POPJ	P,		;RETURN

OPTSE1:	MOVEI	T1,[ASCIZ /Option not found/]
	JRST	COMERR
OPTSE2:	MOVEI	T1,[ASCIZ /Syntax error in option file/]
	JRST	COMERR


SUBTTL OPTION FILE HANDLER
;ROUTINE TO EAT AN OPTION FILE IF ANY
;CALL:	PUSHJ	P,DOOPT
;	<OPTION NOT FOUND>
;	<ERROR IN OPTION FILE>
;	<OK RETURN>
; C(OPTION) = SIXBIT OF DESIRED OPTION OR ZERO IF DEFAULT

DOOPT:	TLNE	FL2,INOPTF	;TRYING TO REENTER
	JRST	WRAPUP		;JUST GIVE CURRENT FAILURE
	SETO T1,		;THIS JOB
	HRROI T2,T4		;ONE WORD,,T4
	MOVEI T3,.JILNO		;LOGGED IN DIRECTORY #
	GETJI
	 FJERR
	HRROI T1,LIBUF2		;BUILD STRING HERE
	MOVE T2,T4
	DIRST			;GET STR:<DIR>
	 FJERR
	HRROI	T2,[ASCIZ "SWITCH.INI"]
	MOVEI	T3,0
	SOUT			;COPY STRING
	MOVSI	T1,(GJ%OLD!GJ%PHY!GJ%SHT)
	HRROI	T2,LIBUF2	;POINT TO FILESPEC
	PUSHJ	P,GTJFNX	;GET JFN
	  RET			;SAY NOT FOUND
	MOVEM	T1,OPTJFN	;SAVE JFN
	MOVE	T2,[7B5+OF%RD]	;READ MODE (ASCII)
	OPENF			;OPEN FILE
	  JRST	[MOVE T1,OPTJFN
		 RLJFN		;RELEASE JFN
		   JFCL
		 SETZM OPTJFN	;(222)CLEAR JFN STORAGE
		 RET]		;AND RETURN
	MOVEI	T1,OPTCH	;SET UP INPUT ROUTINE
	EXCH	T1,CHIN		;SAVE CURRENT ONE
	MOVEM	T1,SVOCIN
	TLO	FL2,INOPTF	;SAY WE IS IN OPTION FILE
	SETZM	SAVCHR		;CLEAR SCANNER

RDOPT:	PUSHJ	P,SCAN		;FETCH FIRST ATOM OF LINE
	CAIN	C,177		;EOF OR ERROR?
	JRST	WRAPUP		;YES: FINISH UP AND RETURN
	MOVE	T1,ACCUM	;GET WHAT WE FOUND
	CAME	T1,[SIXBIT "EDIT"]
	JRST	SKPEOL		;NOT WHAT WE WANT - TRY NEXT LINE
	PUSHJ	P,SCAN		;FETCH BREAK CHAR
	SKIPN	OPTION		;NEED DEFAULT?
	JRST	DEFOPT		;YES:
	CAIE	C,":"		;LOOK AT BREAK CHAR
	JRST	SKPEOL		;SKIP LINE IF NOT COLON
	PUSHJ	P,SCAN		;GET NEXT ATOM
	TRNE	FL,IDF		;SEE IF IDENT
	JRST	OPTONE		;YES: TRY THIS
	CAIE	C,"("		;COULD BE LEFTPAREN
	JRST	OPTDN1		;NOPE - IT IS TRASH
OPTMOR:	PUSHJ	P,SCAN		;TRY FOR ATOM
	MOVE	T1,ACCUM
	CAMN	T1,OPTION	;IS THIS THE ONE?
	JRST	OPTMR1		;SCAN FOR RT PAREN
	PUSHJ	P,SCAN		;GULP DOWN BREAK CHAR
	CAIN	C,","		;COMMA MEANS MORE COMING
	JRST	OPTMOR
	CAIN	C,")"		;RT PAREN MEANS THAT'S ALL
	JRST	SKPEOL		;TRY NEXT LINE
	JRST	OPTDN1		;TRASHINESS

OPTMR1:	PUSHJ	P,SCAN		;LOOK FOR RT PAREN
	CAIE	C,177		;EOF OR ERROR
	TRNE	FL,TERMF	;EOL
	JRST	OPTDN1
	CAIE	C,")"		;A GOOD THING
	JRST	OPTMR1		;KEEP LOOKING
	JRST	OPTFN0		;GOT IT

OPTONE:	MOVE	T1,ACCUM
	CAME	T1,OPTION	;IS THIS IT?
	JRST	SKPEOL		;NO: KEEP LOOKING
OPTFN0:	AOS	(P)		;ALL ELSE ARE ERRORS OR AOK
OPTFND:	PUSHJ	P,SCAN		;SCAN NEXT
	TRNE	FL,IDF		;IDENTS ARE OK
	JRST	OPTGOT		;GOT ONE - USE IT
OPTNXT:	CAIE	C,"/"		;CHECK LEGAL DELIMS
	CAIN	C,","
	JRST	OPTGET		;NEED TO SCAN AGAIN
	CAIE	C,"-"		;CHECK LINE CONT.
	JRST	OPTDON		;NOPE - CHECK PROPER EOL
	PUSHJ	P,SCAN		;SCAN PAST DASH
	TRNN	FL,TERMF	;PROPER TERM?
	JRST	WRAPUP		;NO: SYNTAX ERROR
	JRST	OPTFND		;CONTINUE LOOKING
OPTGET:	PUSHJ	P,SCAN		;GET NEXT ATOM
	TRNN	FL,IDF		;IDENT?
	JRST	WRAPUP		;NO: LOSE
OPTGOT:	PUSHJ	P,DOSET		;SWITCH IN "ACCUM" - CALL SET ROUTINE
	JRST	WRAPUP		;ILLEGAL ENTRY IN FILE
	JRST	OPTNXT		;CONTINUE

OPTDON:	TRNE	FL,TERMF	;OK IF PROPER TERM
OPTDN1:	AOS	(P)		;GIVE SKIP RETURN
	JRST	WRAPUP		;FINISH UP

DEFOPT:	CAIE	C,":"		;IF COLON JUST SKIP LINE
	JRST	OPTFN0		;ELSE WE HAVE CORRECT LINE
SKPEOL:	PUSHJ	P,GNCH		;GET A CHAR
	CAIN	C,177		;CHECK ON EOF
	JRST	WRAPUP		;DONE IF SO
	TLNN	CS,TERM_16	;TERMINATOR?
	JRST	SKPEOL		;NO: KEEP GOING
	SETZM	SAVCHR		;CLEAR SCANNER
	SETZM	ACCUM		;...
	JRST	RDOPT		;YES: TRY THIS LINE

WRAPUP:	MOVE	T1,OPTJFN	;GET JFN
	CLOSF			;RELEASE
	  JFCL			;DONT CARE
	SETZM	OPTJFN		;(222)CLEAR JFN STORAGE
	MOVE	T1,SVOCIN	;RESTORE OLD INPUT ROUTINE
	MOVEM	T1,CHIN
	TLZ	FL2,INOPTF
	POPJ	P,		;RETURN
;UTILITY ROUTINES TO READ OPTION FILE

OPTCH:	PUSH	P,T1		;SAVE REGS
	PUSH	P,T2		;...
OPTCH1:	MOVE	T1,OPTJFN	;OPTION FILE JFN
	BIN			;READ A CHAR
	JUMPE	T2,OPTEOF	;SEE IF EOF
	MOVE	C,T2		;PLACE IN C
POPRET:	POP	P,T2		;RESTORE REGS
	POP	P,T1
	RET			;RETURN

OPTEOF:	GTSTS			;GET FILE STATUS
	TLNN	T2,(GS%EOF)	;AT EOF?
	JRST	OPTCH1		;NO - PURGE ZERO BYTES
	MOVEI	C,177		;GET A RUBOUT
	JRST	POPRET		;AND RETURN

SUBTTL	ERROR ROUTINES
NOTDKI:
NOTDKO:
NODSK:	CALL NOCTRO
	OUTSTR [ASCIZ /
? No DISK available. Please check the DISK you have requested/]
	JRST	LOSER


CANTOP:	CALL NOCTRO
	OUTSTR [ASCIZ "
? Unable to open temporary file (EDIT-BUFFER.OUT) for this edit."]
	RET
;	THE ERROR HANDLER & SPECIAL FILE OPERATIONS

ERRHD0:	PUSH	P,T1		;SAVE T1
	LDB	T1,[POINT 9,40,8]
	CAILE	T1,MAXUUO	;CHECK LEGAL
	ERROR	ILUUO
	XCT	EDISP(T1)	;DO FUNCTION
	  AOS	-1(P)		;NON-SKIP MEANS SKIP
	POP	P,T1		;RESTORE T1
	RET			;RETURN

ERRCON:	CALL	NOCTRO		;TURN OFF ^O
	HRRZ	T1,40		;PICK UP THE ERROR NUMBER
	SKIPE	T1
	CAILE	T1,NUMER
	ERROR	ILUUO		;WRONG ERROR, CALL SELF
	TLNE	FL2,INOPTF!INPARS ;TREAT OPTION FILE AS SPECIAL
	JRST	OPTERR		;...
	PUSH	P,40		;SAVE FOR LATER
	OCRLF
	MOVEM	T1,SVERN	;SAVE FOR =ERROR COMMAND
	MOVE	T1,ETBL-1(T1)	;PNTR TO MESSAGES
	TRNE	FL,EXTOG
	MOVSS	T1		;USE SHORT FORM
	TLO	T1,-1		;DEFAULT BP
	PSOUT			;PRINT MESSAGE
	OCRLF			;TERMINATE WITH CRLF
	TRNN	FL2,COMFLF	;IN COMMAND FILE?
	JRST	ERRHD1		;NO: SKIP OVER LINE PRINT
	HRROI	T1,COMESS	;MSG ADDRS
	PSOUT			;DUMP IT
ERRHD1:	POP	P,40		;RESTORE OLD VALUE
	LDB	T1,[POINT 9,40,8] ;GET UUO
	XCT	ERND(T1)	;DO GOOD THING
	RET			;RERROR WILL FALL THROUGH XCT AND RETURN

ERND:	ERROR	ILUUO		;(0) IS AN ERROR
	JRST	LOSER		;(1) DIE
	JRST	CKIND		;(2) CHECK IND FILE
	POP	P,T1		;(4) RERROR - RESTORE T1

LOSER:	OCRLF
	MOVEI T1,.TICCC		;DISABLE ^C TRAPS
	DTI			;...
	HALTF			;DONE FOR NOW
	JRST	.-1		;I MEANT IT

CKIND:	TRNE	FL2,COMFLF	;WERE WE USING IND FILE?
	SETOM	USEIND		;YES, REMEMBER IT.
	TRZ	FL2,COMFLF!SUPN!UPTOPF	;RESET SOME FLAGS
;**;[241]	insert 1 line after CKIND+2	YKT	6/1/82
	TLZ 	FL2,DOENDF	;[241] SET FLAG OFF
	CALL	CLRBFI		;CLEAR OUT THINGS
	SETZM	TTICNT
	SKIPE	USEIND		;USING IND FILE BEFORE?
	TRO	FL2,COMFLF	;YES, RESET FLAG
	SETZM	USEIND		;CLEAN UP
	JRST	COMND		;GO ON

EDISP:	ERROR	ILUUO		;(0) ILLEGAL
	JRST	ERRCON		;(1) ERROR
	JRST	ERRCON		;(2) NERROR
	JRST	ERRCON		;(3) RERROR
	CALL	CJERR		;(4) NON-FATAL JSYS ERROR
	CALL	FATAL		;(5) FATAL JSYS ERROR
	CALL	TSOUT		;(6) SOUT
	CALL	TBOUT		;(7) BOUT
	CALL	TBIN		;(10) BIN

;HERE ON FATAL JSYS LOSAGE

FATAL:	CALL	NOCTRO		;LET HIM SEE MSG
	OUTSTR	[ASCIZ "
? Fatal JSYS error - "]
	CALL	CJERR1		;PRINT SYSTEM MESSAGE
	JRST	LOSER		;ALL DONE

;NON-FATAL JSYS ERROR , PRINT MESSAGE LIKE NERROR

CJERR:	CALL	CJERR0		;PRINT MESSAGE
	JRST	CKIND		;SIMULATE NERROR

CJERR0:	CALL	NOCTRO		;FLUSH ^O
	OUTSTR	[ASCIZ "
% "]
	CALL	CJERR1		;PRINT SYSTEM MESSAGE
	OCRLF			;TERMINATE LINE
	RET			;RETURN

CJERRC:	SKIPA	T2,T1		;MOVE CODE TO T2
CJERR1:	SETO T2,		;USE LAST ERROR
	MOVEI	T1,.PRIOU	;WHERE TO PUT MSG
	HRLI	T2,.FHSLF
	MOVEI	T3,0		;ERSTR DRESSING
	ERSTR
	  JRST	[OUTSTR [ASCIZ "?Undefined error code."]
		 JRST LOSER]
	  JRST	[OUTSTR [ASCIZ "?ERSTR confused!"]
		 JRST LOSER]
	RET			;RETURN
;ROUTINES TO HANDLE TERMINAL INPUT/OUTPUT

TSOUT:	JSP T1,SETESC		;SET TRUTH IN ESCAPES
	HRRO T1,40		;GET UUO ADDRS
	PSOUT		;DUMP STRING
	RETSKP		;RETURN

TBOUT:	JSP T1,SETESC
	MOVE T1,@40	;GET CHARACTER
	PBOUT		;DUMP IT
	RETSKP		;RETURN

SETESC:	PUSH P,T2	;SAVE T2,T3
	PUSH P,T3
	PUSH P,T1	;SAVE RETURN ADDRS
	MOVEI T1,.PRIOU	;PRIMARY OUTPUT
	MOVE T2,COCW1	;GET COC WORDS
	MOVE T3,COCW2
	TRZ T3,3B19	;SET THIS FOR ACTUAL ESC CODE
	TRO T3,2B19	; TO BE SENT
	SFCOC		;...
	POP P,T1		;REMOVE RETURN ADDRS
	DMOVE T2,-1(P)		;RESTORE T2 & T3
	CALL @T1		;RETURN
	 SOS -2(P)		;NON-SKIP
	MOVEI T1,.PRIOU		;RESET COC WORDS
	MOVE T2,COCW1
	MOVE T3,COCW2
	SFCOC
	POP P,T3
	POP P,T2		;RESTORE REGS
	RETSKP			;RETURN

TBIN:	PUSH	P,T2		;SAVE XTRA REG
	MOVEI	T1,.PRIIN	;PRIMARY INPUT
	MOVE T2,MODW		;GET MODE WORD
	TRO T2,TT%WAK		;WAKE ON EVERYTHING
	SFMOD			;SET IT
	PBIN			;GET A CHAR
	HRRZ	T2,40		;DEST ADDRS
	CAIN	T2,T1		;IS IT T1?
	MOVEI	T2,-2(P)	;YES - USE PDL THEN
	MOVEM	T1,@T2		;STORE CHAR
	MOVEI	T1,.PRIIN	;RESET MODES
	MOVE T2,MODW		;...
	SFMOD			;...
	POP	P,T2		;RESTORE REG
	RETSKP			;RETURN

;ROUTINE TO TURN OFF POSSIBLE CTRL-O

NOCTRO:	PUSH	P,T1		;SAVE REGS
	PUSH	P,T2
	MOVEI T1,.PRIOU		;PRIMARY OUTPUT
	MOVE T2,MODW		;GET MODE WORD
	TLZ T2,(TT%OSP)		;CLEAR FLAG
	SFMOD			;SET NEW MODE
	PJRST	POPRET		;RETURN
SUBTTL	CONTROL-C INTERCEPT CODE

OPTERR:	MOVE	T1,-1(P)	;RESTORE T1
	SUB	P,[3,,3]	;UP A LEVEL
	RET			;AND GIVE ERROR RETURN

;CONTROL C INTERCEPT HANDLERS

;ENABLE ALL INTERCEPTS

ENBINT:	PUSH	P,T1		;SAVE T1,T2
	PUSH	P,T2
	MOVEI	T1,.FHSLF	;CURRENT FORK
	MOVSI	T2,(1B<.TICCC>)
	SKIPL	NOCTLC		;NONE?
	STIW			;OK - SET MASK
	MOVE	T2,ONCHAN	;CHANNEL MASK
	SKIPGE	NOCTLC		;^C ALSO?
	TLZ	T2,(1B<.TICCC>)	;NO - CLR CHL #
	AIC			;
	SETOM	CNCLOK		;CLEAR INTERLOCK FOR FIRST TIME
	POP	P,T2		;RESTORE
	POP	P,T1
	POPJ	P,		;

;DISABLE INTERCEPT

DISINT:	PUSH	P,T1		;SAVE T1,T2
	PUSH	P,T2
	MOVEI	T1,.FHSLF	;CURRENT FORK
	MOVEI	T2,0		;CLEAR MASK
	STIW
OFFIN1:	MOVSI	T2,(1B<.TICCC>)	;^C ONLY
	SKIPN	NOCTLC		;CAN CTRL-C BE DISABLED?
	DIC			;YES
	POP	P,T2		;RESTORE
	POP	P,T1
	POPJ	P,		;RETURN

OFFINT:	PUSH	P,T1		;SAVE REGS
	PUSH	P,T2
	MOVEI	T1,.FHSLF	;CURRENT FORK
	JRST	OFFIN1		;DISABLE CHL

;INITIALIZE PSEUDO-INTERRUPT SYSTEM

INIPSI:	SETZM	NOCTLC		;ASSUME OK
	MOVEI	T1,.FHSLF	;THIS FORK
	CIS			;CLEAR PSI SYSTEM
	MOVE	T2,[LEVTAB,,CHNTAB]
	SIR			;SET UP PSI SYSTEM
	RPCAP			;GET CAPABILITIES OF FORK
	TLNN	T2,(1B0)	;CAN WE ENABLE FOR CTRL-C?
	 JRST	[SETOM	NOCTLC	;SET FLAG, CAN'T ENABLE FOR CTRL-C
		 JRST INIPS0]
	TLON	T3,(1B0)	;YES
	EPCAP			;
	MOVE	T1,[.TICCC,,TRPCHN] ;ESTABLISH CTRL-C
	ATI			;
	MOVEI	T1,.FHSLF	;RESTORE T1
INIPS0:	EIR			;ENABLE PSI SYSTEM
	SETOM	CNCLOK		;CLEAR INTERLOCK FOR FIRST TIME
	POPJ	P,		;
;INTERRUPT HANDLER

TRAP:	PUSH	P,T1		;SAVE A REG
	SETZM	CNCLOK		;MARK IN PROGRESS
	TLNN	FL2,DOENDF	;IF WE WERE IN END CODE, GIVE OPP TO ^C OUT
	TLNN	FL2,NORENT	;ARE WE DISABLED?
	 SKIPA			;NO
	JRST	CNCREN		;YES: JUST RE-ENTER
	CALL	OFFINT		;TURN OFF CHL
	MOVEI	T1,.PRIOU	;PRIMARY OUTPUT
	CFOBF			;CLEAR IT
CNCIN0:	CALL	NOCTRO		;CLEAR ^O
	OUTSTR	[ASCIZ "Yes? "]
	TRNN	FL,EXTOG
	OUTSTR	[ASCIZ "(Type H for help): "]
	SKIPN	ECFLG		;(194) IS ECHO FLAG SET?
	CALL	DOECHO		;(194) YES TURN ON ECHO
	CALL	INHELP		;GET CHAR
	  JRST	CNCHLP		;HE WANTS HELP
	CAIN	T1,"R"
	JRST	CNCREN		;DO LIKE REENTER
	CAIN	T1,"C"
	JRST	CNCCON		;CONTINUE
	CAIN	T1,"M"
	JRST	MONRET		;PUNT!
	CAIN	T1,"E"
	JRST	[TLNE	FL2,DOENDF	;WERE WE ALREADY IN END CODE?
		 JRST CNCCON	;YES, JUST GO ON
		MOVEI T1,CNCXIT ;(202) DO "E" COMMAND
		 JRST CNCIN1]	;(202) DISMISS TO NEW PC
	CAIN	T1,"Q"
	JRST	[TLNE	FL2,DOENDF	;WERE WE ALREADY IN END CODE
		 JRST CNCCON	;YES, JUST GO ON
		MOVEI T1,CNCQT	;DO "EQ" COMMAND
		 JRST CNCIN1]	;DISMISS TO NEW PC
	CAIN	T1,"D"
	CALL	CHKDDT		;CHECK DDT ALLOWED
	  JRST	CNCIN0		;TRY AGAIN
	HRRZ	T1,T1
CNCIN1:	MOVEM	T1,RETSAV	;NEW PC FOR DEBRK
	CALL	ENBINT		;RE-ENABLE INTS
	POP	P,T1		;RESTORE T1
	SETOM	CNCLOK		;CLEAR INTERLOCK
	DEBRK			;AND GO TO NEW ROUTINE
	  ERJMP	.+1
	JRSTF	@RETSAV		;DO OUR BEST

;PDL OVERFLOW HANDLER

PDLTRP:	PUSH	P,T1		;SAVE T1
	MOVEI	T1,PDLOV	;WHERE WE WANT TO BE
	MOVEM	T1,RETSAV	;SAVED PC
	POP	P,T1		;RESTORE T1
	DEBRK			;DISMISS
	ERROR	ICN		;NEVER COME HERE

PDLOV:	NERROR	STC		;STRING TOO COMPLEX

;HERE TO DUMMY E CMD

CNCXIT:	TLO	FL2,DOENDF	;SET DO END REQUEST

	MOVEI	T1,12		;(202) FAKE OUT SCANNER
	MOVEM	T1,LIMBO	;(202) SAVE IT
	JRST	ENDIT		;(202) PREPARE FOR EXIT
;HERE TO DUMMY UP EQ

CNCQT:	MOVEI	T1,12		;FAKE OUT SCANNER
	MOVEM	T1,LIMBO
	JRST	QUIT		;AND EXIT

CNCREN:	SKIPGE	CNCLOK		;IS THIS A "REE" CMD?
	JRST	[OUTSTR [ASCIZ "?Cannot REENTER from error."]
		 JRST LOSER]	;SORRY
	POP	P,T1
	CALL	ENBINT		;RE-ENABLE ^C CHL
	TLO	FL2,RENTF	;FLAG THAT WE ARE TRYING TO REENTER SO NEXT TIME
				;CHKREN IS CALLED, CONTROL WILL PASS TO COMND
	DEBRK			;DISMISS
	  ERJMP	.+1
	JRSTF	@RETSAV		;NOT INSIDE INT

;ROUTINE TO CHECK IF WE HAVE REENTERED, SKIP RETURN IF NOT.

CHKREN:	TLNN	FL2,NORENT	;ALLOWED?
	TLZN	FL2,RENTF	;YES: CHECK FLAG
	AOS	(P)		;NO: SKIP RETURN
	POPJ	P,		;NO SKIP IF WE DID

CNCCON:	POP	P,T1		;RESTORE T1
	SKIPE	ECFLG		;(194) IS  ECHO FLAG SET?
	CALL 	NOECHO		;(194) PUT BACK IN NOECHO MODE
	SETZM	ECFLG		;(194) SET FLAG TO ZERO
	CALL	ENBINT		;RE-ENABLE ^C CHL
	DEBRK			;AND CONTINUE
	  ERJMP	.+1
	JRSTF	@RETSAV		;NOT INSIDE INT I GUESS

CNCHLP:	OUTSTR	CNCTXT
	CALL	CHKDDT		;SEE IF OK TO TELL HIM
	  SKIPA			;NO SKIP OVER MSG
	OUTSTR	[ASCIZ "D - transfer to DDT
"]
	JRST	CNCIN0

CNCTXT:	ASCIZ "Type one of (followed by carriage return):
C - to CONTinue automatically
E - to end edit and close file
Q - to quit (delete temporary files)
M - return to MONITOR now
R - to do REEnter (terminate losing search etc.)
"

;ROUTINE TO CHECK DDT EXISTANCE

CHKDDT:	PUSH	P,T2		;SAVE T2
	PUSH	P,T3		; & T3
	MOVEI	T1,.FHSLF
	RPCAP			;GET CAPABILITIES
	POP	P,T3		;DON'T CARE
	TRNN	T2,SC%WHL	;WHEEL?
	JRST	NODDT		;NOPE
	MOVE	T1,[.FHSLF,,770] ;PAGE # OF DDT
	RPACS			;CHECK ACCESS
	TLNE	T2,(PA%PEX)	;EXISTS?
	JRST	CHKDD1		;YES - MORE CHECKING
	MOVSI	T1,(GJ%SHT!GJ%OLD)
	HRROI	T2,[ASCIZ "SYS:UDDT.EXE"]
	PUSHJ	P,GTJFNX	;GET JFN
	  JRST	NODDT		;FAIL RETURN
	HRLI	T1,.FHSLF	;INTO OURSELVES
	GET			;GET IT
	  ERJMP	NODDT		;FORGET IT
	HRRZS	T1		;RESET JFN
	RLJFN			;RELEASE IT
	MOVEI	T1,.FHSLF	;RESET ENTRY VECTOR
	MOVE	T2,[3,,EV]
	SEVEC			;...
	MOVE	T1,.JBSYM##	;GET SYMBOL TABLE PNTR
	HRRZ	T2,770001	;PNTR TO PLACE TO PUT IT
	MOVEM	T1,0(T2)	;STORE IT
	MOVE	T1,.JBUSY##	;UNDEF PNTR
	HRRZ	T2,770002
	MOVEM	T1,0(T2)	;STORE IT ALSO
	JRST	DDTOK		;START UP DDT

CHKDD1:	MOVE	T1,770000	;GET FIRST LOC
	CAMN	T1,[JRST 770002] ;CHECK XFER INST
DDTOK:	AOS	-1(P)		;SET FOR SKIP RETURN
	MOVEI	T1,770000	;START ADDRS
NODDT:	POP	P,T2		;RESTORE T2
	RET			;RETURN
SUBTTL	DISK FULL AND QUOTA EXCEEDED HANDLING

;HERE ON OPENF FAILURE FOR WRITE -- CHECK REASON

OPNERR:	CAIE	T1,OPNX10	;DISK QUOTA EXCEEDED
	CAIN	T1,OPNX23	;ENTIRE DISK FULL
	JRST	OPNER1		;YES - HANDLE
	OUTSTR	[ASCIZ "
? Cannot open "]
	MOVEI	T1,.PRIOU
	MOVE	T2,OPNJFN	;JFN THAT FAILED
	MOVEI	T3,0
	JFNS			;PRINT FILESPEC
	OUTSTR	[ASCIZ " because,"]
	CALL	CJERR0		;SYSTEM MESSAGE
	JRST	LOSER		; AND EXIT
OPNER1:	POP	P,T1		;RETURN ADDRS
	SUBI	T1,2		;ADJUST TO OPENF RETRY
	MOVEM	T1,RETSAV	;USE INT LOC
	PUSH	P,OPNJFN	;PUT THIS ON STACK IN CASE EXIT
	CALL	DSKFUL		;COMMON DISK FULL ROUTINE
	CALL	ENBINT		;RE-ENABLE INTS
	POP	P,T1		;CLEAN UP PDL , SET UP JFN
	JRSTF	@RETSAV		;RETRY

;COME HERE ON CHL 20 INTERUPT (DISK IS FULL ETC...)

DSKTRP:	PUSH	P,T1		;SAVE A REG
	HRRZ	T1,RETSAV	;GET PC OF INSTRUCTION WHICH FAILED
	MOVE	T1,1(T1)	;GET INSTRUCTION FOLLOWING
	TLC	T1,(<CAI>)	;COMPARE WITH SPECIAL INSTRUCTION
	TLNN	T1,-1		;IS IT THE ONE?
	MOVEM	T1,RETSAV	;YES, SET RETURN PC AS DESIRED
	CALL	DSKFUL		;DO COMMON CODE
	CALL	ENBINT		;RE-ENABLE
	POP	P,T1		;RESTORE T1
	DEBRK			;DISMISS INT
	ERROR	ICN		;BETTER NOT
;COMMON DISK FULL ROUTINE -- T1 ALREADY SAVED

DSKFUL:	CALL	NOCTRO		;TURN OFF ^O
	CALL	OFFINT		;DISALLOW ^C
	HRROI	T1,[ASCIZ "
?Disk or directory full, or quota exceeded"]
	PSOUT
DSKFL1:	CALL	CLRBFI		;CLEAR TYPEAHEAD
	HRROI	T1,[ASCIZ "
Type one of (M,P,W): "]
	PSOUT
	CALL	INHELP
	  JRST	DSKHLP		;HE WANTS HELP
	CAIN	T1,"M"		;WANT TO QUIT?
	JRST	[SETZM CNCLOK	;GRNTEE CONTINUE
		 POP P,0(P)	;PRUNE RETURN ADDRS
		 JRST MONRET]	;  AND EXIT
	CAIN	T1,"W"		;WAIT TILL WE CAN TRY AGAIN
	JRST	DSKWAT
	CAIE	T1,"P"		;PURGE AND RETRY
	JRST	DSKFL1		;RE-PROMPT
	PUSH	P,T2		;SAVE SOME REGS
	PUSH	P,T3
	PUSH	P,T4		;...
	GJINF
	PUSH	P,T2		;SAVE CONNECTED DIR
	MOVE	T1,T2		;DIR # TO T1
	GTDAL			;GET CURRENT USAGE
	PUSH	P,T2		;SAVE IT
	MOVEI T1,0
	MOVE T2,-1(P)		;DIR #
	DELDF			;DO EXPUNGE
	  ERJMP	[OUTSTR [ASCIZ "%Expunge failed -- continuing"]
		 OCRLF
		 JRST .+1]
	MOVE	T1,-1(P)	;DIR #
	GTDAL			;CURRENT ALLOCATION
	POP	P,T1		;RESTORE OLD VALUE
	SUB	T1,T2		;TAKE DIFFERENCE
	EXCH	T1,0(P)		;STORE ON PDL
	MOVEI	T1,"["
	PBOUT			;PRINT MESSAGE
	POP	P,T2		;GET VALUE
	CALL	DPRNT		;PRINT DECIMAL
	HRROI	T1,[ASCIZ " Pages freed]"]
	PSOUT
	OCRLF
	POP	P,T4		;RESTORE REGS
	POP	P,T3
	JRST	T2POPJ		;AND RETURN
;ROUTINE TO WAIT FOR DISK SPACE TO APPEAR

DSKWAT:	OUTSTR	[ASCIZ /%NOT IMPLEMENTED YET - WILL WAIT 1 MIN.
THEN CONTINUE AUTOMATICALLY....WAITING.....
/]
	MOVEI	T1,^D60*^D1000
	DISMS
	OUTSTR	[ASCIZ /[OK]
/]
	RET

INHELP:	INCHRW	T1		;GET REPLY
	CAIN	T1,"?"		;CHECK FOR IMMEDIATE HELP
	JRST	[OCRLF		;GIVE CRLF
		 CALL CLRBFI	;CLEAR TYPEAHEAD
		 RET]		;GIVE NON-SKIP RETURN
	PUSH	P,T1		;SAVE IT
	INCHRW	T1		;LOOK AT NEXT CHAR
	CALL	CLRBFI		;CLEAR OUT TTY TYPE AHEAD
	CAIE	T1,15		;CHECK FOR CR
	JRST	[POP P,T1	;PRUNE PDL
		 MOVEI T1,177	;RETURN A RUBOUT
		 JRST INHLPX]	;...
	POP	P,T1		;RESTORE CHAR TYPED
	ANDI	T1,137		;FORCE UPPER CASE
INHLPX:	CAIE	T1,"H"		;CHECK FOR HELP
	AOS	0(P)		;GIVE SKIP
	RET			;RETURN

DSKHLP:	OUTSTR	DSKTXT		;PRINT MSG
	CALL	NOCTRO		;TURN OFF CTRL-O
	JRST	DSKFL1		;TRY AGAIN

DSKTXT:	ASCIZ	\Type one of (followed by carriage return):
M - To exit to the monitor
P - Purge (EXPUNGE) deleted files and try again
W - Wait until space becomes available
\
SUBTTL	ERROR MESSAGES

DEFINE ERRORS <
FERR (ICN,<Internal confusion>,<Internal confusion>)
WERR (ILC,ILC,<Illegal command>)
FERR (ILUUO,ILUUO,<Illegal UUO>)
WERR (LTL,LTL,<Line too long>)
WERR (NLN,NLN,<No such line(s)>)
WERR (NSP,NSP,<No such page>)
WERR (ORDER,ORDER,<Warning -- Sequence numbers out of order, use N command to correct.>)
WERR (ILR,ILR,<Illegal replacement on insert>)
WERR (WAR,WAR,<Wrap around>)
WERR (TMS,TMS,<Too many strings>)
WERR (STL,STL,<String too long>)
WERR (ISS,ISS,<Illegal search string>)
WERR (ILFMT,ILFMT,<Illegal line format>)
WERR (NSG,NSG,<No string given>)
WERR (NEC,SPACE,<Copy exceeds 128 pages>)
WERR (IRS,IRS,<Illegal replacement string>)
WERR (STC,STC,<Search string too complex>)
WERR (ITD,ITD,<Illegal transfer destination>)
WERR (NNN,NNN,<No next line>)
WERR (SRF,SRF,<Search fails>)
WERR (CMEND,CMEND,<End of indirect file>)
WERR (ILDC,ILDC,<Illegal decide character (Type H for help)>)
FERR (NORM,NORM,<No room for identifying line>)
WERR (EMTY,EMTY,<File is empty>)
>

DEFINE FERR (CODE,SHORT,LONG) <ERMS (?,CODE,<SHORT>,<LONG>)>

DEFINE WERR (CODE,SHORT,LONG) <ERMS (%,CODE,<SHORT>,<LONG>)>

DEFINE ERMS (CHAR,CODE,SHORT,LONG) <
	CODE==<%%ERR==%%ERR+1>
	[ASCIZ \CHAR'SHORT\],,[ASCIZ \CHAR'LONG\]
>

%%ERR==0		;INIT COUNTER

ETBL:	ERRORS
NUMER==%%ERR
	PURGE	%%ERR
SUBTTL COMMAND DECODER AND DISPATCH

ERET:
COMND:	SETZM	SAVCHR		;SCAN SHOULD GET RESET AT THIS POINT
	SETZM	SAVC		;...
	SETZM	FSFLG		;CLEAR F/S FLAG
	TLZ	FL2,EXCPFL	;(207) CLEAR FLAG
	TLNE	FL,ISCOP	;THIS CASE IS SPECIAL SINCE WE
	SKIPA	P,COPDL		;SHOULD NOT DESTROY SAVED ITEMS
	MOVE	P,[IOWD PDLSIZ,PDL] ;ALSO PDL (IN CASE OF ERRORS)
	CALL	DOECHO		;TURN ECHO BACK ON JUST IN CASE
	TRNE	FL2,COMFLF	;DON'T BOTHER IF IN CMD FILE
	JRST	CMNDN		;...
	MOVEI T1,.PRIOU
	MOVE T2,MODW		;GET MODES
	TLZ T2,(TT%OSP)		;CLEAR ^O
	TRO T2,<.TTATE>B29	;RESET OUTPUT XLATE
	SFMOD			;...
	TRO	FL2,ALTECH	;GRNTEE $ ECHO
CMNDN:	SKIPN	T1,TEMINC	;TEMP INCR?
	MOVE	T1,INCR		;NO: USE CURRENT ONE
	MOVEM	T1,INCR		;YES: RESOTRE OLD ONE
	SETZM	TEMINC		;CLEAR TEMP
	TLZE	FL2,DOENDF	;NEED END COMMAND?
	JRST	CMDEND		;YES: GO DO IT
	TLNE	FL,SRCOP
	JRST	NOCPCK		;DO NOT GET OUT OF COPY MODE
	TLZE	FL,ISCOP	;IN COPY MODE?
	JRST	COPDON		;YES, DO SPECIAL CLEAR OUT
NOCPCK:	TLZN	FL2,NORENT	;NEED TO CHECK FOR REENTER
	JRST	NORNCK		;NO:
	TLZE	FL2,RENTF	;SEE IF NEED TO REENTER
	JRST	[MOVEI T1,[TLZ FL2,RENTF
			   JRST COMND]
		 MOVEM T1,RETSAV ;HACK SAVED PC
		 JRST TRAP]	;SIMULATE ^C
NORNCK:	TRNN	FL,EXTOG	;SKIP THIS HACK IF IN EXPERT MODE
	SKIPN	T1,DELCNT#	;  OR IF NO DELETIONS
	JRST	CMNDA
	MOVEI	T3,OCHR		;SET UP FOR PRINTER
	PUSHJ	P,DECPR		;PRINT # OF LINES DELETED
	PUSHJ	P,FORCE		;DUMP IT
	OUTSTR	[ASCIZ / Lines (/]
	MOVE	T1,FDELLN#	;GET FIRST LINE DELETED
	MOVEM	T1,LINOUT	;PRINT IT
	OUTSTR	LINOUT
	MOVE	T1,FDELPG#
	PUSHJ	P,DECPR		;AND PAGE #
	PUSHJ	P,FORCE
	MOVE	T2,LDELLN#	;LAST LINE DELETED
	SKIPN	PGDELS		;IF ANY PAGE MARKS DELETED
	CAME	T2,FDELLN	;SAME AS FIRST?
	JRST	[OUTCHR [":"]	;NO: PRINT IT ALSO
		 SETZI T3,
		 OUTSTR T2
		 SKIPN T1,PGDELS
		 JRST .+1
		 ADD T1,FDELPG
		 OUTCHR ["/"]
		 MOVEI T3,OCHR	;ROUTINE TO USE
		 PUSHJ P,DECPR
		 PUSHJ P,FORCE
		 JRST .+1]
	OUTSTR	[ASCIZ /) deleted
/]
CMNDA:	PUSHJ	P,CMDSAV	;CHECK FOR AUTO-SAVE
	  JRST	CMND2		;DO IT
	TRNE	FL2,SUPN!COMFLF	;SUPPRESS * AFTER PRETTY PRINT
	JRST	CMNDB
	MOVE	T1,[ASCII "*"]	;PROMPT
	TLNE	FL,SRCOP	;GIVE XTRA PROMPT IF COPY
	MOVE	T1,[ASCII "C*"]
	MOVEM	T1,CRBUF	;STORE FOR ^R
	OUTSTR	CRBUF		;AND PRINT IT
CMNDB:	TRZ	FL2,SVIT!SUPN	;TURN OFF SOME BITS
IFN EXTEND,<
	MOVEI	T1,LSNUM	;RESET LINE SEARCH STRINGS
	MOVEM	T1,LSBUFN
>
	TRNN	FL2,COMFLF	;COMMAND FILE?
	JRST	CMND1		;NO
	MOVE	T2,[ASCII /00001/] ;INCREMENT CMD CNT
	MOVE	T1,COMCNT
	PUSHJ	P,ASCIAD	;ASCII ADDDER
	MOVEM	T1,COMCNT	;STORE
CMND1:	PUSHJ	P,GNCH		;READ A CHARACTER
	TLZ	FL2,RENTF	;CLEAR FLAG - HE MAY TRY TO REENTER
	CAIE	C,15
	JUMPE	CS,CMND1	;IGNORE SPACES ETC
	TLNE	CS,LETF_16	;CHECK TO SEE IF LETTER
	TRZ	C,40		;AND CONVERT TO UPPER CASE
CMND2:	MOVSI	T1,-CMDLG	;GET LENGTH OF COMMAND TABLE
	CAME	C,CMD1(T1)	;COMPARE
	AOBJN	T1,.-1		;CHECK FOR MATCH
	SETZM	DELCNT
	SETZM	LDELLN
	SETZM	FDELLN
	SETZM	FDELPG		;INIT DELETE CNTS
	CAIE	C,"P"		;(195) IS IT A P COMMAND?
	SETZM	PNOARG		;(195) NO CLEAR P MEMORY
	JUMPL	T1,@CMD2(T1)	;DISPATCH IF FOUND
	NERROR	ILC		;ELSE ERROR
; THE COMMAND TABLE
;	(NAME,DISPATCH ADDRESS,HELP MESSAGE)
;  OR   (OLD NAME,"NOTHER",NEW COMMAND TO USE)

	DEFINE COMTAB <

X	("?",QUEST,<?>)
X	(12,NXTLIN,<<LF>>)
X	(200,BAKLIN,<<ESC>>)
X	("A",ALTER,<Alter - A>)
X	("B",SVCOD,<Backup - B, BI, BJ, BN, BU>)
X	("C",COPY,<Copy - C>)
X	("D",DELETE,<Delete - D>)
X	("E",ENDIT,<End - E, EI, EJ, EN, EU, EK, EQ>)
X	("F",SEARCH,<Find - F>)
X	("=",GIVE,<Give - =>)
X	(";",COMNT,<Comment - ;>)
X	("G",GEND,<Go - G, GI, GJ, GN, GU>)
X	("H",HELP,<Help - H>)
X	("@",COMFIL,<Indirect - @>)
X	("I",INSERT,<Insert - I>)
X	("J",JOIN,<Join - J>)
X	("K",KILL,<Kill - K>)
X	("L",LIST,<List - L>)
X	("M",MARK,<Mark - M>)
X	(".",PMOVE,<Move - .>)
X	("N",NUMBER,<Number - N>)
X	("P",PRINT,<Print - P>)
X	("R",REPLAC,<Replace - R>)
X	("/",SET,<Set - />)
X	("S",SUBST,<Substitute - S>)
X	("T",TRANS,<Transfer - T>)
X	("X",XPAND,<eXtend - X>)
X	(15,NULCMD,)

>

	DEFINE X(A,B,C) <
	EXP A >
CMD1:	COMTAB
CMDLG==.-CMD1

	DEFINE X(A,B,C) <
	EXP B >
CMD2:	COMTAB

	DEFINE X(A,B,C) <
	[ASCIZ !C!]>
CMD3:	COMTAB

;COME HERE TO DO AUTO SAVE

CMDSAV:	TRNE	FL,READOF	;CHECK RO
	JRST	CPOPJ1		;YES - SKIP THIS
	TLZE	FL2,CCHGF	;DID THIS COMMAND CHANGE THINGS?
	SOSE	SAVEN		;YES -- COUNT DOWN
	JRST	CPOPJ1		;STILL OK
	OUTSTR	[ASCIZ "[Doing auto-save, please wait.]"]
	OCRLF
	MOVEI	C,"B"		;FUDGE UP B COMMAND
	MOVEI	T1,12		;FUDGE UP LINE TERM
	MOVEM	T1,LIMBO
	POPJ	P,		;PROCESS COMMAND

NULCMD:	PUSHJ	P,GNCH		;GRNTEE LF AFTER CR COMMAND
	CAIE	C,12		;IS IT?
	NERROR	ILC		;NO: LOSE
	JRST	COMND		;YES: WIN

CMDEND:	MOVEI	C,"E"		;DUMMY CMD
	TLZ	FL2,RENTF	;CLR FLAG
	MOVEI	T1,12
	TLNN	FL,SRCOP	;NEED DUMMY LF IF NOT COPY
	MOVEM	T1,LIMBO
	JRST	CMND2		;PROCESS

COMNT:	SETZM	ALTSN	;NO ALT SEEN YET
	CALL	RDLIN		;GET A LINE TO TOSS OUT
	JFCL			;DONT CARE IF NONSKIP
	SKIPE	ALTSN		;END WITH ALT?
	OCRLF			;YES, CRLF FOR HIM
	SETZM	ALTSN		;CLEAR FLAGS
	JRST	COMND		;AND OUT

SUBTTL MOVE, HELP, AND ?
HELP:	CALL	SCAN		;SCAN TERMINATOR
	TRNN	FL,TERMF	;CHECK EOL
	NERROR	ILC
	MOVSI	T1,(GJ%OLD!GJ%SHT!gj%ifg)
	HRROI	T2,[ASCIZ "HLP:EDIT.HLP"]
	PUSHJ	P,GTJFNX	;FILE TO TRY FOR
	  JRST	SORROW		;EXIT IF NOTHING
	hrrz t1,t1		;clear the left hand bits
	PUSH	P,T1		;SAVE JFN
	MOVE	T2,[7B5+OF%RD]	;OPEN FOR READ
	OPENF
	  JRST	[POP P,T1	;GET JFN
		 RLJFN		;FLUSH
		   JFCL
		 JRST SORROW]	;NOTHING TO DO
HELP1:	MOVE	T1,0(P)		;JFN
	BIN			;CHAR
	JUMPE	T2,HELP2	;CHECK FOR EOF
	MOVE	T1,T2		;COPY CHAR TO T1
	PBOUT			;DUMP ON PRIMARY
	JRST	HELP1		;GET SOMEMORE

HELP2:	GTSTS			;GET DEVICE STATUS
	TLNN	T2,(GS%EOF)	;EOF?
	JRST	HELP1		;NO - TRY NEXT (IGNORE NULLS)
	CLOSF			;YES - FLUSH JFN
	  FJERR
	OCRLF			;XTRA ANYHOW
	JRST	COMND		;AND RETURN TO USER

SORROW:	OUTSTR	[ASCIZ "% I'm sorry I can't help you."]
	OCRLF
	JRST	COMND		;T-S
PMOVE:	SETZM LOLN
	PUSHJ P,GET1S		;GET A POS.
	TRNE FL,TERMF		;CHECK ARG
	SKIPN HILN
	NERROR ILC
	MOVE T1,HIPG
	MOVEM T1,DPG
	MOVE SINDEX,HILN	;PERFORM SEARCH
	PUSHJ P,FIND
	MOVE T2,CPG		;FIND THE ONE WE WANT
	CAME T2,HIPG
	NERROR NSP
	CAME T1,HILN
	NERROR NLN
	MOVEM T1,CLN		;MAKE IT CURRENT
	MOVEM T2,CPGL
	JRST COMND

QUEST:	PUSHJ P,SCAN		;CHECK FOR VALID TERMINATOR
	TRNN	FL,TERMF
	NERROR	ILC		;GIVE ERROR IF HE DESERVES IT
	OUTSTR	[ASCIZ / Commands are:/]
	MOVSI	T1,-CMDLG	;GET LENGTH OF COMMAND TABLE
QUEST1:	MOVE	T2,CMD3(T1)	;GET LOCATION
	OCRLF
	OUTSTR	(T2)		;PRINT THE STRING
QUEST2:	AOBJN	T1,QUEST1	;KEEP GOING
	JRST	COMND
 

	SUBTTL PRINT
;PRINT LINES SPECIFIED

PRINT:	SETZM LOLN	;AS A FLAG IN CASE OF /C OR /A,/C
	TRZ	FL2,SUPN
IFN PPNTSW,<
	MOVEI	JF,0		;CLEAR SPECIAL FLAGS
	MOVEI T2,1
	MOVEM T2,LSTCNT
	SETZM LOGPG		;CLEAR COUNTERS AND THINGS
>
	PUSHJ P,SCAN
	CAIE C,","	;IS THERE A SWITCH?
	JRST PRNT5	;NO
	PUSHJ P,PRNSCN	;SCAN FOR SWITCHES
PRNT5:	TRNE FL,TERMF
	JRST	[MOVE T1,CLN	;MAKE P WITH NO ARGS DO P.!<PLINES>
		 MOVEM T1,LOLN
		 MOVE T1,CPGL
		 MOVEM T1,LOPG
		 MOVE T1,PLINES
		 MOVEM T1,SVCNT
		 MOVEI T1,1	;(195) FLAG FOR PNOARG IF NEEDED
		 SKIPE PNOARG	;(195) DO WE NEED TO SKIP?
		 MOVEM T1,PNOARG;(195) YES, SET FLAG SO WE DO
		 TRO FL,CNTF
		 MOVE T1,DTYPE		;TERMINAL TYPE
		 XCT CURUP(T1)		;CURSOR UP FCN
		 OUTCHR [15]
		 JRST PRCNT]
	PUSHJ P,GET2	;GET A DOUBLE STRING
	CAIN C,","	;(195) IS THERE A SWITCH?
	PUSHJ P,PRNSCN	;(195) YES, LOOK AT THEM
	TRNN FL,TERMF	;(195) DID IT END WITH A TERMINATOR
	NERROR ILC	;(195) NO, ILLEGAL
	SETZM PNOARG	;(195) NOT P WITH NO ARGS
PRCNT:	TRZ FL,LINSN	;USE THIS AS A FLAG TO CHECK FOR NULL RANGE
	TRNE	FL2,NONUMF	;NEED TO SUPPRESS NUMBERS
	TRO	FL2,SUPN	;YES:
IFN PPNTSW,<
	TRNE	JF,EJECT!WAIT
	PUSHJ P,PGWT	;WAIT FOR USER!
>
RPGPRN:	MOVE T1,LOPG	;FIND THE FIRST LINE WANTED
	MOVEM T1,DPG	;SET IT AS THE ONE WE WANT
	MOVE SINDEX,LOLN	;PICK UP THE LINE
	PUSHJ P,FIND	;GO GET IT
	JUMPE T1,EPRNT	;(220)IF END OF FILE, STOP!!!!!
	SKIPLE PNOARG	;(195) SKIP THIS LINE (ALREADY PRINTED)
	JRST PRNT4	;(195) YES START WITH NEXT
	SKIPE LOLN	;DID WE WANT TO PRINT AN ENTIRE PAGE
	JRST PRNT1	;NO, GO CHECK BOUNDS
	MOVE T2,CPG	;WHICH ONE ARE WE ON
	MOVEM T2,CPGL
	TRNN	FL2,SUPN
	PUSHJ P,PGPRN	;PRINT THE PAGE HEADER
	TRO FL,LINSN	;THIS CAN COUNT AS A LINE
PRNT1:	PUSHJ P,ONMOV	;CHECK TO SEE IF STILL IN RANGE
	JRST EPRNT	;NO, END
	TRO FL,LINSN	;WE HAVE SEEN ONE
	CAMN T1,PGMK	;IS IT A PAGE MARK?
	JRST PRNT3	;YES, DO SOMETHING SPECIAL
	MOVEM T1,CLN
	MOVEM T2,CPGL	;SAVE PAGE TOO
	MOVE T1,PNTR	;GET THE POINTER TO IT
	PUSHJ P,OUTLIN	;AND PRINT
IFN PPNTSW,<
	AOSN LSTCNT
	PUSHJ P,PAGEND	;END OF PAGE
>
PRNT4:	PUSHJ P,FINDN	;GET THE NEXT LINE
	JRST PRNT1	;AND CONTINUE
PRNT3:	MOVEM T2,CPGL
IFN PPNTSW,<
	SOS LSTCNT	;ADJUST FOR PAGE MARK
	PUSHJ P,PAGEND	;DO END OF PAGE ROUTINE
	SETZM LOGPG	;RESET LOGICAL PAGE COUNTER
>
	TRNE	FL2,NONUMF	;SPECIAL HACK IF NONUM MODE
	OUTCHR	[14]		;WON'T HE BE ...
	TRNN	FL2,SUPN	;UNLESS PRINTING A CLEAN COPY,
	PUSHJ P,PGPRN	;GO PRINT A PAGE HEADER
	AOS CPG
	MOVE T2,[<ASCII /00000/>!1]
	MOVEM T2,CLN	;SET LINE TO FIRST ON THAT PAGE
	JRST PRNT4	;AND CONTINUE
EPRNT:	TRZN FL,LINSN	;DID WE PRINT SOMETHING
	NERROR NLN	;NO, ERROR
IFN PPNTSW,<
	PUSHJ P,PAGEJT	;EJECT PAGE
>
	TRNE	FL2,NONUMF
	TRZ	FL2,SUPN	;TURN IT OFF IF IN NONUM MODE
	JRST COMND	;YES, RETURN FOR COMMAND



;CHECK TO SEE IF OUT OF LIMITS SKIP RETURN IF OK
ONMOV:	JUMPE T1,CPOPJ	;0, MUST BE EOF SO ALL DONE
	PUSHJ	P,CHKREN	;CHECK REENTER
	POPJ	P,		;YES: SAY WE ARE THROUGH
ONMOV1:	MOVE T2,CPG	;GET THE CURRENT PAGE
	CAMN T1,PGMK	;ARE WE AT A PAGE MARK?
	ADDI T2,1	;YES, TREAT AS NEXT PAGE
	TRNE FL,CNTF	;IS THIS A ! TYPE COMMAND?
	JRST ONCNT
	CAMLE T2,HIPG	;HOW DOES IT COMPAGE WITH UPPER LIMIT
	POPJ P,		;HIGHER, ALL DONE
	CAME T1,PGMK	;IF PAGE MARK, DO NOT COMPARE LINE
	CAME T2,HIPG	;OR IF NOT ON LAST PAGE
	SKIPA
	CAMG T1,HILN	;ARE WE OUT OF LINES?
	AOS (P)	;SKIP RETURN ALL OK
	POPJ P,		;GO

ONCNT:	CAMN T1,PGMK	;DO NOT COUNT PAGE MARKS
	SKIPG SVCNT	;IF PAGE MARK, GIVE UP IF DONE
	SOSL SVCNT	;ARE WE OUT
	AOS (P)		;SKIP RETURN FOR OK
	POPJ P,
;HERE TO EJECT PAGE

IFN PPNTSW,<
PAGEJT:	TRNN	JF,EJECT	;EJECTING?
	POPJ P,		;NO: JUST RETURN
	MOVE T5,LSTCNT
	ADD T5,PAGESZ	;GET COUNT LEFT
	SUBI T5,FULLPG	;EJECT TO TOP OF PAGE
	TRNN	JF,WAIT		;IF NOT WAITING
	SUBI T5,1	;ONE MORE LINE
	SUBI T5,1	;HANDLE ZERO CASE
	MOVEI C,15	;PUT OUT CR
	PUSHJ P,OCHR
	JRST PUTLN1

PUTLN:	MOVEI C,12
	PUSHJ P,OCHR	;OUTPUT LF'S
PUTLN1:	CAMN T5,[-11]	;A BIT WEIRD
	PUSHJ P,PUTPG
	AOJL T5,PUTLN
	AOS LOGPG	;INCR LOGICAL PAGE
	PUSHJ	P,FORCE		;OUTPUT
	POPJ P,

;HERE TO WAIT FOR BOTTOM OF PAGE

PAGEWT:	TRNN	JF,WAIT	;WAITING?
	JRST NOWAIT	;NOPE!
PGWT:
	OUTSTR [BYTE (7)10,10,10,10,0]
READ1:	PUSHJ P,GNCH	;GET NEXT CHAR
	CAIE C,"G"
	CAIN C,"g"
	TRZ	JF,WAIT
	CAIE C,"Q"
	CAIN C,"q"
	JRST QPRINT
	CAIE C,12	;LF?
	JRST READ1
NOWAIT:	MOVN T5,PAGESZ	;RESET LINE COUNT
	MOVEM T5,LSTCNT
	POPJ P,

QPRINT:	PUSHJ P,GNCH
	CAIE C,12	;SKIP TO LF
	JRST QPRINT
	JRST COMND
	;;;; STILL IN IFN PPNTSW
;HERE ON END OF PAGE

PAGEND:	PUSHJ P,PAGEJT	;EJECT A PAGE
	JRST PAGEWT	;AND GO WAIT

;ROUTINE TO OUTPUT FUNNY PAGE NUMBERS

PUTPG:	TRNN	JF,PGNOS	;ARE WE?
	POPJ P,
	MOVE T1,RMAR
	ADD T1,LMAR
	ASH T1,-1	;PUT OUT (R+L)/2 BLANKS
PUTPG1:
	OUTCHR [" "]
	SOJG T1,PUTPG1
	OUTCHR ["-"]
	MOVE T2,CPG		;CURRENT PAGE
	PUSHJ P,DPRNT
	MOVE T2,LOGPG		;LOGICAL PAGE
	JUMPE T2,PUTPG2
	OUTCHR ["."]
	PUSHJ P,DPRNT		;SUB-PAGE
PUTPG2:
	OUTSTR [BYTE (7)"-",15]
	POPJ P,
>	;;; END IFN PPNTSW
;PRINT SWITCH SCANNER

IFN PPNTSW,<
PRNSCN:	PUSHJ P,SCAN		;GET NEXT CHAR
	MOVS T1,ACCUM
	CAIN T1,(<SIXBIT /N  />)
	TRO	JF,PGNOS
	CAIN T1,(<SIXBIT /S  />)
	TRO	FL2,SUPN
	CAIN T1,(<SIXBIT /W  />)
	TRO	JF,WAIT
	CAIN T1,(<SIXBIT /E  />)
	TRO	JF,EJECT
	CAIN T1,(<SIXBIT /F  />)
	JRST	[TRO JF,EJECT!WAIT
		 TRO FL2,SUPN
		 JRST .+1]
	PUSHJ P,SCAN		;SCAN PAST IT
	TRNE FL,TERMF		;TERMINATOR
	JRST	[TRNN	JF,EJECT!WAIT!PGNOS
		 TRNE	FL2,SUPN
		 POPJ P,
		 NERROR ILC]
	CAIE C,","		;MORE?
	NERROR ILC
	JRST PRNSCN		;YES - GET EM
>

IFE PPNTSW,<
PRNSCN:	PUSHJ	P,SCAN		;GET NEXT ATOM
	MOVS	T1,ACCUM
	CAIE	T1,(<SIXBIT /S  />)
	NERROR	ILC		;ONLY LEGAL SW IS S
	PUSHJ	P,SCAN		;SCAN PAST IT
	TRNN	FL,TERMF	;MUST BE END
	NERROR	ILC
	TRO	FL2,SUPN	;SET FLAG
	POPJ	P,		;RETURN
>
PGPRN:	PUSH	P,T2		;SAVE PAGE #
	MOVE	T2,DTYPE	;GET TERMINAL TYPE
	XCT	CRLF(T2)	;CRLF BY TYPE
	OUTSTR	[ASCIZ /Page /]
	POP	P,T2		;RESTORE #
	PUSHJ P,DPRNT	;PRINT THE NUMBER IN T2
	OCRLF
	AOS LSTCNT
	AOS LSTCNT		;PAGE N - TAKES 2 LINES
	POPJ P,

;THE USUAL NUMBER PRINTER

DPRNT:	PUSH	P,T1		;SAVE T1
	MOVEI	T1,.PRIOU	;USE PRIMARY OUTPUT
	MOVEI	T3,^D10		;DECIMAL #
	NOUT
	  JRST	[MOVE T1,T3	;ERROR CODE TO T1
		 FJERR]
	JRST	T1POPJ		;RESTORE & RETURN


;CHARACTER OUTPUT

OCHR:	JUMPE	C,CPOPJ		;IGNORE NULLS
	MOVE	CS,CTBL(C)	;GET THE MAJIC BITS
	TLNE	CS,LETF_16	;CHECK FOR LETTER
	TDC	C,CASEBT	;AND CHANGE CASE AS NECESSARY
	TRNE	FL2,SUPN	;IS THIS A PRETTY PRINT? IF SO NO ' CONVERSION
	JRST	OCH2
	PUSH	P,C		;SAVE THE CHARACTER
	LDB	C,[POINT 7,CTBL(C),10]	;GET PRINT EQUIV.
	JUMPE	C,OCH1		;NONE, PRINT ORIGINAL
	TDNE	CS,[XWD LETF_16,M37]	;IS THIS A LETTER OR SPECIAL
	TRNN	FL,M37F		;AND A MODEL 37
	TLNE	FL,QMODF
	JRST	[MOVE C,(P)	;GET ORIG CHAR
		 CAIL C,40	;CHECK FOR CONTROL CHAR
		 JRST OCH1	;NO - JUST PRINT IT
		 ADDI C,100
		 MOVEM C,(P)	;CONVERT TO PRINTING CHAR
		 MOVEI C,"^"
		 JRST OCH0]
	MOVEM	C,(P)		;SAVE IN STACK
	MOVEI	C,"'"
OCH0:	PUSHJ	P,OCH2		;PUT OUT CHR
OCH1:	POP	P,C		;GET CHAR TO PRINT
OCH2:	SOSG	TTOCNT
	PUSHJ	P,FORCE
	IDPB	C,TTOPNT
	POPJ	P,		;AND RETURN



OUTLIN:	TRNE	FL2,SUPN!NONUMF	;ARE WE SUPPRESSING LINE NUMBERS?
	AOS	T1		;YES, SKIP IT
	HRLI	T1,(<POINT 7,0>);GET SET TO PRINT A LINE
	TRNE	FL2,SUPN!NONUMF	;IF SUPPRESSING LINE NUMBERS
	IBP	T1		;ALSO SUPPRESS THE TAB WHICH FOLLOWS
	SETOM	PNOARG	;(195) REMEMBER FOR LATER
OUTL1:	ILDB	C,T1		;GET A CHR
	JUMPE	C,FORCE		;QUIT ON NUL
	PUSHJ	P,OCHR		;AND PRINT IT
	CAIN	C,14		;(205) FORMFEED?
	JRST	FORCE		;(205) YES
	CAIN	C,12		;(205) LINEFEED?
	JRST	FORCE		;(205) YES
	JRST	OUTL1		;NO, CONTINUE
		;;;		;FALLIN FORCE

;ROUTINE TO DUMP TTY BUFFER AND SET UP FOR NEXT

FORCE:	PUSH	P,C		;SAVE CURRENT CHAR
	MOVEI	C,0		;GRNTEE NULL
	IDPB	C,TTOPNT	;AT END OF STRING
	OUTSTR	TTOBUF		;DUMP IT
	MOVEI	C,^D80		;NEW COUNT
	MOVEM	C,TTOCNT
	MOVE	C,[POINT 7,TTOBUF]
	MOVEM	C,TTOPNT	;AND PNTR
	POP	P,C		;RESTORE C
	POPJ	P,		;AND RETURN

SUBTTL END ROUTINE
;CODE TO FINISH OFF EDIT

ASVINS:	SKIPA	T1,HILN		;LAST LINE INSERTED
ASVREP:	MOVE	T1,LOLN		;...
	MOVEM	T1,SVLNUM	;SAVE FOR RESTART
	TLO	FL2,AUTOF	;SET TO DO AUTO SAVE
	SKIPE	ALTSN		;NEED CRLF?
	OCRLF			;YEP
	OUTSTR	[ASCIZ "[Doing auto-save, please wait.]"]
	OCRLF
SVCOD:	TLNE	FL,SRCOP	;IF INSIDE COPY
	JRST	DSCOP		;TREAT LIKE AN E
	TRO	FL2,SVIT	;SET TO DO A SAVE
	MOVE	T1,SSAVEN	;RESET ALL CNTRS
	MOVEM	T1,SAVEN
	MOVE	T1,SISAVN	;RESET ISAVE PARAM
	MOVEM	T1,ISAVEN	;...
	PUSH	P,UNSEQF	;SAVE CURRENT VALUE
	SKIPN	UNSEQF		;CHECK FOR UNSEQ
	JRST	SVCOD1		;PROCEDE
	TRNN	FL,EXTOG	;ONLY PRINT IF NOVICE
	OUTSTR	[ASCIZ "[WARNING: Sequence numbers preserved.]
"]
	SETZM	UNSEQF
SVCOD1:	TRNN	FL,READOF	;READ-ONLY MODE?
	JRST	END0		;NO - CONTINUE
	MOVE	T1,[ORGBLK,,NEWBLK]
	BLT	T1,NEWBKE	;YES - SET UP NEWBLK THEN
	JRST	END0		;CONTINUE CMD
GEND:	TLOA	FL,GCOM		;GO
ENDIT:	TLZ	FL,GCOM		;NORMAL TYPE END
END0:	TLNE	FL,SRCOP
	JRST	DSCOP		;FINISH UP THE COPY COMMAND
	TLO	FL2,NORENT!DOENDF;DISABLE REENTER & MARK WE'RE IN END CODE
	TLZ	FL2,RENTF
	TRNE	FL,READOF	;IF READ ONLY
	JRST	ENDRO		;DO SPECIAL END CODE
	TLZ	FL2,BELLF	;DISABLE <BELL><BELL>
	PUSHJ	P,NSCAN		;SETUP NEWBLK
	NERROR	ILC		;BAD SYNTAX
	SKIPN	UNSEQF
	TRNE	FL,NEWFL
	TLO	FL2,PCHGF!FCHGF	;CHANGED IF UNSEQ OR NEW NAME
	TLNN	FL2,FCHGF
	JRST	[OCRLF
		 OUTSTR [ASCIZ "[No changes.]"]
		 OCRLF
		 CALL RLSINP	;RELEASE INPUT
		 CALL DELOUT	;DELETE OUTPUT FILE
		 JRST ENDEND]
	JRST	END1

;CODE TO HANDLE 'E' COMMANDS IN R/O MODE

ENDRO:	PUSHJ	P,GNCH		;GET A CHAR
	ANDI	C,137		;FORCE UPPER
	CAIE	C,"Q"		;QUIT OK ALSO
	MOVEM	C,SAVC		;BACKUP IF NOT Q
	PUSHJ	P,SCAN		;CHECK FOR EOL
	TRNN	FL,TERMF
	NERROR	ILC
	CALL	RLSINP		;RELEASE INPUT
	JRST	ENDEND		;JUST QUIETLY EXIT
END1:	PUSHJ	P,OCOMPL	;COMPLETE FILE COPY
	SKIPE	T1,ICRJFN	;CLOSE INPUT FILE
	CALL	DOCLSR		;  AND RELEASE JFN
	SETZM	ICRJFN		;RESET INFO
	SKIPE	AUXFLG		;IF NO AUX FILE
	TLNE	FL2,PCHGF	; AND NO CHANGES
	JRST	[PUSHJ P,OUTFIN	;PURGE OUTPUT BUFFERS
		 RLJFN		;RELEASE JFN
		   FJERR
		 SETZM OCRJFN	;SAY NONE
		 JRST END1A]
	SETZM	AUXFLG		;NO AUX FILE ANYMORE
	CALL	DELOUT		;DELETE OUTPUT FILE NOW
	HRROI	T1,OCRASZ
	HRROI	T2,ICRASZ
	MOVEI	T3,0
	SOUT			;REAL FILE NAME IN OCRBLK
END1A:	TRNE	FL,NEWFL	;OUTPUTTING TO NEW <DIR>FIL.EXT?
	JRST	END2		;YES, SEE IF OUTPUT FILE EXISTS
	SKIPN	CREATF		;NO BACKUP REQUIRED IF CREATING
	SKIPN	BAKF		;/BAK SET?
	JRST	END4		;NO, JUST RENAME AND EXIT
	MOVE	T2,ORGFIL	;INPUT FILE (IF PRESENT)
	MOVSI	T1,(GJ%OLD!GJ%SHT)
	PUSHJ	P,GTJFNX	;PEEK
	  JRST	END4		;GIVE UP
	MOVEM	T1,ORGJFN	;SAVE JFN
	MOVE	T2,T1		;COPY TO T2
	MOVE	T3,[2B2+2B5+1B8+1B35]
	HRROI	T1,LIBUF2	;PLACE TO BUILD NAME
	JFNS			;GET DEV:<DIR>NAME
	MOVE	T5,T1		;SAVE PNTR IN T5
	HRLI	T3,(1B11)	;BIT FOR EXTN
	JFNS			;GET IT
	EXCH	T1,T5		;SAVE PNTR GET OLD
	IBP	T1		;ADVANCE OVER .
	MOVEI	T2,"Q"		;ASSUME /BAK
	SKIPLE	BAKF		;UNLESS ITS /OLD
	MOVEI	T2,"Z"		;...
	IDPB	T2,T1		;CHANGE TO .QXX
	EXCH	T1,T5		;SAVE THIS AND RESTORE END PNTR
	MOVEI	T2,0		;GRNTEE NULL EVEN IF ALREADY THERE
	IBP	T1
	IDPB	T2,T1		;...
	SKIPG	BAKF		;IF /OLD THEN DO IT THE HARD WAY
	JRST	END1B		;EASY IF /BAK
	HRROI	T2,LIBUF2	;FILESPEC
	MOVSI	T1,(GJ%OLD!GJ%SHT)
	PUSHJ	P,GTJFNX	;SEE IF .ZXX EXISTS
	  JRST	END1B		;NO - GENERATE .ZXX
	RLJFN			;YES - RELEASE JFN
	  JFCL
	MOVE	T1,T5		;RESTORE BP
	MOVEI	T2,"Q"		;AND CHANGE EXT TO .QXX
	DPB	T2,T1		;...
END1B:	HRROI	T2,LIBUF2	;DESIRED FILESPEC
	MOVSI	T1,(GJ%FOU!GJ%SHT)
	PUSHJ	P,GTJFNX	;GET OUTPUT SPEC
	  FJERR			;CAN'T HAPPEN
	PUSH	P,T1		;SAVE IT TEMPORARILY
	HRLI	T1,.FBPRT(CF%NUD) ;WANT TO CHANGE PROTECTION
	MOVEI	T2,-1		;ONLY THE RIGHT HALF
	MOVE	T3,ORGPRT	;GET PROTECTION OF ORIGINAL FILE
	CHFDB			;SET PROTECTION OF THIS FILE TO IT
	  ERJMP	.+1		;IGNORE ERROR
	POP	P,T2		;RESTORE JFN
	MOVE	T1,ORGJFN	;OLD SPEC JFN
	RNAMF			;RENAME IT
	  JRST	[OUTSTR [ASCIZ "%Backup file protected - ignored."]
		 OCRLF
		 JRST END4]
	SETZM	ORGJFN		;(222)CLEAR JFN STORAGE
	MOVE	T1,T2		;COPY JFN
	RLJFN			;FLUSH IT
	  JFCL
	JRST	END4		;FINISH UP
END2:
	TLO	FL2,NORENT	;GRNTEE NO ^C
	TLZ	FL2,RENTF
	MOVSI	T1,(GJ%SHT!GJ%OLD!GJ%NS)
	MOVE	T2,NEWFIL	;NEW FILE NAME
	PUSHJ	P,GTJFNX	;TRY FOR IT
	 JRST	END4		;ASSUME NOT THERE
	RLJFN			;RELEASE JFN NOW
	  FJERR
	TLZ	FL2,NORENT	;ALLOW ^C
	OUTSTR	[ASCIZ /
Output file exists - delete? /]
	PUSHJ	P,CONFRM	;ASK HIM IF OK
	  JRST	ASKNAM		;HE SAID NO - ASK FOR NEW NAME
	TLO	FL2,NORENT	;OFF ^C
	TLZ	FL2,RENTF
	JRST	END4		;NOW TREAT IT AS NOT THERE
END4:	MOVSI	T1,(GJ%SHT!GJ%OLD!GJ%TMP)
	MOVE	T2,OCRFIL	;FILE WE WANT
	PUSHJ	P,GTJFNX	;TRY FOR IT
	  FJERR			;LOSAGE
	MOVEM	T1,OCRJFN	;SAVE JFN
	MOVSI	T1,(GJ%SHT)
	MOVE	T2,NEWFIL	;NEW FILE NAME
	PUSHJ	P,GTJFNX	;GET ONE
	  FJERR			;BETTER WIN
	MOVEM	T1,NEWJFN	;SAVE JFN
	HRLI	T1,.FBPRT(CF%NUD) ;GET INDEX OF PROTECTION WORD IN FDB
	MOVEI	T2,-1		;CHANGE ONLY RIGHT HALF
	MOVE	T3,ORGPRT	;GET PROTECTION OF ORIGINAL FILE
	TRNN	FL,NEWFL	;CREATING NEW VERSION?
	CHFDB			;YES, SET PROTECTION TO ORIGINAL
	  ERJMP	.+1		;IGNORE ERRORS
	SKIPE	UNSEQF		;SKIP IF NOT UNSEQUENCING
	JRST	UNSEQ		;GO UNSEQUENCE
	PUSHJ	P,ENDNAM	;PRINT FINAL NAME
	MOVE	T2,NEWJFN	;FOR RENAME
	MOVE	T1,OCRJFN	;GET JFN OF EXISTING FILE
	RNAMF			;RENAME IT
	  FJERR			;BETTER NOT
	SETZM	OCRJFN		;(222)CLEAR JFN STORAGE
	GTAD			;GET CURRENT DATE/TIME
	MOVEM	T1,LIBUF2	;TEMP STORAGE
	MOVEM	T1,LIBUF2+1	;CREATION/WRITTEN
	SETZM	LIBUF2+2	;NEVER READ
	MOVE	T1,T2		;COPY JFN TO T1
	MOVEI	T2,LIBUF2	;POINT TO BLOCK
	MOVEI	T3,3		;3 WORDS LONG
	SFTAD			;SET STUFF
	  ERJMP	.+1		;IGNORE IF FAILURE
	RLJFN			;FLUSH JFN
	  FJERR
	SETZM	NEWJFN		;(222)CLEAR JFN STORAGE
	JRST	ENDEND		;AND FINISH UP

ENDNAM:	OUTSTR	[ASCIZ "
["]
	OUTSTR	NEWASZ		;PRINT NEW FILE NAME
	OUTSTR	[ASCIZ "]
"]
	RET

;ROUTINE TO DELETE CURRENT OUTPUT FILE

DELOUT:	SKIPN	OCRJFN		;ANY OUTPUT FILE?
	RET			;NO, DO NOTHING THEN
	CALL	UNMAPO		;UNMAP XTRA PAGE
	MOVE	T1,OCRJFN	;OUTPUT JFN
	CALL	DOCLSF		;CLOSE IT FIRST

;(222)FOLLOWING 1 LINE REPLACED
;	PJRST	DDELFR		;DELETE, EXPUNGE & RELEASE JFN

	CALL 	DDELFR		;(222)DELETE, EXPUNGE & RELEASE JFN
	SETZM	OCRJFN		;(222)CLEAR JFN STORAGE
	RET

;ROUTINE TO RELEASE INPUT FILE

RLSINP:	MOVEI	T2,<IBUF0>B44	;DELETE PAGE
	CALL	UNMAP
	MOVE	T1,ICRJFN	;CURRENT INPUT JFN

;(222)REPLACE FOLLOWING 1 LINE OF CODE
;	PJRST	DOCLSR		;CLOSE & RELEASE

	CALL	DOCLSR		;(222)CLOSE & RELEASE
	SETZM	ICRJFN		;(222)CLEAR JFN STORAGE
	RET
ENDEND:
	PUSHJ	P,DELAUX	;TRY DELETING AUX FILE
	MOVNI	T1,1		;SAY DELETE PAGE
	MOVE	T2,[.FHSLF,,<BUF0>B44]
	MOVE	T3,NPAGS	;GET SIZE OF WINDOW
	TLO	T3,(PM%CNT)	;SET FLAG
	PMAP			;CLEAR EDIT WINDOW
	PUSHJ	P,CLSALL	;CLOSE OFF THE FILES
	TRNE	FL2,SVIT	;CHECK FOR SAVE COMMAND
	JRST	RESTRT		;YES - GO RESTART
	TLNE	FL,GCOM		;IS THIS A 'GO'?
	JRST	CREFIT		;YES - DO RUN UUO
MONRET:	MOVEI T1,.TICCC		;DISABLE ^C TRAPS
	DTI
	HALTF			;RETURN TO EXEC
	SKIPGE	CNCLOK		;SEE IF FROM M OPTION
	JRST	MONRET
	MOVE T1,[.TICCC,,TRPCHN] ;RE-ENABLE ^C
	SKIPL	NOCTLC		;(211) SKIP IF NO ^C SET
	ATI
	JRST	CNCCON		;OK - IF FROM ^C

;ROUTINE TO DELETE AUX FILE IF ANY

DELAUX:	HRROI	T1,[ASCIZ "EDIT-BUFFER.IN"]
	HRROI	T2,LIBUF	;BUILD SPEC HERE
	CALL	MAKTMP		;...
	MOVSI	T1,(GJ%OLD!GJ%SHT!GJ%TMP)
	HRROI	T2,LIBUF
	PUSHJ	P,GTJFNX	;THERE?
	 JRST 	CLAUX		;NO, BUT GO CLEAN-UP ANYWAY
	TLO	T1,(DF%EXP)	;SET TO EXPUNGE ALSO
	DELF			;BLAT
	  JFCL			;DONT CARE
CLAUX:	SETZM	AUXFLG		;SAY ITS GONE
	SETZM	ICRJFN		;(222)CLEAR JFN STORAGE
	RET			;RETURN
;HERE TO START WORLD OVER AFTER 'W'

RESTRT:	POP	P,UNSEQF	;NOW RESTORE ALL GOOD THINGS
	SETZM	RPGSW
	TDZ	FL,[TECOF,,BOF!EOF!EOF2!NEWFL]
	TLNN	FL2,FCHGF	;IFF THERE WERE CHANGES
	JRST	RSTRT1		;NO CHANGES
	MOVE	T1,[NEWBLK,,ORGBLK]
	BLT	T1,ORGBKE	;SET UP INPUT FILE NAME
	HRROI	T1,ORGASZ	;FORM PNTR
	MOVEM	T1,ORGFIL	;...
RSTRT1:	MOVE	T2,ORGFIL	;PNTR TO NAME
	MOVSI	T1,(GJ%OLD!GJ%SHT)
	PUSHJ	P,GTJFNX	;GET JFN OF INPUT
	  FJERR
	MOVEM	T1,ORGJFN	;SAVE
	PUSHJ	P,DEFNEW	;STEP TO NEXT GENERATION
	SETZM	CREATF		;NOT ANY MORE
	JRST	RPGRET		;AND START OVER


;ROUTINE TO CLOSE OFF ALL JFNS, EXCEPT POSSIBLY FOR THE INDIRECT
;FILE.

CLSALL:	TRNE	FL2,COMFLF	;READING FROM AN INDIRECT FILE?
	JRST	CLSAL2		;YES, HAVE TO WORK SOME
	SETO	T1,		;NOPE, CAN CLOSE ALL FILES
	CLOSF			;DO IT
	JFCL			;FORGET ERRORS

;(222)REPLACE FOLLOWING 1 LINE OF CODE
;	POPJ	P,		;RETURN

	JRST	CLSAL3		;(222)GO CLEAR JFN STORAGE FOR CLOSED FILES &RET

CLSAL2:	SKIPE	T1,ORGJFN	;GET JFN IF ANY
	CLOSF			;CLOSE IT
	JFCL
	SKIPE	T1,NEWJFN	;GET JFN IF THERE
	CLOSF			;CLOSE
	JFCL
	SKIPE	T1,ICRJFN
	CLOSF
	JFCL
	SKIPE	T1,OCRJFN
	CLOSF
	JFCL
	SKIPE	T1,ALTJFN	;LAST ONE (DON'T CLOSE INDJFN)
	CLOSF
	JFCL

CLSAL3:	SETZM	ORGJFN		;(222)CLEAR JFN STORAGE
	SETZM	NEWJFN		;(222)CLEAR JFN STORAGE
	SETZM	ICRJFN		;(222)CLEAR JFN STORAGE
	SETZM	OCRJFN		;(222)CLEAR JFN STORAGE
	SETZM	ALTJFN		;(222)CLEAR JFN STORAGE
	POPJ	P,		;RETURN
NSCAN:	TLNE	FL2,AUTOF	;SPECIAL IF AUTO MODE
	RETSKP			;SKIP IF AUTO MODE
NSCAN0:	PUSHJ	P,GNCH		;LOOK FOR ARGS
	CAIE	C,200		;IF ESC , RIGHT TO FILE
	CAIN	C,":"		;IS IT A COLON
	JRST	NSCAN2		;YES: GO LOOK FOR FILE NAME
	ANDI	C,137		;FORCE UPPER CASE
	MOVEI	T1,0		;INITIAL VALUE
	MOVE	T2,[POINT 7,[ASCIZ "BQUKNIJ"]]
NSCNA:	ILDB	T3,T2		;GET CHAR
	JUMPE	T3,NSCAN3	;NOT FOUND IF NULL
	CAIE	C,(T3)		;MATCH?
	AOJA	T1,NSCNA	;NO -- TRY NEXT
	XCT	ENDTBL(T1)	;IF SW SEEN - DO ROUTINE
	JRST	NSCAN0		;LOOK FOR MORE

NSCAN2:	SKIPE	CREATF		;(196) ARE YOU CREATING A FILE?
	JUMPA	NSCNA2		;(196) YES SO SKIP THIS RTN
	MOVEI	ALTP,NEWBLK	;(196) DATA FOR NEW OUTPUT SPEC
	MOVSI	T1,(GJ%FOU!GJ%MSG!GJ%CFM) ;WANT OUTPUT SPEC
	CALL	READNM		;GET NEW NAME
	  JRST	CKIND		;ERROR - MESSAGE PRINTED
;**;[247]	Change 1 line at NSCAN2:+6		DML	23-NOV-82
	  JRST	[ TLZ FL2,DOENDF	;[247] OUT OF END COMMAND CODE
		  OUTSTR [ASCIZ "Aborted..."]  ;[247] SAY ITS ABORTED
		  OCRLF			;[247] OUTPUT CRLF
		  POP P,		;[247] REMOVE UNWANTED ENTRY
		  TRZE FL2,SVIT		;[247] WAS THIS A B COMMAND?
		  POP P,UNSEQF		;[247] YES, RETRIEVE UNSEQF FROM STACK
		  JRST COMND]		;[247] ^U TYPED
	CALL	CKTERM		;GRNTEE EOL
	  RET			;ERROR RETURN
	TRO	FL,NEWFL	;SET NEW FILE
	MOVE	T1,NEWJFN	;JFN
	RLJFN			;DON'T WANT THIS
	  FJERR
	SETZM	NEWJFN		;...
NSCNA2:	RETSKP			;(196) SKIP RETURN
NSCAN3:	MOVEM	C,SAVC		;BACK UP SCANNER
	PUSHJ	P,SCAN
	TRNE	FL,TERMF	;CHECK FOR TERM
	AOS	(P)		;PROPER - GIVE SKIP RETURN
	POPJ	P,		;NO TERM - LOSE
ENDTBL:	SETZM	BAKF		;'B'
	JRST	QUIT		;'Q'
	SETOM	UNSEQF		;'U'
	HRRZM	P,UNSEQF	;'K' - SET FLAG POSITIVE
	SETZM	BAKF		;'N'
	CALL	EIDENT		;'I'
	CALL	EJDENT		;'J'

ASKNAM:	SETZM	SAVCHR		;RESET SCAN
	CALL	CLRBFI
	SETZM	TTIPNT		;CLEAR INPUT
	MOVEI	C,200		;MAKE READNM ALLOW RECOGNITION
	MOVEI	ALTP,NEWBLK	;WHERE TO PUT INFO
	MOVSI	T1,(GJ%FOU!GJ%MSG!GJ%CFM)
	CALL	READNM		;GET NAME
	  JRST	ASKNAM		;ERROR - TRY AGAIN
	  JRST	ASKNAM		;^U - TRY AGAIN
	TRO	FL,NEWFL	;NEW FILENAME
	MOVE	T1,NEWJFN	;JFN
	RLJFN			;FLUSH IT
	  FJERR
	SETZM	NEWJFN		;(222)CLEAR JFN STORAGE
	JRST	END2		;TRY AGAIN

;CODE FOR 'EQ' COMMAND. JUST DELETE TEMPS AND EXIT

QUIT:	POP	P,0(P)		;PRUNE PDL
	PUSHJ	P,SCAN		;MAKE SURE NO ARGS
	TRNN	FL,TERMF
	NERROR	ILC
	SKIPE	ICRJFN		;IF INPUT JFN
	CALL	RLSINP		;FLUSH INPUT FILE
	TRNN	FL,READOF	;DONT BOTHER IF R/O
	CALL	DELOUT		;DELETE OUTPUT FILE
	TRNN	FL2,SVIT	;CHECK FOR WQ
	JRST	ENDEND		;NO - JUST EXIT
	MOVE	T1,[ORGBLK,,NEWBLK]
	BLT	T1,NEWBKE	;FAKE OUT WORLD
	HRROI	T1,NEWASZ	;SET PNTRS
	MOVEM	T1,NEWFIL	;...
	JRST	ENDEND
;HERE TO DO UNSEQUENCING

UNSEQ:	MOVE	T1,[OCRBLK,,ICRBLK]
	BLT	T1,ICRBKE	;SETUP CURRENT INPUT
	MOVE	T1,ICRJFN	;GET JFN
	MOVEM	T1,CIPJFN	;SET UP CIP BLOCK
	MOVE	T2,[7B5+OF%RD]
	OPENF			;OPEN FILE
	  FJERR			;FATAL
	SETZM	CIPBYT		;CLEAR INPUT
	MOVEI	T1,IBUF0	;GRNTEE BUFFER
	MOVEM	T1,CIPBUF	;...
	MOVE	T1,NEWJFN	;OUTPUT JFN
	MOVE	T2,[7B5+OF%WR]
	MOVEM	T1,OPNJFN	;SAVE FOR ERROR
	OPENF			;OPEN FOR WRITE
	  CALL	OPNERR		;MAY BE DISK FULL
	CALL	UNSQO1		;SET UP COUNTS,PNTR ETC
	AOS	OPCNT		;ACCOUNT FOR XTRA SOSG
IFN CRYPSW,<
	MOVE	T1,NEWCOD	;GET CORRECT PSWS
	EXCH	T1,OCRCOD
	MOVEM	T1,ICRCOD	;...
>
	TDZ	FL,[COPFIL,,EOF];CLR FLAGS

UNSEQL:	CALL	GCHAR		;FETCH CHARACTER
	JUMPE	T3,UNSEQD	;DONE IF ZERO RETURNED
	SKIPLE	UNSEQF		;DOING EK INSTEAD OF EU?
	CAIE	T3,14		;AND CHAR IS A FORMFEED?
	JRST	.+2		;NO, NOTHING SPECIAL
	JRST	UNSEQL		;YES, EAT THE FORMFEED
	SOSG	OPCNT		;DECREMENT
	CALL	UNSEQO		;DUMP BUFFER
	IDPB	T3,OUPNT	;DEPOSIT CHAR
	JRST	UNSEQL		;LOOP UNTIL DONE

UNSEQD:	MOVE	T1,ICRJFN	;SET TO DELETE INPUT
	CALL	DOCLSF		;CLOSE FILE & RETAIN JFN
	CALL	DDELFR		;DELETE FILE & JFN
	SETZM	AUXFLG		;(222)CLEAR AUXFLG
	SETZM	ICRJFN		;(222)CLEAR JFN STORAGE
UNSQDR:	MOVE	T1,NEWJFN	;GET JFN
	HRROI	T2,OBUF0	;POINT TO BUFFER
	MOVNI	T3,1000*5+1	;- SIZE - 1
	ADD	T3,OPCNT	;CHRS LEFT +1
	JUMPGE	T3,UNSQD1	;SKIP OUTPUT IF EMPTY
	SOUT			;DUMP PARTIAL
	  CAI	UNSQDR		;RE-TRY ADDRS
UNSQD1:	CALL	DOCLSR		;CLOSE OUTPUT FILE
	SETZM	NEWJFN		;(222)CLEAR JFN STORAGE
	CALL	UNMAPO		;RELESE PAGE
	CALL	ENDNAM		;PRINT FINAL NAME
	JRST	ENDEND
;ROUTINE TO DUMP OUTPUT BUFFER USING SOUT

UNSEQO:	PUSH	P,T3		;SAVE RET
UNSQOR:	MOVE	T1,NEWJFN	;JFN
	HRROI	T2,OBUF0	;WHERE ITS AT
	MOVNI	T3,1000*5	;1 PAGE OF CHARS
	SOUT			;SLURPP!
	  CAI	UNSQOR		;RETRY ADDRS
	POP	P,T3		;RESTORE
UNSQO1:	MOVEI	T1,1000*5	;SHOW EMPTY BUFFER
	MOVEM	T1,OPCNT	;...
	MOVE	T1,[POINT 7,OBUF0]
	MOVEM	T1,OUPNT
	RET			;RETURN
; 'EJ' - LIKE EI BUT DOES D^/^ FIRST

EJDENT:	MOVEI	T1,1		;TRY TO FIND FIRST LINE OF FILE
	MOVEM	T1,DPG
	MOVE	SINDEX,[<ASCII /00000/>!1]
	CALL	FIND		;...
	SKIPE	T1		;IF EOF
	CAMN	T1,PGMK		; OR PAGE-MARK
	JRST	EIDENT		;  THEN OK TO INSERT
	CALL	DODEL		;ELSE DELETE THE LINE
	SETZM	DELCNT		;SO NO MSG
;	JRST	EIDENT		;GO INSERT THE LINE

; 'EI' - Writes an identifying line at the top of the file
;	 before exiting.

EIDENT:	PUSHJ	P,GETIDN	;Write the line in LIBUF
	MOVEI	T1,1		;We want the first page
	MOVEM	T1,DPG		;To contain the line
	MOVE	SINDEX,[<ASCII /00000/>!1]
	PUSHJ	P,FIND		;See what line is first
	CAMN	T1,[<ASCII /00000/>!1] ;DOES 0 ALREADY EXIST
	NERROR	NORM		;Sorry, no room
	CAIN	T1,0		;Did we find EOF?
	 JRST [ RERROR	EMTY
		JRST EIDEN0]
	CAIE	T1,PGMK		;Is Page 1 empty?
	JRST	EIDEN1		;No
EIDEN0:	MOVE	T3,[<ASCII /00100/>!1] ;Yes, use 100
	JRST	EIDEN2		;And skip the bit twiddling
EIDEN1:	MOVE	T3,T1		;Move line number to T3
	PUSHJ	P,NUMCON	;Convert line number to int.
	CAILE	T1,^D100	;Is it .gt. 100 ?
	MOVEI	T1,^D101	;Yes, let's use 100 instead
	SUBI	T1,1		;Subtract one
	PUSHJ	P,ASCON		;Convert to line number
EIDEN2:	MOVEM	T3,LIBUF	;And put it first in the line
	PUSH	P,PNTR		;SAVE PNTR
	MOVEI	PNTR,LIBUF	;POINT TO BUFFER
	PUSHJ	P,GETLTH	;GET LENGTH OF LINE
	POP	P,PNTR		;RESTORE PNTR
	MOVEM	T1,NCNT		;Here is the new count
	SETZM	OCNT		;Set the old count to 0
	PUSHJ	P,INSED		;Go insert into buffer
	POPJ	P,		;Return to caller

; GETIDN - Subroutine to put the line in LIBUF

GETIDN:	CALL	ZBUF		;ZERO LIBUF AND RETURN BP IN T1
	MOVEI	C,11		;INSERT TAB
	IDPB	C,T1		;...
	MOVEI	C,";"		;First chr. is ;
	IDPB	C,T1		;Put it there
	PUSH	P,T1		;Save the pointer
	MOVSI	T1,(GJ%FOU!GJ%SHT) ;Get a JFN on output file
	MOVE	T2,NEWFIL	;NEW FILESPEC
	PUSHJ	P,GTJFNX	;GET A JFN FOR JFNS
	 JRST [ POP P,T1
		HRROI T2,[ASCIZ /?Unknown name?/]
		SETZ T3,
		SOUT
		OUTSTR [ASCIZ "%FILE NAME NOT AVAILABLE"]
		OCRLF
		JRST GETID5]
	MOVE	T2,T1		;Get the JFN
	POP	P,T1		;Retrieve the pointer
	PUSH	P,T2		;But, save the JFN
	MOVE	T3,[2B2+1B5+1B8+1B11+1B14+1B35] ; Print it right
	JFNS			;Send it to LIBUF2
	MOVE	T2,T1		;Save the pointer in T2
	POP	P,T1		;Retrieve the JFN
	RLJFN			;Release the JFN
	  FJERR
	MOVE	T1,T2		;Get the pointer
GETID5:	HRROI	T2,[ASCIZ /, /]
	SETZ	T3,
	SOUT
	SETO	T2,
	SETZ	T3,
	ODTIM			;Output the date and time
	HRROI	T2,[ASCIZ /, Edit by /]
	SETZ	T3,
	SOUT			;And the next phrase
	PUSH	P,T1
	GJINF			;Get logged-in directory no.
	MOVE	T2,T1		;Put in T2 for DIRST
	POP	P,T1
	DIRST			;Write user name
	 JRST [ HRROI T2,[ASCIZ /Unknown user/]
	        SETZ T3,
		SOUT
		JRST .+1]
	HRROI	T2,[ASCIZ /
/]
	SETZ	T3,
	SOUT			;Finish with <CR><LF>
	RET

SUBTTL SOME GENERAL PURPOSE STUFF
;SOME MORE GENERAL ROUTINES


RDLIN:	CALL	ZBUF		;CLEAR LIBUF AND RETURN T1
	MOVEI	T2,5*MXWPL-2	;SET FOR AVAILABLE SPACE
	MOVEI	C,11		;START WITH A TAB
	JRST	RDL3
RDL1:	PUSHJ	P,GNCH		;GET ANOTHER CHARACTER
	CAIN	C,15		;IGNORE RETURN
	JRST	RDL1
	CAIN	C,14		;FF - TREAT AS SPECIAL
	JRST	[OCRLF		;GIVE CRLF
		 CAIN T2,5*MXWPL-3
		 IDPB C,T1	;SAVE IT IF EMPTY LINE
		 JRST RDL2]
	CAIN	C,12		;LINE FEED IS THE ONLY PROPER END
	JRST	RDL2
	CAIE	C,200		;ALTMODE IS A SPECIAL CASE
	JRST	RDL3		;NOT ALTMODE
	SETOM	ALTSN		;FLAG ALTMODE SEEN FOR I AND R
	CAIE	T2,5*MXWPL-3
	JRST	RDL2		;DO END OF LINE STUFF
	POPJ	P,		;EMPTY LINE RETURN

RDL3:	IDPB	C,T1		;PUT IT IN THE BUFFER
	SOJGE	T2,RDL1		;CHECK FOR OVERFLOW AND CONTINUE
	RERROR	LTL		;LINE IS TOO LONG
	POPJ	P,		;NON-SKIP RETURN

RDL2:	MOVEI	C,15		;PUT IN A CR-LF
	IDPB	C,T1
	MOVEI	C,12
	IDPB	C,T1
	HRRZS	T1		;NOW GET THE SIZE
	SUBI	T1,LIBUF-1
	AOS	(P)		;SKIP RETURN IF OK
	POPJ	P,		;AND RETURN

;ROUTINE TO CLEAR LIBUF AND RETURN BP IN T1

ZBUF:	SETZM	LIBUF+1		;FIRST WORD TO CLEAR
	MOVE	T1,[LIBUF+1,,LIBUF+2]
	BLT	T1,LIBUF+MXWPL+1 ;ZOT
	MOVE	T1,[POINT 7,LIBUF+1]
	POPJ	P,		;RETURN
;ROUTINE TO RETURN LENGTH OF LINE IN T1

GETLTH:	MOVE	T1,PNTR		;GET THE LENGTH OF THE LINE POINTED AT
	ADDI	T1,1
GETLN1:	SKIPN	T2,(T1)		;ANY END IS GOOD ENOUGH
	JRST	GETLN2
	TRNN	T2,1		;SEQ-NUM?
	AOJA	T1,GETLN1
GETLN2:	SUB	T1,PNTR		;FIND LENGTH
	POPJ	P,		;AND RETURN

;OUTPUT SEQUENCE NUMBER-TAB HACK

OUTSN:	MOVEM	T1,SQBUF	;PUT IT IN SPACE FOLLOWED BY A TAB
	OUTSTR	SQBUF
	POPJ	P,
ASCIAD:	AND	T2,K2A		;CONVERT TO NUMBERS
	IOR	T1,K4A		;MAKE SURE THIS IS IN DIGIT FORM
	ADD	T1,K1A		;GET EACH DIGIT IN RANGE 166 TO 177 FOR CARRY
	ADD	T2,T1		;SUM
	AND	T2,K3A		;GET RID OF 100 BITS IF THERE
	MOVE	T1,K4A		;FIND OUT WHICH ONES NEED SUBTRACTING
	AND	T1,T2
	ASH	T1,-3		;CONVIENIENTLY THEY NEED 6 SUBTRACTED
	SUBM	T2,T1		;SO DO IT
	IOR	T1,K4A		;AND RECONVERT TO DIGITS
	POPJ	P,		;WE HAVE ADDED THE ASCII IN T1 AND T2 RESULT IN T1

K1A:	BYTE (7) 106,106,106,106,106
K2A:	BYTE (7) 17,17,17,17,17
K3A:	BYTE (7) 77,77,77,77,77
K4A:	<ASCII /00000/>!1
K5A:	BYTE (7) 7,7,7,7,7
K6A:	BYTE (1) 1 (7) 77,77,77,77,77
K7A:	BYTE (1) 0 (7) 106,106,106,106,106

ASCAV:	AND	T2,K2A
	IOR	T1,K4A		;THIS ROUTINE AVERAGES 2 ASCII NUMERS
	LSH	T1,-1
	ADD	T1,K7A		;IT WORKS MOSTLY BY MAJIC
	LSH	T2,-1
	ADD	T2,T1
	AND	T2,K6A
	MOVE	T1,T2
	ANDCM	T1,K3A
	AND	T2,K3A
	MOVE	T3,T2
	LSH	T3,-3
	AND	T3,K2A
	AND	T2,K5A
	SUB	T2,T3
	LSH	T1,-4
	ADD	T2,T1
	LSH	T1,-2
	ADD	T2,T1
	IOR	T2,K4A
	POPJ	P,
;CHECK TO SEE IF BUFFER TOO FULL AND DUMP IF NEEDED

FILLB:	MOVE T1,WC	;GET WORD COUNT
FILLB3:	CAMGE T1,MAXWC	;AND COMPARE WITH MAX PERMISSIBLE
	POPJ P,		;OK, SO RETURN
	MOVE T1,BUFP	;GET BUFFER POINTER
	ADDI T1,1
FILLB1:	SKIPN T2,(T1)	;FIND END OF FIRST LINE
	JRST FILLB2
	TRNN T2,1
	AOJA T1,FILLB1
FILLB2:	PUSHJ P,NOWFL	;PART OF GETN WILL DUMP AND ADJUST POINTERS
	JRST FILLB	;SEE IF IN LIMITS NOW



;INSERT A LINE (IN LIBUF) INTO PLACE POINTED AT BY PNTR
;WORD COUNT OF OLD LINE IN OCNT. OF NEW LINE IN NCNT

INSED:	TLO	FL2,ALLCHG	;CHANGES
	MOVE T1,NCNT	;SEE HOW THE COUNTS DIFFER
	SUB T1,OCNT
	JUMPE T1,NOBLT	;THEY ARE SAME, NO MOVING NECESSARY
	JUMPG T1,BBLT	;NEW IS LARGER, BLT WILL NOT DO
	MOVE T2,PNTR	;SET UP BLT POINTER FROM PNTR+OCNT
	ADD T2,OCNT
	HRLS T2
	HRR T2,PNTR	;TO PNTR+NCNT
	ADD T2,NCNT
	ADDB T1,WC	;ADJUST WC TO OLD WORD COUNT +NCNT-OCNT
	ADD T1,BUFP	;LAST TRANSFERED IS BUFP+WC+NCNT-OCNT
	BLT T2,(T1)
NOBLT:	SKIPN T1,NCNT	;CHECK FOR 0 NEW COUNT (WE ARE DELETING)
	POPJ P,		;IF SO DONE
	MOVE T2,PNTR	;GET THE POINTER POSITION FOR BLT
	HRLI T2,LIBUF	;FROM LIBUF TO PNTR
	ADD T1,PNTR	;STOP AT PNTR+NCNT-1
	BLT T2,-1(T1)
	POPJ P,		;AND ALL DONE
BBLT:	MOVE T2,BUFP	;FAKE BACKWARDS BLT FROM BUFP+WC
	ADD T2,WC
	ADDB T1,WC	;TO BUFP+WC+NCNT-OCNT (ALSO FIX WC)
	ADD T1,BUFP
BBLT1:	CAMGE T2,PNTR	;STOP HERE (COULD STOP SOONER BUT THIS IS EASIER)
	JRST NOBLT	;AND GO MOVE IN NEW STUF
	MOVE T3,(T2)	;TRANSFER A WORD
	MOVEM T3,(T1)
	SUBI T1,1
	SOJA T2,BBLT1	;AND KEEP IT UP
;SUBROUTINE TO DO A GTJFN.  THIS CODE HANDLES THE PROBLEMS OF MULTIPLE
;FILE SPECS IN A LOGICAL NAME WHICH CAUSE PROBLEMS AS FOLLOWS:
;@DEFINE DSK: DSK:, PS:<RANDOM>
;@EDIT FOO.BAR
;WHERE FOO.BAR DOESN'T EXIST, AND THE DIRECTORY <RANDOM> IS PROTECTED.
;CURE: FIRST TRY THE GTJFN AS SPECIFIED, IF THAT FAILS THEN TRY IT AGAIN
;USING ONLY THE FIRST LOGICAL NAME DEFINITION.


GTJFNX:	TLNN	T1,(GJ%NEW+GJ%NS+GJ%OFG)	;SPECIAL CASES?
;**;[247]	Change 1 line at GTJFNX:+1		DML	23-NOV-82
	TLNE	FL2,EXCPFL!DOENDF	;[247] OR IS THIS A COPY OR AN END?
	JRST	GTJFNZ		;YES, NO NEED TO TRY TWICE
	HLLOS	CJFNBK		;(206) SET FOR GENERATION
	DMOVEM	T1,TEMPS	;SAVE THE AC'S
	GTJFN			;TRY THE GTJFN AS SPECIFIED
	SKIPA			;FAILED, GO ANALYSE ERROR
	RETSKP			;IT WORKED, SKIP RETURN
	CAIN	T1,GJFX24	;FILE NOT FOUND ERROR?
	RET			;YES, RETURN NOW
	CAIN	T1,GJFX23	;(221) IS IT "DIRECTORY FULL" ?
	JRST	[MOVEI T1,.FHSLF ;(221)SET UP TO CREATE AN INTERRUPT
		 MOVEI T2,1B20	;(221)ON CHANNEL 20
		 IIC		;(221)TO DSKFUL CODE
		 HRROI T1,[ASCIZ " (FILE) "] ;(221)MIGHT HAVE TO PROMPT USER
		 MOVE T2,TEMPS+1 ;(221)FIND OUT IF WE DO - GET SOURCE WORD
		 TLNE T2,-1	;(221)JFN OR POINTER?
		 PSOUT		;(221)NOT POINTER - MUST ASK FOR FILENAME. PROMPT...
		 DMOVE T1,TEMPS	;(221)GET AC'S BACK
		 JRST GTJFNX]	;(221)AND TRY AGAIN
	DMOVE	T1,TEMPS	;NO, RESTORE ORIGINAL AC'S
	TLO	T1,(GJ%NS)	;SET TO ONLY LOOK AT FIRST LOGICAL SPEC

GTJFNZ:	GTJFN			;TRY THE GTJFN AGAIN
	RET			;FAILED
	RETSKP			;SUCCEEDED

SUBTTL INSERT ROUTINE
;INSERT A LINE

CRTINS:	OCRLF
	MOVEI	T1,1		;SET TO START INSERTING AT LINE 100 PAGE 1
	MOVEM	T1,HIPG
	SKIPN	T1,TECFST	;USE START IF GIVEN
	MOVE	T1,[<ASCII /00100/>!1]
	MOVEM	T1,HILN
	JRST	INSGO		;AND AWAY WE GO

INSERT:	TRNE	FL,READOF	;ERROR IF READ-ONLY
	NERROR	ILC
	PUSHJ	P,SCAN
	TRNE	FL,TERMF	;CHECK FOR NO ARGUMENTS
	JRST	[MOVE  T1,IPG
		 MOVEM T1,HIPG
		 MOVE  T1,CURINS
		 MOVEM T1,HILN
		 SKIPG ISVINC
		 JRST  INSGO
		 MOVE  T1,ISVINC
		 EXCH  T1,INCR
		 MOVEM T1,TEMINC
		 JRST  INSGO]	;IF NONE, GO BACK INSERTING 
				; WHERE YOU WERE
	SETOM	ISVINC		;SET FLAG SO CANNOT USE ISVINC
	TRO	FL2,UPTOPF	;^ =NEW LINE AT TOP OF PAGE
	PUSHJ	P,GET1		;GET ONE LINE/PAGE NUMBER
	TRZ	FL2,UPTOPF	;^ =EXISTING LINE AT TOP OF PAGE
	TRNN	FL,LINSN	;WAS /N GIVEN
	JRST	INSMK		;YES: TREAT SPECIAL
	PUSHJ	P,INSINC	;GET INCR IF ANY
INSGO:	PUSHJ	P,DOINS		;DO THE INSERTS
	JRST	COMND		;RETURN

INSINC:	CAIE	C,","		;GIVING AN INCREMENT WITH COMMA?
	CAIN	C,";"		;OR SEMICOLON (AS BEFORE EDIT 136)?
	SKIPA	T1,INCR		;YES
				;NO, CHECK FOR !<# OF LINES>
	JRST	[CAIN C,"!"
		 JRST ININC1
		 JRST NOINC]	;IF NO ; , OR !, USE DEFAULT
	PUSHJ	P,GNCH		;ALLOW OLD FORMAT I<POS>;!<#>
	CAIE	C,"!"		;IS NEXT CHR. A !
				;NO, BACK UP SCANNER
	JRST	[MOVEM C,SAVC
		 JRST  GETINC]
ININC1:	MOVE	T1,INCR		;SAVE CURRENT INREMENT
	SETOM	INCR		;YES, HE'S SAID # OF LINES TO INSERT

GETINC:	MOVEM	T1,TEMINC	;SAVE THE CURRENT INCREMENT
	PUSHJ	P,SCAN		;GET THE NUMBER
	TRNE	FL,NUMF		;IS IT REALLY A NUMBER?
	CAMN	T1,[<ASCII /00000/>!1]  ;AND NOT EQUAL TO 0?
	NERROR	ILC		;NO, HE IS CONFUSED
	MOVEM	T2,NLIN1	;YES, SAVE AS DECIMAL NUMBER
	SKIPGE	INCR		;MUST WE COMPUTE AN INCREMENT?
	JRST	GTINC1		;YES, DON'T SET INCREMENT YET
	MOVEM	T1,INCR		;NO, SET THE INCREMENT
	MOVEM	T1,ISVINC	; AND SAVE FOR USE WITH I<CR>
GTINC1:	PUSHJ	P,SCAN		;LOOK FOR TERMINATOR
NOINC:	TRNN	FL,TERMF	;FOUND ONE?
	NERROR	ILC		;NO, ILLEGAL COMMAND
	SETZM	ALTSN		;YES, CLEAR ALTMODE FLAG
	POPJ	P,		;RETURN

DOINS:	MOVE	T1,HIPG		;GET THE PAGE TO GO TO
	MOVEM	T1,DPG		;AND SET IT UP
	MOVE	SINDEX,HILN	;ALSO LINE
	PUSHJ	P,FIND		;GO GET UM
	MOVE	T2,CPG		;DEMAND CORRECT PAGE MATCH
	CAME	T2,HIPG
	NERROR	NSP
	SKIPL	INCR		;NEED TO COMPUTE ONE?
	JRST	INSTRY		;NO -- JUST TRY TO INSERT
	MOVE	T2,HILN		;YES -- SET UP FOR CALL
	MOVE	T3,NLIN1
	PUSHJ	P,GETDIF	;GET BEST FIT
	  NERROR ILR		;WHOOPS
	MOVEM	T1,HILN		;USE THESE VALUES
	MOVEM	T2,INCR		;SAVE THE INCREMENT FOR NOW
	MOVEM	T2,ISVINC	;AND FOR USE WITH LATER I<CR>
	JRST	INSLP
INSTRY:	CAME	T1,HILN		;DO THEY MATCH?
	JRST	INSLP		; YES - GO AHEAD
	MOVE	T2,INCR		; NO - GO INVENT A NEW LINE
	PUSHJ	P,FIXLIN
	  EXP	HILN
	 NERROR	ILR		;NO ROOM
	MOVEM	T2,HILN		;STORE NEW NUMBER
INSLP:	SETZM	OCNT
	SKIPE	ALTSN		;ALTMODE SEEN?
	JRST	LVINS		;YES: DONE
	MOVE	T1,HILN		;TELL HIM THE LINE HE IS INSERTING
	MOVEM	T1,LIBUF	;AND PUT IT IN THE BUFFER
	SETZM	CRBUF		;INCASE NONUMBER
	TRNN	FL2,COMFLF!NONUMF	;IGNORE SQ # IF IN CMD FILE
	CALL	[MOVEM T1,CRBUF	;PUT IT IN ^R BUFFER
		 MOVSI T2,(11B6)
		 MOVEM T2,CRBUF+1
		 PJRST OUTSN]	;DUMP SEQ # AND RETURN
	PUSHJ	P,RDLIN		;READ A LINE
	JRST	LVINS		;YES, GET OUT OF INSERT MODE
	MOVEM	T1,NCNT		;HERE IS THE COUNT OF THE NEW ONE
	PUSHJ	P,INSED		;GO INSERT
	SOSN	ISAVEN		;TIME TO SAVE?
	PUSHJ	P,ASVINS	;YES: GO DO IT
	PUSHJ	P,FINDN		;MOVE UP A LINE
	PUSHJ	P,FILLB		;AND DUMP SOME IF NECESSARY
	MOVE	T1,CPG		;SET CURRENT LINE AND PAGE TO LAST
	MOVEM	T1,CPGL		;ONE REALLY INSERTED
	MOVEM	T1,IPG		;(199) UPDATE PAGE COUNTER
	MOVE	T1,HILN
	MOVEM	T1,CLN
	MOVEM	T1,CURINS	;(199) UPDATE INSERT COUNTER
	MOVE	T2,INCR		;GET NEXT LINE TO INSERT
	PUSHJ	P,ASCIAD
	CAMG	T1,INCR		;HAVE WE WRAPED AROUND
	JRST	LVINS1		;YES -- STOP
	MOVEM	T1,HILN		;STORE FOR REFERENCE
	SKIPN	T1,(PNTR)	;GET THE LINE POINTED TO
	JRST	INSLP		;ALWAYS INSERT AT END OF FILE
	CAME	T1,PGMK		;OR AT END OF PAGE
	CAMLE	T1,HILN		;HAVE WE FOUND A MATCH OR PASSED OVER A LINE?
	JRST	INSLP		;NO, INSERT
	JRST	LVINS1		;RETURN TO COMMAND LEVEL

LVINS:	MOVE	T1,HILN
	MOVEM	T1,CURINS	;SET PLACE TO INSERT NEXT TIME
	MOVE	T1,CPG
	MOVEM	T1,IPG
	TRNE	FL2,COMFLF	;CMD FILE?
	JRST	LVINS2		;YES SKIP CR
LVINS1:	SKIPE	ALTSN		;ALT SEEN?
	OCRLF			;YES -- OUTPUT CRLF
LVINS2:	SETZM	ALTSN		;CLEAR ALTMODE FLAG
	POPJ	P,		;RETURN
;ROUTINE TO COMPUTE INCREMENT AS DIFFERENCE OF
; TWO LINES / # OF LINES TO INSERT
;CALL:
;	MOVE	T1,<RESULT OF FIND>
;	MOVE	T2,<LINE TYPED(DESIRED)>
;	MOVE	T3,<# OF LINES TO INSERT>
;	PUSHJ	P,GETDIF
;	  <ERROR RETURN (IE NO ROOM)>
;	<OK RETURN>
;	  C(T2) := COMPUTED INCR
;	  C(T1) := WHERE TO START INSERTING

GETDIF:	PUSH	P,T3		;SAVE ARGS
	PUSH	P,T2
	PUSH	P,T1		;SAVE RESULT OF FIND
	CAMN	T1,T2		;ALREADY HAVE NEXT IF NOT EQUAL
	PUSHJ	P,FINDN		;LOOK FOR NEXT LINE
NOFND:	SKIPE	T3,T1		;NONE IF EOF
	CAMN	T1,PGMK		;  OR PAGE MARK
	SKIPA	T1,[^D100000]	;USE HIGHEST + 1
	PUSHJ	P,NUMCON	;NEXT LINE # IN T1
NONXT:	PUSH	P,T1		;SAVE IT
	MOVE	T3,-2(P)	;GET WHAT WAS TYPED
	CAMN	T3,-1(P)	;DOES IT EXIST?
	SOS	0(P)		;YES - ALLOW FOR IT
	PUSHJ	P,NUMCON	;CONVERT ARG
	MOVE	T2,T1		;MOVE RESULT TO T2
	POP	P,T1		;RESTORE <NEXT>
	SUB	T1,T2		;GET DIFFERENCE
	IDIV	T1,-2(P)	;(<NEXT>-<CURR>)/N
	JUMPE	T1,GOTZER	;DON'T FIT IF ZERO
	CAIGE	T1,3		;IF 1 OR 2 ITS THE BEST
	JRST	GOTIT
	MOVE	T2,[-6,,[DEC 2,5,10,20,50,100,100001]]
	CAML	T1,1(T2)	;LOOK FOR ITEM .GT. T1
	AOBJN	T2,.-1
	JUMPGE	T2,GOTZER	;CAN'T HAPPEN
	MOVE	T1,0(T2)	;GET AESTHETIC INCR
GOTIT:	PUSHJ	P,ASCON		;CONVERT TO INCR FORM
	MOVE	T2,T3		;GET INTO CORRECT AC
	POP	P,T1		;GET BACK ARG
	MOVEM	T2,-1(P)	;STORE COMPUTED INCR
	CAME	T1,0(P)		;FIGURE OUT START POINT
	JRST	GETRET		;OK IF NOT FOUND
	PUSHJ	P,ASCIAD	;ELSE ADD INCR TO IT
	MOVEM	T1,0(P)		;  AND USE IT
GETRET:	POP	P,T1		;STARTING LINE #
	POP	P,T2		;INCR
	JRST	CPOPJ1		;GIVE GOOD RETURN

GOTZER:	SUB	P,[3,,3]	;PRUNE PDL
	POPJ	P,		;ERROR RETURN

;USE THIS ENTRY IF THERE IS NO NEXT LINE KNOWN

GETDF1:	PUSH	P,T3		;SAVE ARGS
	PUSH	P,T2
	PUSH	P,T1
	MOVEI	T1,^D100000	;USE LARGEST + 1
	JRST	NONXT		;ENTER GETDIF
;ROUTINE TO GUESS AT A GOOD PLACE TO INSERT IF CURRENT LINE EXISTS
;CALL:
;	MOVE	T1,<CURRENT POSITION>
;	MOVE	T2,<INCREMENT TO USE>
;	PUSHJ	P,FIXLIN
;	<LOC OF HIGH BOUND>
;	  <ERROR RETURN>
;	<OK RETURN>		;NEW NUMBER IN T2

FIXLIN:	AOS	T4,0(P)		;SKIP OVER ARG
	PUSHJ	P,ASCIAD	;ADD
	PUSH	P,T1		;SAVE RESULT
	PUSHJ	P,FINDN		;GET THE NEXT ONE
	POP	P,T2
	CAMG	T2,@-1(T4)	;IS THERE A WAR PROBLEM
	JRST	FIXBAD		;YES, WE MUST TRY TO COMPUTE ONE
	JUMPE	T1,CPOPJ1	;END OF FILE, ANY INC IS OK
	CAME	T1,PGMK		;ALSO OK IF A PAGE MARK
	CAMGE	T2,T1		;OR IN CORRECT ORDER
	JRST	CPOPJ1
FIXBAD:	CAME	T1,PGMK
	SKIPN	T1
	MOVE	T1,[<ASCII /9999:/>!1]	;ONE OVER THE TOP OF THE WORLD
	MOVE	T2,@-1(T4)	;GET CURRENT
	PUSHJ	P,ASCAV		;FIND AVERAGE
	CAME	T2,@-1(T4)	;THERE MAY HAVE ONLY BEEN A DIF OF 1
	AOS	0(P)		;SKIP RETURN
	POPJ	P,

SUBTTL DELETE ROUTINE
;DELETE A LINE, A NUMBER OF LINES, OR A PAGE MARK

DELETE:	SETZM	LOLN		;JUST AS A START
	SETZM	PGDELS		;NO PAGES DELETED
	TRNE	FL,READOF	;NOT PERMITTED IN READ ONLY
	NERROR	ILC
	PUSHJ	P,GET2S		;GET TWO PAGE-LINE PAIRS
	TRZ	FL,LINSN	;FOR NOW
	CAIE	C,","	;CHECK SWITCH
	JRST	DELT1
	PUSHJ	P,SCAN
	MOVS	T1,ACCUM
	TRNE	FL,IDF
	CAIE	T1,(<SIXBIT /Y  />)
	NERROR	ILC
	TRO	FL,LINSN	;DON'T ASK
	PUSHJ	P,SCAN
DELT1:	TRNN	FL,TERMF	;CHECK FOR TERMINATOR
	NERROR	ILC
	PUSHJ	P,DELSUB	;DO SOME DELETING
	SKIPN	PGDELS		;NEED TO DO ORDER CHECK
	JRST	COMND		;NO - ALL OK
	JRST	ORDCHK		;YES - DO IT

;SUBROUTINE TO DELETE LINES FROM A FILE - COUNTS NUMBER OF
;PAGE MARKS DELETED IN PGDELS

DELSUB:	TRNN	FL,PGSN		;CHECK FOR MASSIVE DELETE
	SKIPN	LOLN
	JRST	[TRNN FL,EXTOG
		 TRNE FL,LINSN
		 JRST .+1
		 OUTSTR [ASCIZ /Massive delete ok? /]
		 PUSHJ P,CONFRM
		 JRST COMND	;NO:
		 JRST .+1]	;YES:
	TRZ	FL,LINSN	;NONE SEEN YET
	MOVE	T1,LOPG		;GET THE PAGE NUMBER
	MOVEM	T1,DPG
	MOVE	SINDEX,LOLN	;AND LINE
	PUSHJ	P,FIND
	MOVE	T2,CPG		;SEE WHERE WE ARE
	CAME	T2,LOPG		;IS THIS OK
	NERROR	NSP
	SKIPN	LOLN		;WANT WHOLE PAGE?
	TRO	FL,LINSN	;YES - SAY WE DID IT
DELSB1:	PUSHJ	P,ONMOV		;CHECK FOR RANGE
	JRST	DELEND
	TRO	FL,LINSN	;SEEN SOMETHING
	CAMN	T1,PGMK		;PAGE MARK
	JRST	DELPAG		;YES - DELETE PAGE
	MOVEM	T1,CLN		;SAVE CURRENT LINE
	PUSHJ	P,DODEL		;GO DO A LINE DELETE
DELSB2:	PUSHJ	P,FINDN1	;FIND NEXT BUT ACCEPT LINE IF ALREADY THERE
	JRST	DELSB1		;GO DO NEXT

DELPAG:	MOVEI	T1,2		;SET TO DELETE PAGE
	MOVEM	T1,OCNT
	SETZM	NCNT		;NEW SIZE IS 0
	PUSHJ	P,INSED		;ZAP
	AOS	PGDELS		;INCR COUNT OF PAGES GONE
	AOS	CPG		;BEWARE!!!
	SETZM	LDELLN		;NO LINES ON THIS PAGE YET
	JRST	DELSB2		;CONTINUE

DELEND:	TRNN	FL,LINSN	;DO ANYTHING?
	NERROR	NLN		;NO - GIVE ERROR
	MOVE	T1,LOPG		;YES - SET CURRENT PAGE
	MOVEM	T1,CPG		;AS THE ONE HE ASKED FOR
	MOVEM	T1,CPGL		;...
	MOVN	T1,PGDELS	;GET NEG # OF PAGES DELETED
	ADDM	T1,BGPG		;ADJUST CNTRS
	ADDM	T1,INPG		;TO SHOW CORRECT # OF PAGES
	POPJ	P,		;RETURN
;DELETE A PAGE MARK

KILL:	SETZM	LOLN	;A GOOD THING
	TRNE	FL,READOF
	NERROR	ILC
	PUSHJ	P,GET1S
	TRZN	FL,LINSN
	TRNN	FL,TERMF
	NERROR	ILC
DELPG:	MOVE T1,HIPG	;GET THE DESIRED PAGE TO DELETE
	MOVEM T1,DPG	;SET IT
	SOJLE T1,DELER	;DO NOT TRY PAGE 1
	MOVEI SINDEX,0	;GUARANTEED TO FIND LINE IMMEDIATELY AFTER PAGE MARK
	PUSHJ P,FIND	;GET IT
	MOVE T2,CPG	;CHECK FOR MATCH
	CAME T2,HIPG
DELER:	NERROR NSP	;NO SUCH PAGE
	PUSHJ P,FINDB	;GO BACK ONE
	CAME T1,PGMK	;IS IT A PAGE MARK?
	NERROR ICN		;CONFUSED, GIVE FATAL ERROR
	MOVEI T1,2	;COUNT IS 2
	MOVEM T1,OCNT
	SETZM NCNT	;AND NEW IS 0
	PUSHJ P,INSED
	MOVE	T1,HIPG		;GET HIGH PAGE
	CAMG	T1,CPGL		;CPG GTR CPGL?
	SOS	CPGL		;NO, CPGL=CPGL-1
	SOS BGPG	;MAX PAGE IS NOW 1 LOWER
	SOS INPG
ORDCHK:	PUSHJ P,FINDN1	;GET THE NEXT LINE
	JUMPE T1,COMND	;IF EOF THERE IS NO ORDER ERROR
	CAMN T1,PGMK	;OR IF A PAGE MARK
	JRST COMND
	MOVEM T1,SVSEQN		;SAVE IT FOR COMPARE
	PUSHJ P,FINDB		;FIND THE PREVIOUS ONE
	JUMPE T1,COMND		;START OF FILE, ALL OK
	CAME T1,PGMK		;ANOTHER PAGE MARK
	CAMGE T1,SVSEQN		;CHECK THE ORDER
	JRST COMND		;ALL OK
	NERROR ORDER		;ALL WRONG

SUBTTL INSERT PAGE MARK
;INSERT A PAGE MARK AT DESIGNATED LINE

MARK:	SETZM	HILN		;IN CASE OF /A
	TRNE FL,READOF	;NOT PERMITTED IN READ ONLY
	NERROR ILC
	PUSHJ P,GET1S	;GET ONE LINE/PAGE NUMBER
	TRNN FL,TERMF	;CHECK FOR TERMINATOR
	NERROR ILC
	PUSHJ	P,MARK0		;INSERT PAGE MARK
	JRST	COMND		;RETURN TO COMMAND LEVEL

MARK0:	MOVE T1,HIPG	;GO LOOK FOR IT
	MOVEM T1,DPG
	MOVE SINDEX,HILN	;AND THE LINE
	PUSHJ P,FIND	;GET IT
	MOVE T1,CPG
	CAME T1,HIPG	;PAGE MUST MATCH
	NERROR NSP	;MUST MATCH
	AOS T1,CPG	;WILL BE ON HIGHER PAGE WHEN DONE
	MOVEM T1,CPGL	;SET UP LOGICAL PAGE
	AOS BGPG	;THERE IS NOW ONE MORE
	AOS INPG
	MOVE T1,TECFST	;Use the START parameter
	MOVEM T1,CLN	;FIRST LINE ON THAt PAGE
	MOVE T1,PGMK	;PUT A PAGE MARK IN LIBUF
	MOVEM T1,LIBUF
	MOVE	T1,PGMKW2	;TEXT OF A PAGE MARK
	MOVEM T1,LIBUF+1
	SETZM OCNT	;THIS IS A STRAIGHT INSEET
	MOVEI T1,2	;OF 2 WORDS
	MOVEM T1,NCNT
	PUSHJ P,INSED	;GO DO IT
	PUSHJ P,FINDN	;SINCE FILLB MAY WANT TO DUMP THIS LINE
	JUMPE T1,FILLB		;SKIP IF EOF SEEN
	CAME T1,PGMK		;CHECK IF EMPTY
	MOVEM T1,CLN		;NO; USE THIS LINE
	JRST	FILLB		;FILL BUFFER

INSMK:	TRNE	FL,TERMF	;(223)do we have a terminator?
	 JRST	INSMK0		;(223)yes,don't check for increment
	CAIE	C,","		;(223)no,check for comma
	 NERROR	ILC		;(223)bad syntax
	MOVE	T1,INCR		;(223)load old INCR into T1
	PUSHJ	P,GETINC	;(223)get increment value
	SETZM	ALTSN		;NO ESC SEEN YET
INSMK0:	MOVE	T1,[<ASCII /9999:/>!1]
	MOVEM	T1,HILN		;ONE PAST END OF WORLD
	PUSHJ	P,MARK0		;INSERT PAGE-MARK
	MOVE	T1,CLN		;GET CURRENT LINE
	MOVEM	T1,HILN
	MOVE	T1,CPG		;AND CURRENT PAGE
	MOVEM	T1,HIPG		;SET UP FOR INSERT
	JRST	INSGO		;GO

SUBTTL	RENUMBER
;RENUMBER SELECTED LINES

NUMBER:	MOVE T1,TECINC		;USE DEFAULT INCR
	MOVEM T1,REINC		;WE WILL USE 100
	MOVE T1,TECFST		; AND DEFAULT START
	MOVEM T1,INCST
	MOVEM T1,REFST		;SAVE FOR NEW PAGE
	SETZM LOLN	;GET THIS SET TO START THINGS OFF
	TRNE FL,READOF	;NOT PERMITTED IN READ ONLY
	NERROR ILC
	TRZ	FL2,ACONST!MONOF
	PUSHJ	P,GNCH		;GET NEXT CHAR
	MOVEM	C,SAVC		;SAVE IN CASE WE NEED IT
	ANDI	C,137		;FORCE UPPER
	CAIN	C,"A"
	TRO	FL2,ACONST	;ADD CONSTANT
	CAIN	C,"P"
	TRO	FL2,MONOF	;NO RESET ON PAGE MARK
	TRNE	FL2,ACONST!MONOF
	SETZM	SAVC		;GOT ONE - DON'T BACK UP SCANNER
	PUSHJ	P,SCAN		;GET THE RENUMBER INCREMENT
	TRNE FL,NUMF	;WAS IT A NUMBER
	CAMN T1,[<ASCII /00000/>!1]	;NO 0 RENUMBER INCR
	JRST NUMBC	;NO NUMBER, CHECK FOR COMMA
	MOVEM T1,REINC	;THE INCREMENT TO USE
	MOVEM T1,INCST	;LINE TO START WITH
	MOVEM	T1,REFST
	PUSHJ P,SCAN	;SCAN PAST NUMBER
NUMBC:	CAIN C,","	;AND CHECK FOR COMMA
	JRST NUMB1	;GET A RANGE
	MOVEI T1,1	;NO RANGE, DO WHOLE FILE
	MOVEM T1,LOPG	;FROM PAGE 1
	MOVSI T1,1	;TO IMPOSSIBLY HIGH
	MOVEM T1,HIPG
	TRZ FL,CNTF	;MAKE SURE THIS IS OFF
	JRST NUMBL	;AND CHECK FOR TERMINATOR
NUMB1:	PUSHJ P,GET2S	;GET A RANGE
	CAIE C,","	;SEE IF THERE IS A FOURTH ARGUMENT
	JRST NUMBL	;NO
	PUSHJ P,SCAN	;YES, GET IT
	TRNN	FL2,ACONST	;ILLEGAL IF ADD MODE
	TRNN FL,NUMF	;IS IT A NUMBER?
	NERROR ILC	;HE WOULD HAVE BEEN BETTER OFF WITHOUT IT
	MOVEM	T1,REFST
	MOVEM T1,INCST	;USS AS STARTING NUMBER
	PUSHJ P,SCAN	;SCAN PAST IT
NUMBL:	TRNN FL,TERMF	;ENDS PROPERLY?
	NERROR ILC	;LOSE
	MOVE T1,LOPG	;GET PLACE TO START
	MOVEM T1,DPG
	MOVE SINDEX,LOLN	;AND LINE
			;FALL THRU
	PUSHJ P,FIND	;GET IT
	TRZ FL,LINSN!ORDF	;SET TO NONE SEEN AND NO ORDER ERROR
	PUSHJ P,FINDB	;BACK UP AND SEE HOW ORDER LOOKS
	JUMPE T1,NUMB5	;START OF FILE IT MUST BE OK
	CAME T1,PGMK	;ALSO IF A PAGE MARK
	CAMGE T1,INCST	;OR IF IN CORRECT ORDER
	SKIPA
	TRO FL,ORDF	;WRONG SET FLAG
NUMB5:	PUSHJ P,FIND	;GET THE CORRECT LINE BACK
NUMB2:	PUSHJ P,ONMOV	;CHECK RANGE
	JRST NUMB3
	CAMN T1,PGMK	;PAGE MARK?
	JRST NUMB4	;SPECIAL TREATMENT
	MOVE	T1,1(PNTR)	;CHECK SPECIAL P.M.
	CAMN	T1,[BYTE (7)11,14,15,12,0]
	JRST	NUMBP		;HANDLE AS WIERD PAGE MARK
	TRNE	FL2,ACONST	;JUST ADD CONSTANT
	JRST	[MOVE T1,(PNTR)	;YES - USE OLD LINE #
		 TRO FL,LINSN	;SAY WE'VE SEEN ONE
		 JRST NUMB2A]
	MOVE T1,INCST	;GET STAATING NUMBER
NUMB2A:	MOVE T2,REINC	;AND INCREMENT
	TRON FL,LINSN	;WAS A LINE SEEN?
	JRST FSTLIN	;NO, FIRST ONE IS SPECIAL
	PUSHJ P,ASCIAD	;SKIP THIS THE FFRST TIME
	CAMGE T1,REINC	;HAVE WE WRAPED
	JRST	[RERROR WAR	;TELL HIM HE LOST
		MOVE T2,CPG	;PRINT THE PAGE
		PUSHJ P,PGPRN
		JRST .+1]	;RETURN
FSTLIN:	MOVEM T1,INCST	;SAVE FOR NEXT LINE
	MOVEM T1,CLN	;AND THE CURRENT LINE
	MOVEM T1,(PNTR)	;PUT IT IN
	PUSHJ P,FINDN	;GET NEXT
	JRST NUMB2	;AND GO RANGE CHECK

NUMB3:	TRNN FL,LINSN	;DONE, WAS THERE SOMETHING THERE?
	NERROR NLN	;NO,  NULL RANGE ERROR
	TLO	FL2,ALLCHG	;CHANGES
	MOVE T2,CPG	;SET UP CURRENT PAGE
	MOVEM T2,CPGL
	TRNE FL,ORDF	;WAS THERE AN ORDER ERROR?
	NERROR ORDER	;YES, FLAG IT
	JUMPE T1,COMND	;CHECK TO SEE IF LOSAGE NOW
	CAME T1,PGMK
	CAMLE T1,INCST
	JRST COMND
	NERROR ORDER
NUMBP:	MOVE	T1,PGMK		;CONVERT TO PAGE MARK
	MOVEM	T1,0(PNTR)
	MOVE	T1,PGMKW2	;REST
	MOVEM	T1,1(PNTR)	;...
	AOS	BGPG		;INCR ALL GOOD STUFF
	AOS	INPG
	AOS	HIPG		;FAKE OUT ONMOV
NUMB4:	AOS	CPG		;NOW ON A HIGHER PAGE
	MOVE	T1,[<ASCII /00000/>!1]
	MOVEM	T1,CLN		;SET TO FIRST LINE ON PAGE
	TRO	FL,LINSN	;WE SAW ONE
	PUSHJ	P,FINDN		;GET NEXT LINE
	PUSHJ	P,ONMOV	;IN RANGE?
	  JRST	NUMB3		;NO - FINISHED
	CAMN	T1,PGMK		;ANOTHER P. M.
	JRST	NUMB4
	MOVE	T1,REFST	;FIRST LINE #
	TRNN	FL2,ACONST!MONOF
	JRST	FSTLIN		;IF NOT SPECIAL
	MOVE	T1,REINC	;ELSE GET INC
	TRNN	FL2,MONOF
	SKIPA	T2,(PNTR)	;CURRENT LINE FOR "NA"
	MOVE	T2,INCST	;ELSE LAST LINE FOR "NP"
	PUSHJ	P,ASCIAD	;DO ARITHMETIC
	JRST	FSTLIN		;STASH NUMBER

SUBTTL ALTER COMMAND
	DEFINE OFFRUB
<	TRZE FL2,RUBF2
	OUTSTR [ASCIZ /\\/]
	TRZE FL2,RUBF
	OUTCHR ["\"]>

	DEFINE ONRUB
<	TRZE FL2,RUBF2
	OUTSTR [ASCII /\\/]
	TRON FL2,RUBF
	OUTCHR ["\"]>

ALTER:	SETZM LOLN	;FOR START OF PAGE
	TRZ FL2,ADECIF	;THIS IS NOT DECIDE MODE ALTER
	PUSHJ P,GET2S	;GET THE RANGE
	TRNN FL,TERMF	;CHECK FOR PROPER END
	NERROR ILC	;UNEND
	MOVE T1,LOPG	;START TO PROCESS
	MOVEM T1,DPG
	MOVE SINDEX,LOLN
	PUSHJ P,FIND	;GO GET IT
	TRZ FL,LINSN	;NOT SEEN YET
ALT1:	PUSHJ P,ONMOV	;CHECK FOR IN RANGE
	JRST ALT2	;NO, FINISH UP
	TRO FL,LINSN	;WE DID SEE SOMETHING
	CAMN T1,PGMK	;CHEC FOR A PAGE
	JRST ALT3	;DO NNT TRY TO CHANGE THIS
	MOVEM T1,CLN	;NOW, IN CASE WE SAID ALTMODE
	MOVE T1,CPG	;SAME FOR PAGE
	MOVEM T1,CPGL
	PUSHJ P,ALTLIN	;GO DO THE ALTER
	JRST LEVINS	;HE SAID ALTMODE
	PUSHJ P,INSED	;GO INSERT
ALT4:	PUSHJ P,FINDN	;GET THE NEXT LINE
	PUSHJ P,FILLB	;AND CHECK FOR BUFFER OVERFLOW
	MOVE T1,(PNTR)	;GET LINE FOR ONMOV
	JRST ALT1	;CONTINUE LOOP
ALT3:	AOS T2,CPG	;WE ARE ON A LATER PAGE NOW
	MOVEM T2,CPGL	;SAVE AS .
	TRNN	FL2,NONUMF	;SKIP IF IN NONUMBER MODE
	PUSHJ P,PGPRN	;PRINT HIM A MESSAGE
	MOVE T1,[<ASCII /00000/>!1]	;SET TO FIRST? LINE
	MOVEM T1,CLN	;FOR .
	JRST ALT4	;CONTINUE PAST IT
ALT2:	TRNN FL,LINSN	;WAS THERE ANYTHING THERE?
	NERROR NLN	;NO, GIVE ERROR
	MOVE T1,CPG	;|ET CURRENT PAGEE
	MOVEM T1,CPGL	;SAVE AS .
	JRST COMND	;GO
ALTLIN:	PUSHJ P,SETALT	;SET UP LINE FOR ALTERATION

ALTN1:
ALTLP2:	MOVEI T2,0	;ZERO REPEAT COUNT
	TLZ FL,NEGF	;TURN OFF "-" SEEN FLG
ALTLP:	TRZ FL2,ALTDUP	;TURN DUPLEXING BACK OFF
	PUSHJ P,GNCH1	;GET ON CHR IN DDT SUBMODE
	TLNE CS,LETF_16	;CHECK FOR LETTER
	TRZ C,40	;AND CONVERT TO UPPER CASE
	MOVSI T1,-ALTLG	;GET LENGTH OF COMMAND TABLE
	CAME C,ALTAB1(T1)	;CHECK FOR EQUAL
	AOBJN T1,.-1	;NO, TRY AGAIN
	JUMPGE	T1,[CAIN C,15		;IGNORE CR'S
		    JRST ALTLP
		    JRST ALTBEL]
	MOVE	T1,ALTAB2(T1)	;GET TABLE ENTRY IN T1
	JUMPL	T1,ALTDSP	;"-" ALLOWED IF NEG.
	TLNN	FL,NEGF		;NO: IS IT SET?
	JRST	ALTDSP		;OK TO EXECUTE COMMAND
ALTBEL:	OUTCHR	[7]		;BONG A GONG
	CALL	CLRBFI		;CLEAR TYPE AHEAD
	JRST	ALTLP2		;TRY AGAIN

ALTDSP:	TLNN	T1,(1B1)	;OK IN ALL MODES?
	TRNN	FL,READOF	;NO -- CHECK R/O
	SKIPA			;YES -- DISPATCH
	JRST	ALTBEL		;R/O RING BELL
	PUSHJ	P,0(T1)		;DISPATCH
	JRST	ALTLP2		;RESET REPEAT COUNT AND GET NEW COMMAND
	JRST	ALTLP		;SKIP RETURN FROM DIGITS NO COUNT RESET

ALTAB1:	EXP " ","I","D","F","K","Q",12
	EXP "C",177,"U"-100,"W","X","R"-100
	EXP "R","L","P","J","E","-",10,11,"?"
	EXP "0","1","2","3","4","5","6","7","8","9","0"
ALTLG=.-ALTAB1

ALTAB2:	EXP <3B1+ALTSP>,ALTIN
	EXP <1B0+ALTDL>,<3B1+ALTSR>,<1B0+ALTKL>
	EXP <1B1+ALTALT>,<1B1+ALTFN>,ALTCN
	EXP <1B1+ALTBS>,<1B1+ALTCU>,<1B1+ALTWD>,ALTWX
	EXP <1B1+APRINR>,<1B0+ALTRP>
	EXP <1B1+ALTLN>,<1B1+APRINT>,AJOIN,<1B1+ALTEX>
	EXP <1B1+ALTNEG>,<1B1+ALTBS>,<3B1+ALTTB>,<1B1+AQUES>
	REPEAT ^D10,<<3B1+ALTDG>>

; ? Prints all the legal Alter mode commands

AQUES:	OFFRUB
	OUTSTR	[ASCIZ "
Alter commands are: C, D, E, I, J, K, L, P, Q, R, F, W, 
X, space, <CR>, Rubout, Backspace, Tab, and CTRL/U.
"]
APRINR:	PUSH	P,ALTCNT	;Save the current place
	PUSHJ	P,ALTLN1	;Print sequence number + tab
	POP	P,T2		;Retrieve current place
	CAILE	T2,0		;Print if > 0
	JRST	ALTSP
	POPJ	P,

ALTNEG:	TLO FL,NEGF
	JRST CPOPJ1
SETALT:	SETZM LIBUF	;ZERO OUT INTERNAL LINE BUFFER
	MOVE T1,[XWD LIBUF,LIBUF+1]
	BLT T1,LIBUF+MXWPL+1
	MOVEI T1,LIBUF	;SET POINTER TO TRANSFER
	MOVE T2,PNTR
	MOVE T3,(T2)	;GET THE FIRST WORD (SEQ NUM)
	JRST SALT3
SALT2:	SKIPE T3,(T2)	;PICK UP A WORD AND CHECK FOR 0
	TRNE T3,1	;CHECK FOR SEQ NTM
	JRST SALT1	;END OF THIS LINE
SALT3:	MOVEM T3,(T1)	;SAVE IT AWAY
	ADDI T1,1	;INCREMENT POINTERS
	AOJA T2,SALT2
SALT1:	MOVE ALTP,[POINT 7,LIBUF+1,13]	;SET UP POINTER
	SETZM ALTCNT	;SO FAR WE ARE 0 CHRS INTO LINE
	SUBI T1,LIBUF	;GET COUNT OF OLD LINE
	HRRZM T1,OCNT	;AND SAVE IT FOR INSED
	CALL	NOECHO		;TURN OFF ECHO
	TRZ FL2,RUBF!ALTDUP!RUBF2	;TURN OFF IN RUBOUT FALG AND NO DUPLEXING
	SETZM ALTFLG	;NOTHING INSERTED SO FAR
	TRNE	FL2,NONUMF	;SKIP IF NORMAL
	POPJ	P,		;ELSE RETURN
	MOVE T1,LIBUF	;PRINT LINE NUMBER AND TAB
	JRST OUTSN

RPSALT=SALT1
GNCH1A:	TRNE FL2,COMFLF	;DO RDCHAR IF CMD FILE NOT ANSWERING
			;A TO DECIDE MODE
	JRST	[TRNE FL2,ADECIF
		 JRST .+1
		 PUSHJ P,RDCHAR
		 JRST GNCH1C]
	INCHRW C
	ANDI C,177
GNCH1C:	CAME C,ESC	;NEVER DUPLEX ESC
	TRNN FL2,ALTDUP	;AND NOT UNLESS DESIRED
	POPJ P,
	CAIE C,12	;NOT LINE FEED
	CAIN C,15	;OR RETURN
	POPJ P,
	CAILE C,5	;DONT ECHO ^E (CAN CAUSE TERMINAL ANSWERBACK)
	CAIN C,177	;AND FINALLY IGNORE RUBOUT
	POPJ P,
	OFFRUB		;IF WE ARE DUPLEXING WE ARE NOT DELETING
	OUTCHR C	;TYPE
	POPJ P,

GNCH1:	PUSHJ P,GNCH1A	;GET A CHR IN DDT MODE
	CAMN C,ESC	;CONVERT ALTMODE TO 200
	MOVEI C,200
	TLNN FL,QMODF
	CAIE	C,"'"		;CHECK FOR QUOTE
	JRST GNCH1B	;NO, THIS CHR IS OK
	PUSHJ P,GNCH1A	;GET ANOTHER
	SKIPE CTBL(C)	;IF 0 HN CTBL, KEEP IT
	MOVS C,CTBL(C)	;GET ALTERNATE CODE
	ANDI C,177	;GET RID OF EXTRA BITS
GNCH1B:	MOVE CS,CTBL(C)	;LOAD CS
	TLNE CS,LETF_16	;CHECK FOR LETTER
	TDC C,CASEBT	;AND APPLY CASE CONVERRION
	POPJ P,		;ALL DONE
ALTDG:	IMULI T2,^D10	;ACCUMULATE REPEAT COUNT
	ADDI T2,-"0"(C)
	JRST CPOPJ1	;SKIP RETURN SO AT NOT TO 0 RPT. CNT.

ALTTB:	MOVEI	T2,MXWPL*5+100	;LOTS OF SPACES
ALTSP:	TLNE FL,NEGF	;CHECK BACKWARDS
	JRST ALTBS	;YES: BACK SPACE
	OFFRUB

ALTSP2:	LDB C,ALTP	;GET THE CHR WE ARE POINTING AT
	CAIN C,15	;IF RETURN THEN AS FAR AS CAN GO
	JRST ALTSP1	;SO QUIT
	TRNN FL2,SUPN	;SPECIAL HACK FOR XTEND
	PUSHJ P,OCHR	;PRINT IT
	IBP ALTP	;ADVANCE POINTER
	AOS ALTCNT	;AND COUNT
	SOJG T2,ALTSP2	;DO CORRECT NUMBER OF TIMES
ALTSP1:	TRNN FL2,SUPN
	PUSHJ	P,FORCE		;DUMP IT
	POPJ P,



ALTIN:	TRO FL2,ALTDUP	;TURN ON DUPLEXING
	MOVEM T2,ALTINC	;SAVE IN CASE HE INSERTS A RETURN
ALTIN1:	PUSHJ P,GNCH1	;GET A CHARACTER
	CAIN C,"R"-100	;CONTROL-R
	JRST [	OFFRUB
		CALL APRINR	;PRINT LINE OVER
		JRST ALTIN1]	;CONTINUE INSERT
	CAIN C,"U"-100		;CONTROL-U
	JRST ALTCU		;ABORT AND START OVER
	CAIN C,15	;FINISH ON CR
	JRST ALTFNZ
	CAIN C,12
	JRST INSCR	;GO INSERT A CRLF
	CAIN C,200	;FINISH ON ALTMODE
	POPJ P,		;GO AWAY
	CAIN C,177	;CHECK FOR BACKSPACE
	JRST ALTIBS	;AND DELETE CHR TO LEFT
	MOVE T3,ALTP	;GET SET TO SHIFT THINGS
	PUSH P,ALTCNT	;SAVE THIS FOR LATER
	LDB T1,T3	;GET CHR FROM LINE
ALTIN2:	DPB C,T3	;SHIFT LINE
	JUMPE C,ALTIN3	;DONE
	AOS ALTCNT	;COUNT IT
	ILDB C,T3
	DPB T1,T3
	JUMPE T1,ALTIN3	;DONE
	AOS ALTCNT	;COUNT
	ILDB T1,T3
	JRST ALTIN2
ALTIN3:	MOVE T2,ALTCNT	;SEE IF OVERFLOW HAPPENED
	CAIL T2,MXWPL*5
	NERROR LTL	;YES
	POP P,ALTCNT	;RESTORE OLD COUNT
	IBP ALTP	;ADVANCE POINTER
	AOS ALTCNT	;AND COUNT
	JRST ALTIN1	;GO GET MORE
INSCR:	OFFRUB
	OCRLF
	SKIPN T1,ALTINC	;DID HE SPECIFY AN INCREMENT?
	SKIPA T3,INCR	;NO, USE STANDARD
	PUSHJ P,ASCON	;CONVERT TO ASCII
	MOVE T1,T3	;FIND THE NEW LINE NUMBER
	MOVE T2,LIBUF	;CURRENT ONE
	PUSHJ	P,FIXLIN
	  EXP	LIBUF
	JRST	[RERROR ORDER
		 PUSHJ P,FINDB	;GET BACK WHERE WE BELONG
		 PUSHJ P,ERCOR	;TYPE OUT LINE TO CURRENT POINT
		 JRST ALTIN1]	;AND CONTINUE INSERT
	MOVEM	T2,LIBUF2	;SAVE IT
	MOVEM T2,CLN	;AND SET AS CURRENT LINE
	PUSHJ P,FINDB	;BACK UP TO WHERE WE BELONG
	MOVE T1,[XWD LIBUF+1,LIBUF2+1]
	BLT T1,LIBUF2+MXWPL+1	;SAVE OLD BUFFER
	PUSH P,ALTP	;SAVE POINTER
	MOVEI C,15
	DPB C,ALTP	;AND TERMINATE THIS LINE
	MOVEI C,12
	IDPB C,ALTP
	MOVEI C,0	;FILL OUT LINE WITH NULLS
AINSC2:	TLNN ALTP,760000
	JRST AINSC3
	IDPB C,ALTP
	JRST AINSC2
AINSC3:	SUBI ALTP,LIBUF-1	;FIND COUNT
	HRRZM ALTP,NCNT
	PUSHJ P,INSED	;REPLACE OLD LINE
	PUSHJ P,FINDN	;MOVE UP TO NEXT
	PUSHJ P,FILLB	;AND DUMP IF OVERFLOW
	SETZM OCNT	;THIS IS A NEW LINE GOING IN
	MOVE T1,LIBUF2	;MOVE LINE NUMBER OVER
	MOVEM T1,LIBUF
	SETZM LIBUF+1
	MOVE T1,[XWD LIBUF+1,LIBUF+2]
	BLT T1,LIBUF+MXWPL+1	;ZERO OUT REST
	POP P,T2	;RESTORE POINTER TO REST OF LINE
	MOVE ALTP,[POINT 7,LIBUF+1]	;DEST POINTER
	ADD T2,[XWD 70000,LIBUF2-LIBUF]	;ADJUST INPUT POINTER
	TLZ T2,17		;CLEAR CARRY
	MOVEI C,11	;AND SET UP THE TAB
MOVNEW:	IDPB C,ALTP
	CAIN C,12
	JRST DONNEW	;FINISHED MOVING REST OF LINE
	ILDB C,T2	;PICK UP ONE
	JRST MOVNEW
DONNEW:	SUBI ALTP,LIBUF			;GET COUNT
	MOVEI ALTP,1(ALTP)	;USED TO BE - MOVEI AC,1-LIBUF(AC)
	MOVEM ALTP,NCNT
	PUSH P,ALTP	;AND SAVE
	PUSHJ P,INSED	;INSERT
	MOVE ALTP,[POINT 7,LIBUF+1,13]	;SET UP FOR ALTER
	SETZM ALTCNT
	POP P,OCNT	;SET FOR OLD COUNT
	MOVE T1,LIBUF
	TRNN	FL2,NONUMF	;SKIP IF NOT PRINTING
	PUSHJ P,OUTSN
	SETOM ALTFLG	;WE HAVE INSERTED AND ALTALT SHOULD CALL FILLB
	JRST ALTIN1	;AND CONTINUE INSERTING

ALTIBS:	MOVEI T2,0	;SET COUNT TO 0
	MOVEM ALTP,SVALTP	;SAVE POINTER
	PUSHJ P,ALTBS	;DO A BACKSPACE
	EXCH ALTP,SVALTP	;GET BACK AND SAVE CURRENT
	PUSHJ P,ALTDL3	;DELETE THAT CHR
	JRST ALTIN1	;GET MORE
ALTDL:	TLNE FL,NEGF		;BACKWARDS?
	JRST ALTBDL		;YES:
	MOVEM ALTP,SVALTP	;SAVE CURRENT POINTER POSITHON
ALTDL1:	LDB C,ALTP	;GET CURRENT CHR
	CAIN C,15	;AT END OF LINE?
	JRST ALTDL5	;YES, GO FINISH OFF
	TRNN	FL,EXTOG	;PRINT ONLY IF NON-EXPERT
	PUSHJ P,ALTDPN	;YES: PRINT CHAR
	IBP ALTP	;ADVANCE POINTER
	SOJG T2,ALTDL1	;CHECK COUNT AND CONTINUE
ALTDL5:	PUSHJ	P,FORCE		;FORCE OUTPUT
ALTDL3:	MOVE T3,SVALTP	;GET BACK POINTER
ALTDL4:	LDB C,ALTP	;MOVE LINE DOWN
	DPB C,T3
	JUMPE C,ALTDL2	;DONE?
	IBP ALTP	;ADVANCE POINTERS
	IBP T3
	JRST ALTDL4
ALTDL2:	MOVE ALTP,SVALTP	;RESTORE POINTER AGAIN
	POPJ P,		;AND LEAVE


APRINT:	PUSH P,ALTCNT	;SAVE CURRENT COUNT
	PUSHJ P,ALTLN	;PRINT REST OF LINE AND START OVER
	POP P,T2	;GET BACK COUNT
	CAILE T2,0	;AND SPACE IF NOT 0
	JRST ALTSP
	POPJ P,

ALTDPN:	PUSH P,C
	MOVEI C,"\"
	TRNN FL2,RUBF2
	PUSHJ P,OCHR
	TRZE FL2,RUBF
	PUSHJ P,OCHR
	TRON FL2,RUBF2
	PUSHJ P,OCHR
	POP P,C
	JRST OCHR
ALTSR:	OFFRUB
	PUSHJ P,GNCH1	;GET THE CHARACTER TO SEARCH FOR
ALTSR1:	PUSH P,T2	;SAVE NUMBER OF TIMES TO SEARCH
	PUSHJ P,ALTCS	;CALL COMMON SEARCH ROUTINE
	PUSH P,C	;SAVE THE CHARACTER
	PUSHJ P,ALTSP	;GO SPACE CORRECT NUMBER
	POP P,C		;RESTORE CHR
	POP P,T2	;AND COUNT
	SOJG T2,ALTSR1	;CONTINUE
	POPJ P,

ALTCS:	MOVEI T2,1	;CREATE A REPEAT COUNT
	TLNE FL,NEGF	;BACKWARDS?
	JRST ALTBCS	;YES: SEARCH BACKWARDS
	LDB T3,ALTP	;CHEC TO SEE IF AT END OF LINE
	CAIN T3,15
	POPJ P,
	MOVE T1,ALTP	;GET A COPY OF THE POINTER
ALTCS1:	ILDB T3,T1	;GET A CHARACTER
	CAIE T3,15	;DONE IF END OF LINE
	CAMN T3,C	;OR A MATCH
	POPJ P,
	AOJA T2,ALTCS1	;ELSE KEEP COUNT AND KEEP LOOKING

ALTKL:	PUSHJ P,GNCH1	;ALMOST LINE ALTSR
	CAIE	C,12		;CHECK FOR K<LF>
	JRST	ALTKL1		;NO - REGULAR CASE THEN
	MOVEI	T2,MXWPL*5+100	;YES - DO SOME DELETING
	JRST	ALTDL		;...

ALTKL1:	PUSH P,T2
	PUSHJ P,ALTCS
	CAIE T3,0	;OFF FRONT END - SKIP
	CAIN T3,15	;BUT GIVE UP IF CHR NOT FOUND
	JRST T2POPJ
	PUSH P,C
	PUSHJ P,ALTDL	;DELETE THAT NUMBER
	POP P,C
	POP P,T2
	SOJG T2,ALTKL1
	POPJ P,
T2POPJ:	POP P,T2	;NEED TO CLEAR STACK
	POPJ P,
ALTALT:	OFFRUB
	SKIPN ALTFLG	;SHOULD WE DO A FILLB?
	JRST ALTAL1
	PUSHJ P,FINDN
	PUSHJ P,FILLB	;YES, WE HAVE INSERTED SOMETHING
ALTAL1:
	CALL	DOECHO		;DUMPLEXING BACK ON
T1POPJ:	POP	P,T1		;RESTORE T1
	RET			;  AND RETURN


ALTFNZ:
	PUSHJ P,GNCH1
ALTFN:
	MOVEI T2,MXWPL*5+100	;FINISH UP LINE
	PUSHJ P,ALTSP	;BY PRINTING A LARGE NUMBER OF SPCAES
ALTFNX:
	OCRLF
	CALL	DOECHO		;GET OUT OF NON-DUPLEX MODE
ALTFN1:	ILDB C,ALTP	;LOOK ONE CHR OVER
	CAIE C,12	;THIS SHOULD BE THE LINE FEED
	NERROR ILFMT	;SOMETHING IS WRONG
	MOVEI C,0	;ZERO REMAINDER OF LINE
ALTFN2:	TLNN ALTP,760000	;ALL DONE?
	JRST ALTFN3	;YES
	IDPB C,ALTP	;NO, PUT IN ANOTHER 0
	JRST ALTFN2
ALTFN3:	SUBI ALTP,LIBUF-1	;GET SIZE OF NEW LINE
	HRRZM ALTP,NCNT	;AND SAVE FOR INSED
	AOS -1(P)	;SET FOR SKIP RETURN
	JRST T1POPJ	;RETURN TO CALLER OF ALTLIN


ALTCU:	OFFRUB
	OUTSTR [ASCIZ /^U
/]
	JRST SETALT	;GO RESTART LINE AND FORGET EDIT SO FAR

ALTRP:	PUSHJ P,ALTDL	;REPLACE IS DELETE THEN INSERT
	TLZ	FL,NEGF
	MOVEI T2,0
	JRST ALTIN


ALTCN:	OFFRUB
	TRO FL2,ALTDUP	;TURN ON DUPLEXING
ALTCN2:	LDB C,ALTP	;AT END OF LINE?
	CAIN C,15
	POPJ P,		;YES, STOP
ALTCN1:	PUSHJ P,GNCH1	;GET A CHARACTER
	CAIE C,177	;DO NOT LET HIM INSERT A RUBOUT
	CAIN C,15	;IGNORE CRET
	JRST ALTCN1
	CAIE C,200	;STOP ON ALTMODE AND LINE FEED
	CAIN C,12
	POPJ P,
	DPB C,ALTP	;REPLACE IT
	IBP ALTP	;ADVANCE POINTER
	AOS ALTCNT	;AND COUNT
	SOJG T2,ALTCN2	;CONTINUE
	POPJ P,



ALTEX:	OFFRUB
ALTEX1:	LDB C,ALTP
	CAIN C,15
	JRST ALTFNX
	IBP ALTP
	AOS ALTCNT
	JRST ALTEX1
AJOIN:	OFFRUB
	PUSHJ P,FINDN	;GO SEE IF NEXT LINE IS REALLY THERE
	CAME T1,PGMK
	SKIPN T1
	JRST ILCER	;MAKE IT ILLEGAL IF NO LINE THERE
	MOVEM T1,LIBUF2	;SAVE ITS NUMBER
	SETZM LIBUF2+1
	MOVE T1,[XWD LIBUF2+1,LIBUF2+2]
	BLT T1,LIBUF2+MXWPL+1	;CLEAR OUT REST OF BUFFER
	PUSH P,ALTP	;SAVE POINTER TO THIS LINE
	ADD ALTP,[XWD 70000,0]	;BACK IT UP
	MOVE T2,[POINT 7,LIBUF2+1]
	MOVEI C,11
	MOVEI T1,6	;COUNT THE CHARACTERS
MOVLIN:	IDPB C,T2
	ILDB C,ALTP
	CAIE C,15	;END OF LINE?
	AOJA T1,MOVLIN	;KEEP COUNT
	MOVEI ALTP,1(PNTR)	;GET POINTER TO SECOND LINE
	HRLI ALTP,(<POINT 7,0,6>)
ATRN1:	ILDB C,ALTP
	IDPB C,T2
	ADDI T1,1
	CAIL T1,MXWPL*5+6	;CHECK SIZE
	JRST LTLER
	CAIE C,12
	JRST ATRN1	;NOT DONE YET
	EXCH T2,(P)	;SAVE OUTPUT POINTER AND GET OLD ALTP BACK
	SUBI ALTP,-1(PNTR)	;GET OLD COUNT OF SECOND LINE
	PUSH P,ALTP	;AND SAVE IT
	MOVEI C,15	;FINISH CURRENT LINE
	DPB C,T2
	MOVEI C,12
	IDPB C,T2
	MOVEI C,0
INSC2:	TLNN T2,760000
	JRST INSC3	;FILL WITH NULLS
	IDPB C,T2
	JRST INSC2
INSC3:	SUBI T2,LIBUF-1	;GET COUNT
	HRRZM T2,NCNT
	PUSHJ P,FINDB	;BACK UP TO POINT TO IT
	PUSHJ P,INSED
	PUSHJ P,FINDN
	PUSHJ P,FILLB
	POP P,OCNT	;OLD CONT
	HRRZS OCNT
	POP P,ALTP	;GET OUTPUT POINTER BACK
	SUBI ALTP,LIBUF2-1
	HRRZM ALTP,NCNT
	MOVE T1,[XWD LIBUF2,LIBUF]
	BLT T1,LIBUF+MXWPL+1
	PUSHJ P,INSED
	SETOM ALTFLG	;MARK AS NEED TO DO FILLB
	MOVE T1,NCNT	;GET THE COUNT JUST USED
	MOVEM T1,OCNT	;AND SET AS THE OLD COUNT
	MOVE ALTP,[POINT 7,LIBUF+1,13]	;SET UP
	SETZM ALTCNT
	OCRLF
	MOVE T1,LIBUF
	MOVEM T1,CLN	;SET UP CURRENT LINE
	TRNE	FL2,NONUMF	;SKIP IF NORMAL
	POPJ	P,
	JRST OUTSN	;AND PRINT NUMBER

LTLER:	RERROR LTL
	POP P,ALTP	;RESTORE ALTP
	SKIPA
ILCER:	RERROR NNN
	PUSHJ P,FINDB	;MOVE BACK TO RIGHT PLACE
ERCOR:	PUSH P,ALTCNT	;SAVE COUNT
	SETZM ALTCNT
	MOVE ALTP,[POINT 7,LIBUF+1,13]	;SET BACK TO START
	PUSHJ P,ALTCBS	;PRINT LINE NUMBER
	POP P,T2	;COUNT
	JUMPN T2,ALTSP	;AND SPACE OVER
	POPJ P,		;NO SPACES TO DO
ALTWD:	OFFRUB
ALTWD1:	PUSH P,T2	;SAVE COUNT IF ANY
	PUSHJ P,ALTWS	;SKIP OVER WORD
	ANDI T2,-1	;CLR FLAG IN CASE
	PUSHJ P,ALTSP	;SPACE CORRECTLY
	POP P,T2	;RESTORE COUNT
	SOJG T2,ALTWD1	;CONTINUE

;ROUTINE TO SKIP OVER NEXT WORD

ALTWS:	HRROI T2,0	;SET FLG AND COUNT
	MOVE T1,ALTP	;GET POINTER
	LDB T3,T1	;AND FIRST CHAR
	JRST .+2	;CHECK FOR CR & GO
ALTWS1:	ILDB T3,T1	;GET A CHARACTER
	CAIN T3,15	;DONE IF END OF LINE
ALTWS2:	POPJ P,
	MOVE T3,CTBL(T3);FETCH CHARATER TABLE ENTRY
	JUMPE T3,ALTWS4	;SKIP BLANKS ETC...
	ANDI T2,-1	;CLR FLAG
	JUMPG T3,ALTWS3	;SKIP LETTERS & NUMBERS
	TRNN FL2,QSEPF	;SEPARATORS
	TRNN T3,NSEPF	;TODAY
	POPJ P,		;REAL BREAK - QUIT!
ALTWS3:	AOJA T2,ALTWS1	;KEEP COUNT AND CONTINUE
ALTWS4:	JUMPL T2,ALTWS3	;FIRST BLNKS
	AOS T2
ALTWS5:	ILDB T3,T1
	CAIE T3,15	;QUIT ON CR
	SKIPE CTBL(T3)	;OR FIRST NON-BLANK
	POPJ P,
	AOJA T2,ALTWS5

ALTWX:	PUSHJ P,ALTWS	;SKIP WORD
	ANDI T2,-1	;CLR FLAG
	PUSHJ P,ALTDL	;DELETE CHARS
	MOVEI T2,0
	JRST ALTIN	;DO INSERT
ALTBS:	PUSHJ P,ALTBAK	;GET PREVIOUS CHAR
	JUMPE T3,ALTCBS	;JUMP IF DONE
	ONRUB
	MOVE C,T3
	PUSHJ P,OCHR
	SOS ALTCNT	;DECREASE COUNT
	SOJG T2,ALTBS	;MORE,MORE
	PUSHJ	P,FORCE
	POPJ P,

ALTCBS:	PUSHJ	P,FORCE		;FINISH BUFFER
	OFFRUB		;NO MORE RUB
	OCRLF
	TRNE	FL2,NONUMF	;MORE NONUMBER STUFF
	POPJ	P,
	MOVE T1,LIBUF	;ALSO PRINT SEQ NUM
	JRST OUTSN


ALTLN:	MOVEI T2,1000	;FINISH PRINTING THE LINE
	PUSHJ P,ALTSP
ALTLN1:	MOVE ALTP,[POINT 7,LIBUF+1,13]	;POINTER TO START
	SETZM ALTCNT	;RESET COUNT
	JRST ALTCBS	;AND PRETEND A BACKSPACE
;COMMON ROUTINES TO MAKE LINE BACKUP

ALTBAK:	CAMN	ALTP,[POINT 7,LIBUF+1,13]
	JRST	ALTRTZ		;RETURN ZERO IF AT BEGINNING
	ADD	ALTP,[POINT 0,0,28]
	TLNE	ALTP,(<1B0>)	;CHECK WORD OVERFLOW
	SUB	ALTP,[POINT 0,1,0]
	LDB	T3,ALTP		;GET CHAR
	POPJ	P,

ALTRTZ:	MOVEI	T3,0		;RETURN 0
	POPJ	P,

ALTBCS:	PUSH	P,ALTP		;SAVE PNTR
ALTBC1:	PUSHJ	P,ALTBAK	;PREV CHAR
	JUMPE	T3,APOPJ	;END OF LINE
	CAMN	T3,C		;MATCH?
	JRST	APOPJ		;YES: RETURN
	AOJA	T2,ALTBC1	;NO: COUNT AND CONTINUE

APOPJ:	POP	P,ALTP		;RESTORE PNTR
	POPJ	P,		;RETURN

ALTBDL:	MOVEM	ALTP,SVALTP	;SAVE PNTR
ALTBD1:	PUSHJ	P,ALTBAK	;BACK A CHAR
	JUMPE	T3,ALTBD2	;DONE IF NO MORE
	MOVE	C,T3		;FOR PRINTING
	TRNN	FL,EXTOG	;PRINT IF NON-EXPERT
	PUSHJ	P,ALTDPN
	SOS	ALTCNT		;(198) DECREMENT COUNTER FOR ^R
	SOJG	T2,ALTBD1
ALTBD2:	PUSHJ	P,FORCE		;FORCE PRINTING
	PUSH	P,ALTP		;SAVE NEW PNTR
	MOVE	T3,SVALTP	;GET SET TO MOVE LINE
ALTBD3:	LDB	C,T3
	DPB	C,ALTP		;MOVE CHAR
	JUMPE	C,APOPJ		;DONE IF ZERO
	IBP	T3		;ADVANCE PNTRS
	IBP	ALTP
	JRST	ALTBD3

SUBTTL THE / COMMAND
SET:	PUSHJ	P,SCAN		;GET THE THING TO SET TO
	CAIN	C,"?"		;IF ITS ?, GIVE LIST
	JRST	GVSTSW		;OF SETTABLE SWITCHES
	TRNN	FL,IDF		;MUST BE AN IDENT
	NERROR	ILC
	PUSHJ	P,DOSET		;CALL SUBROUTINE TO DO SET COMMAND
	NERROR	ILC		;ERROR RETURN
	JRST	COMND		;OK RETURN

DOSET:	PUSHJ	P,XCODE		;FETCH DISPATCH ARG
	TLZ	T1,477777	;CLEAR GIVE ADDRS
	PUSH	P,T1		;SAVE DISPATCH
	TLNN	FL2,INPARS	;SKIP TERM CHECK IF PARSE
	PUSHJ	P,SCAN		;AND CHECK FOR TERMINATOR
	CAIE	C,":"		;COLON OK ALSO
	CAIN	C,200		;IS IT AN ESC?
	JRST	SETVAR		;YES: SET SOMETHING
	POP	P,T1		;GET DISPATCH ADDR
	TLNN	T1,(1B1)	;BETTER NOT REQUIRE ARG
	PUSHJ	P,CKTERM	;CHECK LEGAL TERM
	POPJ	P,
	HRRZ	T1,T1
	JUMPE	T1,CPOPJ
	PUSHJ	P,0(T1)		;DO ROUTINE
	JRST	CPOPJ1		;GIVE OK RETURN

SETM33:	TRZA	FL,M37F		;MODEL 33
SETM37:	TRO	FL,M37F
	POPJ	P,

CLRSEQ:	TDZA	T1,T1
SETSEQ:	MOVNI	T1,1
	MOVEM	T1,UNSEQF
	POPJ	P,

;**;[250]  Change 1 line at SETRED:			DML	10-JUN-83
SETRED:	TLNN	FL2,INPARS!INOPTF  ;[250] ILLEGAL IF NOT INITIAL OR OPTION FILE
	NERROR	ILC
	TRO	FL,READOF
	POPJ	P,

SETDPY:	POPJ	P,		;NO-OP NOW

QON:	TLZA	FL,QMODF
QOFF:	TLO	FL,QMODF
	POPJ	P,

SETDCD:	TLOA	FL2,PDECID
CLRDCD:	TLZ	FL2,PDECID
	POPJ	P,

SETOLD:	MOVEI	T1,1
	JRST	STOBAK
CLRBAK:	TDZA	T1,T1
SETBAK:	MOVNI	T1,1
STOBAK:	MOVEM	T1,BAKF
	POPJ	P,

QSON:	TROA	FL2,QSEPF
QSOFF:	TRZ	FL2,QSEPF
	POPJ	P,

SETNOV:	TRZA	FL,EXTOG
SETEXP:	TRO	FL,EXTOG
	POPJ	P,

SETUPP:	TDZA	T1,T1
SETLOW:	MOVEI	T1,40
	MOVEM	T1,CASEBT
	POPJ	P,

SETNUM:	TRZA	FL2,NONUMF
CLRNUM:	TRO	FL2,NONUMF
	POPJ	P,
SETVAR:	TLNN	FL2,INPARS
	JRST	SETV0		;SKIP OVER EXTRA IF NOT PARSE
	TRZ	FL,F.LAHD	;CLEAR LOOK-AHEAD
	SETZM	SAVCHR		;...
	SETZM	SAVC		;...
SETV0:	MOVE	T3,0(P)		;GET WHAT TO DO
	TLNN	T3,(1B1)	;NEED ARG
	JRST	SETV2		;NO: ERROR
	TLNN	T3,(1B2)	;NEED NUMERIC ARG?
	JRST	SETV1		;NO: JUST DISPATCH
	PUSHJ	P,SCAN		;GO GET NUMBER
	TRNN	FL,NUMF		;IS IT?
	JRST	SETV2		;NOPE - LOSE
	TLNE	FL2,INPARS
	JRST	SETV1		;SKIP TERM CHECK IN PARSE
	PUSH	P,T2		;SAVE IT
	PUSH	P,T1		;IN BINARY AND ASCII
	PUSHJ	P,SCAN		;CHECK FOR TERMINATOR
	POP	P,T1	;GET BACK ASCID
	POP	P,T2	;BINARY
	PUSHJ	P,CKTERM	;WHICH HAD BETTER BE THERE
	JRST	SETV2
SETV1:	POP	P,T3		;GET DISPATCH
	HRRZ	T3,T3
	JUMPE	T3,CPOPJ
	PUSHJ	P,0(T3)		;DISPATCH
	JRST	CPOPJ1		;AND RETURN TO CMD LOOP

SETV2:	POP	P,0(P)		;PRUNE PDL
	POPJ	P,		;AND GIVE ERROR RETURN

SETPLN:	MOVEM	T2,PLINES	;PLINES FOR P
	POPJ	P,

SETINC:	MOVEM	T1,INCR		;PERM INCREMENT
	MOVEM	T1,TECINC	;SETUP OTHER INCR
	POPJ	P,

SETSAV:	MOVEM	T2,SSAVEN	;STORE IN RESET PLACE TOO
	MOVEM	T2,SAVEN
	POPJ	P,

SETISV:	MOVEM	T2,SISAVN
	MOVEM	T2,ISAVEN
	POPJ	P,
IFN PPNTSW,<
SETLEN:	MOVEM	T2,PAGESZ
	POPJ	P,
>
;ROUTINES TO INPUT PASSWORDS

IFN CRYPSW,<

SETPAS:	TLNN FL2,INPARS		;MUST BE IN PARSE
	NERROR ILC
	CALL NOECHO		;TURN OFF ECHO
	SETZM ORGCOD		;INIT TO NULL
	SETZM NEWCOD		; CODES
	HRROI T3,[ASCIZ "INPUT PASSWORD: "]
	CALL GETPAS		;GET A PASSWORD
	 JRST [	OUTCHR ["-"]
		JRST SETPS1]	;ESC TYPED - NO PASSWORDS
	MOVEM T1,ORGCOD		;SAVE ORG SEED
	HRROI T3,[ASCIZ "OUTPUT PASSWORD: "]
	CALL GETPAS
	 JRST [	OUTSTR [ASCIZ "(SAME AS INPUT)"]
		MOVE T1,ORGCOD	;SAME AS INPUT IF ESC TYPED
		JRST .+1]
	MOVEM T1,NEWCOD		;SAVE NEW SEED
SETPS1:	OCRLF			;OUTPUT CRLF
	JRST DOECHO		;RESTORE ECHO

GETPAS:	PUSH P,T3		;SAVE MSG
GETPS1:	MOVE T3,0(P)		;GET MESSAGE TO PRINT
	OCRLF			;OUTPUT CR
	OUTSTR (T3)		;PRINT PROMPT
	HRROI T1,CODBUF		;POINT TO CODE BUFFER
	MOVE T2,[RD%BRK!RD%BEL+^D39]
	RDTTY
	 FJERR
	TLNN T2,(RD%BTM)	;VALID BREAK?
	JRST GETPS1
	POP P,T3		;RESTORE T3
	LDB T1,[POINT 7,CODBUF,6]
	CAIN T1,33		;SEE IF FIRST CHAR IS ESCAPE
	RET			;YES - RETURN NOW
	HRROI T1,CODBUF		;POINT TO STRING
	CALL CRASZ.##		;GET A SEED INTO T1
	JRST CPOPJ1
>
SETNAM:	MOVEI	ALTP,NEWBLK
	MOVSI	T1,(GJ%FOU!GJ%MSG!GJ%CFM);OUTPUT FILE
;**;[247]	Insert 1 line after SETNAM:+1		DML	23-NOV-82
	TLO	FL2,EXCPFL	;[247] SET FLAG AS IF ITS A COPY
	CALL	READNM		;GET FILE SPEC
	  JRST	CKIND		;ERROR - MSG PRINTED
;**;[247]	Change 1 line at SETNAM:+4		DML	23-NOV-82
	  JRST	CTLUAB		;[247] ^U RETURN
	CALL	CKTERM		;GRNTEE EOL
	  NERROR ILC		;SORRY FOLKS
	TRO	FL,NEWFL	;NEW FILE NAME SEEN
	PJRST	RLSRET		;RELEASE AND RETURN

SETRUN:	MOVEI	ALTP,RUNBLK	;DATA FOR NEW RUN SPEC
	MOVSI	T1,(GJ%OLD!GJ%CFM) ;EXISTING FILE
	HRROI	T2,[ASCIZ "EXE"] ;DEFAULT EXTN
;**;[247]	Insert 1 line after SETRUN:+2		DML	23-NOV-82
	TLO	FL2,EXCPFL	;[247] SET FLAG AS IF ITS A COPY
	CALL	READNE		;GET SPEC
	  JRST	[TLNN	FL2,INPARS!INOPTF	;ERROR, FROM TTY INPUT?
		 JRST	CKIND		;YES
		 POPJ	P,]		;NO, JUST RETURN
;**;[247]	Change 1 line at SETRUN:+7		DML	23-NOV-82
	  JRST	CTLUAB		;[247] ^U TYPED
	TLNE	FL2,INOPTF	;IN OPTION FILE?
	  JRST	[MOVE	T1,OPTJFN	;YES, GET JFN
		 BKJFN			;BACK UP TO PREVIOUS CHAR
		 JFCL			;LOSE
		 PUSHJ	P,GNCH		;READ IT
		 TLNE	CS,TERM_16	;END OF LINE?
		 IORI	FL,TERMF	;YES, REMEMBER THAT
		 JRST	.+1]		;BACK TO MAIN CODE
	CALL	CKTERM		;GRNTEE EOL
	 NERROR	ILC
RLSRET:	MOVE	T1,JFN(ALTP)	;JFN
	RLJFN			;RELEASE  IT NOW
	  JFCL
	RET			;EXIT

;ROUTINE TO CHECK PROPER TERMINATION

CKTERM:	TLNE	FL2,INOPTF	;CHECK IF OPTION FILE
	JRST	CKTRM1
	TLNE	FL2,INPARS	;SEE IF CMD STRING
	JRST	CPOPJ1		;ALWAYS SAY PROPER TERM - PARSE WILL CHECK
CKTRM0:	TRNE	FL,TERMF	;PROPER LINE TERM?
	AOS	(P)		;YES
	POPJ	P,		;NON-SKIP IF NO

CKTRM1:	CAIE	C,"/"		;ALLOW SPECIAL CHARS
	CAIN	C,","		;IF IN OPTION FILE
	JRST	CPOPJ1
	CAIN	C,"-"		;IF NO SPEC CHRS FOUND
	JRST	CPOPJ1
	JRST	CKTRM0		;ALSO CHECK EOL

;HANDLE OPTION FILES

SETOPT:	PUSHJ	P,SCAN		;GET OPTION REQUESTED
	TRNE	FL,IDF		;CHECK FOR IDENT
	SKIPN	T1,ACCUM	;AND NON-ZERO ATOM
	NERROR	ILC
	MOVEM	T1,OPTION	;SET UP OPTION
	TLNE	FL2,INPARS	;INITIAL
	JRST	OPTSWT		;YES: USE SPECIIAL ROUTINE
	PUSHJ	P,SCAN		;CHECK TERM
	PUSHJ	P,CKTERM
	NERROR	ILC		;LOSE
	PUSHJ	P,DOOPT
	JRST	SETOP1		;NOT FOUND
	JRST	SETOP2		;GROSS ERROR
	POPJ	P,		;OK RETURN

SETOP1:	OUTSTR	[ASCIZ /? Option not found
/]
	POPJ	P,
SETOP2:	OUTSTR	[ASCIZ /? Syntax error in option file
/]
	POPJ	P,

SETSTP:	MOVEM	T1,TECINC	;SET UP INCRS
	MOVEM	T1,INCR
	POPJ	P,

SETFST:	MOVEM	T1,TECFST	;SET UP START
	POPJ	P,

SETNPG:	CAIG	T2,MAXPAG	;CHECK BOUNDS
	CAIGE	T2,MINPAG
	MOVEI	T2,DEFPAG	;USE DEFAULT IF NG
	MOVEM	T2,NPAGS	;SET WINDOW
	RET			;RETURN

SUBTTL = COMMAND
GIVE:	PUSHJ P,SCAN	;FIND OUT WHAT HE WANTS TO KNOW
	CAIN C,"."	;CURRENT LINE/PAGE?
	JRST GVDOT	;YES
	CAIN	C,"?"	;LIST OF PRINTABLE SWITCHES?
	JRST	GVPRSW	;YES
	TRNN FL,IDF	;IF NOT, MUST BE AN IDENT
	NERROR ILC
	PUSHJ P,XCODE	;FETCH ACTUAL SIXBIT ARG
	HLRZ	T1,T1		;GET GIVE ADDRS
	TRZ	T1,3B20		;CLEAR FUNNY BITS
	JUMPE	T1,XERR
	PUSH	P,T1		;SAVE DISPATCH
	PUSHJ P,SCAN	;CHECK FOR TERM
	TRNN FL,TERMF
	NERROR ILC
	POP P,T1	;NOW FIND OUT WHAT HE WANTS
	PUSHJ	P,0(T1)		;GIV INFO
	JRST	COMND		;AND RETURN

GIVBIG:	TRNE FL,BGSN	;HAVE WE SEEN THAT PAGE
	JRST GVBG1	;YES, ALL IS OK
	MOVSI T1,1	;WILL HAVE TO SEARCH FOR IT
	MOVEM T1,DPG
	MOVEI SINDEX,0
	PUSHJ P,FIND
	TRNN FL,BGSN	;SHOULD HAVE SEEN IT NOW
	ERROR ICN	;WE ARE IN TROUBLE
GVBG1:	MOVE T1,BGPG	;GET IT
GIV2:	MOVEI T3,OCHR	;ROUTINE FOR DECIMAL PRINTER TO OUTPUT TO
	PUSHJ P,DECPR	;PRINT DECIMAL
GIV3:	PUSHJ	P,FORCE		;FORCE OUTPUT
GIV1:
	OCRLF
	POPJ	P,

GVCASE:
	MOVE T1,DTYPE		;TERMINAL TYPE CODE
	OUTSTR @TTYPE(T1)
	OUTCHR [" "]
	TLNE FL,QMODF
	OUTSTR [ASCIZ /C64 /]
	TRNE FL2,QSEPF
	OUTSTR [ASCIZ /Separators /]
	MOVEI T1,[ASCIZ /Lower
/]
	SKIPN CASEBT
	MOVEI T1,[ASCIZ /Upper
/]
	;PRINT CURRENT CASE
	OUTSTR @T1
	POPJ	P,
GIVER:	SKIPN	T1,SVERN
	SKIPA	T1,[-1,,[ASCIZ "No previous error."]]
	HRRO	T1,ETBL-1(T1)	;LONG FORM OF MSG
	PSOUT			;DUMP IT
	OCRLF
	RET
IFN PPNTSW,<
GVPG:	MOVE T1,PAGESZ
	JRST GIV2
>
GVPLN:	MOVE	T1,PLINES
	JRST	GIV2

GVSAV:	SKIPGE	T1,SAVEN	;SAVE LEFT
	MOVEI	T1,0
	JRST	GIV2
GVISAV:	SKIPGE	T1,ISAVEN	;ISAVE LEFT
	MOVEI	T1,0
	JRST	GIV2

GIVDCD:	TLNN	FL2,PDECID
	OUTSTR	[ASCIZ "No "]
	OUTSTR	[ASCIZ "auto decide
"]
	POPJ	P,

GIVBAK:	SKIPN	BAKF
	OUTSTR	[ASCIZ "No "]
	OUTSTR	[ASCIZ "backup file will be created
"]
	POPJ	P,

GIVSEQ:	SKIPE	UNSEQF
	OUTSTR	[ASCIZ "No "]
	OUTSTR	[ASCIZ "sequence numbers will be on output file
"]
	POPJ	P,
GVINC:	MOVE T1,INCR	;GET CURRENT INCREMENT
	PUSHJ P,OUTSN	;GO PRINT IT
	JRST GIV1	;AND A CRRET

GVDOT:	PUSHJ	P,SCAN		;SEE IF A TERMINATOR IS THERE
	TRNN	FL,TERMF
	NERROR	ILC		;NO TERMINATOR
	MOVE	T2,CLN		;GET CURRENT LINE
	MOVE	T1,CPGL		;AND CURRENT PAGE
GVDOT1:	MOVEM	T2,LINOUT
	OUTSTR	LINOUT		;PRINT IT
	PUSHJ	P,GIV2		;PRINT PAGE
	JRST	COMND		;AND RETURN

OCTPR:	SKIPA CS,[^O10]
DECPR:	MOVEI CS,^D10
RDXPR:	IDIVI T1,0(CS)
	HRLM T2,(P)
	SKIPE T1
	PUSHJ P,RDXPR
	HLRZ C,(P)
	ADDI C,"0"
	JRST (T3)	;EXCEPT HAS ARBITRARY OUTPUT ROUTINE

GVSTR:	MOVEI T1,SRPNT	;GET THE POINTER TO POINTER BLOCK
	HRLI T1,-SRNUM	;SET COUNT
	OUTSTR [ASCIZ /	Find:
/]
	PUSHJ P,GVSTR3
	MOVEI T1,R2PNT
	HRLI T1,-SRNUM
	OUTSTR [ASCIZ /	Substitute:
/]
	PUSHJ P,GVSTR3
	MOVEI T1,R1PNT
	HRLI T1,-SRNUM
	OUTSTR [ASCIZ /	For:
/]
	PUSHJ P,GVSTR3
IFN EXTEND,<
	OUTSTR [ASCIZ /	Line-contents:
/]
	MOVEI T4,0
	MOVEI T5,LSNUM
	MOVEI T3,OCHR
GVST1:	MOVEI T1,1(T4)
	PUSHJ P,DECPR
	MOVEI C,":"
	PUSHJ P,OCHR
	PUSHJ	P,FORCE
	OCRLF
	MOVEI T1,-1(T5)
	IMULI T1,SRNUM
	ADDI T1,LSPNT
	HRLI T1,-SRNUM
	PUSHJ P,GVSTR3
	ADDI T4,1
	SOJG T5,GVST1
>
	POPJ	P,

GIVFST:	MOVE	T1,TECFST	;GET CURRENT START
	PUSHJ	P,OUTSN		;PRINT IT
	JRST	GIV1		;CRLF AND RETURN

GIVSTP:	MOVE	T1,TECINC	;GET INPUT INCR
	PUSHJ	P,OUTSN		;PRINT
	JRST	GIV1		;AND RETURN

GIVLOC:	MOVE	T2,BUFP		;GIVE HIM FIRST LOC IN BUFFER
	SKIPN	T2,0(T2)	;IF ANYTHING THERE
	MOVE	T2,[ASCII /00000/]
	MOVE	T1,OPG		;OUTPUT PAGE -1
	AOJA	T1,GVDOT1

GIVNPG:	SKIPGE	T1,NPAGS	;GET SIZE
	MOVEI	T1,DEFPAG	;DEFAULT IF NONE
	JRST	GIV2		;DECIMAL # AND EXIT
GVSTR3:	SKIPN T2,(T1)	;IS THERE ONE THERE?
	POPJ P,		;NO, DONE
GVSTR2:	ILDB C,T2	;NEXT CHR
	JUMPE C,GVSTR1	;DONE
	PUSHJ P,OCHR	;PRINT IT
	JRST GVSTR2	;AND CONTINUE
GVSTR1:	PUSHJ	P,FORCE		;CLEAR OUTPUT DEVICE
	OCRLF
	AOBJN T1,GVSTR3	;IF THERE IS ONE
	POPJ P,

GVNAM:	MOVEI	T4,ORGBLK
	SKIPE	NEWFIL		;NEW NAME GIVEN?
	MOVEI	T4,NEWBLK	;YES - USE IT
GVNM1:	OUTSTR	ASZ(T4)		;DUMP STRING
	JRST	GIV1

GVRUN:	SKIPN	RUNFIL		;NEW NAME GIVEN?
	JRST	GVRUN1		;NO - JUST TELL HIM OLD INFO
	MOVEI	T4,RUNBLK	;YES - USE NEW INFO
	JRST	GVNM1		;PRINT & RETURN

GVRUN1:	OUTSTR	[ASCIZ "Last LOAD class command"]
	JRST	GIV1

; Give location of next insert

GVPLAC:	MOVE	T1,CURINS	;GET LINE NUMBER WHERE I STARTS
	MOVEM	T1,LINOUT	;PUT IN LINE NO. OUTPUT LOC.
	OUTSTR	LINOUT		;OUTPUT LINE NUMBER AND SLASH
	MOVE	T1,IPG		;GET CORRESPONDING PAGE NUMBER
	JRST	GIV2		;OUTPUT NUMBER AND FORCE OUTPUT

; Give the names of all the switches

GVPRSW:	SETZ	T5,		;We are giving print switches
	SKIPA
GVSTSW:	SETO	T5,		;We are giving settable switches
	PUSHJ	P,SCAN	;See if a terminator is there
	TRNN	FL,TERMF
	NERROR	ILC		;If not, it's illegal
	MOVEI	T1,NAMASC	;Get beginning of name table
	MOVEI	T2,NAMLEN	;Get its negative length
	MOVEI	T3,NAMDSP	;Get loc of dispatch table
GVSW:	JUMPE	T5,GVSW1	;If giving print switches, jump
	HRRZ	T4,(T3)		;Retrieve set bits
	SKIPA
GVSW1:	HLRZ	T4,(T3)		;Retrieve print bits
	PUSH	P,T5		;Save T5 on stack
	MOVE	T5,(T1)		;Obtain the address of string
	JUMPE	T4,NOSW		;If they are 0, no print
	OUTSTR	(T5)		;Print what's pointed to
	OCRLF			;And a <CR><LF>
NOSW:	AOS	T1		;Increment the pointers
	AOS	T3		;Continue
	POP	P,T5		;Restore T5
	SOJG	T2,GVSW		;Do another switch
	JRST	COMND		;Then finish
COMMENT ! THIS HERE IS THE UNIQUE INITIAL SEGMENT DECODER
   STOLEN FROM THE PDP10 T-S MONITOR (SEE COMCON).
   IT TAKES THE ARGUMENT IN LOC 'ACCUM' AND RETURNS THE
   FULL SIXBIT VALUE IN SAME. !

DECODE:
	MOVE T1,ACCUM		;FETCH ARG
	MOVNI T2,1		;SET MASK ALL ONES
	LSH T2,-6		;CLEAR OUT ONE MORE CHAR
	LSH T1,6		;SHIFT 1 COMMAND CHAR OFF
	JUMPN T1,.-2		;LUP UNTIL ALL GONE
	EXCH T2,ACCUM		;FETCH ARG IN T2 & SAVE MASK
	MOVNI T3,1		;CLEAR FOUND COUNT
LUP:	MOVE T4,@S1		;FETCH TABLE ENTRY
	TDZ T4,ACCUM		;MASK OUT CHARS NOT TYPED
	CAMN T2,@S1		;EXACT MATCH?
	JRST FOUND		;YES: THIS IS IT
	CAME T2,T4		;CLOSE MATCH?
	JRST LNEXT		;NO: KEEP TRYING
	AOJG T3,LNEXT		;FIRST TIME?
	HRRZ T5,S2		;YES: REMBER INDEX

LNEXT:	AOBJN S2,LUP		;NO: KEEP LOOKING
	SKIPN T3		;FIND ONLY ONE?
	MOVE S2,T5		;YES: OK TO USE SAVED VALUE
FOUND:	POPJ P,			;RETURN

XCODE:	PUSH	P,S1		;SAVE SPECIAL ACS
	PUSH	P,S2
	MOVE	S1,[S2,,NAMTAB]
	MOVSI	S2,-NAMLEN
	PUSHJ	P,DECODE
	MOVE	T1,NAMDSP(S2)	;GET DISPATCH ENTRY
	POP	P,S2		;RESTORE SPECIAL ACS
	POP	P,S1
	POPJ	P,
;THIS IS THE FULL NAME TABLE

	DEFINE NAMES <
X	(BAK,SETBAK,GIVBAK,0)
X	(BIG,0,GIVBIG,0)
X	(C128,QON,0,0)
X	(C64,QOFF,0,0)
X	(CASE,0,GVCASE,0)
X	(DECIDE,SETDCD,GIVDCD,0)
X	(DPY,SETDPY,0,0)
X	(ERROR,0,GIVER,0)
X	(EXPERT,SETEXP,0,0)
X	(INCREMENT,SETINC,GVINC,XNUMF)
X	(INSERT,0,GVPLAC,0)
X	(ISAVE,SETISV,GVISAV,XNUMF)
   IFN PPNTSW,<
X	(LENGTH,SETLEN,GVPG,XNUMF)>
X	(LOCATION,0,GIVLOC,0)
X	(LOWER,SETLOW,0,0)
X	(M33,SETM33,0,0)
X	(M37,SETM37,0,0)
X	(NAME,SETNAM,GVNAM,XVARF)
X	(NOBAK,CLRBAK,0,0)
X	(NODECIDE,CLRDCD,0,0)
X	(NONSEPARATORS,QSOFF,0,0)
X	(NONUMBER,CLRNUM,0,0)
X	(NOVICE,SETNOV,0,0)
X	(NUMBER,SETNUM,0,0)
X	(OLD,SETOLD,0,0)
X	(OPTION,SETOPT,0,XVARF)
   IFN CRYPSW,<
X	(PASSWORD,SETPAS,0,0)>
X	(PLINES,SETPLN,GVPLN,XNUMF)
X	(R,SETRED,0,0)
X	(READONLY,SETRED,0,0)
X	(RONLY,SETRED,0,0)
X	(RUN,SETRUN,GVRUN,XVARF)
X	(SAVE,SETSAV,GVSAV,XNUMF)
X	(SEPARATORS,QSON,0,0)
X	(SEQUENCE,CLRSEQ,GIVSEQ,0)
X	(START,SETFST,GIVFST,XNUMF)
X	(STEP,SETSTP,GIVSTP,XNUMF)
X	(STRING,0,GVSTR,0)
X	(UNSEQUENCE,SETSEQ,0,0)
X	(UPPER,SETUPP,0,0)
X	(WINDOW,SETNPG,GIVNPG,XNUMF)
>
	DEFINE	X(A,B,C,D) <
	EXP	<SIXBIT /A/>>

NAMTAB:
	NAMES

NAMLEN==.-NAMTAB

	DEFINE	X(A,B,C,D) <
	D+C,,B
>

XNUMF==3B20		;SET NEEDS NUMERIC ARG
XVARF==1B19		;SET NEEDS ARG

NAMDSP:
	NAMES

	XERR,,XERR

XERR:	NERROR	ILC

	DEFINE	X(A,B,C,D) <
	EXP	<[ASCIZ /A/]>>

NAMASC:
	NAMES
SUBTTL LIST COMMAND
LIST:	TRZ FL2,SUPN	;ASSUME WE ARE GOING TO LIST LINE NUMBERS
	SETZM LOLN	;FOR START OF PAGE
	PUSHJ P,SCAN	;GET SOME INFORMATION
	CAIE C,","	;IS THERE A SWITCH?
	JRST LIST9	;NO
	PUSHJ P,SCAN	;YES, SCAN FOR IT
	MOVS T1,ACCUM
	CAIE T1,(<SIXBIT /S  />)	;IS IT S?
	NERROR ILC	;NO, LOSE
	TRO FL2,SUPN	;YES, SUPPRESS LINE NUMBERS
	PUSHJ P,SCAN	;AND SCAN PAST IT
LIST9:	TRNN FL,TERMF	;JUST A TERMINATOR
	JRST LIST7	;NO, GO LOOK FOR A COMMAND STRING
	MOVEI T1,1	;LIST ENTIRE FILE
	MOVEM T1,LOPG
	MOVSI T1,1	;FROM 1 TO IMPOSSIBLY HIGH
	MOVEM T1,HIPG
	TRZ FL,CNTF	;MAKE SURE THAT THIS FLAG IS OFF
	JRST LIST8	;GO START WORK
LIST7:	PUSHJ P,GET2	;HAVE ALREADY SCANNED, GET 2 NUMBERS
	CAIE C,","	;IS THERE A SWITCH?
	JRST LIST10	;NO
	PUSHJ P,SCAN	;YES, SCAN FOR IT
	MOVS T1,ACCUM
	CAIE T1,(<SIXBIT /S  />)	;IS IT S?
	NERROR ILC	;NO, LOSE
	TRO FL2,SUPN	;YES, SUPPRESS LINE NUMBERS
	PUSHJ P,SCAN	;AND SCAN PAST IT
LIST10:	TRNN FL,TERMF	;END OK?
	NERROR ILC
LIST8:	TRZ FL,LINSN	;NONE SEEN YET
	MOVE	T2,[POINT 7,LIBUF2] ;GRAB A RANDOM BUFFER
	SKIPA	T1,[POINT 7,[ASCIZ "LPT:"]]
	IDPB	T3,T2		;STASH CHAR
	ILDB	T3,T1		;GET CHAR
	JUMPN	T3,.-2		;STORE IF NON-NULL
	SKIPN	T1,NEWFIL	;NEW FILE NAME?
	MOVE	T1,ORGFIL	;NO - USE ORIGINAL
	HRLI	T1,(POINT 7,,)	;MAKE BP
;**;[252]  Add 3 lines before STUFF:+0			DML	24-JUL-84
	ILDB T3,T1		;[252] Get a byte
	CAIE T3,">"		;[252] Past directory delimiter in filespec?
	JRST .-2		;[252] No, continue scan
STUFF:	ILDB	T3,T1		;GET A BYTE
	IDPB	T3,T2		;STUFF IT INTO BUFFER
	CAIE	T3,"."		; UNTIL . IS SEEN
	JRST	STUFF		;
	MOVE	T1,[POINT 7,[ASCIZ "LPT"]] ;EXTN
	ILDB	T3,T1		;GET A BYTE
	IDPB	T3,T2		; AND STUFF INTO LIBUF2
	JUMPN	T3,.-2		;LOOP TILL NULL
	HRROI	T2,LIBUF2	;PTR FOR GTJFN
	MOVSI	T1,(GJ%FOU!GJ%SHT)
	PUSHJ	P,GTJFNX	;GET LPT JFN
	  JERROR		;LOSSAGE
	MOVE	T2,[7B5+OF%WR]	;OPEN FOR WRITE
	OPENF			;...
	  JERROR		;MILD ANNOYANCE
	MOVEM	T1,LPTJFN	;SAVE JFN
	SETOM LOGPG	;LOGICAL PAGE TO 0
	MOVE T1,LOPG	;GET SET TO PRINT
	MOVEM T1,DPG
	MOVE SINDEX,LOLN
	PUSHJ P,FIND	;GO FIND IT
	SETZM LSTCNT	;COUNT OF NUMBER OF LINES PER PAGE
LST2:	PUSHJ P,ONMOV	;CHECK RANGE
	JRST LST6	;FINISH UP
	TRO FL,LINSN	;YEP, WE HAVE SEEN ONE
	CAMN T1,PGMK	;CHECK FOR PAGE MARK AND HANDLE SPECIAL
	JRST LST4
	MOVEM T1,CLN	;THE CURRENT LINE
	MOVEI T2,0	;COUNT OF NUMBER OF CHRS SEEN
	SOSLE	LSTCNT		;CHECK TO SEE IF RUN OUT
	JRST	LST2A		;NO - PROCEED
	MOVEI	C,14		;OUTPUT A FORM-FEED
	PUSHJ	P,POCHR
	PUSHJ	P,HDPRNT	;GO PRINT HEADING
LST2A:	MOVE T1,PNTR	;GET THE POINTER
	TRNN FL2,SUPN	;DO WE WANT TO SUPPRESS LINE NUMBERS?
	JRST LST3A	;NO
	AOS T1		;YES, SKIP A WORD
	HRLI T1,(<POINT 7,0,6>)	;AND A CHARACTER
	ADDI T2,6	;AND TELL PEOPLE WE HAVE DONE SO
	JRST LST3	;BEFORE GOING ON OUR WAY
LST3A:	HRLI T1,(<POINT 7,0>)	;AND SET UP BYTE POINTER
LST3:	ILDB C,T1	;GET CHR
	CAIGE	C,11		;CHECK ALL SPECIAL CASES
	JRST	LST3B
	CAIGE	C,15
	JRST	SPHD
	CAIN	C,15
	JRST	LST5
	CAIE	C,"'"
	CAIGE	C,40
	JRST	LST3B
	CAIGE	C,140
	JRST	LST5
LST3B:	TLNE	FL,QMODF	;CHECK QUOTE MODE
	JRST	LST5
	PUSH	P,C
	MOVEI	C,"'"
	PUSHJ	P,POCHR
	ADDI	T2,1
	POP	P,C
	LDB	C,[POINT 7,CTBL(C),10]
LST5:	PUSHJ	P,POCHR		;PRINT IT
	AOJA	T2,LST3		;COUNT AND CONTINUE
SPHD:	CAIN C,12	;LINE FEED IS END OF LINE
	JRST	[PUSHJ P,POCHR	;PRINT IT
		PUSHJ P,FINDN	;GET NEXT
		JRST LST2]	;AND GO
	CAIN C,11	;COUNT SPECIAL FOR TAB
	JRST	[ADDI T2,10
		ANDCMI T2,7
		PUSHJ P,POCHR
		JRST LST3]
	CAIN C,14
	JRST	[PUSHJ P,POCHR	;FORM FEED GETS A HEADING
		PUSHJ P,HDPRNT
		JRST LST3]
	CAIN C,"\"	;NEEDS DELETE,DELETE
	JRST	[MOVEI C,177
		PUSHJ P,POCHR
		JRST LST5]	;AND AGAIN
	CAIE C,13	;VERT.TAB
	ERROR ICN	;CONFUSED
	PUSHJ P,POCHR
	MOVE T3,LSTCNT
	CAIG T3,<%LPP+2>/3
	JRST	[PUSHJ P,HDPRNT
		JRST LST3]
	CAIG T3,<2*<%LPP+2>>/3
	MOVEI T3,<%LPP+2>/3
	CAIL T3,<2*<%LPP+2>>/3
	MOVEI T3,<2*<%LPP+2>>/3
	MOVEM T3,LSTCNT
	JRST LST3

LST4:	MOVEI C,14	;PRINT A FORM FEED
	PUSHJ P,POCHR
	AOS T1,CPG	;GET PAGE CORRECTLY
	MOVEM T1,CPGL
	SETOM LOGPG	;ZERO LOGICAL PAGE AGAIN
	MOVEI T2,0	;THIS MUST BE ZERO SO GET IT THAT WAY
	PUSHJ P,HDPRNT	;PRINT A HEADER
	AOS LSTCNT	;INCREASE BY 1 TO MAKE IT COME OUT RIGHT
	PUSHJ P,FINDN	;ADVANCE
	JRST LST2	;AND CONTINUE

LST6:	MOVE	T1,LPTJFN	;RELEASE JFN
	CLOSF			;...
	  JERROR		;GRUMP
	SETZM	LPTJFN		;(222)CLEAR JFN STORAGE
	TRZ FL2,SUPN	;TURN THIS OFF SO * PRINTS
	TRNN FL,LINSN	;WERE ANY SEEN?
	NERROR NLN	;NO, ERROR
	MOVE T1,CPG	;SET UP PAGE
	MOVEM T1,CPGL
	JRST COMND	;AND GET MORE COMMANDS
POCHR:	PUSH	P,T1		;SAVE REGS
	PUSH	P,T2
	MOVE	T1,LPTJFN	;JFN FOR LPT
	MOVE	T2,C		;COPY CHAR
	BOUT			;DUMP IT
	JRST	POPRET		;PRUNE AND EXIT

HDPRNT:	PUSH	P,T1		;SAVE REGS
	PUSH	P,T2
	PUSH	P,T3
	MOVEI	T3,0		;INITIAL VALUE
	MOVE	T1,LPTJFN	;SET UP JFN
	TRNE	FL2,SUPN	;IF PRETTY PRINTING
	JRST	HDPR3		;WE DON'T REALLY WANT TO DO THIS
	HRROI	T2,[BYTE (7)15,11,11,11,0]
	SOUT			;DUMP STRING (POSITION)
	MOVE	T2,ORGFIL	;FILE STRING PNTR
	SOUT			;PRINT IT
	MOVEI	T2,11		;SEPARATE WITH A TAB
	BOUT
	MOVNI	T2,1		;POLISH OFF WITH DATE AND TIME
	ODTIM
	HRROI	T2,[ASCIZ "	Page "]
	SOUT			;PAGE HEADING
	MOVE	T2,CPG		;GET CURRENT PAGE
	MOVEI	T3,^D10		;RADIX TO USE
	NOUT			;PRINT
	  FJERR
	AOSG	T2,LOGPG	;SEE IF OK TO PRINT
	JRST	HDPR3
	MOVEI	T2,"-"
	BOUT			;OUTPUT SEPARATOR
	MOVE	T2,LOGPG
	NOUT			;DUMP MINOR PAGE #
	  FJERR
HDPR3:	MOVEI	T3,0		;RESTORE T3
	HRROI	T2,[BYTE (7)15,12,12]
	SOUT			;DUMP RET AND 2 LFDS
	MOVEI	T3,%LPP		;RESET LINE COUNT
	MOVEM	T3,LSTCNT
	MOVE	T3,-1(P)	;GET COPY OF CHAR COUNT
	JUMPE	T3,HDPXIT	;IF 0 THEN ALL OK
	MOVEI	T2," "		;PRINT CORRECT NUMBER OF SPACES
	BOUT
	SOJG	T3,.-1
HDPXIT:	POP	P,T3		;RESTORE REGS
	JRST	POPRET		;  AND EXIT

SUBTTL REPLACE COMMAND
;RE-TYPE (REPLACE) COMMAND

REPLAC:	SETZM	LOLN		;I REALLY SHOULD PUT THIS ELSEWHERE
	SETZM	PGDELS		;INIT PAGE DELETED COUNTER
	SETOM	ISVINC		;DO NOT LET I<CR> USE ISVINC
	TRNE	FL,READOF	;NOT PERMITTED IN READ ONLY
	NERROR	ILC
	PUSHJ	P,GET2S		;WHAT DO WE WANT TO REPLACE?
	TRZ	FL,LINSN	;CLR FOR NOW
	PUSHJ	P,INSINC	;GO GET INCR
	PUSHJ	P,DELSUB	;DELETE SOME STUFF
	SKIPN	T1,LOLN		;WHERE TO START INSERTING
	MOVE	T1,[<ASCII /00100/>!1]
	MOVEM	T1,HILN		;SET UP FOR INSERT CODE
	MOVE	T2,LOPG
	MOVEM	T2,HIPG		;...
	SKIPE	PGDELS		;OK IF NONE DELETED
	SKIPN	T1,(PNTR)	;OR AT EOF
	JRST	REPLC1
	CAME	T1,PGMK		;ALSO END OF PAGE
	CAMLE	T1,FDELLN	;OR REALLY IN ORDER
	JRST	REPLC1
	AOS	CPG		;INSERT PAGE MARK TO PREVENT INSANITY
	AOS	INPG		;ADJUST PAGE COUNTERS
	AOS	BGPG
	MOVE	T1,PGMK		;SET UP PAGE MARK TO INSERT
	MOVEM	T1,LIBUF
	MOVE	T1,PGMKW2
	MOVEM	T1,LIBUF+1
	SETZM	OCNT		;STUFF FOR INSED
	MOVEI	T1,2
	MOVEM	T1,NCNT
	PUSHJ	P,INSED		;PUT IT IN
	PUSHJ	P,FINDN		;CREEP PAST IT
	PUSHJ	P,FILLB		;IN CASE OVERFLOW
	OUTSTR	[ASCIZ /%Page mark inserted to prevent order error
/]
REPLC1:	PUSHJ	P,DOINS		;LET HIM TYPE FOR A WHILE
	JRST	COMND		;RETURN

;SUBROUTINE TO DELETE THE LINE POINTED TO BY PNTR

DODEL:	SETZM	NCNT		;NEW IS 0
	MOVEM	T1,LDELLN
	PUSHJ	P,GETLTH	;OLD LENGTH
	MOVEM	T1,OCNT
	AOS	DELCNT		;COUNT OF LINES DELETED
	SKIPE	FDELLN		;FIRST TIME HERE
	JRST	INSED		;NO: GO INSERT AND RETURN
	MOVE	T1,LDELLN	;YES: SET UP FIRST LINE ETC.
	MOVEM	T1,FDELLN
	MOVE	T1,CPG
	SUB	T1,PGDELS	;(225)IN CASE WE DELETED EMPTY PAGES BEFORE
	MOVEM	T1,FDELPG
	JRST	INSED		;AND GO INSERT

SUBTTL COMMON SEARCH ROUTINES FOR F AND S
COMMENT ! SOME COMMON ROUTINES FOR SEARCHING FILES!

COMMENT ! THIS ROUTINE GENERATES CODE FOR FINDING A MATCH
FOR THE FIRST CHARACTER OF A SEARCH STRING. THE POINTER
TO A SET OF BYTE POINTERS FOR SEARCH STRINGS IS IN T1 !



CODSR:	CALL CHKXCT	;(203) GET EXACT MATCH BIT SET UP
	MOVEI T2,CODEBF	;(203) SET UP POINTER TO PLACETO PUT CODE
	MOVEI ALTP,0	;THE NUMBER OF THE CURRENT STRING
	HRLI T1,-SRNUM	;THE NUMBER OF STRINGS
CODS5:	TLZ FL,NEGF!DEMCHR	;TURN OFF THE  SEEN FLAG
	MOVE T3,(T1)	;GET A POINTER
	JUMPE T3,ENDCOD	;A ZERO BYTE POINTER IS END OF CODE
READCD:	ILDB C,T3	;PICK UP A CHARACTER IN STRING
	JUMPE C,[TLNE FL,DEMCHR	;DID WE REALLY WANT ONE
		NERROR ISS	;YES, LOSE
		SUBI T2,2	;NO, ALWAYS MATCH
		JRST COMXCT]
;**;[249]  Add 2 lines after READCD:+4			DML	9-JUN-83
	TLNE FL,QMODF	;[249] ARE WE IN C128 MODE?
	JRST COMLET	;[249] NO, DO NOT TEST FOR SPECIAL CHARACTERS
	CAIN C,""	;ARBIRARY NUMBER OF SOMETHING
	JRST ARBCD
	CAIN C,24	;ANY CHARACTER
	JRST ANYCD
	CAIN C,""	;NOT THIS ONE
	JRST	[TLC FL,NEGF
		TLO FL,DEMCHR	;WE REALLY JEED IT
		JRST READCD]
	CAIN C,"|"	;SEPERATOR
	JRST SEPCD
	CAIN C,""	;QUOTE THE NEXT CHARACTER
	JRST QUOTE
COMLET:	MOVE CS,CTBL(C)	;GET THE MAJIC BITS
	TLNN FL2,EXACT	;(203) EXACT SEARCH?
	TLNN CS,LETF_16	;OR NOT A LETTER
	JRST NORMCR	;YES JUST THE TEST
	HRLI C,(<CAIE C,>)	;DO A CAIE
	MOVEM C,(T2)
	XOR C,[XWD 4000,40]	;CAIN .XOR. CAIE = 4000,,0
	MOVEM C,1(T2)
	TLNE FL,NEGF	; THAT CHR
	JRST GENSKP	;GENERATE A SKIPA
COMXCT:	MOVE C,[XCT JSPR]	;THE CALL TO SEARCH FURTHER
	DPB ALTP,[POINT 4,C,12]	;AC FIELD GIVES STRING NUMBER
	MOVEM C,2(T2)
	ADDI T2,3	;ADVANCE OUTPUT POINTER
ENDSTR:	ADDI ALTP,1	;NEXT STRING
	AOBJN T1,CODS5	;IF ANY
ENDCOD:	MOVE C,[JRST COMSRT]	;A RETURN
	MOVEM C,(T2)
	POPJ P,
SEPCD:	MOVE C,[SKIPG CS,CTBL(C)]	;GET BITS
	MOVEM C,(T2)
	MOVE C,[TRNE CS,NSEPF]	;CHECK FOR %,$,OR .
	TRNE FL2,QSEPF		;SEPARATORS?
	MOVSI C,(<SKIPA>)	;YES;
	MOVEM C,1(T2)
	TLNE FL,NEGF	;SKIPA IN NORMAL CASE
	JRST COMXCT
GENSKP:	MOVSI C,(<SKIPA>)
	MOVEM C,2(T2)
	AOJA T2,COMXCT	;SO XCT WILL GO IN RIGHT PLACE

QUOTE:	ILDB C,T3	;GET NEXT CHR
	JUMPE C,[NERROR ISS]	;END OF STRING IS ILLEGAL
	JRST COMLET	;TREAT AS NORMAL CHARACTER

NORMCR:	HRLI C,(<CAIN C,>)	;EXACT OR NOT LETTER
	TLNE FL,NEGF
	TLC C,4000		;CAIN .XOR. CAIE = 4000,,0
NORMC1:	MOVEM C,(T2)
	SOJA T2,COMXCT	;MAKE THE XCT GO IN RIGHT PL@CE

ANYCD:	MOVE C,[CAIE C,15]	;SPECIAL FOR EOL
	TLNE FL,NEGF
	TLC C,4000		;CAIN .XOR. CAIE = 4000,,0
	JRST NORMC1

ARBCD:	ILDB C,T3	;GET NEXT
	CAIN C,""	;JUST CHECK VALIDITY
	JRST ARBCD
	CAIN C,""
	ILDB C,T3
	JUMPE C,[NERROR ISS]	;END OF STRING ERROR
	JRST READCD	;LOOK FOR FIRST OTHER CHR

JSPR:	JSP T1,SRCRET	;CALL CONTINUE SEARCH
;READ INTHE STRING TO SEARCH FOR
;T3 HAS PLACE TO PUT POINTERS T1 A BYTE POINTER FOR STRINGS


SSTRNG:	MOVEI T2,SRBLG	;THE PERMISSIBLE LENGTH
	HRLI T3,-SRNUM	;T3 HAS POINTER TO PLACE BYTE POINTERS
SSTR0:	MOVEM T1,SVPT	;SAVE THE POINTER FOR END OF STRING
SSTR1:	PUSHJ P,GNCH	;GET A CHR
	CAIN C,200	;ALTMODE TERMINATES
	JRST SSTEND
	CAIN C,15	;IGNORE RETURNS
	JRST SSTR1
	CAIN C,12	;LINE FEED IS END OF ONE STRING
	JRST SSTR2
	IDPB C,T1	;PUT IN OUTPUT STRING
	SOJG T2,SSTR1
SSTR3:	RERROR STL	;THE STRING WAS TOO LONG
SSTR4:	HRLZ T1,T3	;ZERO OUT FIRST POINTER
	MOVNS T1
	ADDI T1,-SRNUM(T3)	;FIND START
	SETZM (T1)
	JRST COMND
SSTR2:	CAMN T1,SVPT	;NULL STRING?
	JRST	[HLRZ C,T3	;FIRST ONE?
		CAIE C,-SRNUM	;WELL?
		JRST .+1	;NO
		MOVEI C,12	;RETURN A LINE FEED
		POPJ P,]
RETSTR:	MOVEI C,0	;TERMINATE STRING WITH 0
	IDPB C,T1
	SOJLE T2,SSTR3
	MOVE C,SVPT	;SET UP POINTER
	MOVEM C,(T3)
	AOBJN T3,[MOVE C,FSFLG	;GET F/S PROMPT
		  MOVEM C,CRBUF	;TO ^R BUFFER
		  OUTSTR CRBUF	;DUMP PROMPT
		  JRST SSTR0]	;IF ROOM FOR MORE, GET THEM
	RERROR TMS	;TOO MANY GIVEN
	JRST SSTR4
SSTEND:	CAIN T2,SRBLG	;DID WE SEE ANY?
	POPJ P,		;NO, RETURN
	MOVEI C,0	;YES, TERMINATE LAST
	IDPB C,T1
	MOVE T1,SVPT
	MOVEM T1,(T3)	;SET POINTER
SSTR5:	AOBJP T3,CPOPJ1	;ZERO OUT OTHER POINTERS
	SETZM (T3)
	JRST SSTR5
CHKXCT:	TLZ FL2,EXACT	;(203) RESET EXACT MATCH BIT
	TLNN FL,EXCTS1!EXCTSR ;(203) EXACT MATCH WANTED?
	RET		;(203) NO, JUST RETURN
	TLNN FL2,SRCWHO	;(203) WHO CALLED US?
	JRST CHKXC1	;(203) SET MEANS SUBST
	TLNE FL,EXCTSR	;(203) DID SEARCH SET HIS BIT?
	TLO FL2,EXACT	;(203) YES
	RET		;(203) RETURN
CHKXC1:	TLNE FL,EXCTS1	;(203) DID SUBST SET HIS BIT?
	TLO FL2,EXACT	;(203) YES WANT EXACT MATCH
	RET		;(203) RETURN
;THE SEARCH ITSELF


COMSRC:	CALL CHKXCT	;(203) SET UP EXACT MATCH
	MOVEM T2,BUFSAV	;(203) SAVE THE POINTER TO STRINGS
	MOVNI T3,1	;THE COUNT OF HOW FAR INTO LINE WE ARE
	MOVEI ALTP,1(PNTR)	;SET BYTE POINTER
	HRLI ALTP,(<POINT 7,0,6>)
	MOVEI C,15	;START WITH A LINE DELIMITER
	JRST CODEBF	;GO SCAN
COMSRT:	ILDB C,ALTP	;WE RETURN HERE IF NO MATCH FOR THIS ONE
	CAIE C,15	;DONE?
	AOJA T3,CODEBF	;NO, GO ON
	POPJ P,		;YES, NON-MATCH RETUNR

SRCRET:	PUSH P,T1	;SAVE THE RETURN ADDRESS
	PUSH P,ALTP	;AND THE STRING POINTER
	PUSH P,C	;AND THE CHARACTER
	LDB T1,[POINT 4,-1(T1),12]	;GET STRING NUMBER
	ADD T1,BUFSAV	;POINT TO BYTE POINTER
	SKIPN T1,(T1)	;GET IT
	ERROR ICN	;THERE SHOULD BE ONE THERE
	MOVE T2,[POINT 7,ARBBUF]	;SET UP ARBIT MATCH
	MOVEI T4,MXWPL*^D10	;POINTER AND COUNT
	SETZM ARBCNT	;THE NUMBER OF ARBITRARY MATCHES SEEN
	TLZ FL,ARBITG	;OFF AT START
	PUSHJ P,LINMAT	;GO CHECK FOR MATCH
	JRST LOSE	;WE LOSE, CONTINUE SCAN
	MOVEM ALTP,SRCALP	;POINTER TO END OF STRING
	POP P,C	;RESTORE
	POP P,ALTP
	POP P,T1
CPOPJ1:	AOS (P)	;SKIP RETURN
	POPJ P,
LOSE:	POP P,C	;RESTORE
	POP P,ALTP
	POPJ P,	;AND CONTINUE SEARCH
NXTCHR:	CAIN C,12	;WAS THAT LAST OF LINE?
	POPJ P,	;YES, LOSE 
	ILDB C,ALTP	;NO, TRY NEXT
LINMAT:	PUSHJ P,CHRMAT	;CHECK FOR MATCH
	POPJ P,	;NONE, RETURN
	CAIE CS,0	;IS SO ALL DONE
	JRST NXTCHR	;NO, TRY MORE
	JRST CPOPJ1	;SKIP RETURN


CHRMAT:	TLZ FL,NEGF!DEMCHR	;NO  SEEN AND CHR CAN BE 0
READCH:	ILDB CS,T1	;GET NEXT
	JUMPE CS,MATCH	;END OF STRING IS USUALLY GOOD
;**;[249]  Add 2 lines after READCH:+1			DML	9-JUN-83
	TLNE FL,QMODF	;[249] ARE WE IN C128 MODE?
	JRST RDCH1	;[249] NO, SO DO NOT TEST FOR SPECIAL CHARACTERS
	CAIN CS,""	;CHEC FOR NEGATE
	JRST	[TLC FL,NEGF
		TLO FL,DEMCHR	;MUST BE FOLLOWED BY A CHR
		JRST READCH]
	CAIN CS,"|"	;SEPERATOR?
	JRST SEP
	CAIN CS,""	;ARBITRARY NUMBER
	JRST ARBIT
	CAIN CS,24	;ANY?
	JRST ANY
	CAIN CS,""	;QUOTE NEXT?
	JRST	[ILDB CS,T1
		JUMPN CS,.+1	;MUST HAVE ONE THERE
		NERROR ISS]	;ELSE ILLEGAL
;**;[249]  Change 1 line at READCH:+16			DML	9-JUN-83
RDCH1:	CAMN C,CS	;[249] ARE THEY THE SAME
	JRST ISTRU1	;YES, CHECK NEGF
	MOVE T5,CTBL(CS)	;GET BITS
	TLNN FL2,EXACT	;(203) EXACT SEARCH?
	TLNN T5,LETF_16	;OR NOT LET
	JRST ISFALS	;NO MATCH
	XORI CS,40	;CHECK OTHER CASE
	CAMN C,CS
	JRST ISTRU1
	JRST ISFALS	;LOSE
MATCH:	TLNE FL,DEMCHR	;DID WE NEED A CHARACTER THERE?
	NERROR ISS	;YES, ILLEGAL STRING
	JRST CPOPJ1	;OK RETURN

ANY:	CAIE C,15
	JRST ISTRU	;YES THIS IS ANY CHR
ISFALS:	CAIN C,15	;IS IT A RETURN
	AOSA T4	;ADJUST COUNT AND ENTER A NULL STRING
	IDPB C,T2	;SAVE IN ARBIT
	MOVEI T5,0
	IDPB T5,T2
	SUBI T4,2	;COUNT THEM
	JUMPLE T4,ILFMTR	;THIS LINE MUST HAVE ILLEGAL FORMAT
	AOS ARBCNT	;ONE MORE SEEN
ISFAL1:	TLNE FL,NEGF	;WAS NEG FLAG ON?
	AOS (P)	;YES, A MATCH
	POPJ P,

SEP:	MOVE T5,CTBL(C)		;GET TABLE ENT
	JUMPG T5,ISFALS		;NOT A SEP
	TRNN FL2,QSEPF		;CHECK . % $
	TRNN T5,NSEPF		;CHECKING - DO WE HAVE ONE?
	JRST ISTRU		;NO: SEP
	JRST ISFALS		;YES: NOT A SEP
ISTRU:	CAIN C,15
	AOSA T4
	IDPB C,T2	;SAVE CHR
	MOVEI T5,0
	IDPB T5,T2
	SUBI T4,2
	JUMPLE T4,ILFMTR
	AOS ARBCNT
ISTRU1:	TLNN FL,NEGF	;NEGATE?
	AOS (P)	;NO, MATCH
	POPJ P,

ILFMTR:	MOVE T2,CPG	;GIVE HIM AN ERROR MESSAGE AND PAGE
	PUSHJ P,PGPRN	;AND LINE
	MOVE T1,(PNTR)
	PUSHJ P,OUTSN
	NERROR ILFMT
ARBIT:	TLNN FL,NEGF	;THIS HAS NO MEANING
	TLOE FL,ARBITG	;ARE WE SEEING 
	NERROR ISS	;YES, ILLEGAL STRING
	PUSH P,T1	;SAVE SEARCH POINTER
	MOVEI T5,0	;SET ARBITRARY STRING TO NULL
	IDPB T5,T2
	SOJLE T4,ILFMTR
	AOS ARBCNT
	PUSH P,ARBCNT	;SAVE IN CASE WE COME BACK WITH NO MATCH
	PUSH P,T2
	PUSH P,T4
	PUSH P,C
CHKTHS:	TLO FL,DEMCHR	;NEED A CHARACTER NOW
	PUSHJ P,READCH	;CALL SELF RECURSIVELY
	JRST PROCED	;THIS COULD NOT MATCH JUST SCAN ON
	MOVE T2,-3(P)	;RESTORE ARBIT COUNT
	MOVEM T2,ARBCNT
	MOVE T4,-1(P)	;AND ARBIT CHR COUNT
	MOVE T2,-2(P)	;AND POINTER
	PUSH P,ALTP	;SAVE CHR POINTER
	TLZ FL,ARBITG	;CAN SEE ANOTHER  NOW
	PUSHJ P,LINMAT	;A MATCH
	JRST RECUR	;NO, TRY FOR ANOTHER OF THAT CHR
	SUB P,[XWD 7,7]	;GET ALL THAT JUNK OFF STACK
	JRST CPOPJ1 	;AND RETURN TO CALLER OF LINMAT
RECUR:	POP P,ALTP	;GET BACK POINTER
	POP P,C	;AND CHR
	MOVE T4,-2(P)	;RESTORE COUNT
	MOVEM T4,ARBCNT
	POP P,T4
	POP P,T2	;ALSO CHR COUNTER AND POINTER
	DPB C,T2	;PUT IN THAT CHR
	MOVEI T5,0	;AN@ TERMINATOR
	IDPB T5,T2
	SOJLE T4,ILFMTR
	PUSH P,T2
	PUSH P,T4	;RESAVE
	MOVE T1,-3(P)	;RESTORE SEARCH POINTER
	ILDB C,ALTP	;GET ANOTHER CHR
	PUSH P,C	;SAV IT
	TLZ FL,NEGF	;TURN THIS OFF FOR RECURSION
	CAIE C,12	;END OF WORLD?
	JRST CHKTHS
	SUB P,[XWD 5,5]	;RECUCE STACK
	POPJ P,	;AND ERROR RET
PROCED:	TLZ FL,ARBITG!NEGF	;JUST GO ON
	POP P,C
	POP P,T4
	POP P,T2
	POP P,ARBCNT
	POP P,(P)	;GET RID OF EXTRA POINTER
	JRST CHRMAT	;CONTINUE MATCH SCANNING


SUBTTL FIND COMMAND (SEARCHES)
;DO A SEARCH OF A FILE

SEARCH:	TLZ FL,ASSMF	;CLEAR ALL FLAGS
	TLO FL2,SRCWHO	;(203) SEARCH IS LOOKING
	SETZM LOLN	;JUST LIKE EVERYONE ELSE HAS TO
	SETZM SRCNT	;START WITH ZERO
	MOVE T1,[ASCII "F*"]
	MOVEM T1,FSFLG	;PROMPT FOR FIND CMD
	MOVE T1,[POINT 7,SRBUF]	;SET UP BYTE POINTER
	MOVEI T3,SRPNT	;AND POINTER TO BYTE POINTER TABLE
	PUSHJ P,SSTRNG	;GET A SEARCH STRING
	JRST	[SKIPN SRPNT	;WAS STRING SET?
		NERROR NSG	;NO, TELL HIM
		CAIN C,12
		JRST ASSMD1	;SPECIAL CONTINUE MODE
		JRST .+1]	;YES, USE OLD ONE
	TLZ FL,NUMSRF!ALTSRF!EXCTSR	;CLEAR FLAGS
	PUSHJ P,SCAN	;CHECK FOR WHAT COMES AFTER
	TRNN FL,TERMF	;IF TERMINATOR
	CAIN C,","	;OR ,
	JRST ASSMDT	;SET UP LIMITS SPECIALLY
	CAIE C,"!"
	CAIN C,":"
	JRST ASSMDT	;LET HIM SPECIFY 2ND HALF OF RANGE
	PUSHJ P,GET2	;ELSE CALL USUAL LIMIT ROUTINE
SRC4:	MOVE T1,HILN	;SAVE END OF RANGE
	MOVEM T1,SRHILN
	MOVE T1,HIPG
	MOVEM T1,SRHIPG
	CAIE C,","	;ANY MORE ARGUMENTS?
	JRST SRC1	;NO, CHECK TERMINATOR AND PROCEED
	PUSHJ P,SCAN	;YES, SEE WHAT IT IS
	TRNN FL,IDF	;SHOULD BE IDENT OR NUMBER
	JRST SRC2	;NOT IDENT, CHECK FOR NUMBER OF SEARCHES
	MOVS T1,ACCUM	;GET THE IDENT
	CAIN T1,(<SIXBIT /N  />)	;AND FIND OUT WHAT IT IS
	TLO FL,NUMSRF
	CAIN T1,(<SIXBIT /A  />)
	TLO FL,ALTSRF	;FIRST CHECK FOR A OR N
	TRNE FL,READOF	;IF READ ONLY AND ALTER
	TLNN FL,ALTSRF
	SKIPA
	NERROR ILC	;WE DO NOT PERMIT IT
	TLNN FL,NUMSRF!ALTSRF	;WAS IT EITHER?
	JRST SRC3	;NO, CHECK E
	PUSHJ P,SCAN	;CONTINUE LOOKING
	CAIE C,","
	JRST SRC1	;NO MORE ARGUMENTS
	PUSHJ P,SCAN	;WELL WHAT KIND IS THIS ONE?
	TRNN FL,IDF	;MORE IDENTS?
	JRST SRC2	;NO, MUST BE NUMBER OF SEARCHES
	MOVS T1,ACCUM
SRC3:	CAIE T1,(<SIXBIT /E  />)
	NERROR ILC	;NO, HE MUST HAVE MADE A MISTAKE
	TLO FL,EXCTSR	;YES, REMEMBER IT
	PUSHJ P,SCAN	;AND CHECK FOR MORE
	CAIE C,","
	JRST SRC1	;NO MORE
	PUSHJ P,SCAN	;ONLY ONE THING IT CAN BE NOW
SRC2:	TRNN FL,NUMF
	NERROR ILC	;NOPE, LOSE
	MOVEM T2,SRCNT	;SAVE AS COUNT OF LINES TO FIND
	PUSHJ P,SCAN	;GET TERMINATOR (WE HOPE)
SRC1:	TRNN FL,TERMF	;ALLS WELL THAT ENDS WELL
	NERROR ILC	;BUT THIS DOSNT
SRCH1A:	MOVEI T1,SRPNT	;GET POINTER TO STRINGS
	PUSHJ P,CODSR	;AND GENERATE CODE
	MOVE T1,LOPG	;GET SET TO HUNT IT
	MOVEM T1,DPG
	MOVEM T1,SRPG	;FLAG TO SAY IF WE SHOULD PRINT PAGE
	MOVE SINDEX,LOLN
	PUSHJ P,FIND
	TRZ FL,LINSN	;NO LINES YET
	SETZM FNDFLG	;NO MATCHES EITHER
ONSRC:	PUSHJ P,ONMOV	;CHECK RANGE
	JRST ENDSRC	;DONE
	TLZE FL,ASSMF	;FIRST TIME AND WANT .+1?
	JRST	[CAME T1,LOLN	;IS THERE EXACT MATCH?
		JRST .+1	;NO, THIS IS .+1
		AOS SVCNT	;PRETEND WE DIDNT SEE IT
		JRST SRNXT]	;AND TAKE NEXT
	TRO FL,LINSN	;WE SAW ONE
	CAMN T1,PGMK	;PAGES ARE SPECIAL
	JRST SRCPAG	;SO TAKE GOOD CARE OF THEM
	MOVEI T2,SRPNT	;POINTER TO STRINGS
	PUSHJ P,COMSRC	;GO SEARCH THIS LINE
	JRST SRNXT	;LOSER
	SETOM FNDFLG	;FOUND!
	MOVEM T3,SVCCNT	;SAVE AWAY THE CHARACTER COUNT
	MOVE T2,CPG	;GET CURRENT PAGE
	TRNN	FL2,NONUMF	;DON'T PRINT IF NONUMBER MODE
	CAMN	T2,SRPG		;SEE IF WE SHOULD PRINT IT
	SKIPA
	PUSHJ	P,PGPRN		;YES
	MOVE T2,CPG	;NOW SET IT AS CURRENT
	MOVEM T2,CPGL
	MOVEM T2,SRPG	;ALSO RESET FLAG
	MOVE T2,(PNTR)	;ALSO SET LINE
	MOVEM T2,CLN
	TLNE FL,ALTSRF	;ARE WE GOING TO EDIT?
	JRST SRCALT	;YES, GO SET THINGS UP
	TLNE FL,NUMSRF	;DO WE WANT ONLY LINE NUMBERS?
	JRST SRCNUM	;YES
	MOVE T1,PNTR	;GO PRINT LINE
	PUSHJ P,OUTLIN
SRNXTC:	SOSG SRCNT	;HAVE WE FOUND ENOUGH
	JRST SRFND	;YES, GIVE UP (WE HAVE SEEN AT LEAST ONE)
SRNXT:	PUSHJ P,FINDN	;GET NEXT LINE TO LOOK A
	JRST ONSRC
SRCNUM:	MOVE T1,(PNTR)	;PRINT SEQUENCE NUMBER
	PUSHJ P,OUTSN
	OCRLF
	JRST SRNXTC	;AND GO
ENDSRC:	TRZN FL,LINSN	;DID WE SEE ONE?
	NERROR NLN	;NULL RANGE
SRFND:	SKIPN FNDFLG	;FIND ANY?
	RERROR SRF	;NO: TELL HIM
	JRST COMND
SRCPAG:	AOS CPG	;JUST ADVANCE PAGE COUNTER
	JRST SRNXT	;AND PROCEED
SRCALT:	PUSHJ P,SETALT	;SET THINGS UP
	SKIPLE T2,SVCCNT	;GET COUNT (DO NOT CALL IF 0
	PUSHJ P,ALTSP	;SPACE OVER CORRECTLY
	PUSHJ P,ALTN1	;GO ALTER
	JRST LEVINS	;HE SAID ALTMODE
	PUSHJ P,INSED	;INSERT IT
	PUSHJ P,FINDN
	PUSHJ P,FILLB	;MAKE SURE WE HAVE NOT GOTTEN TOO BIG
	MOVE T1,(PNTR)	;GET POINTER BACK
	SOSG SRCNT
	JRST COMND	;DONE
	JRST ONSRC	;GO ON

ASSMD1:	TROA FL,CNTF	;MARK AS KEEP END OF RANGE
ASSMDT:	TRZ FL,CNTF	;JUST IN CASE
	TLO FL,ASSMF	;WE ASSUME .+1
	MOVE T1,CLN	;SET THINGS UP FOR . TO INFINITY
	MOVEM T1,LOLN
	MOVEM T1,HILN	;AS GOOD AS ANYTHING WITH THE PAGE WE WILL
	MOVE T1,CPGL	;USE
	MOVEM T1,LOPG
	TRZE FL,CNTF	;KEEP END?
	JRST NOSPC	;YES
	CAIE C,":"	;IF A : OR !
	CAIN C,"!"
	JRST HALFSP	;GET THE SECOND HALF (.+1 TO GIVEN)
	MOVSI T1,377777	;GET A LARGE PAGE
	MOVEM T1,HIPG
	JRST SRC4	;BACK INTO THINGS

HALFSP:	MOVEM T1,HIPG	;SET TOP AS /.
	PUSHJ P,GET2HF	;GET THE SECOND HALF
	JRST SRC4	;AND GO

NOSPC:	MOVE T1,SRHIPG
	MOVEM T1,HIPG	;PUT BACK END
	MOVE T1,SRHILN
	MOVEM T1,HILN
	JRST SRCH1A

LEVINS:	OCRLF			;YES - PUT OUT CRLF
	SETZM	ALTSN		;CLEAR FLAG
	JRST	COMND

SUBTTL ALTMODE AND LINE FEED COMMANDS
NXTLIN:	PUSHJ	P,NBFIND	;GET CURRENT LINE
	CAMN T1,CLN	;DID WE REALLY FIND IT
	PUSHJ P,FINDN	;YES, GET NEXT ELSE WE ALREADY HAVE IT
	JUMPE T1,[NERROR NLN]	;EOF AND NOT FOUND
	MOVE T2,DTYPE	;TERMINAL TYPE
	XCT CURUP(T2)
	OUTCHR [15]
NXTL1:	CAMN T1,PGMK	;IS THIS A PAGE MARK?
	JRST NXTPG	;TREAT SPECIALLY
NBPRNT:	MOVEM T1,CLN	;SET AS CURRENT
	MOVE T1,PNTR	;GET THE CURRENT POINTE
	TRNE	FL2,NONUMF
	TRO	FL2,SUPN
	PUSHJ	P,OUTLIN	;AND PRINT
	TRZ	FL2,SUPN
	JRST	COMND		;DONE

NXTPG:	AOS T2,CPG	;WE ARE ON THE NEXT PAGE
	MOVEM T2,CPGL
	TRNN	FL2,NONUMF
	PUSHJ P,PGPRN	;TELL HIM
	PUSHJ P,FINDN	;FIND A LINE ON IT
	JUMPN T1,NXTL1	;THERE IS ONE THERE, PRINT IT
	JRST COMND



BAKLIN:	PUSHJ	P,NBFIND	;GET CURRENT LINE
	TRNE FL,BOF	;IF NOT AT START OF FILE
	CAME PNTR,BUFP	;OR NOT AT START OF BUFFER
	SKIPA
	NERROR NLN
	OUTCHR	[15]
	MOVE T2,DTYPE
	OUTCHR LFD(T2)
BAK1:	PUSHJ P,FINDB
	CAME T1,PGMK
	JRST	NBPRNT
	MOVE T2,CPG
	MOVEM T2,CPGL
	TRNN	FL2,NONUMF
	PUSHJ P,PGPRN
	TRNE FL,BOF	;CHECK FOR START OF WORLD
	CAME PNTR,BUFP
	JRST BAK1	;OK, BACK UP SOME MOR
	MOVE T1,[<ASCII /00000/>!1]
	MOVEM T1,CLN
	JRST COMND

NBFIND:	MOVE	T1,CPGL		;CURRENT PAGE
	MOVEM	T1,DPG
	MOVE	SINDEX,CLN	;AND CURRENT LINE
	JRST	FIND		;GO FETCH

SUBTTL COPY AND TRANSFER COMMANDS
TRANS:	TLOA FL,TRANFL	;SET AS TRANSFER COMMAND
COPY:	TLZ FL,TRANFL	;JUST TO MAKE SURE
	TRZ FL2,BADORD	;CLEAR BAD ORDER FLAG
	SETZM HILN	;THIS, TOO MAY PROVE USEFUL
	SETZM LOLN	;A GOOD THING TO DO
	TLO FL2,EXCPFL	;(207) SET FLAG ITS A COPY
	TRNE FL,READOF	;DO NOT LET HIM IN READ ONLY MODE
	NERROR ILC
	PUSHJ P,GET1S	;GET PLACE TO PUT LINES
	MOVE T1,HIPG	;STORE IT AWAY FOR LATER
	MOVEM T1,DESTPG	;...
	MOVE T1,HILN	;GET LINE NUMBER OF DESTINATION
	SKIPN	T1	;IF WASN'T SPECIFIED, 
	JRST NOLNUM	;GO FAKE SOMETHING
COPY0:	MOVEM T1,DESTLN	;STORE AWAY LINE NUM. OF DESTINATION
	CAIE C,200	;...
	CAIN C,"="	;DOES HE WANT TO COME FROM ANOTHER FILE?
	JRST	OTHERF	;OTHER FILE REQUESTED
	TLZ FL,COPFIL	;NO, MAKE SURE FLAG IS OFF
COPY1:
	CAIE C,","	;SHOULD BE COMMA EVEN IF FROM ALTFIL
	NERROR ILC	;HE MUST SAY WHERE TO PUT IT
	PUSHJ	P,COPYP		;PARSE RANGE ARGS
COPY2:	SETOM NLIN1	;LINES ON FIRST PAGE
	SETZM NLIN2	;LINES ON LAST PAGE
	TLO	FL2,NORENT	;AND REE-ENTER
	TLZ	FL2,RENTF	;IN CASE HE HAS
	MOVEM P,COPDL	;SAVE STACK POINTER FOR NOW
	TLO FL,ISCOP	;SO WE WILL DO SPECIAL RESET IF ERROR
	MOVE	ALTP,[-1000*NCPAGS,,BUFC-1]
				;PNTR FOR COPY BUFFER
	SETZM LSTPG	;HAVE SEEN NO PAGES YET
	MOVE T1,LOPG	;LOOK FOR SOURCE
	MOVEM T1,DPG
	MOVE SINDEX,LOLN
	PUSHJ P,FIND
	TRZ FL,LINSN	;AND NO LINES
	TLNN FL,TRANFL	;IS THIS A TRANSFER COMMAND?
	JRST GOCOP	;NO, IGNORE ALL THIS SPECIAL STUFF
	HRRZM ALTP,STARTD	;SAVE THE START OF DELETED CODE
	HRRZM ALTP,ENDD	;AND THE END
	MOVE T1,CPG	;GET THE PAGE ON WHICH DELETION STARTS
	MOVEM T1,TRANST	;AND SAVE IT
	SKIPN -1(PNTR)	;ARE WE AT THE START OF THE BUFFER
	TRNN FL,BOF	;AND OF THE WORLD
	SKIPA
	JRST BEGFIL	;YES, DO NOT LOOK BACK
	PUSHJ P,FINDB	;GET THE PREVIOUS LINE
	CAMN T1,PGMK	;A PAGE IS SPECIAL
	JRST SPCPG
	MOVEM T1,BOTLIN	;SAVE IT FOR LATER
	PUSHJ P,FINDN	;GO FORWARD AGAIN
	JRST GOCOP

NOLNUM:	MOVE T1,HIPG	;SET UP FOR FIND
	MOVEM T1,DPG	;...
	MOVE SINDEX, [<ASCII/99999/!1>]	;TRY TO FIND THE BIGGEST 
	PUSHJ P,FIND			;POSSIBLE LINE NUMBER
	CAME T1,[<ASCII/99999/!1>]	;BIG-LINE EXISTS. LEAVE IT BE
	PUSHJ P,FINDB		;LOOK FOR ONE LINE PREVIOUS
	JUMPE T1,[MOVE T1,TECFST;IF 0, SET UP STANDARD TOP OF PAGE
		  JRST .+1]	;...
;**;[244]	Replace 2 lines at NOLNUM:+7		DML	9/29/82	
	CAMN T1,PGMK		;[244] IS LINE FOUND A PAGEMARK?
	MOVE T1,TECFST		;[244] YES, SET TO DEFAULT STARTING LINE
	MOVE SINDEX,T1		;SET UP CORRECT SINDEX...
	MOVEM SINDEX,HILN	;HILN...
	MOVE T1,SINDEX		;AND T1 (IS GONNA BECOME DESTLN)
	JRST COPY0		;RETURN TO FLOW

SPCPG:	SKIPE LOLN	;DO WE INTEND TO ABSORD THIS ONE
	JRST BEGFIS	;MOVE FORWARD AND RECORD
	SKIPN -1(PNTR)	;CHECK FOR START OF WORLD AGAIN
	TRNN FL,BOF
	SKIPA
	JRST BEGFIS
	PUSHJ P,FINDB	;BACK UP
	AOS CPG		;FIX PAGE COUNT
	PUSH P,T1	;SAVE THAT LINE
	PUSHJ P,FINDN
	PUSHJ P,FINDN	;AND GO BACK WHERE WE BELONG
	POP P,T1	;GET LINE NUMBER BACK
	CAMN T1,PGMK	;THERE'S THAT PAGE AGAIN
	JRST BEGFIA
	MOVEM T1,BOTLIN	;SAVE LINE NUMBER
	JRST GOCOP
BEGFIS:	AOSA CPG
BEGFIA:	AOSA CPG
BEGFIF:	PUSHJ P,FINDN
BEGFIL:	SETOM BOTLIN	;A VERY SMALL NUMBER
GOCOP:	SETZM PGDELS	;TOTAL NUMBER OF PAGES DELETED IS 0
	SKIPE LOLN	;DID HE ASK FOR THE WHOLE PAGE
	JRST NOISTP	;NO
;**;[244]	Remove 6 lines at GOCOP:+3		DML	9/29/82
	SETZM NLIN1	;NO LINES ON FIRST PAGE
	TLNN FL,TRANFL	;IS THIS A TRANSFER
	JRST NOISTP	;NO, START TRANSFER OF DATA
	MOVE T1,CPG	;CHECK TO SEE IF WE SHOULD REALLY DELETE
	CAIN T1,1	;NOT IF PAGE 1
	JRST RSTSTP
	PUSHJ P,FINDB	;GET THAT PAGE
	SETZM NCNT	;DELETE
	MOVEI T1,2
	MOVEM T1,OCNT
	PUSHJ P,INSED
	PUSHJ P,FINDN1	;MAKE SURE WE ARE AT THE LINE WE WERE AT
	AOS CPG		;KEEP COUNT STRAIGHT
	AOSA PGDELS	;ONE DELETED
RSTSTP:	HRRZM ALTP,STARTD	;RESET START IF NONE DELETED
	HRRZM ALTP,ENDD	;RESET END
NOISTP:	MOVE T1,(PNTR)	;MAKE SURE WE HAVE THAT JUNK BACK
ONCOPY:	PUSHJ P,ONMOV	;STILL IN RANGE?
	JRST ENDCOP	;NO, START INSERTING
	TRO FL,LINSN	;WE SAW ONE
	CAMN T1,PGMK	;IS IT A PAGE?
	JRST MOVPG	;YES, TREAT SPECIAL
	AOS	NLIN2		;INCR LINE SEEN
MOVLCT:	MOVE T1,PNTR	;START TRANSFER
	MOVE T2,(T1)	;PICK UP FIRST WORD (SEQ NUM)
	MOVEM T2,LSTLN	;SAVE FOR INC CALC
TRLIN:	MOVEM T2,1(ALTP)	;PUT LINE AWAY
	AOBJP ALTP,RESTCR	;NEED MORE CORE?
TRLIN1:	SKIPN T2,1(T1)	;END OF LING?
	JRST NXTLCT
	TRNN T2,1
	AOJA T1,TRLIN	;NO MOVE NEXT WORD
NXTLCT:	TLNN FL,TRANFL	;IS THIS TRANSFER?
	JRST NXTLCP	;NO, DON'T DELETE
	HRRZM ALTP,ENDD	;SAVE END OF DELETED TEXT
	SETZM NCNT
	SUBI T1,-1(PNTR)	;GET LENGTH
	MOVEM T1,OCNT
	PUSHJ P,INSED
	PUSHJ P,FINDN1	;MAKE SURE A LINE IS THERE
	SKIPA		;SKIP THE FINDN
NXTLCP:	PUSHJ P,FINDN	;YES, GET NEXT
	JRST ONCOPY

MOVPG:	AOS CPG	;WE ARE ON NEXT PAGE
	MOVE T1,NLIN2
	SKIPGE NLIN1	;PUT ON FIRST PAGE IF NOT SOME ALREADY THERE
	MOVEM T1,NLIN1
	SETZM NLIN2
	HRRZM ALTP,LSTPG	;SAVE RECORD OF WHERE SEEN
	AOS PGDELS	;RECORD ONE MORE PAGE DELETED
	JRST MOVLCT	;NOW MOVE IT

RESTCR:	NERROR NEC
;	JRST	TRLIN1		;WHERE TO GO IF MORE AVAIL

ENDCOP:	TRNN FL,LINSN	;WERE THERE ANY THERE?
	NERROR NLN	;NO LOSE
	SETZM 1(ALTP)	;MAKE SURE THERG IS AN END FLAG THERE
	TLZE FL,COPFIL	;ARE WE COMMING OFF A FILE
	PUSHJ P,RSCOP	;YES, RESET POINTERS
	MOVE T1,DESTPG	;LOOK FOR DESTINATION
	MOVEM T1,DPG
	TLNN FL,TRANFL	;IS IT A TRANSFER?
	JRST DOINS1	;(223)NO, PUT THE COPIED TEXT IN
	SETZM PGINSD	;NO EXTRA PAGE MARK INSERTED YET
	SKIPN T2,(PNTR)	;ARE WE AT EOF
	JRST NOPGIN	;YES, DO NOT INSERT A PAGE MARK
	CAME T2,PGMK	;ALSO NOT IF PAGE MARK
	CAMLE T2,BOTLIN	;OR GREATER THAN LINE LEFT OVER
	SKIPA
	SETOM PGINSD	;WE WILL HAVE TO INSERT ONE
NOPGIN:	MOVN T2,PGDELS	;GET MINUS NUMBER OF PAGES DELETED
	SUB T2,PGINSD	;ONE LESS IF A PAGE MARK INSERTED
	CAMGE T1,TRANST	;(T1 HAS DEST. PAGE) IF SMALLER THAN START
	JRST DOSUB	;EVERYTHING IS OK
	CAMN T1,TRANST	;IS IT SAME?
	JRST DSEQTR	;SPECIAL CHECK REQUIRED
	CAMGE T1,CPG	;INSIDE RANGE DELETED?
	NERROR ITD	;LOSE BIG
	CAMN T1,CPG	;SAME AS TOP PAGE?
	JRST DSEQCP
	ADDM T2,DESTPG	;ADJUST PGE WE ARE TO FIND
	ADDM T2,DPG
DOSUB:	ADDM T2,CPG	;ADJUST FOR REMOVED PAGES
	ADDM T2,INPG
	ADDM T2,BGPG
	SKIPN PGINSD	;SEE IF WE WANT TO INSERT ONE
	JRST DOINS1	;(223)no, put the copied text in
	MOVE T1,PGMK
	MOVEM T1,LIBUF
	MOVE	T1,PGMKW2
	MOVEM T1,LIBUF+1
	SETZM OCNT
	MOVEI T1,2
	MOVEM T1,NCNT
	PUSHJ P,INSED
	PUSHJ P,FINDN	;ADVANCE OVER IT
	PUSHJ P,FILLB	;IN CASE OF OVERFLOW
	OUTSTR [ASCIZ /%Page mark inserted to prevent order error
/]
	JRST DOINS1	;(223)go put copied text in
ALLSAM:	SKIPN LOLN
	SKIPE PGINSD	;IF DID NOT DELETE PAGE OR INSERTED ONE
	JRST DOSUB	;ALL OK
	SKIPE T1,(PNTR)	;ELSE MUST BE IN UPPER PART
	CAMN T1,PGMK
	NERROR ITD	;THERE IS NO UPPER PART
	CAMLE T1,DESTLN
	NERROR ITD
	SOS T1,DESTPG	;THIS WILL BE ON A LOWER PAGE
	MOVEM T1,DPG
	JRST DOSUB
DSEQTR:	CAMN T1,CPG	;IS IT ALL ON SAME PAGE?
	JRST ALLSAM	;YES, SPECIAL CHECKING
	SKIPN LOLN	;DID WE START WITH A PAGE
	NERROR ITD	;YES, LOSE
	SKIPE PGINSD	;WAS THERE A PAGE INSERTED?
	JRST DOSUB	;YES, ALL OK
	SKIPE T1,(PNTR)	;FIND OUT WHAT THE NEXT LINE IS
	CAMN T1,PGMK
	JRST DOSUB	;THIS WILL BE OK
	CAMG T1,DESTLN	;SEE IF WE ARE IN TROUBLE
	NERROR ITD
	JRST DOSUB	;OK
DSEQCP:	SKIPE PGINSD	;WAS ONE INSERTED
	JRST AOSTRA	;SET PAGE PROPERLY
	MOVE T1,DESTLN
	CAMG T1,BOTLIN
	NERROR ITD
	SKIPA T1,TRANST
AOSTRA:	AOS T1,TRANST
	MOVEM T1,DESTPG
	MOVEM T1,DPG	;ALSO SET THIS
	JRST DOSUB
DOINS1:	MOVE SINDEX,DESTLN
	PUSHJ P,FIND
	PUSH P,T1	;SAVE LINE FOUND
	MOVE T1,CPG
	CAMN	T1,DESTPG	;PAGES MUST MATCH
	JRST	DOINS2
	TLNN	FL,TRANFL	;ONLY TRANSFER
	NERROR	NSP		;ERROR IF COPY
	MOVE	T1,PGMK
	MOVEM	T1,LIBUF
	MOVE	T1,PGMKW2
	MOVEM	T1,LIBUF+1
	SETZM	OCNT
	MOVEI	T1,2
	MOVEM	T1,NCNT
	PUSHJ	P,INSED
	PUSHJ	P,FINDN
	PUSHJ	P,FILLB
	AOS	CPG
	AOS	INPG
	AOS	BGPG
	OUTSTR	[ASCIZ /%Text inserted at end of file
/]
	MOVE	T1,CPG

DOINS2:	MOVEM	T1,CPGL		;SET THIS AS CURRENT PAGE
	POP	P,T1		;RETRIEVE LINE FOUND
	MOVE	T2,[<ASCII /00100/>!1]
	MOVEM	T2,CLN		;AND THIS AS CURRENT LINE
	MOVEM	T2,SVLNUM
	MOVEI	ALTP,BUFC-1	;POINT TO START OF LINES TO COPY
	TLZ	FL,TRANFL	;THIS FLAG NO LONGER NEEDED
TWOSET:	SKIPGE	NLIN1		;DID WE SEE ANY PAGE MARKS?
	JRST	ONSET		;NO -- JUST NEED ONE INCR
	MOVEM	T1,HIGH1	;SAVE THIS FOR LATER
	MOVE	T2,TECFST	;(223)get /START value
	MOVEM	T2,START2	;(223)set default for last page
	JUMPE	T1,[MOVE T2,[<ASCII /00100/>!1]
		    MOVEM T2,SINCR ;USE THIS IF EOF
		    MOVE T3,NLIN1  ;SET UP FOR GETDIF
		    JRST ONST0]    ;GO COMPUTE FIRST INCR
	MOVE	T3,NLIN2	;NUMBER OF LINES ON LAST PG
	MOVE	T2,[<ASCII /00000/>!1]
	MOVE	T1,HIGH1	;RESULT OF FIND
	CAMN	T1,DESTLN	;SAME AS DESTINATION?
	MOVE	T1,T2		;YES - COMPUTE CORRECT INCR
	PUSHJ	P,GETDIF	;CALL ROUTINE
	  JRST	[IORI FL2,BADORD	;ORDER PROBLEM
		 JRST OKINC2]		;CONTINUE
	MOVEM	T2,START2	;PLACE TO START FOR LAST PAGE
	SKIPN	SINCR		;DID HE SAY ONE
	JRST	[MOVE T1,LSTLN	;LAST LINE SEEN
		 CAML T1,(PNTR)	;HOW'S IT LOOK?
		 JRST ONST3	;NOT GOOD ENOUGH
		 JRST OKINC2]
	CAML	T2,SINCR	;SEE WHOSE IS BETTER
	JRST	OKINC2		;WE'LL USE HIS
ONST3:	MOVEM	T2,SINCR	;OURS IS BETTER
	MOVEM	T2,PRNTO2	;INFOR HIM OF THE CHANGE
	OUTSTR	ASCIZ2

OKINC2:	MOVE	SINDEX,DESTLN	;INCASE WE NEED TO FIND IT
	MOVE	T1,HIGH1	;RESULT OF PREVIOUS FIND
	CAMGE	SINDEX,T1	;BEFOR 1ST LINE OF PAGE?
	PUSHJ	P,FIND		;YES - NEED TO REPOSITION
				;T1 HAS CORRECT RESULT
	SKIPG	T3,NLIN1	;CHECK FOR P/M ONLY
	JRST	INSL2		;ALL SET FIRST THING IS P/M
	MOVE	T2,DESTLN	;WHAT HE WANTED
	PUSHJ	P,GETDF1	;DON'T LOOK AT NEXT LINE
	  JRST	[IORI FL2,BADORD	;ORDER PROBLEM WILL FOLLOW
		 JRST INSL2]		;CONTINUE
	MOVEM	T1,CLN		;SET UP GOOD THINGS
	MOVEM	T1,SVLNUM
	CAML	T2,FINCR	;WHICH IS BETTER
	JRST	INSL2		;HIS
	MOVEM	T2,FINCR	;OURS
	JRST	ONST1		;TELL HIM WE CHANGED HIS MIND
ONSET:	SKIPG	T3,NLIN2	;GO ANYTHING TO WORRY ABT
	JRST	INSL2		;NO -- DO OUR WORST
ONST0:	MOVE	T2,DESTLN	;HIS DESIRED PLACE
	MOVEM	T2,SVLNUM	;AS GOOD AS ANY IF ORDER ERROR
	PUSHJ	P,GETDIF	;SEE WHAT THERE IS TO SEE
	  JRST	[IORI FL2,BADORD	;ORDER PROBLEMS, SET FLAG
		 JRST INSL2]		;AND CONTINUE
	MOVEM	T1,SVLNUM	;SET THE GOOD S--T
	MOVEM	T1,CLN
	CAML	T2,FINCR	;THE MOMENT OF TRUTH
	JRST	INSL2		;THAT CRAFTY FELLOW
	MOVEM	T2,FINCR	;TELL HIM HE BLEW IT
ONST1:	MOVEM	T2,PRNTO1	;PUT IN IN PRINT POSITION
	OUTSTR	ASCZ1
	JRST	INSL2		;HE HAS BEEN TOLD


;CONVERT INTEGER IN T1 TO SEQ # IN T3

ASCON:	MOVSI	T3,400000	;WILL BECOME LOW ORDER BIT
ASCO2:	IDIVI	T1,^D10
	ADDI	T2,"0"
	LSHC	T2,-7
	TRNN	T3,1		;HAS IT GOTTEN THERE?
	JRST	ASCO2
	POPJ	P,

;CONVERT SEQ # IN T3 TO INTEGER IN T1

NUMCON:	MOVEI	T1,0
	TRZ	T3,1		;GET RID OF LOW ORDER BIT
NUMC1:	MOVEI	T2,0
	LSHC	T2,7
	IMULI	T1,^D10
	ADDI	T1,-"0"(T2)
	JUMPN	T3,NUMC1
	POPJ	P,
INSLN:	MOVE T2,FINCR	;GENERATE NEW SEQUENCE NUMBER
	SKIPN T1,SVLNUM	;BUT ONLY IF WE ARE SUPPOSED TO
	JRST INSL2
	PUSHJ P,ASCIAD
	MOVEM T1,SVLNUM	;PUT EITHER NGW OR 0 BACK
INSL2:	SETZM LIBUF	;ZERO OUT PLACE TO PUT LINE
	MOVE T1,[XWD LIBUF,LIBUF+1]
	BLT T1,LIBUF+MXWPL+1
	MOVEI T1,LIBUF	;SET UP OUTPUT POINTER
	SKIPN T2,1(ALTP)	;AT END?
	JRST INSDON	;FINISHED
INS1:	MOVEM T2,(T1)	;PUT IT AWAY
	ADDI ALTP,1	;NEXT
	SKIPN T2,1(ALTP)	;CHECK FOR END OF LING
	JRST INS2
	TRNN T2,1	;BY EITHER METHOD
	AOJA T1,INS1	;GO ON WITH TRANSFER
INS2:	SUBI T1,LIBUF-1	;GET COUNT
	MOVEM T1,NCNT	;AND SET AS NEW
	SETZM OCNT	;OLD IS ZERO
	MOVE T1,LIBUF	;GET SEQ NUM
	CAMN T1,PGMK	;CHECK FOR PAGE
	JRST INSPG	;AND DO SPECIAL
	SKIPN T1,SVLNUM	;IF A NON-ZERO NUMBER THEN REPLACE
	MOVE T1,LIBUF
	MOVEM T1,LIBUF
NOINCR:	MOVEM T1,CLN	;SET AS CURRENV LINE
	PUSHJ P,INSED	;INSERT IT
	PUSHJ P,FINDN	;GET NEXT
	PUSHJ P,FILLB	;AND DUMP IF NEEDED
	JRST INSLN	;GO PUT IN MORE

INSPG:	AOS T3,CPG	;WE ARE ON THE NEXT PAGE
	MOVEM T3,CPGL	;SET AS CURRENV
	MOVE T1,[<ASCII /00000/>!1]	;SET TO SAY LINE 0
	AOS BGPG	;ONE MORE PAGE IN FILE
	AOS INPG
	SETZM SVLNUM	;DO NOT DO ANY MORE SEQUENCE REPLACEMENT
	MOVEI T2,-2(ALTP)	;SINCE WE HAVE ALREADY GONE PAST
	CAMN T2,LSTPG	;UNLESS STARTING LAST PAGE
	SKIPN T3,SINCR	;ANF SECOND SEQUENCE NUMBER GIVEN
	JRST NOINCR
	MOVEM T3,FINCR	;SET UP INCREMENT
	MOVE	T3,START2	;GET LAST PAGE START
	MOVEM	T3,SVLNUM
	MOVEM	T1,CLN
	PUSHJ	P,INSED		;INSERT IT
	PUSHJ	P,FINDN		;TO NEXT
	PUSHJ	P,FILLB		;SLURP
	JRST	INSL2		;GO DO IT
INSDON:
COPDON:	SKIPN	ALTJFN		;SKIP THIS IF NO JFN
	JRST	NOCPF		;NO FILE OPEN
	MOVEI	T2,<CPYPG0>B44	;RELEASE THIS PAGE
	CALL	UNMAP		;...
	MOVE	T1,ALTJFN	;RELEASE JFN HERE
	CLOSF			;...
	  JFCL			;DONT CARE NOW
	SETZM	ALTJFN		;(222)CLEAR JFN STORAGE
NOCPF:	TLZE	FL,COPFIL	;ARE WE COPYING FROM A FILE (ERRORS ONLY)
	PUSHJ	P,RSCOP		;YES, CLEAN UP POINTERS
	TLZ	FL,ISCOP	;RESET COPY FLAG
	TLNN	FL,TRANFL	;IF TRANSFER, WE MUST REINSERT
	JRST	COPD1		;NO
	MOVE	ALTP,STARTD
REINXT:	MOVEI	T1,LIBUF
	CAMN	ALTP,ENDD
	JRST	COPD1		;ALL DONE
	MOVE	T2,1(ALTP)
	JRST	REINWD

REINS:	MOVE	T2,1(ALTP)
	CAME	ALTP,ENDD
	TRNE	T2,1
	JRST	ENDLIN		;DONE WITH THIS LINE
REINWD:	MOVEM	T2,(T1)
	ADDI	T1,1
	AOJA	ALTP,REINS

ENDLIN:	SETZM	OCNT
	SUBI	T1,LIBUF
	MOVEM	T1,NCNT
	PUSHJ	P,INSED		;INSERT LINE
	PUSHJ	P,FINDN
	PUSHJ	P,FILLB		;IN CASE OF OVERFLOW
	JRST	REINXT

COPD1:	MOVNI	T1,1		;REMOVE PAGES
	MOVE	T2,[.FHSLF,,<CPYBUF>B44]
	MOVE	T3,[PM%CNT+NCPYP]
	PMAP			;ZAP
	HRRI	T2,<BUFC>B44	;MORE STUFF TO REMOVE
	HRRI	T3,NCPAGS
	PMAP			;BYE BYE
	TRZE	FL2,BADORD	;WAS THE ORDER BAD SOMEPLACE?
	 NERROR	ORDER		;YES, COMPLAIN
	JRST	COMND		;CONTINUE EDITING
OTHERF:	TLZE	FL,TRANFL	;GIVE WARNING IF TRANSFER
	OUTSTR	[ASCIZ /% WARNING - Copy assumed
/]
	SETZM	ALTJFN		;NONE YET
	SETOM	FSFLG		;SPECIAL ^U FLAG
	MOVSI	T1,(GJ%OLD!GJ%CFM)
	MOVEI	ALTP,ALTBLK
	CALL	READNM
	  JRST	CKIND		;ERROR RETURN
;**;[247]	Change 1 line at OTHERF:+9		DML	23-NOV-82
	  JRST	CTLUAB		;[247] ^U RETURN
	PUSHJ	P,READSW	;READ /R OR /S
	 NERROR ILC
	SKIPE	RSW		;/R ILLEGAL
	NERROR	ILC
	MOVE	T1,ALTJFN	;GET JFN
	MOVEM	T1,AIPJFN	;SAVE
	DVCHR			;(224)get device characteristics
	LDB	T2,[POINT 9,T2,17] ;(224)isolate device-type bits
	CAIE	T2,.DVDSK	;(224)make sure it's a disk
	NERROR	ILC		;(224)illegal if it's not
	MOVE	T1,AIPJFN	;(224)get jfn
	MOVE	T2,[7B5+OF%RD]
	OPENF			;OPEN FILE
	  JERROR		;USER LOSAGE
	MOVEI	ALTP,AIPB	;POINT TO BLOCK
	CALL	GFSIZE		;GET INPUT FILE SIZE
	PUSH	P,SAVEN		;TURN OFF AUTO-SAVE
	SETZM	SAVEN
	SETOM	AIPCNT		;CLEAR INPUT PNTRS
	SETZM	AIPPNT
	MOVEI	T1,CPYPG0	;BUFFER ADDRS
	MOVEM	T1,AIPBUF	;...
	MOVEI	T1,<CPYBUF+1000*NCPYP>-1
	SUBI T1,2*MXWPL+2	;SET UP THE VARIOUS POINTERS
	PUSH P,FILPT	;SEE STPT FOR MORE INFO
	MOVEM T1,FILPT
	MOVEI T1,1
	PUSH P,CPGL
	MOVEM T1,CPGL
	MOVE T1,[<ASCII /00000/>!1]
	PUSH P,CLN
	MOVEM T1,CLN
	MOVEI	T1,CPYBUF
	SETZM (T1)
	ADDI T1,1
	PUSH P,BUFP
	MOVEM T1,BUFP
	MOVEI	T1,<CPYBUF+1000*NCPYP>-1
	SUB T1,BUFP
	MOVE T2,T1
	SUBI T2,MXWPL+1
	PUSH P,MAXWC
	MOVEM T2,MAXWC
	ASH T1,-1
	PUSH P,HLFWC
	MOVEM T1,HLFWC
	MOVEI T1,1
	PUSH P,CPG
	PUSH P,INPG
	MOVEM T1,CPG
	MOVEM T1,INPG
	PUSH P,PNTR
	MOVE PNTR,BUFP
	PUSH P,SVWD
	SETZM SVWD
	PUSH P,OLDLIN
	SETZM OLDLIN
	PUSH P,WC
	SETZM WC
	MOVSI T1,1
	PUSH P,BGPG
	MOVEM T1,BGPG
	MOVE T1,FL	;SAVE SELECTED FLAGS
	AND T1,[XWD TECOF+FSTOPF,READOF!BOF!EOF!EOF2!BGSN]
	PUSH P,T1
	TRZ FL,EOF!EOF2
	TRO FL,READOF!BOF
	TLZ FL,TECOF
	TLO FL,FSTOPF
	MOVEM P,COPDL	;SAVE PDL FOR LATER
	TLO FL,COPFIL+ISCOP	;WE ARE USING OTHER FILE POINTERS
	PUSHJ P,FILLBF
	SKIPN SSW
	JRST COPY1
	TRNN FL,TERMF	;MUST END HERE
	NERROR ILC
	TLO FL,SRCOP	;SET THINGS UP
	JRST COMND	;AND GO GET COMMANDS

DSCOP:	PUSHJ	P,GNCH		;GET NEXT CHAR
	ANDI	C,137		;FORCE UPPER
	CAIN	C,"Q"		;CHECK FOR SPECIAL
	JRST	NOCOP		;YES - DO NOTHING
	MOVEM	C,SAVC		;BACK UP SCANNER
	PUSHJ	P,SCAN
	TRNN	FL,TERMF
	NERROR	ILC
	OUTSTR	[ASCIZ /Source lines=/]
	SETZM	LOLN		;THIS MAY HAVE GOTTEN RESET
	SETZM	SAVCHR		;CLEAR THINGS OUT
	SETZM	SSW		;FORGET THIS SWITCH
	PUSHJ	P,COPYP		;GET SOURCE LINES
	TLZ	FL,SRCOP	;TURN OFF FLAG
	JRST	COPY2		;CONTINUE

COPYP:	PUSHJ	P,GET2S		;GO GET PLACE TO FIND LINES
	MOVE	T1,INCR		;SEV INCREMENT AS CURRENT
	MOVEM	T1,FINCR
	SETZM	SINCR		;SET NO SECOND INCREMENT
	CAIE	C,","		;CHECK FOR MORE ARGUMENTS
	JRST	COPYP1		;NO, LOOK FOR TERMINATOR
	PUSHJ	P,SCAN
	CAME	T1,[<ASCII /00000/>!1]	;AVOID 0 INCREMENTS
	TRNN	FL,NUMF		;SHOULD BE INCREMENT, MUST BE NUMBER
	NERROR	ILC
	MOVEM	T1,FINCR
	PUSHJ	P,SCAN
	CAIE	C,","
	JRST	COPYP1
	PUSHJ	P,SCAN
	CAME	T1,[<ASCII /00000/>!1]
	TRNN	FL,NUMF
	NERROR	ILC
	MOVEM	T1,SINCR
	PUSHJ	P,SCAN
COPYP1:	TRNN	FL,TERMF
	NERROR	ILC		;DID NOT END PROPERLY, LOSE
	POPJ	P,		;RETURN

NOCOP:	PUSHJ	P,SCAN		;CHECK EOL
	TRNN	FL,TERMF
	NERROR	ILC
	TLZ	FL,SRCOP	;TURN OFF COPY
	JRST	COPDON
RSCOP:	POP P,T2
	MOVE P,COPDL	;GET PDL BACK
	POP P,T1
	TRZ FL,READOF!BOF!EOF!EOF2!BGSN	;RESTORE SELECTED FLAGS
	TLZ FL,TECOF!FSTOPF
	IOR FL,T1
	POP P,BGPG
	POP P,WC
	POP P,OLDLIN
	POP P,SVWD
	POP P,PNTR
	POP P,INPG
	POP P,CPG
	POP P,HLFWC
	POP P,MAXWC
	POP P,BUFP
	POP P,CLN
	POP P,CPGL
	POP P,FILPT
	POP P,SAVEN		;RESTORE AUTO-SAVE
	JRST (T2)	;NOW RETURN
SUBTTL SUBSTITUTE COMMAND (REPLACES THINGS)

SUBST:	TLZ FL,ASSMF	;DO NOT ASSUME ANYTHING YET
	TLZ FL2,SRCWHO	;(203) SUBST IS DOING THE SEARCH
	TRNE FL,READOF
	NERROR ILC
	SETZM LOLN	;A GOOD THING
	SETZM PARCNT	;ZERO COUNT FOR SEQUENTIAL PARTIALS
	HRLOI T1,377777	;SET FOR LOTS
	MOVEM T1,RPCNT
	MOVE T1,[ASCII "S*"]
	MOVEM T1,FSFLG		;PROMPT FOR SUBST CMD
	MOVE T1,[POINT 7,R1BUF]
	MOVEI T3,R1PNT
	PUSHJ P,SSTRNG	;THIS CODE IS JUST LIKE SEARCH
	JRST	[SKIPE R2PNT	;BOTH STRINGS MUST HAVE BEEN GIVEN
		SKIPN R1PNT
		NERROR NSG	;ELSE THERE HAS BEEN AN ERROR
		CAIN C,12	;CHECK FOR JUST A CRRET
		JRST ASBMD1	;AND DO A CONTINUE
		JRST NOSTR]	;THERE IS NO STRING
	MOVE T1,[POINT 7,R2BUF]	;GET STRING TO REPLACE BY
	MOVEI T3,R2PNT
	PUSHJ P,SSTRNG
	JRST	[CAIN C,12
		JRST	[PUSH P,[.]	;SET UP RETURN
			JRST RETSTR]	;AND READ MORE (FISRT NULL)
		MOVEM T1,R2PNT	;NULL STRING MEANS DELETE
		MOVEI T2,0		;SO SET A REAL NULL STRING
		IDPB T2,T1
		JRST .+1]
	SUBI T3,R2PNT	;GENERATE NUMBER OF REPLACEMENT STRINGS
	MOVEM T3,RSTRCT	;AND SAVE FOR LATER
NOSTR:	TLZ FL,NOPRN!DECID!EXCTS1	;CLEAR FLAGS
	PUSHJ P,SCAN	;AND START LOOKING FOR MORE JUNK
	TRNN FL,TERMF	;NOTHING
	CAIN C,","	;OR JUST A COMMA
	JRST ASBMDT	;THEN SEARCH FROM HERE TO ETERNITY
	CAIE C,"!"	;HE ONLY WANTS TO GIVE A STOPPING POINT
	CAIN C,":"
	JRST ASBMDT
	PUSHJ P,GET2	;GO GET A RANGE
REP4:	MOVE T1,HILN	;SAVE FOR POSSIBLE CONTINUE
	MOVEM T1,RPHILN
	MOVE T1,HIPG
	MOVEM T1,RPHIPG
	CAIE C,","	;IS THERE MORE?
	JRST REP1	;NO
	PUSHJ P,SCAN	;SEE WHAT IT IS
	TRNN FL,IDF	;POSSIBLY AN IDENT
	JRST REP2	;NO MAYBE A NUMBER OF TIMES
	MOVS T1,ACCUM
	CAIN T1,(<SIXBIT /N  />)
	TLO FL,NOPRN	;SET FOR NO PRINTING
	CAIN T1,(<SIXBIT /D  />)
	TLO FL,DECID	;HE WANTS TO BE ABLE TO DECIDE
	TLNN FL,DECID!NOPRN	;IF NEITHER
	JRST REP3	;THEN TRY FOR E SWITCH
	PUSHJ P,SCAN	;SEE IF THERE IS MORE
	CAIE C,","
	JRST REP1	;END OF LINE
	PUSHJ P,SCAN	;LOOK FOR STILL MORE
	TRNN FL,IDF
	JRST REP2
	MOVS T1,ACCUM
REP3:	CAIE T1,(<SIXBIT /E  />)	;IS IT THE EXACT SEARCH SWITCH
	NERROR ILC	;NO,LOSAGE
	TLO FL,EXCTS1
	PUSHJ P,SCAN	;ONE LAST TRY
	CAIE C,","
	JRST REP1	;GO CHECK TERMINATOR
	PUSHJ P,SCAN	;ONLY ONE THING LEFT
REP2:	TRNN FL,NUMF
	NERROR ILC	;BUT IT WAS NOT
	MOVEM T2,RPCNT	;SAVE IT AWAY
	PUSHJ P,SCAN
REP1:	TRNN FL,TERMF	;ALLS WELL THAT ENDS WELL
	NERROR ILC	;BUT NOT THIS ONE
REP1A:	MOVEI T1,R1PNT	;GET THE SEARCH CODE
	PUSHJ P,CODSR
	MOVE T1,LOPG
	MOVEM T1,DPG
	MOVEM T1,RPPG	;FOR PRINT OUTS
	MOVE SINDEX,LOLN
	PUSHJ P,FIND	;GET THAT LINE
	TRZ FL,LINSN	;NOTHING YET
	SETZM FNDFLG	;NO HOW
	TLNE	FL2,PDECID
	TLO	FL,DECID	;SET IF PERM MODE ON
ONREP:	PUSHJ P,ONMOV	;CHECK FOR STILL IN RANGE
	JRST ENDREP	;FINALLY
	TLZE FL,ASSMF	;SHOULD WE START WITH .+1
	JRST 	[CAME T1,LOLN	;IS IT THE ONE WE ASKED FOR
		JRST .+1	;NO, USE IT
		AOS SVCNT	;JUST IN CASE A ! TYPE OF RANGE
		JRST RPNXT]
	TRO FL,LINSN	;THIS LINE IS GOOD ENOUGH
	CAMN T1,PGMK
	JRST RPPAG	;GO TAKE CARE OF PAGE MARKS
	MOVEI T2,R1PNT	;DO THE SEARCH
	PUSHJ P,COMSRC
	JRST RPNXT
	SETOM FNDFLG	;FOUND
	SKIPGE T3	;PROTECT AGAINS SPECIAL KILLING TAB
	IBP ALTP
	PUSH P,T3	;SAVE COUNT OF HOW FAR INTO LINE
	MOVE T3,(PNTR)	;SET UP CURRENT LINE
	MOVEM T3,CLN
	MOVE T3,CPG
	MOVEM T3,CPGL
	MOVE T2,[XWD LIBUF,LIBUF+1]	;CLEAR IT OUT
	SETZM LIBUF
	BLT T2,LIBUF+MXWPL+1	;WE WILL DO REPLACE HERE
	MOVE T2,PNTR	;GET THE POINTER TO THE LINE
	MOVE T3,(T2)	;PICK UP THE FIRST WORD
	MOVEI T4,LIBUF	;THE PLACE TO PUT IT
	JRST SBALT3	;TRANSFER
SBALT2:	SKIPE T3,(T2)
	TRNE T3,1	;IS IT THE END OF THE LINE
	JRST SBALT1
SBALT3:	MOVEM T3,(T4)	;PUT IT AWAY
	ADDI T4,1
	AOJA T2,SBALT2

SBALT1:	SUBI T4,LIBUF	;GET SIZE LINE USED TO BE
	MOVEM T4,OCNT
	POP P,CCNT	;GET THE NUMBER OF CHRS INTO LINE
	SKIPGE CCNT	;MUST BE .GE. 0
	SETZM CCNT
	SUBI ALTP,(PNTR)	;CONVERT POINTER TO LIBUF
	ADD ALTP,[XWD 70000,LIBUF]	;AND BACK UP ONE
NXTRPL:	SETZM PARCNT	;ZERO FOR NEXT REP
	LDB T1,[POINT 4,-1(T1),12]	;GET STRING NUMBER
	CAMLE T1,RSTRCT	;IS IT LARGER
	MOVE T1,RSTRCT	;THEN USE LAST
	MOVE T1,R2PNT(T1)
	MOVSI T4,70000	;DECREMENT POINTER
	ADDM T4,SRCALP
REPSTR:	ILDB C,T1	;GET THE NEXT CHR
	JUMPE C,ENDRP	;THE END OF THE REPLACE STRING
	CAIN C,""	;DOES HE WANT ONE OF THE PARTIAL THINGS
	JRST PARSTR	;YES, GO HANDLE THAT
	CAIN C,""	;CHECK FOR QUOTING NEXT CHR
	JRST INSQT
	CAIN C,""	;SEQUENTIAL PARTIAL
	JRST PARORD	;YES, GO HANDLE
PUTSTR:	IDPB C,ALTP	;PUT IN THE REPLACEMENT
	AOS C,CCNT	;ADVANCE COUNT
	CAIL C,MXWPL*5	;CHECK AGAINST MAX
	NERROR LTL	;AND LOSE
	JRST REPSTR
ENDRP:	MOVE T3,CCNT	;GET COUNT SO SEARCH CAN GO ON
	PUSH P,ALTP	;SAVE REPLACE POINTER
	PUSH P,SRCALP	;AND THE END OF INPUT POINTER
	MOVE ALTP,SRCALP	;CONTINUE FROM HERE
	ILDB T1,SRCALP	;SEE WHAT CHAR WE STOPPED ON
	CAIE T1,12	;HAVE WE GONE TOO FAR?
	PUSHJ P,COMSRT	;THIS WILL CONTINUE
	JRST FINLIN	;ALL DONE WITH MATCHES, FINISH UP
	CAIL T3,MXWPL*5	;ARE THERE TOO MANY?
	NERROR LTL
	POP P,T2
DOMOV:	ILDB C,T2	;MOVE THE CHRS THAT DID NOT MATCH
	CAMN T2,ALTP	;HAVE WE GOTTEN TO THE NEXT MATCH
	JRST DONMOV	;YES
	IDPB C,(P)	;THE BYTE POINTER IS STILL IN THE STACK
	JRST DOMOV
DONMOV:	MOVEM T3,CCNT	;PUT THE COUNT BACK IN CORE
	POP P,ALTP	;THIS IS NOW THE DEPOSIT POINTER
	JRST NXTRPL	;GO DO A REPLACE
FINLIN:	POP P,SRCALP	;GET SET TO MOVE TO END
	POP P,ALTP
	ILDB C,2(P)	;WE JUST HAPPEN TO KNOW ITS STILL THERE
	CAIE C,12	;IF SO WE HAVE EATEN A RETURN
	JRST ENDFIN	;ALL IS OK
FINL2:	MOVEI C,15
	SKIPA	;SO PUT IT IN
ENDFIN:	ILDB C,SRCALP
	IDPB C,ALTP
	AOS CS,CCNT
	CAIL CS,MXWPL*5
	NERROR LTL
	CAIE C,12
	JRST ENDFIN	;DONE WHEN WE SEE THE LINE FEED
	MOVEI T1,0	;ZERO OUT REST OF THIS LINE
DOZER:	TLNN ALTP,760000	;POINTER AT END OF LINE?
	JRST ZEROD
	IDPB T1,ALTP
	JRST DOZER
ZEROD:	SUBI ALTP,LIBUF	;MOVEI AC,1-LIBUF(AC)
	MOVEI ALTP,1(ALTP)	;GET COUNT
	MOVEM ALTP,NCNT
	TLNE FL,NOPRN	;DID HE WANT PRINTING SUPRESSED
	JRST NOPLIN
	MOVE	T2,CPG		;GET CURRENT PAGE
	TRNN	FL2,NONUMF	;DON'T PRINT IF NONUMBER
	CAMN	T2,RPPG		;OR PAGES MATCH
	SKIPA
	PUSHJ	P,PGPRN
	MOVE	T2,CPG
	MOVEM	T2,RPPG		;SET AS CURRENT PAGE
NOVCMD:	MOVEI T1,LIBUF		;PRINT THE LINE
	PUSHJ P,OUTLIN
	TLNN FL,DECID		;DOES HE WANT THE OPTION OF SAYING NO
	JRST NOPLIN		;NO, INSERT IT
NOVCM1:	INCHRW	T1		;WAIT FOR HIM TO TYPE SOMETHING
	ANDI	T1,177
	OCRLF
	CAIN	T1,177		;DID HE SAY RUBOUT(DON'T INSERT)?
	JRST	RPNXT1		;YES, JUST IGNORE THIS LINE
	CAIN	T1," "		;SPACE MEANS USE IT
	JRST	NOPLIN
	ANDI	T1,137		;FORCE UPPER CASE
	CAIE	T1,"Q"
	CAIN	T1,"E"		;DOES HE WANT OUT
	JRST	ENDREP		;YES: QUIT
 	CAIN	T1,"A"
	JRST	RPALT
	CAIN	T1,"G"		;GET OUT OF DECIDE MODE
	JRST	[TLZ FL,DECID	;LEAVE DECIDE MODE
		 JRST NOPLIN]
	CAIN	T1,"H"
	JRST	[OUTSTR	DECIDT
		 JRST NOVCMD]
	PUSH	P,FL2		;TEMP HACK
	TRZ	FL2,COMFLF	;SAY WE NEVER WANT IND CMND #
	RERROR	ILDC		;ILLEGAL CHARACTER
	POP	P,FL2		;RESTORE FLAGS
	OUTCHR	[7]		;DING
	CALL	CLRBFI		;CLEAR HIM OUT
	TRNE	FL,EXTOG	;SHORT ERROR MESSAGES?
	JRST	NOVCM1		;YES, WAIT FOR INPUT
	JRST	NOVCMD		;NO, TRY IT ALL AGAIN

DECIDT:	ASCIZ "Type one of:
SPACE bar  - To accept this substitution.
DELETE key - To reject this substitution.
A          - To do this substitution, then enter Alter mode.
E          - To return immediately to command mode without
             making the substitutions.
G          - To make this substitution, and further ones, 
             automatically.
H          - To type this help text.
"

NOPLIN:	PUSHJ	P,INSED		;ANYTHING ELSE IS OK
	PUSHJ	P,FINDN		;GET NEXT
	PUSHJ	P,FILLB		;IN CASE IT GOT LONGER
	SOSG	RPCNT		;SEE IF OUT OF COUNT
	JRST	COMND
	MOVE	T1,(PNTR)	;GET POINTER BACK
	JRST	ONREP

RPALT:	TRO	FL2,ADECIF	;SAY THIS IS AN "A" ANSWER
	MOVE	T1,OCNT		;SAVE COUNT
	ADDI	T1,LIBUF	;FAKE OUT SETALT
	PUSHJ	P,RPSALT
	PUSHJ	P,ALTN1		;DO ALTER
	JRST	ENDREP		;QUIT
	JRST	NOPLINE		;USE IT NOW
ASBMD1:	TROA FL,CNTF	;MARK AS KEEP END OF RANGE
ASBMDT:	TRZ FL,CNTF	;JUST IN CASE
	TLO FL,ASSMF	;WE ASSUME .+1
	MOVE T1,CLN
	MOVEM T1,LOLN	;SET FOR HERE TO ETERNITY
	MOVEM T1,HILN
	MOVE T1,CPGL
	MOVEM T1,LOPG
	TRZE FL,CNTF	;KEEP END?
	JRST NOSPSB
	CAIE C,":"	;IF A : OR A !
	CAIN C,"!"
	JRST HALFSB	;GET THE SECOND HALF (.+1 TO GIVEN)
	MOVSI T1,377777	;GET A LARGE PAGE
	MOVEM T1,HIPG
	MOVEI T1,1	;SET FOR ONLY ONE
	MOVEM T1,RPCNT
	JRST REP4	;ONWARD
HALFSB:	MOVEM T1,HIPG	;SET TO AS /.
	PUSHJ P,GET2HF	;GET THE SECOND HALF
	JRST REP4	;AND GO

NOSPSB:	MOVE T1,RPHIPG
	MOVEM T1,HIPG
	MOVE T1,RPHILN
	MOVEM T1,HILN
	JRST REP1A
INSQT:	ILDB C,T1	;GET NEXT CHR
	JUMPN C,PUTSTR	;MUST NOT BE 0
	NERROR IRS	;THIS STRING IS ILLEGAL

PARSTR:	MOVEI CS,0	;FIND OUT THE NUMBER
PARST1:	ILDB C,T1	;GET A CHR
	CAIN C,""	;CHECK FOR END
	JRST ENDNUM
	CAIL C,"0"	;MUST BE A DIGIT
	CAILE C,"9"
	NERROR IRS
	IMULI CS,^D10	;CONVERT
	ADDI CS,-"0"(C)
	JRST PARST1
ENDNUM:	CAILE CS,0
	CAMLE CS,ARBCNT	;IS IT IN RANGE
	NERROR IRS	;NO SUCH PARTIAL STRING
	MOVE T4,[POINT 7,ARBBUF]	;START LOOKING FOR IT
	SOJLE CS,FNDRST	;STARTS WITH STRING 1
NXTST:	ILDB C,T4
	JUMPN C,NXTST	;0 IS END OF A PARTIAL STRING
	SOJG CS,NXTST	;LOOK FOR CORRECT STRING
FNDRST:	ILDB C,T4	;NOW INSERT THAT STRING
	JUMPE C,REPSTR	;GO FINISH THE REPLACEMENT STRING
	IDPB C,ALTP
	AOS C,CCNT
	CAIL C,MXWPL*5
	NERROR LTL
	JRST FNDRST

PARORD:	AOS CS,PARCNT	;GET NEXT PARTIAL
	JRST ENDNUM

RPNXT1:	SOSG RPCNT
	JRST RPFND
RPNXT:	PUSHJ P,FINDN
	JRST ONREP	;CONTINUE LOOKING AT LINES

ENDREP:	TRZN FL,LINSN	;WERE THERE ANY?
	NERROR NLN
RPFND:	SKIPN FNDFLG	;FIND ANY?
	RERROR SRF	;NOPE
	JRST COMND	;GO ON

RPPAG:	AOS CPG	;JUST ADVANCE PAGE COUNTER
	JRST RPNXT




SUBTTL XPAND COMMAND

XPAND:	SETZM LOLN	;AS USUAL, A GOOD THING
	TRNE	FL,READOF	;CHECK R/O
	NERROR	ILC
	SETZM SSW	;CLEAR SWITCH
	PUSHJ P,GET2S	;THE RANGE
	CAIE C,","	;SWITCH
	JRST XPAND0
	PUSHJ P,SCAN
	MOVS T1,ACCUM
	CAIE T1,(<SIXBIT /S  />)
	NERROR ILC
	SETOM SSW	;SET TO SUPPRESS TYPEOUT
	PUSHJ P,SCAN
XPAND0:	TRNN FL,TERMF
	NERROR ILC
	TRZ FL,LINSN
	MOVE T1,LOPG
	MOVEM T1,DPG
	MOVE SINDEX,LOLN
	PUSHJ P,FIND
XPND1:	PUSHJ P,ONMOV	;STILL IN RANGE?
	JRST EXPEND
	TRO FL,LINSN
	CAMN T1,PGMK	;IGNORE THESE
	JRST PAGE
	SKIPE SSW	;SUPPRESS?
	TRO FL2,SUPN	;YES:
	MOVEM T1,CLN
	MOVE T1,CPG
	MOVEM T1,CPGL	;SET LINE AND PAGE
	PUSHJ P,SETALT	;SET THINGS UP
	MOVSI T2,1	;A LARGE COUNT
	PUSHJ P,ALTSP	;SPACES
	TRZ FL2,SUPN	;RESET SWITCH
	MOVEI T2,0
	PUSHJ P,[PUSHJ P,ALTIN
		 PUSHJ P,ALTN1
		 JRST LEVINS
		 AOS (P)
		 POPJ P, ]
	JRST LEVINS
	PUSHJ P,INSED	;PUT IN CHANGED LINE
EXPND2:	PUSHJ P,FINDN
	PUSHJ P,FILLB	;IN CASE OF OVERFLOW
	MOVE T1,(PNTR)	;GET BACK NEXT LINE
	JRST XPND1
PAGE:	AOS T2,CPG
	MOVEM T2,CPGL
	PUSHJ P,PGPRN	;SEE ALTER COMMAND
	MOVE T1,[<ASCII /00000/>!1]
	MOVEM T1,CLN
	JRST EXPND2
EXPEND:	TRNN FL,LINSN
	NERROR NLN
	JRST COMND
SUBTTL JOIN COMMAND
JOIN:	SETZM	LOLN	;AS USUAL
	TRNE	FL,READOF
	NERROR	ILC

JOIN1:	PUSHJ P,GET1S	;GET LINE NUMBER
	TRNN FL,TERMF
	NERROR ILC
	MOVE T1,HIPG
	MOVEM T1,DPG
	MOVE SINDEX,HILN	;FIND THE CORRECT LINE
	PUSHJ P,FIND
	MOVE T2,CPG
	MOVE T1,(PNTR)
	CAMN T2,HIPG
	CAME T1,HILN
	NERROR NLN
	MOVEM T2,CPGL
	MOVEM T1,CLN
	SETZM LIBUF	;TO ELIMINATE GARBAGE AT END OF LINE
	MOVE T1,[XWD LIBUF,LIBUF+1]
	BLT T1,LIBUF+MXWPL+1
	MOVE T2,PNTR	;GET THE POINTER TO THE LINE
	MOVE T3,(T2)	;PICK UP THE FIRST WORD
	MOVEI T4,LIBUF	;THE PLACE TO PUT IT
	JRST JSALT3	;TRANSFER
JSALT2:	SKIPE T3,(T2)
	TRNE T3,1	;IS IT THE END OF THE LINE
	JRST JSALT1
JSALT3:	MOVEM T3,(T4)	;PUT IT AWAY
	ADDI T4,1
	AOJA T2,JSALT2
JSALT1:	MOVEI T1,(T4)		;MOVEI T1,-LIBUF(T4)
	SUBI T1,LIBUF
	MOVEM T1,OCNT
	IMULI T1,5	;GET COUNT OF CHRS
	SUBI T1,6	;WE WILL HAVE TO FIND THE TRUE END
	SUBI T4,2
	HRLI T4,(<POINT 7,0,27>)	;SET UP POINTER
FEND1:	ILDB T2,T4
	CAIE T2,15
	AOJA T1,FEND1
	PUSH P,T1
	PUSHJ P,FINDN	;GET THE LINE TO JOIN IT TO
	CAME T1,PGMK
	SKIPN T1
	NERROR NNN	;NO LINE THERE TO CONNECT TO
	POP P,T2	;COUNT
	MOVEI T1,1(PNTR)
	HRLI T1,(<POINT 7,0,6>)	;SET TO POINT THERE
	ADD T4,[XWD 70000,0]
TRN1:	ILDB T3,T1
	IDPB T3,T4
	ADDI T2,1
	CAIL T2,MXWPL*5+6
	NERROR LTL
	CAIE T3,12
	JRST TRN1
	SUBI T1,-1(PNTR)
	PUSH P,OCNT
	HRRZM T1,OCNT	;SIZE OF OLD SECOND LINE
	SETZM NCNT
	PUSHJ P,INSED
	PUSHJ P,FINDB	;BACK UP
	POP P,OCNT	;GET ITS SIZE
	SUBI T4,LIBUF-1
	HRRZM T4,NCNT
	PUSHJ P,INSED
	JRST COMND

SUBTTL INDIRECT COMMAND
;INPUT ROUTINE FOR COMMAND FILE

RDCHAR:	PUSH	P,T1		;SAVE REGS
	PUSH	P,T2
RDCHR1:	MOVE	T1,INDJFN	;GET INPUT JFN
	BIN			;READ CHAR
	JUMPE	T2,INDEOF	;CHECK EOF
	MOVE	C,T2		;CHAR TO C
	JRST	POPRET		;COMMON EXIT

INDEOF:	GTSTS			;GET FILE STATUS
	TLNN	T2,(GS%EOF)	;REAL EOF?
	JRST	RDCHR1		;NO - SKIP NULLS
	MOVE	T1,SVCCIN	;RESTORE INPUT ROUTINE
	MOVEM	T1,CHIN
	TRZ	FL2,COMFLF	;NO LONGER INDIRECT
	MOVE	T1,INDJFN	;RELEASE WORLD
	CLOSF
	  FJERR
	HRROI	T1,[ASCIZ "%End of Indirect file.
"]
	PSOUT			;(215) TELL USER INDIRECT FILE'S DONE
	SETZM	INDJFN		;(222) CLEAR JFN STORAGE
	JRST	COMND		;(215) AND GO GET NEXT COMMAND FROM USER
;	NERROR	CMEND		;(215) OLD METHOD LOST TYPEAHEAD

;HANDLE @ COMMAND - READ COMMANDS FROM FILE

COMFIL:	TRNE	FL2,COMFLF	;TRYING TO NEST?
	NERROR  ILC
	CALL	GNCH		;PEEK AT NEXT CHAR
	CAIN	C,200		;AOK IF ESC
	JRST	COMFL1		;...
	AOS	TTICNT		;NO - BACK UP PNTRS
	MOVE	T1,TTIPNT
	ADD	T1,[7B5]
	MOVEM	T1,TTIPNT
COMFL1:	MOVSI	T1,(GJ%OLD!GJ%CFM) ;EXISTING FILE ONLY
	MOVEI	ALTP,INDBLK	;POINT TO BLOCK
	HRROI	T2,[ASCIZ "CMD"] ;DEFAULT EXTN
	TLO	FL2,EXCPFL	;(207) SET FLAG ITS A COPY
	CALL	READNE		;FILL IT
	  JRST	COMND		;ERROR
;**;[247]	Change 1 line at COMFL1:+6		DML	23-NOV-82
	  JRST	CTLUAB		;[247] ^U RETURN
	CALL	CKTERM		;GRNTEE EOL
	 NERROR	ILC
	MOVE	T1,INDJFN	;USE JFN
	MOVE	T2,[7B5+OF%RD]	;OPEN FOR INPUT
	OPENF
	  JERROR		;JSYS LOSAGE
	MOVE	T1,[ASCII /00000/]	;SET UP CMD COUNT
	MOVEM	T1,COMCNT
	TRO	FL2,COMFLF
	MOVEI	T1,RDCHAR	;SET UP INPUT ROUTINE
	EXCH	T1,CHIN		;AND SAVE CURRENT
	MOVEM	T1,SVCCIN
	JRST	COMND
	SUBTTL	DISPLAY TERMINAL INFO

;CURSOR UP FUNCTION

;**;[256]Add 7 lines at CURUP+9L		DEE	14-JUL-86
CURUP:
   REPEAT ^D10,<	;TYPES 0-9 ARE NON-DPY
	JFCL
   >
	OUTSTR [BYTE (7)32,177,177,177] ;VT05
	OUTSTR [BYTE (7)33,"A"]		;VT50
	JFCL				;LA30
	OUTSTR [BYTE (7)32,177,177,177]	;GT40 (VT05)
	JFCL				;LA36
	OUTSTR [BYTE (7)33,"A"]		;VT52
	OUTSTR [BYTE(7)33,"[","A"]	;VT100
	JFCL				;LA38
	JFCL				;LA120
   REPEAT ^D17,<
	JFCL
   >					;[256]RESERVED
	OUTSTR [BYTE(7)33,"[","A"]      ;[256]VT125
	OUTSTR [BYTE(7)33,"[","A"]	;[256]VK100
	OUTSTR [BYTE(7)33,"[","A"]	;[256]VT102
	JFCL				;[256]RESERVED
	OUTSTR [BYTE(7)33,"[","A"]	;[256]VT131
	OUTSTR [BYTE(7)33,"[","A"]	;[256]VT200-SERIES



;CRLF IF NOT A DPY

;**;[256]Add 7 lines at CRLF+10L		DEE	14-JUL-86
CRLF:	REPEAT ^D10,<
	OCRLF
    >
	JFCL				;VT05
	JFCL				;VT50
	OCRLF				;LA30
	JFCL				;GT40
	OCRLF				;LA36
	JFCL				;VT52
	JFCL				;VT100
	OCRLF				;LA38
	OCRLF				;LA120
	REPEAT ^D17,<
	JFCL	
    >					;[256]RESERVED
	JFCL				;[256]VT125
	JFCL				;[256]VK100
	JFCL				;[256]VT102
	JFCL				;[256]RESERVED
	JFCL				;[256]VT131
	JFCL				;[256]VT200-SERIES


;LINE-FEED IF NOT A DPY

;**;[256]Add 7 lines at LFD+10L		DEE	14-JUL-86
LFD:	REPEAT ^D10,<
	12
    >
	0				;VT05
	0				;VT50
	12				;LA30
	0				;GT40
	12				;LA36
	0				;VT52
	0				;VT100
	12				;LA38
	12				;LA120
	REPEAT ^D17,<			
	0
    >					;[256]RESERVED
	0				;[256]VT125
	0				;[256]VK100
	0				;[256]VT102
	0				;[256]RESERVED
	0				;[256]VT131
	0				;[256]VT200-SERIES



;TERMINAL TYPE NAME TABLE

;**;[256]Add 22 lines at TTYPE:+18L		DEE	14-JUL-86
TTYPE:	Z [ASCIZ "M33"]
	Z [ASCIZ "M35"]
	Z [ASCIZ "M37"]
	Z [ASCIZ "TI"]
	Z [ASCIZ "UNDEFINED"]
	Z [ASCIZ "UNDEFINED"]
	Z [ASCIZ "UNDEFINED"]
	Z [ASCIZ "UNDEFINED"]
	Z [ASCIZ "DEFAULT"]
	Z [ASCIZ "IDEAL"]
	Z [ASCIZ "VT05"]
	Z [ASCIZ "VT50"]
	Z [ASCIZ "LA30"]
	Z [ASCIZ "GT40"]
	Z [ASCIZ "LA36"]
	Z [ASCIZ "VT52"]
	Z [ASCIZ "VT100"]
	Z [ASCIZ "LA38"]
	Z [ASCIZ "LA120"]
	Z [ASCIZ "UNDEFINED"]	;[256]
	Z [ASCIZ "UNDEFINED"]	;[256]
	Z [ASCIZ "UNDEFINED"]	;[256]
	Z [ASCIZ "UNDEFINED"]	;[256]
	Z [ASCIZ "UNDEFINED"]	;[256]
	Z [ASCIZ "UNDEFINED"]	;[256]
	Z [ASCIZ "UNDEFINED"]	;[256]
	Z [ASCIZ "UNDEFINED"]	;[256]
	Z [ASCIZ "UNDEFINED"]	;[256]
	Z [ASCIZ "UNDEFINED"]	;[256]
	Z [ASCIZ "UNDEFINED"]	;[256]
	Z [ASCIZ "UNDEFINED"]	;[256]
	Z [ASCIZ "UNDEFINED"]	;[256]
	Z [ASCIZ "UNDEFINED"]	;[256]
	Z [ASCIZ "UNDEFINED"]	;[256]
	Z [ASCIZ "UNDEFINED"]	;[256]
	Z [ASCIZ "VT125"]	;[256]
	Z [ASCIZ "VK100"]	;[256]
	Z [ASCIZ "VT102"]	;[256]
	Z [ASCIZ "UNDEFINED"]	;[256]
	Z [ASCIZ "VT131"]	;[256]
	Z [ASCIZ "VT200-SERIES"] ;[256]

MXTRM=.-TTYPE-1				;MAX TERMINAL TYPE

DFTRM=^D8				;DEFAULT
SUBTTL LITERALS
XLIST
LIT		;CLEAR ALL LITERALS
LIST
SUBTTL IMPURE AREA
;IMPURE SECTION IS DIVIDED INTO TWO AREAS
;1) DATA WHICH IS SEMI CONSTANT
;2) DATA WHICH IS INITIALLY ZEROED

DATAB:
;**;[245]	Insert 58 lines after DATAB:+0		DML	10/21/82

INIFDB:	BYTE (9).CMINI		;[245] INITIALIZATION FUNC. DESC. BLOCK (FDB)
	Z			;[245]
	Z			;[245]
	Z			;[245]
	Z			;[245]

KWFDB:	<BYTE (9).CMKEY>+CM%DPP ;[245] KEYWORD FDB
	CMDTAB			;[245] ADDRESS OF COMMAND TABLE
	Z			;[245]
	-1,,[ASCIZ/EDIT/]	;[245] POINTER TO DEFAULT COMMAND
	Z			;[245]

NOIFDB:	BYTE (9).CMNOI		;[245] NOISE FDB
	Z			;[245]
	Z			;[245]
	Z			;[245]
	Z			;[245]

IFFDB:	<BYTE (9).CMIFI>+OFFDB	;[245] INPUT FILESPEC FDB (LINK TO OFFDB)
	Z			;[245]
	Z			;[245]
	Z			;[245]
	Z			;[245]

OFFDB:	BYTE (9).CMOFI		;[245] OUTPUT FILESPEC FDB
	Z			;[245]
	Z			;[245]
	Z			;[245]
	Z			;[245]

CONFDB:	BYTE (9).CMCFM		;[245] CONFIRMATION FDB
	Z			;[245]
	Z			;[245]
	Z			;[245]
	Z			;[245]

CBUFSZ==^D200			;[245] COMMAND BUFFER SIZE
ABUFSZ==^D50			;[245] ATOM BUFFER SIZE

;**;[253]  Replace 3 lines with 4 at CMDTAB:+0		DML	20-Nov-84
CMDTAB:	3,,3			;[253][245] # OF ENTRIES,,MAX # OF ENTRIES
	[ASCIZ/CREATE/],,1	;[253][245] CREATE COMMAND ENTRY
	[ASCIZ/EDIT/],,0	;[253][245] EDIT COMMAND ENTRY
	[ASCIZ/PERUSE/],,2	;[253] PERUSE COMMAND ENTRY

CMDBLK:	CM%RAI+INPAR		;[245] COMMAND BLOCK FOR PARSE
	.PRIIN,,.PRIOU		;[245] INPUT JFN,,OUTPUT JFN
	-1,,[ASCIZ/Retype command: /]  ;[245] PROMPT TEXT (CTRL/R TEXT)
	-1,,CMDBUF		;[245] START OF TEXT
	-1,,CMDBUF		;[245] NEXT INPUT TO BE PARSED
	5*CBUFSZ-1		;[245] SPACE LEFT IN BUFFER
	0			;[245] UNPARSED CHARACTERS
	-1,,ATMBUF		;[245] ATOM BUFFER LOCATION
	5*ABUFSZ-1		;[245] SIZE OF ATOM BUFFER
	GTJBLK			;[245] LOCATION OF GTJFN BLOCK FOR COMND

ATMBUF:	BLOCK ABUFSZ		;[245] ATOM BUFFER
GTJBLK:	BLOCK 17		;[245] GTJFN BLOCK FOR COMND
;**;[253]  Replace 1 line with 2 at CMDFLG:+0		DML	20-Nov-84
CMDFLG: BLOCK 1			;[253][245] COMMAND FLAG 
				;[253] (1=CREATE,0=EDIT,2=PERUSE)

TEXTIB:	EXP	6		;LENGTH OF BLOCK
	RD%TOP!RD%JFN		;FLAGS
	.PRIIN,,.PRIOU		;INPUT,,OUTPUT
	-1,,TTIBUF		;BUFFER PNTR
	5*20			;CHAR COUNT
	-1,,TTIBUF		;TOP OF BUFFER
	-1,,CRBUF		;CONTROL-R BUFFER

CJFNBK:	Z			;BLOCK FOR GTJFN
	.PRIIN,,.PRIOU		;JFNS
	Z			;DEVICE
	Z			;DIRECTORY
	Z			;NAME
	Z			;EXTENSION
	Z			;PROTECTION
	Z			;ACCOUNT
	Z			;DESIRED JFN
	G1%RBF!G1%RND+4		;FLAGS,,LEN
	Z			;COPY BUFFER PNTR
	Z			;COPY BUFFER COUNT
	-1,,CRBUF		;^R BUFFER
	-1,,TTIBUF		;TOP OF BUFFER

IFN EXTEND,<
LSBUFN: 	LSNUM
LSPTR:
	I==0
REPEAT LSNUM,< POINT 7,LSBUF+<SRBLG/5+2>*I
	I==I+1
>
LSPTT:
	I==0
REPEAT LSNUM,< EXP LSPNT+SRNUM*I
	I==I+1
>
>
PGMK:	<ASCII /     />!1
PGMKW2:	BYTE (7)15,14,0,0,0
SQBUF:	BLOCK 1
	ASCII /	/

ASCZ1: ASCII /INC1=/
PRNTO1: EXP	0
	ASCIZ /
/
ASCIZ2: ASCII /Inc2=/
PRNTO2: EXP	0
	ASCIZ /
/

;STUFF FOR JUSTIFICATION

PAGESZ:	EXP	PGSZ
PLINES:		20	;DEFAULT VALUE FOR P CMD
ESC:		33	;DEFAULT ESCAPE CHAR
COMESS: ASCII /COMMAND # /
COMCNT:  EXP	0
	BYTE (7) 15,12
LINOUT:  EXP	0
	  ASCIZ ./.

;CONTROL BLOCK FOR CNTRL C TRAPPING

CNCLOK:	-1		;INTERLOCK FOR RE-ENTRANT HANDLING

;PSI TABLES

RETSAV:	0		;INTERRUPT PC

LEVTAB:	0,,RETSAV	;PSI-LEVEL TABLE
	0
	0

CHNTAB:	BLOCK 3		;0 TO 2
TRPCHN==.-CHNTAB
	1,,TRAP		;CTRL-C HAS OWN CHANNEL
	BLOCK 5		;4 TO 8
	1,,PDLTRP	;9-PDL OVERFLOW
	BLOCK 2		;10 - 11
	1,,DSKTRP	;12 - QUOTA EXCEEDED
	BLOCK 7		;13 - 19
	1,,DSKTRP	;20-MACHINE SIZE EXCEEDED (QUOTA ALSO)
	BLOCK	^D15	;21 TO 35

ONCHAN:	1B<TRPCHN>+1B<.ICPOV>+1B<.ICQTA>+1B<.ICMSE> ;CHANNELS TO BE ACTIVATED

;MACRO TO GENERATE FILE-SPEC BLOCKS

JFN==0		;JFN ASSIGNED TO THIS SPEC
FIL==1		;POINTER TO FILESPEC
COD==2		;ENCRYPTION PSW
ASZ==3		;ASCIZ STRING FOR FILESPEC

	DEFINE FILDES (F) <
	IRP F,<
F'BLK==.
F'JFN:	BLOCK	1
F'FIL:	BLOCK	1
F'COD:	BLOCK	1
F'ASZ:	BLOCK	FILSIZ
F'BKE==.-1>>
;REST IS RANDOM VARIABLES AND BUFFERS


ZEROB==.
PNOARG:	BLOCK	1	;(195) 0=LAST CMND NOT P W/ NO ARGS
			;(195) NOT 0= WAS P W/ NO ARGS
BAKF:	BLOCK	1	;0 := NOBACKUP , -1 := BAK , +1 := OLD
CREATF:	BLOCK	1
SVWD:	BLOCK	1
SVWD2:	BLOCK	1
SVWD3:	BLOCK	1
SVSEQN:	BLOCK	1		;SAVED SEQUENCE NUMBER FOR ORDCHK
TMPT1:	BLOCK	1
MODW:	BLOCK	1	;PLACE TO SAVE TERMINAL MODE WORD (RFMOD)
COCW1:	BLOCK	1	;PLACE TO SAVE RFCOC WORDS
COCW2:	BLOCK	1	;...
UNSEQF:	BLOCK	1
RPGSW:	BLOCK	1
PZBEG==.
IFN CRYPSW,<
CODBUF: BLOCK	10
>
FILDES <ORG,NEW,ICR,OCR,IND,ALT>

PZEND==.-1
FILDES <RUN>

ORGPRT:	BLOCK	1		;PROTECTION OF ORIGINAL FILE
GJBITS:	BLOCK	1	;BITS FOR GTJFN OF INPUT FILE
OPNJFN:	BLOCK	1	;SAVED JFN FOR OPENF RECOVERY
LPTJFN:	BLOCK	1		;JFN FOR L COMMAND
OPTJFN:	BLOCK	1		;JFN FOR OPTION FILE
NOCTLC:	BLOCK	1		;CTRL-C ON/OFF FLAG
ERCOD:	BLOCK	1	;LAST JSYS LOSAGE
DTYPE:	BLOCK	1	;TERMINAL TYPE CODE
BUFP:	BLOCK	1	;POINTER TO CURRENT LOC IN EDIT BUFFER
SSW:	BLOCK	1
RSW:	BLOCK	1
CORTOP:	BLOCK	1
FILPT:	BLOCK	1
MAXWC:	BLOCK	1	;MAX FULL POINT IN EDIT BUFFER
HLFWC:	BLOCK	1	;HALF FULL POINT IN EDIT BUFFER
CLN:	BLOCK	1	;CURRENT LINE
INCR:	BLOCK	1
ISVINC:	BLOCK	1	;SAVED TEMPORARY INCR. FOR INSERT
CURINS:	BLOCK	1
CPG:	BLOCK	1	;CURRENT PAGE
CPGL:	BLOCK	1	;LOGICAL CURRENT PAGE "/."
IPG:	BLOCK	1	;INSERT PAGE
INPG:	BLOCK	1	;CURRENT INPUT PAGE SEEN
OPG:	BLOCK	1	;COUNT OF PAGES OUTPUT
WC:	BLOCK	1	;WORD COUNT IN EDIT BUFFER
OLDLIN:	BLOCK	1
SSAVEN:	BLOCK	1
SAVEN:	BLOCK	1
SISAVN:	BLOCK	1
ISAVEN:	BLOCK	1
ALTSN:	BLOCK	1	;ALTMODE SEEN FLAG (I&R)
ALTINC:	BLOCK	1	;ALTER MODE I CMD INCR
ALTFLG:	BLOCK	1
CASEBT:	BLOCK	1
BGPG:	BLOCK	1
ACCUM:	BLOCK	1
SVERN:	BLOCK	1
SAVCHR:	BLOCK	1
TECINC:	BLOCK	1
TECFST:	BLOCK	1
TEMINC:	BLOCK	1
REINC:	BLOCK	1
INCST:	BLOCK	1
REFST:	BLOCK	1
ALTCNT:	BLOCK	1
LOGPG:	BLOCK	1
LSTCNT:	BLOCK	1
SVCCNT:	BLOCK	1
SAVC:	BLOCK	1
IFN EXTEND,<
LSHIPG:	BLOCK	1
LSHILN:	BLOCK	1
LSCNT:	BLOCK	1
LSPG:	BLOCK	1
LSBUF:	BLOCK	<SRBLG/5+2>*LSNUM
LSPNT:	BLOCK	SRNUM*LSNUM
>
LIMBO:	BLOCK	1	;LIMBO CHAR AFTER BELL
CHIN:	BLOCK	1	;INPUT PNTR
SVCCIN:	BLOCK	1	;SAVED INPUT ROUTINE FOR @ CMDS
SVPCIN:	BLOCK	1	;SAVED INPUT ROUTINE FOR PARSE
TTOBUF:	BLOCK	^D200/5+1
TTOCNT:	BLOCK	1	;OUTPUT CNTR
TTOPNT:	BLOCK	1	;OUTPUT PNTR
TTICNT:	BLOCK	1	;INPUT CNTR
TTIPNT:	BLOCK	1	;INPUT PNTR
CRBUF:	BLOCK	2	;CONTROL-R BUFFER
FSFLG:	BLOCK	1	;PROMPT INFO/FLAG FOR F & S COMMANDS

AIPB:			;ALT INPUT BLOCK
AIPJFN:	BLOCK	1	;JFN
AIPCNT:	BLOCK	1
AIPBYT:	BLOCK	1
AIPTXT:	BLOCK	1
AIPPNT:	BLOCK	1
AIPFSZ:	BLOCK	1
AIPBUF:	BLOCK	1

CIPB:
CIPJFN:	BLOCK	1
CIPCNT:	BLOCK	1
CIPBYT:	BLOCK	1
CIPTXT:	BLOCK	1
CIPPNT:	BLOCK	1
CIPFSZ:	BLOCK	1
CIPBUF:	BLOCK	1

IJFN==0
CNT==1
BYT==2
TXT==3
PNT==4
FSZ==5
BUF==6

OUPNT:	BLOCK	1	;OUTPUT BUFFER PNTR
OPCNT:	BLOCK	1	;OUTPUT PAGE # CNTR
AUXFLG:	BLOCK	1
PDL:	BLOCK	PDLSIZ+1	;PUSHDOWN LIST
P.TEXT: BLOCK	1
NPAGS:	BLOCK	1		;EDIT WINDOW SIZE
DEVSTR:	BLOCK	20		;BUFFER FOR OUTPUT DEV:<STR>
DEVST2:	BLOCK	20		;(197)
SAMDEV:	BLOCK	1		;(197)
TEMPS:	BLOCK	2		;VERY TEMPORARY STORAGE
CMDBUF==LIBUF			;COMMAND BUFFER
CRSX==LIBUF+777		;PLACE FOR CR'S
SVPT:	BLOCK	1
CODEBF:	BLOCK	4*SRNUM+2
BUFSAV:	BLOCK	1
ARBCNT:	BLOCK	1
SRHIPG: BLOCK	1
SRHILN: BLOCK	1
SRCNT:	BLOCK	1
SRBUF:	BLOCK	SRBLG/5+2
SRPG:	BLOCK	1
SRPNT:	BLOCK	SRNUM
BOTLIN:	BLOCK	1
PGDELS:	BLOCK	1
STARTD:	BLOCK	1	;WHERE TO START TO DELETE ON TRANSFER
ENDD:	BLOCK	1	;WHERE TO END DELETING ON TRANSFER
TRANST:	BLOCK	1
PGINSD:	BLOCK	1
DESTLN:	BLOCK	1
DESTPG:	BLOCK	1
FINCR:	BLOCK	1
SINCR:	BLOCK	1
SVLNUM:	BLOCK	1
LSTPG:	BLOCK	1
COPDL:	BLOCK	1
HIGH1:	BLOCK	1
NLIN1:	BLOCK	1	;# OF LINES ON FIRST PAGE OF C/T
NLIN2:	BLOCK	1	;# OF LINES ON LAST PAGE OF C/T
START2:	BLOCK	1	;STARTING LINE # FOR LAST PG OF C/T
LSTLN:	BLOCK	1	;LAST LINE # SEEN DURING C/T
PARCNT:	BLOCK	1
RPPG:	BLOCK	1
RPCNT:	BLOCK	1
FNDFLG:	BLOCK	1
R1BUF:	BLOCK	SRBLG/5+2
R2BUF:	BLOCK	SRBLG/5+2
RPHILN:	BLOCK	1
RPHIPG:	BLOCK	1
R1PNT:	BLOCK	SRNUM
R2PNT:	BLOCK	SRNUM
CCNT:	BLOCK	1
RSTRCT:	BLOCK	1
SVOCIN:	BLOCK	1
OPTION:	BLOCK	1
SVALTP:	BLOCK	1
DPG:	BLOCK	1
SVINC:	BLOCK	1
SVCNT:	BLOCK	1
OCNT:	BLOCK	1	;OLD WC FOR INSED
NCNT:	BLOCK	1	;NEW WC FOR INSED
SRCALP:	BLOCK	1
VAR		;IF ANY (I HOPE THIS WORKS)
ZEROE==.-1
HILN:	BLOCK	1	;RESULTS OF RANGE PARSE
HIPG:	BLOCK	1	; <LOLN>/<LOPG>:<HILN>/<HIPG>
LOLN:	BLOCK	1
LOPG:	BLOCK	1

ECFLG:	BLOCK	1		;(194) ECHO FLAG
USEIND:	BLOCK	1	;IF WE WERE IN IND FILE AT TIME OF CKIND

EPAT::
IMPEND:


	END	3,,EV		;POINT TO ENTRY VECTOR