@@ -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
303311uchar *
0 commit comments