;*; Updated on 26-Mar-87 at 3:24 PM by Tom Faust; edit time: 0:08:40
VEDIT = 0
;* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
;*                                                                         *
;*  Copyright (c) 1987 by Software Designs, PO Box 9227, Spokane WA 99209  *
;*      (509) 326 2480.  Written by Tom Faust.  All rights reserved.       *
;*                                                                         *
;*      This program may be freely used for non-commercial purposes        *
;*      by AMUS members.                                                   *
;*                                                                         *
;* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
;
;   Pgm Name:   RENSYS.LIT
;
;   Pgm Desc:   Rename a module in system memory.
;
;   Author:     Tom Faust
;
;   Version:    1.0
;
;   Hash Total:
;
;
; Patch Log
;  Ver  Sub        Date    Who  Description of Change
; ------------  ---------  ---  ---------------------------------------------
;  1.0          12 Dec 83  TGF  New.
;               26 Mar 87  TGF  Cleaned up for AMUS.
;

       SEARCH  SYS
       SEARCH  SYSSYM

BASE:   PHDR    -1,0,PH$REE!PH$REU

START:  LIN
       BNE     5$
       TYPECR  <Usage: RENSYS new-filespec = old-filespec>
       JMP     EXIT

5$:     SUB     #14,SP                  ; get some workspace
       FILNAM  6(SP)                   ; read TO module name
       BYP
       CMPB    (A2)+,#'=               ; bypass = sign, must exist!
       BEQ     10$
       TYPECR  <?Specification error>
       JMP     EXIT

10$:    BYP
       FILNAM  @SP                     ; read FROM module name
       SRCH    @SP,A5                  ; find FROM module name
       BNE     20$
       USRBAS  A4
       CMP     A4,A5                   ; system memory only
       BHI     30$
20$:    TYPECR  <?File not found>
       BR      EXIT
30$:    ADD     #6,SP                   ; index new name
       SUB     #6,A5                   ; index module name
       POP     (A5)+                   ; rename module
       POPW    (A5)+
       TYPECR  <1 Module renamed.>

EXIT:   TYPECR  <Copyright (c) 1983,1987 by Software Designs>
       EXIT

       END

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.