S1 Wiki

ファイル名を変更します(NAME)。

ディスク上にあるファイルのファイル名を変更します。
現ファイル・ディスクリプタと新ファイル・ディスクリプタは、システム・ワーク内に格納します。
新ファイル・ディスクリプタで指定したファイル名がすでにそのディスケットにあった場合は、「File Already Exists」エラーになります。
また、拡張子を省略すると、「File Not Found」エラーになります。

• X:現ファイル・ディスクリプタと新ファイル・ディスクリプタが格納されているシステム・ワーク・エリアの先頭アドレス

システムワーク:"(現ファイル・ディスクリプタ名)"AS"(新ファイル・ディスクリプタ名)"[00]←エンド・コード=NULL

ドライブ1にある"SMPL1.BAS"のファイルのファイル名を、"SMPL2.BAS"に変更します。

 0 C000                     ORG  $C000
 1           C000   UNAME   EQU  *          --A SAMPLE OF "UNAME" ROUTINE--
 2           F014   PFBUF   EQU  $F014      BUFFER VAC.
 3 C000   20 19             BRA  EXEC
 4 C002      22     FIELDI  FCC  /"/
 5 C003      53             FCC  /S/
 6 C004      4D             FCC  /M/
 7 C005      50             FCC  /P/
 8 C006      4C             FCC  /L/
 9 C007      31             FCC  /1/
10 C008      2E             FCC  /./
11 C009      42             FCC  /B/
12 C00A      41             FCC  /A/
13 C00B      53             FCC  /S/
14 C00C      22             FCC  /"/
15 C00D      41             FCC  /A/
16 C00E      53             FCC  /S/
17 C00F      22             FCC  /"/
18 C010      53             FCC  /S/
19 C011      4D             FCC  /M/
20 C012      50             FCC  /P/
21 C013      4C             FCC  /L/
22 C014      32             FCC  /2/
23 C015      2E             FCC  /./
24 C016      42             FCC  /B/
25 C017      41             FCC  /A/
26 C018      53             FCC  /S/
27 C019      22             FCC  /"/
28 C01A      00             FCB  $00
19           C01B   EXEC    EQU  *          --- BUF. <-- FILE DISCRIPTOR ---
20 C01B   BE F014           LDX  PFBUF      X:BUFFER ADDR.
21 C01E   34 10             PSHS X
22 C020   31 8CDF           LEAY FIELDI,PCR Y:FILE DISCRIPTOR ADR(USER AREA)
23 C023   A6 A0     LOOP    LDA  ,Y+
24 C025   A7 80             STA  ,X+
25 C027   26 FA             BNE  LOOP
26                  *                       --- FILE CONVERT ---
27 C029   35 10             PULS X          X:FILE DISCRIPTOR ADR(SYSTEM)
28 C02B 103F                SWI2            CALL "UNAME" ROUTINE
29 C02D      47             FCB  $47
30 C02E      18             FCB  $18
31 C02F   39                RTS
32                          END