最終更新:ID:4mHyealEgA 2017年02月03日(金) 11:31:17履歴
メモリ空間 | 7 |
---|---|
ルーチン番号 | $18 |
ディスク上にあるファイルのファイル名を変更します。
現ファイル・ディスクリプタと新ファイル・ディスクリプタは、システム・ワーク内に格納します。
新ファイル・ディスクリプタで指定したファイル名がすでにそのディスケットにあった場合は、「File Already Exists」エラーになります。
また、拡張子を省略すると、「File Not Found」エラーになります。
現ファイル・ディスクリプタと新ファイル・ディスクリプタは、システム・ワーク内に格納します。
新ファイル・ディスクリプタで指定したファイル名がすでにそのディスケットにあった場合は、「File Already Exists」エラーになります。
また、拡張子を省略すると、「File Not Found」エラーになります。
- X:現ファイル・ディスクリプタと新ファイル・ディスクリプタが格納されているシステム・ワーク・エリアの先頭アドレス
ドライブ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
コメントをかく