Skip to content

Commit 0ff6214

Browse files
committed
made serial version compile; change dtr2dta to generate plenty of end of tape marks
1 parent c52c57b commit 0ff6214

File tree

2 files changed

+23
-6
lines changed

2 files changed

+23
-6
lines changed

emu/main_serial.c

Lines changed: 9 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -8,6 +8,15 @@
88

99
// TODO: get rid of this
1010
void updatepanel(Apr *apr) {}
11+
void writeconsreg(Apr *apr, u32 addr, u32 data)
12+
{ // stub
13+
}
14+
u32
15+
readconsreg(Apr *apr, u32 addr)
16+
{
17+
// stub
18+
return 0;
19+
}
1120

1221
#define KEYPULSE(k) (apr->k && !oldapr.k)
1322

tools/dtr2dta.c

Lines changed: 14 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -257,8 +257,11 @@ dumpdtr(word *wp, word *bmp, word *ibp, FILE *f)
257257
int i, j;
258258
int ck;
259259

260-
wrf(f, TapeEndR, nil, 0);
261-
wrf(f, TapeEndR, nil, 0);
260+
for(i = 0; i < 2700; i++)
261+
{
262+
wrf(f, TapeEndR, nil, 0);
263+
wrf(f, TapeEndR, nil, 0);
264+
}
262265

263266
for(i = 0; i < NUMBLOCKS; i++){
264267
w = *bmp++;
@@ -269,8 +272,10 @@ dumpdtr(word *wp, word *bmp, word *ibp, FILE *f)
269272
wrf(f, DataSync, nil, LDB(18, 18, w));
270273
wrf(f, DataEndR, nil, LDB(0, 18, w));
271274

272-
ck = 0;
273-
wrf(f, DataEndR, &ck, 0007777); // rev check
275+
ck = 077;
276+
// wrf(f, DataEndR, nil, 0007777); // rev check
277+
// this seems what 551 actually does
278+
wrf(f, DataEndR, nil, 0000000); // rev check
274279

275280
/* the data */
276281
w = *wp++;
@@ -296,8 +301,11 @@ dumpdtr(word *wp, word *bmp, word *ibp, FILE *f)
296301
wrf(f, BlockSpace, nil, LDB(0, 18, w)); // rev block mark
297302
}
298303

299-
wrf(f, TapeEndF, nil, 0);
300-
wrf(f, TapeEndF, nil, 0);
304+
for(i = 0; i < 2700; i++)
305+
{
306+
wrf(f, TapeEndF, nil, 0);
307+
wrf(f, TapeEndF, nil, 0);
308+
}
301309
}
302310

303311
uchar*

0 commit comments

Comments
 (0)