S1 Wiki

ファイルを削除します。

システム・ワーク内に格納されているファイル・ディスクリプタの格納されているファイルを削除します。

• X:ファイル・ディスクリプタの先頭アドレス(ファイル・ディスクリプタはシステム・ワークに格納します)

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

現在ドライブ1にセットされているディスケット上の"SAMPLE.BAS"のファイルを削除します。

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