S1 Wiki

任意のドライブの型を調べます。

現在CONFIGで設定されているディスク・ドライブのうち、AccAに格納されているドライブ番号の型を調べます。

• AccA:ドライブ番号

• AccA:ドライブの型
  0…5インチ
  1…8インチ
  $FF…RAMディスク
  $80…使用不可

現在のディスクのドライブ1の型をチェックして、画面に表示します。

 0 C000                     ORG  $C000      --A SAMPLE OF "GETDRV" ROUTINE--
 1           C000   GETDRV  EQU  *
 2           EF9E   FILNUM  EQU  $EF9E      FILE NUMBER VEC.
 3 C000   20 0E             BRA  EXEC
 4 C002      35     MSGTBL  FCC  /5/
 5 C003      22             FCC  /"/
 6 C004      00             FCB  $00
 7 C005      38             FCC  /8/
 8 C006      22             FCC  /"/
 9 C007      00             FCB  $00
10 C008      52             FCC  /R/
11 C009      41             FCC  /A/
12 C00A      4D             FCC  /M/
13 C00B      00             FCB  $00
14 C00C      55             FCC  /U/
15 C00D      53             FCC  /S/
16 C00E      52             FCC  /R/
17 C00F      00             FCB  $00
18           C010   EXEC    EQU  *          ----- DRIVE CHRCK -----
19 C010   86 01             LDA  #$01       A:DRIVE NO
20 C012 103F                SWI2            CALL "GETDRV" ROUTINE
21 C014      47             FCB  $47
22 C015      14             FCB  $14
23                  *                       ----- MESSAGE OUT -----
24 C016   5F                CLRB            MESSAGE COUNTER
25 C017   4D                TSTA
26 C018   27 0B             BEQ  MSGOUT     IF 5" THEN MSG. OUT
27 C01A   5C                INCB
28 C01B   81 01             CMPA #$01       IF 8" THEN MSG. OUT
29 C01D   27 06             BEQ  MSGOUT
30 C01F   5C                INCB
31 C020   81 FF             CMPA #$FF       IF RAM-DISK THEN MSG. OUT
32 C022   27 01             BEQ  MSGOUT
33 C024   5C                INCB
34 C025   7F EF9E   MSGOUT  CLR  FILNUM
35 C028   30 8CD7           LEAX MSGTBL,PCR X:TOP ADDR. OF MESSAGE TABLE
36 C02B   58                ASLB
37 C02C   58                ASLB            B:B*4
38 C02D   30 85             LEAX B,X
39 C02F   86 0F             LDA  #$0F       A:MAP NO
40 C031 103F                SWI2            CALL "STOUT2" ROUTINE
41 C033      41             FCB  $47
42 C034      39             FCB  $39
43 C035   39                RTS
44                          END