**************************************************
  1)  BOTTM.MAC;30
   45   ;
***************
  2)  BOTTM.MAC;44
   45   ;                        
   46   ; RM SYSTEMS,MAY 1979 HAS MADE MODIFICATIONS TO DELETE ALL 
   47   ; INTERMEDIATE FILES GENERATED WHEN A "TOP OF FILE " COMMAND
   48   ; IS USED.CHANGES HAVE ALSO BEEN MADE TO DELETE TEMP.SAV FILES
   49   ;GENERATED BY THE "SAVE" COMMAND IF NO NAME IS ENTERED.
   50   ; THE DELETION OCCURS UPON TERMINATION OF EDIT AND DOES NOT
   51   ; AFFECT THE OPERATION OTHERWISE.
   52   ; CHANGES WERE MADE IN BOTTM,START,UNSAV,EDIMP, AND MSCCM
   53   ;
   54   ;
   55   ;
**************************************************
  1)  BOTTM.MAC;30
   53   										;**-1
***************
  2)  BOTTM.MAC;44
   63           .MCALL  OPEN$R
   64   										;**-1
**************************************************
  1)  BOTTM.MAC;30
   61   	.BYTE	15,12
***************
  2)  BOTTM.MAC;44
   72   TMPNAM:  .ASCIZ  /[OUTPUT FILE IS NAMED EDITOR.TMP]/
   73   	.BYTE	15,12
**************************************************
  1)  BOTTM.MAC;30
   91   	BIT	#DELINP,SW2	;DELETE THE INPUT
   92   	BEQ	60$		;IF EQ NO
   93   	DELET$	#INPBLK 	;MARK FILE FOR DELETE
   94   60$:	MOVB	(SP)+,$BLKON	;RESTORE BLOCK ON/OFF FLAG
   95   	CLOSE$	#INPBLK		;CLOSE INPUT FILE IF ANY
   96   	TSTB	@CWDS		;SEE IF A NEW OUTPUT FILE NAME
   97   	BEQ	80$		;WAS GIVEN IN EXIT OR CLOSE.
   98   	MOV	CWDS,R1		;YES:  GET FILE NAME
***************
  2)  BOTTM.MAC;44
  103   ;                      :::::::::::::::::::::::::::::::::
  104   ;                         RMS MODS   5/79               **RMS**
  105   ;                               ;DELETE ORIGINAL INPUT FILE  **
  106   ;                                ;AND TEMP INPUT FILE WHEN   **
  107   ;                               ; REQUESTED                   *
  108           BIT     #DELINP,SW2  ;WAS DEL. INP REQUESTED?         *
  109           BEQ     55$             ;NO, FORGET ABOUT ORIGINAL    *
  110           DELET$  #INPBLK         ; YES DELETE WHATEVER INP     *
  111           TST     OUTFIL+10       ;WAS DEFAULT OUTFILE IN USE?  *
  112           BNE     60$              ; NO ORIG INP JUST DELETED   *
  113           TST     INPVER          ;WAS THERE EVER AN ORIGINAL ? *
  114           BEQ     60$             ;NO, THAT IS ALL TO DELETE    *
  115           MOV     INPVER,INFILN+10 ;YES SET TO ORIG IN. VER.    *
  116   ;        OPEN$R  INPBLK      ;REOPEN THE ORIGINAL INPUT FILE   *
  117           DELET$  #INPBLK         ;CLOSE/DELETE ORIGINAL        *
  118           MOV     OUTVER,INFILN+10 ;RESET NO VER. FILNAM DESC.  *
  119           BR      60$             ;GO PROCESS OUTFILE NOW       *
  120   55$:
  121   ;                                HERE TO DELETE A TEMP INPUT  *
  122                                    ;FILE                        *
  123           TST     OUTFIL+10        ;USING A DEFAULT OUTFILE     *
  124           BNE     60$             ;NO DONT DELETE ORIG          *
  125           DELET$  #INPBLK         ;YES CL&DEL TEMP INP FILE     *
  126   ;                                          ********************
  127   60$:	MOVB	(SP)+,$BLKON	;RESTORE BLOCK ON/OFF FLAG
  128   	CLOSE$	#INPBLK		;CLOSE INPUT FILE IF ANY
  129   	TSTB	@CWDS		;SEE IF A NEW OUTPUT FILE NAME
  130           BNE     62$             ;WAS GIVEN IN EXIT OR CLOSE.**RM**
  131           TST     OUTFIL+10       ;USING A DEFAULT OUTFILE    **RM**
  132           BEQ     65$             ;YES, GO RENAME TO INPUT FILN**
  133           BR      80$             ;NO, GO SET UP TO USE TEMP  **RM**
  134   62$:
  135   	MOV	CWDS,R1		;YES:  GET FILE NAME
**************************************************
  1)  BOTTM.MAC;30
  103   	MOV	#OUTBLK,R0	;GET FDB OF OLD NAME
***************
  2)  BOTTM.MAC;44
  140   65$:                            ;HERE TO RENAME OUTFILE***
  141   ;                               ;TO INFILE
  142   	MOV	#OUTBLK,R0	;GET FDB OF OLD NAME
**************************************************
  1)  BOTTM.MAC;30
  112   80$:	CLR	INPDFN+N.DID	; CLEAR DIRECTORY SPECIFICATION.		;JM021
***************
  2)  BOTTM.MAC;44
  151           TST     OUTFIL+10       ;DEFAULT NAME IN USE?    :*RMS**
  152           BNE     80$             ;NO,DONT DO TEMP NAME MSG *RMS**
  153           JSR     R0,TYPED        ;ILLEGAL FILE NAME
  154           TMPNAM                   ;EDITOR.TMP ON OUTFILE**RMS**
  155   80$:	CLR	INPDFN+N.DID	; CLEAR DIRECTORY SPECIFICATION.		;JM021
**************************************************
  1)  BOTTM.MAC;30
  127   	CLR	VERFLG		;CLEAR VERSION FLAG
  128   	MOV	INPVER,R0	;GET INPUT FILE VERSION FLAG
  129   	BEQ	10$		;IF EQ NO VERSION SPECIFIED
  130   	MOV	R0,INFILN+10	;RESET TO IGNOR VERSION NUMBER
  131   10$:	JMP	ONED		;REOPEN INPUT AND OUTPUT FILES
  133   	.END
***************
  2)  BOTTM.MAC;44
  170           CLR     OUTFIL+10          ;CLEAR FILENAME COUNT IN FN DESC **RMS**
  171           CLR     OUTFIL+12          ;CLEAR FILNAME STRING POINTER    **RMS**
  172   ;                                  ;CAUSING THE DEFAULT FILE NAME **RMS**
  173   ;                                  ;DESCRIPTOR RO BE USED         **RMS**
  174   	MOV	OUTVER,INFILN+10	;RESET TO IGNOR VERSION NUMBER**RMS**
  175   10$:	JMP	OKNSF		;REOPEN INPUT AND OUTPUT FILES***RMS**
  177   	.END

175   10$:	JMP	OKNSF		;
BOTTM.CMP=[320,13]BOTTM,[120,14]BOTTM