Browse Source

add attrib.x and drive.x

vampirefrog 3 weeks ago
parent
commit
510f258e4e
10 changed files with 1423 additions and 0 deletions
  1. 7
    0
      attrib.en.strings
  2. 51
    0
      attrib.lab
  3. 273
    0
      attrib.s
  4. BIN
      attrib.x
  5. 46
    0
      drive.en.strings
  6. 151
    0
      drive.lab
  7. 895
    0
      drive.s
  8. BIN
      drive.x
  9. BIN
      en/attrib.x
  10. BIN
      en/drive.x

+ 7
- 0
attrib.en.strings View File

@@ -0,0 +1,7 @@
1
+使用法:attrib [スイッチ] ファイル名	Usage: attrib [switch] filename
2
+ファイルが見つかりません	File not found
3
+読み出し専用属性設定	Read-only attribute setting
4
+読み出し専用属性解除	Release read-only attribute
5
+ファイル名が異常です	The file name is abnormal
6
+不可視属性設定	Invisible attribute setting
7
+不可視属性解除	Release invisible attribute

+ 51
- 0
attrib.lab View File

@@ -0,0 +1,51 @@
1
+*********************************************
2
+*
3
+*  Label file for attrib.x
4
+*
5
+*	DIS version 3.16
6
+*
7
+*********************************************
8
+000000	P
9
+000016	P
10
+00002c	P
11
+00002e	P
12
+000050	P
13
+00005a	P
14
+000062	P
15
+00007c	P
16
+00007e	P
17
+0000a8	P
18
+0000ba	P
19
+0000ca	P
20
+0000e8	P
21
+000118	P
22
+00013c	P
23
+000156	P
24
+00016e	P
25
+000188	P
26
+000198	P
27
+0001aa	P
28
+0001bc	P
29
+0001ce	P
30
+0001de	P
31
+0001ee	P
32
+000216	P
33
+000224	P
34
+000232	P
35
+000240	P
36
+00024a	P
37
+00024c	P
38
+000254	P
39
+00025c	DL
40
+000260	DB
41
+000261	DB
42
+000262	DU
43
+000265	DS
44
+00027c	DS
45
+000297	DS
46
+00031a	DU
47
+00031d	DU
48
+000372	DU
49
+000387	DB
50
+000390	DU
51
+0013a8	DU

+ 273
- 0
attrib.s View File

@@ -0,0 +1,273 @@
1
+;=============================================
2
+;  Filename attrib.x
3
+;
4
+;
5
+;  Base address 000000
6
+;  Exec address 000000
7
+;  Text size    00025c byte(s)
8
+;  Data size    0000be byte(s)
9
+;  Bss  size    00108e byte(s)
10
+;  44 Labels
11
+;
12
+;  Commandline dis  -b2 -h -m68000 --sp -q1 -B -M -o120 -gattrib.lab --overwrite attrib.x attrib.s
13
+;          DIS version 3.16
14
+;=============================================
15
+
16
+	.include	inc/doscall.mac
17
+	.include	inc/iocscall.mac
18
+	.include	inc/fefunc.mac
19
+
20
+	.cpu	68000
21
+
22
+	.text
23
+
24
+L000000:
25
+	lea.l	(L0013a8),sp
26
+	clr.b	(L000260)
27
+	move.b	#$ff,(L000261)
28
+	addq.l	#1,a2
29
+L000016:
30
+	bsr.w	L000240
31
+	beq.w	L000232
32
+	cmp.b	#$2d,d0			;'-'
33
+	beq.s	L00007c
34
+	cmp.b	#$2b,d0			;'+'
35
+	bne.w	L0000e8
36
+L00002c:
37
+	move.b	(a2)+,d0
38
+L00002e:
39
+	or.b	#$20,d0
40
+	cmp.b	#$73,d0			;'s'
41
+	beq.s	L00005a
42
+	cmp.b	#$72,d0			;'r'
43
+	beq.s	L000050
44
+	cmp.b	#$68,d0			;'h'
45
+	bne.w	L000232
46
+	bset.b	#$01,(L000260)
47
+	bra.s	L000062
48
+
49
+L000050:
50
+	bset.b	#$00,(L000260)
51
+	bra.s	L000062
52
+
53
+L00005a:
54
+	bset.b	#$02,(L000260)
55
+L000062:
56
+	move.b	(a2)+,d0
57
+	beq.w	L000232
58
+	cmp.b	#$2d,d0			;'-'
59
+	beq.s	L00007c
60
+	cmp.b	#$2b,d0			;'+'
61
+	beq.s	L00002c
62
+	cmp.b	#$20,d0			;' '
63
+	beq.s	L000016
64
+	bra.s	L00002e
65
+
66
+L00007c:
67
+	move.b	(a2)+,d0
68
+L00007e:
69
+	or.b	#$20,d0
70
+	cmp.b	#$73,d0			;'s'
71
+	beq.s	L0000ba
72
+	cmp.b	#$72,d0			;'r'
73
+	beq.s	L0000a8
74
+	cmp.b	#$68,d0			;'h'
75
+	bne.w	L000232
76
+	bclr.b	#$01,(L000260)
77
+	bclr.b	#$01,(L000261)
78
+	bra.s	L0000ca
79
+
80
+L0000a8:
81
+	bclr.b	#$00,(L000260)
82
+	bclr.b	#$00,(L000261)
83
+	bra.s	L0000ca
84
+
85
+L0000ba:
86
+	bclr.b	#$02,(L000260)
87
+	bclr.b	#$02,(L000261)
88
+L0000ca:
89
+	move.b	(a2)+,d0
90
+	beq.w	L000232
91
+	cmp.b	#$2d,d0			;'-'
92
+	beq.s	L00007c
93
+	cmp.b	#$2b,d0			;'+'
94
+	beq.w	L00002c
95
+	cmp.b	#$20,d0			;' '
96
+	beq.w	L000016
97
+	bra.s	L00007e
98
+
99
+L0000e8:
100
+	subq.l	#1,a2
101
+	pea.l	(L00031a)
102
+	move.l	a2,-(sp)
103
+	DOS	_NAMESTS
104
+	addq.l	#8,sp
105
+	tst.l	d0
106
+	bmi.w	L000216
107
+	lea.l	(L00031a),a0
108
+	cmpi.b	#$ff,(a0)
109
+	beq.w	L000216
110
+	move.b	($0001,a0),d0
111
+	add.b	#$41,d0			;'A'
112
+	move.b	d0,(a0)+
113
+	move.b	#$3a,(a0)+		;':'
114
+L000118:
115
+	tst.b	(a0)+
116
+	bne.s	L000118
117
+	subq.l	#1,a0
118
+	move.l	a0,(L00025c)
119
+	move.w	#$ffff,-(sp)
120
+	move.l	a2,-(sp)
121
+	pea.l	(L000372)
122
+	DOS	_FILES
123
+	lea.l	($000a,sp),sp
124
+	tst.l	d0
125
+	bmi.w	L000224
126
+L00013c:
127
+	clr.w	d7
128
+	move.b	(L000387),d7
129
+	tst.b	(L000260)
130
+	bne.s	L000156
131
+	cmpi.b	#$ff,(L000261)
132
+	beq.s	L000188
133
+L000156:
134
+	and.b	(L000261),d7
135
+	or.b	(L000260),d7
136
+	lea.l	(L000390),a0
137
+	movea.l	(L00025c),a1
138
+L00016e:
139
+	move.b	(a0)+,(a1)+
140
+	bne.s	L00016e
141
+	move.w	d7,-(sp)
142
+	pea.l	(L00031a)
143
+	DOS	_CHMOD
144
+	addq.l	#6,sp
145
+	tst.l	d0
146
+	bpl.s	L000188
147
+	move.b	(L000387),d7
148
+L000188:
149
+	clr.w	d1
150
+	move.b	#$41,d1			;'A'
151
+	btst.l	#$05,d7
152
+	bne.s	L000198
153
+	move.b	#$2d,d1			;'-'
154
+L000198:
155
+	bsr.w	L00024c
156
+	move.b	#$44,d1			;'D'
157
+	btst.l	#$04,d7
158
+	bne.s	L0001aa
159
+	move.b	#$2d,d1			;'-'
160
+L0001aa:
161
+	bsr.w	L00024c
162
+	move.b	#$56,d1			;'V'
163
+	btst.l	#$03,d7
164
+	bne.s	L0001bc
165
+	move.b	#$2d,d1			;'-'
166
+L0001bc:
167
+	bsr.w	L00024c
168
+	move.b	#$53,d1			;'S'
169
+	btst.l	#$02,d7
170
+	bne.s	L0001ce
171
+	move.b	#$2d,d1			;'-'
172
+L0001ce:
173
+	bsr.s	L00024c
174
+	move.b	#$48,d1			;'H'
175
+	btst.l	#$01,d7
176
+	bne.s	L0001de
177
+	move.b	#$2d,d1			;'-'
178
+L0001de:
179
+	bsr.s	L00024c
180
+	move.b	#$52,d1			;'R'
181
+	btst.l	#$00,d7
182
+	bne.s	L0001ee
183
+	move.b	#$2d,d1			;'-'
184
+L0001ee:
185
+	bsr.s	L00024c
186
+	moveq.l	#$09,d1
187
+	bsr.s	L00024c
188
+	lea.l	(L000390),a5
189
+	bsr.s	L000254
190
+	lea.l	(L000262),a5
191
+	bsr.s	L000254
192
+	pea.l	(L000372)
193
+	DOS	_NFILES
194
+	addq.l	#4,sp
195
+	tst.l	d0
196
+	bpl.w	L00013c
197
+	DOS	_EXIT
198
+
199
+L000216:
200
+	lea.l	(L000265),a5
201
+	bsr.s	L000254
202
+	move.w	#$0002,-(sp)
203
+	DOS	_EXIT2
204
+
205
+L000224:
206
+	lea.l	(L00027c),a5
207
+	bsr.s	L000254
208
+	move.w	#$0003,-(sp)
209
+	DOS	_EXIT2
210
+
211
+L000232:
212
+	lea.l	(L000297),a5
213
+	bsr.s	L000254
214
+	move.w	#$0001,-(sp)
215
+	DOS	_EXIT2
216
+
217
+L000240:
218
+	move.b	(a2)+,d0
219
+	beq.s	L00024a
220
+	cmp.b	#$20,d0			;' '
221
+	beq.s	L000240
222
+L00024a:
223
+	rts
224
+
225
+L00024c:
226
+	move.w	d1,-(sp)
227
+	DOS	_PUTCHAR
228
+	addq.l	#2,sp
229
+	rts
230
+
231
+L000254:
232
+	move.l	a5,-(sp)
233
+	DOS	_PRINT
234
+	addq.l	#4,sp
235
+	rts
236
+
237
+
238
+	.data
239
+
240
+L00025c:
241
+	.dc.l	L00031d
242
+L000260:
243
+	.dc.b	$00
244
+L000261:
245
+	.dc.b	$ff
246
+L000262:
247
+	.dc.b	$0d,$0a,$00
248
+L000265:
249
+	.dc.b	'ファイル名が異常です',$0d,$0a,$00
250
+L00027c:
251
+	.dc.b	'ファイルが見つかりません',$0d,$0a,$00
252
+L000297:
253
+	.dc.b	'使用法:attrib [スイッチ] ファイル名',$0d,$0a
254
+	.dc.b	$09,'+r',$09,'読み出し専用属性設定',$0d,$0a
255
+	.dc.b	$09,'-r',$09,'読み出し専用属性解除',$0d,$0a
256
+	.dc.b	$09,'+h',$09,'不可視属性設定',$0d,$0a
257
+	.dc.b	$09,'-h',$09,'不可視属性解除',$0d,$0a,$00
258
+
259
+	.bss
260
+
261
+L00031a:
262
+	.ds.b	3
263
+L00031d:
264
+	.ds.b	85
265
+L000372:
266
+	.ds.b	21
267
+L000387:
268
+	.ds.b	9
269
+L000390:
270
+	.ds.b	4120
271
+L0013a8:
272
+
273
+	.end	L000000

BIN
attrib.x View File


+ 46
- 0
drive.en.strings View File

@@ -0,0 +1,46 @@
1
+使用法:drive[スイッチ][ドライブ名1][ドライブ名2]	Usage: drive [switch] [drive name 1] [drive name 2]
2
+ボリュームラベルを表示する	Display volume label
3
+すべてのドライブ名を初期状態に戻す	Reset all drive names to initial state
4
+その他のタイプ	Other types
5
+ボリュームラベルを表示する	Display volume label
6
+すべてのドライブ名を初期状態に戻す	Reset all drive names to initial state
7
+/dのスイッチを付けた場合ドライブ名は指定しない	If the /d switch is attached, the drive name is not specified
8
+ドライブ名の指定が無いと全ドライブのタイプを表示する	If no drive name is specified, all drive types are displayed.
9
+ドライブ名1のみ指定するとステ-タスを表示する	If only drive name 1 is specified, the status will be displayed.
10
+ドライブ名1,2を指定するとドライブ名を交換する	Exchange drive names when drive names 1 and 2 are specified
11
+drive: ドライブ指定が無効です	drive: drive specification is invalid
12
+このOSでは使用できません	Cannot be used with this OS
13
+を入れ替えました	Replaced
14
+:に切り替えました	Switched to:
15
+すべてのドライブ名を初期状態に戻しました	All drive names have been reset
16
+ハードディスク	hard disk
17
+光磁気ディスク	Magneto-optical disk
18
+CDROM	CD ROM
19
+DATドライブ	DAT drive
20
+2HC(1MB)	2HC (1MB)
21
+2DD(640KB)	2DD (640KB)
22
+2DD(720KB)	2DD (720KB)
23
+2HD(1.44MB)	2HD (1.44MB)
24
+: その他のタイプ 	: Other types
25
+ユニット番号・・・・	Unit number...
26
+: ドライブの装置情報が存在しません	Device information for drive: does not exist
27
+: 仮想ドライブです	: Virtual drive
28
+1セクタあたりのバイト数・・・・・・・・・・・・・・・・	Number of bytes per sector .................
29
+1クラスタあたりのセクタ数・・・・・・・・・・・・・・	Number of sectors per cluster...............
30
+総クラスタ数・・・・・・・・・・・・・・・・・・・・・・・・・・・・	Total number of clusters....................
31
+ファイルアロケーションの先頭セクタ番号・・	First sector number of file allocation......
32
+ファイルアロケーションのセクタ数・・・・・・・・	Number of file allocation sectors...........
33
+ルートディレクトリの先頭セクタ番号・・・・・・	Start sector number of the root directory...
34
+ルートディレクトリの最大個数・・・・・・・・・・・・	Maximum number of root directories..........
35
+データ領域の先頭セクタ番号・・・・・・・・・・・・・・	First sector number of data area............
36
+アクセス・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・	Access......................................
37
+イジェクト・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・	Eject.......................................
38
+書き込み・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・	Writing.....................................
39
+ボリュ-ムラベルは	The volume label is
40
+カレント	current
41
+:をドライブ	Drive:
42
+ドライブ	drive
43
+:と	:When
44
+です	is
45
+不可	  No
46
+  可	 Yes

+ 151
- 0
drive.lab View File

@@ -0,0 +1,151 @@
1
+*********************************************
2
+*
3
+*  Label file for drive.x
4
+*
5
+*	DIS version 3.16
6
+*
7
+*********************************************
8
+000000	P	Start
9
+000040	P
10
+000048	P
11
+000064	P
12
+000078	P
13
+0000cc	P
14
+000114	P
15
+000198	P
16
+0001d0	P
17
+0001d2	P
18
+000222	P
19
+000228	P
20
+00024a	P
21
+00025c	P
22
+000272	P
23
+000284	P
24
+0002a2	P
25
+0002b4	P
26
+0002b6	P
27
+0002c8	P
28
+000346	P
29
+0003de	P
30
+0004f8	P
31
+000516	P
32
+000528	P
33
+00052a	P
34
+00053a	P
35
+00054e	P
36
+00056e	P
37
+00057e	P
38
+0005ae	P
39
+0005c4	P
40
+0005ca	P
41
+0005d0	P
42
+0005e6	P
43
+0005fe	P
44
+000606	P
45
+00060a	P
46
+000616	P
47
+00061c	P
48
+000634	P
49
+000646	P
50
+00064a	P
51
+00064c	P
52
+000654	P
53
+000662	P
54
+000668	P
55
+000674	P
56
+000694	P
57
+000698	P
58
+0006a8	P
59
+0006aa	P
60
+0006c2	P
61
+0006c6	P
62
+0006d0	P
63
+0006d6	P
64
+0006e2	P
65
+0006f4	P
66
+0006f8	P
67
+0006fc	P
68
+00070c	P
69
+000710	P
70
+000716	P
71
+000724	P
72
+00072a	P
73
+00073a	P
74
+000740	P
75
+000756	P
76
+00075c	P
77
+00077a	P
78
+00077e	P
79
+000786	DU
80
+0007b2	DS
81
+0007b9	DS
82
+00084f	DS
83
+0008a8	DU
84
+0008ab	DS
85
+000947	DS
86
+00095c	DS
87
+000962	DS
88
+000982	DS
89
+00099f	DS
90
+0009a2	DS
91
+0009ac	DS
92
+0009c0	DS
93
+0009ca	DS
94
+0009d7	DS
95
+0009eb	DS
96
+000a16	DS
97
+000a1a	DS
98
+000a2e	DS
99
+000a42	DS
100
+000a54	DS
101
+000a6c	DS
102
+000a84	DS
103
+000a98	DS
104
+000ab0	DS
105
+000ac4	DS
106
+000adc	DS
107
+000af4	DS
108
+000b0c	DS
109
+000b20	DS
110
+000b34	DS
111
+000b59	DS
112
+000b6e	DS
113
+000b97	DS
114
+000bc0	DS
115
+000be9	DS
116
+000c12	DS
117
+000c3b	DS
118
+000c64	DS
119
+000c8d	DS
120
+000cb6	DS
121
+000ce0	DS
122
+000d0a	DS
123
+000d34	DS
124
+000d3b	DS
125
+000d3f	DU
126
+000d42	DL
127
+000d46	DU
128
+000e5e	DU
129
+000f76	DB
130
+000f77	DB
131
+000f78	DW
132
+000f7a	DB
133
+000f7c	DW
134
+000f7f	DB
135
+000f80	DW
136
+000f82	DW
137
+000f84	DW
138
+000f86	DW
139
+000f8c	DB
140
+000fda	DU
141
+000fdf	DU
142
+000fe2	DU
143
+000fe4	DB
144
+000fe6	DU
145
+001004	DU
146
+001022	DB
147
+001023	DB
148
+001024	DB
149
+001026	DW
150
+00142a	DU
151
+00142c	DU	End

+ 895
- 0
drive.s View File

@@ -0,0 +1,895 @@
1
+;=============================================
2
+;  Filename drive.x
3
+;
4
+;
5
+;  Base address 000000
6
+;  Exec address 000000
7
+;  Text size    000786 byte(s)
8
+;  Data size    0005bc byte(s)
9
+;  Bss  size    0006ea byte(s)
10
+;  144 Labels
11
+;
12
+;  Commandline dis  -b2 -h -m68000 --sp -q1 -B -M -o120 -gdrive.lab --overwrite drive.x drive.s
13
+;          DIS version 3.16
14
+;=============================================
15
+
16
+	.include	inc/doscall.mac
17
+	.include	inc/iocscall.mac
18
+	.include	inc/fefunc.mac
19
+
20
+	.cpu	68000
21
+
22
+	.text
23
+
24
+Start:
25
+	lea.l	(L00142a),sp
26
+	clr.b	(L001022)
27
+	clr.b	(L001023)
28
+	DOS	_VERNUM
29
+	cmp.w	#$0332,d0
30
+	bcc.w	L00056e
31
+	movea.l	(Start-$0000e0),a0
32
+	addq.l	#1,a0
33
+	lea.l	(L000d46),a1
34
+	lea.l	(L000e5e),a2
35
+	bsr.w	L000616
36
+	move.l	d0,(L000d42)
37
+	lea.l	(L000e5e),a0
38
+L000040:
39
+	tst.b	(a0)
40
+	beq.s	L000078
41
+	bsr.w	L0006d0
42
+L000048:
43
+	move.b	(a0)+,d0
44
+	beq.s	L000040
45
+	cmp.b	#$64,d0			;'d'
46
+	beq.s	L000064
47
+	cmp.b	#$76,d0			;'v'
48
+	bne.w	L00053a
49
+	move.b	#-$01,(L001023)
50
+	bra.s	L000048
51
+
52
+L000064:
53
+	tst.l	(L000d42)
54
+	bne.w	L00053a
55
+	move.b	#-$01,(L001022)
56
+	bra.s	L000048
57
+
58
+L000078:
59
+	DOS	_CURDRV
60
+	move.w	d0,-(sp)
61
+	DOS	_CHGDRV
62
+	addq.l	#2,sp
63
+	move.w	d0,d4
64
+	clr.l	d5
65
+	move.l	(L000d42),d0
66
+	bne.s	L0000cc
67
+	tst.b	(L001022)
68
+	beq.w	L0001d0
69
+	DOS	_VERNUM
70
+	cmp.w	#$0162,d0
71
+	bcs.w	L00053a
72
+	DOS	_CURDRV
73
+	move.w	d0,d2
74
+	move.w	#$ffff,-(sp)
75
+	move.w	#$ffff,-(sp)
76
+	DOS	_DRVXCHG
77
+	addq.l	#4,sp
78
+	move.w	d0,d1
79
+	tst.l	d0
80
+	bmi.w	L00053a
81
+	pea.l	(L0009eb)
82
+	DOS	_PRINT
83
+	addq.l	#4,sp
84
+	cmp.w	d1,d2
85
+	beq.w	L0001d0
86
+	bra.w	L000198
87
+
88
+L0000cc:
89
+	cmp.l	#$00000002,d0
90
+	bhi.w	L00053a
91
+	lea.l	(L000d46),a0
92
+	cmpi.b	#$3a,($0001,a0)		;':'
93
+	bne.w	L00053a
94
+	tst.b	($0002,a0)
95
+	bne.w	L00053a
96
+	move.b	(a0),d0
97
+	or.b	#$20,d0
98
+	sub.b	#$61,d0			;'a'
99
+	move.b	d0,d2
100
+	cmp.w	d4,d0
101
+	bhi.w	L00052a
102
+	and.l	#$000000ff,d2
103
+	cmpi.l	#$00000001,(L000d42)
104
+	beq.w	L0001d2
105
+L000114:
106
+	tst.b	(a0)+
107
+	bne.s	L000114
108
+	cmpi.b	#$3a,($0001,a0)		;':'
109
+	bne.w	L00053a
110
+	tst.b	($0002,a0)
111
+	bne.w	L00053a
112
+	move.b	(a0),d0
113
+	or.b	#$20,d0
114
+	sub.b	#$61,d0			;'a'
115
+	move.b	d0,d1
116
+	cmp.w	d4,d0
117
+	bhi.w	L00052a
118
+	and.l	#$000000ff,d1
119
+	cmp.w	d1,d2
120
+	beq.w	L00052a
121
+	move.w	d1,-(sp)
122
+	addq.w	#1,(sp)
123
+	move.w	d2,-(sp)
124
+	addq.w	#1,(sp)
125
+	DOS	_DRVXCHG
126
+	addq.l	#4,sp
127
+	DOS	_FFLUSH
128
+	pea.l	(L0009a2)
129
+	DOS	_PRINT
130
+	addq.l	#4,sp
131
+	move.w	d2,-(sp)
132
+	addi.w	#$0041,(sp)
133
+	DOS	_PUTCHAR
134
+	addq.l	#2,sp
135
+	pea.l	(L00099f)
136
+	DOS	_PRINT
137
+	addq.l	#4,sp
138
+	move.w	d1,-(sp)
139
+	addi.w	#$0041,(sp)
140
+	DOS	_PUTCHAR
141
+	addq.l	#2,sp
142
+	pea.l	(L0009ac)
143
+	DOS	_PRINT
144
+	addq.l	#4,sp
145
+	DOS	_CURDRV
146
+	cmp.w	d2,d0
147
+	beq.s	L000198
148
+	cmp.w	d1,d0
149
+	bne.s	L0001d0
150
+	move.w	d1,d0
151
+	move.w	d2,d1
152
+	move.w	d0,d2
153
+L000198:
154
+	move.w	d1,-(sp)
155
+	DOS	_CHGDRV
156
+	addq.l	#2,sp
157
+	pea.l	(L0009c0)
158
+	DOS	_PRINT
159
+	addq.l	#4,sp
160
+	move.w	d2,-(sp)
161
+	addi.w	#$0041,(sp)
162
+	DOS	_PUTCHAR
163
+	addq.l	#2,sp
164
+	pea.l	(L0009ca)
165
+	DOS	_PRINT
166
+	addq.l	#4,sp
167
+	move.w	d1,-(sp)
168
+	addi.w	#$0041,(sp)
169
+	DOS	_PUTCHAR
170
+	addq.l	#2,sp
171
+	pea.l	(L0009d7)
172
+	DOS	_PRINT
173
+	addq.l	#4,sp
174
+L0001d0:
175
+	clr.w	d2
176
+L0001d2:
177
+	move.w	d2,d0
178
+	addq.w	#1,d2
179
+	cmp.w	d4,d2
180
+	bhi.w	L0004f8
181
+	lea.l	(L000b59),a0
182
+	bsr.w	L00075c
183
+	tst.l	d0
184
+	bne.s	L000228
185
+	pea.l	(L000f76)
186
+	move.w	d2,-(sp)
187
+	DOS	_GETDPB
188
+	addq.l	#6,sp
189
+	tst.l	d0
190
+	seq.b	(L001024)
191
+	bpl.w	L000284
192
+	pea.l	(L001026,pc)
193
+	clr.w	-(sp)
194
+	move.w	d2,-(sp)
195
+	move.w	#$000d,-(sp)
196
+	DOS	_IOCTRL
197
+	tst.l	d0
198
+	bmi.s	L000222
199
+	move.w	(L001026,pc),d1
200
+	moveq.l	#$00,d3
201
+	move.b	d2,d0
202
+	subq.w	#1,d0
203
+	bra.w	L0002c8
204
+
205
+L000222:
206
+	lea.l	(L000b34),a0
207
+L000228:
208
+	tst.l	d5
209
+	beq.s	L00025c
210
+	cmpa.l	d5,a0
211
+	beq.s	L000272
212
+	move.w	d2,d0
213
+	sub.w	d6,d0
214
+	cmp.w	#$0002,d0
215
+	bcs.s	L00025c
216
+	cmp.w	#$0003,d0
217
+	bcs.s	L00024a
218
+	pea.l	(L000a16)
219
+	DOS	_PRINT
220
+	addq.l	#4,sp
221
+L00024a:
222
+	move.w	d2,d0
223
+	add.w	#$003f,d0
224
+	move.w	d0,-(sp)
225
+	DOS	_PUTCHAR
226
+	addq.l	#2,sp
227
+	move.l	d5,-(sp)
228
+	DOS	_PRINT
229
+	addq.l	#4,sp
230
+L00025c:
231
+	move.l	a0,d5
232
+	move.w	d2,d6
233
+	move.w	d2,d0
234
+	add.w	#$0040,d0
235
+	move.w	d0,-(sp)
236
+	DOS	_PUTCHAR
237
+	addq.l	#2,sp
238
+	move.l	a0,-(sp)
239
+	DOS	_PRINT
240
+	addq.l	#4,sp
241
+L000272:
242
+	cmpi.l	#$00000001,(L000d42)
243
+	bne.w	L0001d2
244
+	bra.w	L000528
245
+
246
+L000284:
247
+	tst.l	d5
248
+	beq.s	L0002b6
249
+	move.w	d2,d0
250
+	sub.w	d6,d0
251
+	cmp.w	#$0002,d0
252
+	bcs.s	L0002b4
253
+	cmp.w	#$0003,d0
254
+	bcs.s	L0002a2
255
+	pea.l	(L000a16)
256
+	DOS	_PRINT
257
+	addq.l	#4,sp
258
+L0002a2:
259
+	move.w	d2,d0
260
+	add.w	#$003f,d0
261
+	move.w	d0,-(sp)
262
+	DOS	_PUTCHAR
263
+	addq.l	#2,sp
264
+	move.l	d5,-(sp)
265
+	DOS	_PRINT
266
+	addq.l	#4,sp
267
+L0002b4:
268
+	clr.l	d5
269
+L0002b6:
270
+	move.b	(L000f76),d0
271
+	move.b	(L000f8c),d1
272
+	move.b	(L000f77),d3
273
+L0002c8:
274
+	lea.l	(L000a1a),a0
275
+	cmp.b	#$fe,d1
276
+	beq.s	L000346
277
+	lea.l	(L000a2e),a0
278
+	cmp.b	#$f9,d1
279
+	beq.s	L000346
280
+	lea.l	(L000a42),a0
281
+	cmp.b	#$f8,d1
282
+	beq.s	L000346
283
+	lea.l	(L000a54),a0
284
+	cmp.b	#$f7,d1
285
+	beq.s	L000346
286
+	lea.l	(L000a6c),a0
287
+	cmp.b	#$f6,d1
288
+	beq.s	L000346
289
+	lea.l	(L000ab0,pc),a0
290
+	cmp.b	#$fd,d1
291
+	beq.s	L000346
292
+	lea.l	(L000ac4,pc),a0
293
+	cmp.b	#$fb,d1
294
+	beq.s	L000346
295
+	lea.l	(L000adc,pc),a0
296
+	cmp.b	#$fc,d1
297
+	beq.s	L000346
298
+	lea.l	(L000af4,pc),a0
299
+	cmp.b	#$fa,d1
300
+	beq.s	L000346
301
+	lea.l	(L000a84,pc),a0
302
+	cmpi.b	#$f5,d1
303
+	beq.s	L000346
304
+	lea.l	(L000a98,pc),a0
305
+	cmpi.b	#$f4,d1
306
+	beq.s	L000346
307
+	lea.l	(L000b0c),a0
308
+L000346:
309
+	add.b	#$41,d0			;'A'
310
+	move.w	d0,-(sp)
311
+	DOS	_PUTCHAR
312
+	addq.l	#2,sp
313
+	move.l	a0,-(sp)
314
+	DOS	_PRINT
315
+	addq.l	#4,sp
316
+	pea.l	(L000b20)
317
+	DOS	_PRINT
318
+	addq.l	#4,sp
319
+	clr.l	d0
320
+	move.b	d3,d0
321
+	lea.l	(L000fda),a0
322
+	bsr.w	L000716
323
+	clr.b	(L000fe4)
324
+	pea.l	(L000fe2)
325
+	DOS	_PRINT
326
+	addq.l	#4,sp
327
+	tst.b	(L001023)
328
+	beq.s	L0003de
329
+	move.w	#$ffff,-(sp)
330
+	move.w	#$0010,-(sp)
331
+	DOS	_CONCTRL
332
+	addq.l	#4,sp
333
+	cmp.b	#$01,d0
334
+	bhi.s	L0003de
335
+	move.w	d2,d0
336
+	and.w	#$00ff,d0
337
+	move.w	d0,-(sp)
338
+	DOS	_DRVCTRL
339
+	addq.l	#2,sp
340
+	and.l	#$00000004,d0
341
+	bne.s	L0003de
342
+	lea.l	(L000fda),a0
343
+	lea.l	(L0007b2),a1
344
+	bsr.w	L0006c2
345
+	move.b	d2,d0
346
+	add.b	#$40,d0			;'@'
347
+	move.b	d0,(a0)
348
+	move.w	#$0008,-(sp)
349
+	move.l	a0,-(sp)
350
+	pea.l	(L000fe6)
351
+	DOS	_FILES
352
+	lea.l	($000a,sp),sp
353
+	tst.l	d0
354
+	bmi.s	L0003de
355
+	bsr.w	L0005d0
356
+L0003de:
357
+	pea.l	(L000d3f)
358
+	DOS	_PRINT
359
+	addq.l	#4,sp
360
+	cmpi.l	#$00000001,(L000d42)
361
+	bne.w	L0001d2
362
+	tst.b	(L001024)
363
+	beq.w	L000528
364
+	lea.l	(L000b6e),a0
365
+	move.w	(L000f78),d0
366
+	and.l	#$0000ffff,d0
367
+	bsr.w	L00057e
368
+	lea.l	(L000b97),a0
369
+	move.b	(L000f7a),d0
370
+	and.l	#$000000ff,d0
371
+	addq.l	#1,d0
372
+	bsr.w	L00057e
373
+	lea.l	(L000bc0),a0
374
+	move.w	(L000f84),d0
375
+	and.l	#$0000ffff,d0
376
+	subq.l	#1,d0
377
+	bsr.w	L00057e
378
+	lea.l	(L000be9),a0
379
+	move.w	(L000f7c),d0
380
+	and.l	#$0000ffff,d0
381
+	bsr.w	L00057e
382
+	lea.l	(L000c12),a0
383
+	move.b	(L000f7f),d0
384
+	and.l	#$000000ff,d0
385
+	bsr.w	L00057e
386
+	lea.l	(L000c3b),a0
387
+	move.w	(L000f86),d0
388
+	and.l	#$0000ffff,d0
389
+	bsr.w	L00057e
390
+	lea.l	(L000c64),a0
391
+	move.w	(L000f80),d0
392
+	and.l	#$0000ffff,d0
393
+	bsr.w	L00057e
394
+	lea.l	(L000c8d),a0
395
+	move.w	(L000f82),d0
396
+	and.l	#$0000ffff,d0
397
+	bsr.w	L00057e
398
+	move.w	d2,d0
399
+	and.w	#$00ff,d0
400
+	move.w	d0,-(sp)
401
+	DOS	_DRVCTRL
402
+	addq.l	#2,sp
403
+	move.l	d0,d1
404
+	lea.l	(L000cb6),a0
405
+	and.l	#$00000004,d0
406
+	bsr.w	L0005ae
407
+	lea.l	(L000ce0),a0
408
+	move.l	d1,d0
409
+	and.l	#$00000040,d0
410
+	bsr.w	L0005ae
411
+	lea.l	(L000d0a),a0
412
+	move.l	d1,d0
413
+	and.l	#$0000000c,d0
414
+	bsr.w	L0005ae
415
+	bra.s	L000528
416
+
417
+L0004f8:
418
+	tst.l	d5
419
+	beq.s	L000528
420
+	move.w	d2,d0
421
+	sub.w	d6,d0
422
+	cmp.w	#$0002,d0
423
+	bcs.s	L000528
424
+	cmp.w	#$0003,d0
425
+	bcs.s	L000516
426
+	pea.l	(L000a16)
427
+	DOS	_PRINT
428
+	addq.l	#4,sp
429
+L000516:
430
+	move.w	d2,d0
431
+	add.w	#$003f,d0
432
+	move.w	d0,-(sp)
433
+	DOS	_PUTCHAR
434
+	addq.l	#2,sp
435
+	move.l	d5,-(sp)
436
+	DOS	_PRINT
437
+	addq.l	#4,sp
438
+L000528:
439
+	DOS	_EXIT
440
+
441
+L00052a:
442
+	pea.l	(L000962)
443
+	DOS	_PRINT
444
+	addq.l	#4,sp
445
+	move.w	#$0002,-(sp)
446
+	DOS	_EXIT2
447
+
448
+L00053a:
449
+	lea.l	(L0008a8),a0
450
+	DOS	_VERNUM
451
+	cmp.w	#$0162,d0
452
+	bcs.s	L00054e
453
+	lea.l	(L00084f),a0
454
+L00054e:
455
+	pea.l	(L0007b9)
456
+	DOS	_PRINT
457
+	addq.l	#4,sp
458
+	move.l	a0,-(sp)
459
+	DOS	_PRINT
460
+	addq.l	#4,sp
461
+	pea.l	(L0008ab)
462
+	DOS	_PRINT
463
+	addq.l	#4,sp
464
+	move.w	#$0001,-(sp)
465
+	DOS	_EXIT2
466
+
467
+L00056e:
468
+	pea.l	(L000982)
469
+	DOS	_PRINT
470
+	addq.l	#4,sp
471
+	move.w	#$0002,-(sp)
472
+	DOS	_EXIT2
473
+
474
+L00057e:
475
+	move.l	d0,-(sp)
476
+	move.l	a0,-(sp)
477
+	DOS	_PRINT
478
+	addq.l	#4,sp
479
+	move.l	(sp)+,d0
480
+	lea.l	(L000fda),a0
481
+	bsr.w	L000716
482
+	clr.b	(L000fe4)
483
+	pea.l	(L000fdf)
484
+	DOS	_PRINT
485
+	addq.l	#4,sp
486
+	pea.l	(L000d3f)
487
+	DOS	_PRINT
488
+	addq.l	#4,sp
489
+	rts
490
+
491
+L0005ae:
492
+	move.l	d0,-(sp)
493
+	move.l	a0,-(sp)
494
+	DOS	_PRINT
495
+	addq.l	#4,sp
496
+	move.l	(sp)+,d0
497
+	tst.b	d0
498
+	beq.s	L0005c4
499
+	pea.l	(L000d3b)
500
+	bra.s	L0005ca
501
+
502
+L0005c4:
503
+	pea.l	(L000d34)
504
+L0005ca:
505
+	DOS	_PRINT
506
+	addq.l	#4,sp
507
+	rts
508
+
509
+L0005d0:
510
+	pea.l	(L000947)
511
+	DOS	_PRINT
512
+	addq.l	#4,sp
513
+	move.w	#$0015,d1
514
+	lea.l	(L001004),a0
515
+	clr.w	d0
516
+L0005e6:
517
+	tst.w	d1
518
+	beq.s	L00060a
519
+	move.b	(a0)+,d0
520
+	beq.s	L000606
521
+	cmp.b	#$2e,d0			;'.'
522
+	beq.s	L0005e6
523
+	move.w	d0,-(sp)
524
+	DOS	_PUTCHAR
525
+	addq.l	#2,sp
526
+	subq.w	#1,d1
527
+	bra.s	L0005e6
528
+
529
+L0005fe:
530
+	move.w	#$0020,-(sp)		;' '
531
+	DOS	_PUTCHAR
532
+	addq.l	#2,sp
533
+L000606:
534
+	dbra.w	d1,L0005fe
535
+L00060a:
536
+	pea.l	(L00095c)
537
+	DOS	_PRINT
538
+	addq.l	#4,sp
539
+	rts
540
+
541
+L000616:
542
+	movem.l	d1/a0-a2,-(sp)
543
+	clr.l	d1
544
+L00061c:
545
+	bsr.w	L0006a8
546
+	adda.l	d0,a0
547
+	tst.b	(a0)
548
+	beq.s	L000698
549
+	move.b	(a0)+,d0
550
+	cmp.b	#$2d,d0			;'-'
551
+	beq.s	L000634
552
+	cmp.b	#$2f,d0			;'/'
553
+	bne.s	L00064a
554
+L000634:
555
+	move.b	(a0)+,d0
556
+	beq.s	L000698
557
+	cmp.b	#$09,d0
558
+	beq.s	L000646
559
+	cmp.b	#$20,d0			;' '
560
+	beq.s	L000646
561
+	move.b	d0,(a2)+
562
+L000646:
563
+	clr.b	(a2)+
564
+	bra.s	L00061c
565
+
566
+L00064a:
567
+	addq.l	#1,d1
568
+L00064c:
569
+	move.b	d0,(a1)+
570
+	cmp.b	#$22,d0			;'"'
571
+	bne.s	L000662
572
+L000654:
573
+	move.b	(a0)+,d0
574
+	beq.s	L000698
575
+	move.b	d0,(a1)+
576
+	cmp.b	#$22,d0			;'"'
577
+	bne.s	L000654
578
+	bra.s	L000674
579
+
580
+L000662:
581
+	cmp.b	#$27,d0			;'''
582
+	bne.s	L000674
583
+L000668:
584
+	move.b	(a0)+,d0
585
+	beq.s	L000698
586
+	move.b	d0,(a1)+
587
+	cmp.b	#$27,d0			;'''
588
+	bne.s	L000668
589
+L000674:
590
+	move.b	(a0),d0
591
+	beq.s	L000698
592
+	cmp.b	#$2f,d0			;'/'
593
+	beq.s	L000694
594
+	cmp.b	#$2d,d0			;'-'
595
+	beq.s	L000694
596
+	addq.l	#1,a0
597
+	cmp.b	#$09,d0
598
+	beq.s	L000694
599
+	cmp.b	#$20,d0			;' '
600
+	beq.s	L000694
601
+	bra.s	L00064c
602
+
603
+L000694:
604
+	clr.b	(a1)+
605
+	bra.s	L00061c
606
+
607
+L000698:
608
+	clr.b	(a1)+
609
+	clr.b	(a1)
610
+	clr.b	(a2)+
611
+	clr.b	(a2)
612
+	move.l	d1,d0
613
+	movem.l	(sp)+,d1/a0-a2
614
+	rts
615
+
616
+L0006a8:
617
+	move.l	a0,-(sp)
618
+L0006aa:
619
+	move.b	(a0)+,d0
620
+	cmpi.b	#$20,d0			;' '
621
+	beq.s	L0006aa
622
+	cmpi.b	#$09,d0
623
+	beq.s	L0006aa
624
+	move.l	a0,d0
625
+	movea.l	(sp)+,a0
626
+	sub.l	a0,d0
627
+	subq.l	#1,d0
628
+	rts
629
+
630
+L0006c2:
631
+	movem.l	a0-a1,-(sp)
632
+L0006c6:
633
+	move.b	(a1)+,(a0)+
634
+	bne.s	L0006c6
635
+	movem.l	(sp)+,a0-a1
636
+	rts
637
+
638
+L0006d0:
639
+	movem.l	d0-d1/a0,-(sp)
640
+	clr.b	d1
641
+L0006d6:
642
+	move.b	(a0),d0
643
+	beq.s	L000710
644
+	tst.b	d1
645
+	beq.s	L0006e2
646
+	clr.b	d1
647
+	bra.s	L0006f8
648
+
649
+L0006e2:
650
+	cmp.b	#$80,d0
651
+	bcs.s	L0006fc
652
+	cmp.b	#$a0,d0
653
+	bcs.s	L0006f4
654
+	cmp.b	#$e0,d0
655
+	bcs.s	L0006fc
656
+L0006f4:
657
+	move.b	#$01,d1
658
+L0006f8:
659
+	addq.l	#1,a0
660
+	bra.s	L0006d6
661
+
662
+L0006fc:
663
+	cmpi.b	#$41,d0			;'A'
664
+	bcs.s	L00070c
665
+	cmpi.b	#$5a,d0			;'Z'
666
+	bhi.s	L00070c
667
+	add.b	#$20,d0			;' '
668
+L00070c:
669
+	move.b	d0,(a0)+
670
+	bra.s	L0006d6
671
+
672
+L000710:
673
+	movem.l	(sp)+,d0-d1/a0
674
+	rts
675
+
676
+L000716:
677
+	movem.l	d0-d2/a0-a1,-(sp)
678
+	movem.l	a0,-(sp)
679
+	lea.l	(L000786),a1
680
+L000724:
681
+	clr.b	d2
682
+	move.l	(a1)+,d1
683
+	beq.s	L00073a
684
+L00072a:
685
+	addq.b	#1,d2
686
+	sub.l	d1,d0
687
+	bcc.s	L00072a
688
+	add.l	d1,d0
689
+	add.b	#$2f,d2			;'/'
690
+	move.b	d2,(a0)+
691
+	bra.s	L000724
692
+
693
+L00073a:
694
+	clr.b	(a0)
695
+	movem.l	(sp)+,a0
696
+L000740:
697
+	move.b	(a0)+,d0
698
+	beq.s	L000756
699
+	cmp.b	#$30,d0			;'0'
700
+	bne.s	L000756
701
+	tst.b	(a0)
702
+	beq.s	L000756
703
+	move.b	#$20,(-$0001,a0)	;' '
704
+	bra.s	L000740
705
+
706
+L000756:
707
+	movem.l	(sp)+,d0-d2/a0-a1
708
+	rts
709
+
710
+L00075c:
711
+	movem.l	d1,-(sp)
712
+	and.l	#$000000ff,d0
713
+	move.l	d0,d1
714
+	DOS	_CURDRV
715
+	move.w	d0,-(sp)
716
+	move.w	d1,-(sp)
717
+	DOS	_CHGDRV
718
+	addq.l	#2,sp
719
+	cmp.w	d1,d0
720
+	bhi.s	L00077a
721
+	moveq.l	#$ff,d0
722
+	bra.s	L00077e
723
+
724
+L00077a:
725
+	DOS	_CHGDRV
726
+	clr.l	d0
727
+L00077e:
728
+	addq.l	#2,sp
729
+	movem.l	(sp)+,d1
730
+	rts
731
+
732
+
733
+	.data
734
+
735
+L000786:
736
+	.dc.b	$3b,$9a,$ca,$00,$05,$f5,$e1,$00
737
+	.dc.b	$00,$98,$96,$80,$00,$0f,$42,$40
738
+	.dc.b	$00,$01,$86,$a0,$00,$00,$27,$10
739
+	.dc.b	$00,$00,$03,$e8,$00,$00,$00,$64
740
+	.dc.b	$00,$00,$00,$0a,$00,$00,$00,$01
741
+	.dc.b	$00,$00,$00,$00
742
+L0007b2:
743
+	.dc.b	'A:\*.*',$00
744
+L0007b9:
745
+	.dc.b	'X68k Drive v2.20 Copyright 1989,90,91,92,93 SHARP/Hudson',$0d,$0a
746
+	.dc.b	'使用法:drive[スイッチ][ドライブ名1][ドライブ名2]',$0d,$0a
747
+	.dc.b	$09,'/v',$09,'ボリュームラベルを表示する',$0d,$0a,$00
748
+L00084f:
749
+	.dc.b	$09,'/d',$09,'すべてのドライブ名を初期状態に戻す',$0d,$0a
750
+	.dc.b	$0d,$0a
751
+	.dc.b	$09,'/dのスイッチを付けた場合ドライブ名は指定しない'
752
+L0008a8:
753
+	.dc.b	$0d,$0a,$00
754
+L0008ab:
755
+	.dc.b	$09,'ドライブ名の指定が無いと全ドライブのタイプを表示する',$0d,$0a
756
+	.dc.b	$09,'ドライブ名1のみ指定するとステ-タスを表示する',$0d,$0a
757
+	.dc.b	$09,'ドライブ名1,2を指定するとドライブ名を交換する',$0d,$0a,$00
758
+L000947:
759
+	.dc.b	' ボリュ-ムラベルは ',$00
760
+L00095c:
761
+	.dc.b	' です',$00
762
+L000962:
763
+	.dc.b	'drive: ドライブ指定が無効です',$0d,$0a,$00
764
+L000982:
765
+	.dc.b	'このOSでは使用できません',$0d,$0a,$00
766
+L00099f:
767
+	.dc.b	':と'
768
+L0009a2:
769
+	.dc.b	'ドライブ ',$00
770
+L0009ac:
771
+	.dc.b	':を入れ替えました',$0d,$0a,$00
772
+L0009c0:
773
+	.dc.b	'カレント ',$00
774
+L0009ca:
775
+	.dc.b	':をドライブ ',$00
776
+L0009d7:
777
+	.dc.b	':に切り替えました',$0d,$0a,$00
778
+L0009eb:
779
+	.dc.b	'すべてのドライブ名を初期状態に戻しました',$0d,$0a,$00
780
+L000a16:
781
+	.dc.b	'|',$0d,$0a,$00
782
+L000a1a:
783
+	.dc.b	': 2HD(1MB)',$09,$00
784
+L000a2e:
785
+	.dc.b	': RAM DISK',$09,$00
786
+L000a42:
787
+	.dc.b	': ハードディスク',$09,$00
788
+L000a54:
789
+	.dc.b	': ハードディスク(SCSI)',$09,$00
790
+L000a6c:
791
+	.dc.b	': 光磁気ディスク(SCSI)',$09,$00
792
+L000a84:
793
+	.dc.b	': CDROM(SCSI)',$09,$00
794
+L000a98:
795
+	.dc.b	': DATドライブ(SCSI)',$09,$00
796
+L000ab0:
797
+	.dc.b	': 2HC(1MB)',$09,$00
798
+L000ac4:
799
+	.dc.b	': 2DD(640KB)',$09,$00
800
+L000adc:
801
+	.dc.b	': 2DD(720KB)',$09,$00
802
+L000af4:
803
+	.dc.b	': 2HD(1.44MB)',$00
804
+L000b0c:
805
+	.dc.b	': その他のタイプ ',$09,$00
806
+L000b20:
807
+	.dc.b	'ユニット番号・・・・   ',$00
808
+L000b34:
809
+	.dc.b	': ドライブの装置情報が存在しません',$0d,$0a,$00
810
+L000b59:
811
+	.dc.b	': 仮想ドライブです',$0d,$0a,$00
812
+L000b6e:
813
+	.dc.b	'1セクタあたりのバイト数・・・・・・・・・・・・・・・・',$00
814
+L000b97:
815
+	.dc.b	'1クラスタあたりのセクタ数・・・・・・・・・・・・・・',$00
816
+L000bc0:
817
+	.dc.b	'総クラスタ数・・・・・・・・・・・・・・・・・・・・・・・・・・・・',$00
818
+L000be9:
819
+	.dc.b	'ファイルアロケーションの先頭セクタ番号・・',$00
820
+L000c12:
821
+	.dc.b	'ファイルアロケーションのセクタ数・・・・・・・・',$00
822
+L000c3b:
823
+	.dc.b	'ルートディレクトリの先頭セクタ番号・・・・・・',$00
824
+L000c64:
825
+	.dc.b	'ルートディレクトリの最大個数・・・・・・・・・・・・',$00
826
+L000c8d:
827
+	.dc.b	'データ領域の先頭セクタ番号・・・・・・・・・・・・・・',$00
828
+L000cb6:
829
+	.dc.b	'アクセス・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・ ',$00
830
+L000ce0:
831
+	.dc.b	'イジェクト・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・ ',$00
832
+L000d0a:
833
+	.dc.b	'書き込み・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・ ',$00
834
+L000d34:
835
+	.dc.b	'  可',$0d,$0a,$00
836
+L000d3b:
837
+	.dc.b	'不可'
838
+L000d3f:
839
+	.dc.b	$0d,$0a,$00
840
+
841
+	.bss
842
+
843
+L000d42:
844
+	.ds.l	1
845
+L000d46:
846
+	.ds.b	280
847
+L000e5e:
848
+	.ds.b	280
849
+L000f76:
850
+	.ds.b	1
851
+L000f77:
852
+	.ds.b	1
853
+L000f78:
854
+	.ds.w	1
855
+L000f7a:
856
+	.ds.b	2
857
+L000f7c:
858
+	.ds.b	3
859
+L000f7f:
860
+	.ds.b	1
861
+L000f80:
862
+	.ds.w	1
863
+L000f82:
864
+	.ds.w	1
865
+L000f84:
866
+	.ds.w	1
867
+L000f86:
868
+	.ds.b	6
869
+L000f8c:
870
+	.ds.b	78
871
+L000fda:
872
+	.ds.b	5
873
+L000fdf:
874
+	.ds.b	3
875
+L000fe2:
876
+	.ds.b	2
877
+L000fe4:
878
+	.ds.b	2
879
+L000fe6:
880
+	.ds.b	30
881
+L001004:
882
+	.ds.b	30
883
+L001022:
884
+	.ds.b	1
885
+L001023:
886
+	.ds.b	1
887
+L001024:
888
+	.ds.b	2
889
+L001026:
890
+	.ds.b	1028
891
+L00142a:
892
+	.ds.b	2
893
+End:
894
+
895
+	.end	Start

BIN
drive.x View File


BIN
en/attrib.x View File


BIN
en/drive.x View File


Loading…
Cancel
Save