Browse Source

add command.x (cmd.x and commando.x)

vampirefrog 1 year ago
parent
commit
14ed021af9
8 changed files with 11028 additions and 1 deletions
  1. 1
    1
      Makefile
  2. 47
    0
      cmd.lab
  3. 274
    0
      cmd.s
  4. BIN
      cmd.x
  5. BIN
      command.x
  6. 1403
    0
      commando.lab
  7. 9303
    0
      commando.s
  8. BIN
      commando.x

+ 1
- 1
Makefile View File

@@ -6,7 +6,7 @@ else
6 6
 DIS_DEBUG=
7 7
 endif
8 8
 
9
-all: iplrom30.s iplromxv.s human.s process.s bind.s mxdrv17.s mxdrv16.s mopmdrv.s pcm8.s mxp.s mdxp.s
9
+all: iplrom30.s iplromxv.s human.s commando.s cmd.s process.s bind.s mxdrv17.s mxdrv16.s mopmdrv.s pcm8.s mxp.s mdxp.s
10 10
 
11 11
 translations: mxdrv17.en.s
12 12
 

+ 47
- 0
cmd.lab View File

@@ -0,0 +1,47 @@
1
+*********************************************
2
+*
3
+*  Label file for cmd.x
4
+*
5
+*	DIS version 3.16
6
+*
7
+*********************************************
8
+000000	DL
9
+000004	DL
10
+000008	DL
11
+00000c	DS
12
+00001a	P
13
+000096	P
14
+0000ac	P
15
+0000ba	P
16
+0000be	P
17
+0000da	P
18
+0000e2	P
19
+0000ea	P
20
+0000f2	P
21
+0000f8	P
22
+0000fc	P
23
+000116	DS
24
+000139	DS
25
+000152	DS
26
+000171	DS
27
+00018e	P
28
+0001ae	P
29
+0001ba	P
30
+0001bc	P
31
+0001d4	P
32
+0001e6	P
33
+000202	P
34
+000208	P
35
+000210	P
36
+000236	P
37
+000244	P
38
+000252	P
39
+000264	P
40
+000278	P
41
+00027a	P
42
+000280	P
43
+000294	P
44
+0002a0	DU
45
+0003a0	DU
46
+001000	DU
47
+0012a0	DU

+ 274
- 0
cmd.s View File

@@ -0,0 +1,274 @@
1
+;=============================================
2
+;  Filename cmd.x
3
+;  Time Stamp Fri Jan 18 05:42:11 2019
4
+;
5
+;  Base address 000000
6
+;  Exec address 00001a
7
+;  Text size    0002a0 byte(s)
8
+;  Data size    000000 byte(s)
9
+;  Bss  size    001000 byte(s)
10
+;  40 Labels
11
+;
12
+;  Commandline dis  -b2 -h -m68000 --sp -q1 -B -M -p -o120 -gcmd.lab --overwrite cmd.x cmd.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
+	.dc.l	$00000000
26
+L000004:
27
+	.dc.l	$00000000
28
+L000008:
29
+	.dc.l	$00000000
30
+L00000c:
31
+	.dc.b	'Command2.03Hu',$00
32
+L00001a:
33
+	lea.l	(L0012a0),sp
34
+	DOS	_VERNUM
35
+	cmp.w	#$0132,d0
36
+	bcs.w	L0000da
37
+	bsr.w	L000252
38
+	lea.l	(L001000),sp
39
+	move.l	sp,(L000008)
40
+	lea.l	(L0002a0),a0
41
+	lea.l	(L000000-$000080),a1
42
+	bsr.w	L000208
43
+	lea.l	(L000000-$00003c),a1
44
+	bsr.w	L000208
45
+	move.l	d0,-(sp)
46
+	lea.l	(L000000-$0000f0),a0
47
+	lea.l	(L001000),a1
48
+	suba.l	a0,a1
49
+	move.l	a1,-(sp)
50
+	move.l	a0,-(sp)
51
+	DOS	_SETBLOCK
52
+	addq.l	#8,sp
53
+	move.l	(sp)+,d0
54
+	bne.s	L000096
55
+	move.l	#$00ffffff,-(sp)
56
+	DOS	_MALLOC
57
+	sub.l	#$81000000,d0
58
+	move.l	d0,d1
59
+	move.l	d0,(sp)
60
+	DOS	_MALLOC
61
+	addq.l	#4,sp
62
+	tst.l	d0
63
+	bmi.s	L0000ea
64
+	add.l	d0,d1
65
+	move.l	d0,-(sp)
66
+	bsr.w	L00018e
67
+	move.l	(sp)+,d0
68
+	addq.l	#4,d0
69
+L000096:
70
+	move.l	d0,(L000004)
71
+	movea.l	d0,a0
72
+	lea.l	($0012,a0),a2
73
+	bsr.w	L000236
74
+	bne.s	L0000e2
75
+	subq.l	#4,a0
76
+	clr.l	d0
77
+L0000ac:
78
+	tst.l	(a0)
79
+	beq.s	L0000be
80
+	tst.l	($0004,a0)
81
+	beq.s	L0000ba
82
+	add.l	($0010,a0),d0
83
+L0000ba:
84
+	movea.l	(a0),a0
85
+	bra.s	L0000ac
86
+
87
+L0000be:
88
+	move.l	d0,-(sp)
89
+	DOS	_MALLOC
90
+	addq.l	#4,sp
91
+	tst.l	d0
92
+	bmi.s	L0000ea
93
+	move.l	d0,(L000000)
94
+	movea.l	(L000004),a0
95
+	move.l	d0,(a0)
96
+	jmp	($0010,a0)
97
+
98
+L0000da:
99
+	lea.l	(L000171),a0
100
+	bra.s	L0000f8
101
+
102
+L0000e2:
103
+	lea.l	(L000152),a0
104
+	bra.s	L0000f8
105
+
106
+L0000ea:
107
+	lea.l	(L000116),a0
108
+	bra.s	L0000f8
109
+
110
+L0000f2:
111
+	lea.l	(L000139),a0
112
+L0000f8:
113
+	movea.l	a0,a1
114
+	moveq.l	#$ff,d0
115
+L0000fc:
116
+	addq.l	#1,d0
117
+	tst.b	(a0)+
118
+	bne.s	L0000fc
119
+	move.l	d0,-(sp)
120
+	move.l	a1,-(sp)
121
+	move.w	#$0002,-(sp)
122
+	DOS	_WRITE
123
+	lea.l	($000a,sp),sp
124
+	move.w	#$0700,-(sp)
125
+	DOS	_EXIT2
126
+
127
+L000116:
128
+	.dc.b	'メモリが不足です',$0d,$0a
129
+	.dc.b	'異常終了します',$0d,$0a,$00
130
+L000139:
131
+	.dc.b	'常駐部が読み込めません',$0d,$0a,$00
132
+L000152:
133
+	.dc.b	'常駐部のバージョンが違います',$0d,$0a,$00
134
+L000171:
135
+	.dc.b	'このOSでは使用できません',$0d,$0a,$00
136
+L00018e:
137
+	move.l	d0,-(sp)
138
+	move.b	#$01,d3
139
+	movem.l	d0,-(sp)
140
+	DOS	_VERNUM
141
+	cmp.w	#$0162,d0
142
+	bcs.s	L0001ae
143
+	move.b	(L000000-$00009c),d3
144
+	addq.b	#1,d3
145
+	bne.s	L0001ae
146
+	move.b	#$01,d3
147
+L0001ae:
148
+	movem.l	(sp)+,d0
149
+	bsr.s	L0001e6
150
+	tst.l	d0
151
+	bmi.w	L0000f2
152
+L0001ba:
153
+	movea.l	d4,a0
154
+L0001bc:
155
+	clr.l	(a0)
156
+	addq.b	#1,d3
157
+	move.l	d4,d0
158
+	bsr.s	L0001e6
159
+	tst.l	d0
160
+	bmi.s	L0001d4
161
+	lea.l	($0014,a0),a2
162
+	bsr.s	L000236
163
+	beq.s	L0001ba
164
+	move.l	a0,d4
165
+	bra.s	L0001bc
166
+
167
+L0001d4:
168
+	move.l	(sp)+,d0
169
+	move.l	a0,d1
170
+	addq.l	#4,d1
171
+	sub.l	d0,d1
172
+	move.l	d1,-(sp)
173
+	move.l	d0,-(sp)
174
+	DOS	_SETBLOCK
175
+	addq.l	#8,sp
176
+	rts
177
+
178
+L0001e6:
179
+	movem.l	a0,-(sp)
180
+	move.l	d0,d2
181
+	bsr.s	L000210
182
+	tst.l	d0
183
+	bmi.s	L000202
184
+	movea.l	d2,a0
185
+	move.l	d2,d4
186
+	add.l	($0008,a0),d4
187
+	addq.l	#5,d4
188
+	and.b	#$fe,d4
189
+	move.l	d4,(a0)
190
+L000202:
191
+	movem.l	(sp)+,a0
192
+	rts
193
+
194
+L000208:
195
+	move.b	(a1)+,(a0)+
196
+	bne.s	L000208
197
+	subq.l	#1,a0
198
+	rts
199
+
200
+L000210:
201
+	movem.l	d1-d2/a0,-(sp)
202
+	move.l	d1,-(sp)
203
+	addq.l	#4,d2
204
+	move.l	d2,-(sp)
205
+	pea.l	(L0002a0)
206
+	ori.b	#$03,(sp)
207
+	move.w	#$0003,-(sp)
208
+	or.b	d3,(sp)
209
+	DOS	_EXEC
210
+	lea.l	($000e,sp),sp
211
+	movem.l	(sp)+,d1-d2/a0
212
+	rts
213
+
214
+L000236:
215
+	movem.l	d0-d1/a3,-(sp)
216
+	lea.l	(L00000c),a3
217
+	move.w	#$0009,d0
218
+L000244:
219
+	move.b	(a2)+,d1
220
+	cmp.b	(a3)+,d1
221
+	dbne.w	d0,L000244
222
+	movem.l	(sp)+,d0-d1/a3
223
+	rts
224
+
225
+L000252:
226
+	clr.l	-(sp)
227
+	DOS	_SUPER
228
+	move.l	d0,(sp)
229
+	lea.l	(L0003a0),a1
230
+	lea.l	(L000000-$000100),a0
231
+L000264:
232
+	move.l	($0004,a0),d0
233
+	move.l	d0,d1
234
+	rol.l	#8,d1
235
+	tst.b	d1
236
+	bne.s	L000278
237
+	move.l	d0,(a1)+
238
+	beq.s	L00027a
239
+	movea.l	d0,a0
240
+	bra.s	L000264
241
+
242
+L000278:
243
+	clr.l	(a1)
244
+L00027a:
245
+	lea.l	(L0003a0),a1
246
+L000280:
247
+	move.l	(a1)+,d0
248
+	beq.s	L000294
249
+	movea.l	d0,a0
250
+	lea.l	($010c,a0),a2
251
+	bsr.s	L000236
252
+	bne.s	L000280
253
+	move.l	($0104,a0),d0
254
+	beq.s	L000280
255
+L000294:
256
+	move.l	(sp),d1
257
+	move.l	d0,(sp)
258
+	move.l	d1,-(sp)
259
+	DOS	_SUPER
260
+	move.l	(sp)+,d0
261
+	rts
262
+
263
+
264
+	.bss
265
+
266
+L0002a0:
267
+	.ds.b	256
268
+L0003a0:
269
+	.ds.b	3168
270
+L001000:
271
+	.ds.b	672
272
+L0012a0:
273
+
274
+	.end	L00001a

BIN
cmd.x View File


BIN
command.x View File


+ 1403
- 0
commando.lab
File diff suppressed because it is too large
View File


+ 9303
- 0
commando.s
File diff suppressed because it is too large
View File


BIN
commando.x View File


Loading…
Cancel
Save