
                     * PAG
                     **********************************************************
                     *  RENAME - FILE RENAME UTILITY                   *
                     **********************************************************
                     * OPT PAG
                     *
                     * 'RENAME' UTILITY COPYRIGHT (C), 1979 BY
                     *
                     *   TECHNICAL SYSTEMS CONSULTANTS, INC.
                     *   BOX 2570
                     *   WEST LAFAYETTE, INDIANA  47906
                     *   USA
                     
                     * BY FLD ON 26-11-2011 FOR VEGAS
                     * DISASSEMBLY BY DYNAMITE OF 1.RENAME.CMD
                     
                     * STANDARD PRE-NAMED LABEL EQUATES
                     
               C840  SYSFCB  EQU    $C840
               CD03  WARMS   EQU    $CD03
               CD2D  GETFIL  EQU    $CD2D
               CD33  SETEXT  EQU    $CD33
               CD3F  RPTERR  EQU    $CD3F
               D406  FMS     EQU    $D406
                     
                     * EXTERNAL LABEL EQUATES
                     
               C871  SCRATCH EQU    $C871     ADRESS OF SCRATCH AREA OF FCB -4
                     
                     
  C100                       ORG    $C100
                     
  C100 20   01       CMDADR  BRA    RENAM1    SKIP VERSION NUMBER
  C102 01                    FCB    $01       VERSION NUMBER
  C103 8E   C840     RENAM1  LDX    #SYSFCB   GET FCB ADRESS
  C106 BD   CD2D             JSR    GETFIL    GET FILE NAME
  C109 25   2C               BCS    RENAM2    JUMP ON ERROR
  C10B 86   01               LDA    #1        CODE FOR OPEN FOR READ AND TXT EXTENSION
  C10D A7   84               STA    0,X       SET THE FCB
  C10F BD   CD33             JSR    SETEXT    SET THE TXT EXTENSION IF MISSING
  C112 BD   D406             JSR    FMS       CALL FMS
  C115 26   20               BNE    RENAM2    JUMP ON ERROR
  C117 86   04               LDA    #4        CODE FOR CLOSE
  C119 A7   84               STA    0,X       SET THE FCB
  C11B BD   D406             JSR    FMS       CALL FMS
  C11E 26   17               BNE    RENAM2    JUMP ON ERROR
  C120 8E   C871             LDX    #SCRATCH  LOAD THE ADRESS OF THE SCRATCH AREA 
  C123 BD   CD2D             JSR    GETFIL    GET THE NEW FILE NAME
  C126 25   0F               BCS    RENAM2    JUMP ON ERROR
  C128 8E   C840             LDX    #SYSFCB   GET THE FCB ADRESS
  C12B 86   0D               LDA    #$0D      CODE FOR THE RENAME FUNCTION
  C12D A7   84               STA    0,X       SET THE FCB
  C12F BD   D406             JSR    FMS       CALL FMS
  C132 26   03               BNE    RENAM2    JUMP ON ERROR
  C134 7E   CD03             JMP    WARMS     ALL DONE
  C137 BD   CD3F     RENAM2  JSR    RPTERR
  C13A 7E   CD03             JMP    WARMS     EXIT
                     
                             END    CMDADR

0 ERROR(S) DETECTED

SYMBOL TABLE:

CMDADR C100   FMS    D406   GETFIL CD2D   RENAM1 C103   RENAM2 C137   
RPTERR CD3F   SCRATC C871   SETEXT CD33   SYSFCB C840   WARMS  CD03   





