	.TITLE EDIT15  ( EDIT#034   12-26-73)
/ 
/ 
/                   FIRST PRINTING, FEBRUARY 1974
/ 
/ THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
/ CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED
/ AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION.
/ DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPON-
/ SIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS
/ DOCUMENT.
/ 
/ THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FUR-
/ NISHED TO THE PURCHASER UNDER A LICENSE FOR USE ON
/ A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH
/ INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR 
/ USE IN SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PRO-
/ VIDED IN WRITING BY DIGITAL.
/ 
/ DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
/ FOR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIP-
/ MENT THAT IS NOT SUPPLIED BY DIGITAL.
/ 
/ COPYRIGHT (C) 1974, BY DIGITAL EQUIPMENT CORPORATION
/ 
/ 
        .EJECT
/COPYRIGHT 1971,1972,1973 DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
/PDP-9/15 TEXT EDITOR, VERSION 20A.
/
/LAST EDIT NUMBER 033   DATE OF LAST EDIT DEC 26,1973
/E. MARISON
/R. MCLEAN - RSX-15
/M. HEBENSTREIT
/
/
/
/THIS PROGRAM CONTAINS A 37(8) PATCH
/AREA STARTING AT "PATCHF" AND ENDING
/AT "PATCHL". THIS AREA IS TO BE USED
/FOR PATCHING, WHEN THE PROGRAM IS MADE INTO
/A SYSTEM FILE WITH THE PATCH LOADER
/
/
/
///
///	THIS SOURCE CAN PRODUCE THE FOLLOWING VERSIONS
///
///	VP STORAGE SCOPE VERSION
///	VT15 DISPLAY VERSION
///	STANDARD TEXT EDITOR
///	RSX VERSION
///
/ASSEMBLY PARAMETER ASSIGNMENTS:
/*** THIS SOURCE IS MADE TO PRODUCE A BINARY
/*** FILE WHICH IS MADE INTO A CORE IMAGE
/*** SYSTEM FILE WITH "PATCH"
/
/*** TO GET A BIN FILE WHICH WILL RUN
/*** UNDER THE LINKING LOADER OR DDT
/*** BIN=0  MUST BE DEFINED
/
/   I. FOR THE DOS -15 VERSION
/	NO PARAMETERS NEEDED
/	FOR THE KEYBOARD MONITOR (KM9/15 V5A)
/	DEFINE KMV5A=0 OR ADSS=0
/	FOR THE VT15 VERSION
/	    EDITVT=0
/	MUST BE DEFINED
/	FOR THE VP STORAGE SCOPE VERSION
/	    EDITVP=0
/	MUST BE DEFINED
/
/	THE STD TEXT EDITOR VERSION IS THE DEFAULT
/
/  II.  PAPER TAPE SYSTEMS
/	A. PTP=1.
/	B.  .DAT=N WHERE N IS THE VALUE OF
/	.DAT IN THE OBJECT SYSTEM.
/       NO OTHER PARAMETER ASSIGNMENTS ARE ALLOWED.
/
/  III.	FOR THE RSX VERSION
/	A. RSX=0
/	B. DATN=X WHERE N CORRESPONDS TO THE ADVANCED MONITOR
/		DATSLOTS AND X IS THE LUN SLOT
/	C. *** NOTE EDITVT AND NONEAE ARE ILLEGAL ***
/	   *** ALSO EDITOR ***
/	D. COPY=N WHERE N IS THE COPY NUMBER OF THIS EDITOR
/		IN A MULTIPLE EDITOR SYSTEM. DEFAULT IS 1.
/		COPY*2 IS ADDED TO THE TEMPORARY FILE NAMES
/		TO ELIMINATE SIMULTANEOUS TEMPORARY FILE REFERENCES.
/		COPY=2 USES ".TFIL3 EDT" AND ".TFIL4 EDT" TEMP FILES.
/
/   IV.	IF OBJECT MACHINE DOES NOT HAVE EAE
/	THEN NONEAE=0 MUST BE DEFINED.
/
/
///	.ABS
///  ORIGIN-SETTING STATEMENTS WERE DELETED TO MAKE THIS DISPLAY
/// EDITOR RELOCATABLE AND LINK-LOADABLE. THE '.IODEV' STATEMENT WAS
/// INSERTED, ADDING .DAT SLOT 10 FOR THE DISPLAY.
///	.LOC BANK*20000+EDSTRT
/
/
	.IFUND RSX
	.EBREL
/
/*** CALCULATE THE OFFSET ADDRESS TO BE USED WHEN ***
/*** MAKING THIS RELOCATABLE PROGRAM INTO A SYSTEM ***
/*** FILE (CORE IMAGE) WITH THE PATCH LOADER. ***
/
/ *** COMMAND STRING
/ *** READR OFFSET PGM NAME
/
	.IFUND BIN
/
DELTA=LAONCE-LABUF
OFFSET=017636+DELTA
/
	.ENDC
/LABUF = LAST ARRD OF BUFFER AREA
/LAONCE = LAST ADDR OF ONCE ONLY CODE
/017636 = 1'ST FREE ADDR BELOW BOOTSTRAP
/
/
	.IFDEF ADSS
KMV5A=0
	.ENDC
	.IFUND KMV5A
	.IFUND PTP
DOS15=0
	.ENDC
	.ENDC
	.IFUND .DAT
.DAT=141
	.ENDC
	.IFUND PTP
BULKST=1
	.ENDC
	.IFUND EDITVP
	.IFUND EDITVT
EDITOR=0
	.ENDC
	.ENDC
	.IFUND NONEAE
EAE=0
	.ENDC
	.IFUND PTP
	.IFDEF EDITVP
	.IODEV	-10,-14,-15,10	/DAT SLOT 10: VP09 DISPLAY
	.ENDC
	.IFUND EDITVP
	.IODEV -10,-14,-15
	.ENDC
TTICAL=2776		/DAT SLOT -2: KEYBOARD INPUT
TTOCAL=2775		/DAT SLOT -3: TELEPRINTER OUTPUT
INPCAL=2764		/DAT SLOT -14: EDIT FILE INPUT
OUTCAL=2763		/DAT SLOT -15: EDIT FILE OUTPUT
IN2CAL=2770		/DAT SLOT -10: AUXILIARY INPUT
OPOCAL=1763		/DAT SLOT -15: OPEN OUTPUT FILE
OPICAL=0764		/DAT SLOT -14: OPEN INPUT FILE
DATM14=.DAT-14			/ABSOLUTE DAT -14.
DATM15=.DAT-15			/ABSOLUTE DAT -15.
	.ENDC
	.IFDEF PTP
	.IODEV 3,5,6,10
TTICAL=2776		/DAT SLOT -2: KEYBOARD INPUT.
TTOCAL=2775		/DAT SLOT -3: TELEPRINTER OUTPUT.
INPCAL=2003		/DAT SLOT 3: EDIT FILE INPUT.
OUTCAL=2005		/DAT SLOT 5: EDIT FILE OUTPUT.
IN2CAL=2006		/DAT SLOT 6: AUXILIARY INPUT.
OPOCAL=1005		/DAT SLOT 5: OPEN OUTPUT FILE.
OPICAL=3			/DAT SLOT 3: OPEN INPUT FILE.
DATM14=.DAT+3		/ABSOLUTE DAT 3.
DATM15=.DAT+5		/ABSOLUTE DAT 5.
	.ENDC
.SCOM=100			/SYSTEM COMMUNICATION AREA.
	.ENDC
BUFLEN=46			/READ-WRITE LINE BUFFER SIZE.
	.IFDEF	RSX
X10=10	/AUTO XR 10
BULKST=0
EAE=0
DOS15=0
BIN=0		/SO WE WILL GET BUFFERS INCLUDED IN PGM SIZE
EDITVP=0
ECLA=641000
	.IFUND	DAT15
DAT15=22
	.ENDC
	.IFUND	DAT14
DAT14=21
	.ENDC
	.IFUND	DAT10
DAT10=24
	.ENDC
	.IFUND	DATP10
DATP10=20
	.ENDC
	.IFUND	DAT3
DAT3=25
	.ENDC
	.IFUND	DAT2
DAT2=25
	.ENDC
	.IFUND COPY
COPY=1
	.ENDC
	.ENDC
	.IFDEF RSX
	.IFDEF EDITVT
	.END	ILLEGAL PARAMETER COMBINATION
	.ENDC
	.IFDEF EDITOR
	.END	ILLEGAL PARAMETER COMBINATION
	.ENDC
	.IFDEF KMV5A
	.END	ILLEGAL PARAMETER COMBINATION
	.ENDC
	.IFDEF NONEAE
	.END	ILLEGAL PARAMETER COMBINATION
	.ENDC
	.ENDC
	.IFDEF EDITVP
	.IFDEF EDITOR
	.END	ILLEGAL PARAMETER COMBINATION
	.ENDC
	.IFDEF EDITVT
	.END	ILLEGAL PARAMETER COMBINATION
	.ENDC
	.ENDC
	.IFDEF EDITOR
	.IFDEF EDITVT
	.END	ILLEGAL PARAMETER COMBINATION
	.ENDC
	.ENDC
	.TITLE INITIALIZE VARIABLES,INPUT & EDIT MODE PROC.
LINSIZ=BUFLEN-2/2*5+1	/MAXIMUM CHARACTERS PER LINE.
QUESMK=77			/QUESTION MARK.
NUM	0		/TEMP STORAGE
BEGIN	JMP SETBNK	/SET EPC BITS FOR CURRENT BANK.
	.IFUND	RSX
	TTOCAL		/INITIALIZE TELETYPE.
ONE	1		/..
ADR001	RECOUP		/RETURN FROM CONTROL P.
LOOPCT	0		/TEMPORARY STORAGE.
POINTR=LOOPCT		/..
	.ENDC
	.IFDEF	RSX
	LAC	(DAT15)
	JMS	ATTACH
	LAC	(DAT14)
	JMS	ATTACH
	.ENDC
	LAC NOPLIT	/CLEAR EXIT SWITCHS
	DAC EXITSW
	DAC EXITRQ
	DZM MOVESW
	DZM INPSW
	DZM BUFEMP
	DZM OUTPSW	/SET OUTPUT AND
/	DZM VERISW	/VERIFY TO "ON". LEAVE ALONE FOR TV
ALTMOD	175\777777	/1'S COMPLEMENT ALT MODE TERMINATOR.
	DAC PBLKSW	/TURN OFF BLOCK MODE.
	DAC GBLKSW	/..
	DAC BRFSW		/SET BRIEF TO OFF.
	DAC OPEN		/ALLOW USE OF OPEN AND
	DAC CALL		/CALL SEQUENCES.
	DAC SAVESW	/TURN OFF SAVE OPTION.
	DAC OUTSW1	/INDICATE NOTHING IN OUTPUT FILE.
	LAW -67		/55(10).
	DAC BUFSIZ	/DEFAULT BLOCK-BUFFER SIZE.
	DAC NAMSW		/INDICATE NO NAME PRESENT.
	LAC JMSCLS	/PERMIT CLOSE SEQUENCE TO USE
	DAC CLOSE1	/SUBROUTINE CLSOUT.
	.IFUND	RSX
	LAW OUTCAL	/DAT SLOT -15.
	AND ADRMSK	/THROW AWAY JUNK.
	.ENDC
	.IFDEF	RSX
	LAC	(DAT15)	/SET UP OUTPUT LUN SLOT
	.ENDC
	DAC OUTPCL	/INITIAL OUTPUT DAT SLOT IS -15.
	.IFDEF	RSX
	LAC	(DAT14)	/SET UP INPUT LUN SLOT
	.ENDC
	DAC INPTCL	/SET UP INPUT DAT SLOT.
	.IFUND	RSX
	ISZ INPTCL	/INITIAL INPUT DAT SLOT IS -14.
	.ENDC
	DZM DIRSW		/INITIAL TRANSFER DIRECTION (READ -14, WRITE -15).
	LAC TFILE1	/SET UP DEFAULT EDIT FILE NAME (.TFIL2 EDT).
	DAC INNAME	/..
	LAC TFILE1+1	/..
	.IFDEF RSX
	AAC COPY+COPY-2	/ONE TIME CODE TO MODIFY TEMP FILE NAMES
	DAC TFILE1+1	/TO ELIMINATE SIMULTANEOUS REFERENCES
	.ENDC		/IN A MULTIPLE EDITOR SYSTEM
	DAC INNAME+1	/..
	ISZ INNAME+1	/MAKE IT .TFIL2.
	LAC EDNAM		/"EDT"
	DAC INNAME+2	/EXTENSION FOR DEFAULT FILE NAME.
FSTFL1	JMS IOINIT
	JMS FSTAT		/GO SEE IF .TFIL1 EDT IS PRESENT.
	XCT TFILE1	/BIT 0 = 1 MEANS CHECK THE OUTPUT DEVICE.
	DAC LOOPCT	/SAVE RESULTS OF FSTAT.
	.IFDEF EDITVT
	JMS CTXOFF
	.ENDC
	LAW EDTMES
	JMS TYPOUT	/PRINT "PGM NAME VNN".
	LAC LOOPCT	/PICK UP RESULTS OF PREVIOUS FSTAT.
	SNA		/FILE MAY BE PRESENT.
	JMP FND6		/NOT FOUND, OK.
TFIFND	SAD FENCE		/TEMP FILE FOUND, IS OUTPUT DEVICE FILE-STRUCTURED?
	JMP FND6		/NO, THEN GO START UP AS USUAL.
	.IFDEF	RSX
	JMS	ATTTY	/ATTACH INPUT OUTPUT TTY'S
	.ENDC
	LAW TFILE1	/YES, INFORM USER OF DIFFICULTY.
	JMS TYNAME	/"FILE .TFIL1 EDT"
	LAW TWOFIL	/COMPLETE THE COMMENT.
	JMS TYPOUT	/"IS PRESENT ON OUTPUT DEVICE."
	LAW TWOFL0	/TYPE NEXT LINE OF COMMENT.
	JMS TYPOUT	/"PLEASE DELETE OR RENAME IT."
	.IFDEF	RSX
	JMS	DETTY	/DETACH TTY'S
	.ENDC
	JMP FND6		/GO READ A CONTROL REQUEST (SHOULD BE DELETE OR RENAME).
	.IFDEF	RSX
QUITA	0
	.ENDC
/TURN ON INPUT MODE.
	.IFDEF EDITVT
INPUT	JMS CTXOFF
	LAW INPTM
	.ENDC
	.IFUND EDITVT
	.IFUND	RSX
INPUT	LAW INPTM		/TYPE CONTROL MODE NOW IN EFFECT.
	.ENDC
	.ENDC
	.IFDEF	RSX
INPUT	JMS	ATTTY	/ATTACH INPUT OUTPUT TTY'S
	LAW	INPTM	/TYPE CONTROL MODE NOW IN EFFECT
	.ENDC
	JMS TYPOUT	/"INPUT"
	.IFDEF EDITVT
	JMS TYPRTN
	JMS CTLXON	/BUMP SCREEN UP ONE
	JMS TYPRTN
	JMS TVXUT		/THE DELETE IT <CR-LF> FORM SCREEN
	JMS CTLXON
	.ENDC
/MAIN PROCESSING LOOP FOR INPUT MODE.
RDNPUT	LAW TYLINE	/PUT LINE TO BE TYPED IN TYLINE.
	.IFUND	RSX
	DAC QUIT		/INDICATE PROCESSING IS IN PROGRESS.
	.ENDC
	JMS TYPEIN	/THEN GO READ THE KEYBOARD.
	.IFUND	RSX
	CLA		/WAS CONTROL P STRUCK DURING TYPEIN?
	SAD QUIT		/SKIP IF NOT.
	.ENDC
	.IFDEF	RSX
	LAC	QUIT	/ROLE OF QUIT REVERSED 1= QUIT
	SZA		/IS IT QUIT?
	.ENDC
	JMP TTRS		/IF SO, GO RETURN CARRIAGE, CHANGE MODES.
	.IFDEF EDITVT
	ISZ VTFLAG	/SET FLAG FOR INPUT MODE (APPEND)
	.ENDC
	JMS UNPACK	/NORMAL INPUT LINE, GO UNPACK IT.
EDLAD1	TYLINE		/FROM TYLINE...
EDLADR	EDLIN		/TO EDLIN.
	SNA		/LENGTH COMES BACK IN AC.
	JMP EDIT1A	/LINE IS EMPTY (JUST CR ISSUED), CHANGE MODES.
	ADD EDLADR	/START OF LINE PLUS LENGTH.
	.IFUND	RSX
	DAC QUIT		/ADDRESS OF TERMINATOR.
	LAC* QUIT		/GET TERMINATOR TYPED.
	.ENDC
	.IFDEF	RSX
	DAC	QUITA	/ADDRESS OF TERMINATOR
	LAC*	QUITA
	.ENDC
	SAD ALTMOD	/ALT MODE?
	JMS TYPRTN	/YES, GO RETURN CARRIAGE.
	JMS PUTLIN	/PUT AWAY THE PREVIOUS CURRENT LINE.
	JMP FULBUF	/FULL BUFFER RETURN.
	LAC EDLADR	/NORMAL RETURN; GET ADDRESS OF CURRENT-LINE BUFFER.
	DAC NXTPTR	/SET UP NEXT-CHARACTER POINTER.
	DAC INPSW
	DZM LENGTH	/ZERO TOTAL CHARACTERS IN CURRENT LINE.
	LAC SKPLIT	/SET EXIT SWITCH
	DAC EXITSW
	JMS APPEND	/THEN GO MOVE TYPED INPUT LINE TO INLINE ARRAY.
	JMP RDNPUT	/READ ANOTHER INPUT LINE.
/TURN ON EDIT MODE.
EDIT1A=.
	.IFDEF EDITVT
	JMS TVXUT		/DELETE <CR-LF> FROM SCREEN
	DZM VTFLAG	/INDICATE EDIT MODE IN EFFECT
	JMS CTXOFF	/ ^X OFF DURRING EDIT MODE
	.ENDC
	.IFUND	RSX
EDIT	LAW EDTM		/TYPE CONTROL-MODE INDICATION.
	.ENDC
	.IFDEF	RSX
EDIT	JMS	DETTY	/DETACH TTY ON ENTRY TO EDIT MODE
	LAW	EDTM	/TYPE CONTROL-MODE INDICATION.
	.ENDC
	JMS TYPOUT	/"EDIT"
	JMP FND6		/GO TYPE A RIGHT ANGLE BRACKET.
/MAIN PROCESSING LOOP FOR EDIT MODE.
RDLIN	DZM QUIT		/INDICATE NO FILE PROCESSING GOING ON NOW.
	DZM	NOPKSW	/RESET NO REPACK SW
	.IFDEF EDITVT
	JMS CTXOFF
	.ENDC
	LAW TYLINE	/READ NEXT REQUEST FROM TELETYPE.
	JMS TYPEIN	/INPUT-LINE AREA.
	.IFDEF	RSX
	JMS	DETTY	/DETACH TTY AFTER READING A LINE
	.ENDC
	DZM BOTTSW	/INDICATE BOTTOM NOT IN PROCESS (GETLIN)
	JMS UNPACK	/UNPACK THE TYPED LINE.
ADR002	TYLINE		/FROM TYLINE...
	EDLIN		/...TO EDLIN.
	SNA		/SKIP IF TOTAL CHARS IN LINE .G. 0.
	JMP INPUT		/CARRIAGE RETURN ONLY, CHANGE MODE.
	TAD EDLADR	/CHECK TERMINATOR
	DAC NUM
	LAC* NUM
	SAD ALTMOD	/IF AN ALTMODE GIVE A <CR-LF>
	JMS TYPRTN
	LAC EDLADR	/EDLADR POINTS TO EDLIN (WHERE TYPED LINE IS).
	DAC NXTPTR	/SET INITIAL POINTER IN NXTCHR.
	JMS GETCOM	/GO EXTRACT CONTROL WORD FROM INPUT LINE.
  
/DECODE WHAT IS PRESUMED TO BE AN EDITING CONTROL WORD (IN CWD ARRAY)
/AND TAKE ACTION IF LEGAL. IF NOT, IGNORE INPUT LINE, COMPLAIN ON
/TELEPRINTER, AND REENTER EDIT MODE READ SEQUENCE AT FND6.
  
DECODE	LAW CWDTBL-TABEND	/TOTAL ENTRIES IN CWD TABLE (2'S COMPLEMENT).
	DAC LOOPCT	/SET UP COUNT OF CONTROL WORDS TO EXAMINE.
	LAC CWDTOP	/GET BEGINNING OF CONTROL WORD TABLE.
CWDLP1	DAC SCN1		/SET UP NEXT CALL TO UNPACK.
	JMS UNPACK	/UNPACK NEXT CONTROL WORD.
SCN1	0		/MODIFIED EACH TIME TO POINT TO NEW ENTRY.
ADR003	TYLINE		/USE TYLINE AS OUTPUT ARRAY.
	JMS SCAN		/COMPARE INPUT COMMAND WITH CURRENT ENTRY.
CWDLIT	CWD		/TYPED COMMAND IS IN CWD...CWD+7.
	TYLINE		/CURRENT TABLE ENTRY HAS JUST BEEN UNPACKED INTO TYLINE.
SKPLIT	SKP		/NO MATCH.
	SKP		/END STRING 1.
	JMP CWDLP2	/FAILED COMPARE, GET NEXT TABLE ENTRY.
	LAC* STR2		/POSSIBLE MATCH, GET NEXT WORD FROM TYLINE.
	SMA!CLL!CML	/MATCH IF NEXT WORD IN TYLINE IS NEGATIVE...
	SKP!CLA!RAL	/...OR IF TOTAL CHARS IN CWD .E. 1.
	JMP CWDISP	/FULL CONTROL WORD, GO DISPATCH.
	SAD NCHARS	/CHECK FOR ABBREVIATION (AC .E. 1 NOW).
	JMP CWDISP	/NCHARS .E. 1, GO DISPATCH.
CWDLP2	LAW -1		/MATCH FAILED, SET UP NEW ARG TO UNPACK...
	TAD* C12		/...USING A POINTER INTERNAL TO UNPACK.
	ISZ LOOPCT	/COUNT ENTRIES IN CONTROL WORD TABLE.
	JMP CWDLP1	/MORE TO DO, CONSIDER NEXT ENTRY.
/UNRECOGNIZED CONTROL WORD COMES HERE.
ILLCWD	LAC BRFSW		/IS BRIEF MODE IN EFFECT?
	SMA		/NOT IF BRFSW IS NEGATIVE.
	JMP TYQUES	/BRIEF MODE ON, JUST PRINT A QUESTION MARK.
	.IFDEF	RSX
	JMS	ATTTY	/ATTACH TTY WHILE PRINTING SINGLE CHARACTERS
	.ENDC
	LAW ERREQM	/BRIEF MODE IS OFF, PRINT FULL ERROR MESSAGE.
	JMS TYPOUT	/"NOT A REQUEST:"
	LAW 40		/PRINT A LEADING
	JMS TYONCH	/BLANK CHARACTER.
	JMS PACK		/REPACK INPUT LINE.
ADR004	EDLIN		/FROM HERE.
	TYLINE		/TO HERE.
	LAW TYLINE	/PRINT OFFENDING INPUT LINE.
	JMS TYPOUT	/..
	.IFDEF	RSX
	JMS	DETTY	/DETACH FROM TTY
	.ENDC
	JMP FND6		/GO BACK TO READ SOME MORE.
TYQUES	LAW QUESMK	/BRIEF IS ON, GET QUESTION MARK.
	JMS TYONCH	/GO TYPE IT OUT.
	JMS TYPRTN	/PRINT CARRIAGE RETURN, LINE FEED.
	JMP FND6		/READ NEXT COMMAND.
CWDISP	LAC TABEND	/GET END OF DISPATCH TABLE.
	TAD LOOPCT	/CALCULATE OUR CURRENT POSITION IN IT.
	ADD XCTZRO	/INSERT AN XCT AS TABLE REFERENCE.
	DAC CWDXCT	/GIVE TO DISPATCHER.
/GO TO SERVICE SECTION FOR THIS CONTROL WORD.
CWDXCT	XX		/RESULTS IN XCT OF PROPER TABLE ENTRY (JMP OR JMS).
	.IFUND	RSX
QUIT=CWDXCT		/QUIT .NE. 0, COMMAND PROCESSING IS IN PROGRESS.
	.ENDC
	JMP FND4		/IN CASE TABLE ENTRY WAS A JMS.
	.IFDEF	RSX
QUIT	0	/QUIT = 0 COMMAND PROCESSING IS IN PROGRESS
	.ENDC
	.TITLE CONTROL WORD AND DISPATCH TABLE
/TABLE OF CONTROL WORDS FOR COMPARE AGAINST TYPED EDIT COMMANDS.
/CONTROL WORDS ARE LIMITED TO SEVEN CHARACTERS IN LENGTH.
CWDTOP	.-1
	.ASCII 'PRINT'<15>
	.LOC .-1
C104	104
	.ASCII 'NEXT'<15>
	.ASCII 'FIND'<15>
	.ASCII 'LOCATE'<15>
	.LOC .-1
C122	122
	.ASCII 'LC'<15>
	.ASCII 'GET'<15>
	.ASCII 'INSERT'<15>
	.LOC .-1
C111	111
	.ASCII 'DELETE'<15>
NAMSW=.-1		/0, FILE NAME GIVEN IN OPEN REQUEST; -1, NO NAME GIVEN.
	.ASCII 'SIZE'<15>
	.ASCII 'OVERLAY'<15>
	.ASCII 'CHANGE'<15>
NAMSW1=.-1
	.ASCII 'CONVERT'<15>
	.ASCII 'VERIFY'<15>
STR1=.-1
	.ASCII 'TOP'<15>
	.IFUND EDITOR
	.ASCII 'TV'<15>
	.ENDC
	.ASCII 'BOTTOM'<15>
STR2=.-1		/POINTER FOR CHANGE REQUEST.
	.ASCII 'BRIEF'<15>
PBLKSW=.-1		/OUTPUT BLOCK BUFFER: 0, WRITE BUFFER. -1, WRITE FILE.
	.ASCII 'RETYPE'<15>
GBLKSW=.-1
	.ASCII 'APPEND'<15>
CURPUT=.-1
	.ASCII 'KEEP'<15>
	.ASCII 'RENEW'<15>
	.LOC .-1
C77	77
	.ASCII 'READ'<15>
	.ASCII 'WRITE'<15>
CURGET=.-1
	.ASCII 'MODIFY'<15>
	.ASCII 'MOVE'<15>
	.ASCII 'CALL'<15>
	.ASCII 'FORM'<15>
	.ASCII 'BLOCK'<15>
DIRSW=.-1
	.ASCII 'OUTPUT'<15>
ERRSW=.-1
	.ASCII 'EXIT'<15>
	.ASCII 'OPEN'<15>
	.ASCII 'CLOSE'<15>
BTEMP=.-1		/GETNUM: TEMPORARY STORAGE.
	.ASCII 'ICLOSE'<15>
BUFEND=.-1
	.ASCII 'SCLOSE'<15>
FBUFSW=.-1
	.EJECT
/TABLE OF DISPATCHERS TO CONTROL-WORD SERVICE SECTIONS. ENTRIES ARE
/EITHER "JMP"S OR "JMS"S AND ARE REFERENCED BY AN XCT (AT CWDXCT)
/OF THE APPLICABLE TABLE LOCATION AFTER COMMAND DECODING. NOTE THAT
/ENTRIES ARE SO ORDERED AS TO CORRESPOND WITH ASCII ENTRIES IN TABLE
/OF CONTROL WORDS ABOVE. FOR BOTH TABLES, NOTE THAT ANY CONTROL WORD
/WHICH CAN LEGALLY BE ABBREVIATED MUST PRECEDE ANY OTHER CONTROL WORD
/HAVING THE SAME INITIAL CHARACTER (THUS "BOTTOM" PRECEDES "BRIEF").
		/MAY COMMAND BE ABBREVIATED?
CWDTBL	JMP PRINT		/YES -- "P"
	JMP NEXT		/YES -- "N"
	JMP FIND		/YES -- "F"
	JMP LOCATE	/YES -- "L"
	JMP LNCONV	/NO!  //LINE CONVERT
	JMP GET		/YES -- "G"
	JMP INSERT	/YES -- "I"
	JMP DELETE	/YES -- "D"
	JMP SIZE		/YES -- "S"
	JMP OVRLAY	/YES -- "O"
	JMP CHANGE	/YES -- "C"
	JMP CONVRT	/NO!
	JMP VERIFY	/YES -- "V"
	JMP TOP		/YES -- "T"
	.IFUND EDITOR
	JMP TV		/NO!
	.ENDC
	JMP BOTTOM	/YES -- "B"
	JMP BRIEF		/NO!
	JMP RETYPE	/YES -- "R"
	.IFUND EDITVT
	JMS APPEND	/YES -- "A"
	.ENDC
	.IFDEF EDITVT
	JMS APPD1
	.ENDC
	JMP KEEP		/YES -- "K"
	JMP RENEW		/NO!
	JMS READ		/NO!
	JMS WRITE		/COULD BE, BUT THIS FACT IS NOT ADVERTISED.
	JMP MODIFY	/YES
	JMP MOVE		/NO!
	JMP CALL		/NO!
	JMP FORM		/NO!
	JMP BLOCK		/NO!
	JMP OUTPUT	/NO!
	JMP EXIT		/COULD BE, BUT NOT ADVERTISED.
	JMP OPEN		/NO!
	JMP CLOSE		/NO!
	JMP ICLOSE	/NO!
	JMP SCLOSE	/NO!
TABEND	CAL TABEND	/13-BIT END-OF-TABLE DEFINITION.
	.TITLE CMD PROC--PRINT,DELET,NEXT,FIND&LOCATE
/
/PRINT N LINES FROM EDIT FILE.
/
PRINT	JMS GETNUM	/GET ARGUMENT.
	DAC LOOPCT	/N LINES TO PRINT.
PRLIN	LAC LENGTH	/GET TOTAL CHARS IN CURRENT LINE.
	SNA		/PRINT ONLY IF LINE IS NON-EMPTY.
	JMP PRT1		/OTHERWISE IGNORE IT.
	JMS PACK		/PACK THE CURRENT LINE.
ADR005	INLINE		/FROM INLINE...
	TYLINE		/TO TYLINE.
	LAW TYLINE	/THEN PRINT THIS DATA LINE.
	JMS TYPOUT	/..
PRT1	ISZ LOOPCT	/COUNT LINES TO BE PRINTED.
	SKP		/MORE TO DO.
	JMP FND4		/ALL DONE, RETURN TO COMMAND READER.
	JMS PUTLIN	/WRITE OUT THIS LINE.
	JMP FULBUF	/NO MORE ROOM.
	LAC	ONE
	DAC	NOPKSW	/SET NO REPACK SW
	JMS GETLIN	/GET NEXT LINE.
	INLINE
	JMP EOF		/RETURN IF EOF ENCOUNTERED.
	.IFDEF EDITVT
	LAC TVSW	/IF TV IS ON
	SNA
	JMS TYPRTN	/GIVE A <CR-LF> TO TTY
	.ENDC
	.IFUND EDITOR
	JMS	TVCL	/DISPLAY NEW CURRENT LINE.
	.ENDC
	JMP PRLIN		/GO PRINT NEW CURRENT LINE.
/DELETE N OR 1 LINES.
DELETE=.
	.IFUND EDITOR
	JMS	TVXUT	/CROSS OUT CURRENT LINE ON DISPLAY
	.ENDC
	CLA		/SET DELSW TO ZERO.
/MOVE POINTER DOWN N OR 1.
NEXT	DAC DELSW		/SET DELSW. AC IS GUARANTEED NON-ZERO.
	JMS GETNUM	/GET ARGUMENT.
	DAC LOOPCT	/N LINES TO SKIP OVER.
NXTLIN	LAC DELSW		/GET DELETE-NEXT INDICATOR.
	SNA		/DELSW .E. 0, OPERATION IS "DELETE."
	DAC LENGTH	/DELETE, FORESTALL WRITE OF THIS LINE.
	JMS PUTLIN	/NEXT, SAVE CURRENT LINE.
	JMP FULBUF	/..
	LAC	ONE	/SET NO REPACK SW
	DAC	NOPKSW
	LAC INFILE	/IF NO INPUT FILE DON'T
	SNA
	JMP NEXT0
	LAC BLOKSW
	SZA		/GET A LINE
	JMP FND4		/NO NEED TO DO ANYTHING MORE
NEXT0	JMS GETLIN	/GET NEXT LINE.
	INLINE		/..
	JMP EOF		/..
	.IFUND EDITOR
NEXT1	LAC	DELSW	/IF CURRENT OPERATION IS DELETE
	SZA		/DO NOT
	JMS	TVCL	/DISPLAY CURRENT LINE.
	.ENDC
	ISZ LOOPCT	/COUNT LINES CONSIDERED.
	JMP NXTLIN	/MORE LINES TO SKIP.
	.IFUND EDITOR
	LAC	DELSW	/IF CURRENT OPERATION IS 'NEXT'
	SNA		/THE CURRENT LINE HAS ALREADY
	JMS	TVCL	/BEEN DISPLAYED.
	.ENDC
	JMP FND4		/ALL FINISHED, RETURN TO MAIN LINE.
/FIND A LINE.
FIND	LAC NXTPTR	/GET POINTER TO CURRENT CHAR IN COMMAND LINE.
	DAC FND2  	/INSERT IN ARGUMENT LIST.
FND1	JMS PUTLIN	/OUTPUT CURRENT LINE.
	JMP FULBUF	/..
	LAC	ONE	/SET THE NO REPACK SWITCH
	DAC	NOPKSW	/THIS WILL JUST SWAP BUFFER'S
	JMS GETLIN	/GET NEXT LINE.
	INLINE		/..
	JMP EOF		/IF END-OF-FILE.
	.IFUND EDITOR
	JMS	TVCL	/DISPLAY CURRENT LINE.
	.ENDC
	JMS SCAN		/CALL STRING COMPARER.
FND2	0		/SEARCH FOR THIS STRING...
	INLINE		/...IN THIS LINE.
	SKP		/NOT FOUND.
	SKP		/EOL, STRING 1.
	JMP FND1		/GO BACK TO SEARCH SOME MORE.
/DESIRED LINE HAS BEEN LOCATED. ASCERTAIN WHETHER OR NOT CONFIRMATORY
/PRINT SHOULD BE UNDERTAKEN.
FND3	LAC LENGTH
	DZM	NOPKSW	/CLEAR THE NO REPACKING SWITCH
	SNA
	JMP FND6
	LAC INLADR
	DAC NXTPTR
	ADD LENGTH
	DAC APPEND
	LAC* APPEND
	DAC LOC2
	LAW -3
	DAC TABCT
	LAC BRFSW
	SMA
FNDLP1	JMS NXTCHR
	JMP FND5
	SAD BLANK
	JMP TABFND
	SAD TAB
	JMP TABFND
	SAD SLASH
	JMP FND5-2
	LAC NXTPTR
	DAC APPEND
	LAC* APPEND
	DAC LOC2
	JMP FNDLP1
TABFND	ISZ TABCT
	JMP FNDLP1
	CLA!CMA
	DAC* APPEND
FND5	LAC VERISW
	SPA
	JMP FNDRS
	JMS PACK
ADR006	INLINE
	TYLINE
	LAW TYLINE
	JMS TYPOUT
FNDRS	LAC LOC2
	DAC* APPEND
FND4=.
	.IFUND EDITOR
	LAC ERRSW		/HAS A READ ERROR OCCURED
	SZA
	JMS TVCL		/YES -- DISPLAY OFFENDING LINE
	.ENDC
	DZM ERRSW		/CLEAR READ ERROR SWITCH
	LAC QUIT
	.IFUND	RSX
	SNA
	.ENDC
	.IFDEF	RSX
	SZA		/SWITCH IS REVERSED FOR RSX
	.ENDC
	JMP TTRS
	.IFUND	RSX
FND6=.
	.IFDEF EDITVT
	JMS CTXOFF
	.ENDC
	LAW 76
	.ENDC
	.IFDEF	RSX
FND6	JMS	ATTTY	/ATTACH TTY'S
	LAW	76	/PRINT >
	.ENDC
	JMS TYONCH
	JMP RDLIN
/COME HERE ON BUFFER OVERFLOW
FULBUF	LAW BOVFLM
	DZM	NOPKSW	/CLEAR LINE BUFFER SWITCHING SWITCH
	JMS TYPOUT
	JMS PACK
ADR011	INLINE
	TYLINE
	LAW TYLINE
	JMS TYPOUT
	JMP FND4
/LOCATE A LINE.
LOCATE	LAC NXTPTR	/GET ADDRESS OF NEXT CHAR IN COMMAND LINE.
	DAC LOC2		/GIVE TO SCAN ARGUMENT LIST.
LOC5	JMS PUTLIN	/WRITE THE CURRENT LINE.
	JMP FULBUF	/FULL-BUFFER RETURN.
	LAC	ONE	/SET THE NO REPACK SWITCH
	DAC	NOPKSW
	JMS GETLIN	/READ THE NEXT LINE.
	INLINE		/TO CURRENT-LINE AREA.
	JMP EOF		/END-OF-FILE RETURN.
	.IFUND EDITOR
	JMS	TVCL	/DISPLAY CURRENT LINE.
	.ENDC
	LAC INLADR 	/GET START ADDRESS OF NEW LINE.
	DAC LOC4		/INSERT AS SCAN ARGUMENT #2.
LOC1	JMS SCAN		/CALL SCAN.
LOC2	0		/STRING TO LOOK FOR.
LOC4	0		/WHERE TO LOOK FOR IT.
TABCT=LOC4		/COUNT OF TABS AND BLANKS FOR BRIEF MODE SERVICER.
	JMP LOC3		/NOT FOUND THIS TRY.
	JMP FND3		/FOUND.
	JMP LOC5		/NOT FOUND ANYWHERE IN THIS LINE.
LOC3	ISZ LOC4		/BUMP SCAN ARG TO NEW STRING IN CURRENT LINE.
	JMP LOC1		/THEN GO SEARCH THE NEW STRING.
	.TITLE CMD PROC--VERIFY,BLOCK,BRIEF,OUTPUT&TV
/
/SET VERIFY SWITCH
/
VERIFY	JMS DCODSW	/GO INTERPRET NEXT WORD IN LINE.
VERISW	0		/VERIFY ON-OFF SWITCH.
	JMP FND4
/SET BLOCK-MODE INDICATOR.
BLOCK	JMS DCODSW	/"ON" OR "OFF"?
BLOKSW	-1		/BLOCK MODE ON-OFF SWITCH.
	SNA
	JMP SETPBL-1
	LAC BUFEMP
	SZA!CLA!CMA
	JMP BLOK01
	DAC GBLKSW
SETPBL	DAC PBLKSW
	JMP FND4
BLOK01	LAW BFNEMM
	JMS TYPOUT
	JMP FND4
/SET BRIEF MODE SWITCH.
BRIEF	JMS DCODSW	/INTERPRET NEXT CONTROL WORD.
BRFSW	-1		/BRIEF IS OFF INITIALLY.
	JMP FND4
/SET OUTPUT-SUPPRESSION INDICATOR.
OUTPUT	JMS DCODSW	/CHECK ARGUMENT.
OUTPSW	0		/OUTPUT IS "ON" IF ZERO.
	JMP FND4
/SET DISPLAY-WANTED INDICATOR.
	.IFUND EDITOR
TV	JMS DCODSW	/GET ARGUMENT.
TVSW	-1		/TV IS OFF INITALLY.
	SAD	TVON	/ANY CHANGE IN STATUS?
	JMP	TV2	/NO.
	DAC	TVON	/YES,SAVE NEW STATUS.
	.IFDEF EDITVT
	JMS TVCLR		/CLEAR SCREEN
	.ENDC
	JMS	TVST	/START OR STOP DISPLAY.
	LAC	LENGTH	/IF THERE IS ONE,
	SZA
	JMS	TVCL	/DISPLAY THE CURRENT LINE.
	.IFDEF	RSX
	LAC	TVSW	/PICK UP THE TV SWITCH
	RAR		/SAVE IT'S STATE IN THE LINK
	LAC	(DATP10)	/SET UP TO ATTACH OR DETACH DATP10
	SZL		/TV ON?
	JMP	DETP10	/NO -- DETACH THE TV DEVICE
	JMS	ATTACH	/YES -- ATTACH TV
	SKP		/SKIP OVER DETACH
DETP10	JMS	DETACH	/DETACH THE LISTING DEVICE
	.ENDC
TV2	LAC	TVSW	/IF TV WAS TURNED ON,
	SZA!CLC
	JMP	FND4
	DAC	VERISW
	JMP FND4
	.ENDC
	.TITLE CMD PROC--INSERT,RETYPE & APPEND
/
/INSERT A LINE AFTER CURRENT LINE.
/
INSERT	JMS PUTLIN	/WRITE CURRENT LINE.
	JMP FULBUF	/RETURN HERE IF NO MORE ROOM.
	DZM LENGTH	/ZERO TOTAL CHARACTERS.
	JMS APPEND	/CALL APPEND.
	LAC LENGTH	/GET CALCULATED LENGTH.
	SNA		/WAS THERE ANY STUFF AFTER THE COMMAND?
	JMP INPUT		/NO, CHANGE TO INPUT MODE.
	DAC INPSW
	JMP FND4		/YES, GET NEXT COMMAND. LINE INSERTED IS NOW THE CURRENT LINE.
/REPLACE CURRENT INLINE WITH CONTENTS OF EDLIN.
RETYPE	DZM LENGTH	/ZERO TOTAL CHARACTERS PRESENTLY IN CURRENT LINE,
	.IFUND EDITOR
	JMS	TVXUT	/CROSS OUT CURRENT LINE ON DISPLAY.
	.ENDC
	JMS APPEND	/...THEN PERFORM A NORMAL APPEND.
	DAC INPSW
	JMP FND4		/GO GET NEXT COMMAND.
/ADD SOME DATA TO THE CURRENT LINE.
	.IFDEF EDITVT
APPD1	0
	LAC APPD1		/FAKE CALL TO APPEND
	DAC APPEND
	JMS TVXUT		/DELETE LAST LINE ON DISPLAY
	JMP APPND1	/JUMP INTO APPEND
	.ENDC
APPEND	0		/APPEND IS REACHED VIA JMS.
	.IFDEF EDITVP
	LAC	LENGTH	/IF CURRENT OPERATION IS 'APPEND'
	SZA		/(L>0) PREPARE TO ADD TO CURRENT LINE
	JMS	TVMLF	/BY MOVING DISPLAY LINE POINTER UP ONE.
	.ENDC
APPND1	LAC INLADR	/GET START OF CURRENT LINE.
	ADD LENGTH	/BUMP BY TOTAL DATA CHARACTERS.
	DAC POINTR	/GIVE TO NEXT-CHARACTER INDICATOR
	LAW -3		/ENSURE THAT THIS CHAR WILL FIT.
	TAD MAXLEN	/MAXLEN=(LINSIZ.
	CMA
	TAD LENGTH
	SMA
	JMP APPTRN
	JMS NXTCHR	/GET NEXT CHARACTER FROM INPUT STREAM
NOPLIT	NOP		/IGNORE NXTCHR END-OF-LINE RETURN.
	DAC* POINTR	/INSERT IN LINE.
	SPA		/END-OF-LINE?
	JMP	APPOUT	/YES, RETURN TO CALLER.
	ISZ LENGTH	/NO, BUMP TOTAL CHARACTERS.
	JMP APPND1	/GO GET ANOTHER CHARACTER.
APPOUT	DAC	QUOTE		/SAVE TERMINATOR
	.IFDEF EDITVT
	LAC VTFLAG	/IF IN INPUT MODE
	SNA		/DON'T DISPLAY THE LINE AGAIN
	.ENDC
	.IFUND EDITOR
	JMS	TVCL	/DISPLAY CURRENT LINE.
	LAC	QUOTE	/RESTORE TERMINATOR
	.ENDC
	JMP*	APPEND	/RETURN
/
APPTRN	JMS NXTCHR	/IS NEXT CHAR A TERMINATOR
	JMP NOPLIT	/YES --OK
	LAW TRNMES	/GIVE USER MESSAGE
	JMS TYPOUT
	.IFDEF EDITVT
	LAW 12
	JMS TYONCH
	.ENDC
	CLC
	JMP NOPLIT
/
	.TITLE CMD PROC--LINE CONVERT,CHANGE & CONVERT
/
/
/CONVERT STRING#1 TO STRING#2 FOR
/THE SPECIFIED NUMBER OF LINES IN THE
/FILE OR BLOCK BUFFER.
/LINE CONVERT PROCESSING GETS THE NUMBER
/OF LINES TO CONVERT AN SETS UP LOOPCT
/TO THAT VALUE. IT THEN SETS LINCSW TO NOP
/AND GOES TO CONVERT PROCESSING
/WHICH TESTS LINCSW.
/
/
LNCONV	JMS GETNUM
	DAC LOOPCT
	.IFUND EDITOR
	SAD FENCE		/IF ONLY ONE LINE
	JMS TVXUT		/DELETE LAST LINE ON SCREEN
	.ENDC
	LAC NOPLIT
	DAC LINCSW
	JMP CONVRT
/
/
/
/REPLACE STRING 1 WITH STRING 2.
/CHANGE REQUEST PROCESSING
/SET SWITCH AND GO TO CONVERT
/PROCESSING WHICH TESTS THE SWITCH
/
CHANGE	LAC NOPLIT	/GET A NOP
	DAC CHGREQ	/AND SET SWITCH
/
/CONVERT STRING#1 TO STRING#2 THRU OUT
/THE FILE OR BLOCK BUFFER IF IN BLOCK MODE.
/STRING#1 IS DELIMITTED AS IN "CHANGE"
/BY QUOTE CHARACTERS. STRING#2 CAN BE
/DELIMITTED BY EITHER THE APPERANCE OF
/THE QUOTE CHARACTER OR A TERMINATOR
/
CONVRT	JMS TOPBOM	/ARE WE AT THE TOP OR BOTTOM OF THE PAGE
	DZM CONVLT	/GET A LINE IF SO---ZERO COUNTER
	DZM NUM		/INDICATE LINE NAS NOT BEEN ALTERED
	.IFUND	RSX
	LAW TYLINE-1	/SET UP POINTER TO TYLINE FOR A.I.REG
	JMS GETBNK
	.ENDC
	.IFDEF	RSX
	LAC	(TYLINE-1)	/SET UP POINTER TO TYLINE FOR A.I. REG
	.ENDC
	DAC TYLNPT
	.IFUND	RSX
	DAC QUIT		/INDICATE COMMAND PROC. IN PROGRESS
	.ENDC
	TAD MAXLEN
	TAD MTWO		/SET OVERFLOW ADDRESS
	DAC OVFLAD
	JMS NXTCHR	/GET 1'ST QUOTE CHAR
	JMP NOSTNG	/NO STRING---COMPLAIN
	DAC QUOTE
	LAC NXTPTR	/GIVE POINTER OF NEXT CHAR
	DAC STRG1		/TO CALL FOR SCAN
GETCHR	JMS NXTCHR	/COUNT CHARS. IN STRING
	JMP NOSTNG
	SAD QUOTE
	JMP QUCHR
	ISZ CONVLT
	JMP GETCHR
QUCHR	LAC CONVLT	/IS THERE A STRING
	SNA
	JMP NOSTG1	/NO!
CHNOSG	LAW -1
	TAD NXTPTR	/DECREMENT POINTER
	DAC NXTPTR
	CLC		/STORE A TERMINATOR IN
	DAC* NXTPTR	/PLACE OF 2'ND QUOTE CHAR
/
/MAJOR LOOP FOR CONVERT, EVERY
/SEARCH OF A NEW LINE STARTS HERE.
/
CVBACK	LAC TYLNPT	/SET UP POINTERS
	DAC* C12
	.IFUND	RSX
	LAW INLINE-1
	JMS GETBNK
	.ENDC
	.IFDEF	RSX
	LAC	(INLINE-1)
	.ENDC
	DAC INLNPT
	DAC STRG2
	ISZ STRG2
	JMP CVSCAN	/BYPASS CHANGE TEST FOR 1'ST TIME THRU
/
/MINOR LOOP FOR CONVERT, LOOPS BACK
/HERE AFTER PROCESSING OF EITHER
/NO MATCH FOUND, OR A MATCH FOUND
/
SCANCT	XCT CHGREQ	/WAS THIS A CHANGE REQUEST
	JMP CHGEX1	/YES 
CVSCAN	JMS SCAN		/GO SCAN LINE FOR STRING#1
STRG1	0
STRG2	0
	JMP NOMTCH
	JMP MTCHFD
/
/END OF LINE BEING SEARCHED FOUND COMES HERE
/THIS IS THE EXIT PROCESSING FOR
/THE MINOR LOOP. ON LINE OVERFLOW
/THIS SECTION IS ENTERED AT "TRANL"
/ALSO, NORMAL EXIT FROM THE CONVERT
/COMMAND PROCESSING IS DONE HERE
/
CHGEX1	CLC		/TRANSFER REST OF
	JMS SGTRAN	/INLINE TO TYLINE
TRANL	JMS LINESW	/NOW SWAP TYLINE
	TYLINE-1	/BACK TO INLINE
	INLINE-1
	XCT CHGREQ	/WAS THIS A CHANGE
	JMP CHGEX2	/YES GO EXIT FOR CHANGE
	XCT LINCSW	/WAS THIS A LINE CONVERT
	JMP LINCEX	/YES
LNCVBK=.
	.IFUND EDITOR
	LAC NUM		/HAS LINE BEEN ALTERED
	SZA
	JMS TVCL		/YES--DISPLAY LINE
	DZM NUM		/RESET FLAG
	.ENDC
	JMS PUTLIN	/PUT LINE AWAY
	JMP FULBUF	/BUFFER OVERFLOW RETURN
	LAC	ONE	/SET NO REPACK SW
	DAC	NOPKSW	/**IF A CHANGE HAS BEEN MADE (IE MATCH FOUND)
			/THE SWITCH IS RESET
	JMS GETLIN	/GO GET ANOTHER LINE
	INLINE		/PUT IT HERE
	JMP COVEX4	/NO MORE LINES TO GET***DONE**EXIT
	JMP CVBACK	/ENTER MAJOR LOOP
/
/EXIT FOR CHANGE COMMAND
/
CHGEX2	LAC SKPLIT	/GET SKP
	DAC CHGREQ	/RESET SWITCH
	.IFUND EDITOR
	LAC TVSW		/CHECK TO SEE IF TV IS ON
	SZA
	JMP FND3		/TV IS OFF GO CONFIRM ON TTY
	JMS	TVXUT	/CROSS OUT CURRENT LINE ON DISPLAY
CONEX3	JMS	TVCL	/DISPLAY NEW CURRENT LINE
	JMP	FND6	/EXIT
	.ENDC
	.IFDEF EDITOR
	JMP	FND3
	.ENDC
/
/EXIT FROM LINE CONVEERT
/
LINCEX	ISZ LOOPCT	/ARE WE DONE
	JMP LNCVBK	/NO
	LAC SKPLIT	/RESET SWITCH
	DAC LINCSW
	JMS CONCHK	/HAS A LINE BEEN CHANGED
	.IFUND EDITOR
	LAC TVSW		/IF TV IS OFF
	SZA
	JMP FND3		/GO CONFIRM ON TTY
	JMP CONEX3	/EXIT
	.ENDC
	.IFDEF EDITOR
	JMP	FND3
	.ENDC
/
/
/EXIT FROM CONVERT END OF FILE
/
COVEX4	XCT LINCSW	/WAS THIS A LINE CONVERT
	JMP COVEX5
	JMS CONCHK
	JMP FND6		/NO EXIT
COVEX5	LAC SKPLIT	/RESET SWITCH
	DAC LINCSW
	JMS CONCHK
	JMP EOF		/TELL USER
/NOTE ONLY PART OF THE COMMAND STRING
/UP TO BUT NOT INCLUDING THE SECOND
/QUOTE CHAR. WILL BE DISPLAYED
/
/
/SUBROUTINE TO CHECK IF STRING#1 WAS EVER FOUND
/
CONCHK	0
	LAC SCN1		/WAS A MATCH FOUND
	SNA
	JMP* CONCHK	/YES--OK
	LAW FILN1
	JMS TYPOUT	/NO--TELL USER
	JMP* CONCHK
/
/
/NO MATCH COMES HERE
/LOOPS BACK TO SCAN
/
NOMTCH	LAC* C12	/WILL LINE OVERFLOW
	SAD OVFLAD
	JMP LNOVFL	/YES HANDLE
	LAC* STRG2	/NO  PUT CHAR IN TYLINE
	DAC* 12
	ISZ STRG2	/BUMP ADDR FOR SCAN
	JMP CVSCAN	/GO BACK AN SCAN
/
/A MATCH FOUND COMES HERE
/LOOPS BACK TO SCAN
/
MTCHFD	CLA		/GO TRANSFER REPLACEMENT
	DAC SCN1		/INDICATE A MATCH FOUND
	DZM	NOPKSW	/RESET NO REPACK SW
	JMS SGTRAN	/STRING TO TYLINE
	LAC STRG2	/UPDATE "SCAN" ADDRESS POINTER
	TAD CONVLT
	DAC STRG2
	ISZ NUM		/INDICATE LINE HAS BEEN ALTERED
	JMP SCANCT	/GO BACK AN SCAN
/
/COMES HERE WHEN A LINE WILL OVERFLOW
/
LNOVFL	CLC		/PUT TERMINATOR
	DAC* 12		/IN TYLINE
	XCT CHGREQ	/WAS THIS A CHANGE
	JMP CHGOVF	/YES JUST PRINT "TRUNCATED"
	.IFUND	RSX
	LAW TYLINE	/SET UP FOR PACK
	JMS GETBNK
	.ENDC
	.IFDEF	RSX
	LAC	(TYLINE)	/SET UP FOR PACK
	.ENDC
	DAC FROMA
	.IFUND	RSX
	LAW INLINE
	JMS GETBNK
	.ENDC
	.IFDEF	RSX
	LAC	(INLINE)
	.ENDC
	DAC TOB
	JMS PACK	/GO PACK LINE
FROMA	0
TOB	0
	LAW INLINE	/TYPE IT OUT
	JMS TYPOUT
CHGOVF	LAW TRNMES	/TELL USER IT IS TRUNCATED
	JMS TYPOUT	/GO TO EXIT PROCESSING FROM MINOR LOOP
	.IFDEF EDITVT
	JMS TYPRTN
	.ENDC
	JMP TRANL
/
/SUBROUTINE SGTRAN TRANSFERS EITHER
/REPLACEMENT STRING OR REST OF INLINE
/(CURRENT LINE) TO TYLINE
/CALL	CLA	/AC=0 TRANSFER REPLACEMENT STRING
/OR	CLC	/AC NOT .EQ. 0 TRANSFER REST OF INLINE
/	JMS SGTRAN
/	NORMAL RETURN	/GOES TO LNOVFL IF TYLINE WILL OVERFLOW
/
SGTRAN	0
	SNA!CLC		/TEST WHICH LINE AN
	JMP RPLSG	/SET SWITCH AND A.I.REG 13
	DAC SGTSW
	TAD STRG2
	SKP
RPLSG	LAC NXTPTR
	DAC* C13
TRMORE	LAC* C12	/CHECK FOR OVERFLOW
	SAD OVFLAD
	JMP OVFLCD	/HANDLE IT
	LAC SGTSW
	SZA
	JMP INLNTR
	LAC* 13		/GET DATA
	SPA		/IS IT A TERMINATOR
	JMP SGEXIT	/YES EXIT
	SAD QUOTE	/CHECK FOR QUOTE CHAR
	JMP SGEXIT
TRANCH	DAC* 12		/NO STORE IT
	JMP TRMORE	/GO BACK FOR MORE
INLNTR	LAC* 13		/GET DATA
	SMA		/IA IT A TERMINATOR
	JMP TRANCH	/NO
STORCH	DAC* 12		/YES STORE IT AND EXIT
SGEXIT	DZM SGTSW
	JMP* SGTRAN
/COMES HERE ON POSSIBLE TYLINE OVERFLOW
OVFLCD	LAC SGTSW	/CHECK SWITCH
	SMA
	JMP RPLINE	/REPLACEMENT STRING
	LAC* 13		/GET CHAR IS IT A TERMINATOR
	SPA
	JMP STORCH	/YES--LUCKY GO STORE AND EXIT
OFEXIT	DZM SGTSW
	JMP LNOVFL	/INFORM USER
RPLINE	LAC* 13		/GET DATA
	SPA		/IS IT A TERMINATOR
	JMP SGEXIT	/YES -- LUCKY
	SAD QUOTE	/IS IT THE QUOTE CHAR
	JMP SGEXIT	/YES LUCKY
	JMP OFEXIT	/NOT EITHER -- TO BAD
/
/ERROR MESSAGE FOR NO STRING TO CONVERT
NOSTG1	XCT CHGREQ	/IS THIS A CHANGE
	JMP CHNOSG	/YES---GO PROCESS
NOSTNG	LAW NOSTGM
	JMS TYPOUT
	JMP FND4
	.TITLE CMD PROC MOVE
/
/
/SUBROUTINE LINESW TRANSFER DATA FROM AN ARRAY
/TO ANOTHER ARRAY. TRANSFER TERMINATES
/ON A NEG. DATA WORD (TERMINATOR)
/CALL	JMS LINESW
/	.DAS ARRAY1-1	/FROM ARRAY1
/	.DSA ARRAY2-1	/TO ARRAY2
/	RETURN
/
LINESW	0
	LAC* LINESW	/GET ADDR POINTER TO INPUT ARRAY
	.IFUND	RSX
	JMS GETBNK
	.ENDC
	DAC* C12	/SET UP A.I. REG.
	ISZ LINESW	/BUMP TO ARG. TWO
	LAC* LINESW	/GET POINTER TO OUTPUT ARRAY
	.IFUND	RSX
	JMS GETBNK
	.ENDC
	DAC* C13	/SET UP A.I. REG.
	ISZ LINESW	/BUMP TO RETURN
	DZM LENGTH	/ZERO LENGTH
CONSWP	LAC* 12		/GET DATA
	SPA		/IS IT A TERMINATOR
	JMP SWPDON	/YES WERE DONE ALMOST
	DAC* 13		/STORE IT
	ISZ LENGTH	/COUNT IT
	JMP CONSWP	/GO BACK FOR MORE
SWPDON	DAC* 13		/STORE TERMINATOR
	JMP* LINESW	/RETURN TO CALLER
/
/SUBROUTINE TOPBOM  CHECKS TO SEE
/IF WE ARE AT THE TOP OR END OF THE
/FILE OR BLOCK BUFFER
/
TOPBOM	0
	LAC	LENGTH		/ARE WE AT TOP OR
	SZA			/END OF FILE
	JMP*	TOPBOM		/NO--EXIT
	JMS	GETLIN		/ GET A LINE
	INLINE			/PUT IT HERE
	JMP	EOF		/AT END OF FILE
	JMP*	TOPBOM		/EXIT
/
/
/PROCESSING FOR THE MOVE COMMAND
/MOVE N LINES TO BEFORE THE LINE
/BEGINING WITH STRING.
/
MOVE	JMS	GETNUM		/GET NUMBER OF LINES TO MOVE
	DAC	NUM		/STORE IT
	.IFUND	RSX
	DAC	QUIT		/INDICATE COMMAND PROC. IN PROGRESS
	.ENDC
	DAC	MOVESW
	DZM	LOOPCT		/ZERO COUNTER
	JMS	TOPBOM		/CHECK FOR TOP OR END OF FILE
	JMS	LINESW		/SAVE CURRENT LINE
	INLINE-1
	TYLINE-1
	.IFUND EDITOR
	JMS	TVXUT		/CROSS OUT CURRENT LINE
	.ENDC
	ISZ	NUM		/COUNT THIS LINE
	SKP			/SKIP IF THERE ARE MORE LINES TO MOVE
	JMP	MVSCN1		/NO MORE LINES GO SEARCH FOR STRING
	LAC	BLOKSW		/ARE WE IN BLOCK MODE
	SNA
	JMP	MVBLPC		/YES - GO PROCESS
	.IFUND	RSX
	LAC*	SCOM3		/NO IN LINE MODE SETUP
	.ENDC
	.IFDEF	RSX
	LAC	ENDPAR	/PICK UP THE END OF THE PARTITION
	.ENDC
	DAC	BUFEND		/POINTERS TO BUFFER AREA
	.IFUND	RSX
	LAC*	SCOM2
	.ENDC
	.IFDEF	RSX
	LAC	EDTSIZ	/PICK UP THE SIZE OF EDIT
	.ENDC
	DAC	CURPUT		/POINTERS FOR "PUTLIN"
	DAC	NXTPUT
	DZM	PBLKSW		/TURN ON BLOCK MODE FOR "PUTLIN"
MVMORE	JMS	GETLIN		/GO GET A LINE
	INLINE			/PUT IT HERE
	JMP	NELERR		/NO MORE LINES TO GET
	JMS	PUTLIN		/NORMAL RETURN - PUT LINE IN BUFFER
	JMP	NEBERR		/BUFFER IS FULL
	ISZ	LOOPCT		/LINE PUT AWAY OK - COUNT IT
	ISZ	NUM
	JMP	MVMORE		/MORE LINES TO MOVE
	LAW	-1		/TURN BLOCK MODE
	DAC	PBLKSW		/OFF FOR PUTLIN
MVSCN1	LAC	NXTPTR		/GET POINTER TO STRING
	DAC	MVSTRG		/TO SEARCH FOR AND GIVE TO SCAN
	.IFUND	RSX
MVSCN2	LAW	INLINE		/SEARCH INLINE
	JMS	GETBNK		/PUT ON BANK BITS
	.ENDC
	.IFDEF	RSX
MVSCN2	LAC	(INLINE) 	/SEARCH INLINE
	.ENDC
	DAC	MVSEAC
	JMS	GETLIN		/GO GET A NEW LINE
	INLINE
	JMP	MVEOFE		/END OF FILE OR BLOCK REACHED
	LAC	ERRSW		/WAS THERE A READ ERROR IN GETLIN
	SZA
	JMS	 MVRDER		/YES -- TELL USER
MVSCAN	JMS	SCAN		/SCAN CURRENT LINE FOR
MVSTRG	0			/THIS STRING
MVSEAC	0			/IN THIS LINE
	JMP	MVNMCH		/NO MATCH
	JMP	MVMACH		/MATCH FOUND
/
/CONTROL COMES HERE IF THE END OF
/THE CURRENT LINE BEING SEARCHED IS FOUND
/OR THERE HAS BEEN NO MATCH
/
MVNMCH	JMS	PUTLIN		/GO PUT LINE AWAY
CRGTSV	0			/BUFFER OVERFLOW CAN NOT HAPPEN
	LAC	ONE	/SE NO REPACK SW
	DAC	NOPKSW
	.IFUND EDITOR
	JMS	TVCL		/DISPLAY LINE
	.ENDC
	JMP	MVSCN2		/GO BACK FOR NEXT LINE
/
/
/CONTROL COMES HERE IF A
/MATCH IS FOUND
/
MVMACH	JMS	LINESW		/GO SAVE THIS
	INLINE-1		/LINE FOR LATER
	EDLIN-1
MVLINE	JMS	LINESW		/GET FIRST LINE
	TYLINE-1		/TO BE MOVED
	INLINE-1
	DZM	NOPKSW	/RESET NO REPACK SW
	JMS	PUTLIN		/GO PUT IT IN OUTPUT
MVEXSW	-1			/OVERFLOW CAN NOT HAPPEN
	.IFUND EDITOR
	JMS	TVCL		/DISPLAY LINE
	.ENDC
	LAC	LOOPCT		/RETURN - SETUP
	.IFUND	RSX
	CMA			/LINE COUNT FOR
	TAD	ONE		/MOVING LINES
	.ENDC
	.IFDEF	RSX
	TCA		/LINE COUNT FOR MOVING LINES
	.ENDC
	SNA			/ARE WE DONE
	JMP	MVEXIT		/YES EXIT
	DAC	LOOPCT		/NO-STORE NEG LOOPCT
	LAC	BLOKSW		/ARE WE IN
	SNA			/BLOCK MODE
	JMP	MVLNBL		/YES
	DZM	GBLKSW		/NO - TURN ON BLOCK MODE
	.IFUND	RSX
	LAC*	SCOM2		/AND SET POINTER FOR "GETLIN"
	.ENDC
	.IFDEF	RSX
	LAC	EDTSIZ	/PICKUP THE SIZE OF THE EDITOR
	.ENDC
	DAC	CURGET
	LAW	-1		/INDICATE BUFFER
	DAC	BUFEMP		/NOT EMPTY
CONTMV	JMS	GETLIN		/GET A LINE FROM BUFFER
	INLINE			/PUT IT HERE
MVESW1	-1			/NO MORE LINES TO GET CANNOT OCCUR
	JMS	PUTLIN		/PUT LINE AWAY
MVESW2	-1			/BUFFER OVERFLOW CAN NOT HAPPEN
	.IFUND EDITOR
	JMS	TVCL		/DISPLAY LINE
	.ENDC
	ISZ	LOOPCT		/COUNT IT
	JMP	CONTMV		/MORE TO MOVE
	LAW	-1
	DAC	GBLKSW		/TURN OFF SWITCH
	DZM	BUFEMP		/INDICATE BUFFER EMPTY
	JMP	MVEXIT		/DONE EXIT
/
/ERROR SWITCHES ARE SET HERE
/
NELERR	LAW	-1		/RESET BLOCK MODE
	DAC	PBLKSW		/FOR PUTLIN
	SKP
MVEOFE	DZM	MVESW2		/END OF FILE FOUND
	DZM	MVEXSW		/NO MORE LINES TO GET
	JMP	MVLINE		/GO TRANSFER MOVED LINES
/
/
NEBERR	DZM	MVESW1		/NOT ENOUGH BUFFER
	LAW	-1		/RESET BLOCK SWITCH
	DAC	PBLKSW		/FOR PUTLIN
	JMP	MVMACH		/SAVE CURRENT LINE & MOVE LINES
/
/
/PROCESSING WHEN IN BLOCK MODE
/
MVBLPC	LAC	CURGET		/SAVE POINTER TO NEXT
	DAC	CRGTSV		/LINE TO GET FOR "GETLIN"
	LAW	-2		/CHECK NUMBER OF LINES TO
	TAD	NUM		/MOVE AGAINST SIZE OF BUFFER
	CMA
	TAD	BUFSIZ
	SMA
	JMP	BTSERR		/BUFFER IS TOO SMALL
BUFFOK	JMS	GETLIN		/GET A LINE
	INLINE			/PUT IT HERE
	JMP	NLBKER		/NO MORE LINES TO GET
	ISZ	LOOPCT		/NORMAL RETURN - COUNT LINES
	ISZ	NUM		/ARE WE DONE
	JMP	BUFFOK		/GO BYPASS ANOTHER LINE
	JMP	MVSCN1		/YES - GO SEARCH LINES FOR STRING
/
/STRING FOUND AND IN BLOCK MODE
/AFTER CURRENT LINE IS SAVED
/AND FIRST LINE TO BE MOVED HAS
/BEEN PLACED IN OUTPUT BUFFER
/CONTROL COMES HERE
/
MVLNBL	LAC	CURGET		/GET POINTER TO NEXT LINE
	DAC	NUM		/AND SAVE IT
	LAC	CRGTSV		/GET POINTER TO LINE TO BE MOVED
	DAC	CURGET		/AND GIVE TO CURGET
MVBLM	JMS	GETLIN		/GO GET A LINE
	INLINE
	NOP			/NO MORE LINES CAN NOT HAPPEN
	JMS	PUTLIN		/RETURN - PUT LINE IN
	NOP			/OUTPUT BUFFER - OVERFLOW CAN NOT HAPPEN
	.IFUND EDITOR
	JMS	TVCL		/DISPLAY LINE
	.ENDC
	ISZ	LOOPCT		/IS THERE MORE TO DO
	JMP	MVBLM		/YES
	LAC	NUM		/DONE RESTORE POINTER FOR
	DAC	CURGET		/GETLIN
/
/COMMON EXIT ROUTINE FOR MOVE
/
MVEXIT	LAC	MVEXSW		/TEST ERROR SWITCH
	DZM	MOVESW
	SNA
	JMP	ERROR1		/THERES AN ERROR
	JMS	LINESW		/GO RESTORE CURRENT LINE
	EDLIN-1			/TO INLINE
	INLINE-1
	LAC	MVESW1		/TEST ERROR SWITCH
	SNA
	JMP	ERROR2		/THERE'S AN ERROR
EXERR2	LAW	-1		/RESET SWITCH
	DAC	MVESW1
	.IFUND EDITOR
	JMS	TVCL		/DISPLAY LINE
	.ENDC
	JMP	FND6		/EXIT FOR NEXT COMMAND
/
ERROR2	LAW	NENGMS		/TELL USER THAT
	JMS	TYPOUT		/NOT ENOUGH BUFFER SPACE
	LAW	BUFSPM
	JMS	TYPOUT
	JMP	EXERR2		/EXIT
/
ERROR1	LAC	MVESW2		/CHECK ERROR SWITCH
	SNA
	JMP	ERROR3		/THERE'S AN ERROR
	LAW	NENGMS		/GIVE USER MESSAGE
	JMS	TYPOUT		/NOT ENOUGH LINES,
	LAW	LINEMS
	JMS	TYPOUT
EXERR1	LAW	-1		/RESET SWITCHES
	DAC MVEXSW
	DAC MVESW2
	JMP	EOF		/EXIT EOF MESS. & NEXT COMMAND
/
ERROR3	LAW	LMEOFM		/GIVE USER MESSAGE - LINES
	JMS	TYPOUT		/MOVED TO END
	JMP	EXERR1		/EXIT
/
/NOT ENOUGH LINES TO MOVE IN BLOCK MODE
NLBKER	LAC	CRGTSV		/RESTORE POINTER FOR
	DAC	CURGET		/GETLINE
	LAW	NENGMS		/TELL USER OF PROBLEM
	JMS	TYPOUT
	LAW	LINEMS
	JMS	TYPOUT
	JMS	LINESW		/SWAP BACK ORG. CURRENT LINE
	TYLINE-1
	INLINE-1
	JMP	MVBEEX		/EXIT FOR NEXT COMMAND
/
/BUFFER SIZE TO SMALL IN BLOCK MODE
/
BTSERR	LAW	BUFTSM		/TELL USER OF PROBLEM
	JMS	TYPOUT
MVBEEX	DZM	MOVESW
	JMP	FND6		/EXIT FOR NEXT COMMAND
/
MOVESW	0
/
/SUBROUTINE  MVRDER
/A READ ERROR HAS OCCURED IN GETLIN
/DETERMINE THE ERROR TYPE AND GIVE USER
/MESSAGE WITH OFFENDING LINE
/THEN CONTINUE THE MOVE
/
MVRDER	0
	SAD C60		/IS IT A TRUNCATED LINE
	JMP MVTRN		/YES
	LAW PRTYMS	/NO -- READ ERROR
	SKP
MVTRN	LAW TRNMES
	JMS TYPOUT	/GIVE MESSAGE
	JMS PACK	/PRINT OFFENDING LINE
ADR018	INLINE
	SBUFF
	LAW SBUFF
	JMS TYPOUT
	.IFDEF EDITVT
	JMS TYPRTN
	.ENDC
	DZM ERRSW		/CLEAR OUT ERROR SW
	DZM	NOPKSW	/RESET NO REPACK SW
	JMP* MVRDER	/GO CONTINUE MOVE
/
	.TITLE CMD PROC MODIFY
/
/
/PROCESSING FOR MODIFING A LINE
/WITH THE TERMINATOR OF THE TYPED IN
/LINE DETERMINING IF THE REST OF THE
/CURRENT LINE IS TRUNCATED.
/LINE IS TRUNCATED ON A <CR> AND
/APPENDED ON AN ALTMODE
/
/
MODIFY	LAC NXTPTR	/GIVE ADDR OF STRING
	DAC MDSTG1	/TO SEARCH FOR TO SCAN
	DZM LOOPCT
	JMS TOPBOM	/CHECK FOR TOP OR END OF FILE
CNTMOR	JMS NXTCHR	/COUNT HOW MANY CHAR
	JMP CNTDON	/IN THE STRING
	ISZ LOOPCT
	JMP CNTMOR
CNTDON	LAC LOOPCT	/CHECK FOR PRESENTS
	SNA		/OF A STRING
	JMP FND6	/EXIT  NO STRING
	.IFUND	RSX
	LAW INLINE
	JMS GETBNK
	.ENDC
	.IFDEF	RSX
	LAC	(INLINE)
	.ENDC
	DAC MDSTG2
MDSCAN	JMS SCAN	/LINE FOR STRING
MDSTG1	0
MDSTG2	0
	JMP MDNMCH	/NO MATCH
	JMP MDMACH	/MATCH FOUND
	JMP FND6	/EXIT NO MATCH IN LINE
/
/NO MATCH COMES HERE
/
MDNMCH	ISZ MDSTG2	/BUMP ADDR
	JMP MDSCAN	/SCAN SOMEMORE
/
/MATCH FOUND COMES HERE
/
MDMACH	LAC MDSTG2	/CALCULATE ADDR OF 1'ST CHAR
	TAD LOOPCT	/AFTER STRING
	DAC MDSTG1	/SAVE IT
	LAC* MDSTG1	/GET CHAR
	DAC NUM		/SAVE IT
	LAW -176	/PUT ALTMODE TERMINATOR IN LINE
	DAC* MDSTG1
	JMS PACK	/GO PACK 1'ST HALF
ADR014	INLINE		/OF INLINE
	TYLINE
	LAW TYLINE	/TYPE OUT 1'ST
	JMS TYPOUT	/HALF OF INLINE
	LAW TYLINE	/GET NEW INPUT ON TTY
	JMS TYPEIN
	JMS UNPACK	/UNPACK IT TO EDLIN
ADR013	TYLINE
	EDLIN
	LAC NUM		/RESTORE CHAR TO INLINE
	DAC* MDSTG1
	LAC MDSTG1	/SET UP FROM ADDR
	TAD FENCE	/FOR "LINESW"
	DAC MDFROM
	JMS LINESW	/SWAP 2'ND PART OF
MDFROM	0		/INLINE TO TYLINE
	TYLINE-1
	.IFUND	RSX
	LAW INLINE-1	/CALCULATE NEW INLINE LENGTH
	JMS GETBNK
	.ENDC
	.IFDEF	RSX
	LAC	(INLINE-1)	/CALCULATE NEW INLINE LENGTH
	.ENDC
	CMA
	TAD MDSTG1
	DAC LENGTH	/STORE IT
	.IFUND	RSX
	LAW EDLIN	/SET UP NXTPTR FOR
	JMS GETBNK	/"APPEND"
	.ENDC
	.IFDEF	RSX
	LAC	(EDLIN)	/SET UP NXTPTR FOR "APPEND"
	.ENDC
	DAC NXTPTR
	.IFUND EDITOR
	LAC TVSW	/IS TV ON
	SNA
	JMP TVFMD1	/YES HANDLE
	.ENDC
MDAPP1	JMS APPEND	/APPEND NEW DATA TO INLINE
	CMA		/IS TERMINATOR A <CR>
	SAD C15
	.IFUND EDITOR
	JMP TVFMD3	/YES EXIT FOR TV
	.ENDC
	.IFDEF EDITOR
	JMP FND6
	.ENDC
	LAC POINTR	/DECREMENT POINTER FOR STORING
	TAD FENCE	/DATA IN "APPEND"
	DAC POINTR
	.IFUND	RSX
	LAW TYLINE	/SET UP POINTER FOR GETTING DATA
	JMS GETBNK
	.ENDC
	.IFDEF	RSX
	LAC	(TYLINE)	/SET UP POINTER FOR GETTING DATA
	.ENDC
	DAC NXTPTR	/IN "APPEND"
	JMS APPEND	/REST OF ORG. INLINE
	.IFUND EDITOR
	LAC NUM		/WAS TV ON
	SNA
	JMP TVFMD2	/YES -- EXIT FOR TV
	.ENDC
	JMS PACK	/TYPE OUT REST OF
ADR015	TYLINE		/ORGINAL INLINE
	EDLIN
	LAW EDLIN
	JMS TYPOUT
	JMP FND6	/EXIT
	.IFUND EDITOR
/
/HANDLING OF THE DISPLAY WHEN IT IS ON
/FOR THE MODIFY COMMAND
/
TVFMD1	DAC NUM		/SAVE CURRENT TVSW (0)
	CMA
	DAC TVSW	/TURN OFF TV FOR APPEND
	JMP MDAPP1	/GO APPEND NEW DATA
/
TVFMD2	DAC TVSW	/TURN TV BACK ON
	JMS TVXUT	/CROSS OUT CURRENT LINE
	JMS TVCL	/DISPLAY NEW CURRENT LINE
	JMS TYPRTN	/<CR><LF> FOR TTY IN CASE OF ALTMODE
	JMP FND6	/EXIT
/
TVFMD3	LAC NUM		/WAS TV ON
	SZA
	JMP FND6	/NO EXIT
	JMP TVFMD2	/YES EXIT FOR TV ON
/
	.ENDC
	.TITLE CMD PROC--SIZE,OVERLAY,CALL,OPEN & KEEP
/
/
/SET N LINES IN BLOCK BUFFER.
SIZE	JMS GETNUM	/GET DECIMAL ARGUMENT.
	SAD FENCE		/-1?
	JMP ILLCWD	/ILLEGAL IF SO.
	.IFDEF	RSX
	PAL		/SAVE THE REQUESTED SIZE
	TCA		/COMPLEMENT IT TO CHECK IF IT WILL BE LEGAL
	TAD	MAXBUF	/COMPARE AGAINST MAXIMUM ALLOWED
	SMA		/IS IT LEGAL?
	JMP	ILLCWD	/NO REJECT IT
	PLA		/YES RESTORE COUNT
	.ENDC
	DAC BUFSIZ	/ARG .G. 1, SAVE NEW SIZE.
	JMP FND4		/GET NEXT COMMAND.
/CHANGE N LINES.
OVRLAY	JMS GETNUM	/GET TOTAL LINES TO REPLACE.
	DAC LOOPCT	/SAVE AS COUNTER.
	.IFUND EDITOR
	JMS	TVXUT	/CROSS OUT CURRENT LINE ON DISPLAY.
	.ENDC
OVRLP1	DZM LENGTH	/FORESTALL WRITE OF FINAL LINE SKIPPED OVER.
	ISZ LOOPCT	/COUNT CURRENT LINE.
	SKP		/MORE TO DO, GET NEXT LINE.
	JMP INPUT		/DONE, GO CHANGE TO INPUT MODE.
	JMS GETLIN	/READ NEXT LINE FROM FILE OR INPUT BUFFER.
	INLINE		/..
	JMP EOF		/END-OF-FILE RETURN FROM GETLIN.
	JMP OVRLP1	/READ WAS SUCCESSFUL, PROCESS THIS LINE.
/SERVICE CALL REQUEST.
CALL	NOP
	JMS GETCOM
	LAC CWD
	SAD C104
	JMP CDEL
	SAD C122
	JMP CREN
	JMP ILLCWD
CDEL	JMS GETDAT
	JMS GETCOM
	SNA
	JMP ILLCWD
	LAW -2
	JMS PK6BT
	CWD
CALLDB	CALDB1
	LAC SRCNAM
	DAC CALDB1+2
	JMS GETCOM
	SNA!CLA!CMA
	JMP CDEL1
	JMS PK6BT
	CWD
	CALDB1+2
CDEL1	LAC CALLDB
	ADD CALDAT
	DAC CDEL2+1
CDEL2	JMS DELFIL
	0
	JMP IOSET
/CALL RENAME..
CREN	JMS GETDAT
	JMS GETCOM
	SNA
	JMP ILLCWD
	LAW -2
	JMS PK6BT
	CWD
	CALDB1
	JMS GETCOM
	SNA!CLA!CMA
	JMP ILLCWD
	JMS PK6BT
	CWD
	CALDB1+2
	JMS GETCOM
	SNA
	JMP ILLCWD
	LAW -2
	JMS PK6BT
	CWD
	CALDB2
	LAC CALDB1+2
	DAC CALDB2+2
	JMS GETCOM
	SNA!CLA!CMA
	JMP CREN2
	JMS PK6BT
	CWD
	CALDB2+2
CREN2	LAC CALLDB
	ADD CALDAT
	DAC CREN1
	JMS RENAME
CREN1	0
	CALDB2
IOSET	JMS IOINIT
	JMP FND6
/GETDAT...
GETDAT	0
	JMS GETCOM
	LAC CWD
	SAD OFF
	JMP COUT
	SAD C111
	JMP CIN
	JMP ILLCWD
CIN	CLA!SKP
COUT	LAC XCTZRO
	DAC CALDAT
	JMP* GETDAT
/PRODUCE A FORM FEED ON PAPER TAPE TO KEEP THE PDP7
/EDITOR HAPPY.
FORM	LAC OUTDEV
	SMA
	JMP FND6
	.IFUND	RSX
	OUTCAL
	11		/WRITE
FEED	FORMFD
	-4
	.ENDC
	JMP FND4
	.IFUND	RSX
FORMFD	002002
	.ENDC
BLANK	40		/CHECKSUM -- IGNORED BY PUNCH HANDLER.
	.IFUND	RSX
	.ASCII <14>
	.ENDC
	.IFUND	RSX
RECOUP	LAC QUIT
	SNA
	JMP BEGIN
	LAC MOVESW
	SZA
	JMP MOVEIP
	DZM QUIT
	LAC NOPLIT
	DAC EXITRQ
MOVEIP=.
	LAC* SCOM16	/RESTORE LINK.
	DAC QRETN		/SAVE RETURN.
	RAL		/..
	LAC* SCOM17	/RESTORE AC.
	JMP* QRETN	/REENTER INTERRUPTED SEGMENT.
	.ENDC
TTRS	JMS TYPRTN
	DZM	NOPKSW	/CLEAR THE PACKING SWITCH
	JMP EDIT
/OPEN AN INPUT FILE FOR EDITING.
OPEN	NOP		/OR JMP ILLCWD, IF OPEN SEQUENCE ALREADY EXECUTED.
	LAC INDEV		/IS INPUT DEVICE FILE-STRUCTURED?
	SPA		/INDEV IS POSITIVE IF SO.
	JMP FND4		/NON-FILE-STRUCTURED, IGNORE OPEN REQUEST.
	JMS GETCOM	/GET FILE NAME FROM COMMAND STRING.
	SNA		/SKIP IF A NAME WAS IN FACT TYPED.
	JMP NONAM1	/NO NAME FURNISHED, PUBLISH ERROR.
	LAW -2		/FILE NAME GIVEN, PACK INTO FIRST
	JMS PK6BT		/TWO WORDS OF DEB.
	CWD		/..
INNADR	INNAME		/..
	LAC SRCNAM	/USE "SRC" AS DEFAULT EXTENSION.
	DAC INNAME+2	/..
	JMS GETCOM	/THEN GO GET TYPED EXTENSION, IF PRESENT.
	SNA!CLA!CMA	/SKIP IF AN EXTENSION WAS TYPED.
	JMP DZMNAM	/OTHERWISE, ASSUME "SRC" IS WANTED.
	JMS PK6BT		/NOW PACK UP THE EXTENSION TYPED.
	CWD		/..
	INNAME+2		/INTO THIRD WORD OF DEB.
DZMNAM	DZM NAMSW		/INDICATE THAT A FILE NAME HAS BEEN FURNISHED.
	JMS IOINIT		/INIT INPUT AND OUTPUT DEVICE.
	JMS FSTAT		/NOW GO LOOK FOR THE NAMED FILE.
	INNAME		/FILE NAME IS IN INNAME...INNAME+2.
	SNA		/SKIP IF FILE IS PRESENT ON INPUT DEVICE.
	JMP NTFND		/FILE NOT FOUND, COMMENT.
	DZM INFILE	/INDICATE THAT AN INPUT FILE IS PRESENT.
	JMS SEEK		/GO OPEN THE INPUT FILE FOR READING.
	INNAME		/..
	LAC BADARG	/GET A TRANSFER TO ILLCWD
	DAC OPEN		/AND SHUT OUT FURTHER ACCESS TO OPEN
	DAC CALL		/AND CALL SEQUENCES.
	LAC SKPLIT	/SET EXITSW TO INDICATE
	DAC EXITSW	/A FILE IS OPEN
	JMP EDIT		/THEN GO PREPARE TO EDIT THE FILE JUST OPENED.
INNAME	.BLOCK 3
	.IFUND	RSX
NONAM1	LAW NOFLNM
	.ENDC
	.IFDEF	RSX
NONAM1	JMS	ATTTY	/ATTACH TTY'S
	LAW	NOFLNM	/ADDR OF NAME OF ABSENT FILE
	.ENDC
	JMS TYPOUT
	JMP FND4
NTFND	LAW INNAME	/ADDR OF NAME OF ABSENT FILE.
	JMS TYNAME	/TYPE OUT FILE NAME.
	LAW FILN1		/COMPLETE THE COMMENT.
	JMS TYPOUT	/"NOT FOUND."
	LAC BADARG	/DON'T ALLOW OPEN
	DAC OPEN	/OR CALL SEQUENCES
	DAC CALL
	LAC SKPLIT	/SET EXITSW TO INDICATE
	DAC EXITSW	/A FILE IS OPEN
	.IFDEF	RSX
	JMS	DETTY	/DETACH TTY'S
	.ENDC
	JMP INPUT		/ACCEPT SOME INPUT.
/SERVICE KEEP REQUEST.
KEEP	LAC DIRSW		/ARE WE GOING FROM -14 TO -15?
	SMA		/IF NOT, SKIP; COULD BE TROUBLE.
	JMP KEEP1		/YES, OK.
	JMS DEVCHK
	JMP KEEP1		/SAME UNIT FOR BOTH DAT SLOTS, OK. HONOR REQUEST.
	LAW TOPRQM	/TWO UNITS AND GOING WRONG WAY, COMMENT.
	JMS TYPOUT	/"TOP REQUEST NEEDED."
	JMP FND6		/GET NEXT COMMAND.
KEEP1	JMS GETCOM	/GET FILE NAME WANTED.
	SNA		/SKIP IF A FILE NAME WAS GIVEN.
	JMP NONAM1	/IF NOT, GO COMPLAIN.
	JMS GETSNM
SETSAV	DZM SAVESW	/INDICATE A SAVE IS WANTED.
	JMP FND6		/THEN REENTER MAIN LINE.
/
/SUBROUTINE GETSNM WILL MAKE UP THE DIRECTORY
/ENTRY BLOCK (DEB) IN SAVNAM WITH WHAT THE USER
/HAS TYPED FOR A FILE NAME AND EXTENSION. IF NO
/EXTENSION WAS TYPED SRC WILL BE USED.
/
/CALL	JMS	GETCOM		/GET FILE NAME INTO CWD
/	JMS	GETSNM
/	RETURN
/
GETSNM	0
	LAW	-2		/PACK 2 WORDS
	JMS	PK6BT		/IN SIXBT
	CWD
	SAVNAM
	LAC	SRCNAM		/PUT SRC IN DEB
	DAC	SAVNAM+2
	JMS	GETCOM		/GET EXIT IF ONE
	SNA!CLC			/PACK ONE WORD
	JMP*	GETSNM		/EXIT
	JMS	PK6BT
	CWD
	SAVNAM+2
	JMP*	GETSNM		/EXIT
/
	.TITLE CMD PROC--ICLOSE,SCLOSE & CLOSE
/CLOSE INPUT FILE ONLY.
ICLOSE	CLA		/INDICATE CURRENT INPUT DAT SLOT IS TO BE REFERENCED.
	DAC ICLSW	/INDICATE ICLOSE REQUEST FOR OPEN
	JMS CLSFIL	/GO CLOSE THE INPUT FILE.
	LAC NOPLIT	/GET A NOP CODE.
	DAC OPEN		/ALLOW ENTRY TO "OPEN" SEQUENCE.
	DAC RDFNOP	/AND SET UP TO FILL BOTH INPUT BUFFERS ON NEXT READ.
	DAC NAMSW		/INDICATE NO FILE NAME HAS BEEN PROVIDED.
	LAC INDEV		/IS INPUT DEVICE FILE-STRUCTURED?
	SPA!CMA		/INDEV .G. 0, YES; SET AC NEGATIVE.
	CLA		/INDEV .L. 0, NO; SET AC POSITIVE.
	DAC INFILE	/INFILE NEGATIVE MEANS NO INPUT FILE PRESENT.
	LAC TFILE1	/PUT DEFAULT INPUT FILE NAME
	DAC INNAME	/IN INNAME DEB
	LAC TFILE1+1
	DAC INNAME+1
	ISZ INNAME+1	/**.TFIL2 EDT**
	LAC EDNAM
	DAC INNAME+2
	JMP FND4		/GO READ NEXT COMMAND.
/
/
SCLOSE	LAW -1
	DAC DIRSW
/
/
CLOSE	LAC OUTDEV
	SMA
	JMP CLOSE2
JMSCLS	JMS CLSOUT
	JMP EXITCH	/GO CHECK FOR EXIT REQUEST
CLOSE2	JMS GETCOM
	DZM NAMSW1
	SZA!CLA		/SKIP IF NO NAME TYPED IN CLOSE REQUEST.
	JMP NAME1A	/A NAME WAS TYPED.
	SAD NAMSW		/SKIP IF NO NAME GIVEN IN OPEN REQUEST.
	JMP CLOS1A	/AT LEAST ONE NAME HAS BEEN PROVIDED.
	LAW NOFLNM
	JMS TYPOUT
	JMP FND4
NAME1A	JMS GETNNM
/
/DETERMIN IF WE ARE AT THE TOP A FILE
/AND IF BOTH INPUT AND OUTPUT DEVICES
/ARE FILE STRUCTURED. ALSO, IF WE ARE
/NOT IN BLOCK MODE AND IF BOTH INPUT
/AND OUTPUT FILES ARE ON THE SAME
/DEVICE AND UNIT NUMBER.
/ALSO, THAT INPUT MODE HAS NOT BEEN ENTERED
/AND A SAVE IS NOT WANTED (IE A KEEP)
/IF ALL THE ABOVE CONDITIONS ARE MEET
/THEN THE OUTPUT FILE IS DELETED (.TFIL1 EDT)
/AND THE INPUT FILE CLOSED. ALSO,IF A NAME
/WAS TYPED IN THE CLOSE (SCLOSE,EXIT)
/COMMAND THE INPUT FILE WILL BE RENAMED.
/
CLOS1A	LAC BLOKSW
	SMA
	JMP CLOSE1	/BLOCK MODE ON
	LAC SAVESW
	SNA
	JMP CLOSE1	/A SAVE IS WANTED
	LAC INPSW	/HAS INPUT MODE BEEN ENTERED
	SZA
	JMP CLOSE1	/YES--TO BAD
	LAC FILSTR
	SPA
	JMP CLOSE1	/BOTH INPUT AND OUTPUT ARE NOT FILE STRUCT.
	JMS DEVCHK
	SKP
	JMP CLOSE1	/NOT SAME DEVICE AND UNIT
	LAC RDFNOP
	SAD RDFJMP
	JMP CLOSE1	/NOT AT TOP OF FILE
	AND OUTSW1
	SMA
	JMP CLOSE1	/NOT AT TOP OF FILE
	JMS DELFIL	/DELETE .TFIL1 EDT FROM
	XCT TFILE1	/OUTPUT DEVICE
	CLA
	JMS CLSFIL	/CLOSE INPUT FILE
	LAC NAMSW1	/WAS NAME TYPED IN COMMAND
	SNA
	JMP EXITCH	/NO--DONE
	JMP CKNAM		/GO DO RENAME
/
/
CLOSE1	JMS CLSOUT	/CLOSE I/O FILES
	LAC INDEV	/IS INPUT DEVICE FILE ORIENTED IE--(FOD)
	SPA
	JMP GETNM2	/NO
	JMS DEVCHK	/YES--SAME DEVICE UNIT #
	JMP GETNM2	/YES
	LAC DIRSW	/SCLOSE WANTED
	SMA
	JMP GETNM2	/NO
	JMS SEEK
	INNAME
	JMP CLOSE1
GETNM2	LAC NAMSW1	/IS A RENAME WANTED
	SNA
	JMP EXITCH	/GO CHECK FOR EXIT REQUEST
CKNAM	LAC INDEV	/YES-- LINK=1 IF INPUT (FOD)
	RAL
	LAC CKNM1	/GET ADDR OF NEWNAM DEB
	AND CL0777	/SET BIT 0 TO A 1 IF INPUT NOT (FOD)
	SZL
	ADD XCTZRO
	DAC CKNM1	/STORE RESULT
	LAC CKNM2	/DO THE SAME FOR INNAME AS FOR NEWNAM
	AND CL0777
	SZL
	ADD XCTZRO
	DAC CKNM2
	LAC NAMSW	/NAMESW=0 NAME WAS TYPED IN OPEN REQ
	SNA!CLA!CMA	/SKIP IF SO AC=-1
	JMP CKNM3
CKNM0	JMS FSTAT	/SEE IF NAME IS OK TO USE
CKNM1	NEWNAM
	SZA
	JMP NMERR2	/NO -- TELL USER AND REQUEST ANOTHER NAME
RNM2	JMS RENAME	/RENAME FILE
CKNM2	INNAME
	NEWNAM
	JMP EXITCH	/GO CHECK FOR EXIT REQUEST
/NAMES GIVEN BOTH IN OPEN AND CLOSE REQUESTS. FIND OUT IF TWO
/NAMES ARE IDENTICAL. IF SO, ACCEPT CLOSE REQUEST.
CKNM3	TAD CKNM1	/AC=-1 WHEN WE GET HERE
	DAC* C12
	CLA!CMA
	TAD CKNM2
	DAC* C13
	LAW -3
	DAC WRITE
CKNM4	LAC* 12	/CHECK NAMES
	SAD* 13
	SKP
	JMP CKNM0	/NOT THE SAME
	ISZ WRITE
	JMP CKNM4
	JMP EXITCH	/GO CHECK FOR EXIT REQUEST
/
/A NAME ERROR HAS OCCURED INFORM USER
/AN ASK FOR ANOTHER NAME.  DO THIS
/UNTIL THE USER HAS TYPED
/A GOOD NAME
/
	.IFUND	RSX
NMERR2	LAW	BADNAM		/INFORM USER OF TROUBLE
	.ENDC
	.IFDEF	RSX
NMERR2	JMS	ATTTY	/ATTACH TTY
	LAW	BADNAM	/INFORM USER OF TROUBLE
	.ENDC
	JMS	TYPOUT
	LAW 76
	JMS TYONCH
	LAW	TYLINE		/GET NEW NAME
	JMS	TYPEIN
	JMS	UNPACK		/UNPACK TO 7BIT ASCII
ADR017	TYLINE
	EDLIN
	SNA			/DID HE TYPE ANYTHING
	JMP	NMERR2		/NO--GO BACK AN COMPLAIN
	.IFDEF	RSX
	JMS	DETTY	/DETACH TTY
	.ENDC
	LAC EDLADR
	DAC NXTPTR
	JMS	GETCOM		/MAKE UP DEB IN NEWNAM
	JMS	GETNNM
	JMP	CKNAM		/GO CHECK NAME
/
/
/SUBROUTINE GETNNM---GET NAME TYPED BY
/USER AND MAKE UP THE DEB IN NEWNAM
/
/CALL	JMS	GETCOM
/	JMS	GETNNM
/	RETURN
/
GETNNM	0
NAMEIN	LAW	-2		/PACK TWO WORDS
	JMS	PK6BT
	CWD
	NEWNAM
	LAC	SRCNAM		/PUT SRC IN FOR EXTENSION
	DAC	NEWNAM+2
	DAC	NAMSW1	/INDICATE A NEW NAME IS WANTED
	JMS	GETCOM		/GET EXTENSION IF THERE IS ONE
	SNA!CLC
	JMP*	GETNNM		/NO EXT--EXIT
	JMS	PK6BT		/PACK ONE WORD
	CWD
	NEWNAM+2
	JMP*	GETNNM
/
/
NEWNAM	.BLOCK 3		/NEW NAME DEB
	.TITLE CMD PROC--TOP,BOTTOM,GET,RENEW,WRITE & READ
/
/SERVICE TOP COMMAND.
/
TOP	LAC PBLKSW
	SZA
	JMP TOPFIL
	JMS RSBUFF
	JMS CHBUFF
	JMP TOPFL2
TOPFIL	LAC FILSTR
	SPA
	JMP ILLCWD
	LAC INPSW
	SZA
	JMP TOPFL1
	LAC RDFNOP
	SAD RDFJMP
	JMP TOPFL1
	AND OUTSW1
	SPA
	JMP FND4
TOPFL1	JMS CLSOUT
	JMS SEEK
	INNAME
TOPFL2	DZM INPSW
	JMP FND4
/MOVE POINTER TO LAST LINE OF FILE OR BUFFER.
BOTTOM	ISZ BOTTSW	/INDICATE BOTTOM IN PROCESS
BOTT1	LAC LENGTH
	DAC LEN1
	JMS GETLIN	/GET NEXT LINE.
	EDLIN		/SAVE TEMPORARILY IN EDLIN ARRAY.
	JMP FND3		/ALL DONE IF END OF FILE.
	LAC LEN1
	DAC LENGTH
	JMS PUTLIN	/NOT YET, OUTPUT CURRENT LINE.
	JMP FULBUF
	DZM LENGTH	/MOVE EDLIN TO INLINE.
	LAC EDLADR
	DAC NXTPTR
	JMS APPEND
	LAC ERRSW		/WERE THERE ANY READ ERRORS IN GETLIN
	SNA
	JMP BOTT1		/NO -- GO BACK FOR NEXT LINE
	DZM ERRSW		/CLEAR ERROR SW
	SAD C60		/GIVE CORRECT ERROR MESSAGE
	JMP TYTRN		/TRUNCATED
	JMP TYPAR		/READ ERROR
/
/
BOTTSW	0
/
/READ SOME LINES FROM SUBSIDIARY DEVICE.
GET	JMS GETNUM
	DAC LOOPCT
	.IFUND	RSX
SBREAD	IN2CAL
	10
SBADR	SBUFF
	-BUFLEN
	IN2CAL
	12
	.ENDC
	.IFDEF	RSX
	LAC	(DAT10)	/ATTACH THE DEVICE FOR GET
	JMS	ATTACH
SBREAD	CAL	RDIN2
	JMS	WFEV	/WAIT FOR EVENT VARIABLE AND CHECK VALIDITY OF EV
	LAC	(DAT10) /LUN OON WHICH WAIT IS DONE
	.ENDC
	LAC SBUFF
	AND C7
	SAD C5
	SKP
	SAD C6
	JMP GETEOF
	JMS PUTLIN
	.IFDEF	RSX
	JMP FULBUA
	.ENDC
	.IFUND	RSX
	JMP	FULBUF
	.ENDC
	JMS UNPACK
ADR008	SBUFF
	INLINE
	DAC LENGTH
	.IFUND EDITOR
	JMS	TVCL	/DISPLAY NEW CURRENT LINE.
	.ENDC
	LAC SBUFF
	AND C60
	SAD C60
	.IFUND	RSX
	JMP TYTRN
	.ENDC
	.IFDEF	RSX
	JMP	TYTRNA	/DETACH BEFORE EXITING
	.ENDC
	SZA
	JMP TYPAR
	DAC INPSW
	ISZ LOOPCT
	JMP SBREAD
	.IFDEF	RSX
	LAC	(DAT10)	/DETACH DEVICE BEFORE EXITING
	JMS	DETACH
	.ENDC
	JMP FND4
	.IFUND	RSX
GETEOF	LAW EOMRM
	.ENDC
	.IFDEF	RSX
TYTRNA	LAC	(DAT10)	/DETACH DEVICE
	JMS	DETACH
	JMP	TYTRN
/
FULBUA	LAC	(DAT10)	/DETACH DEVICE
	JMS	DETACH
	JMP	FULBUF
/
GETEOF	LAC	(DAT10)	/DETACH DEVICE
	JMS	DETACH
	LAW	EOMRM
	.ENDC
	JMS TYPOUT
	JMP EOFCOM
/SERVICE RENEW REQUEST.
RENEW	JMS WRITE		/FIRST WRITE OUT THE CURRENT BUFFER.
	JMS READ		/THEN FILL UP THE BUFFER FROM THE INPUT FILE.
	JMP FND4		/AND GO READ ANOTHER REQUEST.
/SERVICE WRITE REQUEST.
WRITE	0		/ENTRY TO WRITE BLOCK BUFFER INTO OUTPUT FILE.
	LAC PBLKSW	/IS BLOCK MODE ON?
	SZA		/SKIP IF IT IS.
	JMP ILLCWD	/IF BLOCK MODE IS OFF, DON'T ACCEPT WRITE REQUEST.
	JMS RSBUFF	/GO FILL UP OUTPUT BUFFER FROM INPUT BUFFER.
	JMS CHBUFF	/THEN CHANGE THE BUFFERS AROUND.
	LAC BLOKSW	/SAVE THE CURRENT STATUS OF BLOKSW.
	DAC LOOPCT	/..
FENCE	LAW -1		/THEN TURN BLOCK MODE OFF.
	DAC PBLKSW	/..
	DAC BLOKSW	/..
	JMS RSBUFF	/NOW GO EMPTY THE INPUT BUFFER, AND THIS TIME WRITE OUTPUT FILE.
	LAC LOOPCT
	DAC BLOKSW
	DZM PBLKSW
	JMS CHBUFF
	DZM BUFEMP
	JMP* WRITE	/RETURN TO CALLER.
/SERVICE READ REQUEST.
READ	0		/ENTRY TO FILL INPUT BUFFER.
	LAC BUFEMP
	SZA
	JMP NEMPBF
	LAC BUFSIZ
	DAC LOOPCT
	LAC BLOKSW
	SZA!CLA!CMA	/SKIP IF BLOCK ON,-1 TO AC
	JMP ILLCWD	/ILLEGAL COMMAND IF NOT.
	DAC PBLKSW	/OFF PUTLIN BLOCK SWITCH.
	JMS PUTLIN	/OUTPUT CURRENT LINE IF ANY.
	JMP FULBUF
	DZM PBLKSW	/RESET PUTLIN BLOCK SWITCH ON.
	JMS CHBUFF
	LAW -1
	DAC GBLKSW
READ1	JMS GETLIN
	INLINE
	JMP EOF
	JMS PUTLIN
	JMP FULBUF
	ISZ LOOPCT
	JMP READ1
	JMS CHBUFF
	JMP* READ
NEMPBF	LAW BFNEMM
	JMS TYPOUT
	JMP* READ
	.TITLE SUBROUTINES RSBUFF,CHBUFF,RDFILE &WRFILE
/
/SUBROUTINE RSBUFF; EMPTY INPUT BUFFER, FILL OUTPUT BUFFER.
RSBUFF	0
NCHARS=RSBUFF		/GETCOM: TOTAL TYPED CHARACTERS IN CURRENT COMMAND.
RSB01	JMS PUTLIN
	JMP FULBUF
	LAC GBLKSW
	SZA
	JMP* RSBUFF
	JMS GETLIN
	INLINE
	JMP* RSBUFF
	JMP RSB01
/SUBROUTINE CHBUFF, EXCHANGE INPUT AND OUTPUT BUFFERS; SET GET
/AND PUT POINTERS TO BUFFER TOPS.
CHBUFF	0
	LAC BBUF1		/GET TOP OF BUFFER 1.
	DAC NXTPUT	/GIVE TO OUTPUT POINTERS.
	DAC CURPUT	/..
	TAD FENCE
	ADD BBUFX
	DAC BUFEND
	LAC BBUF2		/GET TOP OF BUFFER 2.
	DAC CURGET	/GIVE TO INPUT POINTER.
	DAC BBUF1		/SWITCH BUFFERS.
	LAC NXTPUT	/..
	DAC BBUF2		/..
	LAC PBLKSW
	DAC GBLKSW
	LAC BFPTSW	/ANYTHING IN OLD OUTPUT BUFFER?
	SNA		/SKIP IF SO
	DZM CURGET
	DZM BFPTSW	/NOW INDICATE NOTHING IN NEW OUTPUT BUFFER.
	.IFUND EDITOR
/INITIALIZATION FOR DISPLAY BUFFERS.
TVINIT	LAW	-TVNLN	/NUMBER OF LINES TO BUFFER FOR DISPLAY.
	DAC	TVCNT
	LAC	(TVBUF1	/ADDRESS OF 1ST BUFFER IN THE RING.
	DAC	TVSPTR	/SET UP START POINTER.
	DAC	TVCPT2	/SET UP FILL-BUFFERS POINTER.
TVNT10	DAC	TVCPTR	/SET UP TO INITIALIZE BUFFERS.
	DZM*	TVCPTR	/0 1ST WORD MEANS EMPTY BUFFER.
	TAD	(BUFLEN+1	/NEXT BUFFER.
	ISZ	TVCNT	/ALL BUFFERS DONE?
	JMP	TVNT10	/NO,RECYCLE.
	LAC	(JMP TVVP20	/SET SWITCH TO ROUTINE USED TO
	DAC	TVVP10	/FILL UP BUFFERS.
	.IFDEF EDITVP
	LAC	TVSW	/GET STATUS OF TV SWITCH
	DAC	TVCL
	SZA		/IF IT WAS ON,
	JMP	TVOFF
	LAW	-1	/TURN OFF
	DAC	TVSW	/THE DISPLAY SWITCH
	LAC	ICLSW	/WAS ICLOSE REQUESTED
	SZA
	JMS	TVST	/NO--TURN OFF THE DISPLAY.
TVOFF	LAC	TVCL	/THEN RESET THE
	DAC	TVSW	/DISPLAY SWITCH.
	.ENDC
	.IFDEF EDITVT
	LAC	ICLSW	/ IF ICLOSE REQUEST IS PENDING DON'T CLEAR SCREEN
	SZA
	JMS	TVCLR	/GO CLEAR SCREEN
TVOFF=.
	.ENDC
	.ENDC
	JMP* CHBUFF	/RETURN TO CALLER.
C5	5
C777	777
C175	175
BFPTSW	0
/SUBROUTINE RDFILE, DOUBLE-BUFFERED READ-INPUT-FILE. BEFORE
/FIRST CALL, RDFNOP MUST CONTAIN SOME INSTRUCTION PERMITTING
/CONTROL TO FALL THROUGH TO RDFNOP+1.
/CALL:	JMS RDFILE
/	LINE BUFFER ADDRESS
/	RETURN IF NO MORE LINES (EOF CODE IN AC)
/	NORMAL RETURN
RDFILE	0
	LAC INFILE	/IS THERE AN INPUT FILE PRESENT?
	SMA		/THERE IS NOT IF INFILE IS NON-ZERO.
	JMP .+4		/IF INFILE .E. ZERO, THERE IS AN INPUT FILE.
	LAW NOFIL1	/NO FILE, COMPLAIN.
	JMS TYPOUT	/"NO INPUT FILE PRESENT."
	JMP FND4		/GO READ NEXT COMMAND.
	LAC* RDFILE	/GET LINE OUTPUT ADDRESS.
	ISZ RDFILE	/BUMP TO RETURN.
	.IFUND	RSX
	JMS GETBNK	/INSERT BANK BITS.
	.ENDC
	DAC RDUP02	/GIVE OUT ADDRESS TO UNPACKER.
RDFUPD	LAC RDCAL2	/GET LAST BUFFER READ.
	DAC RDUP01	/UNPACK THAT BUFFER.
	LAC RDALTB	/READ INTO THE OTHER BUFFER.
	DAC RDCAL2	/..
	LAC RDUP01	/UPDATE OTHER-BUFFER POINTER.
	DAC RDALTB	/..
	.IFUND	RSX
INPTCL	INPCAL		/ISSUE READ.
	10
RDCAL2	RDBUF2		/MODIFIED AT EACH CALL.
	-BUFLEN
	.ENDC
	.IFDEF	RSX
	CAL	WFEVR	/WAIT FOR READ TO COMPLETE DOUBLE BUFFERED
	LAC	EVR	/PICK UP EVENT VARIABLE
	SMA		/IS IT LEGAL?
	JMP	RDCOK	/READ OK PROCEED
	JMS	IOERR	/NO I/O ERROR GO TELL USER
	LAC	(DAT10)	/LUN OF ERROR
RDCOK	CAL	RDINP	/YES -- IT IS LEGAL DO THE NEXT READ
	.ENDC
RDFNOP	NOP		/MODIFIED AFTER FIRST TIME THROUGH.
	LAC RDFJMP	/ONE-TIME SECTION TO PRIME READ BUFFERS.
	DAC RDFNOP
	JMP RDFUPD	/READ AGAIN FIRST TIME ONLY.
RDFJMP	JMP .+1
	LAC* RDUP01	/GET BUFF HEADER.
	AND C7		/THROW AWAY JUNK.
	SAD C5		/END OF FILE?
	SKP		/YES, SO INDICATE.
	SAD C6		/OR END OF MEDIUM?
	JMP RDFEOF	/YES, TAKE EOM RETURN.
	LAC* RDUP01	/CHECK FOR READ AND LONG-LINE ERRORS, GET BUFFER HEADER.
	AND C60		/EXTRACT ERROR BITS.
	DAC ERRSW		/SAVE AS ERROR-PRESENT INDICATOR.
	JMS UNPACK	/CALL UNPACK.
RDUP01	0		/CURRENT READ BUFFER ADDRESS.
RDUP02	0		/CALLER'S LINE BUFFER AREA.
	ISZ RDFILE	/INDEX TO RETURN.
	JMP* RDFILE	/RETURN TO CALLER.
RDFEOF	LAC NOPLIT
	DAC RDFNOP
	JMP* RDFILE	/RETURN TO CALLER.
RDALTB	RDBUF1
/SUBROUTINE WRFILE, DOUBLE-BUFFERED WRITE-OUTPUT-FILE.
/CALL:	JMS WRFILE
/	RETURN
WRFILE	0
	LAC OUTPSW	/IS OUTPUT WANTED? (OUTPSW SET BY OUTPUT ON/OFF COMMAND.
	SZA		/SKIP IF OUTPUT IS ON.
	JMP* WRFILE	/OTHERWISE IGNORE THIS CALL.
	LAC WRPAK2	/EXCHANGE BUFFER ADDRESSES. GET BUFFER USED LAST.
	DAC RDFILE	/SAVE THAT ADDRESS TEMPORARILY.
	LAC WRALTB	/GET START OF ALTERNATE BUFFER.
	DAC WRPAK2	/USE THAT BUFFER FOR PACKING THIS LINE.
	DAC WRCAL2	/WRITE FROM THAT BUFFER ALSO.
	.IFUND EDITOR
	DAC	TVWRFL	/ADD TO DISPLAY BUFFERS.
	.ENDC
	LAC RDFILE	/NOW GET THE FIRST BUFFER AGAIN.
	DAC WRALTB	/AND SAVE AS ALT BUFFER FOR NEXT TIME.
	LAC	NOPKSW	/CHECK NO PACKING SWITCH
	SZA
	JMP	PACKA	/SET DON'T PACK THE LINE JUST SWAP THE BUFFER
	JMS PACK		/GO PACK THE OUTPUT LINE.
INLADR	INLINE		/LINE TO BE PACKED IS ALWAYS IN INLINE.
WRPAK2	WRBUF2		/MODIFIED EACH TIME TO POINT TO "CURRENT" BUFFER.
PKFIN=.
	.IFUND EDITOR
	JMS	TVVP	/ADD A LINE TO THE DISPLAY RING BUFFERS.
TVWRFL	0		/THIS LINE.
	.ENDC
	LAC OUTSW1
	SZA
	JMS OUTENT	/GO CLEAN UP OUTPUT DEVICE AND ENTER FILE
	.IFUND	RSX
OUTPCL	OUTCAL		/WRITE THE LINE JUST PACKED.
	11
WRCAL2	0		/UPDATED EACH TIME TO CORRESPOND TO WRPAK2.
C1000	1000		/WORD COUNT -- IGNORED BY DEVICE HANDLERS.
	.ENDC
	.IFDEF	RSX
	CAL	WFEVW	/WAIT FOR LAST READ TO COMPLETE DOUBLE BUFFERED
	LAC	EVW	/PICK UP THE EVENT VARIABLE
	SMA		/IS IT LEGAL?
	JMP	WROV5	/WRITE OK PROCEED
	JMS	IOERR	/NOT LEGAL GO TELL USER
	LAC	OUTPCL	/LUN ON WHICH ERROR OCCURRED
WROV5	CAL	WROUT	/YES -- IT IS LEGAL DO THE NEXT WRITE
	.ENDC
	DZM OUTSW1	/INDICATE SOMETHING WRITTEN INTO OUTPUT FILE.
	JMP* WRFILE	/NO WAIT REQUIRED AFTER WRITING.
WRALTB	WRBUF1		/MODIFIED EACH TIME TO POINT TO "OTHER" BUFFER.
/
/ PACKA SWITCHES THE INPUT AND OUTPUT BUFFERS TO SAVE
/REPACKING
/
PACKA	LAC	RDALTB	/PICK UP THE INPUT LINE ADDRESS
	DAC	RDFILE	/SAVE IT TEMPORARILY
	LAC	WRPAK2	/PICK UP THE OUTPUT FILE BUFFER
	DAC	RDALTB	/SET IT UP FOR THE NEXT READ
	LAC	RDFILE	/PICK UP THE BUFFER TO BE OUTPUT
	DAC	WRPAK2	/SET IT IN THE BUFFER POINTER
	DAC	WRCAL2	/SET UP WRITE CAL
	.IFUND EDITOR
	DAC	TVWRFL	/ALSO SET THE POINTER TO THE DISPLAY OUTPUT
	.ENDC
	JMP	PKFIN	/FINISHED RETURN
NOPKSW	0	/NO PACK SWITCH JUST SWITCH LINE BUFFER'S
/
/SUROUTINE OUTENT 
/DELETE .TFIL1 EDT ON OUTPUT
/DEVICE IF DISK OR DISK PACK
/AND THEN ENTER .TFIL1 EDT
/ON THE OUTPUT DEVICE
/
OUTENT	0
	.IFDEF DOS15
OUTFST	JMS FSTAT
	XCT TFILE1
	SNA
	JMP OUTETR
	.IFUND	RSX
	LAC DTYP1
	AND CL7000
	SAD (200000
	JMP DELEFL
	SAD (300000
	JMP DELEFL
	JMP OUTETR
	.ENDC
DELEFL	JMS DELFIL
	XCT TFILE1
	JMP OUTFST
	.ENDC
OUTETR	JMS ENTER
TFLDEB	TFILE1
	JMP* OUTENT
/
/
	.TITLE SUBROUTINES DCODSW,SCAN,PUTLIN & GETLIN
/
/SUBROUTINE DCODSW, DECODE CONTROL WORDS "OFF" AND "ON". ON EXIT,
/C(C(DCODSW)) .E. 0 IF ON, -1 IF OFF. IF NO ARGUMENT IS PRESENT, APPROPRIATE
/SWITCH IS SET TO "ON" (0). 
DCODSW	0
	JMS GETCOM	/GET PARAMETER TYPED.
	SNA!CLA		/SKIP IF A PARAMETER WAS PRESENT.
	JMP SETSW 	/IF NO PARAMETER GIVEN, GO TREAT AS "ON".
	JMS SCAN		/CALL STRING COMPARER.
	CWD		/TYPED PARAMETER IS HERE.
	OFF		/COMPARE WITH "OFF".
	JMP DCOD01	/NO MATCH THIS TIME.
	SKP		/POSSIBLE MATCH.
	JMP ILLCWD	/ILLEGAL PARAMETER.
	LAC* STR2		/END OF STRING 2 FOUND?
	SPA!CLA!CMA	/NO, SKIP.
	JMP SETSW		/YES, SET SWITCH TO "OFF" (-1).
DCOD01	JMS SCAN		/COMPARE AGAIN.
	CWD		/PARAMETER IS STILL HERE.
	ON		/THIS TIME, TRY "ON".
	SKP		/NOT FOUND.
	SKP		/POSSIBLE HIT.
	JMP ILLCWD	/NO MATCH, GO COMPLAIN.
	LAC* STR2		/ENSURE END OF STRING 2 REACHED.
	SMA!CLA		/SKIP IF SO.
	JMP ILLCWD	/IF NOT, COMPLAIN.
SETSW	DAC* DCODSW	/AC IS EITHER 0 OR 777777 HERE.
	ISZ DCODSW
	JMP* DCODSW
OFF	117		/"O"
	106		/"F"
	106		/"F"
XCTZRO	XCT 0		/BIT 0 = 1 TO TURN OFF STRING COMPARE IN SCAN.
ON	117		/"O"
SCOM17=ON			/.SCOM+17: AC ON TTY INTERRUPTS.
	116		/"N"
CL7770	777000
/SCAN, ATTEMPT TO MATCH TWO CHARACTER STRINGS.
/CALL:	JMS SCAN
/	ADDRESS OF STRING TO SEARCH FOR.
/	ADDRESS OF STRING UPON WHICH SEARCH IS TO BE PERFORMED.
/	RETURN IF STRING NOT FOUND.
/	RETURN IF END OF STRING1 FOUND.
/	RETURN IF END OF STRING2 FOUND.
SCAN	0
	LAC* SCAN
	.IFUND	RSX
	JMS GETBNK
	.ENDC
	DAC STR1
	ISZ SCAN
	LAC* SCAN
	.IFUND	RSX
	JMS GETBNK
	.ENDC
	DAC STR2
	ISZ SCAN
SLOOP1	LAC* STR1
	SPA
	JMP SLP1
	LAC* STR2
	SPA
	JMP SLP2
	SAD* STR1
	SKP
	JMP* SCAN
	ISZ STR1
	ISZ STR2
	JMP SLOOP1
SLP2	ISZ SCAN
SLP1	ISZ SCAN
	JMP* SCAN
/SUBROUTINE PUTLIN, INSERT A LINE EITHER IN THE CURRENT OUT BUFFER
/OR IN THE OUTPUT FILE ITSELF.
/POINTER TO WHERE THE NEXT LINE WILL BE PACKED IS
/STORED IN THE CHECKSUM WORD OF THE CUURENT LINE
/BLOCK MODE ONLY
/
/PUTLIN ALWAYS GET LINE FROM INLINE
/
/CALL:	JMS PUTLIN
/	RETURN IF BUFFER FULL (LINE NOT INSERTED)
/	NORMAL RETURN.
PUTLIN	0
	LAC LENGTH
	DAC BTEMP
	SNA!CLA!CLL!CML
	JMP PTOFLO-2
	.IFUND	RSX
	SAD QUIT
	.ENDC
	.IFDEF	RSX
	LAC	QUIT	/CHECK FOR ABORT
	SZA
	.ENDC
	JMP TTRS
	SAD PBLKSW	/SKIP IF BLOCK MODE IS OFF.
	SKP!RAL		/BLOCK MODE ON. SET AC = 1.
	JMP WRCAL		/BLOCK MODE OFF, GO OUTPUT LINE.
	DAC NPAIRS	/SET INITIAL WORD-PAIR COUNTER.
	ISZ BTEMP		/ACCOUNT FOR A CARRIAGE RETURN.
COUNT1	ISZ NPAIRS	/COUNT A PAIR.
	LAW -5		/5 CHARS PER PAIR.
	TAD BTEMP		/ADJUST CHARACTER COUNT.
	DAC BTEMP		/SAVE NEW ONE.
	SZA!SMA		/DONE IF ZERO OR MINUS.
	JMP COUNT1	/MORE TO DO.
	LAC NPAIRS	/ALL DONE, GET TOTAL PAIRS REQUIRED BY THIS LINE.
	CLL!RAL		/NPAIRS * 2 TO GIVE TOTAL WORDS THIS LINE.
	ADD NXTPUT	/FORM CURRENT ADDRESS + WORDS THIS LINE.
	DAC BTEMP		/SAVE TEMPORARILY.
	CMA		/2'S COMPLEMENT LAST ADDR REQUIRED.
	TAD BUFEND	/COMPARE WITH LAST ADDRESS AVAILABLE.
	SPA!SNA		/LAST NEEDED .L. LAST AVAILABLE, OK.
	JMP PTOFLO	/ERROR OTHERWISE.
PKCAL	JMS PACK
ADR009	INLINE
NXTPUT	0		/WHERE TO BEGIN WRITING NEXT LINE.
	.IFUND EDITOR
	LAC	NXTPUT	/GET ADDRESS OF
	DAC	.+2
	JMS	TVVP	/A LINE TO ADD TO THE DISPLAY RING BUFFERS.
	0
	.ENDC
	LAC NXTPUT
	SAD CURPUT
	SKP
	DAC* CURPUT
	ADD ONE
	DAC CURPUT
	DZM* CURPUT
	LAC BTEMP
	DAC NXTPUT
	DAC BUFEMP
	DAC BFPTSW
PUTRTN	ISZ PUTLIN	/..
	DZM LENGTH
PTOFLO	JMP* PUTLIN
WRCAL	LAC PBLKSW
	SZA
	JMP WRCAL1
	DZM PBLKSW
	JMP PUTLIN+1
WRCAL1	JMS WRFILE
	JMP PUTRTN
/GETLIN, RETURN NEXT LINE FROM CURRENT BUFFER OR FROM INPUT FILE.
/GETLIN GETS THE POINTER TO THE NEXT LINE FROM THE CHECKSUM
/WORD OF THE CURRENT LINE BLOCK MODE ONLY
/
/CALL:	JMS GETLIN
/	 BUFF
/	RETURN IF NO MORE LINES TO GET.
/	NORMAL RETURN
GETLIN	0
	LAC QUIT
	.IFUND	RSX
	SNA
	.ENDC
	.IFDEF	RSX
	SZA
	.ENDC
	JMP TTRS
	LAC* GETLIN	/GET LINE ADDRESS.
	.IFUND	RSX
	JMS GETBNK	/INSERT HIGH-ORDER BITS.
	.ENDC
	DAC UPKCAL+2	/GIVE TO UNPACKER.
	DAC RDCAL+1	/AND TO FILE READER.
	LAC GBLKSW	/GET BLOCK MODE.
	SZA		/SKIP IF BLOCK IS ON.
	JMP RDCAL		/READ FROM FILE IF NOT.
	LAC BUFEMP
	SNA
	JMP EMPBUF
	LAC CURGET	/GET POINTER TO NEXT LINE
	SNA		/SKIP IF THERE IS ANOTHER LINE TO GET.
	JMP EMPBUF	/NO MORE LINES.
	DAC UPKCAL+1	/GIVE TO UNPACKER.
UPKCAL	JMS UNPACK	/CALL UNPACK.
PWRD1	0		/FROM.
PWRD2	0		/TO.
	DAC LENGTH
	ISZ CURGET
	LAC* CURGET
	DAC CURGET
	ISZ GETLIN	/BUMP TO RETURN.
EMPBUF	ISZ GETLIN	/..
	JMP* GETLIN
RDCAL	JMS RDFILE
PWRD3	0
	JMP EMPBUF
	DAC LENGTH
	LAC BOTTSW	/IF BOTTOM IN PROGRESS DON'T GIVE
	SZA		/ERROR MESSAGE NOW IF THERE IS AN ERROR
	JMP EMPBUF-1
	LAC MOVESW	/IF MOVE IS IN PROGRESS
	SZA		/LET MOVE GIVE MESSAGE IF 
	JMP EMPBUF-1	/THERE IS AN ERROR
	LAC ERRSW
	SAD C60
	JMP TYTRN
	SNA
	JMP EMPBUF-1
TYPAR	LAW PRTYMS
	JMS TYPOUT
	.IFDEF EDITVT
	JMS TYPRTN
	.ENDC
	JMP FND3
TYTRN	LAW TRNMES
	JMS TYPOUT
	.IFDEF EDITVT
	JMS TYPRTN
	.ENDC
	JMP FND3
	.TITLE CHARACTER PACKING & UNPACKING SUBROUTINES
/
/CLOSED SUBROUTINES FOR CHARACTER PACKING AND UNPACKING.
  
  
/SUBROUTINE UNPACK, IOPS ASCII TO ONE CHAR PER WORD. ON RETURN,
/IOPS LINE IS UNPACKED IN "TO" ARRAY AS 7-BIT CHARACTERS, ONE PER
/WORD, RIGHT-ADJUSTED WITH LEADING ZEROES. INITIAL LINE FEED (IF
/ANY) AND TERMINATING CARRIAGE RETURN (OR ALT MODE) ARE DELETED. IN PLACE
/OF THE TERMINATING CHARACTER IS INSERTED ITS 1'S COMPLEMENT (I.E.,
/000015 BECOMES 777762). THE ACCUMULATOR AND REGISTER "TOTCHR" HOLD POSITIVE
/TOTAL NUMBER OF DATA CHARACTERS UNPACKED, EXCLUSIVE OF THE TERMINATOR.
/NOTA BENE: UNPACK USES AUTOINDEX REGISTERS 3 AND 4 (LOCATIONS 12 AND 13)
/AS INPUT AND OUTPUT POINTERS.
/CALL:	JMS UNPACK	/GO TO UNPACK.
/	FROM		/15-BIT ADDRESS OF WORD 0 OF LINE BUFFER HEADER.
/	TO		/15-BIT ADDRESS OF FIRST CHAR OF OUTPUT LINE.
UNPACK	0		/ENTRY TO UNPACK.
PKFROM=UNPACK		/PACK, PK6BT: POINTER TO NEXT CHARACTER IN INPUT ARRAY.
	LAC* UNPACK	/GET ADDRESS OF INPUT LINE.
	DAC* C12		/SAVE AS INPUT POINTER (IN LOC 12).
	ISZ* C12		/ADJUST TO POINT TO FIRST DATA PAIR.
	ISZ UNPACK	/BUMP TO SECOND ARGUMENT.
	LAC* UNPACK	/ARG 2 IS ADDRESS OF OUTPUT LINE.
	TAD FENCE		/DECREMENT BY ONE.
	DAC* C13		/SAVE AS POINTER TO OUTPUT ARRAY (IN LOC 15).
	ISZ UNPACK	/BUMP TO RETURN.
	DZM TOTCHR	/ZERO TOTAL CHARACTERS IN LINE.
	DZM FSTSW		/INDICATE NO DATA ENCOUNTERED YET.
/ENTER MAJOR LOOP TO GET NEW WORD PAIR FROM INPUT LINE AND
/RESET CHARACTER COUNTER (PK5CHR) TO 5.
UNPLP1	LAC* 12		/GET NEXT WORD FROM LINE BUFFER.
	.IFUND	EAE
	DAC PWRD2		/SAVE AS FIRST WORD OF PARI.
	.ENDC
	.IFDEF	EAE
	DAC	PWRD1
	.ENDC
	LAC* 12		/PICK UP NEXT WORD.
	.IFUND	EAE
	DAC PWRD3		/SECOND WORD OF NEW CURRENT PAIR.
	.ENDC
	.IFDEF	EAE
	DAC	PWRD2
	.ENDC
	LAW -5		/SET UP TO EXTRACT 5 CHARACTERS FORM THIS PAIR.
	DAC PK5CHR	/..
	.IFDEF	EAE
	LAC	(UNPKJP	/SET UP THE POINTER TO THE JUMP TABLE
	DAC	UNPKJS	/TO UNPACK 5/7 ASCII
	.ENDC
/ENTER INNER LOOP TO GET NEXT CHARACTER FROM CURRENT WORD PAIR,
/STORE IT IN OUTPUT ARRAY, AND CHECK FOR COMPLETION.
	.IFUND	EAE
UNPLP2	JMS PRAL7		/GET NEXT CHAR FROM CURRENT PAIR.
	.ENDC
	.IFDEF	EAE
UNPLP2	XCT*	UNPKJS	/UNPACK A CHARACTER
	ISZ	UNPKJS	/MOVE POINTER FORWARD ONE
	.ENDC
	AND C177		/TAKE ONLY RIGHTMOST SEVEN BITS.
	SNA		/ACCEPT ONLY IF NON-NULL.
	JMP UNPB5C	/NULL CHARACTER, IGNORE.
	SAD C12		/LINE FEED?
	JMP UNPLNF	/YES, GO IGNORE ONLY IF FIRST CHARACTER IN LINE.
	SAD C175		/ALT MODE TYPE TERMINATOR?
	JMP UNPCR		/YES, TREAT JUST LIKE CARRIAGE RETURN.
	SAD C15		/CARRIAGE RETURN?
	JMP UNPCR		/YES, LINE IS COMPLETE.
UNPDAC	DAC* 13		/REAL ASCII CHAR, DEPOSIT IN OUTPUT ARRAY.
	DAC FSTSW		/INDICATE SOME DATA ENCOUNTERED.
	ISZ TOTCHR	/BUMP TOTAL DATA CHARACTERS SEEN.
	LAC TOTCHR	/GET TOTAL CHARACTERS SEEN.
	TAD TWO		/WILL WE OVERFLOW NEXT TIME?
	SAD MAXLEN	/SKIP IF NOT.
	JMP UNPOFL	/OTHERWISE, STOP NOW.
UNPB5C	ISZ PK5CHR	/COUNT 5 CHARACTERS FROM CURRENT PAIR.
	JMP UNPLP2	/NOT FINISHED WITH THIS PAIR, GET NEXT CHARACTER.
	JMP UNPLP1	/CURRENT PAIR EXHAUSTED, GET NEXT ONE.
UNPOFL	LAC C15		/TOO MANY CHARS, GET CARRIAGE RETURN.
UNPCR	CMA		/LINE FINISHED, GET TERMINATOR.
	DAC* 13		/INSERT AS LAST WORD OF OUTPUT LINE.
	LAC TOTCHR	/PICK UP TOTAL DATA CHARACTERS PROCESSED.
	JMP* UNPACK	/RETURN TO CALLER.
UNPLNF	LAC FSTSW		/LINE FEED FOUND. IS IT LEADING?
	SNA		/SKIP IF NOT.
	JMP UNPB5C	/YES, WELL GO IGNORE IT.
	LAC C12		/NO, WELL ACCEPT IT THEN.
	JMP UNPDAC
  
/SUBROUTINE PACK, RIGHT-ADJUSTED 7-BIT CHARACTER ARRAY TO HEADERED
/IOPS ASCII. TERMINATES ON NEGATIVE WORD IN INPUT ARRAY.
/NOTE: USES AUTOINDEX REGISTER 3 (LOCATION 12) AS POINTER TO
/OUTPUT LINE.
/CALL:	JMS PACK		/GO TO PACK.
/	FROM		/15-BIT ADDRESS OF FIRST CHAR OF INPUT ARRAY.
/	TO		/15-BIT ADDRESS OF FIRST WORD OF OUTPUT LINE.
PACK	0		/ENTRY TO PACK.
	LAC* PACK		/PICK UP START OF INPUT ARRAY.
	DAC PKFROM	/GIVE TO INPUT POINTER.
	ISZ PACK		/BUMP ENTRY TO ARG 2.
	LAC* PACK		/GET ADDRESS OF LINE BUFFER TO FILL.
	DAC PLBH		/SAVE AS ADDRESS OF WORD 0 OF HEADER.
	DAC* C12		/AND ALSO IN OUTPUT POINTER.
	ISZ* C12		/SET LOC 12 TO POINT TO CHECKSUM.
	DZM* PLBH		/SET INITIAL VALUE OF HEADER WORD 0.
	DZM LSTSW		/INDICATE TERMINATOR NOT SEEN YET.
	ISZ PACK		/BUMP TO RETURN.
/ENTER MAJOR LOOP TO UPDATE WORD-PAIR COUNT IN LINE BUFFER HEADER
/(LOCATION POINTED TO BY "PLBH") FOR WORD-PAIR JUST CONSTRUCTED
/(OR FOR HEADER PAIR ON FIRST TIME THROUGH) AND TO RESET CHARACTER
/COUNTER (PK5CHR) TO -5.
PLOOP1	LAC C1000		/TURN ON BIT 8.
	ADD* PLBH		/ADD IN WORD PAIR COUNT DEVELOPED SO FAR.
	DAC* PLBH		/NEW WORD 0.
	LAW -5		/SET UP TO PUT 5 CHARACTERS IN THE NEW PAIR.
	DAC PK5CHR	/..
	.IFDEF	EAE
	LAC	(PKJMPT	/SET UP THE JUMP TABLE
	DAC	PKJMS
	.ENDC
/ENTER INNER LOOP TO GET NEXT CHARACTER FROM INPUT LINE, CHECK FOR
/COMPLETION, AND INSERT IN CURRENT PAIR.
PLOOP2	LAC* PKFROM	/GET NEXT CHARACTER FROM INPUT ARRAY.
	SPA		/TERMINATOR? (NEGATIVE IF SO.)
	JMP PCLOSE	/YES, GO TRY TO CLOSE THE OUTPUT LINE.
	ISZ PKFROM	/NO, BUMP POINTER TO NEXT CHARACTER.
	.IFUND	EAE
PLOOP6	RTR		/SHIFT THIS CHARACTER TO BITS 0-6.
	RTR		/..
	RTR		/..
	RTR		/..
	DAC PWRD3		/ADD TO RIGHT-HAND END OF EMERGING PAIR.
PLOOP7	JMS PRAL7		/GO ROTATE THIS CHARACTER INTO THE PAIR.
	ISZ PK5CHR	/COUNT 5 CHARACTERS PER PAIR.
	JMP PLOOP2	/NOT FINISHED WITH THIS PAIR, GET NEXT CHARACTER.
	LAC PWRD2		/PAIR IS COMPLETE, BUT STILL OFF BY ONE BIT.
	CLL!RAL		/CLEAR PAIR BIT 35.
	DAC PWRD2		/PAIR BIT 17 IS NOW IN LINK.
	LAC PWRD1		/GET FIRST WORD OF PAIR...
	RAL		/...AND MOVE PAIR BIT 17 IN.
	DAC* 12		/PAIR IN PROPER FORMAT; DEPOSIT WORD 1 IN LINE BUFF.
	LAC PWRD2		/PICK UP WORD 2.
	DAC* 12		/STORE IT IN LINE BUFFER ALSO.
	.ENDC
	.IFDEF	EAE
PLOOP6	AND	(177)	/MASK OFF CHARACTER
	XCT*	PKJMS	/GO PACK A CHARACTER
PLOOP7	ISZ	PKJMS	/UPDATE PACK POINTER
	ISZ	PK5CHR	/COUNT 5 CHARACTERS PER PAIR
	JMP	PLOOP2	/NOT FINISHED WITH THIS PAIR
	.ENDC
	JMP PLOOP1	/GO REINITIALIZE FOR NEXT PAIR.
/COME HERE ON TERMINATOR FOUND IN INPUT ARRAY.
PCLOSE	SAD LSTSW		/HAVE WE BEEN HERE BEFORE? (LSTSW = 0 IF NOT.)
	JMP PKNULL	/YES, GO FILL CURRENT PAIR WITH NULLS.
	DAC LSTSW		/NO, SET LSTSW TO ENABLE BYPASS NEXT TIME THROUGH.
	CMA		/INVERT TERMINATOR.
	SNA		/IS IT NOW A NULL CHARACTER?
	LAC C15		/IF SO, GET CARRIAGE RETURN.
	JMP PLOOP6	/GO PUT CARRIAGE RETURN OR ALT MODE AWAY.
/COME HERE TO PAD WORD-PAIR WITH NULLS AFTER TERMINATING CHARACTER
/HAS BEEN INSERTED.
PKNULL	LAW -5		/FIRST, SEE IF PAIR IS ALREADY FULL.
	XOR PK5CHR	/..
	SZA!CLA!CLL!CML	/PAIR IS FULL IF PK5CHR .E. -5.
	JMP PLOOP6	/PAIR IS NON-FULL, INSERT NULL JUST GENERATED.
	RTL		/FULL, SET IOPS ASCII INDICATOR (AC = 2).
	ADD* PLBH		/INSERT MODE IN HEADER.
	DAC* PLBH		/RESTORE HEADER IN LINE BUFFER AREA.
	JMP* PACK		/ALL DONE, EXIT.
	.IFUND	EAE
  
/SUBROUTINE PRAL7, ROTATE IOPS ASCII WORD PAIR SEVEN BITS TO THE LEFT.
/DURING UNPACKING, THE WORD PAIR BEING TREATED MUST BE STORED IN REGISTERS
/PWRD2 AND PWRD3; THE NET EFFECT OF PRAL7 IS TO PLACE "THIS" CHARACTER FROM
/THE PAIR IN THE RIGHTMOST SEVEN BITS OF REGISTER PWRD1 AND TO LEAVE THE
/"NEXT" CHARACTER IN THE LEFTMOST SEVEN BITS OF REGISTER PWRD2. DURING PACKING,
/THE CHARACTER TO BE ADDED MUST BE STORED IN THE LEFTMOST SEVEN BITS OF 
/REGISTER PWRD3; THE CHARACTER IS ADDED TO THE RIGHT-HAND END OF THE WORD
/PAIR BEING DEVELOPED. AFTER FIVE CALLS TO PRAL7, THE 5-CHARACTER PAIR,
/SHIFTED ONE BIT TO THE RIGHT, APPEARS IN REGISTERS PWRD1 AND PWRD2.
PRAL7	0
	LAW -7		/SET UP SEVEN-BIT COUNTER.
	DAC PK7BTS	/..
PRALL7	LAC PWRD3		/ROTATE A SINGLE BIT
	RAL		/FROM PWRD3 TO PWRD1.
	DAC PWRD3
	LAC PWRD2
	RAL
	DAC PWRD2
	LAC PWRD1
	RAL
	DAC PWRD1
	ISZ PK7BTS	/COUNT SEVEN BITS TO GET.
	JMP PRALL7	/NOT FINISHED, ROTATE OUT ONE MORE BIT.
	JMP* PRAL7	/ALL DONE, RETURN TO CALLER.
	.ENDC
	.IFDEF	EAE
/
/ EAE SUBROUTINE TO UNPACK 5/7 ASCII -- THIS ROUTINE
/RETURNS THE CHARACTER  IN THE RIGHTMOST 7 BITS
/
UNPKJP	JMP	VPW1	/UNPACK WORD1
	LLS	7	/UNPACK CHARACTER 2
	JMP	VPW3	/UNPACK CHARACTER 3
	LLS	7	/UNPACK CHARACTER 4
	LLS	7	/UNPACK CHARACTER 5 -- SAME AS UNPACKING CHARACTER 4
/
VPW1	LAC	PWRD1	/PICK UP THE FIRST WORD
	LRS	13	/MOVE THE DESIRED 7 BITS TO 11-17 OTHERS TO MQ
	JMP	UNPLP2+1 /RETURN TO CALLER
/
/
VPW3	LAC	PWRD2	/PICK UP THE LAST 4 BITS
	LMQ		/SAVE IT IN MQ
	LAC	PWRD1	/PICK UP THE FIRST WORD FOR 4 BITS
	LLS	3	/FORM A CHARACTER
	JMP	UNPLP2+1 /RETURN
/
UNPKJS	0	/UNPACKING AND PACKING POINTER
PKJMS=UNPKJS
/
PKJMPT	JMP	PKWD1	/PACK THE FIRST CHARACTER
	JMP	PKWD2	/PACK THE ECOND CHARACTER
	JMP	PKWD3
	JMP	PKWD4
	JMP	PKWD5
/
PKWD1	ALSS	7	/ALREADY MASKED PUT INTO BITS 5-10
	DAC	PWRD1	/SAVE FOR NXT CHARACTER
	JMP	PLOOP7	/RETURN FOR NEXT CHARACTER
PKWD2	XOR	PWRD1	/ADD IN LAST CHARACTER
	ALSS	4	/MOVE OVER FOR 3RD CHARACTER
	DAC	PWRD1
	JMP	PLOOP7	/RETURN
PKWD3	LRSS	3	/SAVE THE RIGHT 3 BITS
	XOR	PWRD1	/ADD IN SAVED WORD
	DAC*	12	/PUT IT IN THE LINE BUFFER
	LLS	12	/MOVE THE 3 SAVED CHARACTERS TO BITS 8-10
	AND	(1600)	/MASK OFF THE WORD
	DAC	PWRD1	/SAVE IT FOR THE NEXT PASS
	JMP	PLOOP7	/RETURN FOR NEXT CHARACTER
PKWD4	XOR	PWRD1	/ADD IN 3 BITS FROM LAST CHARACTER
	ALSS	7	/SHIFT FOR 5TH CHARACTER
	DAC	PWRD1
	JMP	PLOOP7
PKWD5	XOR	PWRD1	/MASK IN CHARACTERS 3,4
	CLL!RAL		/BIT 17 = 0
	DAC*	12	/STORE IN WORD COUNT
	JMP	PLOOP7
/
	.ENDC
  
/SUBROUTINE PK6BT, RIGHT-ADJUSTED 7-BIT CHARACTERS TO 3-6 TRIMMED
/ASCII, ZERO-FILLED. TERMINATES ON END CODE (BIT 0 = 1) IN INPUT ARRAY
/OR WORD COUNT OVERFLOW (COUNT -- 2'S COMPLEMENT -- IN AC AT CALL).
/CALL:	LAW -MAXWDS	/2'S COMPLEMENT WORDS TO FILL.
/	JMS PK6BT		/CALL PK6BT.
/	FROM		/START OF INPUT ARRAY.
/	TO		/START OF OUTPUT ARRAY.
PK6BT	0		/ENTRY TO PK6BT.
TOTCHR=PK6BT		/UNPACK: TOTAL CHARS IN OUTPUT LINE.
	DAC PK6WDC	/SAVE COUNT OF  TOTAL WORDS TO FILL.
	LAC* PK6BT	/GET START OF INPUT ARRAY.
	.IFUND	RSX
	JMS GETBNK	/MAKE IT A 15-BIT ADDRESS.
	.ENDC
	DAC PKFROM	/GIVE TO INPUT POINTER.
	ISZ PK6BT		/BUMP TO OUTPUT ADDRESS.
	LAC* PK6BT	/GET START OF OUTPUT ARRAY.
	.IFUND	RSX
	JMS GETBNK	/MAKE IT 15 BITS LONG ALSO.
	.ENDC
	DAC PK6TO		/GIVE TO OUTPUT POINTER.
	ISZ PK6BT		/BUMP TO RETURN.
PK6LP1	LAW -3		/THREE CHARS PER WORD.
	DAC PK6CT1	/SET UP 3-CHARACTER COUNTER.
	DZM* PK6TO	/ZERO NEW OUTPUT WORD.
PK6LP2	LAC* PKFROM	/GET NEXT CHARACTER FROM INPUT ARRAY.
	SPA!CLL		/IS THIS THE ARRAY TERMINATOR? (NEGATIVE IF SO.)?
	JMP PK6CLS	/YES, GO GENERATE A NULL CHARACTER.
	AND C77		/NO, EXTRACT RIGHTMOST SIX BITS.
	DAC PK6CHR	/THEN SAVE AS CURRENT CHARACTER.
	ISZ PKFROM	/BUMP INPUT POINTER FOR NEXT TIME.
PK6LP3	LAC* PK6TO	/GET 3-6 WORD GENERATED SO FAR.
	RTL		/SHIFT IT SIX BITS LEFT TO MAKE ROOM FOR CURRENT CHAR.
	RTL		/..
	RTL		/..
	ADD PK6CHR	/THEN INSERT CURRENT CHARACTER.
	DAC* PK6TO	/SAVE NEW 3-6 WORD.
	ISZ PK6CT1	/COUNT 3 CHARACTERS PACKED IN THIS WORD.
	JMP PK6LP2	/MORE TO DO, GET NEXT CHARACTER.
	ISZ PK6TO		/ALL DONE WITH THIS WORD, BUMP OUTPUT POINTER.
	ISZ PK6WDC	/COUNT MAXIMUM WORDS IN OUTPUT ARRAY.
	JMP PK6LP1	/MORE ROOM IN OUTPUT ARRAY, SET UP NEW WORD.
PK6RET	JMP* PK6BT	/OUTPUT ARRAY IS FULL, RETURN TO CALLER.
/COME HERE ON TERMINATOR FOUND IN INPUT ARRAY. FILL REMAINDER OF OUTPUT
/ARRAY WITH NULL (00) CHARACTERS.
PK6CLS	DZM PK6CHR	/MAKE CURRENT CHAR A NULL.
	JMP PK6LP3	/AND PUT IT AWAY. NEXT INPUT CHAR WILL BE SAME TERMINATOR
	.TITLE FILE PROCESSING SUBROUTINES
	.IFUND	RSX
/
/EXECUTE SEEK ON NAMED FILE.
/	JMS SEEK
/	POINTER TO DEB
/	RETURN
SEEK	0
PK7BTS=SEEK
PK6WDC=SEEK
	LAC INPTCL
	AND C777
	DAC SKCAL
	LAC* SEEK
	JMS GETBNK
	DAC SKCAL+2
	ISZ SEEK
	DZM INFILE
SKCAL	0
PK6CHR=SKCAL
LSTSW=SKCAL
FSTSW=SKCAL
	3
	0
PK6TO=SKCAL+2
	JMP* SEEK
/EXECUTE ENTER ON NAMED FILE.
/	JMS ENTER
/	POINTER TO DEB
/	RETURN
ENTER	0
	LAC OUTPCL
	AND C777
	ADD C1000
	DAC ENTCAL
	LAC* ENTER
	JMS GETBNK
	DAC ENTCAL+2
	ISZ ENTER
ENTCAL	0
	4
	0
	JMP* ENTER
/EXECUTE FSTAT ON NAMED FILE.
/	JMS FSTAT
/	DEB POINTER	(BIT 0 .E. 0, INPUT FILE.
/			(BIT 0 .E. 1, OUTPUT FILE.)
/	RETURN		(AC .E. -1, NON-FILE-ORIENTED.
/			(AC .E. 0, NOT FOUND)
FSTAT	0
	LAC* FSTAT
	RAL
	LAC OUTPCL
	SNL
	LAC INPTCL
	AND C777
	ADD C3000
	DAC FSTCAL
	LAC* FSTAT
	JMS GETBNK
	DAC FSTCAL+2
	ISZ FSTAT
FSTCAL	0
	2
DTYP1	0		/DIRECTORY TYPE CODE IN BITS 0-3.
	DAC FSTCAL
	LAC DTYP1
	AND CL7000
	SZA!CLA!CMA
	LAC FSTCAL
	JMP* FSTAT
/EXECUTE CLOSE ON IN OR OUT FILE.
/	JMS CLSFIL	(AC .E. 0 IF INPUT, AC BIT 0 .E. 1 IF OUTPUT.)
/	RETURN
CLSFIL	0
	RAL
	LAC INPTCL
	SZL
	LAC OUTPCL
	AND C777
	DAC CLSCAL
CLSCAL	0
	6
	JMP* CLSFIL
/RENAME A FILE.
/	JMS RENAME
/	DEB1		(BIT 0 .E. 0, INPUT; BIT 0 .E. 1, OUTPUT.)
/	DEB2
/	RETURN
RENAME	0
	LAW -2
	DAC RENMCT
	LAC* RENAME
	RAL
	LAC INPTCL
	SZL
	LAC OUTPCL
	AND C777
	ADD C2000
	DAC RNMCAL
	LAW RNMFIL-1
	JMS GETBNK
	DAC* C13
RNMLP1	LAW -3
	DAC RNMWRD
	CLA!CMA
	TAD* RENAME
	ISZ RENAME
	JMS GETBNK
	DAC* C12
RNMLP2	LAC* 12
	DAC* 13
	ISZ RNMWRD
	JMP RNMLP2
	ISZ RENMCT
	JMP RNMLP1
RNMCAL	0
	2
DEB1	RNMFIL
	JMP* RENAME
/EXECUTE DELETE ON NAMED FILE.
DELFIL	0
	LAC* DELFIL
	JMS GETBNK
	DAC DELNAM
	LAC* DELFIL
	RAL
	LAC OUTPCL
	SNL
	LAC INPTCL
	AND C777
	ADD C1000
	DAC DELCAL
DELCAL	0
	2
DELNAM	0
	ISZ DELFIL
	JMP* DELFIL
	.ENDC
	.IFDEF	RSX
/
/
/	FILE PROCESSING FOR RSX  
/		ONLY EDITING ON THE DISK IS LEGAL
/		OTHER DEVICES ARE NOT PERMITTED
/		I/O ERRORS CAUSE TERMINATION OF EDITING A FILE
/
/ATTACH A LUN
/
ATTACH	0
	DAC	ATLUN
	CAL	ATCH
	JMP*	ATTACH
/
/	DETACH A LUN
DETACH	0
	DAC	DETLUN
	CAL	DTCH
	CAL	WFEVTA
	JMP*	DETACH
/
WFEV	0
	CAL	WFEVTA	/WAIT FOR EVENT VARIABLE
	LAC	EVTA
	SMA		/WAS REQUEST OK?
	JMP*	WFEV	/YES RETURN
	XCT*	WFEV	/PICK UP THE BAD LUN
	DAC	WFEV+1	/SAVE IT FOR I/O ERROR MESSAGE
	LAC	EVTA	/PICK UP THE EVENT VARIABLE
	JMS	IOERR	/I/O ERROR
	LAC	WFEV+1	/LUN OF I/O ERROR -- FATAL ERROR
/
/
/
/
/ EXECUTE SEEK ON NAMED FILE
/	JMS SEEK
/	POINTER TO DEB
/	RETURN
/
SEEK	0
	LAC	INPTCL	/PICK UP THE INPUT LUN SLOT
	DAC	SEKCAL	/SAVE IT IN THE SEEK REQUEST
	LAC*	SEEK	/PICK UP THE POINTER TO THE FILE NAME
	ISZ	SEEK	/MOVE SEEK POINTER
	JMS	MOVENM	/MOVE FILE NAME
	SEEKNM		/POINTER TO SEEK REQUEST
	CAL	SEKFI	/SEEK REQUEST
	CAL	WFEVA	/WAIT FOR EVENT VARIABLE
	DZM	INFILE	/CLEAR THE FILE NOT OPEN SWITCH
	LAC	EVA	/PICK UP EVENT VARIABLE TO SEE IF LEGAL
	SMA
	JMP*	SEEK	/LEGAL FILE MUST HAVE BEEN FOUND
	JMS	IOERR	/ILLEGAL FILE NOT PRESENT OR OTHER ERROR
	LAC	SEKCAL	/LUN ON WICH ERROR OCCURRED
/
/EXECUTE ENTER ON NAMED FILE.
/	JMS ENTER
/	POINTER TO DEB
/	RETURN
/
ENTER	0
	LAC	OUTPCL	/PICK UP THE OUTPUT LUN SLOT
	DAC	ENTECL	/SAVE IT IN THE ENTER CAL
	LAC*	ENTER	/PICK UP THE FILE NAME POINTER
	ISZ	ENTER	/MOVE POINTER PAST FILE NAME POINTER
	JMS	MOVENM	/MOVE THE FILE NAME
	ENTENM		/POINTER TO ENTER REQUEST NAME
	CAL	ENTFI	/ENTER REQUEST
	CAL	WFEVA	/WAIT FOR EVENT VARIABLE
	LAC	EVA	/PICK UP THE EVENT VARIABLE
	SMA		/IS IT LEGAL?
	JMP*	ENTER	/YES -- ENTER DONE
	JMS	IOERR	/NO -- ERROR EXIT FILE
	LAC	OUTPCL	/LUN ON WHICH ERROR OCCURRED
/
/EXECUTE SIMULATED FSTAT ON FILE
/	OPEN FILE THEN CLOSE FILE TO DETERMINE IF IT EXISTS
/
FSTAT	0
	LAC*	FSTAT	/DETERMINE THE FILE TYPE
	RAL		/PUT IT IN THE LINK
	LAC	OUTPCL	/PICK UP THE OUTPUT LUN
	SNL		/IS IT OUTPUT?
	LAC	INPTCL	/NO MUST BE INPUT
	DAC	SEKCAL	/SET IT IN THE SEEK CAL
	DAC	CLOCL	/SET IT IN THE CLOSE CAL LUN
	LAC*	FSTAT	/PICK UP THE FILE NAME POINTER
	ISZ	FSTAT	/MOVE OVER FILE NAME
	JMS	MOVENM	/MOVE THE FILE NAME
	SEEKNM		/POINTER TO THE SEEK REQUEST
	CAL	SEKFI	/ISSUE A SEEK REQUEST
	CAL	WFEVA	/WAIT FOR EVENT VARIABLE
	LAC	EVA	/PICK UP EVENT VARIABLE
	SAD	(-13)
	JMP	FSTNF	/FILE NOT FOUND
	SPA!CLA!CMA		/WAS THE FILE FOUND?
	JMP*	FSTAT	/NO RETURN -1 FOR FILE NOT FOUND
	CAL	CLOSCA	/CLOSE THE FILE
	CAL	WFEVA	/WAIT FOR EVENT VARIABLE
	LAC	EVA	/CLOSE OK?
	SMA
	JMP*	FSTAT	/YES RETURN AC +1
	JMS	IOERR	/NO I/O ERROR
	LAC	SEKCAL	/LUN ON WHICH ERROR OCCURRED
/
FSTNF	CLA		/FILE NOT FOUND
	JMP*	FSTAT
/
/EXECUTE CLOSE ON IN OR OUT FILE
/	JMS CLSFIL	(AC .EQ. 0 IF INPUT OR BIT 0 =1 IF OUTPUT)
/
CLSFIL	0
	RAL		/SET INPUT OR OUTPUT IN LINK
	LAC	INPTCL	/PICK UP INPUT LUN
	SZL		/IS IT INPUT?
	LAC	OUTPCL	/NO MUST BE OUTPUT
	DAC	CLOCL	/SET IN CLOSE LUN
	CAL	CLOSCA	/ISSUE CLOSE REQUEST
	CAL	WFEVA	/WAIT FOR CLOSE
	LAC	EVA	/PICK UP EVENT VARIABLE
	SMA		/WAS IT OK?
	JMP*	CLSFIL	/YES RETURN
	SAD	(-11)	/WAS THE EVENT VARIABLE -11?
	JMP*	CLSFIL	/YES MUST BE OK
	JMS	IOERR	/NO -- I/O ERROR
	LAC	CLOCL	/LUN ON WHICH ERROR OCCURRED
/
/EXECUTE DELETE FILE ON NAMED FILE
DELFIL	0
	LAC*	DELFIL
	JMS	MOVENM	/MOVE NAME
	DELNAM		/DELETE NAME
	LAC*	DELFIL	/PICK UP THE INPUT  OR OUTPUT BIT
	RAL
	ISZ	DELFIL	/SKIP OVER POINTER
	LAC	OUTPCL	/IS IT OUTPUT
	SNL
	LAC	INPTCL	/NO MUST BE INPUT
	DAC	DELLUN	/SET IN DELETE LUN
	CAL	DEFILE	/EXECUTE DELETE REQUEST
	CAL	WFEVA	/WAIT FOR EVENT VARIABLE
	LAC	EVA	/PICK UP EVENT VARIABLE
	SMA		/WAS IT LEGAL?
	JMP*	DELFIL	/YES RETURN
	SAD	(-13)	/NOT FOUND?
	JMP*	DELFIL	/YES -- OK IT IS DELETED 
	JMS	IOERR	/NO I/O ERROR
	LAC	DELLUN	/LUN ON WHICH ERROR OCCURRED
/
/RENAME A FILE
/	JMS RENAME
/	DEB1	/(BIT0 =0 IF INPUT : 1 IF OUTPUT
/	DEB2
/
RENAME	0
	LAC*	RENAME
	JMS	MOVENM	/MOVE NAME TO RSEEK REQUEST
	RENMSK		/RENAME SEEK
	LAC*	RENAME	/SETUP THELINK FOR INPUT OR OUTPUT
	RAL
	LAC	INPTCL	/PICK UP INPUT LUN
	SZL
	LAC	OUTPCL	/MUST BE OUTPUT CAL
	DAC	RENSK	/STORE IN REQUEST
	DAC	CLOCL
	CAL	RENCAL	/ISSUE RENAME SEEK
	CAL	WFEVA	/WAIT FOR EVENT VARIABLE
	LAC	EVA	/PICK UP EVENT VARIABLE
	SPA		/WAS REQUEST OK?
	JMP	IOERRA	/NO I/O ERROR
	ISZ	RENAME
	LAC*	RENAME	/PICK UP SECOND NAME
	JMS	MOVENM
	CLONAM		/MOVE TO CLOSE REQUEST
	ISZ	RENAME
	CAL	CLOSCA	/ISSUE CLOSE WITH RENAME REQUEST
	CAL	WFEVA	/WAIT FOR EVENT VARIABLE
	LAC	EVA	/PICK UP EVENT VARIABLE
	SMA		/IS IT POSITIVE
	JMP*	RENAME	/YES MUST BE OK
IOERRA	JMS	IOERR	/NO I/O ERROR
	LAC	CLOCL	/LUN ON WHICH ERROR OCCURRED
/
MOVENM	0
	JMS	GETBNK	/GET BANK BITS FOR XCT NAME
	DAC	TEMPA	/SAVE FROM ADDRESS
	LAC*	MOVENM	/PICK UP THE TO ADDRESS
	DAC	TEMPB	/SAV IT
	ISZ	MOVENM	/INCREMENT PAST TO POINTER
	LAW	-3	/MOVE ONLY THREE CHARACTERS
	DAC	TEMPC
MOVELP	LAC*	TEMPA	/PICK UP A WORD
	DAC*	TEMPB	/SAVE IT
	ISZ	TEMPA	/MOVE POINTERS
	ISZ	TEMPB
	ISZ	TEMPC
	JMP	MOVELP	/NOT FINISHED TRY NEXT ONE
	JMP*	MOVENM	/FINISHED RETURN
/
ATTTY	0	/ATTACH TELETYPES
	LAC	(DAT2)	/ATTACH INPUT TTY
	JMS	ATTACH
	LAC	(DAT3)	/ATTACH OUTPUT TTY
	JMS	ATTACH
	JMP*	ATTTY	/RETURN TO CALLER
/
DETTY	0	/DETACH FROM TTY'S
	LAC	(DAT2)	/DETACH FROM INPUT TTY
	JMS	DETACH
	LAC	(DAT3)	/DETACH FROM OUTPUT TTY
	JMS	DETACH
	JMP*	DETTY	/RETURN TO CALLER
/
/
/	I/O CPB'S
/
PARSIZ	27	/RASIE PARTITION BOUND TO TOP
	ENDPAR	/EVENT VARIABLE ADDRESS CONTAINS ADDRESS OF BOUND
/
PREA14	2300	/PREALLOCATE
	EVA
	DAT14
/
PREA15	2300	/PREALLOCATE LUN15
	EVA
	DAT15
/
/
REDPAR	37	/READ PARAMETERS FROM TDV
	TDVEV	/EVENT VARIABLE ADDRESS
	LAONCE+2	/PARAMETER BUFFER (NONE)
	44	/WORD COUNT
/
TDVEV	0	/TDV EVENT VARAIBLE
/
REQTDV	1	/REQUEST FOR TDV
	0
	.SIXBT	'TDV...'
	0
/
/
ENDPAR	0
SEKFI	3200	/SEEK REQUEST
	EVA	/EVENT VARIABLE
SEKCAL	0	/LOGICAL UNIT
SEEKNM	.BLOCK	3	/FILE NAME
/
ATCH	2400
	0
ATLUN	0
/
DTCH	2500
	EVTA
DETLUN	0
/
ENTFI	3300	/ENTER REQUEST
	EVA	/EVENT VARIABLE
ENTECL	0	/LOGICAL UNIT NUMBER
ENTENM	.BLOCK	3	/FILE NAME
/
CLOSCA	3400	/CLOSE REQUEST
	EVA	/EVENT VARIABLE ADDRESS
CLOCL	0	/LOGICAL UNIT NUMBER
CLONAM	.BLOCK	3	/FILE NAME FOR CLOSE WITH RENAME
/
DEFILE	3500	/DELETE REQUEST
	EVA	/EVENT VARIABLE 
DELLUN	0	/LOGICAL UNIT NUMBER
DELNAM	.BLOCK	3	/FILE NAME
/
RENCAL	3700	/OPEN TO RENAME CAL
	EVA	/EVENT VARIABLE ADDRESS
RENSK	0	/LOGICAL UNIT NUMBER
RENMSK	.BLOCK	3	/FILE NAME
/
TVWRA	2700	/WRITE ON AUX OUTPUT DEVICE
	EVTA	/EVENT VARIABLE ADDRESS
	DATP10	/LOGICAL UNIT NUMBER
	2	/IOPS ASCII
TVWRAD	0	/ADDRESS OF I/O
EVA	0	/EVENT VARIABLE
WFEVA	20	/WAIT FOR REQUEST
	EVA
/
/
CRLF	2700	/WRITE
	EVTA	/EVENT VARIABLE
	DAT3	/LUN SLOT
	3	/IMAGE ASCII
	CHRMSG	/LINE
WRIMG	2700	/WRITE
	EVTA	/EVENT VARIABLE
	DAT3	/LUN SLOT
	3	/IMAGE ASCII
ADR000	CHRMS	/LINE
/
WFEVTA	20	/WAITFOR
	EVTA	/EVENT VARIABLE
EVTA	0
HINFA	3600	/HANDLER INFORMATION
	EVTA	/EVENT VARIABLE
	DAT14	/INPUT LUN
HINFB	3600	/HANDLER INFORMATION
	EVTA	/EVENT VARIABLE
	DAT15	/OUTPUT LUN
/
RDIN2	2600	/INPUT
	EVTA	/EVENT VARIABLE ADDRESS
	DAT10	/LUN SLOT
	2	/MOVE
SBADR	SBUFF	/DATA BUFFER
	BUFLEN	/MAX WORD COUNT
/
WFEVR	20	/WAIT FOR
	EVR
EVR	1
RDINP	2600	/INPUT
	EVR	/EVENT VARIABLE
INPTCL	0	/LUN SLOT
	2	/ASCII
RDCAL2	RDBUF2	/LINE BUFFER
	BUFLEN	/MAX WORD COUNT
/
WFEVW	20	/WAIT FOR
	EVW
EVW	1
WROUT	2700	/WRITE
	EVW	/EVENT VARIABLE
OUTPCL	0	/LUN SLOT
	2	/MODE
WRCAL2	0	/BUFFER ADDRESS
/
WRCAL3	2700	/WRITE TTY
	EVTA	/EVENT VARIABLE ADDRESS
	DAT3	/LUN SLOT
	2	/IOPS ASCII
TTOUT	0	/BUFFER ADDRESS
/
RDCALT	2600	/READ
	EVTA	/EVENT VARIABLE ADDRESS
	DAT2	/LUN SLOT
	2	/IOPS ASCII
TTIN	0	/BUFFER ADDRESS
	BUFLEN	/WORD COUNT
/
/
/	TEMPORARY STORAGE AND CONSTNTS
/
CHRMSG	2003	/CRLF MESSAGE
	0
C12	12	/LF
	15	/CR
TAB	11	/TAB
LOOPCT	0
POINTR	0
SRCNAM	.SIXBT	'SRC'
OUTDEV	1
INDEV	1
FSTSW=SEEKNM
LSTSW=SEEKNM
PK7BTS=SEEK
PK6WDC=SEEK
PK6CHR=SEEKNM
PK6TO=SEEKNM+2
C1000	1000
C15	15
C6	6
ONE	1
CHRCT	0
TEMPA	0
TEMPB	0
TEMPC	0
/
/
/	I/O ERROR HAS OCCURRED OUTPUT TO USER
/		EDT-I/O ERROR LUN XX YYYYYY
/
IOERR	0
	TCA		/COMPLEMENT EVENT VARIABLE TO MAKE IT POSITIVE
	LMQ		/SAVE IT IN MQ
	LAW	-6	/DECODE6 DIGITS
	DAC	TEMPA	/SAVE COUNT
	LAC	(IOER-1)	/SET UP MESSAGE POINTER
	DAC*	(X10)
DECOD	ECLA!LLS 3	/DECODE MQ - EVENT VARIABLE
	AAC	60	/ADD 60 TO DIGIT
DECODS	SAD	(60)	/IS IT A ZERO?
	JMP	NDECOD	/YES -- SUPPRESS LEADING ZEROES
	PAL		/SAVE AC
	LAC	DECRRA	/SET UP TO JUMP OVER ZERO SUPPRESSING
	DAC	DECODS	/SET JUMP
	PLA		/RESTORE AC
DECODR	DAC*	X10	/STORE CHARACTER
	ISZ	TEMPA	/FINISHED?
	JMP	DECOD	/NO DECODE IT
	LAC	(IOERL-1)	/SET UP TO DECODE LUN
	DAC*	(X10)
	XCT*	IOERR	/PICK UP LUN
	IDIV		/DIVIDE BY 10 TO FIND DECIMAL LUN
	12
	PAX		/SAVE REMAINDER
	LACQ		/PICK UP THE QUOTENT
	AND	(17)	/MASK OFF NUMBER
	AAC	60	/ADD 60
	DAC*	X10	/STORE IT
	PXA		/PICK UP REMAINDER AGAIN
	AND	(17)	/MASK IT OFF ALSO
	AAC	60	/ADD 60
	DAC*	X10	/STORE IT IN THE MESSAGE
	CAL	WRIOER	/WRITE ERROR ON OUTPUT TTY
	CAL	WFEVA	/WAIT FOR EVENT VARIABLE
	LAC	(2)	/FORCE TDV TO BE CALLED
	DAC	TDVEV
	JMP	EXIT1	/EXIT EDITOR
/
NDECOD	CLA		/SUPPRESS PRINTING
DECRRA	JMP	DECODR	/RETURN
/
IOERMS	ERMSE-IOERMS/2*1000+3
	0
	105	/E
	104	/D
	124	/T
	055	/-
	111	/I
	057	//
	117	/O
	040	/SP
	105	/E
	122	/R
	122	/R
	117	/O
	122	/R
	040	/SP
	114	/L
	125	/U
	116	/N
	040	/SP
IOERL	0	/LUN XX
	0
	040	/SP
IOER	.BLOCK	6	/EVENT VARIABLE
	000	/NULL
	015	/CR
	012	/LF
ERMSE=.
/
TDVER	CAL	WRTDVE	/TDV ERROR EXIT
	CAL	WFEVA	/WAIT FOR MESSAGE
	LAC	(2)	/FORCE TDV TO BE CALLED
	DAC	TDVEV
	JMP	EXIT1
/
WRTDVE	2700	/WRITE ERROR MESSAGE
	EVA	/EVENT VARIABLE ADDRESS
	DAT3	/OUTPUT LUN
	2	/IOPS ASCII
	TDVERM	/BUFFER ADDRESS
/
TDVERM	TDVEN-TDVERM/2*1000+2	/HEADER
	0
	.ASCII	/EDI-TDV ERR/<15>
TDVEN=.
/
WRIOER	2700	/WRITE I/O ERROR MESSAGE
	EVA	/EVENT VARIABLE
	DAT3	/OUTPUT DEVICE
	3	/IMAGE ASCII
	IOERMS	/BUFFER ADDRESS
/
/
/
	.ENDC
	.TITLE SUBR,CLSOUT FOR CLOSE PROC & EXIT PROC
/
/SUBROUTINE CLSOUT, CLOSE INPUT AND OUTPUT FILES.
CLSOUT	0
	JMS PUTLIN	/TRANSFER CURR LINE TO OUTPUT
	JMP FULBUF
	LAW -1		/START TURNING OFF BLOCK MODE
	DAC BLOKSW
	JMS RSBUFF
	LAC PBLKSW	/IF 0 WRITE OUT BUFFER
	SZA
	JMP CLS01	/WRITE OUT FILE
	JMS CHBUFF
	LAW -1		/KEEP TURNING OFF BLOCK MODE
	DAC PBLKSW
	JMS RSBUFF
	JMS CHBUFF
	DZM BUFEMP
CLS01	LAC INFILE	/IS THERE AN INPUT FILE PRESENT?
	SPA		/SKIP IF SO.
	JMP CLS01A	/IF NOT, GO TRY TO CLOSE OUTPUT FILE.
CLS01B	JMS PUTLIN	/WRITE OUT THE CURRENT LINE.
	NOP		/..
	LAC	ONE	/SET UP NOPACKING SWITCH
	DAC	NOPKSW
	JMS GETLIN
	INLINE
	SKP!CLA
	JMP CLS01B	/MORE TO DO, GO WRITE THIS LINE.
	DZM	NOPKSW	/CLEAR THE NO PACKING SWITCH
	JMS CLSFIL	/CLOSE THE INPUT FILE.
CLS01A	LAC OUTSW1	/HAS ANYTHING BEEN PUT INTO THE OUTPUT FILE?
	SPA!CLA!CMA	/SKIP IF SO.
	JMP EMPFIL	/NOTHING IN FILE, GO COMMENT.
	JMS CLSFIL
	LAC INFILE	/IS THERE AN INPUT FILE PRESENT?
	SPA		/SKIP IF SO.
	JMP CLS03		/IF NOT, GO DEAL WITH OUTPUT FILE.
	LAC OUTDEV	/IS THE OUTPUT DEVICE FILE-STRUCTURED?
	SPA		/SKIP IF SO.
	JMP* CLSOUT	/OTHERWISE, RETURN TO CALLER.
	LAC SAVESW	/IS A SAVE WANTED?
	SZA		/SKIP IF SO.
	JMP CLS02		/IF NOT, GO CLOSE AS USUAL.
SAVBCK	JMS FSTAT		/CHECK FOR PRESENCE OF SAVNAM.
	SAVNAM		/..
	SZA		/NOT FOUND, SKIP.
	JMP SAVERR	/SAVNAM IS IN USE, COMPLAIN.
	JMS RENAME	/NAME IS OK, RENAME THE INPUT FILE.
	INNAME		/..
	SAVNAM		/..
	LAW -1		/TURN OFF SAVESW.
	DAC SAVESW	/..
	JMP CLS03
CLS02	JMS DELFIL
	INNAME
CLS03	JMS FSTAT
	XCT INNAME
	SZA
	JMP CLSERR
	JMS RENAME
	XCT TFILE1
	INNAME
	LAC FILSTR
	SMA		/SKIP IF NON-FILE-ORIENTED.
	JMS CHDAT		/FILE-ORIENTED, GO EXCHANGE DAT ASSIGNMENTS.
	JMP* CLSOUT	/AND RETURN TO CALLER.
/COME HERE ON FILE-NAME DIFFICULTIES DURING CLOSE SEQUENCE.
CLSERR	LAC TFLDEB	/ADDRESS OF .TFIL1 EDT DIR ENTRY BLOCK.
	DAC CLSENT	/SET UP TO USE THAT NAME.
	LAC FILSTR	/BOTH DEVICES FILE-STRUCTURED?
	SPA		/SKIP IF SO.
	JMP SETF1		/IF NOT, SKIP ALL THIS STUFF.
	JMS DEVCHK
	JMP SETF1		/SAME UNIT, DON'T BOTHER SWITCHING.
	LAC DIRSW		/WHICH DIRECTION ARE WE GOING?
	SPA		/SKIP IF GOING FROM -14 TO -15.
	JMP SETF1		/GOING BACK TO -14, EVERYTHING OK.
/COME HERE ON TROUBLE TRYING TO CLOSE ON -15.
	JMS CHDAT		/GO CHANGE DAT SLOTS AROUND.
	JMS FSTAT		/IS THERE A .TFIL1 EDT ON -14?
	XCT TFILE1	/-14 IS NOW THE OUTPUT DAT SLOT.
	SZA		/SKIP IF .TFIL1 EDT IS NOT PRESENT.
	JMP SETF1		/.TFIL1 EDT IS THERE, GO COMMENT.
	JMS FSTAT		/MAYBE ORIGINAL FILE NAME IS THERE.
CLSINN	XCT INNAME	/..
	SZA		/SKIP IF INNAME IS OK FOR -14.
	JMP CLSSK		/NOT OK, USE .TFIL1 EDT.
	LAC CLSINN	/USE INNAME.
	DAC CLSENT	/..
CLSSK	JMS SEEK		/SEEK THE INPUT FILE.
	TFILE1
	JMS ENTER		/OPEN UP THE OUTPUT FILE.
CLSENT	0		/INNAME OR .TFIL1
	DZM OUTSW1	/FORESTALL ANOTHER ENTER.
CLSRD	JMS RDFILE	/READ A LINE.
	INLINE
	JMP CLSCLS	/IF EOF ENCOUNTERED.
	JMS WRFILE	/WRITE THE LINE READ.
	JMP CLSRD		/GO FOR MORE.
/COME HERE ON COMPLETE FILE TRANSFERRED.
CLSCLS	CLA!CMA
	JMS CLSFIL	/CLOSE THE OUTPUT FILE.
	CLA
	JMS CLSFIL	/CLOSE THE INPUT FILE, TOO.
	JMS DELFIL	/THEN DELETE THE INPUT FILE.
	TFILE1		/..
	.IFUND	RSX
SETF1	LAW INNAME
	.ENDC
	.IFDEF	RSX
SETF1	JMS	ATTTY	/ATTACH TTY'S
	LAW	INNAME
	.ENDC
	JMS TYNAME
	LAW TWOFIL
	JMS TYPOUT
	LAW NUFIL1
	JMS TYPOUT
	LAC OUTPCL
	RTR
	LAW 64
	SZL
	ADD ONE
	JMS TYONCH
	LAW NUFIL2
	JMS TYPOUT
	LAC CLSENT
	JMS TYNAME
	JMS TYPRTN
	LAW OLDEL
	JMS TYPOUT
	.IFDEF	RSX
	JMS	DETTY	/DETACH TTY'S
	.ENDC
	JMP EXITCH	/CHECK FOR EXIT REQUEST
	.IFUND	RSX
SAVERR	LAW	SAVNAM		/GIVE USER ERROR MESSAGE
	.ENDC
	.IFDEF	RSX
SAVERR	JMS	ATTTY	/ATTACH TTY'S
	LAW	SAVNAM	/GIVE USER ERROR MESSAGE
	.ENDC
	JMS	TYNAME		/ABOUT SAVNAM BEING ON
	LAW	TWOFL1		/INPUT DEVICE
	JMS	TYPOUT
	LAW	BADNAM
	JMS	TYPOUT
	LAW 76
	JMS TYONCH
	LAW	TYLINE
	JMS	TYPEIN		/READ IN NEW NAME
	LAW	-1		/RESET SAVE SW
	DAC	SAVESW
	.IFDEF	RSX
	JMS	DETTY	/DETACH TTY'S
	.ENDC
	JMS	UNPACK		/UNPACK IT TO EDLIN
ADR016	TYLINE
	EDLIN
	SNA			/IF NO NAME TYPED
	JMP	CLS02		/DO NOT SAVE INPUT FILE
	LAC	EDLADR
	DAC	NXTPTR
	JMS	GETCOM		/GET FILE NAME
	JMS	GETSNM		/AND MAKE UP DEB
	JMP	SAVBCK		/GO BACK AND CKECK NEW NAME
EMPFIL	LAW EMPFLM
	JMS TYPOUT
	JMS DELFIL	/DELET TFILE1
	XCT TFILE1	/FROM OUTPUT DEVICE
	JMP EXITCH	/CHECK FOR EXIT REQUEST
SAVNAM	.BLOCK 3
/
/
/COMMON EXIT ROUTINE.
/
/
EXIT	LAC SKPLIT	/SET REQUEST SWITCH
	DAC EXITRQ
	.IFUND BULKST
	.LOC EXIT
	JMP ILLCWD	/IF PAPER TAPE SYSTEM, DON'T ALLOW EXIT.
	.ENDC
	XCT EXITSW	/IS THERE A FILE OPEN
	JMP EXIT1	/NO  GO AN EXIT
	JMP CLOSE	/YES GO AN CLOSE OUT FILES
EXITCH	XCT EXITRQ	/COME HERE AFTER CLOSING FILES
	JMP BEGIN	/IF THIS WAS NOT AN EXIT REQUEST
	.IFUND	RSX
	.IFDEF EDITVP
	DZM NUM		/WAIT FOR VP TO ERASE TO AVOID IOPS3 ERROR
	ISZ NUM
	JMP .-1
	.ENDC
	.IFDEF EDITVT
EXIT1	LAC*	SCOMCX
	AND	(1
	SAD	CTRLSV
	JMP	EXIT2
	LAC*	SCOMCX
	JMS	CTLXSD
	.ENDC
	.IFUND EDITVT
EXIT1=.
	.ENDC
	.IFDEF EDITVT
EXIT2=.
	.ENDC
	.EXIT		/EXIT TO MONITOR
C15=.-1
	.ENDC
	.IFDEF	RSX
EXIT1	LAC	(DAT14)	/DETACH ALL LUN'S
	JMS	DETACH
	LAC	(DAT15)
	JMS	DETACH
	LAC	(DAT10)
	JMS	DETACH
	LAC	(DAT3)
	JMS	DETACH
	LAC	(DAT2)
	JMS	DETACH
	LAC	(DATP10)
	JMS	DETACH
	.IFNEG COPY-2
	LAC	TDVEV	/DO WE CALL TDV?
	SAD	(2)
	CAL	REQTDV	/YES
	.ENDC
	CAL	(10)	/EXIT
	.ENDC
	.TITLE TELETYPE I/O SUBROUTINES
/CLOSED SUBROUTINES FOR TYPEWRITER INPUT AND OUTPUT.
  
  
/SUBROUTINE TYPOUT, SET UP AND ISSUE CAL FOR IOPS ASCII OUTPUT MESSAGE.
/CALL:	LAW OUTMSG	/START ADDRESS (HEADER WORD 0) OF MESSAGE TO PRINT.
/	JMS TYPOUT	/GO TO TYPOUT.
TYPOUT	0		/ENTRY TO TYPOUT.
	JMS GETBNK	/GET SOME EPC BITS.
	DAC TTOUT		/INSERT 15-BIT ADDRESS IN CAL SEQUENCE.
	.IFUND	RSX
	TTOCAL		/IOPS MODE WRITE TO TTY.
TAB	11		/..
TTOUT	0		/START OF LINE BUFFER.
SRCNAM	.SIXBT 'SRC'	/WORD COUNT -- IGNORED BY TELETYPE HANDLER.
	TTOCAL		/WAIT FOR PRINTING TO FINISH.
C12	12		/..
	.ENDC
	.IFDEF	RSX
	CAL	WRCAL3	/WRITE TTY OUTPUT
	JMS	WFEV	/WAIT FOR EVENT VARIABLE AND CHECK VALIDITY
	LAC	(DAT3)	/LUN OF ERROR
	.ENDC
	JMP* TYPOUT	/RETURN TO CALLER.
  
/SUBROUTINE TYPEIN, SET UP AND ISSUE CAL FOR IOPS ASCII INPUT LINE.
/CALL:	LAW INBUFF	/WHERE TO PUT INCOMING LINE.
/	JMS TYPEIN	/GO TO TTY READER.
TYPEIN	0		/ENTRY TO TYPEIN.
	JMS GETBNK	/INSERT EXTENDED-MEMORY BITS.
	DAC TTIN		/GIVE TRUE (15-BIT) ADDRESS TO CAL SEQUENCE.
	.IFUND	RSX
	TTICAL		/ISSUE CAL.
	10		/READ.
TTIN	0		/ADDRESS OF LINE BUFFER.
	-BUFLEN		/DON'T OVERFLOW BUFFER.
	TTICAL		/WAIT FOR USER TO FINISH.
	12		/..
	.ENDC
	.IFDEF	RSX
	CAL	RDCALT	/READ TTY INPUT
	JMS	WFEV	/WAIT FOR EVENT VARIABLE AND CHECK VALIDITY
	LAC	(DAT2)	/LUN OF ERROR
	.ENDC
	JMP* TYPEIN	/RETURN TO CALLER.
  
/SUBROUTINE TYNAME, TYPE OUT FILE NAME STORED IN DEB FORMAT.
/CALL:	LAW DEBADR	/START ADDRESS OF DEB TO TYPE OUT.
/	JMS TYNAME	/GO PRINT IT.
TYNAME	0		/ENTRY TO TYNAME.
	JMS GETBNK	/13-BIT ADDRESS OF DEB IS IN AC AT CALL.
	DAC ERNAME	/SAVE 15-BIT ADJUSTED ADDRESS.
	LAW FILMES	/TYPE "FILE".
	JMS TYPOUT	/..
	JMP LAWBLK	/THEN PRINT OUT A BLANK.
TYNSW1	LAW -3		/WILL BE -2 WHEN CONTROL FIRST COMES HERE.
	DAC LOOPCT	/COUNT TWO WORDS (FILE NAME) OR ONE WORD (EXT).
TYNLP1	LAW -3		/COUNT THREE CHARACTERS EACH WORD.
	DAC CHRCT		/..
	LAC* ERNAME	/GET NEXT WORD FROM DIRECTORY ENTRY BLOCK.
	DAC ERWORD	/SAVE AS CURRENT WORD.
TYNLP2	LAC ERWORD	/GET CURRENT WORD. NEXT CHAR IS IN BITS 0-5.
	RTL		/SHIFT OUT SIX BITS.
	RTL		/..
	RTL		/..
	DAC ERWORD	/SAVE REMAINDER FOR NEXT TIME.
	RAL		/GET SIXTH BIT FROM LINK.
	AND C77		/THROW AWAY JUNK.
	XOR C77		/COMPLEMENT RIGHT SIX BITS ONLY.
	SAD C77		/NULL CHARACTER?
	JMP TYNLP3	/YES, IGNORE.
	TAD LAWBLK	/GENERATE SEVENTH (LEFTMOST) BIT.
	XOR C77		/RESTORE RIGHTMOST FIVE BITS.
	XOR LAWBLK	/RESTORE SIXTH BIT.
	JMS TYONCH	/GO TYPE OUT THIS CHARACTER.
TYNLP3	ISZ CHRCT		/COUNT CHARS PER WORD.
	JMP TYNLP2	/MORE CHARS IN THIS WORD, GO GET NEXT ONE.
	ISZ ERNAME	/CURRENT WORD EMPTY, SERVICE NEXT ONE.
	ISZ LOOPCT	/COUNT WORDS IN THIS PORTION OF DEB.
	JMP TYNLP1	/ANOTHER WORD TO TREAT, DO SO.
LAWBLK	LAW 40		/FILE NAME OR EXT FINISHED, GET BLANK.
	JMS TYONCH	/TYPE IT OUT.
	ISZ TYNSW1	/COUNT THREE BLANK CHARS TYPED.
	JMP TYNSW1	/ANOTHER GROUP TO DO.
	LAW -3		/ALL DONE, RESET TYNSW1 FOR NEXT TIME.
	DAC TYNSW1	/..
	JMP* TYNAME	/RETURN TO CALLER.
FILMES	002002		/HEADER WORD 1: 2 PAIRS, IOPS ASCII.
C2000	2000		/CHECKSUM -- IGNORED BY TELETYPE HANDLER.
	.ASCII 'FILE'<175>
/SUBROUTINE TYONCH, OUTPUT SINGLE CHARACTER IN AC.
/NO WAIT REQUIRED BEFORE STORING C(AC) IN SINGCH.
/CALL:	LAW CHAR  	/CHARACTER TO BE TYPED IN AC(11-17).
/	JMS TYONCH	/GO TO TYONCH.
TYONCH	0		/ENTRY TO TYONCH.
	DAC SINGCH	/STORE CHAR TO TYPE IN IMAGE ASCII LINE BUFFER.
	.IFUND	RSX
	TTOCAL+1000	/IMAGE MODE WRITE TO TTY.
	11		/..
ADR000	CHRMS		/ADDRESS OF OUTPUT MESSAGE.
CHRCT	0		/WORD COUNT -- IGNORED BY TELETYPE HANDLER.
	.WAIT -3
	.ENDC
	.IFDEF	RSX
	CAL	WRIMG	/WRITE MESSAGE
	JMS	WFEV	/WAIT FOR EVENT VARIABLE
	LAC	(DAT3)	/LUN OF ERROR
	.ENDC
	JMP* TYONCH	/RETURN TO CALLER.
CHRMS	002003		/HEADER WORD 0: 2 PAIRS, IMAGE ASCII.
C3000	3000		/CHECKSUM -- IGNORED BY TELETYPE HANDLER.
SINGCH	0		/CHARACTER TO BE TYPED IN BITS 11-17.
C177	177		/RUBOUT WILL TURN OFF TYPING.
C13	13	/CONSTANT 13 FOR AUTO XR'S
  
/SUBROUTINE TYPRTN, PRODUCE CARRIAGE-RETURN AND LINE-FEED ON TELETYPE.
/CALL:	JMS TYPRTN
TYPRTN	0		/ENTRY TO TYPRTN.
OCTNUM=TYPRTN		/GETOCT: RESULTS REGISTER.
	.IFUND	RSX
	TTOCAL		/OUTPUT CAL TO TELETYPE HANDLER.
C6	6		/.CLOSE WILL GENERATE CR/LF.
	.ENDC
	.IFDEF	RSX
	CAL	CRLF	/RETURN CARRAGE
	JMS	WFEV	/WAIT FOR EVENT VARIABLE AND CHECK VALIDITY
	LAC	(DAT3)	/LUN IN ERROR
	.ENDC
	JMP* TYPRTN	/RETURN TO CALLER.
	.IFUND EDITOR
	.TITLE DISPLAY ROUTINES FOR THE GRAPHICS HARDWARE
/SUBROUTINES FOR DISPLAYING OUTPUT ON VP09 STORAGE SCOPE.
/
/
/
/
/START OR STOP DISPLAY, DEPENDING ON TVSW.
/	CALL:	JMS	TVST
/	WILL START THE VP09 AND DISPLAY ALL LINES IN THE RING BUFFERS IF
/	TVSW=0(ON) OR .CLOSE(ERASE) THE DISPLAY IF TVSW=-1(OFF)
/
TVST	XX
	.IFUND EDITVT
/INITIALIZE AND RESET DISPLAY.
	.IFUND	RSX
TVST10	.INIT	TVDAT,1,RECOUP		/INIT DISPLAY
	.ENDC
	DZM	TVLCT	/RESET COUNT OF DISPLAYED LINES
	.ENDC
	LAC	TVSW		/CHECK ON STATUS OF TV SWITCH.
	SZA			/GO DISPLAY BUFFERS IF ON.
	JMP*	TVST		/RETURN IF OFF.
/DISPLAY ALL THE LINES IN THE RING OF BUFFERS
	LAC	TVSPTR		/FIRST LINE IN BUFFERS.
	DAC	TVCPTR
	LAW	-TVNLN		/NUMBER OF BUFFERS.
	DAC	TVCNT
TVST12=.
	.IFDEF EDITVT
	JMS CTXOFF
	.ENDC
	LAC*	TVCPTR		/GET BUFFER POINTER.
	SNA
	JMP*	TVST		/NO MORE LINES IF 0, RETURN.
	DAC	TVTEMP
	.IFDEF EDITVT
	JMS CTLXON
	.ENDC
	ISZ	TVCPTR		/POINT AT HEADER PAIR,
	LAC	TVCPTR
	.IFUND	RSX
	DAC	.+3		/INSERT BUFFER ADDRESS IN WRITE CAL
	.WRITE	TVDAT,2,0,0	/WRITE TO DISPLAY, IOPS ASCII
	.ENDC
	.IFDEF	RSX
	DAC	TVWRAD	/SAVE BUFFER ADDRESS
	CAL	TVWRA	/WRITE TO OUTPUT DEVICE
	JMS	WFEV	/WAIT FOR EVENT VARIABLE
	LAC	(DATP10) /LUN IN ERROR
	.ENDC
	.IFUND EDITVT
	ISZ	TVLCT		/INCREMENT LINE COUNT.
	.ENDC
	LAC	TVTEMP		/RESET POINTER
	DAC	TVCPTR		/TO NEXT BUFFER.
	ISZ	TVCNT		/CHECK BUFFER COUNT.
	JMP	TVST12		/RECYCLE.
	.IFDEF EDITVT
	JMS CTXOFF
	.ENDC
	JMP*	TVST		/ALL LINES DONE, RETURN.
/
/
/DISPLAY THE CURRENT LINE,UNPACKED, FROM INLINE.
/	CALL:	JMS	TVCL
/	WILL DISPLAY THE CURRENT LINE IF TVSW=0(ON)
/
TVCL	XX
	LAC	TVSW		/TV ON OR OFF
	SZA			/0=ON
	JMP*	TVCL		/OFF, NO ACTION.
/PACK LINE TO BE DISPLAYED
	.IFDEF EDITVT
	DZM VTFLAG
	.ENDC
	JMS	PACK		/SACK INTO IOPS ASCII
	INLINE			/FROM (CURRENT LINE)
	TVLINE			/TO
	.IFDEF EDITVT
	JMS CTLXON
	.ENDC
/DISPLAY IS RUNNING,ADD THE LINE TO IT.
	.IFUND EDITVT
	LAW	-70		/CHECK IF SCREEN IS FULL (56 LINES)
	TAD	TVLCT
	SMA
	JMS	TVST		/FULL SCREEN,GO RESTART DISPLAY.
	ISZ	TVLCT		/INCREMENT LINE COUNT.
	.ENDC
	.IFUND	RSX
	.WRITE	TVDAT,2,TVLINE,0	/WRITE THE LINE.
	.WAIT	TVDAT	/WAIT TO AVOID CATCHING UP WITH DISPLAY.
	.IFDEF EDITVT
	JMS CTXOFF
	.ENDC
	.ENDC
	.IFDEF	RSX
	LAC	(TVLINE)
	DAC	TVWRAD	/SET UP I/O REQUEST
	CAL	TVWRA	/DO I/O
	JMS	WFEV	/WAIT FOR EVENT VARIABLE
	LAC	(DATP10) /LUN IN ERROR
	.ENDC
	JMP*	TVCL		/RETURN.
/
/
/ADD A LINE TO THE DISPLAY RING BUFFERS.
/	CALL:	JMS	TVVP
/		BUFFER POINTER
/	WILL ADD THE PACKED LINE AT BUFFER POINTER TO THE DISPLAY RING
/	BUFFERS, REGARDLESS OF TVSW.
/
TVVP	XX
	LAC*	TVVP		/GET ARGUMENT
	ISZ	TVVP		/POINT TO RETURN LOCATION.
	DAC	TVTEMP		/SAVE ARGUMENT.
/INSERT PACKED LINE FROM ARGUMENT INTO DISPLAY BUFFER RING.
TVVP10	XX			/SWITCH FOR BUFFERS FULL OR BEING FILLED.
	/BUFFERS FULL, REPLACE OLD FIRST BY NEW LAST LINE.
	LAC	TVSPTR		/POINTS TO FIRST LINE.
	TAD	(1
	DAC	TVCPTR		/POINTS TO HEADER PAIR.
	LAC*	TVSPTR		/BUFFER POINTER TO NEXT BUFFER,
	DAC	TVSPTR		/WHICH BECOMES NEW FIRST LINE.	
	JMP	TVVP30		/GO MOVE TYLINE TO TVCPTR
	/BUFFERS BEING FILLED.
TVVP20	LAC	TVCPT2		/POINTS TO FIRST EMPTY BUFFER.
	TAD	(1
	DAC	TVCPTR		/POINTS TO HEADER PAIR.
	TAD	(BUFLEN		/POINTS TO NEXT BUFFER.
	SAD	TVBPTR		/IF THIS IS THE LAST BUFFER
	JMP	TVVP24		/GO MAKE IT POINT TO THE FIRST ONE.
TVVP22	DAC*	TVCPT2		/SET BUFFER POINTER
	DAC	TVCPT2		/SET FIRST-EMPTY POINTER.
	JMP	TVVP30		/GO MOVE TYLINE INTO TVCPTR.
TVVP24	LAC	NOPLIT		/NOP INTO BUFFERS-FULL SWITCH
	DAC	TVVP10
	LAC	(TVBUF1		/ADDR OF FIRST BUFFER INTO LAST BUF PTR.
	JMP	TVVP22
	/MOVE LINE INTO BUFFER POINTED AT BY TVCPTR.
TVVP30	LAW	-BUFLEN		/BUFFER LENGTH
	DAC	TVCNT		/INTO COUNTER.
TVVP32	LAC*	TVTEMP		/GET A WORD FROM THE LINE.
	DAC*	TVCPTR		/INSERT INTO BUFFER.
	ISZ	TVTEMP		/NEXT WORD.
	ISZ	TVCPTR		/...
	ISZ	TVCNT		/CHECK COUNT,
	JMP	TVVP32		/RECYCLE.
	JMP*	TVVP		/RETURN.
	/
/
	.IFDEF EDITVP
/
/
/BACK THE DISPLAY LINE COUNTER UP ONE LINE.
/	CALL:	JMS	TVMLF
/	REPOSITIONS THE DISPLAY UP ONE LINE AND REDUCES THE LINE
/	COUNT BY ONE, IF TVSW=0(ON)
/
TVMLF	XX
	LAC	TVSW		/CHECK TV ON OR OFF
	SZA			/0=ON
	JMP*	TVMLF		/OFF,NO ACTIONN
	LAW	-TVLF		/NUMBER OF RASTER UNITS PER LF
	DAC	TVCNT
	LAW	-2021		/TOP OF SCREEN + 1 LINE.
TVMLF2	TAD	TVLCT		/ADD NUMBER OF LINES LF TIMES,IE
	ISZ	TVCNT		/TVLF * TVLCT (TVLCT=NUMBER OF LINES	JMP	TVMLF2	
	JMP	TVMLF2		/DISPLAYED-1)
	CMA; TAD (1		/CHANGE SIGN
	RCR			/REDUCE TO X=0, Y =9 BITS.
	DAC	TVTEMP
	.IFUND	RSX
	AND (777000
	SZA
	JMP TVWR
	.WRITE	TVDAT,14,TVTEMP,1	/PLOT IN NON-STORE MODE (POSITION BEAM)
	.ENDC
TVWR	LAC	TVLCT		/SUBTRACT 1 FROM LINE COUNT.
	TAD	FENCE
	DAC	TVLCT
	JMP*	TVMLF
/
/
/CROSS OUT A LINE ON THE DISPLAY.
/	CALL:	JMS	TVXUT
/	CAUSES A BROKEN LINE TO BE DRAWN THROUGH THE DISPLAY LINE
/	BEFORE THE ONE ABOUT TO BE WRITTEN, IF TVSW=0(ON).
/
TVXUT	XX
	LAC	TVSW		/CHECK TV ON OR OFF
	SZA			/0=ON
	JMP*	TVXUT		/OFF, NO ACTION
	JMS	TVMLF		/BACK UP TO PREVIOUS LINE.
	ISZ	TVLCT		/BUMP LINE COUNT FOR THIS WRITE.
	LAC TVTEMP
	AND (777000
	SZA
	JMP TVWR1
	.IFUND	RSX
	.WRITE	TVDAT,2,TVDASH,0	/CROSS OUT LINE.
	.WAIT	TVDAT
	.ENDC
	.IFDEF	RSX
	LAC	(TVDASH)	/PICK UP THE WRITE ADDRESS
	DAC	TVWRAD	/SET IT IN THE WRITE REQUEST
	CAL	TVWRA	/ISSUE A WRITE REQUEST
	JMS	WFEV	/WAIT FOR EVENT VARIABLE
	LAC	(DATP10) /LUN IN ERROR
	.ENDC
TVWR1	JMP*	TVXUT		/RETURN
/
/
	.ENDC
/
	.IFDEF EDITVT
/
/
/SUBROUTINE "TVCLR" WILL CLEAR THE  ENTIRE
/SCREEN IF VT ON WAS TYPED
/**CODE TO ^X IN MONITOR IS 34(8) <LAW 34>
/
/
TVCLR	0
	XCT CTRLSW	/WAS VT ON TYPED
	JMP* TVCLR	/NO!
	LAC TVSW		/SAVE STATUS OF TVSW
	DAC TVXUT
	DZM TVSW		/TURN TVSW ON
	JMS CTLXON	/TURN ON ^X
	LAW 34
	JMS TYONCH
	JMS CTXOFF	/TURN OFF ^X
	LAC TVXUT		/RESTORE STATUS OF TVSW
	DAC TVSW
	JMP* TVCLR
/
/
/DELETE THE LAST LINE ON THE DISPLAY
/IF THE TV IS ON  IE  TVSW=0
/
/	CALL	JMS TVXUT
/	SENDS ASCII CODE (036) TO THE
/	CONTROL X FEATURE WHICH REMOVES
/	THE LAST LINE FROM THE DISPLAY FILE
/
/
TVXUT	0
	XCT CTRLSW	/WAS VT ON TYPED
	JMP* TVXUT	/NO--EXIT
	LAC TVSW
	SZA
	JMP* TVXUT
	JMS CTLXON	/TURN ^X ON
	LAW 36		/GIVE DELETE CODE TO MONITOR ^X CODE
	JMS TYONCH
	JMS CTXOFF
	JMP* TVXUT
/
/
/TURN ON CTRL X IF VT ON
/WAS TYPED AND TV IS ON
/
CTLXON	0
	LAC TVSW	/IS TV ON
	SZA
	JMP* CTLXON	/NO -- EXIT
	LAW -2
	AND* SCOMCX	/MAKEUP DATA WORD
	JMS CTLXSD
	JMP* CTLXON
/
/
/TURN CTRL X OFF IF VT ON
/WAS TYPED
/
CTXOFF	0
	XCT CTRLSW
	JMP* CTXOFF
	CLA		/GIVE A <LF> TO ^X -- ^X PACKS ON A <LF>
	JMS TYONCH	/AND THIS WILL GIVE IT ONE DUE TO OVERPRINT
	LAW -2		/MAKE UP DATA WORD
	AND* SCOMCX
	XOR (1
	JMS CTLXSD
	JMP* CTXOFF
/
/
/SET CTRL X STATUS REGISTER TO THE
/DATA WORD IN THE AC AND THEN ISSUE
/A CTRL X TO THE MONITOR IF VT ON
/WAS TYPED
/
CTLXSD	0
	XCT CTRLSW	/WAS VT ON TYPED
	JMP* CTLXSD	/NO--EXIT
	DAC* SCOMCX	/SET STATUS REG.
	LAW 30
	JMS* CTRLX	/SEND ^X TO MONITOR
	JMP* CTLXSD
/
/
/
	.ENDC
/
/
/
/
/
/DISPLAY CONSTANTS AND STORAGE.
TVNLN=5
TVSPTR	TVBUF1			/POINTS TO LOGICALLY 1ST BUFFER TO DISPLAY
TVBUF1	.BLOCK	BUFLEN+1*TVNLN	/RING BUFFER FOR TVNLN LINES
TVBPTR	.			/END OF BUFFERS
TVCPTR	0			/CURRENT BUFFER POINTER
TVCPT2	TVBUF1			/...USED BY BUFFER FILLER
TVCNT				/COUNTER
	.IFUND EDITVT
TVLCT				/LINES ON THE SCREEN
	.ENDC
TVON	-1			/DISPLAY ON INDICATOR
TVLF=22				/VP09 LINE FEED, RASTER UNITS
	.IFDEF EDITVP
TVDAT=10				/VP09 .DAT SLOT
TVDASH	TVDEND-.*400+2
TVTEMP	0			/TEMPORARY STORE
	.IFDEF	RSX
	.ASCII	<20>'----'	/OVERPRINT
	.ENDC
	.ASCII	'----------------------------------------'
	.ASCII	'------------------------------'<15>
TVDEND=.
	.ENDC
	.IFDEF EDITVT
TVDAT=-3
VTFLAG	0
TVTEMP	0
	.ENDC
	.ENDC
/
/
	.TITLE MESSAGES
/MESSAGES OUT.
EDTMES	ENDED1-.*400+2
BUFSIZ	-67	/LINES PER BLOCK MODE BUFFER LOAD (INITALLY 55(10)).
	.IFDEF EDITOR
	.ASCII / EDITOR V20A/<15>
	.ENDC
	.IFDEF EDITVP
	.IFUND	RSX
	.ASCII / EDITVP V20A/<15>
	.ENDC
	.ENDC
	.IFDEF EDITVT
	.ASCII / EDITVT V20A/<15>
	.ENDC
	.IFDEF RSX
	.ASCII /EDITRSX V20A/<15>
	.ENDC
ENDED1=.
ERREQM	ENDERQ-.*400+2
BNUM	0	/PARTIAL RESULT DURING RADIX CONVERT OF NUMERIC ARGS.
PK5CHR=BNUM	/5-CHARACTER COUNTER FOR PACK-UNPACK.
PK6CT1=BNUM
	.ASCII 'NOT A REQUEST:'<15>
ENDERQ=.
INPTM	ENDINM-.*400+2
FINDSW	0	/INDICATOR FOR FIND AND LOCATE SEQUENCES.
	.ASCII 'INPUT'<15>
OUTSW1=.-1		/-1 IF OUTPUT FILE IS EMPTY, 0 OTHERWISE.
ENDINM=.
EOFRM	ENDEFM-.*400+2
NUMPTR	0	/POINTER TO CURRENT DIGIT IN ARGUMENT STRING.
PLBH=NUMPTR	/POINTER TO LINE BUFFER HEADER, WORD 0.
	.ASCII 'END OF FILE REACHED BY:'<15>
ENDEFM=.
EOMRM	ENDEMM-.*400+2
MAXLEN	LINSIZ
	.ASCII 'END OF MEDIUM REACHED BY:'<15>
ENDEMM=.
EOBRM	ENDEBM-.*400+2
NXTPTR	0	/POINTER TO NEXT CHARACTER IN CONTROL WORD STRING.
	.ASCII 'END OF BUFFER REACHED BY:'<15>
ENDEBM=.
BOVFLM	ENDBOM-.*400+2
	.IFUND	RSX
SCOM16	.SCOM+16
	.ENDC
	.IFDEF	RSX
	0
	.ENDC
	.ASCII 'BUFFER CAPACITY EXCEEDED BY:'<15>
ENDBOM=.
NOFIL1	ENDNF1-.*400+2
BUFEMP	0
	.ASCII 'NO INPUT FILE PRESENT.'<15>
ENDNF1=.
NOFLNM	ENDNFN-.*400+2
QRETN	0	/QRETN MAY NEVER BE USED EXCEPT FOR ^P PC STORAGE.
	.ASCII 'NO FILE NAME GIVEN.'<15>
ENDNFN=.
TOPRQM	ENDTRQ-.*400+2
BNKMSK	060000
	.ASCII 'TOP REQUEST NEEDED.'<15>
ENDTRQ=.
TWOFIL	ENDTF-.*400+2
GBADR	0
	.ASCII 'IS PRESENT ON OUTPUT DEVICE.'<15>
ENDTF=.
TWOFL0	ENDTF0-.*400+2
EXITRQ	0		/EXIT REQUEST SWITCH
	.ASCII 'PLEASE RENAME IT OR IT WILL BE DELETED.'<15>
ENDTF0=.
TWOFL1	ENDTF1-.*400+2
SAVESW	-1
	.ASCII 'IS PRESENT ON INPUT DEVICE.'<15>
ENDTF1=.
BADNAM	ENDBDN-.*400+2
QUOTE	0		/QUOTE CHARACTER FOR CHANGE REQUEST.
	.ASCII 'PLEASE TYPE IN ANOTHER NAME.'<15>
ERWORD=QUOTE
ENDBDN=.
FILN1	ENDFN1-.*400+2
DELSW	0		/INDICATOR FOR NEXT AND DELETE SEQUENCES.
ERNAME=DELSW
	.ASCII 'NOT FOUND.'<15>
	.LOC .-1
C7	7
ENDFN1=.
EMPFLM	ENDEMF-.*400+2
LEN1	0
	.ASCII 'NOTHING IN FILE.'<15>
	.LOC .-1
C17	17
ENDEMF=.
PRTYMS	ENDPMS-.*400+2
CONVLT	0
	.ASCII 'READ ERROR:'<15>
	.LOC .-1
ADRMSK	017777
ENDPMS=.
TRNMES	ENDTRN-.*400+2
CL0777	077777
	.ASCII 'TRUNCATED:'<15>
	.LOC .-1
C60	60
ENDTRN=.
BFNEMM	ENDBNM-.*400+2
CL7000	700000
	.ASCII 'BUFFER NON-EMPTY.'<15>
ENDBNM=.
NUFIL1	ENDNF1-.*400+2
EXITSW	0		/INDICATES OPEN FILE FOR EXIT ROUTINE
	.ASCII 'YOUR EDITED FILE IS ON .DAT -1'<175>
	.LOC .-1
TWO	2
ENDNF1=.
OLDEL	ENDOLD-.*400+2
TYLNPT	0
	.ASCII 'ORIGINAL FILE DELETED.'<15>
ENDOLD=.
NUFIL2	ENDNF2-.*400+2
INLNPT	0
	.ASCII ' AS '<175>
ENDNF2=.
SLASH	57	/SLASH (/) FOR BRIEF MODE SERVICER.
ENDSVM=.
NOSTGM	NENGMS-.*400+2
OVFLAD	0
	.ASCII 'NO STRING'<15>
NENGMS	BUFSPM-.*400+2
	.IFUND	RSX
SCOM2	.SCOM+2
	.ENDC
	.IFDEF	RSX
	0
	.ENDC
	.ASCII 'NOT ENOUGH '<175>
BUFSPM	LINEMS-.*400+2
	.IFUND	RSX
SCOM3	.SCOM+3
	.ENDC
	.IFDEF	RSX
	0
	.ENDC
	.ASCII 'BUFFER SPACE'<15>
LINEMS	LMEOFM-.*400+2
SGTSW	0		/LINE SWITCH FOR "SGTRAN"
	.ASCII 'LINES'<15>
	.LOC .-1
CHGREQ	SKP		/SWITCH FOR CHANGE COMMAND
LMEOFM	BUFTSM-.*400+2
MTWO	-2
	.ASCII 'LINES MOVED TO END'<15>
BUFTSM	MESEND-.*400+2
LINCSW	SKP		/SWITCH FOR LINE CONVERT
	.ASCII 'SIZE TO SMALL'<15>
MESEND=.
TFILE1	.SIXBT '.TFIL1'
EDNAM	.SIXBT 'EDT'
EDTM	002002
LENGTH	0	/TOTAL DATA CHARACTERS IN CURRENT LINE.
	.ASCII 'EDIT'<15>
	.TITLE GETBNK,GETCOM & GETNUM
/SUBROUTINE GETBNK, ADD EXTENDED MEMORY BITS REFERENCING CURRENT
/BANK TO 13-BIT ADDRESS IN AC.
/CALL:	LAW ADDR		/GET ADDRESS TO BE MODIFIED.
/	JMS GETBNK	/CALL GETBNK.
/FOR BANK MODE VERSION
/IE 13 BIT ADDRESSING
/ADRMSK=017777 AND BNKMSK=060000
/
GETBNK	0		/ENTRY TO GETBNK.
CWCHRC=GETBNK		/GETCOM: MAXIMUM CHARACTERS POSSIBLE IN LEGAL COMMAND WORD.
	AND ADRMSK	/EXTRACT 13-BIT ADDRESS FROM AC.
	DAC GBADR		/SAVE TEMPORARILY.
	LAC GETBNK	/GET ENTRY.
	AND BNKMSK	/GET BANK BITS
	ADD GBADR		/NOW RETRIEVE 13-BIT ADDRESS.
	JMP* GETBNK	/EXIT WITH 15-BIT ADDRESS IN AC.
/SUBROUTINE GETCOM, EXTRACT CONTROL WORD FROM TYPED INPUT LINE.
/IGNORES LEADING BLANKS IN STRING AND TERMINATES ON FIRST FOLLOWING
/BLANK OR END-OF-LINE. IF STRING BEING EXTRACTED EXCEEDS SEVEN CHARACTERS
/IN LENGTH, THE RIGHTMOST OVERFLOW CHARACTERS ARE THROWN AWAY. TOTAL
/CHARACTERS IN STRING EXTRACTED IS RETURNED TO THE CALLER IN THE AC.
GETCOM	0		/ENTRY TO GETCOM.
NPAIRS=GETCOM		/PUTLIN: TEMPORARY STORAGE.
	LAC CWDLIT	/POINTER TO START OF CONTROL-WORD ARRAY.
	DAC CWDPTR	/SAVE AS CURRENT-CHARACTER POINTER.
FIVE70	LAW -10		/LENGTH OF CONTROL-WORD ARRAY (CWD).
	DAC CWCHRC	/SAVE AS MAXIMUM-CHARACTERS COUNTER.
	DZM NCHARS	/ZERO TOTAL CHARACTERS IN CONTROL-WORD STRING.
	CLL!CML		/INDICATE NO CHARACTERS ENCOUNTERED YET.
GTNXT	JMS NXTCHR	/GET NEXT CHARACTER FROM INPUT LINE.
	JMP GTCLOS	/NO MORE CHARACTERS, CLOSE OUT ARRAY.
	SAD BLANK		/SUCCESS. IS CHARACTER A BLANK?
	JMP BLKFND	/YES, MAKE SURE SOME DATA PRECEDED IT.
	SAD	(54	/IS THE CHAR A COMMA? IF SO, JMP TO COMMA.
	JMP	COMMA
	CLL		/NO, INDICATE SOME NON-BLANK CHARACACTER HAS BEEN FOUND.
	ISZ CWCHRC	/BUMP MAXIMUM-CHARACTERS-ALLOWED.
	JMP GTCPUT	/NO OVERFLOW YET, PUT CHARACTER AWAY.
	CLC		/SEVEN CHARACTERS INSERTED, DON'T ALLOW ANY MORE.
	DAC CWCHRC	/RESET CWCHRC TO -1.
	JMP GTNXT		/THEN GO LOOK FOR BLANK OR TERMINATOR.
/COME HERE TO INSERT DATA CHARACTER IN CWD ARRAY.
GTCPUT	DAC* CWDPTR	/PUT CHARACTER AWAY.
	ISZ CWDPTR	/BUMP POINTER FOR NEXT TIME.
	ISZ NCHARS	/AND BUMP CHARACTERS PROCESSED.
	JMP GTNXT		/THEN GO FOR NEXT CHARACTER.
/COME HERE ON BLANK FOUND IN INPUT LINE.
BLKFND	SZL!CLA!CMA	/SKIP IF THIS  S NOT A LEADING BLANK.
	JMP GTNXT		/LEADING BLANK, IGNORE IT.
GTCLOS	DAC* CWDPTR	/NOT LEADING BLANK, THEN TERMINATE STRING (AC = -1 NOW).
	LAC NCHARS		/PICK UP TOTAL CHARACTERS IN STRING.
	JMP* GETCOM	/AND RETURN TO CALLER.
COMMA	CLC	/A COMMA HAS BEEN FOUND TREAT IT LIKE A DELIMETER
	JMP	GTCLOS
CWD	.BLOCK 10	/ROOM FOR LONGEST LEGAL CONTROL WORD AND TERMINATOR.
/SUBROUTINE NXTCHR, RETURN NEXT 7-BIT CHARACTER FROM UNPACKED INPUT
/ARRAY. NXTPTR MUST BE SET TO BEGINNING OF ARRAY BEFORE FIRST CALL.
/CALL:	JMS NXTCHR	/GO TO NXTCHR.
/	JMP DONE		/RETURN HERE IF END-OF-LINE ENCOUNTERED.
/	DAC CHAR		/RETURN HERE WITH CHARACTER IN AC.
NXTCHR	0		/ENTRY TO NXTCHR.
TNUM=NXTCHR		/GETNUM: TEMPORARY STORAGE.
	LAC* NXTPTR	/GET NEXT CHARACTER.
	SPA		/TERMINATOR?
	JMP* NXTCHR	/YES, RETURN IMMEDIATELY.
	ISZ NXTPTR	/OTHERWISE BUMP POINTER FOR NEXT TIME.
	ISZ NXTCHR	/AND BUMP RETURN ADDRESS.
	JMP* NXTCHR	/THEN RETURN TO CALLER WITH CHARACTER IN AC 11-17.
/SUBROUTINE GETNUM, RETURN BINARY VALUE IN AC OF THE DECIMAL
/ARGUMENT IN THE CONTROL WORD STRING. NUMBER IS RETURNED IN NEGATIVE (2'S
/COMPLEMENT) FORM. IF NO PARAMETER IS PRESENT, AC = 777777. THE
/APPEARANCE OF ANY NON-NUMERIC IN THE PARAMETER STRING CAUSES
/TRANSFER OF CONTROL TO ILLCWD AND SUBSEQUENT DISREGARD OF THE
/ENTIRE COMMAND.
GETNUM	0		/ENTRY TO GETNUM.
	JMS GETCOM	/GET NEXT CONTROL-WORD STRING.
	LAC CWDLIT	/SET DIGIT POINTER TO
	DAC NUMPTR	/BEGINNING OF CONTROL-WORD STRING.
	DZM BNUM		/SET INITIAL RESULT TO ZERO.
GTNLP	LAC* NUMPTR	/ENTER MAIN LOOP, GET NEXT DIGIT FROM INPUT STREAM.
	SPA		/TERMINATOR CHARACTER?
	JMP GTNRTN	/YES, GO TO RETURN.
	AND C17		/NO, MASK OFF NUMERICS.
	DAC TNUM		/SAVE NUMERICS.
	CMA
	TAD C12
	SPA
	JMP ILLCWD
	LAC TNUM
	XOR* NUMPTR	/ZERO NUMERICS, REINSERT ZONE BITS.
	XOR C60		/THEN ZERO ZONE BITS. THIS ONLY SEEMS TEDIOUS.
	SZA		/BITS 2 AND 3 ON, BIT 1 OFF: NUMBER PRESENT.
BADARG	JMP ILLCWD	/NON-NUMBER OTHERWISE. GO COMMENT.
	LAC BNUM		/GET VALUE COMPUTED SO FAR, THEN MULTIPLY BY 10.
	CLL!RAL		/FORM BNUM * 2.
	RTL		/BNUM * 8.
	ADD BNUM		/BNUM * 9.
	ADD BNUM		/BNUM * 10.
	ADD TNUM		/BNUM PLUS CURRENT DIGIT.
	DAC BNUM		/NEW VALUE.
	ISZ NUMPTR	/BUMP POINTER TO NEXT DIGIT.
	JMP GTNLP		/LOOP TILL DONE.
GTNRTN	LAC BNUM		/ALL FINISHED, GET FINAL VALUE.
	SZA!CMA		/IF BNUM .E. 0, BNUM = 1.
	TAD ONE		/IF BNUM .G. 0, FORM 2'S COMPLEMENT.
	JMP* GETNUM	/RETURN TO CALLER WITH RESULT IN AC.
	.TITLE EOF PROC,I/O .INIT SUBR & CHDAT SUBR
/COME HERE ON EOF ENCOUNTERED IN INPUT FILE.
EOF	LAC GBLKSW
	SZA
	JMP PRTEOF
	LAC BFPTSW
	DAC BUFEMP
	LAW EOBRM
	SKP
PRTEOF	LAW EOFRM
	JMS TYPOUT
EOFCOM	JMS PACK
ADR010	EDLIN
	TYLINE
	LAW TYLINE
	JMS TYPOUT
	JMP FND4
/
/
IOINIT	0
CWDPTR=IOINIT
	.IFUND	RSX
	LAC INPTCL
	AND C777
	DAC .+1
	OPICAL		/INPUT DEVICE.
UNIT1	1
	0
INDEV	0
	.ENDC
	LAC ICLSW	/CHECK TO SEE IF ICLOSE WAS
	SMA!CLA!CMA	/REQUESTED
	JMP ICLREQ
	DZM LENGTH	/DON'T ZERO IF ICLOSE REQ
	.IFUND	RSX
	LAC OUTPCL
	AND C777
	ADD C1000
	DAC .+1
	OPOCAL		/SCRATCH DEVICE.
UNIT2	1
	0
OUTDEV	0
	.ENDC
	LAW -1
	DAC OUTSW1	/INDICATE NOTHING WRITTEN YET IN OUTPUT FILE
ICLREQ	DAC RDFNOP	/IF ICLOSE REQ LEAVE OUTSW1 ALONE
	DAC INFILE
	DAC OWFLSW
	.IFUND	RSX
	LAW -376
	TAD INDEV
	DAC INDEV
	SPA
	DZM INFILE
	LAC ICLSW	/CHECK ICLOSE SW TO SEE
	SZA		/IF .INIT WAS DONE TO OUTPUT
	LAW -376
	TAD OUTDEV
	SPA
	DZM OWFLSW
	DAC OUTDEV
	.ENDC
	.IFDEF	RSX
	DZM	OUTDEV	/INDICATE FILE STRUCTURED
	DZM	INDEV
	.ENDC
	LAC INFILE
	TAD OWFLSW
	SAD NAMEIN
	SKP!CLA
	CLA!CMA
	DAC FILSTR
	CMA
	DAC BLOKSW
	DAC PBLKSW
	JMS CHBUFF
	DZM BFPTSW
	LAW -1
	DAC ICLSW	/RESET ICLOSE SWITCH
	JMP* IOINIT
ICLSW	-1
INFILE	-1
OWFLSW	-1
FILSTR	0
INPSW	0
BBUF1	0		/START OF BLOCK BUFFER 1.
BBUF2	0		/START OF BLOCK BUFFER 2.
BBUFX	0		/LENGTH OF EACH BLOCK BUFFER.
	.IFDEF EDITVT
CTRLSV	0		/ ^X STATUS ON ENTRY
CTRLX	0		/ADDR OF VTLBUF IN MONITOR
CTRLSW NOP		/CTRL X SWITCH
	.ENDC
	.IFUND	RSX
	.IFDEF EDITVT
	.IFDEF DOS15
SCOMCX	.SCOM+33
	.ENDC
	.IFUND DOS15
SCOMCX	.SCOM+25
	.ENDC
	.ENDC
	.IFDEF PTP
INPDAT	DATM14
	.ENDC
	.IFUND PTP
INPDAT	.SCOM+23
	.ENDC
OUTDAT	DATM15
	.IFDEF DOS15
INPUIC	.SCOM+25
OUTUIC	0
/
/
	.ENDC
	.ENDC
/
/
/SUBROUTINE TO CHECK IF BOTH INPUT
/AND OUTPUT DAT SLOTS ARE ASSIGNED
/TO THE SAME DEVICE AND UNIT NUMBER
/
/ALSO, FOR DOS15 CHECK FOR SAME UIC.
/
/CALL	JMS DEVCHK
/	RETURN	/ALL THINGS THE SAME
/	RETURN	/NOT THE SAME
/
/
DEVCHK	0
	.IFUND	RSX
	LAC* INPDAT	/CHECK DAT SLOTS
	SAD* OUTDAT
	SKP
	JMP NOGO
	.IFDEF DOS15
	LAC* INPUIC
	SAD* OUTUIC
	.ENDC
	.ENDC
	.IFDEF	RSX
	CAL	HINFA
	JMS	WFEV
	LAC	(DAT14)	/LUN IN ERROR
	LAC	EVTA
	AND	(7777)	/MASK OFF DEVICE AND UNIT TYPE
	DAC	TEMPB	/SAVE THE DEVICE CODES
	CAL	HINFB	/FIND OUT ABOUT THE OUTPUT DEVICE
	JMS	WFEV	/WAIT FOR EVENT VARIABLE
	LAC	(DAT15)	/LUN IN ERROR
	LAC	EVTA	/PICK UP EVENT VARIABLE
	AND	(7777)	/MASK OFF THE DEVICE AND UNIT CODES
	SAD	TEMPB	/ARE THEY THE SAME?
	.ENDC
	JMP* DEVCHK	/SAME  EXIT
NOGO	ISZ DEVCHK	/BUMP TO NOT SAME EXIT
	JMP* DEVCHK	/EXIT
/
/
/SUBROUTINE CHDAT, CHANGE DAT SLOTS AROUND.
CHDAT	0
	LAC DIRSW
	CMA
	DAC DIRSW
	LAC OUTPCL
	DAC RENAME
	LAC INPTCL
	DAC OUTPCL
	LAC RENAME
	DAC INPTCL
	DZM OUTPSW
	JMS IOINIT
	JMP* CHDAT
/
/
	.LTORG
	.IFDEF RSX
MAXBUF 0
EDTSIZ	.SIZE
	.ENDC
	.TITLE PATCH BLOCK
	.IFUND	RSX
/
/
/37(8) WORD AREA
/
	.REPT 36
PATCHF	0		/FIRST PATCH LOCATION
PATCHL	0		/LAST PATCH LOCATION
/
/
/
	.ENDC
/
/DEFINE BUFFERS USED BY THE EDITOR
/
EDLIN=.			/CURRENT COMMAND STRING ARRAY.
INLINE=EDLIN+LINSIZ	/CURRENT INPUT LINE FROM FILE OR KEYBOARD.
TYLINE=INLINE+LINSIZ
/DEFINE TEMPORARY STORAGE REGISTERS RESIDING IN TYLINE AREA.
RNMFIL=TYLINE
RENMCT=RNMFIL+6
RNMWRD=RENMCT+1
CALDB1=RNMWRD+1
CALDB2=CALDB1+3
CALDAT=CALDB2+3
SBUFF=TYLINE+LINSIZ
	.IFUND EDITOR
TVLINE=SBUFF+BUFLEN	/DISPLAY LINE BUFFER
RDBUF1=TVLINE+BUFLEN
	.ENDC
	.IFDEF EDITOR
RDBUF1=SBUFF+BUFLEN
	.ENDC
RDBUF2=RDBUF1+BUFLEN	/..
WRBUF1=RDBUF2+BUFLEN
WRBUF2=WRBUF1+BUFLEN
LABUF=WRBUF2+BUFLEN-1
/
/
	.IFDEF BIN
	.LOC LABUF
	0
	.ENDC
/
/
	.TITLE ONE TIME SECTION
	.LOC EDLIN
/ONE-TIME SECTION TO SET UP CONSTANT ADDRESSES WITH EPC BITS
/TO REFERENCE PROPER (CURRENT) BANK; CALCULATE START OF BLOCK
/BUFFERS. CODING RESIDES IN READ-WRITE LINE BUFFER AREAS AND SETS "BEGIN"
/TO NOP TO AVOID FURTHER CALLS.
SETBNK	LAC NOPLIT
	DAC BEGIN
	.IFUND	RSX
	.IFUND PTP
	LAW -15
	TAD* INPDAT
	DAC OUTDAT
	DAC INPDAT
	ISZ INPDAT
	.IFDEF DOS15
	LAW -15
	TAD* INPUIC
	DAC OUTUIC
	DAC INPUIC
	ISZ INPUIC
	.ENDC
	.ENDC
	LAW ADRTBL
	JMS GETBNK
	DAC* C12
ADRLP1	LAC* 12
	JMS GETBNK
	DAC POINTR
	LAC* POINTR
	JMS GETBNK
	DAC* POINTR
	ISZ ACOUNT
	JMP ADRLP1
	LAC* SCOM2
	.ENDC
	.IFDEF	RSX
	.IFNEG COPY-2
	CAL	REDPAR	/CLEAR TDV BUFFER
	LAC	TDVEV	/CHECK THE EVENT VARIABLE TO SEE IF
	SPA		/IT IS LEGAL
	JMP	TDVER	/NO EXIT TASK
	.ENDC
	LAC	EDTSIZ	/PICK UP THE SIZE
	.ENDC
	DAC BBUF1
	.IFUND	RSX
	LAC*	SCOM3
	.ENDC
	.IFDEF	RSX
	CAL	PREA14	/PREALLOCATE
	CAL	WFEVA	/WAIT FOR EVENT VARIABLE
	LAC	EVA
	SMA	
	JMP	PRE15	/OK TRY NEXT ONE
	SAD	(-6)	/NOT IMPLEMENTED?
	JMP	PRE15	/YES -- IGNORE
	JMS	IOERR	/NO I/O ERROR
	LAC	(DAT14)	/ERROR LUN
PRE15	CAL	PREA15	/PREALLOCATE LUN 15
	CAL	WFEVA	/WAIT FOR EVENT VARIABLE
	LAC	EVA
	SMA
	JMP	PREOK	/OK PREALLOCATION
	SAD	(-6)	/NOT IMPLEMENTED?
	JMP	PREOK	/YES OK
	JMS	IOERR	/NO I/O ERROR
	LAC	(DAT15)	/LUN OF ERROR
PREOK	CAL	PARSIZ	/FIND THE SIZE OF THE PARTITION
	LAC	ENDPAR	/PICK UP THE END OF THE PARTITION
	.ENDC
	.IFUND	RSX
	JMS GETBNK
	.ENDC
	CMA
	TAD BBUF1
	CMA
	RAR!CLL
	DAC BBUFX
	TAD BBUF1
	DAC BBUF2
	DZM BFPTSW
	.IFUND	RSX
	LAC*	SCOM3
	.ENDC
	.IFDEF	RSX
	LAC	BBUFX	/PICKUP THE BUFFER SIZE
	CLL		/IN WORDS AND SET UP A 
	IDIV		/REASONABLE BLOCK SIZE
	BUFLEN		/LINE SIZE
	LACQ		/PICK UP THE QUOTENT
	AAC	-1	/SUBTRACT 1 TO BE SAFE
	SPA		/CHECK TO SEE IF POSITIVE
	JMP	LDERR	/NO NOT ENUF CORE
	TCA		/COMPLEMENT TO MAKE NEGATIVE FOR BUFSIZ
	DAC	BUFSIZ	/SET UP BUFFER SIZE MAX
	DAC	MAXBUF	/SET UP MAXIMUM BUFFER'S ALLOWED
	LAC	ENDPAR	/PICK UP THE END OF THE PARTITION
	.ENDC
	.IFUND	RSX
	JMS GETBNK
	.ENDC
	CMA
	.IFUND	RSX
	TAD* SCOM2
	.ENDC
	.IFDEF	RSX
	TAD	EDTSIZ	/ADD THE CODE SIZE
	.ENDC
	SPA!SNA
	JMP OK
	.IFUND	RSX
	LAW LOAD1
	.ENDC
	.IFDEF	RSX
LDERR	LAW	LOAD1
	.ENDC
	JMS TYPOUT
	.IFDEF	RSX
	LAC	(2)	/FORCE TDV TO BE CALLED
	DAC	TDVEV
	.ENDC
	JMP EXIT1
LOAD1	ENDLD1-.*400+2
	0
	.IFUND	RSX
	.ASCII '.SYSLD 1'<15>
	.ENDC
	.IFDEF	RSX
	.ASCII	'EDT-PARTITION TOO SMALL'<15>
	.ENDC
ENDLD1=.
OK	JMS CHBUFF
	.IFDEF EDITVT
	LAW -3	/GET ADDRESS OF EDITVT
	TAD* (.SCOM+23	/MONITOR ^X INTERCONNECTION
	DAC CTRLX		/LOCATED AT TTA.-2
	LAW -2
	TAD* CTRLX
	DAC CTRLX
	LAC* CTRLX
	DAC CTRLX		/WAS VT ON TYPED NON ZERO IF SO
	SNA
	JMP OK1		/NO--DON'T SET SWITCH
	.IFDEF DOS15
	LAC* (.SCOM+52	/IF IN BOSS15 MODE
	SPA			/DON'T SET SWITCH
	JMP OK1
	.ENDC
	LAC SKPLIT
	DAC CTRLSW
OK1	LAC* SCOMCX	/SAVE ENTRY STATE OF ^X
	AND (1
	DAC CTRLSV
	.ENDC
	.IFUND	RSX
	TTICAL
	1
ADR012	RECOUP
	0
	IN2CAL
	1
	0
SBSIZ	0
	LAW -376
	TAD SBSIZ
	SPA
	.ENDC
	JMP BEGIN+1
	.IFUND	RSX
	LAW FSDERM
	JMS TYPOUT
	LAW FSDER1
	JMS TYPOUT
	LAW TYLINE
	JMS TYPEIN
	LAC TYLINE+2
	XOR YES
	SNA
	JMP BEGIN+5
	JMP EXIT1
FSDERM	ENDFSD-.*400+2
	0
	.ASCII '.DAT -10 IS FILE-ORIENTED.'<15>
ENDFSD=.
FSDER1	ENDFR1-.*400+2
	0
	.ASCII 'DO YOU WISH TO CONTINUE'<77><15>
ENDFR1=.
YES	.ASCII 'YES'
	.LOC .-1
ADRTBL=.-1
	CWDLIT
	CWDTOP
	INLADR
	EDLADR
	EDLAD1
	FEED
	SBADR
	RDCAL2
	RDALTB
	WRPAK2
	WRALTB
	DEB1
	CKNM1
	CKNM2
	CKNM2+1
	ADR000
	ADR001
	ADR002
	ADR002+1
	ADR003
	ADR004
	ADR004+1
	ADR005
	ADR005+1
	ADR006
	ADR006+1
	ADR008
	ADR008+1
	ADR009
	ADR010
	ADR010+1
	ADR011
	ADR011+1
	ADR012
	ADR013
	ADR013+1
	ADR014
	ADR014+1
	ADR015
	ADR015+1
	ADR016
	ADR016+1
	ADR017
	ADR017+1
	ADR018
	ADR018+1
ACOUNT	ADRTBL-.+1
	.ENDC
	.LTORG
LAONCE=.-1
	.END BEGIN
