S1 Wiki

ディスケットの空きエリアを調べます(DSKF)。

AccAに格納されているドライブ番号ににセットされているディスケットの空きエリアを、クラスタ単位で読み込み、AccBに格納します。

• AccA:ドライブ番号

• AccB:空きクラスタ数

ドライブ1にセットされているディスケット空きクラスタ数を画面に表示します。

 0 C000                     ORG  $C000
 1           C000   UDSKF   EQU  *          --SAMPLE OF "UDSKF" ROUTINE--
 2           EF9E   FILNUM  EQU  $EF9E      FILE NUMBER REG.
 3 C000   20 06             BRA  EXEC
 4 C002      44     MSG     FCC  /D/
 5 C003      53             FCC  /S/
 6 C004      4B             FCC  /K/
 7 C005      46             FCC  /F/
 8 C006      3D             FCC  /=/
 9 C007      00             FCB  $00
10           C008   EXEC    EQU  *
11 C008   30 8CF7           LEAX  MSG,PCR   X:TOP ADDR. OF MESSAGAGE
12 C00B   8D 16             BSR MSGOUT      MESSAGE = "DSKF="
13                  *                       --- DISK FREE AREA CHECK ---
14 C00D   86 01             LDA  #$01       A:DRIVE NO
15 C00F 103F                SWI2            CALL "UDSKF" ROUTINE
16 C011      47             FCB  $47
17 C012      2D             FCB  $2D
18 C013   4F                CLRA
19                  *                       --- FACC = ACCD ---
20 C014 103F                SWI2            CALL "UMOVFD" ROUTINE
21 C016      41             FCB  $41
22 C017      1F             FCB  $1F
23 C018   86 80             LDA  #$80       "#."
24 C01A   C6 40             LDB  #$40       "####"
25 C01C 103F                SWI2            CALL "UFOUT" ROUTINE
26 C01E      41             FCB  $41
27 C01F      22             FCB  $22
28 C020   8D 01             BSR  MSGOUT
29 C022   39                RTS
30           C023   MSGOUT  EQU  *
31 C023   7F EF9E           CLR  FILNUM
32 C026   86 0F             LDA  #$0F       A:MAP NO
33 C028 103F                SWI2            CALL "STOUT2" ROUTINE
34 C02A      41             FCB  $41
35 C02B      39             FCB  $39
36 C02C   39                RTS
37                          END