Browse Source

add cache.x, chkdsk.x, copyall.x, find.x, pr.x, sys.x, tree.x, where.x

vampirefrog 3 weeks ago
parent
commit
843979e18b
24 changed files with 5840 additions and 0 deletions
  1. 38
    0
      cache.lab
  2. 208
    0
      cache.s
  3. BIN
      cache.x
  4. 121
    0
      chkdsk.lab
  5. 783
    0
      chkdsk.s
  6. BIN
      chkdsk.x
  7. 110
    0
      copyall.lab
  8. 694
    0
      copyall.s
  9. BIN
      copyall.x
  10. 184
    0
      find.lab
  11. 1037
    0
      find.s
  12. BIN
      find.x
  13. 197
    0
      pr.lab
  14. 1137
    0
      pr.s
  15. BIN
      pr.x
  16. 45
    0
      sys.lab
  17. 292
    0
      sys.s
  18. BIN
      sys.x
  19. 64
    0
      tree.lab
  20. 334
    0
      tree.s
  21. BIN
      tree.x
  22. 90
    0
      where.lab
  23. 506
    0
      where.s
  24. BIN
      where.x

+ 38
- 0
cache.lab View File

@@ -0,0 +1,38 @@
1
+*********************************************
2
+*
3
+*  Label file for cache.x
4
+*
5
+*	DIS version 3.16
6
+*
7
+*********************************************
8
+000000	P
9
+000022	P
10
+000026	P
11
+00002a	P
12
+00002c	P
13
+00006a	P
14
+000080	P
15
+000096	P
16
+0000a2	P
17
+0000ae	P
18
+0000b6	P
19
+0000c0	P
20
+0000cc	P
21
+0000de	P
22
+0000ee	P
23
+0000f8	P
24
+000124	P
25
+00014e	P
26
+00015a	P
27
+000162	P
28
+00016c	P
29
+000170	DUF
30
+000178	DSF
31
+000288	DSF
32
+0002b6	DSF
33
+0002e6	DSF
34
+0002ed	DS
35
+0002f6	DSF
36
+000310	DSF
37
+00032a	DU
38
+00072a	DU

+ 208
- 0
cache.s View File

@@ -0,0 +1,208 @@
1
+;=============================================
2
+;  Filename cache.x
3
+;
4
+;
5
+;  Base address 000000
6
+;  Exec address 000000
7
+;  Text size    00032a byte(s)
8
+;  Data size    000000 byte(s)
9
+;  Bss  size    000400 byte(s)
10
+;  31 Labels
11
+;
12
+;  Commandline dis  -b2 -h -m68000 --sp -q1 -B -M -o120 -gcache.lab --overwrite cache.x cache.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	(L00072a,pc),sp
26
+	clr.l	-(sp)
27
+	DOS	_SUPER
28
+	addq.l	#4,sp
29
+	cmpi.b	#$01,($00000cbc).l
30
+	bls.s	L000022
31
+	addq.l	#1,a2
32
+	bsr.w	L000162
33
+	bne.s	L00002c
34
+	bsr.w	L000124
35
+	bra.s	L00002a
36
+
37
+L000022:
38
+	pea.l	(L000288,pc)
39
+L000026:
40
+	DOS	_PRINT
41
+	addq.l	#4,sp
42
+L00002a:
43
+	DOS	_EXIT
44
+
45
+L00002c:
46
+	lea.l	(L000170,pc),a1
47
+	move.w	#$ffff,($0004,a1)
48
+	clr.w	($0006,a1)
49
+	lsl.w	#8,d0
50
+	move.b	(a2)+,d0
51
+	ori.w	#$2020,d0
52
+	cmp.w	#$6f6e,d0		;'on'
53
+	seq.b	($0000.w,a1)
54
+	beq.s	L00006a
55
+	cmp.w	#$6f66,d0		;'of'
56
+	seq.b	($0001,a1)
57
+	beq.s	L00006a
58
+	cmp.w	#$6465,d0		;'de'
59
+	seq.b	($0002,a1)
60
+	bne.s	L0000ae
61
+	move.b	($00ed0090),d2
62
+	bra.w	L0000f8
63
+
64
+L00006a:
65
+	tst.b	(a2)
66
+	beq.s	L0000cc
67
+	cmpi.b	#$20,(a2)+		;' '
68
+	bne.s	L00006a
69
+	moveq.l	#$01,d1
70
+	moveq.l	#$ac,d0
71
+	trap	#15
72
+	move.l	d0,d2
73
+	clr.w	($0004,a1)
74
+L000080:
75
+	bsr.w	L000162
76
+	beq.s	L0000cc
77
+	ori.b	#$20,d0
78
+	cmp.b	#$69,d0			;'i'
79
+	bne.s	L000096
80
+	st.b	($0004,a1)
81
+	bra.s	L000080
82
+
83
+L000096:
84
+	cmp.b	#$64,d0			;'d'
85
+	bne.s	L0000a2
86
+	st.b	($0005,a1)
87
+	bra.s	L000080
88
+
89
+L0000a2:
90
+	cmp.b	#$73,d0			;'s'
91
+	bne.s	L0000ae
92
+	st.b	($0006,a1)
93
+	bra.s	L000080
94
+
95
+L0000ae:
96
+	pea.l	(L000178,pc)
97
+	bra.w	L000026
98
+
99
+L0000b6:
100
+	move.b	($0004,a1),d0
101
+	beq.s	L0000c0
102
+	bset.l	#$00,d2
103
+L0000c0:
104
+	move.b	($0005,a1),d0
105
+	beq.s	L0000f8
106
+	bset.l	#$01,d2
107
+	bra.s	L0000f8
108
+
109
+L0000cc:
110
+	move.b	($0006,a1),d0
111
+	beq.s	L0000de
112
+	tst.w	($0004,a1)
113
+	bne.s	L0000de
114
+	move.w	#$ffff,($0004,a1)
115
+L0000de:
116
+	move.b	($0000.w,a1),d0
117
+	bne.s	L0000b6
118
+	move.b	($0004,a1),d0
119
+	beq.s	L0000ee
120
+	bclr.l	#$00,d2
121
+L0000ee:
122
+	move.b	($0005,a1),d0
123
+	beq.s	L0000f8
124
+	bclr.l	#$01,d2
125
+L0000f8:
126
+	moveq.l	#$04,d1
127
+	moveq.l	#$ac,d0
128
+	trap	#15
129
+	bsr.s	L000124
130
+	move.b	($0006,a1),d0
131
+	beq.w	L00002a
132
+	move.b	#$31,($00e8e00d)	;'1'
133
+	move.b	d2,($00ed0090)
134
+	clr.b	($00e8e00d)
135
+	pea.l	(L0002b6,pc)
136
+	bra.w	L000026
137
+
138
+L000124:
139
+	moveq.l	#$01,d1
140
+	moveq.l	#$ac,d0
141
+	trap	#15
142
+	move.l	d0,d1
143
+	pea.l	(L0002f6,pc)
144
+	DOS	_PRINT
145
+	addq.l	#4,sp
146
+	btst.l	#$00,d1
147
+	sne.b	d0
148
+	bsr.s	L00014e
149
+	pea.l	(L000310,pc)
150
+	DOS	_PRINT
151
+	addq.l	#4,sp
152
+	btst.l	#$01,d1
153
+	sne.b	d0
154
+	bsr.s	L00014e
155
+	rts
156
+
157
+L00014e:
158
+	lea.l	(L0002e6,pc),a0
159
+	tst.b	d0
160
+	bne.s	L00015a
161
+	lea.l	(L0002ed,pc),a0
162
+L00015a:
163
+	move.l	a0,-(sp)
164
+	DOS	_PRINT
165
+	addq.l	#4,sp
166
+	rts
167
+
168
+L000162:
169
+	cmpi.b	#$20,(a2)		;' '
170
+	bne.s	L00016c
171
+	addq.l	#1,a2
172
+	bra.s	L000162
173
+
174
+L00016c:
175
+	move.b	(a2)+,d0
176
+	rts
177
+
178
+L000170:
179
+	.dc.b	$00,$00,$00,$00,$00,$00,$00,$00
180
+L000178:
181
+	.dc.b	'On-Chip Cache control for MC68030 Copyright 1993 SHARP',$0d,$0a
182
+	.dc.b	'使用法:cache on|off|def [ids]',$0d,$0a
183
+	.dc.b	$09,'on.....キャッシュオン',$0d,$0a
184
+	.dc.b	$09,'off....キャッシュオフ',$0d,$0a
185
+	.dc.b	$09,'def....S-RAM に設定された状態に戻す',$0d,$0a
186
+	.dc.b	$09,'i......命令キャッシュの指定',$0d,$0a
187
+	.dc.b	$09,'d......データキャッシュの指定',$0d,$0a
188
+	.dc.b	$09,'s......S-RAM に指定した状態を設定',$0d,$0a,$00
189
+L000288:
190
+	.dc.b	'MC68000/10 にはキャッシュメモリがありません',$0d,$0a,$00
191
+L0002b6:
192
+	.dc.b	'現在のキャッシュの状態を S-RAM に設定しました',$0d,$0a,$00
193
+L0002e6:
194
+	.dc.b	'ON',$0d,$0a,$00
195
+L0002ed:
196
+	.dc.b	'OFF',$0d,$0a,$00
197
+L0002f6:
198
+	.dc.b	'命令キャッシュ...........',$00
199
+L000310:
200
+	.dc.b	'データキャッシュ.........',$00
201
+
202
+	.bss
203
+
204
+L00032a:
205
+	.ds.b	1024
206
+L00072a:
207
+
208
+	.end	L000000

BIN
cache.x View File


+ 121
- 0
chkdsk.lab View File

@@ -0,0 +1,121 @@
1
+*********************************************
2
+*
3
+*  Label file for chkdsk.x
4
+*
5
+*	DIS version 3.16
6
+*
7
+*********************************************
8
+000000	P	Start
9
+00001c	P
10
+000066	P
11
+0000b0	P
12
+0000b6	P
13
+0000d0	P
14
+0000d4	P
15
+0000d6	P
16
+000100	P
17
+00010c	P
18
+000118	P
19
+000148	P
20
+00018e	P
21
+00019e	P
22
+00020c	P
23
+000224	P
24
+000266	P
25
+00028a	P
26
+00029e	P
27
+000300	P
28
+00030e	P
29
+0003c2	P
30
+0003d0	P
31
+0003de	P
32
+0003e4	P
33
+0003e6	P
34
+0003fe	P
35
+000428	P
36
+000438	P
37
+000462	P
38
+000474	P
39
+000486	P
40
+000498	P
41
+0004aa	P
42
+0004bc	P
43
+0004ce	P
44
+0004da	P
45
+0004fa	P
46
+000526	P
47
+000530	P
48
+000542	P
49
+00058c	P
50
+0005ae	P
51
+0005ba	P
52
+0005ca	P
53
+0005da	P
54
+0005ee	P
55
+000602	P
56
+00060e	P
57
+00061a	P
58
+000624	P
59
+00062e	P
60
+000630	P
61
+00063e	P
62
+000652	P
63
+000662	P
64
+00066e	P
65
+000672	P
66
+00067c	P
67
+00067e	P
68
+00068a	P
69
+000694	P
70
+000696	P
71
+00069c	P
72
+0006a4	P
73
+0006ac	P
74
+0006b8	P
75
+0006be	P
76
+0006ca	P
77
+0006d0	P
78
+0006f2	P
79
+000716	P
80
+00073a	P
81
+00073e	P
82
+000754	P
83
+000762	P
84
+00076a	P
85
+000772	P
86
+000778	P
87
+00077c	DU
88
+00077f	DS
89
+0007fe	DS
90
+000802	DS
91
+000806	DS
92
+00080b	DS
93
+00081f	DS
94
+00083e	DS
95
+00084c	DS
96
+00085d	DS
97
+000875	DS
98
+000889	DS
99
+0008a1	DS
100
+0008b8	DB
101
+0008bf	DB
102
+0008c6	DB
103
+0008c8	DB
104
+000924	DB
105
+000926	DW
106
+000928	DW
107
+00092a	DW
108
+00092c	DW
109
+00092e	DL
110
+000932	DL
111
+000936	DL
112
+00093a	DW
113
+00093c	DW
114
+00093e	DW
115
+000940	DW
116
+000942	DW
117
+000944	DB
118
+000946	DU
119
+003156	DU
120
+003158	DU
121
+013156	DU	End

+ 783
- 0
chkdsk.s View File

@@ -0,0 +1,783 @@
1
+;=============================================
2
+;  Filename chkdsk.x
3
+;
4
+;
5
+;  Base address 000000
6
+;  Exec address 000000
7
+;  Text size    00077c byte(s)
8
+;  Data size    0001a8 byte(s)
9
+;  Bss  size    012832 byte(s)
10
+;  114 Labels
11
+;
12
+;  Commandline dis  -b2 -h -m68000 --sp -q1 -B -M -o120 -gchkdsk.lab --overwrite chkdsk.x chkdsk.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	(L003156),sp
26
+	clr.b	(L000924)
27
+	DOS	_VERNUM
28
+	cmp.w	#$0150,d0
29
+	bcs.s	L00001c
30
+	move.b	#$02,(L000924)
31
+L00001c:
32
+	lea.l	(-$0092,sp),sp
33
+	movea.l	sp,a6
34
+	clr.w	(L000926)
35
+	clr.w	(L000928)
36
+	clr.w	(L00092a)
37
+	clr.w	(L00092c)
38
+	clr.w	(L00092e)
39
+	clr.w	(L000932)
40
+	clr.w	(L000936)
41
+	DOS	_CURDRV
42
+	move.w	d0,(L000942)
43
+	add.b	#$41,d0			;'A'
44
+	move.b	d0,(L0008bf)
45
+	clr.w	(L000944)
46
+	addq.l	#1,a2
47
+L000066:
48
+	bsr.w	L00068a
49
+	tst.b	d0
50
+	beq.w	L000118
51
+	cmp.b	#$2f,d0			;'/'
52
+	beq.s	L0000d6
53
+	cmp.b	#$2d,d0			;'-'
54
+	beq.s	L0000d6
55
+	cmpi.b	#$3a,(a2)		;':'
56
+	bne.s	L0000b0
57
+	and.w	#$00df,d0
58
+	cmp.b	#$41,d0			;'A'
59
+	bcs.w	L0005ca
60
+	cmp.b	#$5b,d0			;'['
61
+	bcc.w	L0005ca
62
+	move.b	d0,(L0008bf)
63
+	sub.w	#$0041,d0
64
+	move.w	d0,(L000942)
65
+	addq.l	#1,a2
66
+	bsr.w	L00068a
67
+	tst.b	d0
68
+	beq.s	L000118
69
+L0000b0:
70
+	lea.l	(L0008c8),a0
71
+L0000b6:
72
+	cmp.b	#$2d,d0			;'-'
73
+	beq.s	L0000d4
74
+	cmp.b	#$2f,d0			;'/'
75
+	beq.s	L0000d4
76
+	cmp.b	#$20,d0			;' '
77
+	beq.s	L0000d0
78
+	move.b	d0,(a0)+
79
+	beq.s	L000118
80
+	move.b	(a2)+,d0
81
+	bra.s	L0000b6
82
+
83
+L0000d0:
84
+	clr.b	(a0)
85
+	bra.s	L000066
86
+
87
+L0000d4:
88
+	clr.b	(a0)
89
+L0000d6:
90
+	move.b	(a2)+,d0
91
+	beq.w	L0005ca
92
+	or.b	#$20,d0
93
+	cmp.b	#$61,d0			;'a'
94
+	beq.s	L000100
95
+	cmp.b	#$66,d0			;'f'
96
+	beq.s	L00010c
97
+	cmp.b	#$76,d0			;'v'
98
+	bne.w	L0005ca
99
+	bset.b	#$00,(L000944)
100
+	bra.w	L000066
101
+
102
+L000100:
103
+	bset.b	#$01,(L000944)
104
+	bra.w	L000066
105
+
106
+L00010c:
107
+	bset.b	#$02,(L000944)
108
+	bra.w	L000066
109
+
110
+L000118:
111
+	lea.l	(L0008bf),a2
112
+	pea.l	($0004,a6)
113
+	move.l	a2,-(sp)
114
+	DOS	_NAMESTS
115
+	addq.l	#8,sp
116
+	tst.l	d0
117
+	bmi.w	L0005ca
118
+	lea.l	($0004,a6),a0
119
+	cmpi.b	#$ff,(a0)
120
+	beq.w	L0005ca
121
+	move.b	($0001,a0),d0
122
+	add.b	#$41,d0			;'A'
123
+	move.b	d0,(a0)+
124
+	move.b	#$3a,(a0)+		;':'
125
+L000148:
126
+	tst.b	(a0)+
127
+	bne.s	L000148
128
+	subq.l	#1,a0
129
+	move.l	a0,($0000.w,a6)
130
+	move.b	(L0008bf),d0
131
+	move.b	d0,(L0008b8)
132
+	move.w	#$0008,-(sp)
133
+	pea.l	(L0008b8)
134
+	pea.l	($005c,a6)
135
+	DOS	_FILES
136
+	lea.l	($000a,sp),sp
137
+	tst.l	d0
138
+	bmi.w	L00020c
139
+	move.b	(L0008bf),d0
140
+	bsr.w	L000662
141
+	move.b	#$3a,d0			;':'
142
+	bsr.w	L000662
143
+	lea.l	($007a,a6),a0
144
+L00018e:
145
+	move.b	(a0)+,d0
146
+	beq.s	L00019e
147
+	cmp.b	#$2e,d0			;'.'
148
+	beq.s	L00018e
149
+	bsr.w	L000662
150
+	bra.s	L00018e
151
+
152
+L00019e:
153
+	lea.l	(L000806),a5
154
+	bsr.w	L0006a4
155
+	clr.l	d1
156
+	move.w	($0074,a6),d1
157
+	asl.l	#7,d1
158
+	swap.w	d1
159
+	add.w	#$17bc,d1
160
+	swap.w	d1
161
+	lsr.w	#4,d1
162
+	lsr.b	#3,d1
163
+	lea.l	(L000946),a1
164
+	IOCS	_DATEASC
165
+	lea.l	(L000946),a5
166
+	bsr.w	L0006a4
167
+	move.b	#$20,d0			;' '
168
+	bsr.w	L000662
169
+	clr.l	d1
170
+	move.w	($0072,a6),d1
171
+	asl.l	#5,d1
172
+	lsr.w	#2,d1
173
+	lsr.b	#2,d1
174
+	lea.l	(L000946),a1
175
+	IOCS	_TIMEASC
176
+	lea.l	(L000946),a5
177
+	clr.b	($0005,a5)
178
+	bsr.w	L0006a4
179
+	lea.l	(L00080b),a5
180
+	bsr.w	L0006a4
181
+	addq.w	#1,(L00092a)
182
+L00020c:
183
+	move.w	#$00f4,-(sp)
184
+	move.l	a2,-(sp)
185
+	pea.l	($005c,a6)
186
+	DOS	_FILES
187
+	lea.l	($000a,sp),sp
188
+	tst.l	d0
189
+	bmi.s	L000224
190
+	bsr.w	L0003e6
191
+L000224:
192
+	tst.b	(L0008c8)
193
+	beq.w	L00030e
194
+	move.b	(L0008bf),(L0008c6)
195
+	pea.l	($0004,a6)
196
+	pea.l	(L0008c6)
197
+	DOS	_NAMESTS
198
+	addq.l	#8,sp
199
+	tst.l	d0
200
+	bmi.w	L00030e
201
+	lea.l	($0004,a6),a0
202
+	cmpi.b	#$ff,(a0)
203
+	beq.w	L00030e
204
+	move.b	($0001,a0),d0
205
+	add.b	#$41,d0			;'A'
206
+	move.b	d0,(a0)+
207
+	move.b	#$3a,(a0)+		;':'
208
+L000266:
209
+	tst.b	(a0)+
210
+	bne.s	L000266
211
+	subq.l	#1,a0
212
+	move.l	a0,($0000.w,a6)
213
+	move.w	#$0020,-(sp)		;' '
214
+	pea.l	(L0008c6)
215
+	pea.l	($005c,a6)
216
+	DOS	_FILES
217
+	lea.l	($000a,sp),sp
218
+	tst.l	d0
219
+	bmi.w	L00030e
220
+L00028a:
221
+	lea.l	($007a,a6),a0
222
+	cmpi.w	#$2e00,(a0)
223
+	beq.s	L000300
224
+	cmpi.w	#$2e2e,(a0)		;'..'
225
+	beq.s	L000300
226
+	movea.l	($0000.w,a6),a1
227
+L00029e:
228
+	move.b	(a0)+,(a1)+
229
+	bne.s	L00029e
230
+	lea.l	(L003156),a0
231
+	move.l	a0,-(sp)
232
+	pea.l	($0004,a6)
233
+	DOS	_FATCHK
234
+	addq.l	#8,sp
235
+	tst.l	d0
236
+	bmi.s	L000300
237
+	cmp.l	#$00000009,d0
238
+	bcs.s	L000300
239
+	move.l	d0,-(sp)
240
+	lea.l	($0004,a6),a5
241
+	bsr.w	L0006a4
242
+	move.b	#$09,d0
243
+	bsr.w	L000662
244
+	move.l	(sp)+,d0
245
+	subq.l	#4,d0
246
+	lsr.l	#2,d0
247
+	move.l	d0,d1
248
+	clr.l	d2
249
+	divu.w	#$03e8,d1
250
+	bsr.w	L000762
251
+	divu.w	#$0064,d1
252
+	bsr.w	L000762
253
+	divu.w	#$000a,d1
254
+	bsr.w	L000762
255
+	bsr.w	L00076a
256
+	lea.l	(L00081f),a5
257
+	bsr.w	L0006a4
258
+L000300:
259
+	pea.l	($005c,a6)
260
+	DOS	_NFILES
261
+	addq.l	#4,sp
262
+	tst.l	d0
263
+	bpl.w	L00028a
264
+L00030e:
265
+	pea.l	(L00093a)
266
+	move.w	(L000942),d0
267
+	addq.w	#1,d0
268
+	move.w	d0,-(sp)
269
+	DOS	_DSKFRE
270
+	addq.l	#6,sp
271
+	move.w	(L00093c),d1
272
+	mulu.w	(L00093e),d1
273
+	bsr.w	L0003c2
274
+	bsr.w	L0006d0
275
+	lea.l	(L00084c),a5
276
+	bsr.w	L0006a4
277
+	move.l	(L00092e),d1
278
+	bsr.s	L0003c2
279
+	bsr.w	L0006d0
280
+	move.w	(L00092a),d1
281
+	bsr.w	L000716
282
+	lea.l	(L00085d),a5
283
+	bsr.w	L0006a4
284
+	move.l	(L000932),d1
285
+	bsr.s	L0003c2
286
+	bsr.w	L0006d0
287
+	move.w	(L000928),d1
288
+	bsr.w	L000716
289
+	lea.l	(L000875),a5
290
+	bsr.w	L0006a4
291
+	move.l	(L000936),d1
292
+	bsr.s	L0003c2
293
+	bsr.w	L0006d0
294
+	move.w	(L00092c),d1
295
+	bsr.w	L000716
296
+	lea.l	(L000889),a5
297
+	bsr.w	L0006a4
298
+	move.w	(L00093a),d1
299
+	mulu.w	(L00093e),d1
300
+	bsr.s	L0003c2
301
+	bsr.w	L0006d0
302
+	lea.l	(L0008a1),a5
303
+	bsr.w	L0006a4
304
+	lea.l	($0092,sp),sp
305
+	DOS	_EXIT
306
+
307
+L0003c2:
308
+	tst.b	(L000924)
309
+	beq.s	L0003e4
310
+	move.w	(L000940),d0
311
+L0003d0:
312
+	cmp.w	#$0400,d0
313
+	beq.s	L0003e4
314
+	bcc.s	L0003de
315
+	lsl.w	#1,d0
316
+	lsr.l	#1,d1
317
+	bra.s	L0003d0
318
+
319
+L0003de:
320
+	lsr.w	#1,d0
321
+	lsl.l	#1,d1
322
+	bra.s	L0003d0
323
+
324
+L0003e4:
325
+	rts
326
+
327
+L0003e6:
328
+	lea.l	($007a,a6),a0
329
+	cmpi.w	#$2e00,(a0)
330
+	beq.w	L0005ba
331
+	cmpi.w	#$2e2e,(a0)		;'..'
332
+	beq.w	L0005ba
333
+	movea.l	($0000.w,a6),a1
334
+L0003fe:
335
+	move.b	(a0)+,(a1)+
336
+	bne.s	L0003fe
337
+	tst.b	(L000924)
338
+	beq.s	L000428
339
+	move.w	#$fff8,-(sp)
340
+	lea.l	(L003156),a0
341
+	move.l	a0,d0
342
+	bset.l	#$1f,d0
343
+	move.l	d0,-(sp)
344
+	pea.l	($0004,a6)
345
+	DOS	_FATCHK
346
+	lea.l	($000a,sp),sp
347
+	bra.s	L000438
348
+
349
+L000428:
350
+	lea.l	(L003156),a0
351
+	move.l	a0,-(sp)
352
+	pea.l	($0004,a6)
353
+	DOS	_FATCHK
354
+	addq.l	#8,sp
355
+L000438:
356
+	tst.l	d0
357
+	bmi.w	L0005ba
358
+	clr.w	d7
359
+	move.b	($0071,a6),d7
360
+	bsr.w	L0005da
361
+	tst.b	(L000944)
362
+	beq.w	L000530
363
+	clr.w	d1
364
+	move.b	#$2d,d1			;'-'
365
+	btst.l	#$05,d7
366
+	beq.s	L000462
367
+	move.b	#$41,d1			;'A'
368
+L000462:
369
+	bsr.w	L00069c
370
+	move.b	#$2d,d1			;'-'
371
+	btst.l	#$04,d7
372
+	beq.s	L000474
373
+	move.b	#$44,d1			;'D'
374
+L000474:
375
+	bsr.w	L00069c
376
+	move.b	#$2d,d1			;'-'
377
+	btst.l	#$03,d7
378
+	beq.s	L000486
379
+	move.b	#$56,d1			;'V'
380
+L000486:
381
+	bsr.w	L00069c
382
+	move.b	#$2d,d1			;'-'
383
+	btst.l	#$02,d7
384
+	beq.s	L000498
385
+	move.b	#$53,d1			;'S'
386
+L000498:
387
+	bsr.w	L00069c
388
+	move.b	#$2d,d1			;'-'
389
+	btst.l	#$01,d7
390
+	beq.s	L0004aa
391
+	move.b	#$48,d1			;'H'
392
+L0004aa:
393
+	bsr.w	L00069c
394
+	move.b	#$2d,d1			;'-'
395
+	btst.l	#$00,d7
396
+	beq.s	L0004bc
397
+	move.b	#$52,d1			;'R'
398
+L0004bc:
399
+	bsr.w	L00069c
400
+	bsr.w	L000696
401
+	move.w	(L000926),d2
402
+	beq.s	L0004da
403
+	asl.w	#1,d2
404
+L0004ce:
405
+	move.w	#$0020,d1		;' '
406
+	bsr.w	L00069c
407
+	subq.w	#1,d2
408
+	bne.s	L0004ce
409
+L0004da:
410
+	lea.l	($007a,a6),a5
411
+	bsr.w	L00066e
412
+	lea.l	($007a,a6),a5
413
+	bsr.w	L0006a4
414
+	btst.b	#$01,(L000944)
415
+	beq.s	L000526
416
+	lea.l	(L003158),a4
417
+L0004fa:
418
+	bsr.w	L0006ac
419
+	beq.s	L000526
420
+	lea.l	(L0007fe),a5
421
+	bsr.w	L0006a4
422
+	bsr.w	L000630
423
+	lea.l	(L000802),a5
424
+	bsr.w	L0006a4
425
+	bsr.w	L0006be
426
+	add.l	d0,d1
427
+	subq.l	#1,d1
428
+	bsr.w	L000630
429
+	bra.s	L0004fa
430
+
431
+L000526:
432
+	lea.l	(L00077c),a5
433
+	bsr.w	L0006a4
434
+L000530:
435
+	btst.l	#$04,d7
436
+	beq.w	L0005ba
437
+	addq.w	#1,(L000926)
438
+	lea.l	($0004,a6),a2
439
+L000542:
440
+	tst.b	(a2)+
441
+	bne.s	L000542
442
+	subq.l	#1,a2
443
+	move.b	#$5c,(a2)+		;'\'
444
+	move.b	#$2a,(a2)+		;'*'
445
+	move.b	#$2e,(a2)+		;'.'
446
+	move.b	#$2a,(a2)+		;'*'
447
+	clr.b	(a2)
448
+	lea.l	($0004,a6),a2
449
+	move.l	a6,-(sp)
450
+	lea.l	(-$0092,sp),sp
451
+	movea.l	sp,a6
452
+	pea.l	($0004,a6)
453
+	move.l	a2,-(sp)
454
+	DOS	_NAMESTS
455
+	addq.l	#8,sp
456
+	tst.l	d0
457
+	bmi.s	L0005ae
458
+	lea.l	($0004,a6),a0
459
+	cmpi.b	#$ff,(a0)
460
+	beq.s	L0005ae
461
+	move.b	($0001,a0),d0
462
+	add.b	#$41,d0			;'A'
463
+	move.b	d0,(a0)+
464
+	move.b	#$3a,(a0)+		;':'
465
+L00058c:
466
+	tst.b	(a0)+
467
+	bne.s	L00058c
468
+	subq.l	#1,a0
469
+	move.l	a0,($0000.w,a6)
470
+	move.w	#$00f4,-(sp)
471
+	move.l	a2,-(sp)
472
+	pea.l	($005c,a6)
473
+	DOS	_FILES
474
+	lea.l	($000a,sp),sp
475
+	tst.l	d0
476
+	bmi.s	L0005ae
477
+	bsr.w	L0003e6
478
+L0005ae:
479
+	lea.l	($0092,sp),sp
480
+	movea.l	(sp)+,a6
481
+	subq.w	#1,(L000926)
482
+L0005ba:
483
+	pea.l	($005c,a6)
484
+	DOS	_NFILES
485
+	addq.l	#4,sp
486
+	tst.l	d0
487
+	bpl.w	L0003e6
488
+	rts
489
+
490
+L0005ca:
491
+	lea.l	(L00077f),a5
492
+	bsr.w	L0006a4
493
+	move.w	#$0001,-(sp)
494
+	DOS	_EXIT2
495
+
496
+L0005da:
497
+	btst.l	#$04,d7
498
+	beq.s	L0005ee
499
+	addq.w	#1,(L000928)
500
+	lea.l	(L000932),a1
501
+	bra.s	L00060e
502
+
503
+L0005ee:
504
+	btst.l	#$02,d7
505
+	beq.s	L000602
506
+	addq.w	#1,(L00092a)
507
+	lea.l	(L00092e),a1
508
+	bra.s	L00060e
509
+
510
+L000602:
511
+	addq.w	#1,(L00092c)
512
+	lea.l	(L000936),a1
513
+L00060e:
514
+	addq.l	#2,a0
515
+	clr.l	d0
516
+	tst.b	(L000924)
517
+	beq.s	L000624
518
+L00061a:
519
+	tst.l	(a0)+
520
+	beq.s	L00062e
521
+	move.l	(a0)+,d0
522
+	add.l	d0,(a1)
523
+	bra.s	L00061a
524
+
525
+L000624:
526
+	tst.w	(a0)+
527
+	beq.s	L00062e
528
+	move.w	(a0)+,d0
529
+	add.l	d0,(a1)
530
+	bra.s	L000624
531
+
532
+L00062e:
533
+	rts
534
+
535
+L000630:
536
+	tst.b	(L000924)
537
+	beq.s	L00063e
538
+	swap.w	d1
539
+	bsr.s	L00063e
540
+	swap.w	d1
541
+L00063e:
542
+	move.w	d1,d0
543
+	rol.w	#4,d0
544
+	bsr.s	L000652
545
+	move.w	d1,d0
546
+	ror.w	#8,d0
547
+	bsr.s	L000652
548
+	move.w	d1,d0
549
+	ror.w	#4,d0
550
+	bsr.s	L000652
551
+	move.b	d1,d0
552
+L000652:
553
+	and.w	#$000f,d0
554
+	add.b	#$30,d0			;'0'
555
+	cmp.b	#$3a,d0			;':'
556
+	bcs.s	L000662
557
+	addq.b	#7,d0
558
+L000662:
559
+	and.w	#$00ff,d0
560
+	move.w	d0,-(sp)
561
+	DOS	_PUTCHAR
562
+	addq.l	#2,sp
563
+	rts
564
+
565
+L00066e:
566
+	move.w	#$000b,d1
567
+L000672:
568
+	tst.b	(a5)+
569
+	beq.s	L00067c
570
+	dbra.w	d1,L000672
571
+	rts
572
+
573
+L00067c:
574
+	subq.l	#1,a5
575
+L00067e:
576
+	move.b	#$20,(a5)+		;' '
577
+	dbra.w	d1,L00067e
578
+	clr.b	(a5)
579
+	rts
580
+
581
+L00068a:
582
+	move.b	(a2)+,d0
583
+	beq.s	L000694
584
+	cmp.b	#$20,d0			;' '
585
+	beq.s	L00068a
586
+L000694:
587
+	rts
588
+
589
+L000696:
590
+	moveq.l	#$20,d1			;' '
591
+	bsr.s	L00069c
592
+	moveq.l	#$20,d1			;' '
593
+L00069c:
594
+	move.w	d1,-(sp)
595
+	DOS	_PUTCHAR
596
+	addq.l	#2,sp
597
+	rts
598
+
599
+L0006a4:
600
+	move.l	a5,-(sp)
601
+	DOS	_PRINT
602
+	addq.l	#4,sp
603
+	rts
604
+
605
+L0006ac:
606
+	tst.b	(L000924)
607
+	beq.s	L0006b8
608
+	move.l	(a4)+,d1
609
+	rts
610
+
611
+L0006b8:
612
+	clr.l	d1
613
+	move.w	(a4)+,d1
614
+	rts
615
+
616
+L0006be:
617
+	tst.b	(L000924)
618
+	beq.s	L0006ca
619
+	move.l	(a4)+,d0
620
+	rts
621
+
622
+L0006ca:
623
+	clr.l	d0
624
+	move.w	(a4)+,d0
625
+	rts
626
+
627
+L0006d0:
628
+	clr.l	d2
629
+	tst.b	(L000924)
630
+	beq.s	L0006f2
631
+	move.l	#$00989680,d0
632
+	bsr.s	L00073a
633
+	move.l	#$000f4240,d0
634
+	bsr.s	L00073a
635
+	move.l	#$000186a0,d0
636
+	bsr.s	L00073a
637
+L0006f2:
638
+	divu.w	#$2710,d1
639
+	bsr.s	L000754
640
+	divu.w	#$03e8,d1
641
+	bsr.s	L000754
642
+	divu.w	#$0064,d1
643
+	bsr.s	L000754
644
+	divu.w	#$000a,d1
645
+	bsr.s	L000754
646
+	bsr.s	L00076a
647
+	lea.l	(L00083e),a5
648
+	bsr.s	L0006a4
649
+	rts
650
+
651
+L000716:
652
+	clr.l	d2
653
+	and.l	#$0000ffff,d1
654
+	divu.w	#$2710,d1
655
+	bsr.s	L000762
656
+	divu.w	#$03e8,d1
657
+	bsr.s	L000762
658
+	divu.w	#$0064,d1
659
+	bsr.s	L000762
660
+	divu.w	#$000a,d1
661
+	bsr.s	L000762
662
+	bsr.s	L00076a
663
+	rts
664
+
665
+L00073a:
666
+	swap.w	d2
667
+	clr.w	d2
668
+L00073e:
669
+	addq.w	#1,d2
670
+	sub.l	d0,d1
671
+	bcc.s	L00073e
672
+	add.l	d0,d1
673
+	subq.w	#1,d2
674
+	move.l	d1,-(sp)
675
+	move.w	d2,d1
676
+	swap.w	d2
677
+	bsr.s	L000754
678
+	move.l	(sp)+,d1
679
+	rts
680
+
681
+L000754:
682
+	tst.b	d2
683
+	bne.s	L00076a
684
+	tst.w	d1
685
+	bne.s	L00076a
686
+	move.w	#$0020,d0		;' '
687
+	bra.s	L000772
688
+
689
+L000762:
690
+	tst.b	d2
691
+	bne.s	L00076a
692
+	tst.w	d1
693
+	beq.s	L000778
694
+L00076a:
695
+	addq.b	#1,d2
696
+	move.w	d1,d0
697
+	add.b	#$30,d0			;'0'
698
+L000772:
699
+	bsr.w	L000662
700
+	clr.w	d1
701
+L000778:
702
+	swap.w	d1
703
+	rts
704
+
705
+
706
+	.data
707
+
708
+L00077c:
709
+	.dc.b	$0d,$0a,$00
710
+L00077f:
711
+	.dc.b	'使用法:chkdsk [ドライブ名] [スイッチ]',$0d,$0a
712
+	.dc.b	$09,'/v',$09,'すべてのファイルを表示します',$0d,$0a
713
+	.dc.b	$09,'/a',$09,'すべてのファイルの使用セクタの範囲を表示します',$0d,$0a,$00
714
+L0007fe:
715
+	.dc.b	'  $',$00
716
+L000802:
717
+	.dc.b	'~$',$00
718
+L000806:
719
+	.dc.b	' は ',$00
720
+L00080b:
721
+	.dc.b	' に作成されました',$0d,$0a,$00
722
+L00081f:
723
+	.dc.b	'個の不連続ブロックがあります',$0d,$0a,$00
724
+L00083e:
725
+	.dc.b	' Kバイト : ',$00
726
+L00084c:
727
+	.dc.b	'全ディスク容量',$0d,$0a,$00
728
+L00085d:
729
+	.dc.b	' 個のシステムファイル',$0d,$0a,$00
730
+L000875:
731
+	.dc.b	' 個のディレクトリ',$0d,$0a,$00
732
+L000889:
733
+	.dc.b	' 個のユーザーファイル',$0d,$0a,$00
734
+L0008a1:
735
+	.dc.b	'使用可能ディスク容量',$0d,$0a,$00
736
+L0008b8:
737
+	.dc.b	$41,$3a,$5c,$2a,$2e,$2a,$00
738
+L0008bf:
739
+	.dc.b	$41,$3a,$5c,$2a,$2e,$2a,$00
740
+L0008c6:
741
+	.dc.b	$41,$3a
742
+L0008c8:
743
+	.ds.b	92
744
+
745
+	.bss
746
+
747
+L000924:
748
+	.ds.b	2
749
+L000926:
750
+	.ds.w	1
751
+L000928:
752
+	.ds.w	1
753
+L00092a:
754
+	.ds.w	1
755
+L00092c:
756
+	.ds.w	1
757
+L00092e:
758
+	.ds.l	1
759
+L000932:
760
+	.ds.l	1
761
+L000936:
762
+	.ds.l	1
763
+L00093a:
764
+	.ds.w	1
765
+L00093c:
766
+	.ds.w	1
767
+L00093e:
768
+	.ds.w	1
769
+L000940:
770
+	.ds.w	1
771
+L000942:
772
+	.ds.w	1
773
+L000944:
774
+	.ds.b	2
775
+L000946:
776
+	.ds.b	10256
777
+L003156:
778
+	.ds.b	2
779
+L003158:
780
+	.ds.b	65534
781
+End:
782
+
783
+	.end	Start

BIN
chkdsk.x View File


+ 110
- 0
copyall.lab View File

@@ -0,0 +1,110 @@
1
+*********************************************
2
+*
3
+*  Label file for copyall.x
4
+*
5
+*	DIS version 3.16
6
+*
7
+*********************************************
8
+000000	P	Start
9
+000062	P
10
+000070	P
11
+00007e	P
12
+0000a0	P
13
+0000bc	P
14
+0000e6	P
15
+0000e8	P
16
+000106	P
17
+000116	P
18
+00011e	P
19
+00012e	P
20
+00013c	P
21
+00017c	P
22
+000180	P
23
+00018a	P
24
+0001a8	P
25
+0001aa	P
26
+0001d2	P
27
+0001d6	P
28
+0001d8	P
29
+0001f4	P
30
+0001fe	P
31
+000200	P
32
+000204	P
33
+000218	P
34
+000250	P
35
+00025a	P
36
+000266	P
37
+000290	P
38
+00029c	P
39
+00029e	P
40
+0002ac	P
41
+0002f8	P
42
+000328	P
43
+000336	P
44
+000358	P
45
+00036e	P
46
+000374	P
47
+000378	P
48
+00039e	P
49
+0003a2	P
50
+0003c4	P
51
+0003c6	P
52
+0003f6	P
53
+000428	P
54
+000430	P
55
+000452	P
56
+000456	P
57
+000458	P
58
+000462	P
59
+00048a	P
60
+00048e	P
61
+000492	P
62
+0004e2	P
63
+000504	P
64
+000506	P
65
+000508	P
66
+000516	P
67
+00051e	P
68
+000526	P
69
+000542	P
70
+00054a	P
71
+00055c	P
72
+000562	P
73
+00057e	P
74
+000586	P
75
+00058a	P
76
+0005c0	P
77
+0005ca	P
78
+0005d4	P
79
+0005de	P
80
+0005e8	P
81
+0005f2	P
82
+0005fc	P
83
+000606	P
84
+00061a	P
85
+000624	DS
86
+000658	DS
87
+000786	DS
88
+0007d0	DS
89
+0007f8	DS
90
+0007fe	DU
91
+000800	DU
92
+000803	DS
93
+00080a	DS
94
+000843	DS
95
+00085c	DS
96
+000895	DB
97
+000896	DB
98
+000897	DB
99
+000898	DB
100
+000899	DB
101
+00089a	DB
102
+00089b	DB
103
+00089c	DB
104
+00089e	DW
105
+0008a0	DW
106
+0008a2	DB
107
+0008fe	DU
108
+00095a	DU
109
+000970	DL
110
+000990	DU	End

+ 694
- 0
copyall.s View File

@@ -0,0 +1,694 @@
1
+;=============================================
2
+;  Filename copyall.x
3
+;
4
+;
5
+;  Base address 000000
6
+;  Exec address 000000
7
+;  Text size    000624 byte(s)
8
+;  Data size    00027a byte(s)
9
+;  Bss  size    0000f2 byte(s)
10
+;  103 Labels
11
+;
12
+;  Commandline dis  -b2 -h -m68000 --sp -q1 -B -M -o120 -gcopyall.lab --overwrite copyall.x copyall.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
+	move.l	($0008,a0),d0
26
+	and.l	#$fffffffc,d0
27
+	movea.l	d0,sp
28
+	DOS	_VERNUM
29
+	move.w	d0,(L00089e)
30
+	addq.l	#1,a2
31
+	lea.l	(L0008a2),a0
32
+	bsr.w	L000526
33
+	lea.l	(L0008fe),a0
34
+	bsr.w	L000526
35
+	bsr.w	L000562
36
+	pea.l	(L000624)
37
+	DOS	_PRINT
38
+	addq.l	#4,sp
39
+	tst.b	(L0008a2)
40
+	beq.s	L000070
41
+	tst.b	(L00089a)
42
+	beq.s	L000062
43
+	DOS	_FFLUSH
44
+	pea.l	(L00085c)
45
+	DOS	_PRINT
46
+	addq.l	#4,sp
47
+	DOS	_GETC
48
+	DOS	_FFLUSH
49
+	pea.l	(L000800)
50
+	DOS	_PRINT
51
+	addq.l	#4,sp
52
+L000062:
53
+	clr.w	(L0008a0)
54
+	bsr.s	L00007e
55
+	tst.l	d0
56
+	bmi.s	L000070
57
+	DOS	_EXIT
58
+
59
+L000070:
60
+	pea.l	(L000658)
61
+	DOS	_PRINT
62
+	move.w	#$0001,-(sp)
63
+	DOS	_EXIT2
64
+
65
+L00007e:
66
+	addq.w	#1,(L0008a0)
67
+	movem.l	a6,-(sp)
68
+	lea.l	(-$00f0,sp),sp
69
+	movea.l	sp,a6
70
+	clr.w	($00ee,a6)
71
+	tst.b	(L00089c)
72
+	beq.s	L0000a0
73
+	move.w	#$8000,($00ee,a6)
74
+L0000a0:
75
+	bsr.w	L000492
76
+	bmi.s	L00011e
77
+	bsr.w	L0001d2
78
+	tst.b	(L000896)
79
+	beq.s	L0000e6
80
+	lea.l	(L0008fe),a0
81
+	lea.l	($0092,a6),a1
82
+L0000bc:
83
+	move.b	(a1)+,(a0)+
84
+	bne.s	L0000bc
85
+	clr.b	(-$0002,a0)
86
+	cmpi.b	#$3a,(-$0003,a0)	;':'
87
+	beq.s	L0000e8
88
+	move.w	#$0010,-(sp)
89
+	pea.l	(L0008fe)
90
+	pea.l	(L00095a)
91
+	DOS	_FILES
92
+	lea.l	($000a,sp),sp
93
+	tst.l	d0
94
+	bmi.s	L00011e
95
+L0000e6:
96
+	bsr.s	L00012e
97
+L0000e8:
98
+	bsr.w	L000462
99
+	beq.s	L000116
100
+	btst.l	#$04,d0
101
+	bne.s	L000106
102
+	bsr.w	L000204
103
+	bpl.s	L000116
104
+	pea.l	(L000843)
105
+	DOS	_PRINT
106
+	addq.l	#4,sp
107
+	bra.s	L000116
108
+
109
+L000106:
110
+	tst.b	(L000895)
111
+	bne.s	L000116
112
+	bsr.w	L0003c6
113
+	bsr.w	L00007e
114
+L000116:
115
+	bsr.w	L000508
116
+	bpl.s	L0000e8
117
+	clr.l	d0
118
+L00011e:
119
+	lea.l	($00f0,sp),sp
120
+	movem.l	(sp)+,a6
121
+	subq.w	#1,(L0008a0)
122
+	rts
123
+
124
+L00012e:
125
+	lea.l	(L0008fe),a0
126
+	lea.l	($0092,a6),a1
127
+	bsr.w	L0001d8
128
+L00013c:
129
+	tst.b	(a1)
130
+	beq.s	L0001a8
131
+	move.b	#$5c,(a0)+		;'\'
132
+	bsr.w	L0001d8
133
+	tst.b	(L000898)
134
+	bne.s	L00018a
135
+	movem.l	a0,-(sp)
136
+	lea.l	(L0008fe),a0
137
+	bsr.w	L000428
138
+	movem.l	(sp)+,a0
139
+	pea.l	(L0008fe)
140
+	DOS	_MKDIR
141
+	addq.l	#4,sp
142
+	cmp.l	#$ffffffe9,d0
143
+	beq.s	L00017c
144
+	cmp.l	#$ffffffe8,d0
145
+	bne.s	L000180
146
+L00017c:
147
+	bsr.s	L0001aa
148
+	bra.s	L00012e
149
+
150
+L000180:
151
+	tst.l	d0
152
+	bmi.s	L00013c
153
+	move.w	#$8000,($00ee,a6)
154
+L00018a:
155
+	pea.l	(L000803)
156
+	DOS	_PRINT
157
+	pea.l	(L0008fe)
158
+	DOS	_PRINT
159
+	pea.l	(L000800)
160
+	DOS	_PRINT
161
+	lea.l	($000c,sp),sp
162
+	bra.s	L00013c
163
+
164
+L0001a8:
165
+	rts
166
+
167
+L0001aa:
168
+	move.w	#$0100,d0
169
+	move.b	($0092,a6),d0
170
+	and.b	#$1f,d0
171
+	move.w	d0,-(sp)
172
+	DOS	_DRVCTRL
173
+	addq.l	#2,sp
174
+	pea.l	(L00080a)
175
+	DOS	_PRINT
176
+	DOS	_GETC
177
+	pea.l	(L000800)
178
+	DOS	_PRINT
179
+	lea.l	($0008,sp),sp
180
+L0001d2:
181
+	clr.l	d0
182
+	rts
183
+
184
+L0001d6:
185
+	move.b	d0,(a0)+
186
+L0001d8:
187
+	move.b	(a1)+,d0
188
+	beq.s	L0001fe
189
+	cmp.b	#$5c,d0			;'\'
190
+	beq.s	L000200
191
+	cmp.b	#$80,d0
192
+	bcs.s	L0001d6
193
+	cmp.b	#$a0,d0
194
+	bcs.s	L0001f4
195
+	cmp.b	#$e0,d0
196
+	bcs.s	L0001d6
197
+L0001f4:
198
+	move.b	d0,(a0)+
199
+	move.b	(a1)+,d0
200
+	bne.s	L0001d6
201
+	move.b	#$40,(a0)+		;'@'
202
+L0001fe:
203
+	subq.l	#1,a1
204
+L000200:
205
+	clr.b	(a0)
206
+	rts
207
+
208
+L000204:
209
+	bsr.w	L0003f6
210
+	tst.b	(L000896)
211
+	bne.s	L000218
212
+	tst.b	(L000897)
213
+	beq.s	L000266
214
+L000218:
215
+	move.w	#$00ff,-(sp)
216
+	pea.l	(L0008fe)
217
+	pea.l	(L00095a)
218
+	DOS	_FILES
219
+	lea.l	($000a,sp),sp
220
+	clr.l	d1
221
+	cmp.l	#$fffffffe,d0
222
+	beq.s	L000250
223
+	cmp.l	#$ffffffee,d0
224
+	beq.s	L000250
225
+	tst.l	d0
226
+	bne.w	L00039e
227
+	move.l	(L000970),d1
228
+	swap.w	d1
229
+	bra.s	L00025a
230
+
231
+L000250:
232
+	tst.b	(L000896)
233
+	bne.w	L00039e
234
+L00025a:
235
+	move.l	($0016,a6),d0
236
+	swap.w	d0
237
+	cmp.l	d0,d1
238
+	bcc.w	L00039e
239
+L000266:
240
+	pea.l	(L0007f8)
241
+	DOS	_PRINT
242
+	pea.l	(L0008a2)
243
+	DOS	_PRINT
244
+	tst.b	(L000898)
245
+	beq.s	L000290
246
+	pea.l	(L0007fe)
247
+	DOS	_PRINT
248
+	pea.l	(L0008fe)
249
+	DOS	_PRINT
250
+	addq.l	#8,sp
251
+L000290:
252
+	pea.l	(L000800)
253
+	DOS	_PRINT
254
+	lea.l	($000c,sp),sp
255
+L00029c:
256
+	bra.s	L0002ac
257
+
258
+L00029e:
259
+	bsr.w	L0001aa
260
+	bsr.w	L00012e
261
+	bsr.w	L0003f6
262
+	bra.s	L00029c
263
+
264
+L0002ac:
265
+	tst.b	(L000898)
266
+	bne.w	L00039e
267
+	clr.w	d4
268
+	clr.w	-(sp)
269
+	pea.l	(L0008a2)
270
+	DOS	_OPEN
271
+	addq.l	#6,sp
272
+	tst.l	d0
273
+	bmi.w	L000374
274
+	move.w	d0,d2
275
+	bsr.w	L0003a2
276
+	move.w	($00ee,a6),d0
277
+	move.b	($0015,a6),d0
278
+	move.w	d0,-(sp)
279
+	pea.l	(L0008fe)
280
+	DOS	_CREATE
281
+	addq.l	#6,sp
282
+	tst.l	d0
283
+	bmi.s	L000336
284
+	move.w	d0,d3
285
+	move.l	sp,d7
286
+	sub.l	#$00000040,d7
287
+	sub.l	#End,d7
288
+L0002f8:
289
+	move.l	d7,-(sp)
290
+	pea.l	(End)
291
+	move.w	d2,-(sp)
292
+	DOS	_READ
293
+	lea.l	($000a,sp),sp
294
+	tst.l	d0
295
+	bmi.s	L000358
296
+	beq.s	L000378
297
+	move.l	d0,d1
298
+	move.l	d1,-(sp)
299
+	pea.l	(End)
300
+	move.w	d3,-(sp)
301
+	DOS	_WRITE
302
+	lea.l	($000a,sp),sp
303
+	tst.l	d0
304
+	bmi.s	L000328
305
+	cmp.l	d0,d1
306
+	beq.s	L0002f8
307
+L000328:
308
+	movem.l	d0,-(sp)
309
+	bsr.s	L000358
310
+	movem.l	(sp)+,d0
311
+	bra.w	L00029e
312
+
313
+L000336:
314
+	movem.l	d0,-(sp)
315
+	bsr.s	L00036e
316
+	movem.l	(sp)+,d0
317
+	cmp.l	#$ffffffe9,d0
318
+	beq.w	L00029e
319
+	cmp.l	#$ffffffe8,d0
320
+	beq.w	L00029e
321
+	moveq.l	#$ff,d1
322
+	rts
323
+
324
+L000358:
325
+	move.w	d3,-(sp)
326
+	DOS	_CLOSE
327
+	addq.l	#2,sp
328
+	bsr.s	L0003a2
329
+	pea.l	(L0008fe)
330
+	DOS	_DELETE
331
+	addq.l	#4,sp
332
+	bra.w	L00036e
333
+
334
+L00036e:
335
+	move.w	d2,-(sp)
336
+	DOS	_CLOSE
337
+	addq.l	#2,sp
338
+L000374:
339
+	moveq.l	#$ff,d1
340
+	rts
341
+
342
+L000378:
343
+	clr.l	-(sp)
344
+	move.w	d2,-(sp)
345
+	DOS	_FILEDATE
346
+	addq.l	#6,sp
347
+	swap.w	d0
348
+	cmp.w	#$ffff,d0
349
+	beq.s	L000358
350
+	swap.w	d0
351
+	move.l	d0,-(sp)
352
+	move.w	d3,-(sp)
353
+	DOS	_FILEDATE
354
+	addq.l	#6,sp
355
+	move.w	d3,-(sp)
356
+	DOS	_CLOSE
357
+	addq.l	#2,sp
358
+	move.w	d2,-(sp)
359
+	DOS	_CLOSE
360
+	addq.l	#2,sp
361
+L00039e:
362
+	clr.l	d1
363
+	rts
364
+
365
+L0003a2:
366
+	move.w	#$ffff,-(sp)
367
+	pea.l	(L0008fe)
368
+	DOS	_CHMOD
369
+	addq.l	#6,sp
370
+	tst.l	d0
371
+	bmi.s	L0003c4
372
+	and.w	#$00f8,d0
373
+	move.w	d0,-(sp)
374
+	pea.l	(L0008fe)
375
+	DOS	_CHMOD
376
+	addq.l	#6,sp
377
+L0003c4:
378
+	rts
379
+
380
+L0003c6:
381
+	bsr.s	L0003f6
382
+	lea.l	(L0008a2),a0
383
+	bsr.w	L000516
384
+	move.b	#$5c,(a0)+		;'\'
385
+	move.b	#$2a,(a0)+		;'*'
386
+	move.b	#$2e,(a0)+		;'.'
387
+	move.b	#$2a,(a0)+		;'*'
388
+	clr.b	(a0)
389
+	lea.l	(L0008fe),a0
390
+	bsr.w	L000516
391
+	move.b	#$5c,(a0)+		;'\'
392
+	clr.b	(a0)
393
+	rts
394
+
395
+L0003f6:
396
+	lea.l	(L0008a2),a0
397
+	lea.l	($0036,a6),a1
398
+	bsr.w	L00051e
399
+	lea.l	($001e,a6),a1
400
+	bsr.w	L00051e
401
+	lea.l	(L0008fe),a0
402
+	lea.l	($0092,a6),a1
403
+	bsr.w	L00051e
404
+	lea.l	($001e,a6),a1
405
+	bsr.w	L00051e
406
+	lea.l	(L0008fe),a0
407
+L000428:
408
+	tst.b	(L000899)
409
+	beq.s	L000456
410
+L000430:
411
+	move.b	(a0)+,d0
412
+	beq.s	L000456
413
+	cmp.b	#$61,d0			;'a'
414
+	bcs.s	L000430
415
+	cmp.b	#$7b,d0			;'{'
416
+	bcs.s	L000458
417
+	cmp.b	#$81,d0
418
+	bcs.s	L000430
419
+	cmp.b	#$a0,d0
420
+	bcs.s	L000452
421
+	cmp.b	#$e0,d0
422
+	bcs.s	L000430
423
+L000452:
424
+	move.b	(a0)+,d0
425
+	bne.s	L000430
426
+L000456:
427
+	rts
428
+
429
+L000458:
430
+	sub.b	#$20,d0			;' '
431
+	move.b	d0,(-$0001,a0)
432
+	bra.s	L000430
433
+
434
+L000462:
435
+	move.w	($001e,a6),d0
436
+	cmp.w	#$2e00,d0
437
+	beq.s	L00048e
438
+	cmp.w	#$2e2e,d0		;'..'
439
+	beq.s	L00048e
440
+	move.b	($0015,a6),d0
441
+	btst.l	#$03,d0
442
+	bne.s	L00048e
443
+	tst.b	(L00089b)
444
+	beq.s	L00048a
445
+	btst.l	#$02,d0
446
+	bne.s	L00048e
447
+L00048a:
448
+	tst.w	d0
449
+	rts
450
+
451
+L00048e:
452
+	clr.l	d0
453
+	rts
454
+
455
+L000492:
456
+	pea.l	($0036,a6)
457
+	pea.l	(L0008a2)
458
+	DOS	_NAMECK
459
+	addq.l	#8,sp
460
+	tst.l	d0
461
+	bmi.s	L000506
462
+	pea.l	($0092,a6)
463
+	pea.l	(L0008fe)
464
+	DOS	_NAMECK
465
+	addq.l	#8,sp
466
+	tst.l	d0
467
+	bmi.s	L000506
468
+	cmp.l	#$000000ff,d0
469
+	beq.s	L0004e2
470
+	tst.l	d0
471
+	bne.s	L000504
472
+	lea.l	($0092,a6),a0
473
+	bsr.s	L000516
474
+	lea.l	($00d5,a6),a1
475
+	bsr.s	L00051e
476
+	lea.l	($00e8,a6),a1
477
+	bsr.s	L00051e
478
+	move.b	#$5c,(a0)+		;'\'
479
+	clr.b	(a0)+
480
+	clr.b	($00d5,a6)
481
+	clr.b	($00e8,a6)
482
+L0004e2:
483
+	move.b	($0036,a6),d0
484
+	cmp.b	($0092,a6),d0
485
+	beq.s	L000504
486
+	move.w	#$00ff,-(sp)
487
+	pea.l	(L0008a2)
488
+	pea.l	($0000.w,a6)
489
+	DOS	_FILES
490
+	lea.l	($000a,sp),sp
491
+	tst.l	d0
492
+	rts
493
+
494
+L000504:
495
+	moveq.l	#$ff,d0
496
+L000506:
497
+	rts
498
+
499
+L000508:
500
+	pea.l	($0000.w,a6)
501
+	DOS	_NFILES
502
+	lea.l	($0004,sp),sp
503
+	tst.l	d0
504
+	rts
505
+
506
+L000516:
507
+	tst.b	(a0)+
508
+	bne.s	L000516
509
+	subq.l	#1,a0
510
+	rts
511
+
512
+L00051e:
513
+	move.b	(a1)+,(a0)+
514
+	bne.s	L00051e
515
+	subq.l	#1,a0
516
+	rts
517
+
518
+L000526:
519
+	move.b	(a2)+,d0
520
+	beq.s	L00055c
521
+	cmp.b	#$20,d0			;' '
522
+	beq.s	L000526
523
+	cmp.b	#$09,d0
524
+	beq.s	L000526
525
+	cmp.b	#$2d,d0			;'-'
526
+	beq.s	L000542
527
+	cmp.b	#$2f,d0			;'/'
528
+	bne.s	L00054a
529
+L000542:
530
+	move.b	(a2)+,d0
531
+	beq.s	L00055c
532
+	bsr.s	L00058a
533
+	bra.s	L000526
534
+
535
+L00054a:
536
+	move.b	d0,(a0)+
537
+	move.b	(a2)+,d0
538
+	beq.s	L00055c
539
+	cmp.b	#$20,d0			;' '
540
+	beq.s	L00055c
541
+	cmp.b	#$09,d0
542
+	bne.s	L00054a
543
+L00055c:
544
+	clr.b	(a0)
545
+	subq.l	#1,a2
546
+	rts
547
+
548
+L000562:
549
+	move.b	(a2)+,d0
550
+	beq.s	L000586
551
+	cmp.b	#$20,d0			;' '
552
+	beq.s	L000562
553
+	cmp.b	#$09,d0
554
+	beq.s	L000562
555
+	cmp.b	#$2d,d0			;'-'
556
+	beq.s	L00057e
557
+	cmp.b	#$2f,d0			;'/'
558
+	bne.s	L000562
559
+L00057e:
560
+	move.b	(a2)+,d0
561
+	beq.s	L000586
562
+	bsr.s	L00058a
563
+	bra.s	L000562
564
+
565
+L000586:
566
+	subq.l	#1,a2
567
+	rts
568
+
569
+L00058a:
570
+	or.b	#$20,d0
571
+	cmp.b	#$64,d0			;'d'
572
+	beq.s	L0005c0
573
+	cmp.b	#$6e,d0			;'n'
574
+	beq.s	L0005ca
575
+	cmp.b	#$74,d0			;'t'
576
+	beq.s	L0005d4
577
+	cmp.b	#$76,d0			;'v'
578
+	beq.s	L0005de
579
+	cmp.b	#$75,d0			;'u'
580
+	beq.s	L0005e8
581
+	cmp.b	#$71,d0			;'q'
582
+	beq.s	L0005f2
583
+	cmp.b	#$73,d0			;'s'
584
+	beq.s	L0005fc
585
+	cmp.b	#$63,d0			;'c'
586
+	beq.s	L000606
587
+	rts
588
+
589
+L0005c0:
590
+	move.b	#$01,(L000895)
591
+	rts
592
+
593
+L0005ca:
594
+	move.b	#$01,(L000896)
595
+	rts
596
+
597
+L0005d4:
598
+	move.b	#$01,(L000897)
599
+	rts
600
+
601
+L0005de:
602
+	move.b	#$01,(L000898)
603
+	rts
604
+
605
+L0005e8:
606
+	move.b	#$01,(L000899)
607
+	rts
608
+
609
+L0005f2:
610
+	move.b	#$01,(L00089a)
611
+	rts
612
+
613
+L0005fc:
614
+	move.b	#$01,(L00089b)
615
+	rts
616
+
617
+L000606:
618
+	cmpi.w	#$020e,(L00089e)
619
+	bcc.s	L00061a
620
+	pea.l	(L0007d0,pc)
621
+	DOS	_PRINT
622
+	addq.l	#4,sp
623
+	rts
624
+
625
+L00061a:
626
+	move.b	#$01,(L00089c)
627
+	rts
628
+
629
+
630
+	.data
631
+
632
+L000624:
633
+	.dc.b	'X68k Copyall v1.20 Copyright 1989-93 SHARP/Hudson',$0d,$0a,$00
634
+L000658:
635
+	.dc.b	'使用法:copyall [スイッチ] 転送元ファイル名 転送先パス名',$0d,$0a
636
+	.dc.b	$09,'/d',$09,'サブディレクトリはコピーしない (copy)',$0d,$0a
637
+	.dc.b	$09,'/t',$09,'転送元が新しい場合のみコピーする(tar)',$0d,$0a
638
+	.dc.b	$09,'/n',$09,'転送先が古い場合のみコピーする(tar/n)',$0d,$0a
639
+	.dc.b	$09,'/u',$09,'ファイル名を大文字にしてコピーします',$0d,$0a
640
+	.dc.b	$09,'/v',$09,'チェックのみで実際は転送しない',$0d,$0a
641
+	.dc.b	$09,'/s',$09,'システムファイルはコピーしない',$0d,$0a,$00
642
+L000786:
643
+	.dc.b	'/c',$09,'転送先のファイルの存在をチェックをしない',$0d,$0a
644
+	.dc.b	$09,'/q',$09,'起動後、実行確認をする',$0d,$0a,$00
645
+L0007d0:
646
+	.dc.b	'このOSでは、/cオプションは無効です。',$0d,$0a
647
+L0007f8:
648
+	.dc.b	'copy ',$00
649
+L0007fe:
650
+	.dc.b	$20,$00
651
+L000800:
652
+	.dc.b	$0d,$0a,$00
653
+L000803:
654
+	.dc.b	'mkdir ',$00
655
+L00080a:
656
+	.dc.b	'ディスクがいっぱいです、入れ替えてください(CTRL-Cで中止)',$00
657
+L000843:
658
+	.dc.b	'コピーできませんでした',$0d,$0a,$00
659
+L00085c:
660
+	.dc.b	'ディスクをセットして何かキーを押して下さい(CTRL-Cで中止)',$00
661
+L000895:
662
+	.dc.b	$00
663
+L000896:
664
+	.dc.b	$00
665
+L000897:
666
+	.dc.b	$00
667
+L000898:
668
+	.dc.b	$00
669
+L000899:
670
+	.dc.b	$00
671
+L00089a:
672
+	.dc.b	$00
673
+L00089b:
674
+	.dc.b	$00
675
+L00089c:
676
+	.dc.b	$00,$00
677
+
678
+	.bss
679
+
680
+L00089e:
681
+	.ds.w	1
682
+L0008a0:
683
+	.ds.w	1
684
+L0008a2:
685
+	.ds.b	92
686
+L0008fe:
687
+	.ds.b	92
688
+L00095a:
689
+	.ds.b	22
690
+L000970:
691
+	.ds.b	32
692
+End:
693
+
694
+	.end	Start

BIN
copyall.x View File


+ 184
- 0
find.lab View File

@@ -0,0 +1,184 @@
1
+*********************************************
2
+*
3
+*  Label file for find.x
4
+*
5
+*	DIS version 3.16
6
+*
7
+*********************************************
8
+000000	P	Start
9
+00008a	P
10
+000092	P
11
+0000c0	P
12
+0000ca	P
13
+0000d4	P
14
+0000de	P
15
+0000e8	P
16
+000106	P
17
+000108	P
18
+000126	P
19
+00014e	P
20
+0001be	P
21
+0001d6	P
22
+0001da	P
23
+000206	P
24
+000216	P
25
+000224	P
26
+00028a	P
27
+00028e	P
28
+0002aa	P
29
+0002b2	P
30
+0002ba	P
31
+0002c2	P
32
+0002c8	P
33
+0002de	P
34
+0002e2	P
35
+0002ea	P
36
+000314	P
37
+000318	P
38
+00031c	P
39
+000356	P
40
+00035a	P
41
+000376	P
42
+00037e	P
43
+000382	P
44
+000388	P
45
+00038e	P
46
+000398	P
47
+00039c	P
48
+0003e0	P
49
+0003ec	P
50
+000418	P
51
+000426	P
52
+000428	P
53
+0004b0	P
54
+0004b2	P
55
+0004b8	P
56
+0004d0	P
57
+0004e2	P
58
+0004e6	P
59
+0004e8	P
60
+0004f0	P
61
+0004fe	P
62
+000504	P
63
+000510	P
64
+000530	P
65
+000534	P
66
+000544	P
67
+000546	P
68
+00055e	P
69
+000562	P
70
+00056c	P
71
+000570	P
72
+00057e	P
73
+000584	P
74
+000590	P
75
+0005a2	P
76
+0005a6	P
77
+0005aa	P
78
+0005ba	P
79
+0005be	P
80
+0005c4	P
81
+0005ca	P
82
+0005ce	P
83
+0005d6	P
84
+0005dc	P
85
+0005de	P
86
+0005e6	P
87
+000602	P
88
+00061a	P
89
+000620	P
90
+000632	P
91
+000638	P
92
+00065a	P
93
+000686	P
94
+000692	P
95
+000694	P
96
+0006a6	P
97
+0006c2	P
98
+0006ca	P
99
+0006d6	P
100
+0006e8	P
101
+0006f2	P
102
+00070e	P
103
+000712	P
104
+00071e	P
105
+00072c	P
106
+000730	P
107
+000738	P
108
+00073c	P
109
+000742	P
110
+000752	P
111
+000754	P
112
+00075c	P
113
+000764	P
114
+000770	P
115
+000782	P
116
+000788	P
117
+000794	P
118
+000798	P
119
+0007a0	P
120
+0007a8	P
121
+0007b0	P
122
+0007b2	P
123
+0007b4	P
124
+0007c4	P
125
+0007e4	P
126
+0007e6	P
127
+00081e	P
128
+000824	P
129
+000836	P
130
+00083c	P
131
+000866	P
132
+0008a2	P
133
+0008a8	P
134
+0008b2	P
135
+0008b4	P
136
+0008c8	P
137
+0008d6	P
138
+0008dc	P
139
+0008ec	P
140
+0008f2	P
141
+000908	P
142
+00090e	P
143
+00092a	DL
144
+000956	DS
145
+000b91	DS
146
+000ba6	DS
147
+000bbb	DS
148
+000be0	DS
149
+000c01	DS
150
+000c1c	DS
151
+000c37	DS
152
+000c4d	DS
153
+000c63	DS
154
+000c7a	DL
155
+000c7e	DL
156
+000c82	DL
157
+000c86	DL
158
+000c8a	DL
159
+000c8e	DW
160
+000c90	DW
161
+000c92	DU
162
+000daa	DU
163
+000ec2	DB
164
+000fda	DB
165
+0010f2	DB
166
+00120a	DU
167
+001228	DU
168
+001246	DB
169
+001247	DB
170
+001248	DB
171
+001249	DB
172
+00124a	DB
173
+00124b	DU
174
+00124e	DU
175
+00124f	DU
176
+001255	DB
177
+001256	DB
178
+001257	DB
179
+001259	DB
180
+001461	DU
181
+001669	DU
182
+001a69	DU
183
+00226a	DU
184
+00226c	DU	End

+ 1037
- 0
find.s
File diff suppressed because it is too large
View File


BIN
find.x View File


+ 197
- 0
pr.lab View File

@@ -0,0 +1,197 @@
1
+*********************************************
2
+*
3
+*  Label file for pr.x
4
+*
5
+*	DIS version 3.16
6
+*
7
+*********************************************
8
+000000	P	Start
9
+000024	P
10
+00002a	P
11
+000030	P
12
+000034	P
13
+00003e	DSF
14
+000167	DS
15
+00018a	DSF
16
+0001aa	P
17
+0001fc	P
18
+000202	P
19
+00020c	P
20
+000238	P
21
+000256	P
22
+000260	P
23
+00026a	P
24
+000274	P
25
+000288	P
26
+0002a2	P
27
+0002ac	P
28
+0002de	P
29
+0002e6	P
30
+0002f2	P
31
+0002f6	P
32
+000326	P
33
+000346	P
34
+00035e	P
35
+00037c	DSF
36
+000382	P
37
+00038a	P
38
+0003ea	DSF
39
+0003ee	DS
40
+0003f2	DS
41
+0003f6	DS
42
+0003fa	DS
43
+0003fe	DS
44
+000402	DS
45
+000406	DS
46
+00040a	DS
47
+00040e	DS
48
+000412	DS
49
+000416	DS
50
+00041a	P
51
+000428	P
52
+000446	P
53
+00045e	P
54
+000462	P
55
+000482	DUF
56
+000484	P
57
+000488	P
58
+000498	P
59
+0004be	P
60
+0004d6	P
61
+0004e6	P
62
+0004f2	P
63
+0004fc	P
64
+000518	P
65
+000526	P
66
+00052a	P
67
+000536	P
68
+00054c	P
69
+00055c	DW
70
+000564	P
71
+000588	P
72
+00058e	P
73
+000594	P
74
+0005a4	P
75
+0005aa	P
76
+0005b0	P
77
+0005c2	P
78
+0005c8	P
79
+000602	P
80
+000610	P
81
+000612	P
82
+000622	P
83
+000624	P
84
+000656	P
85
+000668	P
86
+000674	P
87
+000676	P
88
+00068c	P
89
+000698	P
90
+0006aa	P
91
+0006ac	P
92
+0006c0	P
93
+0006d0	DUF
94
+0006fc	P
95
+000704	P
96
+00070c	P
97
+000712	P
98
+000718	P
99
+000724	P
100
+00072e	P
101
+000738	P
102
+00075c	P
103
+000764	P
104
+00076e	P
105
+000772	P
106
+000788	P
107
+000792	P
108
+0007a2	P
109
+0007a4	P
110
+0007b2	P
111
+0007b8	P
112
+0007ee	P
113
+0007f2	P
114
+0007fe	P
115
+000816	P
116
+00081e	P
117
+000832	P
118
+000846	P
119
+00086c	P
120
+000870	P
121
+00087e	P
122
+000890	P
123
+0008b8	P
124
+0008d0	P
125
+0008f2	P
126
+000908	P
127
+000910	P
128
+000920	P
129
+00092c	P
130
+00092e	P
131
+00093a	P
132
+00094c	P
133
+00097c	P
134
+000984	P
135
+000988	P
136
+00099c	P
137
+0009a0	P
138
+0009ac	P
139
+0009be	P
140
+0009c6	P
141
+0009ca	P
142
+0009cc	P
143
+0009d2	P
144
+0009dc	P
145
+000a04	P
146
+000a1c	P
147
+000a20	P
148
+000a2e	P
149
+000a34	P
150
+000a58	P
151
+000a78	P
152
+000a7a	P
153
+000a8c	DSF
154
+000aa2	P
155
+000aaa	P
156
+000ab2	P
157
+000ac6	P
158
+000ad0	P
159
+000ade	P
160
+000aec	P
161
+000afa	P
162
+000b00	P
163
+000b46	P
164
+000b54	P
165
+000b58	P
166
+000b68	P
167
+000b6c	DU
168
+000d74	DU
169
+000f7c	DU
170
+000f92	DL
171
+000f9a	DU
172
+000fbc	DU
173
+00103c	DU
174
+0010bc	DU
175
+0010bd	DU
176
+0010c6	DW
177
+0010c8	DW
178
+00110a	DW
179
+00114c	DB
180
+0011ce	DW
181
+0011d0	DW
182
+0011d2	DW
183
+0011d4	DW
184
+0011d6	DW
185
+0011d8	DW
186
+0011da	DW
187
+0011dc	DW
188
+0011de	DW
189
+0011e0	DW
190
+0011e2	DW
191
+0011e4	DL
192
+0011e8	DL
193
+0011ec	DL
194
+0011f0	DL
195
+0011f4	DU
196
+001604	DU
197
+001c16	DU	End

+ 1137
- 0
pr.s
File diff suppressed because it is too large
View File


BIN
pr.x View File


+ 45
- 0
sys.lab View File

@@ -0,0 +1,45 @@
1
+*********************************************
2
+*
3
+*  Label file for sys.x
4
+*
5
+*	DIS version 3.16
6
+*
7
+*********************************************
8
+000000	P	Start
9
+00002c	P
10
+0000a8	P
11
+0000b0	P
12
+0000de	P
13
+0000f2	P
14
+0000fa	P
15
+000100	P
16
+00010a	P
17
+000156	P
18
+000164	P
19
+000194	P
20
+0001aa	P
21
+0001bc	P
22
+0001f2	P
23
+0001f8	P
24
+0001fc	P
25
+000202	P
26
+000204	P
27
+000224	P
28
+000228	P
29
+00024c	DB
30
+00024d	DB
31
+00024e	DB
32
+00024f	DB
33
+000256	DSF
34
+000271	DS
35
+00029a	DSF
36
+000316	DSF
37
+000341	DS
38
+000366	DSF
39
+000388	DU
40
+00039e	DB
41
+0003e6	DU
42
+0003fb	DB
43
+000404	DU
44
+00081c	DU	StackBottom
45
+01081c	DU	StackTop

+ 292
- 0
sys.s View File

@@ -0,0 +1,292 @@
1
+;=============================================
2
+;  Filename sys.x
3
+;
4
+;
5
+;  Base address 000000
6
+;  Exec address 000000
7
+;  Text size    000388 byte(s)
8
+;  Data size    000000 byte(s)
9
+;  Bss  size    010494 byte(s)
10
+;  38 Labels
11
+;
12
+;  Commandline dis  -b2 -h -m68000 --sp -q1 -B -M -o120 -gsys.lab --overwrite sys.x sys.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	(StackBottom),sp
26
+	move.l	($0008,a0),d7
27
+	sub.l	sp,d7
28
+	DOS	_CURDRV
29
+	move.w	d0,-(sp)
30
+	DOS	_CHGDRV
31
+	move.b	d0,(L00024c)
32
+	move.w	(sp)+,d0
33
+	add.w	#$0041,d0
34
+	move.b	d0,(L00024d)
35
+	move.b	d0,(L00024f)
36
+	addq.l	#1,a2
37
+L00002c:
38
+	move.b	(a2)+,d1
39
+	beq.w	L0000fa
40
+	cmp.b	#$20,d1			;' '
41
+	beq.s	L00002c
42
+	and.w	#$00df,d1
43
+	cmp.b	#$41,d1			;'A'
44
+	bcs.w	L0000fa
45
+	cmp.b	#$5a,d1			;'Z'
46
+	bhi.w	L0000fa
47
+	and.w	#$001f,d1
48
+	cmp.b	(L00024c),d1
49
+	bhi.w	L0000fa
50
+	move.w	d1,d0
51
+	add.w	#$0040,d0
52
+	move.b	d0,(L00024e)
53
+	cmp.b	(L00024d),d0
54
+	beq.w	L0000fa
55
+	sub.w	#$0040,d0
56
+	pea.l	(L000388)
57
+	move.w	d0,-(sp)
58
+	DOS	_GETDPB
59
+	addq.l	#6,sp
60
+	tst.l	d0
61
+	bmi.s	L0000a8
62
+	move.b	(L00039e),d0
63
+	cmp.b	#$fe,d0
64
+	beq.s	L0000b0
65
+	cmp.b	#$f8,d0
66
+	beq.s	L0000b0
67
+	cmp.b	#$f9,d0
68
+	beq.s	L0000b0
69
+	cmp.b	#$f7,d0
70
+	beq.s	L0000b0
71
+	cmp.b	#$f6,d0
72
+	beq.s	L0000b0
73
+L0000a8:
74
+	pea.l	(L000366)
75
+	bra.s	L000100
76
+
77
+L0000b0:
78
+	move.w	#$0004,-(sp)
79
+	pea.l	(L00024f)
80
+	pea.l	(L0003e6)
81
+	DOS	_FILES
82
+	lea.l	($000a,sp),sp
83
+	tst.l	d0
84
+	bmi.s	L0000f2
85
+	move.w	#$0a00,d0
86
+	move.b	(L00024e),d0
87
+	sub.w	#$0040,d0
88
+	move.w	d0,-(sp)
89
+	DOS	_DRVCTRL
90
+	addq.l	#2,sp
91
+L0000de:
92
+	bsr.s	L00010a
93
+	pea.l	(L0003e6)
94
+	DOS	_NFILES
95
+	lea.l	($0004,sp),sp
96
+	tst.l	d0
97
+	bpl.s	L0000de
98
+	DOS	_EXIT
99
+
100
+L0000f2:
101
+	pea.l	(L000316)
102
+	bra.s	L000100
103
+
104
+L0000fa:
105
+	pea.l	(L00029a)
106
+L000100:
107
+	DOS	_PRINT
108
+	addq.l	#4,sp
109
+	move.w	#$0001,-(sp)
110
+	DOS	_EXIT2
111
+
112
+L00010a:
113
+	clr.w	d4
114
+	move.b	(L0003fb),d4
115
+	lea.l	(L000404),a0
116
+	move.b	#$5c,-(a0)		;'\'
117
+	move.b	#$3a,-(a0)		;':'
118
+	move.b	(L00024d),-(a0)
119
+	clr.w	-(sp)
120
+	move.l	a0,-(sp)
121
+	DOS	_OPEN
122
+	addq.l	#6,sp
123
+	tst.l	d0
124
+	bmi.w	L000202
125
+	move.w	d0,d2
126
+	move.b	(L00024e),(a0)
127
+	move.w	#$ffff,-(sp)
128
+	move.l	a0,-(sp)
129
+	DOS	_CHMOD
130
+	addq.l	#6,sp
131
+	tst.l	d0
132
+	bmi.s	L000156
133
+	and.w	#$00fb,d0
134
+	move.w	d0,-(sp)
135
+	move.l	a0,-(sp)
136
+	DOS	_CHMOD
137
+	addq.l	#6,sp
138
+L000156:
139
+	move.w	d4,-(sp)
140
+	move.l	a0,-(sp)
141
+	DOS	_CREATE
142
+	addq.l	#6,sp
143
+	tst.l	d0
144
+	bmi.s	L0001aa
145
+	move.w	d0,d3
146
+L000164:
147
+	move.l	d7,-(sp)
148
+	pea.l	(StackBottom)
149
+	move.w	d2,-(sp)
150
+	DOS	_READ
151
+	lea.l	($000a,sp),sp
152
+	tst.l	d0
153
+	bmi.s	L000194
154
+	beq.s	L0001bc
155
+	move.l	d0,d1
156
+	move.l	d1,-(sp)
157
+	pea.l	(StackBottom)
158
+	move.w	d3,-(sp)
159
+	DOS	_WRITE
160
+	lea.l	($000a,sp),sp
161
+	tst.l	d0
162
+	bmi.s	L000194
163
+	cmp.l	d0,d1
164
+	beq.s	L000164
165
+L000194:
166
+	move.w	d3,-(sp)
167
+	DOS	_CLOSE
168
+	addq.l	#2,sp
169
+	move.w	#$0020,-(sp)		;' '
170
+	move.l	a0,-(sp)
171
+	DOS	_CHMOD
172
+	addq.l	#6,sp
173
+	move.l	a0,-(sp)
174
+	DOS	_DELETE
175
+	addq.l	#4,sp
176
+L0001aa:
177
+	move.l	a0,-(sp)
178
+	DOS	_PRINT
179
+	addq.l	#4,sp
180
+	pea.l	(L000256)
181
+	DOS	_PRINT
182
+	addq.l	#4,sp
183
+	bra.s	L0001fc
184
+
185
+L0001bc:
186
+	clr.l	-(sp)
187
+	move.w	d2,-(sp)
188
+	DOS	_FILEDATE
189
+	addq.l	#6,sp
190
+	swap.w	d0
191
+	cmp.w	#$ffff,d0
192
+	beq.s	L000194
193
+	swap.w	d0
194
+	move.l	d0,-(sp)
195
+	move.w	d3,-(sp)
196
+	DOS	_FILEDATE
197
+	addq.l	#6,sp
198
+	move.w	d3,-(sp)
199
+	DOS	_CLOSE
200
+	addq.l	#2,sp
201
+	bsr.s	L000204
202
+	move.l	d0,-(sp)
203
+	move.l	a0,-(sp)
204
+	DOS	_PRINT
205
+	addq.l	#4,sp
206
+	move.l	(sp)+,d0
207
+	beq.s	L0001f2
208
+	pea.l	(L000271)
209
+	bra.s	L0001f8
210
+
211
+L0001f2:
212
+	pea.l	(L000341)
213
+L0001f8:
214
+	DOS	_PRINT
215
+	addq.l	#4,sp
216
+L0001fc:
217
+	move.w	d2,-(sp)
218
+	DOS	_CLOSE
219
+	addq.l	#2,sp
220
+L000202:
221
+	rts
222
+
223
+L000204:
224
+	DOS	_VERNUM
225
+	cmp.w	#$0150,d0
226
+	bcc.s	L000228
227
+	pea.l	(StackBottom)
228
+	move.l	a0,-(sp)
229
+	DOS	_FATCHK
230
+	addq.l	#8,sp
231
+	cmp.l	#$00000008,d0
232
+	beq.s	L000224
233
+	moveq.l	#$ff,d0
234
+	rts
235
+
236
+L000224:
237
+	clr.l	d0
238
+	rts
239
+
240
+L000228:
241
+	move.w	#$fffe,-(sp)
242
+	move.l	#StackBottom,d0
243
+	bset.l	#$1f,d0
244
+	move.l	d0,-(sp)
245
+	move.l	a0,-(sp)
246
+	DOS	_FATCHK
247
+	lea.l	($000a,sp),sp
248
+	cmp.l	#$0000000e,d0
249
+	beq.s	L000224
250
+	moveq.l	#$ff,d0
251
+	rts
252
+
253
+L00024c:
254
+	.dc.b	$02
255
+L00024d:
256
+	.dc.b	$41
257
+L00024e:
258
+	.dc.b	$42
259
+L00024f:
260
+	.dc.b	$41,$3a,$5c,$2a,$2e,$2a,$00
261
+L000256:
262
+	.dc.b	' は転送できませんでした',$0d,$0a,$00
263
+L000271:
264
+	.dc.b	' は連続したFATに転送されていません',$0d,$0a,$00
265
+L00029a:
266
+	.dc.b	'X68k SystemCopy v2.10 Copyright 1987-90 SHARP/Hudson',$0d,$0a
267
+	.dc.b	'使用法:sys ドライブ名',$0d,$0a
268
+	.dc.b	$09,'システム属性のついたファイルをコピーします',$0d,$0a,$00
269
+L000316:
270
+	.dc.b	'システム属性のついたファイルはありません',$0d,$0a,$00
271
+L000341:
272
+	.dc.b	' は連続したFATに転送されました',$0d,$0a,$00
273
+L000366:
274
+	.dc.b	'このドライブには転送できません',$0d,$0a,$00,$00
275
+
276
+	.bss
277
+
278
+L000388:
279
+	.ds.b	22
280
+L00039e:
281
+	.ds.b	72
282
+L0003e6:
283
+	.ds.b	21
284
+L0003fb:
285
+	.ds.b	9
286
+L000404:
287
+	.ds.b	1048
288
+StackBottom:
289
+	.ds.b	65536
290
+StackTop:
291
+
292
+	.end	Start

BIN
sys.x View File


+ 64
- 0
tree.lab View File

@@ -0,0 +1,64 @@
1
+*********************************************
2
+*
3
+*  Label file for tree.x
4
+*
5
+*	DIS version 3.16
6
+*
7
+*********************************************
8
+000000	P	Start
9
+000020	P
10
+000030	DSF
11
+00009e	P
12
+0000ba	P
13
+0000c8	P
14
+0000e0	P
15
+0000ec	P
16
+000100	P
17
+00012a	P
18
+000146	P
19
+000150	P
20
+000158	P
21
+000162	P
22
+000178	P
23
+00018a	P
24
+000196	P
25
+000198	P
26
+00019a	P
27
+00019e	P
28
+0001a4	P
29
+0001b0	P
30
+0001c4	P
31
+0001d6	P
32
+0001e2	P
33
+0001e4	P
34
+0001fa	P
35
+000204	P
36
+000214	P
37
+000216	P
38
+000228	P
39
+000238	DW
40
+000240	P
41
+00024a	P
42
+000254	P
43
+000264	P
44
+000266	P
45
+000274	P
46
+00027a	P
47
+000288	P
48
+000296	P
49
+0002c2	P
50
+0002c6	P
51
+0002ca	P
52
+0002da	P
53
+0002e2	P
54
+0002ea	P
55
+0002f2	P
56
+000306	DW
57
+000308	DB
58
+00040c	DB
59
+000510	DW
60
+000512	DW
61
+000514	DU
62
+000574	DL
63
+000578	DL
64
+00157c	DU

+ 334
- 0
tree.s View File

@@ -0,0 +1,334 @@
1
+;=============================================
2
+;  Filename tree.x
3
+;
4